This notebook analyses both parts of the data in terms of variable importance, using a random forest model based on conditional inference trees and a conditional permutation variable importance algorithm.
# load packages
library(tidyr)
library(ggplot2)
library(party)
library(conflicted)
library(tidyverse)
library(openxlsx)
library(caret)
library(viridis)
library(cowplot)
library(permimp)
# set package parameters
theme_set(theme_bw())
# plot colour scheme
mycolourlist = list(c(0, 102, 255), c(0, 204, 153), c(255, 0, 102), c(74, 111, 152), c(251, 164, 49), c(204, 153, 255), c(90, 192, 255), c(80, 245, 233), c(255, 90, 192), c(164, 201, 242), c(255, 254, 139), c(255, 243, 255))
mycolours = matrix()
for (ii in 1:length(mycolourlist)){
mycolours[ii] = rgb(mycolourlist[[ii]][1]/255,
mycolourlist[[ii]][2]/255,
mycolourlist[[ii]][3]/255)
}
# toggle to save plots
saveplots = TRUE
if (saveplots){
# set output plot directory
choose.files(caption="Just cancel this", filters=matrix(data=c(" ", " "), ncol=2)) # workaround for bug in RTerm choose.dir
outFigPath <- utils::choose.dir(caption="Select output folder to save plots '03 Experiment\\Experiment 1\\Analysis\\Plots'")
if (!dir.exists(file.path(outFigPath, "svg"))){dir.create(file.path(outFigPath, "svg"))}
if (!dir.exists(file.path(outFigPath, "pdf"))){dir.create(file.path(outFigPath, "pdf"))}
}
# toggle to save data
savedata = TRUE
if (savedata){
# set output plot directory
if (saveplots==FALSE){
choose.files(caption="Just cancel this", filters=matrix(data=c(" ", " "), ncol=2)) # workaround for bug in RTerm choose.dir
}
outDataPath <- utils::choose.dir(caption="Select output folder to save data '03 Experiment\\Experiment 1\\Analysis\\R'")
}
stimDatapath <- utils::choose.files(caption=r"(Select refmap_listest1_testdata_ByStim.csv from 03 Experiment\Experiment 1\Analysis\PostProcess)",
filters=matrix(data=c("refmap_listest1_testdata_ByStim.csv", "refmap_listest1_testdata_ByStim.csv"), ncol=2))
stimData <- utils::read.csv(stimDatapath, header=TRUE)
colnames(stimData)[1] <- "Stimulus"
# make response proportions into percentages
stimData[['HighAnnoyPc']] <- stimData[['HighAnnoyProp']]*100
stimData[['dHighAnnoyPc']] <- stimData[['dHighAnnoyProp']]*100
# function to encode categorical to ordinal numeric variables
encode_ordinal <- function(x, order=unique(x)) {
x <- as.numeric(factor(x, levels=order, exclude=NULL, order=TRUE))
x
}
# definition of ordinal variable levels
SNRCats <- c("No UAS", "-16", "-10", "-4", "2", "8")
UASLAeqCats <- c("No UAS", "42", "48", "54", "60")
The aggregated data by stimulus are assigned to a dataframe, relevant categorical variables are converted to ordinal, and then the variable subset of interest is selected, NA rows dropped (ie, the ‘no UAS’ stimuli, as the conditional variable importance algorithm cannot currently handle NA values, which are present in all the UAS dB metrics), and a formula assigned.
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuXG5zdGltRGF0YU51bSA8LSBkYXRhLmZyYW1lKClcblxuc3RpbURhdGFOdW0gPC0gY2JpbmQoc3RpbURhdGFbLCAnU3RpbXVsdXMnXSxcbiAgICAgICAgICAgICAgICAgICAgIHN0aW1EYXRhWywgd2hpY2goY29sbmFtZXMoc3RpbURhdGEpPT1cIlVBU0V2ZW50c1wiKTpcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgd2hpY2goY29sbmFtZXMoc3RpbURhdGEpPT1cIlVBU0V2ZW50UGVyTWluXCIpXSxcbiAgICAgICAgICAgICAgICAgICAgc3RpbURhdGFbLCB3aGljaChjb2xuYW1lcyhzdGltRGF0YSk9PVwiVUFTTEFlcVwiKTpcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgd2hpY2goY29sbmFtZXMoc3RpbURhdGEpPT1cIlNOUmxldmVsXCIpXSxcbiAgICAgICAgICAgICAgICAgICAgc3RpbURhdGFbLCB3aGljaChjb2xuYW1lcyhzdGltRGF0YSk9PVwiSW50ZXJtaXRSYXRpb0MyTWF4TFJcIik6XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHdoaWNoKGNvbG5hbWVzKHN0aW1EYXRhKT09XCJJbnRlcm1pdFJhdGlvQzVNYXhMUlwiKV0sXG4gICAgICAgICAgICAgICAgICAgIHN0aW1EYXRhWywgd2hpY2goY29sbmFtZXMoc3RpbURhdGEpPT1cIlVBU0xBZXFNYXhMUlwiKTpcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgd2hpY2goY29sbmFtZXMoc3RpbURhdGEpPT1cIlVBU0VQTkxNYXhMUlwiKV0sXG4gICAgICAgICAgICAgICAgICAgIHN0aW1EYXRhWywgd2hpY2goY29sbmFtZXMoc3RpbURhdGEpPT1cIlVBU0xvdWRFQ01BUG93QXZnQmluXCIpOlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB3aGljaChjb2xuYW1lcyhzdGltRGF0YSk9PVwiVUFTSW1wdWxzU0hNMDVFeE1heExSXCIpXSxcbiAgICAgICAgICAgICAgICAgICAgc3RpbURhdGFbLCB3aGljaChjb2xuYW1lcyhzdGltRGF0YSk9PVwiTEFlcUxBRjkwZGlmZlwiKTpcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgd2hpY2goY29sbmFtZXMoc3RpbURhdGEpPT1cImRJbXB1bHNTSE0wNUV4TWF4TFJcIildLFxuICAgICAgICAgICAgICAgICAgICBzdGltRGF0YVssIHdoaWNoKGNvbG5hbWVzKHN0aW1EYXRhKT09XCJWYWxlbmNlTWVkaWFuXCIpOlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHdoaWNoKGNvbG5hbWVzKHN0aW1EYXRhKT09XCJkSGlnaEFubm95UHJvcFwiKV0sXG4gICAgICAgICAgICAgICAgICAgIHN0aW1EYXRhWywgd2hpY2goY29sbmFtZXMoc3RpbURhdGEpPT1cIkhpZ2hBbm5veVBjXCIpOlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB3aGljaChjb2xuYW1lcyhzdGltRGF0YSk9PVwiZEhpZ2hBbm5veVBjXCIpXSlcblxuIyByZW1vdmUgZHVwbGljYXRlZCB2YXJpYWJsZXNcbnN0aW1EYXRhTnVtIDwtIHN1YnNldChzdGltRGF0YU51bSwgc2VsZWN0ID0gLWMoVUFTTEFlcSkpXG5cbmNvbG5hbWVzKHN0aW1EYXRhTnVtKVsxXSA8LSBcIlN0aW11bHVzXCJcblxuIyBtYWtlIHRoZSBkaXNjcmV0ZSBvcmRpbmFsIG91dGNvbWUgdmFyaWFibGVzIGZhY3RvcnNcbnN0aW1EYXRhTnVtW1snVUFTRXZlbnRzJ11dIDwtIGZhY3RvcihzdGltRGF0YU51bVtbJ1VBU0V2ZW50cyddXSwgbGV2ZWxzPWMoMCwgMSwgMywgNSwgOSksIG9yZGVyPVRSVUUpXG5zdGltRGF0YU51bVtbJ1ZhbGVuY2VNZWRpYW4nXV0gPC0gZmFjdG9yKHN0aW1EYXRhTnVtW1snVmFsZW5jZU1lZGlhbiddXSwgbGV2ZWxzPWMoMSwgMS41LCAyLCAyLjUsIDMsIDMuNSwgNCwgNC41LCA1KSwgb3JkZXI9VFJVRSlcbnN0aW1EYXRhTnVtW1snQXJvdXNhbE1lZGlhbiddXSA8LSBmYWN0b3Ioc3RpbURhdGFOdW1bWydBcm91c2FsTWVkaWFuJ11dLCBsZXZlbHM9YygxLCAxLjUsIDIsIDIuNSwgMywgMy41LCA0LCA0LjUsIDUpLCBvcmRlcj1UUlVFKVxuc3RpbURhdGFOdW1bWydBbm5veU1lZGlhbiddXSA8LSBmYWN0b3Ioc3RpbURhdGFOdW1bWydBbm5veU1lZGlhbiddXSwgbGV2ZWxzPWMoMCwgMC41LCAxLCAxLjUsIDIsIDIuNSwgMywgMy41LCA0LCA0LjUsIDUsXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIDUuNSwgNiwgNi41LCA3LCA3LjUsIDgsIDguNSwgOSwgOS41LCAxMCksIG9yZGVyPVRSVUUpXG5zdGltRGF0YU51bVtbJ2RWYWxlbmNlTWVkaWFuJ11dIDwtIGZhY3RvcihzdGltRGF0YU51bVtbJ2RWYWxlbmNlTWVkaWFuJ11dLCBsZXZlbHM9YygtNCwgLTMuNSwgLTMsIC0yLjUsIC0yLCAtMS41LCAtMSwgLTAuNSwgMCxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgMC41LCAxLCAxLjUsIDIsIDIuNSwgMywgMy41LCAgNCksIG9yZGVyPVRSVUUpXG5zdGltRGF0YU51bVtbJ2RBcm91c2FsTWVkaWFuJ11dIDwtIGZhY3RvcihzdGltRGF0YU51bVtbJ2RBcm91c2FsTWVkaWFuJ11dLCBsZXZlbHM9YygtNCwgLTMuNSwgLTMsIC0yLjUsIC0yLCAtMS41LCAtMSwgLTAuNSwgMCxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgMC41LCAxLCAxLjUsIDIsIDIuNSwgMywgMy41LCAgNCksIG9yZGVyPVRSVUUpXG5zdGltRGF0YU51bVtbJ2RBbm5veU1lZGlhbiddXSA8LSBmYWN0b3Ioc3RpbURhdGFOdW1bWydkQW5ub3lNZWRpYW4nXV0sIGxldmVscz1jKC0xMCwgLTkuNSwgLTksIC04LjUsIC04LCAtNy41LCAtNywgLTYuNSwgLTYsIC01LjUsIC01LFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIC00LjUsIC00LCAtMy41LCAtMywgLTIuNSwgLTIsIC0xLjUsIC0xLCAtMC41LFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgMCwgMC41LCAxLCAxLjUsIDIsIDIuNSwgMywgMy41LCA0LCA0LjUsIDUsXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICA1LjUsIDYsIDYuNSwgNywgNy41LCA4LCA4LjUsIDksIDkuNSwgMTApLCBvcmRlcj1UUlVFKVxuXG4jIG9taXQgYW1iaWVudC1vbmx5IHN0aW11bGlcbnN0aW1EYXRhTnVtIDwtIHN0aW1EYXRhTnVtIHw+IGRwbHlyOjpmaWx0ZXIoVUFTRXZlbnRzICE9IDApXG5cblxuc3RpbURhdGFOdW0kU05SbGV2ZWwgPC0gYXMubnVtZXJpYyhzdGltRGF0YU51bSRTTlJsZXZlbClcbmBgYCJ9 -->
```r
stimDataNum <- data.frame()
stimDataNum <- cbind(stimData[, 'Stimulus'],
stimData[, which(colnames(stimData)==\UASEvents\):
which(colnames(stimData)==\UASEventPerMin\)],
stimData[, which(colnames(stimData)==\UASLAeq\):
which(colnames(stimData)==\SNRlevel\)],
stimData[, which(colnames(stimData)==\IntermitRatioC2MaxLR\):
which(colnames(stimData)==\IntermitRatioC5MaxLR\)],
stimData[, which(colnames(stimData)==\UASLAeqMaxLR\):
which(colnames(stimData)==\UASEPNLMaxLR\)],
stimData[, which(colnames(stimData)==\UASLoudECMAPowAvgBin\):
which(colnames(stimData)==\UASImpulsSHM05ExMaxLR\)],
stimData[, which(colnames(stimData)==\LAeqLAF90diff\):
which(colnames(stimData)==\dImpulsSHM05ExMaxLR\)],
stimData[, which(colnames(stimData)==\ValenceMedian\):
which(colnames(stimData)==\dHighAnnoyProp\)],
stimData[, which(colnames(stimData)==\HighAnnoyPc\):
which(colnames(stimData)==\dHighAnnoyPc\)])
# remove duplicated variables
stimDataNum <- subset(stimDataNum, select = -c(UASLAeq))
colnames(stimDataNum)[1] <- \Stimulus\
# make the discrete ordinal outcome variables factors
stimDataNum[['UASEvents']] <- factor(stimDataNum[['UASEvents']], levels=c(0, 1, 3, 5, 9), order=TRUE)
stimDataNum[['ValenceMedian']] <- factor(stimDataNum[['ValenceMedian']], levels=c(1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5), order=TRUE)
stimDataNum[['ArousalMedian']] <- factor(stimDataNum[['ArousalMedian']], levels=c(1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5), order=TRUE)
stimDataNum[['AnnoyMedian']] <- factor(stimDataNum[['AnnoyMedian']], levels=c(0, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5,
5.5, 6, 6.5, 7, 7.5, 8, 8.5, 9, 9.5, 10), order=TRUE)
stimDataNum[['dValenceMedian']] <- factor(stimDataNum[['dValenceMedian']], levels=c(-4, -3.5, -3, -2.5, -2, -1.5, -1, -0.5, 0,
0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4), order=TRUE)
stimDataNum[['dArousalMedian']] <- factor(stimDataNum[['dArousalMedian']], levels=c(-4, -3.5, -3, -2.5, -2, -1.5, -1, -0.5, 0,
0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4), order=TRUE)
stimDataNum[['dAnnoyMedian']] <- factor(stimDataNum[['dAnnoyMedian']], levels=c(-10, -9.5, -9, -8.5, -8, -7.5, -7, -6.5, -6, -5.5, -5,
-4.5, -4, -3.5, -3, -2.5, -2, -1.5, -1, -0.5,
0, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5,
5.5, 6, 6.5, 7, 7.5, 8, 8.5, 9, 9.5, 10), order=TRUE)
# omit ambient-only stimuli
stimDataNum <- stimDataNum |> dplyr::filter(UASEvents != 0)
stimDataNum$SNRlevel <- as.numeric(stimDataNum$SNRlevel)
```
<!-- rnb-source-end -->```r
stimDataNum <- data.frame()
stimDataNum <- cbind(stimData[, 'Stimulus'],
stimData[, which(colnames(stimData)==\UASEvents\):
which(colnames(stimData)==\UASEventPerMin\)],
stimData[, which(colnames(stimData)==\UASLAeq\):
which(colnames(stimData)==\SNRlevel\)],
stimData[, which(colnames(stimData)==\IntermitRatioC2MaxLR\):
which(colnames(stimData)==\IntermitRatioC5MaxLR\)],
stimData[, which(colnames(stimData)==\UASLAeqMaxLR\):
which(colnames(stimData)==\UASEPNLMaxLR\)],
stimData[, which(colnames(stimData)==\UASLoudECMAPowAvgBin\):
which(colnames(stimData)==\UASImpulsSHM05ExMaxLR\)],
stimData[, which(colnames(stimData)==\LAeqLAF90diff\):
which(colnames(stimData)==\dImpulsSHM05ExMaxLR\)],
stimData[, which(colnames(stimData)==\ValenceMedian\):
which(colnames(stimData)==\dHighAnnoyProp\)],
stimData[, which(colnames(stimData)==\HighAnnoyPc\):
which(colnames(stimData)==\dHighAnnoyPc\)])
# remove duplicated variables
stimDataNum <- subset(stimDataNum, select = -c(UASLAeq))
colnames(stimDataNum)[1] <- \Stimulus\
# make the discrete ordinal outcome variables factors
stimDataNum[['UASEvents']] <- factor(stimDataNum[['UASEvents']], levels=c(0, 1, 3, 5, 9), order=TRUE)
stimDataNum[['ValenceMedian']] <- factor(stimDataNum[['ValenceMedian']], levels=c(1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5), order=TRUE)
stimDataNum[['ArousalMedian']] <- factor(stimDataNum[['ArousalMedian']], levels=c(1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5), order=TRUE)
stimDataNum[['AnnoyMedian']] <- factor(stimDataNum[['AnnoyMedian']], levels=c(0, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5,
5.5, 6, 6.5, 7, 7.5, 8, 8.5, 9, 9.5, 10), order=TRUE)
stimDataNum[['dValenceMedian']] <- factor(stimDataNum[['dValenceMedian']], levels=c(-4, -3.5, -3, -2.5, -2, -1.5, -1, -0.5, 0,
0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4), order=TRUE)
stimDataNum[['dArousalMedian']] <- factor(stimDataNum[['dArousalMedian']], levels=c(-4, -3.5, -3, -2.5, -2, -1.5, -1, -0.5, 0,
0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4), order=TRUE)
stimDataNum[['dAnnoyMedian']] <- factor(stimDataNum[['dAnnoyMedian']], levels=c(-10, -9.5, -9, -8.5, -8, -7.5, -7, -6.5, -6, -5.5, -5,
-4.5, -4, -3.5, -3, -2.5, -2, -1.5, -1, -0.5,
0, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5,
5.5, 6, 6.5, 7, 7.5, 8, 8.5, 9, 9.5, 10), order=TRUE)
# omit ambient-only stimuli
stimDataNum <- stimDataNum |> dplyr::filter(UASEvents != 0)
stimDataNum$SNRlevel <- as.numeric(stimDataNum$SNRlevel)
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
# Random forest functions
Write a function to train a conditional-inference random forest (crf) model on input data according to input formula, iterate over input random seeds, average error and variable importance metrics, and output metrics with plotted
## Averaging over multiple random seeds
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV0ZFd4MGFWOWpjbVpTWldjZ1BDMGdablZ1WTNScGIyNG9aR0YwWVVsdUxDQnBWbUZ5Y3l3Z1pGWmhjaXdnYzJWbFpITXNJRzUwY21WbExDQnRkSEo1TENCd1pYSnRTVzF3UTI5dVpGUm9jbVZ6UFRBdU9UVXNJRzFwYm5Od2JHbDBQVEl3TENCdGFXNWlkV05yWlhROU55d2dibkJsY20wOU1TbDdYRzRnSUNNZ2FXNXBkR2xoYkdselpTQjJZWEpwWVdKc1pYTmNiaUFnWTNKbVQwOUNSWEp5UVd4c0lEd3RJREJjYmlBZ1kzSm1UMDlDVWsxVFJTQThMU0F3WEc0Z0lHTnlaazlQUWsxQlJTQThMU0F3WEc0Z0lHTnlaazlQUWtWeWNsSXlJRHd0SURCY2JpQWdZM0ptVFdGeVVHVnliVWx0Y0ZaaGJITWdQQzBnTUZ4dUlDQmpjbVpEYjI1UVpYSnRTVzF3Vm1Gc2N5QThMU0F3WEc0Z0lHTnlaazFoY2xCbGNtMUpiWEJXWVd4elVHVnlWSEpsWlNBOExTQmtZWFJoTG1aeVlXMWxLQ2xjYmlBZ1kzSm1RMjl1VUdWeWJVbHRjRlpoYkhOUVpYSlVjbVZsSUR3dElHUmhkR0V1Wm5KaGJXVW9LVnh1SUNCY2JpQWdabTl5SUNocGRHVnljeUJwYmlBeE9teGxibWQwYUNoelpXVmtjeWtwZTF4dUlDQWdJRnh1SUNBZ0lDTWdabTl5YlhWc1lTQm1iM0lnY21WbmNtVnpjMmx2Ymx4dUlDQWdJR1p2Y20xV1lYSnpJRHd0SUhKbFptOXliWFZzWVhSbEtHbFdZWEp6TENCa1ZtRnlLVnh1SUNBZ0lGeHVJQ0FnSUNNZ2MyVjBJSEpoYm1SdmJTQnpaV1ZrWEc0Z0lDQWdjMlYwTG5ObFpXUW9jMlZsWkhOYmFYUmxjbk5kS1Z4dUlDQWdJQ01nZEhKaGFXNGdZM0ptSUcxdlpHVnNYRzRnSUNBZ1kzSm1UVzlrWld3Z1BDMGdjR0Z5ZEhrNk9tTm1iM0psYzNRb1ptOXliVlpoY25Nc0lHUmhkR0U5WkdGMFlVbHVMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lHTnZiblJ5YjJ4elBYQmhjblI1T2pwalptOXlaWE4wWDNWdVltbGhjMlZrS0c1MGNtVmxQVzUwY21WbExGeHVJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJRzEwY25rOWJYUnllU3hjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN4Y2JpQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLU2xjYmlBZ0lDQmNiaUFnSUNBaklHZGxkQ0JQVDBJZ2NISmxaR2xqZEdsdmJuTmNiaUFnSUNCamNtWk5iMlJsYkU5UFFpQThMU0J3Y21Wa2FXTjBLR055WmsxdlpHVnNMQ0JQVDBJOVZGSlZSU3dnZEhsd1pUMG5jbVZ6Y0c5dWMyVW5LVnh1SUNBZ0lGeHVJQ0FnSUNNZ1oyVjBJRTlQUWlCbGNuSnZjbHh1SUNBZ0lHTnlaazF2WkdWc1QwOUNSWEp5SUR3dElHRnpMbTUxYldWeWFXTW9ZWE11YldGMGNtbDRLR0Z6TG01MWJXVnlhV01vWVhNdWJXRjBjbWw0S0dOeVprMXZaR1ZzVDA5Q0tTbGNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdMU0JoY3k1dWRXMWxjbWxqS0dGekxtMWhkSEpwZUNoamNtWk5iMlJsYkVCa1lYUmhRR1Z1ZGlSeVpYTndiMjV6WlZ0YmJtRnRaWE1vWTNKbVRXOWtaV3hBWkdGMFlVQmxibllrY21WemNHOXVjMlVwWFYwcEtTa3BYRzVjYmlBZ0lDQWpJRTlQUWlCU1RWTkZMQ0JsY25KdmNpQnhkV0Z5ZEdsc1pYTWdZVzVrSUZKemNYVmhjbVZrWEc0Z0lDQWdZM0ptVDA5Q1VrMVRSU0E4TFNCamNtWlBUMEpTVFZORklDc2djM0Z5ZENodFpXRnVLR055WmsxdlpHVnNUMDlDUlhKeVhqSXBLVnh1SUNBZ0lHTnlaazlQUWsxQlJTQThMU0JqY21aUFQwSk5RVVVnS3lCdFpXRnVLR0ZpY3loamNtWk5iMlJsYkU5UFFrVnljaWtwWEc0Z0lDQWdZM0ptVDA5Q1JYSnlVaklnUEMwZ1kzSm1UMDlDUlhKeVVqSWdLeUJqYjNJb1lYTXViblZ0WlhKcFl5aGhjeTV0WVhSeWFYZ29ZM0ptVFc5a1pXeFBUMElwS1N4Y2JpQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQmhjeTV1ZFcxbGNtbGpLR0Z6TG0xaGRISnBlQ2hqY21aTmIyUmxiRUJrWVhSaFFHVnVkaVJ5WlhOd2IyNXpaVnRiYm1GdFpYTW9ZM0ptVFc5a1pXeEFaR0YwWVVCbGJuWWtjbVZ6Y0c5dWMyVXBYVjBwS1NsZU1seHVYRzRnSUNBZ0l5QnpaWFFnY21GdVpHOXRJSE5sWldSY2JpQWdJQ0J6WlhRdWMyVmxaQ2h6WldWa2MxdHBkR1Z5YzEwcFhHNWNiaUFnSUNBaklITmxkQ0J5WVc1a2IyMGdjMlZsWkZ4dUlDQWdJSE5sZEM1elpXVmtLSE5sWldSelcybDBaWEp6WFNsY2JpQWdJQ0FqSUdOdmJtUnBkR2x2Ym1Gc0lIWmhjbWxoWW14bElIQmxjbTExZEdGMGFXOXVJR2x0Y0c5eWRHRnVZMlZjYmlBZ0lDQmpjbVpEYjI1UVpYSnRTVzF3SUR3dElIQmxjbTFwYlhBNk9uQmxjbTFwYlhBb1kzSm1UVzlrWld3c0lHNXdaWEp0UFc1d1pYSnRMQ0JqYjI1a2FYUnBiMjVoYkQxVVVsVkZMQ0IwYUhKbGMyaHZiR1E5Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnY0hKdlozSmxjM05DWVhJOVJrRk1VMFVwWEc0Z0lDQWdYRzRnSUNBZ1kzSm1RMjl1VUdWeWJVbHRjRlpoYkhNZ1BDMGdZM0ptUTI5dVVHVnliVWx0Y0ZaaGJITWdLeUJqY21aRGIyNVFaWEp0U1cxd0pIWmhiSFZsYzF4dUlDQWdJR055WmtOdmJsQmxjbTFKYlhCV1lXeHpVR1Z5VkhKbFpTQThMU0J5WW1sdVpDaGpjbVpEYjI1UVpYSnRTVzF3Vm1Gc2MxQmxjbFJ5WldVc0lHTnlaa052YmxCbGNtMUpiWEFrY0dWeVZISmxaU2xjYmlBZ2ZWeHVJQ0JjYmlBZ0l5QmhkbVZ5WVdkbElHMWxkSEpwWTNOY2JpQWdZM0ptVDA5Q1JYSnlRV3hzSUR3dElHTnlaazlQUWtWeWNrRnNiQzlzWlc1bmRHZ29jMlZsWkhNcFhHNGdJR055Wms5UFFsSk5VMFVnUEMwZ1kzSm1UMDlDVWsxVFJTOXNaVzVuZEdnb2MyVmxaSE1wWEc0Z0lHTnlaazlQUWsxQlJTQThMU0JqY21aUFQwSk5RVVV2YkdWdVozUm9LSE5sWldSektWeHVJQ0JqY21aUFQwSkZjbkpTTWlBOExTQmpjbVpQVDBKRmNuSlNNaTlzWlc1bmRHZ29jMlZsWkhNcFhHNGdJR055WmtOdmJsQmxjbTFKYlhCV1lXeHpJRHd0SUdSaGRHRXVabkpoYldVb1EyOXVaRkJsY20xSmJYQTljMjl5ZENoamNtWkRiMjVRWlhKdFNXMXdWbUZzY3k5c1pXNW5kR2dvYzJWbFpITXBMQ0JrWldOeVpXRnphVzVuUFZSU1ZVVXBLVnh1SUNBalkzSm1RMjl1VUdWeWJVbHRjRlpoYkhOTmJpQThMU0J6YjNKMEtHTnZiRTFsWVc1ektHTnlaa052YmxCbGNtMUpiWEJXWVd4elVHVnlWSEpsWlNrc0lHUmxZM0psWVhOcGJtYzlWRkpWUlNrZ0lDTWdiV1ZoYmlCdlppQmpiMjVrYVhScGIyNWhiQ0IyWVhKcFlXSnNaU0JwYlhCdmNuUmhibU5sSUhaaGJIVmxjeUJ3WlhJZ2RISmxaU0FvYzJGdFpTQmhjeUJqY21aRGIyNVFaWEp0U1cxd1ZtRnNjeWxjYmlBZ1kzSm1RMjl1VUdWeWJVbHRjRlpoYkhOUmRHd2dQQzBnWkdGMFlTNW1jbUZ0WlNoaGNIQnNlU2hqY21aRGIyNVFaWEp0U1cxd1ZtRnNjMUJsY2xSeVpXVXNJRElzSUhGMVlXNTBhV3hsTENCd2NtOWljejFqS0RBdU1qVXNJREF1TlRBc0lEQXVOelVwS1NsY2JpQWdYRzRnSUhKbGMzVnNkSE5QZFhRZ1BDMGdiR2x6ZENnblQwOUNYMUpOVTBVblBXTnlaazlQUWxKTlUwVXNJQ2RQVDBKZlRVRkZKejFqY21aUFQwSk5RVVVzSUNkU2MzRjFZWEpsWkNjOVkzSm1UMDlDUlhKeVVqSXNJQ2RqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3SnoxamNtWkRiMjVRWlhKdFNXMXdWbUZzY3l3Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdKMk52Ym1ScGRHbHZibUZzWDNCbGNtMXBiWEJmY0dWeVZISmxaU2M5WTNKbVEyOXVVR1Z5YlVsdGNGWmhiSE5RWlhKVWNtVmxMQ0FuWTI5dVpHbDBhVzl1WVd4ZmNHVnliV2x0Y0Y5eGRHd25QV055WmtOdmJsQmxjbTFKYlhCV1lXeHpVWFJzS1Z4dUlDQnlaWFIxY200b2NtVnpkV3gwYzA5MWRDbGNibjFjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbm11bHRpX2NyZlJlZyA8LSBmdW5jdGlvbihkYXRhSW4sIGlWYXJzLCBkVmFyLCBzZWVkcywgbnRyZWUsIG10cnksIHBlcm1JbXBDb25kVGhyZXM9MC45NSwgbWluc3BsaXQ9MjAsIG1pbmJ1Y2tldD03LCBucGVybT0xKXtcbiAgIyBpbml0aWFsaXNlIHZhcmlhYmxlc1xuICBjcmZPT0JFcnJBbGwgPC0gMFxuICBjcmZPT0JSTVNFIDwtIDBcbiAgY3JmT09CTUFFIDwtIDBcbiAgY3JmT09CRXJyUjIgPC0gMFxuICBjcmZNYXJQZXJtSW1wVmFscyA8LSAwXG4gIGNyZkNvblBlcm1JbXBWYWxzIDwtIDBcbiAgY3JmTWFyUGVybUltcFZhbHNQZXJUcmVlIDwtIGRhdGEuZnJhbWUoKVxuICBjcmZDb25QZXJtSW1wVmFsc1BlclRyZWUgPC0gZGF0YS5mcmFtZSgpXG4gIFxuICBmb3IgKGl0ZXJzIGluIDE6bGVuZ3RoKHNlZWRzKSl7XG4gICAgXG4gICAgIyBmb3JtdWxhIGZvciByZWdyZXNzaW9uXG4gICAgZm9ybVZhcnMgPC0gcmVmb3JtdWxhdGUoaVZhcnMsIGRWYXIpXG4gICAgXG4gICAgIyBzZXQgcmFuZG9tIHNlZWRcbiAgICBzZXQuc2VlZChzZWVkc1tpdGVyc10pXG4gICAgIyB0cmFpbiBjcmYgbW9kZWxcbiAgICBjcmZNb2RlbCA8LSBwYXJ0eTo6Y2ZvcmVzdChmb3JtVmFycywgZGF0YT1kYXRhSW4sXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29udHJvbHM9cGFydHk6OmNmb3Jlc3RfdW5iaWFzZWQobnRyZWU9bnRyZWUsXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbXRyeT1tdHJ5LFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1pbnNwbGl0PW1pbnNwbGl0LFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1pbmJ1Y2tldD1taW5idWNrZXQpKVxuICAgIFxuICAgICMgZ2V0IE9PQiBwcmVkaWN0aW9uc1xuICAgIGNyZk1vZGVsT09CIDwtIHByZWRpY3QoY3JmTW9kZWwsIE9PQj1UUlVFLCB0eXBlPSdyZXNwb25zZScpXG4gICAgXG4gICAgIyBnZXQgT09CIGVycm9yXG4gICAgY3JmTW9kZWxPT0JFcnIgPC0gYXMubnVtZXJpYyhhcy5tYXRyaXgoYXMubnVtZXJpYyhhcy5tYXRyaXgoY3JmTW9kZWxPT0IpKVxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAtIGFzLm51bWVyaWMoYXMubWF0cml4KGNyZk1vZGVsQGRhdGFAZW52JHJlc3BvbnNlW1tuYW1lcyhjcmZNb2RlbEBkYXRhQGVudiRyZXNwb25zZSldXSkpKSlcblxuICAgICMgT09CIFJNU0UsIGVycm9yIHF1YXJ0aWxlcyBhbmQgUnNxdWFyZWRcbiAgICBjcmZPT0JSTVNFIDwtIGNyZk9PQlJNU0UgKyBzcXJ0KG1lYW4oY3JmTW9kZWxPT0JFcnJeMikpXG4gICAgY3JmT09CTUFFIDwtIGNyZk9PQk1BRSArIG1lYW4oYWJzKGNyZk1vZGVsT09CRXJyKSlcbiAgICBjcmZPT0JFcnJSMiA8LSBjcmZPT0JFcnJSMiArIGNvcihhcy5udW1lcmljKGFzLm1hdHJpeChjcmZNb2RlbE9PQikpLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGFzLm51bWVyaWMoYXMubWF0cml4KGNyZk1vZGVsQGRhdGFAZW52JHJlc3BvbnNlW1tuYW1lcyhjcmZNb2RlbEBkYXRhQGVudiRyZXNwb25zZSldXSkpKV4yXG5cbiAgICAjIHNldCByYW5kb20gc2VlZFxuICAgIHNldC5zZWVkKHNlZWRzW2l0ZXJzXSlcblxuICAgICMgc2V0IHJhbmRvbSBzZWVkXG4gICAgc2V0LnNlZWQoc2VlZHNbaXRlcnNdKVxuICAgICMgY29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZVxuICAgIGNyZkNvblBlcm1JbXAgPC0gcGVybWltcDo6cGVybWltcChjcmZNb2RlbCwgbnBlcm09bnBlcm0sIGNvbmRpdGlvbmFsPVRSVUUsIHRocmVzaG9sZD1wZXJtSW1wQ29uZFRocmVzLCBwcm9ncmVzc0Jhcj1GQUxTRSlcbiAgICBcbiAgICBjcmZDb25QZXJtSW1wVmFscyA8LSBjcmZDb25QZXJtSW1wVmFscyArIGNyZkNvblBlcm1JbXAkdmFsdWVzXG4gICAgY3JmQ29uUGVybUltcFZhbHNQZXJUcmVlIDwtIHJiaW5kKGNyZkNvblBlcm1JbXBWYWxzUGVyVHJlZSwgY3JmQ29uUGVybUltcCRwZXJUcmVlKVxuICB9XG4gIFxuICAjIGF2ZXJhZ2UgbWV0cmljc1xuICBjcmZPT0JFcnJBbGwgPC0gY3JmT09CRXJyQWxsL2xlbmd0aChzZWVkcylcbiAgY3JmT09CUk1TRSA8LSBjcmZPT0JSTVNFL2xlbmd0aChzZWVkcylcbiAgY3JmT09CTUFFIDwtIGNyZk9PQk1BRS9sZW5ndGgoc2VlZHMpXG4gIGNyZk9PQkVyclIyIDwtIGNyZk9PQkVyclIyL2xlbmd0aChzZWVkcylcbiAgY3JmQ29uUGVybUltcFZhbHMgPC0gZGF0YS5mcmFtZShDb25kUGVybUltcD1zb3J0KGNyZkNvblBlcm1JbXBWYWxzL2xlbmd0aChzZWVkcyksIGRlY3JlYXNpbmc9VFJVRSkpXG4gICNjcmZDb25QZXJtSW1wVmFsc01uIDwtIHNvcnQoY29sTWVhbnMoY3JmQ29uUGVybUltcFZhbHNQZXJUcmVlKSwgZGVjcmVhc2luZz1UUlVFKSAgIyBtZWFuIG9mIGNvbmRpdGlvbmFsIHZhcmlhYmxlIGltcG9ydGFuY2UgdmFsdWVzIHBlciB0cmVlIChzYW1lIGFzIGNyZkNvblBlcm1JbXBWYWxzKVxuICBjcmZDb25QZXJtSW1wVmFsc1F0bCA8LSBkYXRhLmZyYW1lKGFwcGx5KGNyZkNvblBlcm1JbXBWYWxzUGVyVHJlZSwgMiwgcXVhbnRpbGUsIHByb2JzPWMoMC4yNSwgMC41MCwgMC43NSkpKVxuICBcbiAgcmVzdWx0c091dCA8LSBsaXN0KCdPT0JfUk1TRSc9Y3JmT09CUk1TRSwgJ09PQl9NQUUnPWNyZk9PQk1BRSwgJ1JzcXVhcmVkJz1jcmZPT0JFcnJSMiwgJ2NvbmRpdGlvbmFsX3Blcm1pbXAnPWNyZkNvblBlcm1JbXBWYWxzLCAgICAgICAgICAgICAgICAgICAgICAnY29uZGl0aW9uYWxfcGVybWltcF9wZXJUcmVlJz1jcmZDb25QZXJtSW1wVmFsc1BlclRyZWUsICdjb25kaXRpb25hbF9wZXJtaW1wX3F0bCc9Y3JmQ29uUGVybUltcFZhbHNRdGwpXG4gIHJldHVybihyZXN1bHRzT3V0KVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
multi_crfReg <- function(dataIn, iVars, dVar, seeds, ntree, mtry, permImpCondThres=0.95, minsplit=20, minbucket=7, nperm=1){
# initialise variables
crfOOBErrAll <- 0
crfOOBRMSE <- 0
crfOOBMAE <- 0
crfOOBErrR2 <- 0
crfMarPermImpVals <- 0
crfConPermImpVals <- 0
crfMarPermImpValsPerTree <- data.frame()
crfConPermImpValsPerTree <- data.frame()
for (iters in 1:length(seeds)){
# formula for regression
formVars <- reformulate(iVars, dVar)
# set random seed
set.seed(seeds[iters])
# train crf model
crfModel <- party::cforest(formVars, data=dataIn,
controls=party::cforest_unbiased(ntree=ntree,
mtry=mtry,
minsplit=minsplit,
minbucket=minbucket))
# get OOB predictions
crfModelOOB <- predict(crfModel, OOB=TRUE, type='response')
# get OOB error
crfModelOOBErr <- as.numeric(as.matrix(as.numeric(as.matrix(crfModelOOB))
- as.numeric(as.matrix(crfModel@data@env$response[[names(crfModel@data@env$response)]]))))
# OOB RMSE, error quartiles and Rsquared
crfOOBRMSE <- crfOOBRMSE + sqrt(mean(crfModelOOBErr^2))
crfOOBMAE <- crfOOBMAE + mean(abs(crfModelOOBErr))
crfOOBErrR2 <- crfOOBErrR2 + cor(as.numeric(as.matrix(crfModelOOB)),
as.numeric(as.matrix(crfModel@data@env$response[[names(crfModel@data@env$response)]])))^2
# set random seed
set.seed(seeds[iters])
# set random seed
set.seed(seeds[iters])
# conditional variable permutation importance
crfConPermImp <- permimp::permimp(crfModel, nperm=nperm, conditional=TRUE, threshold=permImpCondThres, progressBar=FALSE)
crfConPermImpVals <- crfConPermImpVals + crfConPermImp$values
crfConPermImpValsPerTree <- rbind(crfConPermImpValsPerTree, crfConPermImp$perTree)
}
# average metrics
crfOOBErrAll <- crfOOBErrAll/length(seeds)
crfOOBRMSE <- crfOOBRMSE/length(seeds)
crfOOBMAE <- crfOOBMAE/length(seeds)
crfOOBErrR2 <- crfOOBErrR2/length(seeds)
crfConPermImpVals <- data.frame(CondPermImp=sort(crfConPermImpVals/length(seeds), decreasing=TRUE))
#crfConPermImpValsMn <- sort(colMeans(crfConPermImpValsPerTree), decreasing=TRUE) # mean of conditional variable importance values per tree (same as crfConPermImpVals)
crfConPermImpValsQtl <- data.frame(apply(crfConPermImpValsPerTree, 2, quantile, probs=c(0.25, 0.50, 0.75)))
resultsOut <- list('OOB_RMSE'=crfOOBRMSE, 'OOB_MAE'=crfOOBMAE, 'Rsquared'=crfOOBErrR2, 'conditional_permimp'=crfConPermImpVals, 'conditional_permimp_perTree'=crfConPermImpValsPerTree, 'conditional_permimp_qtl'=crfConPermImpValsQtl)
return(resultsOut)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXRkV3gwYVY5amNtWlNaV2NnUEMwZ1puVnVZM1JwYjI0b1pHRjBZVWx1TENCcFZtRnljeXdnWkZaaGNpd2djMlZsWkhNc0lHNTBjbVZsTENCdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQVEF1T1RVc0lHMXBibk53YkdsMFBUSXdMQ0J0YVc1aWRXTnJaWFE5Tnl3Z2JuQmxjbTA5TVNsN1hHNGdJQ01nYVc1cGRHbGhiR2x6WlNCMllYSnBZV0pzWlhOY2JpQWdZM0ptVDA5Q1JYSnlRV3hzSUR3dElEQmNiaUFnWTNKbVQwOUNVazFUUlNBOExTQXdYRzRnSUdOeVprOVBRazFCUlNBOExTQXdYRzRnSUdOeVprOVBRa1Z5Y2xJeUlEd3RJREJjYmlBZ1kzSm1UV0Z5VUdWeWJVbHRjRlpoYkhNZ1BDMGdNRnh1SUNCamNtWkRiMjVRWlhKdFNXMXdWbUZzY3lBOExTQXdYRzRnSUdOeVprMWhjbEJsY20xSmJYQldZV3h6VUdWeVZISmxaU0E4TFNCa1lYUmhMbVp5WVcxbEtDbGNiaUFnWTNKbVEyOXVVR1Z5YlVsdGNGWmhiSE5RWlhKVWNtVmxJRHd0SUdSaGRHRXVabkpoYldVb0tWeHVJQ0JjYmlBZ1ptOXlJQ2hwZEdWeWN5QnBiaUF4T214bGJtZDBhQ2h6WldWa2N5a3BlMXh1SUNBZ0lGeHVJQ0FnSUNNZ1ptOXliWFZzWVNCbWIzSWdjbVZuY21WemMybHZibHh1SUNBZ0lHWnZjbTFXWVhKeklEd3RJSEpsWm05eWJYVnNZWFJsS0dsV1lYSnpMQ0JrVm1GeUtWeHVJQ0FnSUZ4dUlDQWdJQ01nYzJWMElISmhibVJ2YlNCelpXVmtYRzRnSUNBZ2MyVjBMbk5sWldRb2MyVmxaSE5iYVhSbGNuTmRLVnh1SUNBZ0lDTWdkSEpoYVc0Z1kzSm1JRzF2WkdWc1hHNGdJQ0FnWTNKbVRXOWtaV3dnUEMwZ2NHRnlkSGs2T21ObWIzSmxjM1FvWm05eWJWWmhjbk1zSUdSaGRHRTlaR0YwWVVsdUxGeHVJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUdOdmJuUnliMnh6UFhCaGNuUjVPanBqWm05eVpYTjBYM1Z1WW1saGMyVmtLRzUwY21WbFBXNTBjbVZsTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lHMTBjbms5YlhSeWVTeGNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3hjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtTbGNiaUFnSUNCY2JpQWdJQ0FqSUdkbGRDQlBUMElnY0hKbFpHbGpkR2x2Ym5OY2JpQWdJQ0JqY21aTmIyUmxiRTlQUWlBOExTQndjbVZrYVdOMEtHTnlaazF2WkdWc0xDQlBUMEk5VkZKVlJTd2dkSGx3WlQwbmNtVnpjRzl1YzJVbktWeHVJQ0FnSUZ4dUlDQWdJQ01nWjJWMElFOVBRaUJsY25KdmNseHVJQ0FnSUdOeVprMXZaR1ZzVDA5Q1JYSnlJRHd0SUdGekxtNTFiV1Z5YVdNb1lYTXViV0YwY21sNEtHRnpMbTUxYldWeWFXTW9ZWE11YldGMGNtbDRLR055WmsxdlpHVnNUMDlDS1NsY2JpQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0xTQmhjeTV1ZFcxbGNtbGpLR0Z6TG0xaGRISnBlQ2hqY21aTmIyUmxiRUJrWVhSaFFHVnVkaVJ5WlhOd2IyNXpaVnRiYm1GdFpYTW9ZM0ptVFc5a1pXeEFaR0YwWVVCbGJuWWtjbVZ6Y0c5dWMyVXBYVjBwS1NrcFhHNWNiaUFnSUNBaklFOVBRaUJTVFZORkxDQmxjbkp2Y2lCeGRXRnlkR2xzWlhNZ1lXNWtJRkp6Y1hWaGNtVmtYRzRnSUNBZ1kzSm1UMDlDVWsxVFJTQThMU0JqY21aUFQwSlNUVk5GSUNzZ2MzRnlkQ2h0WldGdUtHTnlaazF2WkdWc1QwOUNSWEp5WGpJcEtWeHVJQ0FnSUdOeVprOVBRazFCUlNBOExTQmpjbVpQVDBKTlFVVWdLeUJ0WldGdUtHRmljeWhqY21aTmIyUmxiRTlQUWtWeWNpa3BYRzRnSUNBZ1kzSm1UMDlDUlhKeVVqSWdQQzBnWTNKbVQwOUNSWEp5VWpJZ0t5QmpiM0lvWVhNdWJuVnRaWEpwWXloaGN5NXRZWFJ5YVhnb1kzSm1UVzlrWld4UFQwSXBLU3hjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCaGN5NXVkVzFsY21saktHRnpMbTFoZEhKcGVDaGpjbVpOYjJSbGJFQmtZWFJoUUdWdWRpUnlaWE53YjI1elpWdGJibUZ0WlhNb1kzSm1UVzlrWld4QVpHRjBZVUJsYm5Za2NtVnpjRzl1YzJVcFhWMHBLU2xlTWx4dVhHNGdJQ0FnSXlCelpYUWdjbUZ1Wkc5dElITmxaV1JjYmlBZ0lDQnpaWFF1YzJWbFpDaHpaV1ZrYzF0cGRHVnljMTBwWEc1Y2JpQWdJQ0FqSUhObGRDQnlZVzVrYjIwZ2MyVmxaRnh1SUNBZ0lITmxkQzV6WldWa0tITmxaV1J6VzJsMFpYSnpYU2xjYmlBZ0lDQWpJR052Ym1ScGRHbHZibUZzSUhaaGNtbGhZbXhsSUhCbGNtMTFkR0YwYVc5dUlHbHRjRzl5ZEdGdVkyVmNiaUFnSUNCamNtWkRiMjVRWlhKdFNXMXdJRHd0SUhCbGNtMXBiWEE2T25CbGNtMXBiWEFvWTNKbVRXOWtaV3dzSUc1d1pYSnRQVzV3WlhKdExDQmpiMjVrYVhScGIyNWhiRDFVVWxWRkxDQjBhSEpsYzJodmJHUTljR1Z5YlVsdGNFTnZibVJVYUhKbGN5d2djSEp2WjNKbGMzTkNZWEk5UmtGTVUwVXBYRzRnSUNBZ1hHNGdJQ0FnWTNKbVEyOXVVR1Z5YlVsdGNGWmhiSE1nUEMwZ1kzSm1RMjl1VUdWeWJVbHRjRlpoYkhNZ0t5QmpjbVpEYjI1UVpYSnRTVzF3SkhaaGJIVmxjMXh1SUNBZ0lHTnlaa052YmxCbGNtMUpiWEJXWVd4elVHVnlWSEpsWlNBOExTQnlZbWx1WkNoamNtWkRiMjVRWlhKdFNXMXdWbUZzYzFCbGNsUnlaV1VzSUdOeVprTnZibEJsY20xSmJYQWtjR1Z5VkhKbFpTbGNiaUFnZlZ4dUlDQmNiaUFnSXlCaGRtVnlZV2RsSUcxbGRISnBZM05jYmlBZ1kzSm1UMDlDUlhKeVFXeHNJRHd0SUdOeVprOVBRa1Z5Y2tGc2JDOXNaVzVuZEdnb2MyVmxaSE1wWEc0Z0lHTnlaazlQUWxKTlUwVWdQQzBnWTNKbVQwOUNVazFUUlM5c1pXNW5kR2dvYzJWbFpITXBYRzRnSUdOeVprOVBRazFCUlNBOExTQmpjbVpQVDBKTlFVVXZiR1Z1WjNSb0tITmxaV1J6S1Z4dUlDQmpjbVpQVDBKRmNuSlNNaUE4TFNCamNtWlBUMEpGY25KU01pOXNaVzVuZEdnb2MyVmxaSE1wWEc0Z0lHTnlaa052YmxCbGNtMUpiWEJXWVd4eklEd3RJR1JoZEdFdVpuSmhiV1VvUTI5dVpGQmxjbTFKYlhBOWMyOXlkQ2hqY21aRGIyNVFaWEp0U1cxd1ZtRnNjeTlzWlc1bmRHZ29jMlZsWkhNcExDQmtaV055WldGemFXNW5QVlJTVlVVcEtWeHVJQ0FqWTNKbVEyOXVVR1Z5YlVsdGNGWmhiSE5OYmlBOExTQnpiM0owS0dOdmJFMWxZVzV6S0dOeVprTnZibEJsY20xSmJYQldZV3h6VUdWeVZISmxaU2tzSUdSbFkzSmxZWE5wYm1jOVZGSlZSU2tnSUNNZ2JXVmhiaUJ2WmlCamIyNWthWFJwYjI1aGJDQjJZWEpwWVdKc1pTQnBiWEJ2Y25SaGJtTmxJSFpoYkhWbGN5QndaWElnZEhKbFpTQW9jMkZ0WlNCaGN5QmpjbVpEYjI1UVpYSnRTVzF3Vm1Gc2N5bGNiaUFnWTNKbVEyOXVVR1Z5YlVsdGNGWmhiSE5SZEd3Z1BDMGdaR0YwWVM1bWNtRnRaU2hoY0hCc2VTaGpjbVpEYjI1UVpYSnRTVzF3Vm1Gc2MxQmxjbFJ5WldVc0lESXNJSEYxWVc1MGFXeGxMQ0J3Y205aWN6MWpLREF1TWpVc0lEQXVOVEFzSURBdU56VXBLU2xjYmlBZ1hHNGdJSEpsYzNWc2RITlBkWFFnUEMwZ2JHbHpkQ2duVDA5Q1gxSk5VMFVuUFdOeVprOVBRbEpOVTBVc0lDZFBUMEpmVFVGRkp6MWpjbVpQVDBKTlFVVXNJQ2RTYzNGMVlYSmxaQ2M5WTNKbVQwOUNSWEp5VWpJc0lDZGpiMjVrYVhScGIyNWhiRjl3WlhKdGFXMXdKejFqY21aRGIyNVFaWEp0U1cxd1ZtRnNjeXdnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0oyTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQmZjR1Z5VkhKbFpTYzlZM0ptUTI5dVVHVnliVWx0Y0ZaaGJITlFaWEpVY21WbExDQW5ZMjl1WkdsMGFXOXVZV3hmY0dWeWJXbHRjRjl4ZEd3blBXTnlaa052YmxCbGNtMUpiWEJXWVd4elVYUnNLVnh1SUNCeVpYUjFjbTRvY21WemRXeDBjMDkxZENsY2JuMWNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG5tdWx0aV9jcmZSZWcgPC0gZnVuY3Rpb24oZGF0YUluLCBpVmFycywgZFZhciwgc2VlZHMsIG50cmVlLCBtdHJ5LCBwZXJtSW1wQ29uZFRocmVzPTAuOTUsIG1pbnNwbGl0PTIwLCBtaW5idWNrZXQ9NywgbnBlcm09MSl7XG4gICMgaW5pdGlhbGlzZSB2YXJpYWJsZXNcbiAgY3JmT09CRXJyQWxsIDwtIDBcbiAgY3JmT09CUk1TRSA8LSAwXG4gIGNyZk9PQk1BRSA8LSAwXG4gIGNyZk9PQkVyclIyIDwtIDBcbiAgY3JmTWFyUGVybUltcFZhbHMgPC0gMFxuICBjcmZDb25QZXJtSW1wVmFscyA8LSAwXG4gIGNyZk1hclBlcm1JbXBWYWxzUGVyVHJlZSA8LSBkYXRhLmZyYW1lKClcbiAgY3JmQ29uUGVybUltcFZhbHNQZXJUcmVlIDwtIGRhdGEuZnJhbWUoKVxuICBcbiAgZm9yIChpdGVycyBpbiAxOmxlbmd0aChzZWVkcykpe1xuICAgIFxuICAgICMgZm9ybXVsYSBmb3IgcmVncmVzc2lvblxuICAgIGZvcm1WYXJzIDwtIHJlZm9ybXVsYXRlKGlWYXJzLCBkVmFyKVxuICAgIFxuICAgICMgc2V0IHJhbmRvbSBzZWVkXG4gICAgc2V0LnNlZWQoc2VlZHNbaXRlcnNdKVxuICAgICMgdHJhaW4gY3JmIG1vZGVsXG4gICAgY3JmTW9kZWwgPC0gcGFydHk6OmNmb3Jlc3QoZm9ybVZhcnMsIGRhdGE9ZGF0YUluLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbnRyb2xzPXBhcnR5OjpjZm9yZXN0X3VuYmlhc2VkKG50cmVlPW50cmVlLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG10cnk9bXRyeSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtaW5zcGxpdD1taW5zcGxpdCxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtaW5idWNrZXQ9bWluYnVja2V0KSlcbiAgICBcbiAgICAjIGdldCBPT0IgcHJlZGljdGlvbnNcbiAgICBjcmZNb2RlbE9PQiA8LSBwcmVkaWN0KGNyZk1vZGVsLCBPT0I9VFJVRSwgdHlwZT0ncmVzcG9uc2UnKVxuICAgIFxuICAgICMgZ2V0IE9PQiBlcnJvclxuICAgIGNyZk1vZGVsT09CRXJyIDwtIGFzLm51bWVyaWMoYXMubWF0cml4KGFzLm51bWVyaWMoYXMubWF0cml4KGNyZk1vZGVsT09CKSlcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgLSBhcy5udW1lcmljKGFzLm1hdHJpeChjcmZNb2RlbEBkYXRhQGVudiRyZXNwb25zZVtbbmFtZXMoY3JmTW9kZWxAZGF0YUBlbnYkcmVzcG9uc2UpXV0pKSkpXG5cbiAgICAjIE9PQiBSTVNFLCBlcnJvciBxdWFydGlsZXMgYW5kIFJzcXVhcmVkXG4gICAgY3JmT09CUk1TRSA8LSBjcmZPT0JSTVNFICsgc3FydChtZWFuKGNyZk1vZGVsT09CRXJyXjIpKVxuICAgIGNyZk9PQk1BRSA8LSBjcmZPT0JNQUUgKyBtZWFuKGFicyhjcmZNb2RlbE9PQkVycikpXG4gICAgY3JmT09CRXJyUjIgPC0gY3JmT09CRXJyUjIgKyBjb3IoYXMubnVtZXJpYyhhcy5tYXRyaXgoY3JmTW9kZWxPT0IpKSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBhcy5udW1lcmljKGFzLm1hdHJpeChjcmZNb2RlbEBkYXRhQGVudiRyZXNwb25zZVtbbmFtZXMoY3JmTW9kZWxAZGF0YUBlbnYkcmVzcG9uc2UpXV0pKSleMlxuXG4gICAgIyBzZXQgcmFuZG9tIHNlZWRcbiAgICBzZXQuc2VlZChzZWVkc1tpdGVyc10pXG5cbiAgICAjIHNldCByYW5kb20gc2VlZFxuICAgIHNldC5zZWVkKHNlZWRzW2l0ZXJzXSlcbiAgICAjIGNvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2VcbiAgICBjcmZDb25QZXJtSW1wIDwtIHBlcm1pbXA6OnBlcm1pbXAoY3JmTW9kZWwsIG5wZXJtPW5wZXJtLCBjb25kaXRpb25hbD1UUlVFLCB0aHJlc2hvbGQ9cGVybUltcENvbmRUaHJlcywgcHJvZ3Jlc3NCYXI9RkFMU0UpXG4gICAgXG4gICAgY3JmQ29uUGVybUltcFZhbHMgPC0gY3JmQ29uUGVybUltcFZhbHMgKyBjcmZDb25QZXJtSW1wJHZhbHVlc1xuICAgIGNyZkNvblBlcm1JbXBWYWxzUGVyVHJlZSA8LSByYmluZChjcmZDb25QZXJtSW1wVmFsc1BlclRyZWUsIGNyZkNvblBlcm1JbXAkcGVyVHJlZSlcbiAgfVxuICBcbiAgIyBhdmVyYWdlIG1ldHJpY3NcbiAgY3JmT09CRXJyQWxsIDwtIGNyZk9PQkVyckFsbC9sZW5ndGgoc2VlZHMpXG4gIGNyZk9PQlJNU0UgPC0gY3JmT09CUk1TRS9sZW5ndGgoc2VlZHMpXG4gIGNyZk9PQk1BRSA8LSBjcmZPT0JNQUUvbGVuZ3RoKHNlZWRzKVxuICBjcmZPT0JFcnJSMiA8LSBjcmZPT0JFcnJSMi9sZW5ndGgoc2VlZHMpXG4gIGNyZkNvblBlcm1JbXBWYWxzIDwtIGRhdGEuZnJhbWUoQ29uZFBlcm1JbXA9c29ydChjcmZDb25QZXJtSW1wVmFscy9sZW5ndGgoc2VlZHMpLCBkZWNyZWFzaW5nPVRSVUUpKVxuICAjY3JmQ29uUGVybUltcFZhbHNNbiA8LSBzb3J0KGNvbE1lYW5zKGNyZkNvblBlcm1JbXBWYWxzUGVyVHJlZSksIGRlY3JlYXNpbmc9VFJVRSkgICMgbWVhbiBvZiBjb25kaXRpb25hbCB2YXJpYWJsZSBpbXBvcnRhbmNlIHZhbHVlcyBwZXIgdHJlZSAoc2FtZSBhcyBjcmZDb25QZXJtSW1wVmFscylcbiAgY3JmQ29uUGVybUltcFZhbHNRdGwgPC0gZGF0YS5mcmFtZShhcHBseShjcmZDb25QZXJtSW1wVmFsc1BlclRyZWUsIDIsIHF1YW50aWxlLCBwcm9icz1jKDAuMjUsIDAuNTAsIDAuNzUpKSlcbiAgXG4gIHJlc3VsdHNPdXQgPC0gbGlzdCgnT09CX1JNU0UnPWNyZk9PQlJNU0UsICdPT0JfTUFFJz1jcmZPT0JNQUUsICdSc3F1YXJlZCc9Y3JmT09CRXJyUjIsICdjb25kaXRpb25hbF9wZXJtaW1wJz1jcmZDb25QZXJtSW1wVmFscywgICAgICAgICAgICAgICAgICAgICAgJ2NvbmRpdGlvbmFsX3Blcm1pbXBfcGVyVHJlZSc9Y3JmQ29uUGVybUltcFZhbHNQZXJUcmVlLCAnY29uZGl0aW9uYWxfcGVybWltcF9xdGwnPWNyZkNvblBlcm1JbXBWYWxzUXRsKVxuICByZXR1cm4ocmVzdWx0c091dClcbn1cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5tdWx0aV9jcmZSZWcgPC0gZnVuY3Rpb24oZGF0YUluLCBpVmFycywgZFZhciwgc2VlZHMsIG50cmVlLCBtdHJ5LCBwZXJtSW1wQ29uZFRocmVzPTAuOTUsIG1pbnNwbGl0PTIwLCBtaW5idWNrZXQ9NywgbnBlcm09MSl7XG4gICMgaW5pdGlhbGlzZSB2YXJpYWJsZXNcbiAgY3JmT09CRXJyQWxsIDwtIDBcbiAgY3JmT09CUk1TRSA8LSAwXG4gIGNyZk9PQk1BRSA8LSAwXG4gIGNyZk9PQkVyclIyIDwtIDBcbiAgY3JmTWFyUGVybUltcFZhbHMgPC0gMFxuICBjcmZDb25QZXJtSW1wVmFscyA8LSAwXG4gIGNyZk1hclBlcm1JbXBWYWxzUGVyVHJlZSA8LSBkYXRhLmZyYW1lKClcbiAgY3JmQ29uUGVybUltcFZhbHNQZXJUcmVlIDwtIGRhdGEuZnJhbWUoKVxuICBcbiAgZm9yIChpdGVycyBpbiAxOmxlbmd0aChzZWVkcykpe1xuICAgIFxuICAgICMgZm9ybXVsYSBmb3IgcmVncmVzc2lvblxuICAgIGZvcm1WYXJzIDwtIHJlZm9ybXVsYXRlKGlWYXJzLCBkVmFyKVxuICAgIFxuICAgICMgc2V0IHJhbmRvbSBzZWVkXG4gICAgc2V0LnNlZWQoc2VlZHNbaXRlcnNdKVxuICAgICMgdHJhaW4gY3JmIG1vZGVsXG4gICAgY3JmTW9kZWwgPC0gcGFydHk6OmNmb3Jlc3QoZm9ybVZhcnMsIGRhdGE9ZGF0YUluLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbnRyb2xzPXBhcnR5OjpjZm9yZXN0X3VuYmlhc2VkKG50cmVlPW50cmVlLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG10cnk9bXRyeSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtaW5zcGxpdD1taW5zcGxpdCxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtaW5idWNrZXQ9bWluYnVja2V0KSlcbiAgICBcbiAgICAjIGdldCBPT0IgcHJlZGljdGlvbnNcbiAgICBjcmZNb2RlbE9PQiA8LSBwcmVkaWN0KGNyZk1vZGVsLCBPT0I9VFJVRSwgdHlwZT0ncmVzcG9uc2UnKVxuICAgIFxuICAgICMgZ2V0IE9PQiBlcnJvclxuICAgIGNyZk1vZGVsT09CRXJyIDwtIGFzLm51bWVyaWMoYXMubWF0cml4KGFzLm51bWVyaWMoYXMubWF0cml4KGNyZk1vZGVsT09CKSlcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgLSBhcy5udW1lcmljKGFzLm1hdHJpeChjcmZNb2RlbEBkYXRhQGVudiRyZXNwb25zZVtbbmFtZXMoY3JmTW9kZWxAZGF0YUBlbnYkcmVzcG9uc2UpXV0pKSkpXG5cbiAgICAjIE9PQiBSTVNFLCBlcnJvciBxdWFydGlsZXMgYW5kIFJzcXVhcmVkXG4gICAgY3JmT09CUk1TRSA8LSBjcmZPT0JSTVNFICsgc3FydChtZWFuKGNyZk1vZGVsT09CRXJyXjIpKVxuICAgIGNyZk9PQk1BRSA8LSBjcmZPT0JNQUUgKyBtZWFuKGFicyhjcmZNb2RlbE9PQkVycikpXG4gICAgY3JmT09CRXJyUjIgPC0gY3JmT09CRXJyUjIgKyBjb3IoYXMubnVtZXJpYyhhcy5tYXRyaXgoY3JmTW9kZWxPT0IpKSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBhcy5udW1lcmljKGFzLm1hdHJpeChjcmZNb2RlbEBkYXRhQGVudiRyZXNwb25zZVtbbmFtZXMoY3JmTW9kZWxAZGF0YUBlbnYkcmVzcG9uc2UpXV0pKSleMlxuXG4gICAgIyBzZXQgcmFuZG9tIHNlZWRcbiAgICBzZXQuc2VlZChzZWVkc1tpdGVyc10pXG5cbiAgICAjIHNldCByYW5kb20gc2VlZFxuICAgIHNldC5zZWVkKHNlZWRzW2l0ZXJzXSlcbiAgICAjIGNvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2VcbiAgICBjcmZDb25QZXJtSW1wIDwtIHBlcm1pbXA6OnBlcm1pbXAoY3JmTW9kZWwsIG5wZXJtPW5wZXJtLCBjb25kaXRpb25hbD1UUlVFLCB0aHJlc2hvbGQ9cGVybUltcENvbmRUaHJlcywgcHJvZ3Jlc3NCYXI9RkFMU0UpXG4gICAgXG4gICAgY3JmQ29uUGVybUltcFZhbHMgPC0gY3JmQ29uUGVybUltcFZhbHMgKyBjcmZDb25QZXJtSW1wJHZhbHVlc1xuICAgIGNyZkNvblBlcm1JbXBWYWxzUGVyVHJlZSA8LSByYmluZChjcmZDb25QZXJtSW1wVmFsc1BlclRyZWUsIGNyZkNvblBlcm1JbXAkcGVyVHJlZSlcbiAgfVxuICBcbiAgIyBhdmVyYWdlIG1ldHJpY3NcbiAgY3JmT09CRXJyQWxsIDwtIGNyZk9PQkVyckFsbC9sZW5ndGgoc2VlZHMpXG4gIGNyZk9PQlJNU0UgPC0gY3JmT09CUk1TRS9sZW5ndGgoc2VlZHMpXG4gIGNyZk9PQk1BRSA8LSBjcmZPT0JNQUUvbGVuZ3RoKHNlZWRzKVxuICBjcmZPT0JFcnJSMiA8LSBjcmZPT0JFcnJSMi9sZW5ndGgoc2VlZHMpXG4gIGNyZkNvblBlcm1JbXBWYWxzIDwtIGRhdGEuZnJhbWUoQ29uZFBlcm1JbXA9c29ydChjcmZDb25QZXJtSW1wVmFscy9sZW5ndGgoc2VlZHMpLCBkZWNyZWFzaW5nPVRSVUUpKVxuICAjY3JmQ29uUGVybUltcFZhbHNNbiA8LSBzb3J0KGNvbE1lYW5zKGNyZkNvblBlcm1JbXBWYWxzUGVyVHJlZSksIGRlY3JlYXNpbmc9VFJVRSkgICMgbWVhbiBvZiBjb25kaXRpb25hbCB2YXJpYWJsZSBpbXBvcnRhbmNlIHZhbHVlcyBwZXIgdHJlZSAoc2FtZSBhcyBjcmZDb25QZXJtSW1wVmFscylcbiAgY3JmQ29uUGVybUltcFZhbHNRdGwgPC0gZGF0YS5mcmFtZShhcHBseShjcmZDb25QZXJtSW1wVmFsc1BlclRyZWUsIDIsIHF1YW50aWxlLCBwcm9icz1jKDAuMjUsIDAuNTAsIDAuNzUpKSlcbiAgXG4gIHJlc3VsdHNPdXQgPC0gbGlzdCgnT09CX1JNU0UnPWNyZk9PQlJNU0UsICdPT0JfTUFFJz1jcmZPT0JNQUUsICdSc3F1YXJlZCc9Y3JmT09CRXJyUjIsICdjb25kaXRpb25hbF9wZXJtaW1wJz1jcmZDb25QZXJtSW1wVmFscywgICAgICAgICAgICAgICAgICAgICAgJ2NvbmRpdGlvbmFsX3Blcm1pbXBfcGVyVHJlZSc9Y3JmQ29uUGVybUltcFZhbHNQZXJUcmVlLCAnY29uZGl0aW9uYWxfcGVybWltcF9xdGwnPWNyZkNvblBlcm1JbXBWYWxzUXRsKVxuICByZXR1cm4ocmVzdWx0c091dClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
multi_crfReg <- function(dataIn, iVars, dVar, seeds, ntree, mtry, permImpCondThres=0.95, minsplit=20, minbucket=7, nperm=1){
# initialise variables
crfOOBErrAll <- 0
crfOOBRMSE <- 0
crfOOBMAE <- 0
crfOOBErrR2 <- 0
crfMarPermImpVals <- 0
crfConPermImpVals <- 0
crfMarPermImpValsPerTree <- data.frame()
crfConPermImpValsPerTree <- data.frame()
for (iters in 1:length(seeds)){
# formula for regression
formVars <- reformulate(iVars, dVar)
# set random seed
set.seed(seeds[iters])
# train crf model
crfModel <- party::cforest(formVars, data=dataIn,
controls=party::cforest_unbiased(ntree=ntree,
mtry=mtry,
minsplit=minsplit,
minbucket=minbucket))
# get OOB predictions
crfModelOOB <- predict(crfModel, OOB=TRUE, type='response')
# get OOB error
crfModelOOBErr <- as.numeric(as.matrix(as.numeric(as.matrix(crfModelOOB))
- as.numeric(as.matrix(crfModel@data@env$response[[names(crfModel@data@env$response)]]))))
# OOB RMSE, error quartiles and Rsquared
crfOOBRMSE <- crfOOBRMSE + sqrt(mean(crfModelOOBErr^2))
crfOOBMAE <- crfOOBMAE + mean(abs(crfModelOOBErr))
crfOOBErrR2 <- crfOOBErrR2 + cor(as.numeric(as.matrix(crfModelOOB)),
as.numeric(as.matrix(crfModel@data@env$response[[names(crfModel@data@env$response)]])))^2
# set random seed
set.seed(seeds[iters])
# set random seed
set.seed(seeds[iters])
# conditional variable permutation importance
crfConPermImp <- permimp::permimp(crfModel, nperm=nperm, conditional=TRUE, threshold=permImpCondThres, progressBar=FALSE)
crfConPermImpVals <- crfConPermImpVals + crfConPermImp$values
crfConPermImpValsPerTree <- rbind(crfConPermImpValsPerTree, crfConPermImp$perTree)
}
# average metrics
crfOOBErrAll <- crfOOBErrAll/length(seeds)
crfOOBRMSE <- crfOOBRMSE/length(seeds)
crfOOBMAE <- crfOOBMAE/length(seeds)
crfOOBErrR2 <- crfOOBErrR2/length(seeds)
crfConPermImpVals <- data.frame(CondPermImp=sort(crfConPermImpVals/length(seeds), decreasing=TRUE))
#crfConPermImpValsMn <- sort(colMeans(crfConPermImpValsPerTree), decreasing=TRUE) # mean of conditional variable importance values per tree (same as crfConPermImpVals)
crfConPermImpValsQtl <- data.frame(apply(crfConPermImpValsPerTree, 2, quantile, probs=c(0.25, 0.50, 0.75)))
resultsOut <- list('OOB_RMSE'=crfOOBRMSE, 'OOB_MAE'=crfOOBMAE, 'Rsquared'=crfOOBErrR2, 'conditional_permimp'=crfConPermImpVals, 'conditional_permimp_perTree'=crfConPermImpValsPerTree, 'conditional_permimp_qtl'=crfConPermImpValsQtl)
return(resultsOut)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
## Comparing rankings from two seeds
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVqY21aU1pXY2dQQzBnWm5WdVkzUnBiMjRvWkdGMFlVbHVMQ0JwVm1GeWN5d2daRlpoY2l3Z2MyVmxaSE1zSUc1MGNtVmxMQ0J0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBUQXVPVFVzSUcxcGJuTndiR2wwUFRJd0xDQnRhVzVpZFdOclpYUTlOeXdnYm5CbGNtMDlNU2w3WEc0Z0lDTWdhVzVwZEdsaGJHbHpaU0IyWVhKcFlXSnNaWE5jYmlBZ1kzSm1UMDlDUlhKeVFXeHNJRHd0SURCY2JpQWdZM0ptVDA5Q1VrMVRSU0E4TFNBd1hHNGdJR055Wms5UFFrMUJSU0E4TFNBd1hHNGdJR055Wms5UFFrVnljbEl5SUR3dElEQmNiaUFnWTNKbVRXRnlVR1Z5YlVsdGNGWmhiSE1nUEMwZ01GeHVJQ0JqY21aRGIyNVFaWEp0U1cxd1ZtRnNjeUE4TFNBd1hHNGdJR055WmsxaGNsQmxjbTFKYlhCV1lXeHpVR1Z5VkhKbFpTQThMU0JrWVhSaExtWnlZVzFsS0NsY2JpQWdZM0ptUTI5dVVHVnliVWx0Y0ZaaGJITlFaWEpVY21WbElEd3RJR1JoZEdFdVpuSmhiV1VvS1Z4dVhHNGdJQ01nWm05eWJYVnNZU0JtYjNJZ2NtVm5jbVZ6YzJsdmJseHVJQ0JtYjNKdFZtRnljeUE4TFNCeVpXWnZjbTExYkdGMFpTaHBWbUZ5Y3l3Z1pGWmhjaWxjYmlBZ1hHNGdJR1p2Y2lBb2FYUmxjbk1nYVc0Z01UcHNaVzVuZEdnb2MyVmxaSE1wS1h0Y2JpQWdYRzRnSUNBZ0l5QnpaWFFnY21GdVpHOXRJSE5sWldSY2JpQWdJQ0J6WlhRdWMyVmxaQ2h6WldWa2MxdHBkR1Z5YzEwcFhHNGdJQ0FnSXlCMGNtRnBiaUJqY21ZZ2JXOWtaV3hjYmlBZ0lDQmpjbVpOYjJSbGJDQThMU0J3WVhKMGVUbzZZMlp2Y21WemRDaG1iM0p0Vm1GeWN5d2daR0YwWVQxa1lYUmhTVzRzWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdZMjl1ZEhKdmJITTljR0Z5ZEhrNk9tTm1iM0psYzNSZmRXNWlhV0Z6WldRb2JuUnlaV1U5Ym5SeVpXVXNYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnYlhSeWVUMXRkSEo1TEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lHMXBibk53YkdsMFBXMXBibk53YkdsMExGeHVJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJRzFwYm1KMVkydGxkRDF0YVc1aWRXTnJaWFFwS1Z4dUlDQWdJRnh1SUNBZ0lDTWdZMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpWeHVJQ0FnSUdOeVprTnZibEJsY20xSmJYQWdQQzBnY0dWeWJXbHRjRG82Y0dWeWJXbHRjQ2hqY21aTmIyUmxiQ3dnYm5CbGNtMDlibkJsY20wc0lHTnZibVJwZEdsdmJtRnNQVlJTVlVVc0lIUm9jbVZ6YUc5c1pEMXdaWEp0U1cxd1EyOXVaRlJvY21WekxDQndjbTluY21WemMwSmhjajFHUVV4VFJTbGNiaUFnSUNCY2JpQWdJQ0JqY21aRGIyNVFaWEp0U1cxd1ZtRnNjeUE4TFNCamNtWkRiMjVRWlhKdFNXMXdKSFpoYkhWbGMxeHVJQ0FnSUZ4dUlDQWdJR2xtSUNocGRHVnljeUE5UFNBeEtYdGNiaUFnSUNBZ0lHTnlaa052YmxCbGNtMUpiWEJXWVd4ek1TQThMU0JrWVhSaExtWnlZVzFsS0VOdmJtUlFaWEp0U1cxd1BYTnZjblFvWTNKbVEyOXVVR1Z5YlVsdGNGWmhiSE1zSUdSbFkzSmxZWE5wYm1jOVZGSlZSU2twWEc0Z0lDQWdJQ0JqY21aRGIyNVFaWEp0U1cxd1ZtRnNjMUJsY2xSeVpXVXhJRHd0SUdOeVprTnZibEJsY20xSmJYQWtjR1Z5VkhKbFpWeHVJQ0FnSUNBZ1kzSm1RMjl1VUdWeWJVbHRjRlpoYkhOUmRHd3hJRHd0SUdSaGRHRXVabkpoYldVb1lYQndiSGtvWTNKbVEyOXVVR1Z5YlVsdGNGWmhiSE5RWlhKVWNtVmxNU3dnTWl3Z2NYVmhiblJwYkdVc0lIQnliMkp6UFdNb01DNHlOU3dnTUM0MU1Dd2dNQzQzTlNrcEtWeHVJQ0FnSUNBZ1hHNGdJQ0FnSUNBaklHZGxkQ0JQVDBJZ2NISmxaR2xqZEdsdmJuTmNiaUFnSUNBZ0lHTnlaazF2WkdWc1QwOUNJRHd0SUhCeVpXUnBZM1FvWTNKbVRXOWtaV3dzSUU5UFFqMVVVbFZGTENCMGVYQmxQU2R5WlhOd2IyNXpaU2NwWEc0Z0lDQWdJQ0JjYmlBZ0lDQWdJQ01nWjJWMElFOVBRaUJsY25KdmNseHVJQ0FnSUNBZ1kzSm1UVzlrWld4UFQwSkZjbklnUEMwZ1lYTXViblZ0WlhKcFl5aGhjeTV0WVhSeWFYZ29ZWE11Ym5WdFpYSnBZeWhoY3k1dFlYUnlhWGdvWTNKbVRXOWtaV3hQVDBJcEtWeHVJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQzBnWVhNdWJuVnRaWEpwWXloaGN5NXRZWFJ5YVhnb1kzSm1UVzlrWld4QVpHRjBZVUJsYm5Za2NtVnpjRzl1YzJWYlcyNWhiV1Z6S0dOeVprMXZaR1ZzUUdSaGRHRkFaVzUySkhKbGMzQnZibk5sS1YxZEtTa3BLVnh1SUNBZ0lDQWdYRzRnSUNBZ0lDQWpJRTlQUWlCU1RWTkZMQ0JsY25KdmNpQnhkV0Z5ZEdsc1pYTWdZVzVrSUZKemNYVmhjbVZrWEc0Z0lDQWdJQ0JqY21aUFQwSlNUVk5GSUR3dElITnhjblFvYldWaGJpaGpjbVpOYjJSbGJFOVBRa1Z5Y2w0eUtTbGNiaUFnSUNBZ0lHTnlaazlQUWsxQlJTQThMU0JqY21aUFQwSk5RVVVnS3lCdFpXRnVLR0ZpY3loamNtWk5iMlJsYkU5UFFrVnljaWtwWEc0Z0lDQWdJQ0JqY21aUFQwSkZjbkpTTWlBOExTQmpiM0lvWVhNdWJuVnRaWEpwWXloaGN5NXRZWFJ5YVhnb1kzSm1UVzlrWld4UFQwSXBLU3hjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUdGekxtNTFiV1Z5YVdNb1lYTXViV0YwY21sNEtHTnlaazF2WkdWc1FHUmhkR0ZBWlc1MkpISmxjM0J2Ym5ObFcxdHVZVzFsY3loamNtWk5iMlJsYkVCa1lYUmhRR1Z1ZGlSeVpYTndiMjV6WlNsZFhTa3BLVjR5WEc1Y2JpQWdJQ0FnSUgxY2JpQWdJQ0JjYmlBZ0lDQmxiSE5sZTF4dUlDQWdJQ0FnWTNKbVEyOXVVR1Z5YlVsdGNGWmhiSE5PSUR3dElHUmhkR0V1Wm5KaGJXVW9RMjl1WkZCbGNtMUpiWEE5YzI5eWRDaGpjbVpEYjI1UVpYSnRTVzF3Vm1Gc2N5d2daR1ZqY21WaGMybHVaejFVVWxWRktTbGNiaUFnSUNBZ0lGeHVJQ0FnSUNBZ2JsWmhja2x0Y0VOb1pXTnJjeUE4TFNCdGFXNG9iV0Y0S0hOMWJTaGpjbVpEYjI1UVpYSnRTVzF3Vm1Gc2N6RWdQajBnWTNKbVEyOXVVR1Z5YlVsdGNGWmhiSE14SkVOdmJtUlFaWEp0U1cxd1d6RmRLakF1TVNrc1hHNGdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnYzNWdEtHTnlaa052YmxCbGNtMUpiWEJXWVd4elRpQStQU0JqY21aRGIyNVFaWEp0U1cxd1ZtRnNjMDRrUTI5dVpGQmxjbTFKYlhCYk1WMHFNQzR4S1Nrc0lEUXBJQ0FqSUc1MWJXSmxjaUJ2WmlCMllYSnBZV0pzWlNCcGJYQnZjblJoYm1ObElIWmhiSFZsY3lCM2FYUm9JR0VnZG1Gc2RXVWdZWFFnYkdWaGMzUWdNVEFsSUc5bUlIUm9aU0JvYVdkb1pYTjBJR2x0Y0c5eWRHRnVZMlZjYmlBZ0lDQWdJR2xtSUNoemRXMG9jbTkzYm1GdFpYTW9ZM0ptUTI5dVVHVnliVWx0Y0ZaaGJITXhLVnN4T201V1lYSkpiWEJEYUdWamEzTmRJQ0U5SUhKdmQyNWhiV1Z6S0dOeVprTnZibEJsY20xSmJYQldZV3h6VGlsYk1UcHVWbUZ5U1cxd1EyaGxZMnR6WFNrZ1BpQXdLWHRjYmlBZ0lDQWdJQ0FnZDJGeWJtbHVaeWhjSWxCbGNtMTFkR0YwYVc5dUlHbHRjRzl5ZEdGdVkyVWdjbUZ1YXlCdmNtUmxjaUIzYVhSb2FXNGdNVEFsSUc5bUlHMWhlQ0JrYVdabVpYSnpJR0psZEhkbFpXNGdjMlZsWkhNNklHbHVZM0psWVhObElHNTFiV0psY2lCdlppQjBjbVZsY3lBb0oyNTBjbVZsSnlrZ2IzSWdiblZ0WW1WeUlHOW1JSEJsY20xMWRHRjBhVzl1Y3lBb0oyNXdaWEp0Snlrc0lHOXlJSE4xWW5OaGJYQnNaU0J2WmlCbVpXRjBkWEpsY3lBb0oyMTBjbmtuS1Z3aUtWeHVJQ0FnSUNBZ2ZWeHVJQ0FnSUNBZ1pXeHpaWHRjYmlBZ0lDQWdJQ0FnY21WemRXeDBjMDkxZENBOExTQnNhWE4wS0NkUFQwSmZaWEp5YjNKekp6MWpjbVpOYjJSbGJFOVBRa1Z5Y2l3Z0owOVBRbDlTVFZORkp6MWpjbVpQVDBKU1RWTkZMQ0FuVDA5Q1gwMUJSU2M5WTNKbVQwOUNUVUZGTENBblVuTnhkV0Z5WldRblBXTnlaazlQUWtWeWNsSXlMQ0FuWTI5dVpHbDBhVzl1WVd4ZmNHVnliV2x0Y0NjOVkzSm1RMjl1VUdWeWJVbHRjRlpoYkhNeExDQW5ZMjl1WkdsMGFXOXVZV3hmY0dWeWJXbHRjRjl3WlhKVWNtVmxKejFqY21aRGIyNVFaWEp0U1cxd1ZtRnNjMUJsY2xSeVpXVXhMQ0FuWTI5dVpHbDBhVzl1WVd4ZmNHVnliWEJwYlhCZmNYUnNKejFqY21aRGIyNVFaWEp0U1cxd1ZtRnNjMUYwYkRFcFhHNGdJQ0FnSUNBZ0lISmxkSFZ5YmloeVpYTjFiSFJ6VDNWMEtWeHVJQ0FnSUNBZ2ZWeHVJQ0FnSUNBZ1hHNGdJQ0FnZlZ4dUlDQWdJRnh1SUNCOVhHNWNibjFjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbmNyZlJlZyA8LSBmdW5jdGlvbihkYXRhSW4sIGlWYXJzLCBkVmFyLCBzZWVkcywgbnRyZWUsIG10cnksIHBlcm1JbXBDb25kVGhyZXM9MC45NSwgbWluc3BsaXQ9MjAsIG1pbmJ1Y2tldD03LCBucGVybT0xKXtcbiAgIyBpbml0aWFsaXNlIHZhcmlhYmxlc1xuICBjcmZPT0JFcnJBbGwgPC0gMFxuICBjcmZPT0JSTVNFIDwtIDBcbiAgY3JmT09CTUFFIDwtIDBcbiAgY3JmT09CRXJyUjIgPC0gMFxuICBjcmZNYXJQZXJtSW1wVmFscyA8LSAwXG4gIGNyZkNvblBlcm1JbXBWYWxzIDwtIDBcbiAgY3JmTWFyUGVybUltcFZhbHNQZXJUcmVlIDwtIGRhdGEuZnJhbWUoKVxuICBjcmZDb25QZXJtSW1wVmFsc1BlclRyZWUgPC0gZGF0YS5mcmFtZSgpXG5cbiAgIyBmb3JtdWxhIGZvciByZWdyZXNzaW9uXG4gIGZvcm1WYXJzIDwtIHJlZm9ybXVsYXRlKGlWYXJzLCBkVmFyKVxuICBcbiAgZm9yIChpdGVycyBpbiAxOmxlbmd0aChzZWVkcykpe1xuICBcbiAgICAjIHNldCByYW5kb20gc2VlZFxuICAgIHNldC5zZWVkKHNlZWRzW2l0ZXJzXSlcbiAgICAjIHRyYWluIGNyZiBtb2RlbFxuICAgIGNyZk1vZGVsIDwtIHBhcnR5OjpjZm9yZXN0KGZvcm1WYXJzLCBkYXRhPWRhdGFJbixcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb250cm9scz1wYXJ0eTo6Y2ZvcmVzdF91bmJpYXNlZChudHJlZT1udHJlZSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtdHJ5PW10cnksXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbWluc3BsaXQ9bWluc3BsaXQsXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbWluYnVja2V0PW1pbmJ1Y2tldCkpXG4gICAgXG4gICAgIyBjb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlXG4gICAgY3JmQ29uUGVybUltcCA8LSBwZXJtaW1wOjpwZXJtaW1wKGNyZk1vZGVsLCBucGVybT1ucGVybSwgY29uZGl0aW9uYWw9VFJVRSwgdGhyZXNob2xkPXBlcm1JbXBDb25kVGhyZXMsIHByb2dyZXNzQmFyPUZBTFNFKVxuICAgIFxuICAgIGNyZkNvblBlcm1JbXBWYWxzIDwtIGNyZkNvblBlcm1JbXAkdmFsdWVzXG4gICAgXG4gICAgaWYgKGl0ZXJzID09IDEpe1xuICAgICAgY3JmQ29uUGVybUltcFZhbHMxIDwtIGRhdGEuZnJhbWUoQ29uZFBlcm1JbXA9c29ydChjcmZDb25QZXJtSW1wVmFscywgZGVjcmVhc2luZz1UUlVFKSlcbiAgICAgIGNyZkNvblBlcm1JbXBWYWxzUGVyVHJlZTEgPC0gY3JmQ29uUGVybUltcCRwZXJUcmVlXG4gICAgICBjcmZDb25QZXJtSW1wVmFsc1F0bDEgPC0gZGF0YS5mcmFtZShhcHBseShjcmZDb25QZXJtSW1wVmFsc1BlclRyZWUxLCAyLCBxdWFudGlsZSwgcHJvYnM9YygwLjI1LCAwLjUwLCAwLjc1KSkpXG4gICAgICBcbiAgICAgICMgZ2V0IE9PQiBwcmVkaWN0aW9uc1xuICAgICAgY3JmTW9kZWxPT0IgPC0gcHJlZGljdChjcmZNb2RlbCwgT09CPVRSVUUsIHR5cGU9J3Jlc3BvbnNlJylcbiAgICAgIFxuICAgICAgIyBnZXQgT09CIGVycm9yXG4gICAgICBjcmZNb2RlbE9PQkVyciA8LSBhcy5udW1lcmljKGFzLm1hdHJpeChhcy5udW1lcmljKGFzLm1hdHJpeChjcmZNb2RlbE9PQikpXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgLSBhcy5udW1lcmljKGFzLm1hdHJpeChjcmZNb2RlbEBkYXRhQGVudiRyZXNwb25zZVtbbmFtZXMoY3JmTW9kZWxAZGF0YUBlbnYkcmVzcG9uc2UpXV0pKSkpXG4gICAgICBcbiAgICAgICMgT09CIFJNU0UsIGVycm9yIHF1YXJ0aWxlcyBhbmQgUnNxdWFyZWRcbiAgICAgIGNyZk9PQlJNU0UgPC0gc3FydChtZWFuKGNyZk1vZGVsT09CRXJyXjIpKVxuICAgICAgY3JmT09CTUFFIDwtIGNyZk9PQk1BRSArIG1lYW4oYWJzKGNyZk1vZGVsT09CRXJyKSlcbiAgICAgIGNyZk9PQkVyclIyIDwtIGNvcihhcy5udW1lcmljKGFzLm1hdHJpeChjcmZNb2RlbE9PQikpLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYXMubnVtZXJpYyhhcy5tYXRyaXgoY3JmTW9kZWxAZGF0YUBlbnYkcmVzcG9uc2VbW25hbWVzKGNyZk1vZGVsQGRhdGFAZW52JHJlc3BvbnNlKV1dKSkpXjJcblxuICAgICAgfVxuICAgIFxuICAgIGVsc2V7XG4gICAgICBjcmZDb25QZXJtSW1wVmFsc04gPC0gZGF0YS5mcmFtZShDb25kUGVybUltcD1zb3J0KGNyZkNvblBlcm1JbXBWYWxzLCBkZWNyZWFzaW5nPVRSVUUpKVxuICAgICAgXG4gICAgICBuVmFySW1wQ2hlY2tzIDwtIG1pbihtYXgoc3VtKGNyZkNvblBlcm1JbXBWYWxzMSA+PSBjcmZDb25QZXJtSW1wVmFsczEkQ29uZFBlcm1JbXBbMV0qMC4xKSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzdW0oY3JmQ29uUGVybUltcFZhbHNOID49IGNyZkNvblBlcm1JbXBWYWxzTiRDb25kUGVybUltcFsxXSowLjEpKSwgNCkgICMgbnVtYmVyIG9mIHZhcmlhYmxlIGltcG9ydGFuY2UgdmFsdWVzIHdpdGggYSB2YWx1ZSBhdCBsZWFzdCAxMCUgb2YgdGhlIGhpZ2hlc3QgaW1wb3J0YW5jZVxuICAgICAgaWYgKHN1bShyb3duYW1lcyhjcmZDb25QZXJtSW1wVmFsczEpWzE6blZhckltcENoZWNrc10gIT0gcm93bmFtZXMoY3JmQ29uUGVybUltcFZhbHNOKVsxOm5WYXJJbXBDaGVja3NdKSA+IDApe1xuICAgICAgICB3YXJuaW5nKFxcUGVybXV0YXRpb24gaW1wb3J0YW5jZSByYW5rIG9yZGVyIHdpdGhpbiAxMCUgb2YgbWF4IGRpZmZlcnMgYmV0d2VlbiBzZWVkczogaW5jcmVhc2UgbnVtYmVyIG9mIHRyZWVzICgnbnRyZWUnKSBvciBudW1iZXIgb2YgcGVybXV0YXRpb25zICgnbnBlcm0nKVxuIn0= -->
crfReg <- function(dataIn, iVars, dVar, seeds, ntree, mtry, permImpCondThres=0.95, minsplit=20, minbucket=7, nperm=1){
# initialise variables
crfOOBErrAll <- 0
crfOOBRMSE <- 0
crfOOBMAE <- 0
crfOOBErrR2 <- 0
crfMarPermImpVals <- 0
crfConPermImpVals <- 0
crfMarPermImpValsPerTree <- data.frame()
crfConPermImpValsPerTree <- data.frame()
# formula for regression
formVars <- reformulate(iVars, dVar)
for (iters in 1:length(seeds)){
# set random seed
set.seed(seeds[iters])
# train crf model
crfModel <- party::cforest(formVars, data=dataIn,
controls=party::cforest_unbiased(ntree=ntree,
mtry=mtry,
minsplit=minsplit,
minbucket=minbucket))
# conditional variable permutation importance
crfConPermImp <- permimp::permimp(crfModel, nperm=nperm, conditional=TRUE, threshold=permImpCondThres, progressBar=FALSE)
crfConPermImpVals <- crfConPermImp$values
if (iters == 1){
crfConPermImpVals1 <- data.frame(CondPermImp=sort(crfConPermImpVals, decreasing=TRUE))
crfConPermImpValsPerTree1 <- crfConPermImp$perTree
crfConPermImpValsQtl1 <- data.frame(apply(crfConPermImpValsPerTree1, 2, quantile, probs=c(0.25, 0.50, 0.75)))
# get OOB predictions
crfModelOOB <- predict(crfModel, OOB=TRUE, type='response')
# get OOB error
crfModelOOBErr <- as.numeric(as.matrix(as.numeric(as.matrix(crfModelOOB))
- as.numeric(as.matrix(crfModel@data@env$response[[names(crfModel@data@env$response)]]))))
# OOB RMSE, error quartiles and Rsquared
crfOOBRMSE <- sqrt(mean(crfModelOOBErr^2))
crfOOBMAE <- crfOOBMAE + mean(abs(crfModelOOBErr))
crfOOBErrR2 <- cor(as.numeric(as.matrix(crfModelOOB)),
as.numeric(as.matrix(crfModel@data@env$response[[names(crfModel@data@env$response)]])))^2
}
else{
crfConPermImpValsN <- data.frame(CondPermImp=sort(crfConPermImpVals, decreasing=TRUE))
nVarImpChecks <- min(max(sum(crfConPermImpVals1 >= crfConPermImpVals1$CondPermImp[1]*0.1),
sum(crfConPermImpValsN >= crfConPermImpValsN$CondPermImp[1]*0.1)), 4) # number of variable importance values with a value at least 10% of the highest importance
if (sum(rownames(crfConPermImpVals1)[1:nVarImpChecks] != rownames(crfConPermImpValsN)[1:nVarImpChecks]) > 0){
warning(\Permutation importance rank order within 10% of max differs between seeds: increase number of trees ('ntree') or number of permutations ('nperm')```r
crfReg <- function(dataIn, iVars, dVar, seeds, ntree, mtry, permImpCondThres=0.95, minsplit=20, minbucket=7, nperm=1){
# initialise variables
crfOOBErrAll <- 0
crfOOBRMSE <- 0
crfOOBMAE <- 0
crfOOBErrR2 <- 0
crfMarPermImpVals <- 0
crfConPermImpVals <- 0
crfMarPermImpValsPerTree <- data.frame()
crfConPermImpValsPerTree <- data.frame()
# formula for regression
formVars <- reformulate(iVars, dVar)
for (iters in 1:length(seeds)){
# set random seed
set.seed(seeds[iters])
# train crf model
crfModel <- party::cforest(formVars, data=dataIn,
controls=party::cforest_unbiased(ntree=ntree,
mtry=mtry,
minsplit=minsplit,
minbucket=minbucket))
# conditional variable permutation importance
crfConPermImp <- permimp::permimp(crfModel, nperm=nperm, conditional=TRUE, threshold=permImpCondThres, progressBar=FALSE)
crfConPermImpVals <- crfConPermImp$values
if (iters == 1){
crfConPermImpVals1 <- data.frame(CondPermImp=sort(crfConPermImpVals, decreasing=TRUE))
crfConPermImpValsPerTree1 <- crfConPermImp$perTree
crfConPermImpValsQtl1 <- data.frame(apply(crfConPermImpValsPerTree1, 2, quantile, probs=c(0.25, 0.50, 0.75)))
# get OOB predictions
crfModelOOB <- predict(crfModel, OOB=TRUE, type='response')
# get OOB error
crfModelOOBErr <- as.numeric(as.matrix(as.numeric(as.matrix(crfModelOOB))
- as.numeric(as.matrix(crfModel@data@env$response[[names(crfModel@data@env$response)]]))))
# OOB RMSE, error quartiles and Rsquared
crfOOBRMSE <- sqrt(mean(crfModelOOBErr^2))
crfOOBMAE <- crfOOBMAE + mean(abs(crfModelOOBErr))
crfOOBErrR2 <- cor(as.numeric(as.matrix(crfModelOOB)),
as.numeric(as.matrix(crfModel@data@env$response[[names(crfModel@data@env$response)]])))^2
}
else{
crfConPermImpValsN <- data.frame(CondPermImp=sort(crfConPermImpVals, decreasing=TRUE))
nVarImpChecks <- min(max(sum(crfConPermImpVals1 >= crfConPermImpVals1$CondPermImp[1]*0.1),
sum(crfConPermImpValsN >= crfConPermImpValsN$CondPermImp[1]*0.1)), 4) # number of variable importance values with a value at least 10% of the highest importance
if (sum(rownames(crfConPermImpVals1)[1:nVarImpChecks] != rownames(crfConPermImpValsN)[1:nVarImpChecks]) > 0){
warning(\Permutation importance rank order within 10% of max differs between seeds: increase number of trees ('ntree') or number of permutations ('nperm')
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxubXRyeVR1bmUgPC0gZnVuY3Rpb24oZGF0YUluLCBpVmFycywgZFZhciwgc2VlZHMsIG50cmVlcywgbWluc3BsaXQ9MjAsIG1pbmJ1Y2tldD03KXtcblxuICBmb3JtVmFycyA8LSByZWZvcm11bGF0ZShpVmFycywgZFZhcilcbiAgXG4gICMgc2V0IG10cnkgdmFsdWVzIGFuZCBjb3JyZXNwb25kaW5nIGlWYXJzL210cnkgcmF0aW9zXG4gIGlWYXJzX210cnlzIDwtIGMoMTAuNSwgNS4yNSwgMy41LCAyLjc1LCAyLjI1LCAxLjc1LCAxLjUsIDEuMjUpXG4gIG10cnlzIDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS9pVmFyc19tdHJ5cylcbiAgaVZhcnNfbXRyeXMgPC0gaVZhcnNfbXRyeXNbbXRyeXMgPj0gMl0gICMgcmVtb3ZlIDAgb3IgMSB2YWx1ZXNcbiAgbXRyeXMgPC0gbXRyeXNbbXRyeXMgPj0gMl0gICMgcmVtb3ZlIDAgb3IgMSB2YWx1ZXNcbiAgXG4gICMgcmVtb3ZlIGFueSBkdXBsaWNhdGVkIHZhbHVlc1xuICBpVmFyc19tdHJ5cyA8LSBpVmFyc19tdHJ5c1shKGR1cGxpY2F0ZWQobXRyeXMpIHwgZHVwbGljYXRlZChtdHJ5cywgZnJvbUxhc3QgPSBUUlVFKSldXG4gIG10cnlzIDwtIG10cnlzWyEoZHVwbGljYXRlZChtdHJ5cykgfCBkdXBsaWNhdGVkKG10cnlzLCBmcm9tTGFzdCA9IFRSVUUpKV1cblxuICAjIGVuc3VyZSBtdHJ5cyBpcyBsZXNzIHRoYW4gbGVuZ3RoKGlWYXJzKVxuICBpVmFyc19tdHJ5cyA8LSBpVmFyc19tdHJ5c1ttdHJ5cyA8IGxlbmd0aChpVmFycyldXG4gIG10cnlzIDwtIG10cnlzW210cnlzIDwgbGVuZ3RoKGlWYXJzKV1cblxuICByZXNSTVNFTWFwID0gbWF0cml4KGRhdGE9MCwgbnJvdz1sZW5ndGgobXRyeXMpLCBuY29sPWxlbmd0aChudHJlZXMpKVxuICByZXNSc3F1YXJlZE1hcCA9IG1hdHJpeChkYXRhPTAsIG5yb3c9bGVuZ3RoKG10cnlzKSwgbmNvbD1sZW5ndGgobnRyZWVzKSlcbiAgcmVzTUFFTWFwID0gbWF0cml4KGRhdGE9MCwgbnJvdz1sZW5ndGgobXRyeXMpLCBuY29sPWxlbmd0aChudHJlZXMpKVxuICBcbiAgXG4gIGZvciAoaWkgaW4gc2VxKDEsIGxlbmd0aChudHJlZXMpKSl7XG4gICAgXG4gICAgdHVuZU1vZC5yZXN1bHRzIDwtIGRhdGEuZnJhbWUoUk1TRT1udW1lcmljKGxlbmd0aChtdHJ5cykpLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBSc3F1YXJlZD1udW1lcmljKGxlbmd0aChtdHJ5cykpLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBNQUU9bnVtZXJpYyhsZW5ndGgobXRyeXMpKSlcbiAgICBcbiAgICBmb3IgKHNlZWQgaW4gc2VlZHMpe1xuICAgICAgc2V0LnNlZWQoc2VlZClcbiAgICAgIG50cmVlID0gbnRyZWVzW2lpXVxuICAgICAgdHVuZU1vZCA8LSBjYXJldDo6dHJhaW4oZm9ybVZhcnMsXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkYXRhPWRhdGFJbixcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1ldGhvZD0nY2ZvcmVzdCcsXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb250cm9scz1wYXJ0eTo6Y2ZvcmVzdF91bmJpYXNlZChudHJlZT1udHJlZSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1pbnNwbGl0PW1pbnNwbGl0LFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbWluYnVja2V0PW1pbmJ1Y2tldCksXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0dW5lR3JpZD1kYXRhLmZyYW1lKC5tdHJ5PW10cnlzKSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRyQ29udHJvbCA9IHRyYWluQ29udHJvbChtZXRob2QgPSBcIm9vYlwiKSlcbiAgICAgIFxuICAgICAgXG4gICAgICBcbiAgICAgICMgYWNjdW11bGF0ZSByZXN1bHRzXG4gICAgICByZXNSTVNFTWFwWywgaWldIDwtIHJlc1JNU0VNYXBbLCBpaV0gKyB0dW5lTW9kJHJlc3VsdHMkUk1TRVxuICAgICAgcmVzUnNxdWFyZWRNYXBbLCBpaV0gPC0gcmVzUnNxdWFyZWRNYXBbLCBpaV0gKyB0dW5lTW9kJHJlc3VsdHMkUnNxdWFyZWRcbiAgICAgIHJlc01BRU1hcFssIGlpXSA8LSByZXNNQUVNYXBbLCBpaV0gKyB0dW5lTW9kJHJlc3VsdHMkTUFFXG4gICAgICBcbiAgICAgIHR1bmVNb2QucmVzdWx0cyA8LSB0dW5lTW9kLnJlc3VsdHMgKyB0dW5lTW9kJHJlc3VsdHNbLCB3aGljaChuYW1lcyh0dW5lTW9kJHJlc3VsdHMpICE9ICdtdHJ5JyldXG4gICAgfVxuXG4gICAgIyBhdmVyYWdlIHJlc3VsdHNcbiAgICB0dW5lTW9kLnJlc3VsdHMgPC0gdHVuZU1vZC5yZXN1bHRzL2xlbmd0aChzZWVkcylcbiAgICB0dW5lTW9kLnJlc3VsdHMgPC0gY2JpbmQodHVuZU1vZC5yZXN1bHRzLCBkYXRhLmZyYW1lKG10cnk9bXRyeXMpLCBkYXRhLmZyYW1lKGlWYXJzX210cnk9aVZhcnNfbXRyeXMpKVxuXG4gICAgcHJpbnQodHVuZU1vZC5yZXN1bHRzKVxuXG4gIH1cbiAgXG4gICMgYXZlcmFnZSByZXN1bHRzXG4gIHJlc1JNU0VNYXAgPC0gcmVzUk1TRU1hcC9sZW5ndGgoc2VlZHMpXG4gIHJlc1JzcXVhcmVkTWFwIDwtIHJlc1JzcXVhcmVkTWFwL2xlbmd0aChzZWVkcylcbiAgcmVzTUFFTWFwIDwtIHJlc01BRU1hcC9sZW5ndGgoc2VlZHMpXG4gIFxuICBcbiAgIyBjb252ZXJ0IHRvIGRhdGEgZnJhbWVzIHdpdGggbXRyeSBhcyByb3cgbmFtZXMgYW5kIG50cmVlIGFzIGNvbHVtbiBuYW1lcywgYW5kIGNvbnZlcnQgdG8gbG9uZyBmb3JtYXQgdXNpbmcgdGlkeXZlcnNlXG4gIHJlc2RmUk1TRU1hcCA8LSBhcy5kYXRhLmZyYW1lKHJlc1JNU0VNYXApXG4gIHJvd25hbWVzKHJlc2RmUk1TRU1hcCkgPC0gbXRyeXNcbiAgY29sbmFtZXMocmVzZGZSTVNFTWFwKSA8LSBudHJlZXNcbiAgcmVzZGZSc3F1YXJlZE1hcCA8LSBhcy5kYXRhLmZyYW1lKHJlc1JzcXVhcmVkTWFwKVxuICByb3duYW1lcyhyZXNkZlJzcXVhcmVkTWFwKSA8LSBtdHJ5c1xuICBjb2xuYW1lcyhyZXNkZlJzcXVhcmVkTWFwKSA8LSBudHJlZXNcbiAgcmVzZGZNQUVNYXAgPC0gYXMuZGF0YS5mcmFtZShyZXNNQUVNYXApXG4gIHJvd25hbWVzKHJlc2RmTUFFTWFwKSA8LSBtdHJ5c1xuICBjb2xuYW1lcyhyZXNkZk1BRU1hcCkgPC0gbnRyZWVzXG4gIFxuICBcbiAgIyBjb252ZXJ0IGRhdGFmcmFtZXMgdG8gbG9uZyBmb3JtYXQgdXNpbmcgdGlkeXZlcnNlXG4gIHJlc2RmUk1TRU1hcCA8LSByZXNkZlJNU0VNYXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ210cnknKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICBnYXRoZXIoa2V5PSdudHJlZScsIHZhbHVlPSdSTVNFJywgLW10cnkpXG4gIFxuICByZXNkZlJzcXVhcmVkTWFwIDwtIHJlc2RmUnNxdWFyZWRNYXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXNfdG9fY29sdW1uKCdtdHJ5JykgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGdhdGhlcihrZXk9J250cmVlJywgdmFsdWU9J1JzcXVhcmVkJywgLW10cnkpXG4gIFxuICByZXNkZk1BRU1hcCA8LSByZXNkZk1BRU1hcCB8PlxuICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ210cnknKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgZ2F0aGVyKGtleT0nbnRyZWUnLCB2YWx1ZT0nTUFFJywgLW10cnkpXG4gIFxuICAjIGVuc3VyZSBudHJlZSBhbmQgbXRyeSBjb2x1bW5zIGFyZSBvcmRlcmVkIGZhY3RvcnNcbiAgcmVzZGZSTVNFTWFwJG50cmVlIDwtIGZhY3RvcihyZXNkZlJNU0VNYXAkbnRyZWUsIGxldmVscz1hcy5jaGFyYWN0ZXIobnRyZWVzKSlcbiAgcmVzZGZSTVNFTWFwJG10cnkgPC0gZmFjdG9yKHJlc2RmUk1TRU1hcCRtdHJ5LCBsZXZlbHM9YXMuY2hhcmFjdGVyKG10cnlzKSlcbiAgXG4gIHJlc2RmUnNxdWFyZWRNYXAkbnRyZWUgPC0gZmFjdG9yKHJlc2RmUnNxdWFyZWRNYXAkbnRyZWUsIGxldmVscz1hcy5jaGFyYWN0ZXIobnRyZWVzKSlcbiAgcmVzZGZSc3F1YXJlZE1hcCRtdHJ5IDwtIGZhY3RvcihyZXNkZlJzcXVhcmVkTWFwJG10cnksIGxldmVscz1hcy5jaGFyYWN0ZXIobXRyeXMpKVxuICBcbiAgcmVzZGZNQUVNYXAkbnRyZWUgPC0gZmFjdG9yKHJlc2RmTUFFTWFwJG50cmVlLCBsZXZlbHM9YXMuY2hhcmFjdGVyKG50cmVlcykpXG4gIHJlc2RmTUFFTWFwJG10cnkgPC0gZmFjdG9yKHJlc2RmTUFFTWFwJG10cnksIGxldmVscz1hcy5jaGFyYWN0ZXIobXRyeXMpKVxuICBcbiAgIyBwbG90IGhlYXRtYXBzIHVzaW5nIGdncGxvdCwgd2l0aCBleHRyZW1lIChtaW4gb3IgbWF4KSB2YWx1ZSBwbG90dGVkIGFzIG92ZXJsYWlkIHBvaW50IHVzaW5nIGFubm90YXRlIGFuZCBjb2xvdXJiYXIgc2NhbGUgcmV2ZXJzZWRcbiAgcEhlYXRtYXBSTVNFIDwtIGdncGxvdChyZXNkZlJNU0VNYXApICtcbiAgICAgICAgICAgICAgICAgICAgZ2VvbV90aWxlKGFlcyh4PW50cmVlLCB5PW10cnksIGZpbGw9Uk1TRSkpICtcbiAgICAgICAgICAgICAgICAgICAgICAgIHNjYWxlX2ZpbGxfdmlyaWRpcyhvcHRpb249XCJ2aXJpZGlzXCIsIGRpcmVjdGlvbj0tMSkgK1xuICAgICAgICAgICAgICAgICAgICAgICAgICBnZW9tX3BvaW50KGRhdGE9cmVzZGZSTVNFTWFwW3doaWNoKHJlc2RmUk1TRU1hcCRSTVNFXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgPT0gbWluKHJlc2RmUk1TRU1hcCRSTVNFKSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBhcnIuaW5kID0gVFJVRSksXSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBhZXMoeD1udHJlZSwgeT1tdHJ5KSwgY29sb3VyPVwicmVkXCIsIHNpemU9MikgK1xuICAgICAgICAgICAgICAgICAgICAgICAgICAgIGd1aWRlcyhjb2xvdXIgPSBndWlkZV9jb2xvdXJiYXIocmV2ZXJzZT1UUlVFKSkgK1xuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbGFicyh4PVwibnRyZWVcIiwgeT1cIm10cnlcIiwgZmlsbD1cIlJNU0VcIikgK1xuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFwic2VyaWZcIikpXG4gIFxuICBwSGVhdG1hcFJzcXVhcmVkIDwtIGdncGxvdChyZXNkZlJzcXVhcmVkTWFwKSArXG4gICAgICAgICAgICAgICAgICAgICAgICBnZW9tX3RpbGUoYWVzKHg9bnRyZWUsIHk9bXRyeSwgZmlsbD1Sc3F1YXJlZCkpICtcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICBzY2FsZV9maWxsX3ZpcmlkaXMob3B0aW9uPVwidmlyaWRpc1wiLCBkaXJlY3Rpb249MSkgK1xuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZ2VvbV9wb2ludChkYXRhPXJlc2RmUnNxdWFyZWRNYXBbd2hpY2gocmVzZGZSc3F1YXJlZE1hcCRSc3F1YXJlZFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgPT0gbWF4KHJlc2RmUnNxdWFyZWRNYXAkUnNxdWFyZWQpLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYXJyLmluZCA9IFRSVUUpLF0sXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGFlcyh4PW50cmVlLCB5PW10cnkpLCBjb2xvdXI9XCJyZWRcIiwgc2l6ZT0yKSArXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGd1aWRlcyhjb2xvdXIgPSBndWlkZV9jb2xvdXJiYXIocmV2ZXJzZT1UUlVFKSkgK1xuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxhYnMoeD1cIm50cmVlXCIsIHk9XCJtdHJ5XCIsIGZpbGw9XCJSc3F1YXJlZFwiKSArXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFwic2VyaWZcIikpXG4gIFxuICBwSGVhdG1hcE1BRSA8LSBnZ3Bsb3QocmVzZGZNQUVNYXApICtcbiAgICAgICAgICAgICAgICAgICAgZ2VvbV90aWxlKGFlcyh4PW50cmVlLCB5PW10cnksIGZpbGw9TUFFKSkgK1xuICAgICAgICAgICAgICAgICAgICAgICAgc2NhbGVfZmlsbF92aXJpZGlzKG9wdGlvbj1cInZpcmlkaXNcIiwgZGlyZWN0aW9uPS0xKSArXG4gICAgICAgICAgICAgICAgICAgICAgICAgIGdlb21fcG9pbnQoZGF0YT1yZXNkZk1BRU1hcFt3aGljaChyZXNkZk1BRU1hcCRNQUVcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgID09IG1pbihyZXNkZk1BRU1hcCRNQUUpLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYXJyLmluZCA9IFRSVUUpLF0sXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYWVzKHg9bnRyZWUsIHk9bXRyeSksIGNvbG91cj1cInJlZFwiLCBzaXplPTIpICtcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICBndWlkZXMoY29sb3VyID0gZ3VpZGVfY29sb3VyYmFyKHJldmVyc2U9VFJVRSkpICtcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxhYnMoeD1cIm50cmVlXCIsIHk9XCJtdHJ5XCIsIGZpbGw9XCJNQUVcIikgK1xuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFwic2VyaWZcIikpXG4gIFxuICBwIDwtICBjb3dwbG90OjpwbG90X2dyaWQocEhlYXRtYXBSTVNFLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgcEhlYXRtYXBSc3F1YXJlZCxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgIHBIZWF0bWFwTUFFLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgbmNvbD0zLCBucm93PTEpXG4gIFxuICByZXR1cm4ocClcbiAgXG59ICAjIGVuZCBvZiBmdW5jdGlvblxuXG5gYGAifQ== -->
```r
mtryTune <- function(dataIn, iVars, dVar, seeds, ntrees, minsplit=20, minbucket=7){
formVars <- reformulate(iVars, dVar)
# set mtry values and corresponding iVars/mtry ratios
iVars_mtrys <- c(10.5, 5.25, 3.5, 2.75, 2.25, 1.75, 1.5, 1.25)
mtrys <- as.integer(length(iVars)/iVars_mtrys)
iVars_mtrys <- iVars_mtrys[mtrys >= 2] # remove 0 or 1 values
mtrys <- mtrys[mtrys >= 2] # remove 0 or 1 values
# remove any duplicated values
iVars_mtrys <- iVars_mtrys[!(duplicated(mtrys) | duplicated(mtrys, fromLast = TRUE))]
mtrys <- mtrys[!(duplicated(mtrys) | duplicated(mtrys, fromLast = TRUE))]
# ensure mtrys is less than length(iVars)
iVars_mtrys <- iVars_mtrys[mtrys < length(iVars)]
mtrys <- mtrys[mtrys < length(iVars)]
resRMSEMap = matrix(data=0, nrow=length(mtrys), ncol=length(ntrees))
resRsquaredMap = matrix(data=0, nrow=length(mtrys), ncol=length(ntrees))
resMAEMap = matrix(data=0, nrow=length(mtrys), ncol=length(ntrees))
for (ii in seq(1, length(ntrees))){
tuneMod.results <- data.frame(RMSE=numeric(length(mtrys)),
Rsquared=numeric(length(mtrys)),
MAE=numeric(length(mtrys)))
for (seed in seeds){
set.seed(seed)
ntree = ntrees[ii]
tuneMod <- caret::train(formVars,
data=dataIn,
method='cforest',
controls=party::cforest_unbiased(ntree=ntree,
minsplit=minsplit,
minbucket=minbucket),
tuneGrid=data.frame(.mtry=mtrys),
trControl = trainControl(method = \oob\))
# accumulate results
resRMSEMap[, ii] <- resRMSEMap[, ii] + tuneMod$results$RMSE
resRsquaredMap[, ii] <- resRsquaredMap[, ii] + tuneMod$results$Rsquared
resMAEMap[, ii] <- resMAEMap[, ii] + tuneMod$results$MAE
tuneMod.results <- tuneMod.results + tuneMod$results[, which(names(tuneMod$results) != 'mtry')]
}
# average results
tuneMod.results <- tuneMod.results/length(seeds)
tuneMod.results <- cbind(tuneMod.results, data.frame(mtry=mtrys), data.frame(iVars_mtry=iVars_mtrys))
print(tuneMod.results)
}
# average results
resRMSEMap <- resRMSEMap/length(seeds)
resRsquaredMap <- resRsquaredMap/length(seeds)
resMAEMap <- resMAEMap/length(seeds)
# convert to data frames with mtry as row names and ntree as column names, and convert to long format using tidyverse
resdfRMSEMap <- as.data.frame(resRMSEMap)
rownames(resdfRMSEMap) <- mtrys
colnames(resdfRMSEMap) <- ntrees
resdfRsquaredMap <- as.data.frame(resRsquaredMap)
rownames(resdfRsquaredMap) <- mtrys
colnames(resdfRsquaredMap) <- ntrees
resdfMAEMap <- as.data.frame(resMAEMap)
rownames(resdfMAEMap) <- mtrys
colnames(resdfMAEMap) <- ntrees
# convert dataframes to long format using tidyverse
resdfRMSEMap <- resdfRMSEMap |>
rownames_to_column('mtry') |>
gather(key='ntree', value='RMSE', -mtry)
resdfRsquaredMap <- resdfRsquaredMap |>
rownames_to_column('mtry') |>
gather(key='ntree', value='Rsquared', -mtry)
resdfMAEMap <- resdfMAEMap |>
rownames_to_column('mtry') |>
gather(key='ntree', value='MAE', -mtry)
# ensure ntree and mtry columns are ordered factors
resdfRMSEMap$ntree <- factor(resdfRMSEMap$ntree, levels=as.character(ntrees))
resdfRMSEMap$mtry <- factor(resdfRMSEMap$mtry, levels=as.character(mtrys))
resdfRsquaredMap$ntree <- factor(resdfRsquaredMap$ntree, levels=as.character(ntrees))
resdfRsquaredMap$mtry <- factor(resdfRsquaredMap$mtry, levels=as.character(mtrys))
resdfMAEMap$ntree <- factor(resdfMAEMap$ntree, levels=as.character(ntrees))
resdfMAEMap$mtry <- factor(resdfMAEMap$mtry, levels=as.character(mtrys))
# plot heatmaps using ggplot, with extreme (min or max) value plotted as overlaid point using annotate and colourbar scale reversed
pHeatmapRMSE <- ggplot(resdfRMSEMap) +
geom_tile(aes(x=ntree, y=mtry, fill=RMSE)) +
scale_fill_viridis(option=\viridis\, direction=-1) +
geom_point(data=resdfRMSEMap[which(resdfRMSEMap$RMSE
== min(resdfRMSEMap$RMSE),
arr.ind = TRUE),],
aes(x=ntree, y=mtry), colour=\red\, size=2) +
guides(colour = guide_colourbar(reverse=TRUE)) +
labs(x=\ntree\, y=\mtry\, fill=\RMSE\) +
theme(text = element_text(family = \serif\))
pHeatmapRsquared <- ggplot(resdfRsquaredMap) +
geom_tile(aes(x=ntree, y=mtry, fill=Rsquared)) +
scale_fill_viridis(option=\viridis\, direction=1) +
geom_point(data=resdfRsquaredMap[which(resdfRsquaredMap$Rsquared
== max(resdfRsquaredMap$Rsquared),
arr.ind = TRUE),],
aes(x=ntree, y=mtry), colour=\red\, size=2) +
guides(colour = guide_colourbar(reverse=TRUE)) +
labs(x=\ntree\, y=\mtry\, fill=\Rsquared\) +
theme(text = element_text(family = \serif\))
pHeatmapMAE <- ggplot(resdfMAEMap) +
geom_tile(aes(x=ntree, y=mtry, fill=MAE)) +
scale_fill_viridis(option=\viridis\, direction=-1) +
geom_point(data=resdfMAEMap[which(resdfMAEMap$MAE
== min(resdfMAEMap$MAE),
arr.ind = TRUE),],
aes(x=ntree, y=mtry), colour=\red\, size=2) +
guides(colour = guide_colourbar(reverse=TRUE)) +
labs(x=\ntree\, y=\mtry\, fill=\MAE\) +
theme(text = element_text(family = \serif\))
p <- cowplot::plot_grid(pHeatmapRMSE,
pHeatmapRsquared,
pHeatmapMAE,
ncol=3, nrow=1)
return(p)
} # end of function
```
<!-- rnb-source-end -->```r
mtryTune <- function(dataIn, iVars, dVar, seeds, ntrees, minsplit=20, minbucket=7){
formVars <- reformulate(iVars, dVar)
# set mtry values and corresponding iVars/mtry ratios
iVars_mtrys <- c(10.5, 5.25, 3.5, 2.75, 2.25, 1.75, 1.5, 1.25)
mtrys <- as.integer(length(iVars)/iVars_mtrys)
iVars_mtrys <- iVars_mtrys[mtrys >= 2] # remove 0 or 1 values
mtrys <- mtrys[mtrys >= 2] # remove 0 or 1 values
# remove any duplicated values
iVars_mtrys <- iVars_mtrys[!(duplicated(mtrys) | duplicated(mtrys, fromLast = TRUE))]
mtrys <- mtrys[!(duplicated(mtrys) | duplicated(mtrys, fromLast = TRUE))]
# ensure mtrys is less than length(iVars)
iVars_mtrys <- iVars_mtrys[mtrys < length(iVars)]
mtrys <- mtrys[mtrys < length(iVars)]
resRMSEMap = matrix(data=0, nrow=length(mtrys), ncol=length(ntrees))
resRsquaredMap = matrix(data=0, nrow=length(mtrys), ncol=length(ntrees))
resMAEMap = matrix(data=0, nrow=length(mtrys), ncol=length(ntrees))
for (ii in seq(1, length(ntrees))){
tuneMod.results <- data.frame(RMSE=numeric(length(mtrys)),
Rsquared=numeric(length(mtrys)),
MAE=numeric(length(mtrys)))
for (seed in seeds){
set.seed(seed)
ntree = ntrees[ii]
tuneMod <- caret::train(formVars,
data=dataIn,
method='cforest',
controls=party::cforest_unbiased(ntree=ntree,
minsplit=minsplit,
minbucket=minbucket),
tuneGrid=data.frame(.mtry=mtrys),
trControl = trainControl(method = \oob\))
# accumulate results
resRMSEMap[, ii] <- resRMSEMap[, ii] + tuneMod$results$RMSE
resRsquaredMap[, ii] <- resRsquaredMap[, ii] + tuneMod$results$Rsquared
resMAEMap[, ii] <- resMAEMap[, ii] + tuneMod$results$MAE
tuneMod.results <- tuneMod.results + tuneMod$results[, which(names(tuneMod$results) != 'mtry')]
}
# average results
tuneMod.results <- tuneMod.results/length(seeds)
tuneMod.results <- cbind(tuneMod.results, data.frame(mtry=mtrys), data.frame(iVars_mtry=iVars_mtrys))
print(tuneMod.results)
}
# average results
resRMSEMap <- resRMSEMap/length(seeds)
resRsquaredMap <- resRsquaredMap/length(seeds)
resMAEMap <- resMAEMap/length(seeds)
# convert to data frames with mtry as row names and ntree as column names, and convert to long format using tidyverse
resdfRMSEMap <- as.data.frame(resRMSEMap)
rownames(resdfRMSEMap) <- mtrys
colnames(resdfRMSEMap) <- ntrees
resdfRsquaredMap <- as.data.frame(resRsquaredMap)
rownames(resdfRsquaredMap) <- mtrys
colnames(resdfRsquaredMap) <- ntrees
resdfMAEMap <- as.data.frame(resMAEMap)
rownames(resdfMAEMap) <- mtrys
colnames(resdfMAEMap) <- ntrees
# convert dataframes to long format using tidyverse
resdfRMSEMap <- resdfRMSEMap |>
rownames_to_column('mtry') |>
gather(key='ntree', value='RMSE', -mtry)
resdfRsquaredMap <- resdfRsquaredMap |>
rownames_to_column('mtry') |>
gather(key='ntree', value='Rsquared', -mtry)
resdfMAEMap <- resdfMAEMap |>
rownames_to_column('mtry') |>
gather(key='ntree', value='MAE', -mtry)
# ensure ntree and mtry columns are ordered factors
resdfRMSEMap$ntree <- factor(resdfRMSEMap$ntree, levels=as.character(ntrees))
resdfRMSEMap$mtry <- factor(resdfRMSEMap$mtry, levels=as.character(mtrys))
resdfRsquaredMap$ntree <- factor(resdfRsquaredMap$ntree, levels=as.character(ntrees))
resdfRsquaredMap$mtry <- factor(resdfRsquaredMap$mtry, levels=as.character(mtrys))
resdfMAEMap$ntree <- factor(resdfMAEMap$ntree, levels=as.character(ntrees))
resdfMAEMap$mtry <- factor(resdfMAEMap$mtry, levels=as.character(mtrys))
# plot heatmaps using ggplot, with extreme (min or max) value plotted as overlaid point using annotate and colourbar scale reversed
pHeatmapRMSE <- ggplot(resdfRMSEMap) +
geom_tile(aes(x=ntree, y=mtry, fill=RMSE)) +
scale_fill_viridis(option=\viridis\, direction=-1) +
geom_point(data=resdfRMSEMap[which(resdfRMSEMap$RMSE
== min(resdfRMSEMap$RMSE),
arr.ind = TRUE),],
aes(x=ntree, y=mtry), colour=\red\, size=2) +
guides(colour = guide_colourbar(reverse=TRUE)) +
labs(x=\ntree\, y=\mtry\, fill=\RMSE\) +
theme(text = element_text(family = \serif\))
pHeatmapRsquared <- ggplot(resdfRsquaredMap) +
geom_tile(aes(x=ntree, y=mtry, fill=Rsquared)) +
scale_fill_viridis(option=\viridis\, direction=1) +
geom_point(data=resdfRsquaredMap[which(resdfRsquaredMap$Rsquared
== max(resdfRsquaredMap$Rsquared),
arr.ind = TRUE),],
aes(x=ntree, y=mtry), colour=\red\, size=2) +
guides(colour = guide_colourbar(reverse=TRUE)) +
labs(x=\ntree\, y=\mtry\, fill=\Rsquared\) +
theme(text = element_text(family = \serif\))
pHeatmapMAE <- ggplot(resdfMAEMap) +
geom_tile(aes(x=ntree, y=mtry, fill=MAE)) +
scale_fill_viridis(option=\viridis\, direction=-1) +
geom_point(data=resdfMAEMap[which(resdfMAEMap$MAE
== min(resdfMAEMap$MAE),
arr.ind = TRUE),],
aes(x=ntree, y=mtry), colour=\red\, size=2) +
guides(colour = guide_colourbar(reverse=TRUE)) +
labs(x=\ntree\, y=\mtry\, fill=\MAE\) +
theme(text = element_text(family = \serif\))
p <- cowplot::plot_grid(pHeatmapRMSE,
pHeatmapRsquared,
pHeatmapMAE,
ncol=3, nrow=1)
return(p)
} # end of function
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
# Parts A & B analysis
## Set global parameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3WlhKdFNXMXdRMjl1WkZSb2NtVnpJRHd0SURBdU9UVmNibTFwYm5Od2JHbDBJRHd0SURJd1hHNXRhVzVpZFdOclpYUWdQQzBnTjF4dWJuUnlaV1Z6SUR3dElHTW9NalV4TENBMU1ERXNJREV3TURFc0lERTFNREVzSURJMU1ERXNJRFF3TURFc0lEVTFNREVwWEc1Y2JtVjJaVzUwVm1GeUlEd3RJRndpVlVGVFJYWmxiblJ6WENKY2JtRnRZbFpoY2lBOExTQmNJa0Z0WW1sbGJuUk1RV1Z4WENKY2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG5wZXJtSW1wQ29uZFRocmVzIDwtIDAuOTVcbm1pbnNwbGl0IDwtIDIwXG5taW5idWNrZXQgPC0gN1xubnRyZWVzIDwtIGMoMjUxLCA1MDEsIDEwMDEsIDE1MDEsIDI1MDEsIDQwMDEsIDU1MDEpXG5cbmV2ZW50VmFyIDwtIFxcVUFTRXZlbnRzXFxcbmFtYlZhciA8LSBcXEFtYmllbnRMQWVxXFxcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
permImpCondThres <- 0.95
minsplit <- 20
minbucket <- 7
ntrees <- c(251, 501, 1001, 1501, 2501, 4001, 5501)
eventVar <- \UASEvents\
ambVar <- \AmbientLAeq\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdaWEp0U1cxd1EyOXVaRlJvY21WeklEd3RJREF1T1RWY2JtMXBibk53YkdsMElEd3RJREl3WEc1dGFXNWlkV05yWlhRZ1BDMGdOMXh1Ym5SeVpXVnpJRHd0SUdNb01qVXhMQ0ExTURFc0lERXdNREVzSURFMU1ERXNJREkxTURFc0lEUXdNREVzSURVMU1ERXBYRzVjYm1WMlpXNTBWbUZ5SUR3dElGeGNWVUZUUlhabGJuUnpYRnhjYm1GdFlsWmhjaUE4TFNCY1hFRnRZbWxsYm5STVFXVnhYRnhjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxucGVybUltcENvbmRUaHJlcyA8LSAwLjk1XG5taW5zcGxpdCA8LSAyMFxubWluYnVja2V0IDwtIDdcbm50cmVlcyA8LSBjKDI1MSwgNTAxLCAxMDAxLCAxNTAxLCAyNTAxLCA0MDAxLCA1NTAxKVxuXG5ldmVudFZhciA8LSBcXFVBU0V2ZW50c1xcXG5hbWJWYXIgPC0gXFxBbWJpZW50TEFlcVxcXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wZXJtSW1wQ29uZFRocmVzIDwtIDAuOTVcbm1pbnNwbGl0IDwtIDIwXG5taW5idWNrZXQgPC0gN1xubnRyZWVzIDwtIGMoMjUxLCA1MDEsIDEwMDEsIDE1MDEsIDI1MDEsIDQwMDEsIDU1MDEpXG5cbmV2ZW50VmFyIDwtIFxcVUFTRXZlbnRzXFxcbmFtYlZhciA8LSBcXEFtYmllbnRMQWVxXFxcblxuYGBgXG5gYGAifQ== -->
```r
```r
permImpCondThres <- 0.95
minsplit <- 20
minbucket <- 7
ntrees <- c(251, 501, 1001, 1501, 2501, 4001, 5501)
eventVar <- \UASEvents\
ambVar <- \AmbientLAeq\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
## Mean change in annoyance
### Initialise results output variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6WkVGdWJtOTVUVzVHYVhSQlFpQThMU0JrWVhSaExtWnlZVzFsS0ZKTlUwVWdQU0J1ZFcxbGNtbGpLQ2tzWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lFMUJSU0E5SUc1MWJXVnlhV01vS1N4Y2JpQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdVbk54ZFdGeVpXUWdQU0J1ZFcxbGNtbGpLQ2twWEc1eVpYTmtRVzV1YjNsTmJsQmxjbTFKYlhCQlFpQThMU0JzYVhOMEtDbGNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbnJlc2RBbm5veU1uRml0QUIgPC0gZGF0YS5mcmFtZShSTVNFID0gbnVtZXJpYygpLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICBNQUUgPSBudW1lcmljKCksXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgIFJzcXVhcmVkID0gbnVtZXJpYygpKVxucmVzZEFubm95TW5QZXJtSW1wQUIgPC0gbGlzdCgpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
resdAnnoyMnFitAB <- data.frame(RMSE = numeric(),
MAE = numeric(),
Rsquared = numeric())
resdAnnoyMnPermImpAB <- list()
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpaRUZ1Ym05NVRXNUdhWFJCUWlBOExTQmtZWFJoTG1aeVlXMWxLRkpOVTBVZ1BTQnVkVzFsY21saktDa3NYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUUxQlJTQTlJRzUxYldWeWFXTW9LU3hjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ1VuTnhkV0Z5WldRZ1BTQnVkVzFsY21saktDa3BYRzV5WlhOa1FXNXViM2xOYmxCbGNtMUpiWEJCUWlBOExTQnNhWE4wS0NsY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5yZXNkQW5ub3lNbkZpdEFCIDwtIGRhdGEuZnJhbWUoUk1TRSA9IG51bWVyaWMoKSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgTUFFID0gbnVtZXJpYygpLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICBSc3F1YXJlZCA9IG51bWVyaWMoKSlcbnJlc2RBbm5veU1uUGVybUltcEFCIDwtIGxpc3QoKVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzZEFubm95TW5GaXRBQiA8LSBkYXRhLmZyYW1lKFJNU0UgPSBudW1lcmljKCksXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgIE1BRSA9IG51bWVyaWMoKSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgUnNxdWFyZWQgPSBudW1lcmljKCkpXG5yZXNkQW5ub3lNblBlcm1JbXBBQiA8LSBsaXN0KClcblxuYGBgXG5gYGAifQ== -->
```r
```r
resdAnnoyMnFitAB <- data.frame(RMSE = numeric(),
MAE = numeric(),
Rsquared = numeric())
resdAnnoyMnPermImpAB <- list()
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
### All variables (absolute and difference)
#### Remove ambient only stimuli - OMITTED
Here, the 'ambient only' stimuli are removed, as the analysis cannot handle missing values for dB metrics.
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEdsdFJHRjBZVTUxYlNBOExTQnpkR2x0UkdGMFlVNTFiVnRqYjIxd2JHVjBaUzVqWVhObGN5aHpkR2x0UkdGMFlVNTFiU2tzWFZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuIyBzdGltRGF0YU51bSA8LSBzdGltRGF0YU51bVtjb21wbGV0ZS5jYXNlcyhzdGltRGF0YU51bSksXVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# stimDataNum <- stimDataNum[complete.cases(stimDataNum),]
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkR2x0UkdGMFlVNTFiU0E4TFNCemRHbHRSR0YwWVU1MWJWdGpiMjF3YkdWMFpTNWpZWE5sY3loemRHbHRSR0YwWVU1MWJTa3NYVnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuIyBzdGltRGF0YU51bSA8LSBzdGltRGF0YU51bVtjb21wbGV0ZS5jYXNlcyhzdGltRGF0YU51bSksXVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdGltRGF0YU51bSA8LSBzdGltRGF0YU51bVtjb21wbGV0ZS5jYXNlcyhzdGltRGF0YU51bSksXVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# stimDataNum <- stimDataNum[complete.cases(stimDataNum),]
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0J1WVcxbGN5aHpkR2x0UkdGMFlVNTFiU2xiZDJocFkyZ29ibUZ0WlhNb2MzUnBiVVJoZEdGT2RXMHBJRDA5SUNkVlFWTkZkbVZ1ZEhNbktUcDNhR2xqYUNodVlXMWxjeWh6ZEdsdFJHRjBZVTUxYlNrZ1BUMGdKMVZCVTBsdGNIVnNjMU5JVFRBMVJYaE5ZWGhNVWljcFhWeHVhVlpoY25NZ1BDMGdZeWhwVm1GeWN5eGNiaUFnSUNBZ0lDQWdJQ0FnYm1GdFpYTW9jM1JwYlVSaGRHRk9kVzBwVzNkb2FXTm9LR052Ykc1aGJXVnpLSE4wYVcxRVlYUmhUblZ0S1QwOVhDSk1RV1Z4VEVGR09UQmthV1ptWENJcE9seHVJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUhkb2FXTm9LR052Ykc1aGJXVnpLSE4wYVcxRVlYUmhUblZ0S1QwOVhDSmtTVzF3ZFd4elUwaE5NRFZGZUUxaGVFeFNYQ0lwWFN3Z1hDSlRUbEpzWlhabGJGd2lLVnh1WkZaaGNpQThMU0JjSW1SQmJtNXZlVTFsWVc1Y0lseHVYRzV6WldWa2N5QThMU0JqS0RFME5UWTVMQ0E1T0RZMU1Td2dOVFEyTlRRME9UZ3NJRFExTkRrME9Dd2dOREV6TWpFcFhHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG5pVmFycyA8LSBuYW1lcyhzdGltRGF0YU51bSlbd2hpY2gobmFtZXMoc3RpbURhdGFOdW0pID09ICdVQVNFdmVudHMnKTp3aGljaChuYW1lcyhzdGltRGF0YU51bSkgPT0gJ1VBU0ltcHVsc1NITTA1RXhNYXhMUicpXVxuaVZhcnMgPC0gYyhpVmFycyxcbiAgICAgICAgICAgbmFtZXMoc3RpbURhdGFOdW0pW3doaWNoKGNvbG5hbWVzKHN0aW1EYXRhTnVtKT09XFxMQWVxTEFGOTBkaWZmXFwpOlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHdoaWNoKGNvbG5hbWVzKHN0aW1EYXRhTnVtKT09XFxkSW1wdWxzU0hNMDVFeE1heExSXFwpXSwgXFxTTlJsZXZlbFxcKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDE0NTY5LCA5ODY1MSwgNTQ2NTQ0OTgsIDQ1NDk0OCwgNDEzMjEpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
iVars <- names(stimDataNum)[which(names(stimDataNum) == 'UASEvents'):which(names(stimDataNum) == 'UASImpulsSHM05ExMaxLR')]
iVars <- c(iVars,
names(stimDataNum)[which(colnames(stimDataNum)==\LAeqLAF90diff\):
which(colnames(stimDataNum)==\dImpulsSHM05ExMaxLR\)], \SNRlevel\)
dVar <- \dAnnoyMean\
seeds <- c(14569, 98651, 54654498, 454948, 41321)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQnVZVzFsY3loemRHbHRSR0YwWVU1MWJTbGJkMmhwWTJnb2JtRnRaWE1vYzNScGJVUmhkR0ZPZFcwcElEMDlJQ2RWUVZORmRtVnVkSE1uS1RwM2FHbGphQ2h1WVcxbGN5aHpkR2x0UkdGMFlVNTFiU2tnUFQwZ0oxVkJVMGx0Y0hWc2MxTklUVEExUlhoTllYaE1VaWNwWFZ4dWFWWmhjbk1nUEMwZ1l5aHBWbUZ5Y3l4Y2JpQWdJQ0FnSUNBZ0lDQWdibUZ0WlhNb2MzUnBiVVJoZEdGT2RXMHBXM2RvYVdOb0tHTnZiRzVoYldWektITjBhVzFFWVhSaFRuVnRLVDA5WEZ4TVFXVnhURUZHT1RCa2FXWm1YRndwT2x4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJSGRvYVdOb0tHTnZiRzVoYldWektITjBhVzFFWVhSaFRuVnRLVDA5WEZ4a1NXMXdkV3h6VTBoTk1EVkZlRTFoZUV4U1hGd3BYU3dnWEZ4VFRsSnNaWFpsYkZ4Y0tWeHVaRlpoY2lBOExTQmNYR1JCYm01dmVVMWxZVzVjWEZ4dVhHNXpaV1ZrY3lBOExTQmpLREUwTlRZNUxDQTVPRFkxTVN3Z05UUTJOVFEwT1Rnc0lEUTFORGswT0N3Z05ERXpNakVwWEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxuaVZhcnMgPC0gbmFtZXMoc3RpbURhdGFOdW0pW3doaWNoKG5hbWVzKHN0aW1EYXRhTnVtKSA9PSAnVUFTRXZlbnRzJyk6d2hpY2gobmFtZXMoc3RpbURhdGFOdW0pID09ICdVQVNJbXB1bHNTSE0wNUV4TWF4TFInKV1cbmlWYXJzIDwtIGMoaVZhcnMsXG4gICAgICAgICAgIG5hbWVzKHN0aW1EYXRhTnVtKVt3aGljaChjb2xuYW1lcyhzdGltRGF0YU51bSk9PVxcTEFlcUxBRjkwZGlmZlxcKTpcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB3aGljaChjb2xuYW1lcyhzdGltRGF0YU51bSk9PVxcZEltcHVsc1NITTA1RXhNYXhMUlxcKV0sIFxcU05SbGV2ZWxcXClcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYygxNDU2OSwgOTg2NTEsIDU0NjU0NDk4LCA0NTQ5NDgsIDQxMzIxKVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBuYW1lcyhzdGltRGF0YU51bSlbd2hpY2gobmFtZXMoc3RpbURhdGFOdW0pID09ICdVQVNFdmVudHMnKTp3aGljaChuYW1lcyhzdGltRGF0YU51bSkgPT0gJ1VBU0ltcHVsc1NITTA1RXhNYXhMUicpXVxuaVZhcnMgPC0gYyhpVmFycyxcbiAgICAgICAgICAgbmFtZXMoc3RpbURhdGFOdW0pW3doaWNoKGNvbG5hbWVzKHN0aW1EYXRhTnVtKT09XFxMQWVxTEFGOTBkaWZmXFwpOlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHdoaWNoKGNvbG5hbWVzKHN0aW1EYXRhTnVtKT09XFxkSW1wdWxzU0hNMDVFeE1heExSXFwpXSwgXFxTTlJsZXZlbFxcKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDE0NTY5LCA5ODY1MSwgNTQ2NTQ0OTgsIDQ1NDk0OCwgNDEzMjEpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
iVars <- names(stimDataNum)[which(names(stimDataNum) == 'UASEvents'):which(names(stimDataNum) == 'UASImpulsSHM05ExMaxLR')]
iVars <- c(iVars,
names(stimDataNum)[which(colnames(stimDataNum)==\LAeqLAF90diff\):
which(colnames(stimDataNum)==\dImpulsSHM05ExMaxLR\)], \SNRlevel\)
dVar <- \dAnnoyMean\
seeds <- c(14569, 98651, 54654498, 454948, 41321)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0J1ZEhKbFpYTTliblJ5WldWekxDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICAgbnRyZWVzPW50cmVlcywgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQnVkSEpsWlhNOWJuUnlaV1Z6TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnAgPC0gbXRyeVR1bmUoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkPXNlZWRzWzE6Ml0sXG4gICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbmBgYFxuYGBgIn0= -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXJVVGhhUkhOa1lWVm1PV2N2VHpOWE1GWnllWFV3Wmk5RU9XZHdRMUF2WjNJM1Fpc3JiVTV6TDFsMFkwUXJkMlV2T0ZwWFNtSkVkRzh2ZFVSUU0yRnlWemxuTHpKRU9UUTRlVEpITldOek15OUpNR3hDTVRKcmIwWmljelppVUdndlZ5OVZjMkUzVGpsTk9FWjJNVFUyTmxNdlduVTJkakZpWm5WVmRuTXpPVk51Y0M5S2VYbzNSaTlWT0d0cWRsQnVWRVJtY3pONlptODJlbGc1V0RJM0szQXZiR1o0TUZSTVJ5OXJNbmh6ZWtKeU16RXJORTlpWlZkSGJETXJlVXhFWWk5b1lWaHhXSGRGZUhjM04xYzJSak4xWkRobFJtSlRMM0JZTW1oS1pWaHJSM1owWW5sWU1TdE1VWFJaTjBjNWVGZHZkRzVqVnpaNGRqVlhNbEZsTjFWV1VXSTNWM2R1VUU4MlMyUTNaMFJPTkVGWFdrRTRVMmRGUWtWR1dXNXJaekZuUW1sUmVVTXlRakpKZGtsSk5rRXlaV1ZuZVdkQlIwUnhTbEZ0WjJSTGN6QkdjRXBuYUhRdmQyUkxMelJFVTFoNGFXZEJRMWRCVjJaTlUyTXhUMHhuVVhkQ1kwTkNSRUpHYlVObVNVNWtiMWQ1VDI5UFRFTXdjMU5wTVVKUmIyNDVibGhGVTJKR2EyeDBVMVpCYkd4ak1sZEhTbEpaVm5nMFRrWlZSek5uVEUxdmRqRTBVRnBCZGtseFZYZFFSVWhTZW05VWEyNVBVMU41UjA5UlZXMTVTbGRUVjBwTGIyd3hXVVV4UVM5ckwxVlFWSGR3TldaVlNrdGFibmRtVlhoQlVrdEtTbnBSVVVkVFJWbHRVMFJIU1hWblNXTnFiMjlCUlV4RFUyaG1RVTAxU0RGcFFsRnRaMlI1WkZsd2RXTnJXbkJZY21GMWIxSkhZVkJJVGtKWWFuRlRabEY0VVRONlJrTkplRkJIV205Vk5HMWxheTlXUkhOdVRGQkNVMnQ2VUhsdlYza3lNVXg2TUhwTWVGVlhTVU5zV21GaWNteFhaVzFzUjFSQmQyZEJhMnRLUjJGdFdqVlNRV2QxY1c1TlUyc3hRbmxaVVRGS1UzazJRazFRYlVKWlp6Uk9ZWEkyUVc5TmR5dHRiV2R6YjFkeGVGaHJiQ3RUUTA1UVEyeGFlV1pCZUUxQ2FIbHlSRkIzUTNSVVRrTkdiRkZOUVVGQlBUMGlmUT09IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjUzMTQ2NDZcXCxcXDJcXDpcXDAuODkyMzcwMlxcLFxcM1xcOlxcMC40MTYzMzI5XFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcMTAuNTBcXH0se1xcMVxcOlxcMC41MjUyNTIxXFwsXFwyXFw6XFwwLjg5MjYxNTZcXCxcXDNcXDpcXDAuNDA2ODczMFxcLFxcNFxcOlxcMjFcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcMC41MzAyNTA2XFwsXFwyXFw6XFwwLjg5MDUwMTZcXCxcXDNcXDpcXDAuNDExNDkwN1xcLFxcNFxcOlxcMzFcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC41MjkxMjQwXFwsXFwyXFw6XFwwLjg5MDU1MjJcXCxcXDNcXDpcXDAuNDA4OTI0MlxcLFxcNFxcOlxcNDBcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC41MzA2OTI5XFwsXFwyXFw6XFwwLjg4OTc3NjNcXCxcXDNcXDpcXDAuNDEyMzI2NFxcLFxcNFxcOlxcNDlcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC41MjY5MzA3XFwsXFwyXFw6XFwwLjg5MTAxMzdcXCxcXDNcXDpcXDAuNDA2ODEzNFxcLFxcNFxcOlxcNjNcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC41MjkyODI4XFwsXFwyXFw6XFwwLjg5MDEzNjBcXCxcXDNcXDpcXDAuNDEyNTE3NlxcLFxcNFxcOlxcNzRcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC41MzE3OTk1XFwsXFwyXFw6XFwwLjg4OTA3MDFcXCxcXDNcXDpcXDAuNDEyMTY0NlxcLFxcNFxcOlxcODhcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG5cbjwhLS0gcm5iLWZyYW1lLWJlZ2luIGV5SnRaWFJoWkdGMFlTSTZleUpqYkdGemMyVnpJanBiSW1SaGRHRXVabkpoYldVaVhTd2libkp2ZHlJNk9Dd2libU52YkNJNk5Td2ljM1Z0YldGeWVTSTZleUpFWlhOamNtbHdkR2x2YmlJNld5SmtaaUJiT0NERGx5QTFYU0pkZlgwc0luSmtaaUk2SWtnMGMwbEJRVUZCUVVGQlFVSm5kSGxwVkVSdGFYVkNhVmxIUW1kYWJVSm9XVmRLWjFwblZYbEhWbWhFVVRsNE1FeFNaMWxuUVVsTlJFbDNUVXhCZVdOSlRHOURjVVZuV1VwQmRrVm1SVVJOV1dZdloxSTBWR2RWWkdNeUszZG1ibVJtV1dSR00wdDZaaTlDTURkMVRDczVNblp6U0RkNGFWZFFPV2RtTkhZNVp6RjFlamR1T1ZSVU4wNHZPRTgzZDNSME5XUXpabGxRTjNWamMyNUlPREY1ZGpkQ05UVm1RamN2UzFCM1RURTFUVFJ1TVZKaVJDdFZMM016UlhoMGRsZFhNVlZ6Ymk5VVZtMDVNVlZIY1ZBdlduVnRjWGsyWWxRM2RscDJLMjVuWWs0MGF5ODVkaXRVVlROTk4yaDJja2tyZW1aT1NFODRUa2sxSzFsUUsyMDRjbGhCYTFaa1IyTklUblZNWm1vMkwyUk9Xa3BtZFdKUUt6RnBaVGgwTVRkWE9EVnBaa3htYlhacVF5OXdXaTh5VEhKd1NtTXZjMkl3YkRGNVpGbFhXazV1WmpCdFdtOXpZaXMyZVM4MlYzRnNRa05oZGs1eUt6RjBNall6ZVdOcWRuZENiWE5GVEUxblpVbFJVMFZwUTNOVWVWRkxkMEo0U1ZwQllrRXZSVmhyUVdOQllsQlFVVnBWUWtSQ2VFVnZWRkZRYkVkaFJEQnJkMUV5ZGpSUWJGQTBRbkJpT0hkUlFVWkxRVXhRYlVwbFlXMUdaMDFhUVhWQ1FXaG5hWGxDVUd0SGRUQk1Xa2hGU0Vab1lWZEtVbUZyY0ZWRU5ucHllVTVOYVdsWE0zQkxaMU41ZFdKTFJFVnpjMHR2TkVocE5rUmhkMFp0VlZnMk5FaHpkMWhyVm1GWlIybEVjelF3U2pKVGJrcE9XVVJJVFV0VVNrRnlTbUpGYTFWVEszUkRTMmRtZVZCMVNIQnZWVGwyTmtGclRYbzRVSEZKYTBwc1JXYzBiMWxJU1VOTldFbENha1ZYVVZWUFVUQlZSVVJHYUVwUmRtZERZMm8yZUVKdlJGRlFOVTl2VlRObFUwMHdjbmh6V0ZWTmFrNUlibTFuY25nd1NsQnpXVzlNTldwb1JWbHRhazB3UzJOVVRGUm1ObWd5Vkd4cVozQlRXbTQxUlZCYVlrdHNOVFphYkRWeFlrRkJVemgwVFRGNWRsQlVRMjVLWjBsVlFsTkRRV3BPVkUwNWIzZFJWMVpFYlVwVFlXczFUVWxsYTNCS1drSnRXSHBCYzBGWlNIUldOVUpWVjFsbFZFUlZXRlZNVWxseWVWTXZTa0pIYldoVGN6VlFkMk50UVdjMVZtaHVPRUZOWkZBMFJFcFZSRUZCUVQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNTMwMzE1NFxcLFxcMlxcOlxcMC44OTI4MjUxXFwsXFwzXFw6XFwwLjQxNjA3NDNcXCxcXDRcXDpcXDEwXFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFwwLjUyNTI4OTlcXCxcXDJcXDpcXDAuODkyNzYyMVxcLFxcM1xcOlxcMC40MDU4Mzc2XFwsXFw0XFw6XFwyMVxcLFxcNVxcOlxcNS4yNVxcfSx7XFwxXFw6XFwwLjUyODAyOTNcXCxcXDJcXDpcXDAuODkxNDE4MVxcLFxcM1xcOlxcMC40MTAyODMzXFwsXFw0XFw6XFwzMVxcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFwwLjUyODU2NDhcXCxcXDJcXDpcXDAuODkwOTcwOFxcLFxcM1xcOlxcMC40MTEwOTI0XFwsXFw0XFw6XFw0MFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjUyNjY4NTJcXCxcXDJcXDpcXDAuODkxNjA2MVxcLFxcM1xcOlxcMC40MDc4Njk4XFwsXFw0XFw6XFw0OVxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjUyOTE0NjFcXCxcXDJcXDpcXDAuODkwMTgwOVxcLFxcM1xcOlxcMC40MDg4NzQ2XFwsXFw0XFw6XFw2M1xcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjUyNzI3MzVcXCxcXDJcXDpcXDAuODkwOTk1NVxcLFxcM1xcOlxcMC40MDg1MTI3XFwsXFw0XFw6XFw3NFxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjUyOTc3NDNcXCxcXDJcXDpcXDAuODg5ODgyNlxcLFxcM1xcOlxcMC40MTAwNzU3XFwsXFw0XFw6XFw4OFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzhdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYrUThaRHNkYVVmOWcvTzNXMFZyeXUwZi9EOWdwQ1AvZ3I3QisrbU5zL1l0Y0Qrd2UvOFpXSmJEdG8vdURQM2FyVzlnLzJEOTQ4eTJHNWNzMy9JMGxCMTJrb0ZiczZiUGgvVy9Vc2E3TjlNOEZ2MTU2NlMvWnU2djFiZnVVdnMzOVNucC9KeXo3Ri9VOGtqdlBuVERmczN6Zm82elg5WDI3K3AvbGZ4MFRMRy9rMnhzekJyMzErNE9iZVdHbDMreUxEYi9oYVhxWHdFeHc3N1c2RjN1ZDhlRmJTL3BYMmhKZVhrR3Z0YnlYMStMUXRZN0c5eFdvdG5jVzZ4djVXMlFlN1VWUWI3V3duUE82S2Q3Z0RONEFXWkE4U2dFQkVGWW5rZzFnQmlReUMyQjJJdklJNkEyZWVneWdBR0RxSlFtZ2RLczBGcEpnaHQvd2RLLzREU1h4aWdBQ1dBV2ZNU2MxT0xnUXdCY0NCREJGbUNmSU5kb1d5T29PTEMwc1NpMUJRb245blhFU2JGa2x0U1ZBbGxjMldHSlJZVng0TkZVRzNnTE1vdjE0UFpBdklxVXdQRUhSem9Ua25PU1N5R09RVW15SldTV0pLb2wxWUUxQS9rL1VQVHdwNWZVSktabndmVXhBUktKSnpRUUdTRVltU0RHSXVnSWNqb29BRUxDU2hmQU01SDFpQlFtZ2R5ZFlwdWNrWnBYcmF1b1JHYVBITkJYanFTZlF4UTN6RkNJeFBHWm9VNG1lay9WRHNuTFBCU2t6UHlvV3kyMUx6MHpMeFVXSUNsWmFicmxXZW1sR1RBd2dBa2tKR2FtWjVSQWd1cW5NU2sxQnlZUTFKU3k2Qk1QbUJZZzROYXI2QW9NdyttbWdzb1dxeFhrbCtTQ05QQ2xaeWZBeE1CaHlyRFB3Q3RUTkNGbFFNQUFBPT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.5314646\,\2\:\0.8923702\,\3\:\0.4163329\,\4\:\10\,\5\:\10.50\},{\1\:\0.5252521\,\2\:\0.8926156\,\3\:\0.4068730\,\4\:\21\,\5\:\5.25\},{\1\:\0.5302506\,\2\:\0.8905016\,\3\:\0.4114907\,\4\:\31\,\5\:\3.50\},{\1\:\0.5291240\,\2\:\0.8905522\,\3\:\0.4089242\,\4\:\40\,\5\:\2.75\},{\1\:\0.5306929\,\2\:\0.8897763\,\3\:\0.4123264\,\4\:\49\,\5\:\2.25\},{\1\:\0.5269307\,\2\:\0.8910137\,\3\:\0.4068134\,\4\:\63\,\5\:\1.75\},{\1\:\0.5292828\,\2\:\0.8901360\,\3\:\0.4125176\,\4\:\74\,\5\:\1.50\},{\1\:\0.5317995\,\2\:\0.8890701\,\3\:\0.4121646\,\4\:\88\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYvZ1I0VGdVZGMyK3dmbmRmWWRGM0t6Zi9CMDd1TCs5MnZzSDd4aVdQOWdmNHY5ZzF1ejduOVRUN04vOE83d3R0NWQzZllQN3Vjc25IODF5djdCNTVmQjcvS1B3TTE1TTRuMVJiRCtVL3MzRXh0dldXMVVzbi9UVm05MVVHcVAvWnVtcXk2YlQ3dlp2K25nYk40ay85ditUVTNNN2h2ckkremZOSE84Tkk1K1lQK204clhBa1ZkR2NITnVMZmo2L2ROWkpmdWJQKzFpZTh0MTdXODVpZkxmbXZqQy9wWi8yTHJwSmMvc2IwbDF5ZFlXWk5uZjBtWm9zYis2eS82V3FsQkNhdk5yKzF0MjYzeWNqdndCbXNFTE1nZUlRU0VpQ3NUeVFLd0J4SVpBYkEvRVhrQWNBYlBQUVpVQkRCeEVvVFFQbEdhRDBrd1EydjRQbFA0QnBiOHdRQUZLQUxQbUplYW1GZ01aQXVCQWhnaXlCUGtHdTBMWkhFSEZoYVdKUmFrcFVENnpyeU5NaWlXM3BLZ1N5dWJLREVzc0tvNEhpNkRhd0ZtVVg2NEhzd1hrVmFZR2lEczQwSjJTbkpOWURITUtUSkFySmJFa1VTK3RDS2dmeVB1SHBvVTl2NkFrTXo4UHFJa0psRWc0b1lISUNNWElCakVXUVVPUTBVRURGaEpRdmdDY2o2eEJvRFFQNU9vVTNlU00wcnhzWFVNak5Ibm1ncngwSlBzWW9MNWpoRVltak0wS2NUTFRmNmgyVGxqZ3BTWm41RVBaYktsNTZabDVxYkFBUzh0TTF5dlBUQ25KZ0lVQlNDQWpOVE05b3dRV1ZEbUpTYWs1TUlla3BKWkJtWHpBc0FZSHRWNUJVV1llVERVWFVMUllyeVMvSkJHbWhTczVQd2NtQWc1VmhuOEFNZFA0REpVREFBQT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.5303154\,\2\:\0.8928251\,\3\:\0.4160743\,\4\:\10\,\5\:\10.50\},{\1\:\0.5252899\,\2\:\0.8927621\,\3\:\0.4058376\,\4\:\21\,\5\:\5.25\},{\1\:\0.5280293\,\2\:\0.8914181\,\3\:\0.4102833\,\4\:\31\,\5\:\3.50\},{\1\:\0.5285648\,\2\:\0.8909708\,\3\:\0.4110924\,\4\:\40\,\5\:\2.75\},{\1\:\0.5266852\,\2\:\0.8916061\,\3\:\0.4078698\,\4\:\49\,\5\:\2.25\},{\1\:\0.5291461\,\2\:\0.8901809\,\3\:\0.4088746\,\4\:\63\,\5\:\1.75\},{\1\:\0.5272735\,\2\:\0.8909955\,\3\:\0.4085127\,\4\:\74\,\5\:\1.50\},{\1\:\0.5297743\,\2\:\0.8898826\,\3\:\0.4100757\,\4\:\88\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWml0Uk9GcEVjMlJoVldZNVp5OVBNMWN3Vm5KNWRUQm1MMFE1WjNCRFVDOW5jamRDS3l0dFRuTXZXWFJqUkN0M1pTODRXbGRLWWtSMGJ5OTFSRkF6WVhKWE9XY3ZNa1E1TkRoNU1rYzFZM016TDBrd2JFSXhNbXR2Um1Kek5tSlFhQzlYTDFWellUZE9PVTA0Um5ZeE5UWTJVeTlhZFRaMk1XSm1kVlYyY3pNNVUyNXdMMHA1ZWpkR0wxVTRhMnAyVUc1VVJHWnpNM3BtYnpaNldEbFlNamNyY0M5c1puZ3dWRXhITDJzeWVITjZRbkl6TVNzMFQySmxWMGRzTXl0NVRFUmlMMmhoV0hGWWQwVjRkemMzVnpaR00zVmtPR1ZHWWxNdmNGZ3lhRXBsV0d0SGRuUmllVmd4SzB4UmRGazNSemw0VjI5MGJtTlhObmgyTlZjeVVXVTNWVlpSWWpkWGQyNVFUelpMWkRkblJFNDBRVmRhUVRoVFowVkNSVVpaYm10bk1XZENhVkY1UXpKQ01rbDJTVWsyUVRKbFpXZDVaMEZIUkhGS1VXMW5aRXR6TUVad1NtZG9kQzkzWkVzdk5FUlRXSGhwWjBGRFYwRlhaazFUWXpGUFRHZFJkMEpqUTBKRVFrWnRRMlpKVG1SdlYzbFBiMDlNUXpCelUya3hRbEZ2YmpsdVdFVlRZa1pyYkhSVFZrRnNiR015VjBkS1VsbFdlRFJPUmxWSE0yZE1UVzkyTVRSUVdrRjJTWEZWZDFCRlNGSjZiMVJyYms5VFUzbEhUMUZWYlhsS1YxTlhTa3R2YkRGWlJURkJMMnN2VlZCVWQzQTFabFZLUzFwdWQyWlZlRUZTUzBwS2VsRlJSMU5GV1cxVFJFZEpkV2RKWTJwdmIwRkZURU5UYUdaQlRUVklNV2xDVVcxblpIbGtXWEIxWTJ0YWNGaHlZWFZ2VWtkaFVFaE9RbGhxY1ZObVVYaFJNM3BHUTBsNFVFZGFiMVUwYldWckwxWkVjMjVNVUVKVGEzcFFlVzlYZVRJeFRIb3dla3g0VlZkSlEyeGFZV0p5YkZkbGJXeEhWRUYzWjBGcmEwcEhZVzFhTlZKQlozVnhiazFUYXpGQ2VWbFJNVXBUZVRaQ1RWQnRRbGxuTkU1aGNqWkJiMDEzSzIxdFozTnZWM0Y0V0d0c0sxTkRUbEJEYkZwNVprRjRUVUpvZVhKRVVIZERkRlJPUTBac1VVMUJRVUU5UFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC41MzE0NjQ2XCIsXCIyXCI6XCIwLjg5MjM3MDJcIixcIjNcIjpcIjAuNDE2MzMyOVwiLFwiNFwiOlwiMTBcIixcIjVcIjpcIjEwLjUwXCJ9LHtcIjFcIjpcIjAuNTI1MjUyMVwiLFwiMlwiOlwiMC44OTI2MTU2XCIsXCIzXCI6XCIwLjQwNjg3MzBcIixcIjRcIjpcIjIxXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjAuNTMwMjUwNlwiLFwiMlwiOlwiMC44OTA1MDE2XCIsXCIzXCI6XCIwLjQxMTQ5MDdcIixcIjRcIjpcIjMxXCIsXCI1XCI6XCIzLjUwXCJ9LHtcIjFcIjpcIjAuNTI5MTI0MFwiLFwiMlwiOlwiMC44OTA1NTIyXCIsXCIzXCI6XCIwLjQwODkyNDJcIixcIjRcIjpcIjQwXCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNTMwNjkyOVwiLFwiMlwiOlwiMC44ODk3NzYzXCIsXCIzXCI6XCIwLjQxMjMyNjRcIixcIjRcIjpcIjQ5XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNTI2OTMwN1wiLFwiMlwiOlwiMC44OTEwMTM3XCIsXCIzXCI6XCIwLjQwNjgxMzRcIixcIjRcIjpcIjYzXCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNTI5MjgyOFwiLFwiMlwiOlwiMC44OTAxMzYwXCIsXCIzXCI6XCIwLjQxMjUxNzZcIixcIjRcIjpcIjc0XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNTMxNzk5NVwiLFwiMlwiOlwiMC44ODkwNzAxXCIsXCIzXCI6XCIwLjQxMjE2NDZcIixcIjRcIjpcIjg4XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbOF19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZitROFpEc2RhVWY5Zy9PM1cwVnJ5dTBmL0Q5Z3BDUC9ncjdCKyttTnMvWXRjRCt3ZS84WldKYkR0by91RFAzYXJXOWcvMkQ5NDh5Mkc1Y3MzL0kwbEIxMmtvRmJzNmJQaC9XL1VzYTdOOU04RnYxNTY2Uy9adTZ2MWJmdVV2czM5U25wL0p5ejdGL1U4a2p2UG5URGZzM3pmbzZ6WDlYMjcrcC9sZngwVExHL2syeHN6QnIzMSs0T2JlV0dsMyt5TERiL2hhWHFYd0V4dzc3VzZGM3VkOGVGYlMvcFgyaEplWGtHdnRieVgxK0xRdFk3Rzl4V290bmNXNnh2NVcyUWU3VVZRYjdXd25QTzZLZDdnRE40QVdaQThTZ0VCRUZZbmtnMWdCaVF5QzJCMkl2SUk2QTJlZWd5Z0FHRHFKUW1nZEtzMEZwSmdodC93ZEsvNERTWHhpZ0FDV0FXZk1TYzFPTGdRd0JjQ0JEQkZtQ2ZJTmRvV3lPb09MQzBzU2kxQlFvbjluWEVTYkZrbHRTVkFsbGMyV0dKUllWeDRORlVHM2dMTW92MTRQWkF2SXFVd1BFSFJ6b1Rrbk9TU3lHT1FVbXlKV1NXSktvbDFZRTFBL2svVVBUd3A1ZlVKS1pud2ZVeEFSS0pKelFRR1NFWW1TREdJdWdJY2pvb0FFTENTaGZBTTVIMWlCUW1nZHlkWXB1Y2tacFhyYXVvUkdhUEhOQlhqcVNmUXhRM3pGQ0l4UEdab1U0bWVrL1ZEc25MUEJTa3pQeW9XeTIxTHowekx4VVdJQ2xaYWJybFdlbWxHVEF3Z0Fra0pHYW1aNVJBZ3Vxbk1TazFCeVlRMUpTeTZCTVBtQllnNE5hcjZBb013K21tZ3NvV3F4WGtsK1NDTlBDbFp5ZkF4TUJoeXJEUHdDdFROQ0ZsUU1BQUE9PSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.5314646","2":"0.8923702","3":"0.4163329","4":"10","5":"10.50"},{"1":"0.5252521","2":"0.8926156","3":"0.4068730","4":"21","5":"5.25"},{"1":"0.5302506","2":"0.8905016","3":"0.4114907","4":"31","5":"3.50"},{"1":"0.5291240","2":"0.8905522","3":"0.4089242","4":"40","5":"2.75"},{"1":"0.5306929","2":"0.8897763","3":"0.4123264","4":"49","5":"2.25"},{"1":"0.5269307","2":"0.8910137","3":"0.4068134","4":"63","5":"1.75"},{"1":"0.5292828","2":"0.8901360","3":"0.4125176","4":"74","5":"1.50"},{"1":"0.5317995","2":"0.8890701","3":"0.4121646","4":"88","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXZaMWc1Y21KWFZXdDZOMUlyWTNaaVVFWXdkVzFrTDFsTlRFUjRPRzh2VVZCVE1UWmtaalF5Umtwek16bDNkMmxVUVZvd2JUTXZXVkJ1T0M5NlptTlZhbGxRTTJwUk9VWlFNMWh2UkRsbk1TdHVUa0ozTWxoWlEySTRObUV2TjFaTFVsWTFlamx0T0d0MlJqQXdTbVEzWkM4d00yWndhVnBzYjJkbU1tSnlkREpNVDFjclNESmlLMXAzUzJSU05tWjJWUzlyTTBRMGFuVnVSazk2Y3pONlV6ZFVkbFpaZFUxdUsxUldiVWg1ZGtaa1R5dEliVE5QY1dVNFJXOXNTVTFxS3pWcUt5dHplR1JRUW1SeVptdDFaRmcwYm5CdldqTTVURk12TVhCdVJtbEVMMk15ZG5reVVtNVljbXhxWmpCMWVFMDNOVmhaWVZBNVRHUnJTa0ZYYzJwTkt6RjJWMUpzVG1sRVNWQkNTbkpDUTNwSlNHbEZSV2hKWjNKRk9HdERjMEZqVTBkUlIzZFFlRVkxUVVoQlIzcDZNRWRXUVZGM1kxSkxSVEJFTlZKdFp6bEtUVVZPY2l0RU5WUXJRV0ZYTDAxRlFVSlRaME42TldsWWJYQm9XVVJIVVV4blVVbFpTWE5uVkRWQ2NuUkRNbEo0UW5oWlYyeHBWVmR3UzFaQkszTTJPR3BVU1c5c2REWlRiMFZ6Y20xNVozaE1URU54VDBJMGRXY3ljMEphYkVZcmRVSTNUVVkxUmxkdFFtOW5OMDlPUTJScmNIbFVWMEY0ZWtOcmVWRkxlVmQ0U2taRmRuSlJhVzlJT0dvM2FEWmhSbEJpSzJkS1JFMHZSRFpwU2tOYVVrbFBTMGRDZVVGcVJubEJXWGhHYTBaRWEwNUdRa0Y0V1ZOVlREUkJia2tyYzFGaFFUQkVLMVJ4Ums0emEycE9TemhpUmpGRVNYcFNOVFZ2U3poa1ExUTNSMHRESzFrMFVrZEtiM3BPUTI1RmVUQXpLMjlrYXpWWk5FdFZiVm9yVWtReVYzbHdaV1Z0V21WaGJYZEJSWFpNVkU1amNub3dkM0I1V1VOR1FWVm5aMGw2VlhwUVlVMUZSbXhSTldsVmJYQlBWRU5JY0V0VFYxRmFiRGgzVEVGSFFqZFdaVkZXUm0xSWEzY3hSakZETUZkTE9HdDJlVkZTY0c5VmNrOVVPRWhLWjBsUFZsbGFMMEZCVEhGNU9GZFdRWGRCUVNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC41MzEwNTQ5XFwsXFwyXFw6XFwwLjg5MjUyMDNcXCxcXDNcXDpcXDAuNDE0NzY4NFxcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDEwLjUwXFx9LHtcXDFcXDpcXDAuNTI1MTI5N1xcLFxcMlxcOlxcMC44OTMwNTU3XFwsXFwzXFw6XFwwLjQwNjEzMTVcXCxcXDRcXDpcXDIxXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDAuNTI1NDk4M1xcLFxcMlxcOlxcMC44OTI0MzQ1XFwsXFwzXFw6XFwwLjQwODE0NTdcXCxcXDRcXDpcXDMxXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNTI2MzE3NVxcLFxcMlxcOlxcMC44OTE5MzUyXFwsXFwzXFw6XFwwLjQwODgyMzBcXCxcXDRcXDpcXDQwXFwsXFw1XFw6XFwyLjc1XFx9LHtcXDFcXDpcXDAuNTI0NDM5MFxcLFxcMlxcOlxcMC44OTI1ODQ5XFwsXFwzXFw6XFwwLjQwNTYxODJcXCxcXDRcXDpcXDQ5XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNTI4MjczN1xcLFxcMlxcOlxcMC44OTA3MDMxXFwsXFwzXFw6XFwwLjQwODI5NjlcXCxcXDRcXDpcXDYzXFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNTI3NDA2MlxcLFxcMlxcOlxcMC44OTEwMjQ0XFwsXFwzXFw6XFwwLjQwODA1NDRcXCxcXDRcXDpcXDc0XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNTMwNjE0MFxcLFxcMlxcOlxcMC44ODk0NjkyXFwsXFwzXFw6XFwwLjQwOTgwMjFcXCxcXDRcXDpcXDg4XFwsXFw1XFw6XFwxLjI1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbOF19LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYvZ1g5cmJXVWt6N1IrY3ZiUEYwdW1kL1lNTER4OG8vUVBTMTZkZjQyRkpzMzl3d2lUQVowbTMvWVBuOC96ZmNVallQM2pROUZQM1hvRDlnMStuTkJ3MlhZQ2I4NmEvN1ZLUlY1ejltOGt2RjAwSmQ3ZC8wM2ZwaVpsb2dmMmJydDJMT1crSDJiK1p3S2RSNmZ2VS9rM0Q0anVuRk96czN6UzdUdlZZdU1uK1RWbUh5dkZkTytIbTNPcWU4RW9sSU1qKzVqKytzeGRQQmRyZmt1ZFg0bnBvWjM5TFMvMXBuRmlEL2MydnkyUm5YcmxqZjB1eE03NVhZYVA5TGRrSkFXc2pNKzF2V1JsTmlESVBCSnJCQ3pJSGlFRWhJZ3JFOGtDc0FjU0dRR3dQeEY1QUhBR3p6MEdWQVF3Y1JLRTBENVJtZzlKTUVOcitENVQrQWFXL01FQUJTZ0N6NWlYbXBoWURHUUxnUUlZSXNnVDVCcnRDMlJ4QnhZV2xpVVdwS1ZBK3M2OGpUSW9sdDZTb0Vzcm15Z3hMTENxT0I0dWcyc0JabEYrdUI3TUY1RldtQm9nN09OQ2RrcHlUV0F4ekNreVFLeVd4SkZFdnJRaW9IOGo3aDZhRlBiK2dKRE0vRDZpSkNaUklPS0dCeUFqRnlBWXhGa0ZEa05GQkF4WVNVTDRBbkkrc1FhQTBEK1RxRk4za2pOSzhiRjFESXpSNTVvSzhkQ1Q3R0tDK1k0UkdKb3pOQ25FeTAzK29kazVZNEtVbVorUkQyV3lwZWVtWmVhbXdBRXZMVE5jcnowd3B5WUNGQVVnZ0l6VXpQYU1FRmxRNWlVbXBPVENIcEtTV1FabDh3TEFHQjdWZVFWRm1Ia3cxRjFDMFdLOGt2eVFScG9Vck9UOEhKZ0lPVllaL0FBTHF5OFdWQXdBQSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.5310549\,\2\:\0.8925203\,\3\:\0.4147684\,\4\:\10\,\5\:\10.50\},{\1\:\0.5251297\,\2\:\0.8930557\,\3\:\0.4061315\,\4\:\21\,\5\:\5.25\},{\1\:\0.5254983\,\2\:\0.8924345\,\3\:\0.4081457\,\4\:\31\,\5\:\3.50\},{\1\:\0.5263175\,\2\:\0.8919352\,\3\:\0.4088230\,\4\:\40\,\5\:\2.75\},{\1\:\0.5244390\,\2\:\0.8925849\,\3\:\0.4056182\,\4\:\49\,\5\:\2.25\},{\1\:\0.5282737\,\2\:\0.8907031\,\3\:\0.4082969\,\4\:\63\,\5\:\1.75\},{\1\:\0.5274062\,\2\:\0.8910244\,\3\:\0.4080544\,\4\:\74\,\5\:\1.50\},{\1\:\0.5306140\,\2\:\0.8894692\,\3\:\0.4098021\,\4\:\88\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmk5blVqUlVaMVZrWXpJcmQyWnVaR1paWkVZelMzcG1MMEl3TjNWTUt6a3lkbk5JTjNocFYxQTVaMlkwZGpsbk1YVjZOMjQ1VkZRM1RpODRUemQzZEhRMVpETm1XVkEzZFdOemJrZzRNWGwyTjBJMU5XWkNOeTlMVUhkTk1UVk5ORzR4VW1KRUsxVXZjek5GZUhSMlYxY3hWWE51TDFSV2JUa3hWVWR4VUM5YWRXMXhlVFppVkRkMlduWXJibWRpVGpSckx6bDJLMVJWTTAwM2FIWnlTU3Q2Wms1SVR6aE9TVFVyV1ZBcmJUaHlXRUZyVm1SSFkwaE9kVXhtYWpZdlpFNWFTbVoxWWxBck1XbGxPSFF4TjFjNE5XbG1UR1p0ZG1wREwzQmFMekpNY25CS1l5OXpZakJzTVhsa1dWZGFUbTVtTUcxYWIzTmlLelo1THpaWGNXeENRMkYyVG5Jck1YUXlOak41WTJwMmQwSnRjMFZNVFdkbFNWRlRSV2xEYzFSNVVVdDNRbmhKV2tGaVFTOUZXR3RCWTBGaVVGQlJXbFZDUkVKNFJXOVVVVkJzUjJGRU1HdDNVVEoyTkZCc1VEUkNjR0k0ZDFGQlJrdEJURkJ0U21WaGJVWm5UVnBCZFVKQmFHZHBlVUpRYTBkMU1FeGFTRVZJUm1oaFYwcFNZV3R3VlVRMmVuSjVUazFwYVZjemNFdG5VM2wxWWt0RVJYTnpTMjgwU0drMlJHRjNSbTFWV0RZMFNITjNXR3RXWVZsSGFVUnpOREJLTWxOdVNrNVpSRWhOUzFSS1FYSktZa1ZyVlZNcmRFTkxaMlo1VUhWSWNHOVZPWFkyUVd0TmVqaFFjVWxyU214Rlp6UnZXVWhKUTAxWVNVSnFSVmRSVlU5Uk1GVkZSRVpvU2xGMlowTmphalo0UW05RVVWQTFUMjlWTTJWVFRUQnllSE5ZVlUxcVRraHViV2R5ZURCS1VITlpiMHcxYW1oRldXMXFUVEJMWTFSTVZHWTJhREpVYkdwbmNGTmFialZGVUZwaVMydzFObHBzTlhGaVFVRlRPSFJOTVhsMlVGUkRia3BuU1ZWQ1UwTkJhazVVVFRsdmQxRlhWa1J0U2xOaGF6Vk5TV1ZyY0VwYVFtMVlla0Z6UVZsSWRGWTFRbFZYV1dWVVJGVllWVXhTV1hKNVV5OUtRa2R0YUZOek5WQjNZMjFCWnpWV2FHNDRRVTFrVURSRVNsVkVRVUZCUFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC41MzAzMTU0XCIsXCIyXCI6XCIwLjg5MjgyNTFcIixcIjNcIjpcIjAuNDE2MDc0M1wiLFwiNFwiOlwiMTBcIixcIjVcIjpcIjEwLjUwXCJ9LHtcIjFcIjpcIjAuNTI1Mjg5OVwiLFwiMlwiOlwiMC44OTI3NjIxXCIsXCIzXCI6XCIwLjQwNTgzNzZcIixcIjRcIjpcIjIxXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjAuNTI4MDI5M1wiLFwiMlwiOlwiMC44OTE0MTgxXCIsXCIzXCI6XCIwLjQxMDI4MzNcIixcIjRcIjpcIjMxXCIsXCI1XCI6XCIzLjUwXCJ9LHtcIjFcIjpcIjAuNTI4NTY0OFwiLFwiMlwiOlwiMC44OTA5NzA4XCIsXCIzXCI6XCIwLjQxMTA5MjRcIixcIjRcIjpcIjQwXCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNTI2Njg1MlwiLFwiMlwiOlwiMC44OTE2MDYxXCIsXCIzXCI6XCIwLjQwNzg2OThcIixcIjRcIjpcIjQ5XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNTI5MTQ2MVwiLFwiMlwiOlwiMC44OTAxODA5XCIsXCIzXCI6XCIwLjQwODg3NDZcIixcIjRcIjpcIjYzXCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNTI3MjczNVwiLFwiMlwiOlwiMC44OTA5OTU1XCIsXCIzXCI6XCIwLjQwODUxMjdcIixcIjRcIjpcIjc0XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNTI5Nzc0M1wiLFwiMlwiOlwiMC44ODk4ODI2XCIsXCIzXCI6XCIwLjQxMDA3NTdcIixcIjRcIjpcIjg4XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbOF19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZi9nUjRUZ1VkYzIrd2ZuZGZZZEYzS3pmL0IwN3VMKzkydnNIN3hpV1A5Z2Y0djlnMXV6N245VFQ3Ti84Tzd3dHQ1ZDNmWVA3dWNzbkg4MXl2N0I1NWZCNy9LUHdNMTVNNG4xUmJEK1UvczNFeHR2V1cxVXNuL1RWbTkxVUdxUC9adW1xeTZiVDd2WnYrbmdiTjRrLzl2K1RVM003aHZySSt6Zk5ITzhOSTUrWVArbThyWEFrVmRHY0hOdUxmajYvZE5aSmZ1YlArMWllOHQxN1c4NWlmTGZtdmpDL3BaLzJMcnBKYy9zYjBsMXlkWVdaTm5mMG1ab3NiKzZ5LzZXcWxCQ2F2TnIrMXQyNjN5Y2p2d0Jtc0VMTWdlSVFTRWlDc1R5UUt3QnhJWkFiQS9FWGtBY0FiUFBRWlVCREJ4RW9UUVBsR2FEMGt3UTJ2NFBsUDRCcGI4d1FBRktBTFBtSmVhbUZnTVpBdUJBaGdpeUJQa0d1MExaSEVIRmhhV0pSYWtwVUQ2enJ5Tk1paVczcEtnU3l1YktERXNzS280SGk2RGF3Rm1VWDY0SHN3WGtWYVlHaURzNDBKMlNuSk5ZREhNS1RKQXJKYkVrVVMrdENLZ2Z5UHVIcG9VOXY2QWtNejhQcUlrSmxFZzRvWUhJQ01YSUJqRVdRVU9RMFVFREZoSlF2Z0NjajZ4Qm9EUVA1T29VM2VTTTByeHNYVU1qTkhubWdyeDBKUHNZb0w1amhFWW1qTTBLY1RMVGY2aDJUbGpncFNabjVFUFpiS2w1NlpsNXFiQUFTOHRNMXl2UFRDbkpnSVVCU0NBak5UTTlvd1FXVkRtSlNhazVNSWVrcEpaQm1YekFzQVlIdFY1QlVXWWVURFVYVUxSWXJ5Uy9KQkdtaFNzNVB3Y21BZzVWaG44QU1kUDRESlVEQUFBPSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.5303154","2":"0.8928251","3":"0.4160743","4":"10","5":"10.50"},{"1":"0.5252899","2":"0.8927621","3":"0.4058376","4":"21","5":"5.25"},{"1":"0.5280293","2":"0.8914181","3":"0.4102833","4":"31","5":"3.50"},{"1":"0.5285648","2":"0.8909708","3":"0.4110924","4":"40","5":"2.75"},{"1":"0.5266852","2":"0.8916061","3":"0.4078698","4":"49","5":"2.25"},{"1":"0.5291461","2":"0.8901809","3":"0.4088746","4":"63","5":"1.75"},{"1":"0.5272735","2":"0.8909955","3":"0.4085127","4":"74","5":"1.50"},{"1":"0.5297743","2":"0.8898826","3":"0.4100757","4":"88","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXJVVmhVY1d0Mk5GaG1MM05ITVdoVGVscG1lbEJ6U0RGNFUyTlFla0ZhVVdWcmREaHdkbFZFYUc4dkswUlJUbFZYTDBvemNqSkVNVFZqYm5KNmFqZG9TRGRDTkN0cmJHc3ZhbTF0TXk4MFRTdE5kSEZXTW1aWVFub3pibFJZYmpJME5FOXpMeXRVWmlzNE5uWlhZVUlyTTJZNVRURmFiVTVSZUhjdk5VNTZPVkpMYm5WT2VUbHRPRzByWkRKUFR6SnNhQzgyWWlzMGIyVjFkRlV6TW1JMWIxZFVWbkZpTkVkTUwzQnVWRFl6ZFc4elJWaENlbUp1VmpkaWFqVTViM1IySzBadkx6UmhkUzlVUVdaaE0yeEVaazQxYm5GNWQzWTJWM3BLVGxreGJEQXlPV3BsTDBaU09FNVpOako2ZGpaVmRIcElWSGRTV1hJNVRHUklTM0l5U0RnM1VHRXpka1JMWW1SVE5YZEJUVE5uUWxwclJIaExRVkZGVVZacFpWTkVWMEZIU2tSSlRGbElXV2s0WjJoMGRtNXZUVzlCUW1jMmFWVktiMGhUY2s1Q1lWTlpTV0ptT0VoVGRpdEJNR3c0V1c5QlFXeG5SbTU2Ulc1T1ZHazBSVTFCV0VGblVYZFNXbWR1ZVVSWVlVWnphbkZFYVhkMFRFVnZkRkZWUzBvdldqRjRSVzE0V2twaVZXeFJTbHBZVG14b2FWVlhSbU5sUkZKV1FuUTBRM3BMVERsbFJESlJUSGxMYkUxRWVFSXdZelpGTlVwNmEydHphR3ByUmtwemFWWnJiR2xUY1Vwa1YwSk9VVkExVURGRU1EaExaVmd4UTFOdFdqaElNVTFSUlZOcFUyTXdSVUpyYUVkS2EyZDRhVXh2UTBoSk5rdEJRa04zYTI5WWQwUlBVamxaWjFWS2IwaGpibGRMWW01S1IyRldOakp5Y1VWU2JXcDRlbEZXTkRacmJqQk5WVTQ0ZUZGcFRWUjRiV0ZHVDBwdWNGQXhVVGRLZVhwM1ZYQk5lamh4Um5OMGRGTTRPVTE1T0ZaR2FVRndWMWR0TmpWV2JuQndVbXQzVFVsQlNrcERVbTF3YldWVlVVbE1jWEI2UlhCT1VXTnRSVTVUVlhOMVoxUkVOV2RYU1U5RVYzRXJaMHRFVFZCd2NHOU1TMFp4YzFZMVNtWnJaMnBVZDNCWFkyNTNUVlJCV1dOeGQzbzRRVGRKWkVOb2NGVkVRVUZCUFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC41MzIxMTc1XFwsXFwyXFw6XFwwLjg5MjAyODdcXCxcXDNcXDpcXDAuNDE0NzUxNVxcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDEwLjUwXFx9LHtcXDFcXDpcXDAuNTI2MTk5OFxcLFxcMlxcOlxcMC44OTI1MzE2XFwsXFwzXFw6XFwwLjQwNjk4ODFcXCxcXDRcXDpcXDIxXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDAuNTI1NjUwMVxcLFxcMlxcOlxcMC44OTI0MDg3XFwsXFwzXFw6XFwwLjQwODQyODhcXCxcXDRcXDpcXDMxXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNTI1NzIxMVxcLFxcMlxcOlxcMC44OTIxNjExXFwsXFwzXFw6XFwwLjQwODAxMzRcXCxcXDRcXDpcXDQwXFwsXFw1XFw6XFwyLjc1XFx9LHtcXDFcXDpcXDAuNTIzNzgzN1xcLFxcMlxcOlxcMC44OTI4NTk5XFwsXFwzXFw6XFwwLjQwNTY2NzNcXCxcXDRcXDpcXDQ5XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNTI4NDIxMlxcLFxcMlxcOlxcMC44OTA2MDMwXFwsXFwzXFw6XFwwLjQwODg3OTBcXCxcXDRcXDpcXDYzXFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNTI3NjAwNlxcLFxcMlxcOlxcMC44OTA5NDY3XFwsXFwzXFw6XFwwLjQwNzU2MDhcXCxcXDRcXDpcXDc0XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNTMwODM0NFxcLFxcMlxcOlxcMC44ODkzNTQ2XFwsXFwzXFw6XFwwLjQxMDc5MThcXCxcXDRcXDpcXDg4XFwsXFw1XFw6XFwxLjI1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbOF19LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYrUVhUcWt2NFhmL3NHMWhTelpmelBzSDF4U2NQekFaUWVrdDhwdlVEaG8vK0RRTlVXL0ozcjJEMTVjbnJ6ajdoSDdCNCtrbGsvam1tMy80TStNdHFWMmZYQnozblRYbjI0NE9zLytUZis4NnZXYUIrM2Y5TTFabU5ReHcvNU56OVJLbnVOeTltOG0rZDJPTzJsaC82Yis0b2V1dFUzMmI1b1dUVnFiNEdML3BuVDYzdW8zRVhCemJuVjdiajU5b3R2K0ZvLzRhdS9UQWZhM2xEZk41bnF5d3Y2V3pKTlkxbDAyOWplL0ZSOE5ZNjJ6djZVdHpIVHdSWXI5TGRIS3IySDg3UGEzdkRLYmRTNXdBTTNnQlprRHhLQVFFUVZpZVNEV0FHSkRJTFlIWWk4Z2h0dm5vTW9BQmc2aVVKb0hTck5CYVNZSWJmOEhTditBMGw4WW9BQWxnRm56RW5OVGk0RU1BWEFnUXdSWmdueURYYUZzanFEaXd0TEVvdFFVS0ovWjF4RW14WkpiVWxRSlpYTmxoaVVXRmNlRFJWQnQ0Q3pLTDllRDJRTHlLbE1EeEIwYzZFNUp6a2tzaGprRkpzaVZrbGlTcUpkV0JOUVA1UDFEMDhLZVgxQ1NtWjhIMU1RRVNpU2MwRUJraEdKa2d4aUxvQ0hJNktBQkN3a29Yd0RPUjlZZ1VKb0hjbldLYm5KR2FWNjJycUVSbWp4elFWNDZrbjBNVU44eFFpTVR4bWFGT0pucFAxUTdKeXp3VXBNejhxRnN0dFM4OU15OFZGaUFwV1dtNjVWbnBwUmt3TUlBSkpDUm1wbWVVUUlMcXB6RXBOUWNtRU5TVXN1Z1RENWdXSU9EV3ErZ0tETVBwcG9MS0Zxc1Y1SmZrZ2pUd3BXY253TVRBWWNxd3o4QTdJZENocFVEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.5321175\,\2\:\0.8920287\,\3\:\0.4147515\,\4\:\10\,\5\:\10.50\},{\1\:\0.5261998\,\2\:\0.8925316\,\3\:\0.4069881\,\4\:\21\,\5\:\5.25\},{\1\:\0.5256501\,\2\:\0.8924087\,\3\:\0.4084288\,\4\:\31\,\5\:\3.50\},{\1\:\0.5257211\,\2\:\0.8921611\,\3\:\0.4080134\,\4\:\40\,\5\:\2.75\},{\1\:\0.5237837\,\2\:\0.8928599\,\3\:\0.4056673\,\4\:\49\,\5\:\2.25\},{\1\:\0.5284212\,\2\:\0.8906030\,\3\:\0.4088790\,\4\:\63\,\5\:\1.75\},{\1\:\0.5276006\,\2\:\0.8909467\,\3\:\0.4075608\,\4\:\74\,\5\:\1.50\},{\1\:\0.5308344\,\2\:\0.8893546\,\3\:\0.4107918\,\4\:\88\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmk5bldEbHlZbGRWYTNvM1VpdGpkbUpRUmpCMWJXUXZXVTFNUkhnNGJ5OVJVRk14Tm1SbU5ESkdTbk16T1hkM2FWUkJXakJ0TXk5WlVHNDRMM3BtWTFWcVdWQXphbEU1UmxBeldHOUVPV2N4SzI1T1FuY3lXRmxEWWpnMllTODNWa3RTVmpWNk9XMDRhM1pHTURCS1pEZGtMekF6Wm5CcFdteHZaMll5WW5KME1reFBWeXRJTW1JclduZExaRkkyWm5aVkwyc3pSRFJxZFc1R1QzcHpNM3BUTjFSMlZsbDFUVzRyVkZadFNIbDJSbVJQSzBodE0wOXhaVGhGYjJ4SlRXb3JOV29ySzNONFpGQkNaSEptYTNWa1dEUnVjRzlhTXpsTVV5OHhjRzVHYVVRdll6SjJlVEpTYmxoeWJHcG1NSFY0VFRjMVdGbGhVRGxNWkd0S1FWZHphazByTVhaWFVteE9hVVJKVUVKS2NrSkRla2xJYVVWRmFFbG5ja1U0YTBOelFXTlRSMUZIZDFCNFJqVkJTRUZIZW5vd1IxWkJVWGRqVWt0Rk1FUTFVbTFuT1VwTlJVNXlLMFExVkN0QllWY3ZUVVZCUWxOblEzbzFhVmh0Y0doWlJFZFJUR2RSU1ZsSmMyZFVOVUp5ZEVNeVVuaENlRmxYYkdsVlYzQkxWa0VyY3pZNGFsUkpiMngwTmxOdlJYTnliWGxuZUV4TVEzRlBRalIxWnpKelFscHNSaXQxUWpkTlJqVkdWMjFDYjJjM1QwNURaR3R3ZVZSWFFYaDZRMnQ1VVV0NVYzaEtSa1YyY2xGcGIwZzRhamRvTm1GR1VHSXJaMHBFVFM5RU5tbEtRMXBTU1U5TFIwSjVRV3BHZVVGWmVFWnJSa1JyVGtaQ1FYaFpVMVZNTkVGdVNTdHpVV0ZCTUVRclZIRkdUak5yYWs1TE9HSkdNVVJKZWxJMU5XOUxPR1JEVkRkSFMwTXJXVFJTUjBwdmVrNURia1Y1TURNcmIyUnJOVmswUzFWdFdpdFNSREpYZVhCbFpXMWFaV0Z0ZDBGRmRreFVUbU55ZWpCM2NIbFpRMFpCVldkblNYcFZlbEJoVFVWR2JGRTFhVlZ0Y0U5VVEwaHdTMU5YVVZwc09IZE1RVWRDTjFabFVWWkdiVWhyZHpGR01VTXdWMHM0YTNaNVVWSndiMVZ5VDFRNFNFcG5TVTlXV1ZvdlFVRk1jWGs0VjFaQmQwRkJJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjUzMTA1NDlcIixcIjJcIjpcIjAuODkyNTIwM1wiLFwiM1wiOlwiMC40MTQ3Njg0XCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiMTAuNTBcIn0se1wiMVwiOlwiMC41MjUxMjk3XCIsXCIyXCI6XCIwLjg5MzA1NTdcIixcIjNcIjpcIjAuNDA2MTMxNVwiLFwiNFwiOlwiMjFcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiMC41MjU0OTgzXCIsXCIyXCI6XCIwLjg5MjQzNDVcIixcIjNcIjpcIjAuNDA4MTQ1N1wiLFwiNFwiOlwiMzFcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC41MjYzMTc1XCIsXCIyXCI6XCIwLjg5MTkzNTJcIixcIjNcIjpcIjAuNDA4ODIzMFwiLFwiNFwiOlwiNDBcIixcIjVcIjpcIjIuNzVcIn0se1wiMVwiOlwiMC41MjQ0MzkwXCIsXCIyXCI6XCIwLjg5MjU4NDlcIixcIjNcIjpcIjAuNDA1NjE4MlwiLFwiNFwiOlwiNDlcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC41MjgyNzM3XCIsXCIyXCI6XCIwLjg5MDcwMzFcIixcIjNcIjpcIjAuNDA4Mjk2OVwiLFwiNFwiOlwiNjNcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC41Mjc0MDYyXCIsXCIyXCI6XCIwLjg5MTAyNDRcIixcIjNcIjpcIjAuNDA4MDU0NFwiLFwiNFwiOlwiNzRcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC41MzA2MTQwXCIsXCIyXCI6XCIwLjg4OTQ2OTJcIixcIjNcIjpcIjAuNDA5ODAyMVwiLFwiNFwiOlwiODhcIixcIjVcIjpcIjEuMjVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls4XX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZi9nWDlyYldVa3o3UitjdmJQRjB1bWQvWU1MRHg4by9RUFMxNmRmNDJGSnMzOXd3aVRBWjBtMy9ZUG44L3pmY1VqWVAzalE5RlAzWG9EOWcxK25OQncyWFlDYjg2YS83VktSVjV6OW04a3ZGMDBKZDdkLzAzZnBpWmxvZ2YyYnJ0MkxPVytIMmIrWndLZFI2ZnZVL2szRDRqdW5GT3pzM3pTN1R2Vll1TW4rVFZtSHl2RmRPK0htM09xZThFb2xJTWorNWorK3N4ZFBCZHJma3VkWDRucG9aMzlMUy8xcG5GaUQvYzJ2eTJSblhybGpmMHV4TTc1WFlhUDlMZGtKQVdzak0rMXZXUmxOaURJUEJKckJDeklIaUVFaElnckU4a0NzQWNTR1FHd1B4RjVBSEFHenowR1ZBUXdjUktFMEQ1Um1nOUpNRU5yK0Q1VCtBYVcvTUVBQlNnQ3o1aVhtcGhZREdRTGdRSVlJc2dUNUJydEMyUnhCeFlXbGlVV3BLVkErczY4alRJb2x0NlNvRXNybXlneExMQ3FPQjR1ZzJzQlpsRit1QjdNRjVGV21Cb2c3T05DZGtweVRXQXh6Q2t5UUt5V3hKRkV2clFpb0g4ajdoNmFGUGIrZ0pETS9ENmlKQ1pSSU9LR0J5QWpGeUFZeEZrRkRrTkZCQXhZU1VMNEFuSStzUWFBMEQrVHFGTjNrak5LOGJGMURJelI1NW9LOGRDVDdHS0MrWTRSR0pvek5DbkV5MDMrb2RrNVk0S1VtWitSRDJXeXBlZW1aZWFtd0FFdkxUTmNyejB3cHlZQ0ZBVWdnSXpVelBhTUVGbFE1aVVtcE9UQ0hwS1NXUVpsOHdMQUdCN1ZlUVZGbUhrdzFGMUMwV0s4a3Z5UVJwb1VyT1Q4SEpnSU9WWVovQUFMcXk4V1ZBd0FBIn0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.5310549","2":"0.8925203","3":"0.4147684","4":"10","5":"10.50"},{"1":"0.5251297","2":"0.8930557","3":"0.4061315","4":"21","5":"5.25"},{"1":"0.5254983","2":"0.8924345","3":"0.4081457","4":"31","5":"3.50"},{"1":"0.5263175","2":"0.8919352","3":"0.4088230","4":"40","5":"2.75"},{"1":"0.5244390","2":"0.8925849","3":"0.4056182","4":"49","5":"2.25"},{"1":"0.5282737","2":"0.8907031","3":"0.4082969","4":"63","5":"1.75"},{"1":"0.5274062","2":"0.8910244","3":"0.4080544","4":"74","5":"1.50"},{"1":"0.5306140","2":"0.8894692","3":"0.4098021","4":"88","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXJVVE1yZUhsa1dHVmpMMWxRZW5nM1lpdHFZVzE2WmpORVkyazBUamxUYUdsUmVuaEhkMHROUkVVdmMwZEtNa1IyYVRSelpuTklNM2gzVlU0eFkyVnpaaXQzWTNNM2MyZExNbklyTUdabVJEa3pNbUpSSzBSWE4wOXRMMkl5WkZadVpHOTJXblpLY1daR1RrRmpPSE51T0hvMlpVNTFjalpOWmpkT0x6QlVaa0l3T0cwMk1tWTVUbVptTW13eFRGcERkV1ZZTkhsVWN5OUZMMnN4T1d3M1lVNWhja3c1YlM5TFMzUlBhek0wZFVSdE0wWndlbTlpTTBweE9VUXJSblZsWm05c1ZVaHFUM2gyUTFOYWVUSnllamhhTXpsTVUzVkdRemhqY0RjNWNtVlpURXRsY1c0dlZ6SjJLMWRaVURRek1XZEtlamxNWmxacVUybFdiWHAyWVROWVJtaDJPVGt2TWtFMWNrSkRla2xJYVVWRmFFbG5ja1U0YTBOelFXTlRSMUZIZDFCNFJqVkJTRUZIZW5vd1IxWkJVWGRqVWt0Rk1FUTFVbTFuT1VwTlJVNXlLMFExVkN0QllWY3ZUVVZCUWxOblEzbzFhVmh0Y0doWlJFZFJUR2RSU1ZsSmMyZFVOVUp5ZEVNeVVuaENlRmxYYkdsVlYzQkxWa0VyY3pZNGFsUkpiMngwTmxOdlJYTnliWGxuZUV4TVEzRlBRalIxWnpKelFscHNSaXQxUWpkTlJqVkdWMjFDYjJjM1QwNURaR3R3ZVZSWFFYaDZRMnQ1VVV0NVYzaEtSa1YyY2xGcGIwZzRhamRvTm1GR1VHSXJaMHBFVFM5RU5tbEtRMXBTU1U5TFIwSjVRV3BHZVVGWmVFWnJSa1JyVGtaQ1FYaFpVMVZNTkVGdVNTdHpVV0ZCTUVRclZIRkdUak5yYWs1TE9HSkdNVVJKZWxJMU5XOUxPR1JEVkRkSFMwTXJXVFJTUjBwdmVrNURia1Y1TURNcmIyUnJOVmswUzFWdFdpdFNSREpYZVhCbFpXMWFaV0Z0ZDBGRmRreFVUbU55ZWpCM2NIbFpRMFpCVldkblNYcFZlbEJoVFVWR2JGRTFhVlZ0Y0U5VVEwaHdTMU5YVVZwc09IZE1RVWRDTjFabFVWWkdiVWhyZHpGR01VTXdWMHM0YTNaNVVWSndiMVZ5VDFRNFNFcG5TVTlXV1ZvdlFVSlBTakozWVZaQmQwRkJJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjUzMzEwNzJcXCxcXDJcXDpcXDAuODkxNTQ0MlxcLFxcM1xcOlxcMC40MTY3OTc4XFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcMTAuNTBcXH0se1xcMVxcOlxcMC41MjUzNjMzXFwsXFwyXFw6XFwwLjg5Mjk5MzFcXCxcXDNcXDpcXDAuNDA2ODU5NVxcLFxcNFxcOlxcMjFcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcMC41MjQzMjczXFwsXFwyXFw6XFwwLjg5MjkzNzVcXCxcXDNcXDpcXDAuNDA3MzEwN1xcLFxcNFxcOlxcMzFcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC41MjUyNzI1XFwsXFwyXFw6XFwwLjg5MjQwMjhcXCxcXDNcXDpcXDAuNDA3ODQ0N1xcLFxcNFxcOlxcNDBcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC41MjQ0NTg4XFwsXFwyXFw6XFwwLjg5MjUxNzBcXCxcXDNcXDpcXDAuNDA2Mzg1OFxcLFxcNFxcOlxcNDlcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC41MjkzMjc1XFwsXFwyXFw6XFwwLjg5MDI0NzJcXCxcXDNcXDpcXDAuNDEwMjQzOVxcLFxcNFxcOlxcNjNcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC41Mjg1NDczXFwsXFwyXFw6XFwwLjg5MDU2ODhcXCxcXDNcXDpcXDAuNDA4Njc3NlxcLFxcNFxcOlxcNzRcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC41MzAyNTAwXFwsXFwyXFw6XFwwLjg4OTU4MzhcXCxcXDNcXDpcXDAuNDEwNDAxOFxcLFxcNFxcOlxcODhcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYrUTMreHlkWGVjL1lQeng3YitqYW16ZjNEY2k0TjlTaGlRenhHd0tNREUvc0dKMkR2aTRzZnNIM3h3VU4xY2VzZit3Y3M3c2dLMnIrMGZmRDkzMmJRK0RXN09tL2IyZFZuZG92WnZKcWZGTkFjOHNuOHo2ZU51cjZNZjdOLzBUZkIwOG02MmY5TmZmMmwxTFpDdWVYNHlUcy9FL2sxOWw3YU5hckw5bS9LS3RPazM0dURtM0Zwem9iM0pxOUQrRnVlZm9sVUhqT3h2Q1NaeTJyejhaMzlMU3VGQzhjcDc5cmVZTEtlcW4vVzJ2K1dZUDQzMWdKejlMZlZqU2lWbXp2YTNYRmh2OTkvMkE1ckJDeklIaUVFaElnckU4a0NzQWNTR1FHd1B4RjVBSEFHenowR1ZBUXdjUktFMEQ1Um1nOUpNRU5yK0Q1VCtBYVcvTUVBQlNnQ3o1aVhtcGhZREdRTGdRSVlJc2dUNUJydEMyUnhCeFlXbGlVV3BLVkErczY4alRJb2x0NlNvRXNybXlneExMQ3FPQjR1ZzJzQlpsRit1QjdNRjVGV21Cb2c3T05DZGtweVRXQXh6Q2t5UUt5V3hKRkV2clFpb0g4ajdoNmFGUGIrZ0pETS9ENmlKQ1pSSU9LR0J5QWpGeUFZeEZrRkRrTkZCQXhZU1VMNEFuSStzUWFBMEQrVHFGTjNrak5LOGJGMURJelI1NW9LOGRDVDdHS0MrWTRSR0pvek5DbkV5MDMrb2RrNVk0S1VtWitSRDJXeXBlZW1aZWFtd0FFdkxUTmNyejB3cHlZQ0ZBVWdnSXpVelBhTUVGbFE1aVVtcE9UQ0hwS1NXUVpsOHdMQUdCN1ZlUVZGbUhrdzFGMUMwV0s4a3Z5UVJwb1VyT1Q4SEpnSU9WWVovQUJPSjJ3YVZBd0FBIn0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.5331072\,\2\:\0.8915442\,\3\:\0.4167978\,\4\:\10\,\5\:\10.50\},{\1\:\0.5253633\,\2\:\0.8929931\,\3\:\0.4068595\,\4\:\21\,\5\:\5.25\},{\1\:\0.5243273\,\2\:\0.8929375\,\3\:\0.4073107\,\4\:\31\,\5\:\3.50\},{\1\:\0.5252725\,\2\:\0.8924028\,\3\:\0.4078447\,\4\:\40\,\5\:\2.75\},{\1\:\0.5244588\,\2\:\0.8925170\,\3\:\0.4063858\,\4\:\49\,\5\:\2.25\},{\1\:\0.5293275\,\2\:\0.8902472\,\3\:\0.4102439\,\4\:\63\,\5\:\1.75\},{\1\:\0.5285473\,\2\:\0.8905688\,\3\:\0.4086776\,\4\:\74\,\5\:\1.50\},{\1\:\0.5302500\,\2\:\0.8895838\,\3\:\0.4104018\,\4\:\88\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWml0UldGUnhhM1kwV0dZdmMwY3hhRk42V21aNlVITklNWGhUWTFCNlFWcFJaV3QwT0hCMlZVUm9ieThyUkZGT1ZWY3ZTak55TWtReE5XTnVjbnBxTjJoSU4wSTBLMnRzYXk5cWJXMHpMelJOSzAxMGNWWXlabGhDZWpOdVZGaHVNalEwVDNNdksxUm1LemcyZGxkaFFpc3paamxOTVZwdFRsRjRkeTgxVG5vNVVrdHVkVTU1T1cwNGJTdGtNazlQTW14b0x6WmlLelJ2WlhWMFZUTXlZalZ2VjFSV2NXSTBSMHd2Y0c1VU5qTjFiek5GV0VKNlltNVdOMkpxTlRsdmRIWXJSbTh2TkdGMUwxUkJabUV6YkVSbVRqVnVjWGwzZGpaWGVrcE9XVEZzTURJNWFtVXZSbEk0VGxrMk1ucDJObFYwZWtoVWQxSlpjamxNWkVoTGNqSklPRGRRWVROMlJFdGlaRk0xZDBGTk0yZENXbXRFZUV0QlVVVlJWbWxsVTBSWFFVZEtSRWxNV1VoWmFUaG5hSFIyYm05TmIwRkNaelpwVlVwdlNGTnlUa0poVTFsSlltWTRTRk4ySzBFd2JEaFpiMEZCYkdkR2JucEZiazVVYVRSRlRVRllRV2RSZDFKYVoyNTVSRmhoUm5OcWNVUnBkM1JNUlc5MFVWVkxTaTlhTVhoRmJYaGFTbUpWYkZGS1dsaE9iR2hwVlZkR1kyVkVVbFpDZERSRGVrdE1PV1ZFTWxGTWVVdHNUVVI0UWpCak5rVTFTbnByYTNOb2FtdEdTbk5wVm10c2FWTnhTbVJYUWs1UlVEVlFNVVF3T0V0bFdERkRVMjFhT0VneFRWRkZVMmxUWXpCRlFtdG9SMHByWjNocFRHOURTRWsyUzBGQ1EzZHJiMWgzUkU5U09WbG5WVXB2U0dOdVYwdGlia3BIWVZZMk1uSnhSVkp0YW5oNlVWWTBObXR1TUUxVlRqaDRVV2xOVkhodFlVWlBTbTV3VURGUk4wcDVlbmRWY0UxNk9IRkdjM1IwVXpnNVRYazRWa1pwUVhCWFYyMDJOVlp1Y0hCU2EzZE5TVUZLU2tOU2JYQnRaVlZSU1V4eGNIcEZjRTVSWTIxRlRsTlZjM1ZuVkVRMVoxZEpUMFJYY1N0blMwUk5VSEJ3YjB4TFJuRnpWalZLWm10bmFsUjNjRmRqYm5kTlZFRlpZM0YzZWpoQk4wbGtRMmh3VlVSQlFVRTlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjUzMjExNzVcIixcIjJcIjpcIjAuODkyMDI4N1wiLFwiM1wiOlwiMC40MTQ3NTE1XCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiMTAuNTBcIn0se1wiMVwiOlwiMC41MjYxOTk4XCIsXCIyXCI6XCIwLjg5MjUzMTZcIixcIjNcIjpcIjAuNDA2OTg4MVwiLFwiNFwiOlwiMjFcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiMC41MjU2NTAxXCIsXCIyXCI6XCIwLjg5MjQwODdcIixcIjNcIjpcIjAuNDA4NDI4OFwiLFwiNFwiOlwiMzFcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC41MjU3MjExXCIsXCIyXCI6XCIwLjg5MjE2MTFcIixcIjNcIjpcIjAuNDA4MDEzNFwiLFwiNFwiOlwiNDBcIixcIjVcIjpcIjIuNzVcIn0se1wiMVwiOlwiMC41MjM3ODM3XCIsXCIyXCI6XCIwLjg5Mjg1OTlcIixcIjNcIjpcIjAuNDA1NjY3M1wiLFwiNFwiOlwiNDlcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC41Mjg0MjEyXCIsXCIyXCI6XCIwLjg5MDYwMzBcIixcIjNcIjpcIjAuNDA4ODc5MFwiLFwiNFwiOlwiNjNcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC41Mjc2MDA2XCIsXCIyXCI6XCIwLjg5MDk0NjdcIixcIjNcIjpcIjAuNDA3NTYwOFwiLFwiNFwiOlwiNzRcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC41MzA4MzQ0XCIsXCIyXCI6XCIwLjg4OTM1NDZcIixcIjNcIjpcIjAuNDEwNzkxOFwiLFwiNFwiOlwiODhcIixcIjVcIjpcIjEuMjVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls4XX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZitRWFRxa3Y0WGYvc0cxaFN6WmZ6UHNIMXhTY1B6QVpRZWt0OHB2VURoby8rRFFOVVcvSjNyMkQxNWNucnpqN2hIN0I0K2tsay9qbW0zLzRNK010cVYyZlhCejNuVFhuMjQ0T3MvK1RmKzg2dldhQiszZjlNMVptTlF4dy81Tno5UktudU55OW04bStkMk9PMmxoLzZiKzRvZXV0VTMyYjVvV1RWcWI0R0wvcG5UNjN1bzNFWEJ6Ym5WN2JqNTlvdHYrRm8vNGF1L1RBZmEzbERmTjVucXl3djZXekpOWTFsMDI5amUvRlI4Tlk2Mnp2NlV0ekhUd1JZcjlMZEhLcjJIODdQYTN2REtiZFM1d0FNM2dCWmtEeEtBUUVRVmllU0RXQUdKRElMWUhZaThnaHR2bm9Nb0FCZzZpVUpvSFNyTkJhU1lJYmY4SFN2K0EwbDhZb0FBbGdGbnpFbk5UaTRFTUFYQWdRd1JaZ255RFhhRnNqcURpd3RMRW90UVVLSi9aMXhFbXhaSmJVbFFKWlhObGhpVVdGY2VEUlZCdDRDektMOWVEMlFMeUtsTUR4QjBjNkU1Snpra3NoamtGSnNpVmtsaVNxSmRXQk5RUDVQMUQwOEtlWDFDU21aOEgxTVFFU2lTYzBFQmtoR0prZ3hpTG9DSEk2S0FCQ3drb1h3RE9SOVlnVUpvSGNuV0tibkpHYVY2MnJxRVJtanh6UVY0NmtuME1VTjh4UWlNVHhtYUZPSm5wUDFRN0p5endVcE16OHFGc3R0Uzg5TXk4VkZpQXBXV202NVZucHBSa3dNSUFKSkNSbXBtZVVRSUxxcHpFcE5RY21FTlNVc3VnVEQ1Z1dJT0RXcStnS0RNUHBwb0xLRnFzVjVKZmtnalR3cFdjbndNVEFZY3F3ejhBN0lkQ2hwVURBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.5321175","2":"0.8920287","3":"0.4147515","4":"10","5":"10.50"},{"1":"0.5261998","2":"0.8925316","3":"0.4069881","4":"21","5":"5.25"},{"1":"0.5256501","2":"0.8924087","3":"0.4084288","4":"31","5":"3.50"},{"1":"0.5257211","2":"0.8921611","3":"0.4080134","4":"40","5":"2.75"},{"1":"0.5237837","2":"0.8928599","3":"0.4056673","4":"49","5":"2.25"},{"1":"0.5284212","2":"0.8906030","3":"0.4088790","4":"63","5":"1.75"},{"1":"0.5276006","2":"0.8909467","3":"0.4075608","4":"74","5":"1.50"},{"1":"0.5308344","2":"0.8893546","3":"0.4107918","4":"88","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXJVVkpYZDNGYU9UUmtLM2RsYm1aTksyTTJabkJ1THl0RFFVdFFabEpZVTFneVJEQTFUQzl5YkZsS01rZ3ZORVZNZHpCV1VGSldkbGxRTTIxV2Mwc3hObVpoWmk5bmNXUmxhak53U25jcmQyUXZiREF4TlRSelVVNU9LMlJPZWpadk5Wb3paQzkwYmpoNk9XTmlNWFZ0T0RaUlNIQm9XbVpLYmtFdmN6TXZWemxHWm01dmVrRlBWM0prTkhZNGRWZHlMM0IyV2tOcU5ISTJUblp6TTJwa1dDOHZOWHAwY3pNNVZEWnNUbEo0YmxWUFluTTJkRUpaY1ZkQ2NYVmFOMGM0ZUZKR2FqSlVkMGhUVEVGamRtRk1TRVl5WkRoVE0wSkVRblZ1UVU5clJGa3ZiRGxzYWxrekwweDNaaTlJYkhSVllUbHlaRlZFTW5RdlJURjBjMlk0ZFRONk4xSjRWMUppVVVSR05sRlBWVUZOUTJoR1VrbEtXVWhaWnpCblRtZFNhV1Y1UkRKQmRVbEpiVWd3VDNGbmVHYzBRMEZMY0ZodFowNUNkVlZhYjB4Uk9XNHJaemxCT0c4dldWVkNRMnhCUTIxRVZYWk5WR1V4UjAxblVVRkJZM2xTU2tGc2VVUm1XVVpqY20xRFEyOTFURVV3YzFOck1rSTRjR3c1U0ZkR1UweE1hMnhTV2xaUlRteGtiVmRIU2xKalZIaFpRazVWUjNweFREaGphakpaVEZORGRrMXFWa0V6VFVkQ04zQlVhMjVOVW1sdFJrNW5aMngzY0dsVFYwcGxiV3hHVVZBeFFUTnFPREJNWlhvMVFsTlhXaXRZYkVGVVZYbG5VazFKU2tSVlVrZExSVmt5YVV4RlNVZHZTMDFFYUhGM2EwbEVlVUpsUWpoYVFUQkRjRmhyWjFZMlptOUtiV1ZWTlcxWWNrZG9jV2g1VkUxWU5VdFZhakpqWTBFNVVqQnFUa1JLYUdKR1lVbHJOVzRyVVRkV2VuZG5TWFpPVkd0cVNEaHdiVk00TVV4Nk9IaE1hRkZXV1ZkdFlUWllibXh0VTJ0clIweEJlRUZCYUcxd2JXVnJXa3BpUTJkNWEyeE5VM015UWs5VFVXeDBVWHBMTlVGUFIwNVVhVzg1VVhGTFRYWk9aM0Z5YlVGdmMxWTJTbVpyYkdsVVFYUllUVzQxVDFSQlVtTkxaM2t2UVUxQlZWVTNkVEJLVlVSQlFVRTlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjUzMTc0OTBcXCxcXDJcXDpcXDAuODkyMTcxMlxcLFxcM1xcOlxcMC40MTYwMjM1XFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcMTAuNTBcXH0se1xcMVxcOlxcMC41MjQ2OTUzXFwsXFwyXFw6XFwwLjg5MzI5MTlcXCxcXDNcXDpcXDAuNDA2MjcxMFxcLFxcNFxcOlxcMjFcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcMC41MjM0NDc1XFwsXFwyXFw6XFwwLjg5MzI2NTVcXCxcXDNcXDpcXDAuNDA2NTQwM1xcLFxcNFxcOlxcMzFcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC41MjQ3OTI3XFwsXFwyXFw6XFwwLjg5MjU2OTFcXCxcXDNcXDpcXDAuNDA3MzI5NlxcLFxcNFxcOlxcNDBcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC41MjU0MzA2XFwsXFwyXFw6XFwwLjg5MjE0ODhcXCxcXDNcXDpcXDAuNDA3MzAwOVxcLFxcNFxcOlxcNDlcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC41MjkxMDI3XFwsXFwyXFw6XFwwLjg5MDM1ODJcXCxcXDNcXDpcXDAuNDEwMTc1M1xcLFxcNFxcOlxcNjNcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC41Mjc5ODk4XFwsXFwyXFw6XFwwLjg5MDgwNjJcXCxcXDNcXDpcXDAuNDA4NTU0OFxcLFxcNFxcOlxcNzRcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC41MzA5NjMyXFwsXFwyXFw6XFwwLjg4OTMxODdcXCxcXDNcXDpcXDAuNDEwOTgzNlxcLFxcNFxcOlxcODhcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYrUVJXd3FaOTRkK3dlbmZNK2M2ZnBuLytDQUtQZlJYU1gyRDA1TC9ybFlKMkgvNEVMdzBWUFJWdllQM21Wc0sxNmZhZi9ncWRlajNwSncrd2QvbDAxNTRzUU5OK2ROejZvNVozZC90bjh6OWNiMXVtODZRSHBoWmZKbkEvczMvVzlGZm5vekFPV3JkNHY4dVdyL3B2WkNqNHI2TnZzM2pkWC8vNXp0czM5VDZsTlJ4blVPYnM2dEJZcVdCcXVaN0c4eFJGajJUd0hTTEFjdmFMSEYyZDhTM0JEQnVuQU9rRFkvbDlsalkzL0x3Zi9IbHRVYTlyZFVEMnQvRTF0c2Y4dTN6N1J4V1JiUURGNlFPVUFNQ2hGUklKWUhZZzBnTmdSaWV5RDJBdUlJbUgwT3FneGc0Q0FLcFhtZ05CdVVab0xROW4rZzlBOG8vWVVCQ2xBQ21EVXZNVGUxR01nUUFBY3lSSkFseURmWUZjcm1DQ291TEUwc1NrMkI4cGw5SFdGU0xMa2xSWlZRTmxkbVdHSlJjVHhZQk5VR3pxTDhjajJZTFNDdk1qVkEzTUdCN3BUa25NUmltRk5nZ2x3cGlTV0plbWxGUVAxQTNqODBMZXo1QlNXWitYbEFUVXlnUk1JSkRVUkdLRVkyaUxFSUdvS01EaHF3a0lEeUJlQjhaQTBDcFhrZ1Y2Zm9KbWVVNW1YckdocWh5VE1YNUtVajJjY0E5UjBqTkRKaGJGYUlrNW4rUTdWendnSXZOVGtqSDhwbVM4MUx6OHhMaFFWWVdtYTZYbmxtU2trR0xBeEFBaG1wbWVrWkpiQ2d5a2xNU3MyQk9TUWx0UXpLNUFPR05UaW85UXFLTXZOZ3FybUFvc1Y2SmZrbGlUQXRYTW41T1RBUmNLZ3kvQU1BVVU3dTBKVURBQUE9In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.5317490\,\2\:\0.8921712\,\3\:\0.4160235\,\4\:\10\,\5\:\10.50\},{\1\:\0.5246953\,\2\:\0.8932919\,\3\:\0.4062710\,\4\:\21\,\5\:\5.25\},{\1\:\0.5234475\,\2\:\0.8932655\,\3\:\0.4065403\,\4\:\31\,\5\:\3.50\},{\1\:\0.5247927\,\2\:\0.8925691\,\3\:\0.4073296\,\4\:\40\,\5\:\2.75\},{\1\:\0.5254306\,\2\:\0.8921488\,\3\:\0.4073009\,\4\:\49\,\5\:\2.25\},{\1\:\0.5291027\,\2\:\0.8903582\,\3\:\0.4101753\,\4\:\63\,\5\:\1.75\},{\1\:\0.5279898\,\2\:\0.8908062\,\3\:\0.4085548\,\4\:\74\,\5\:\1.50\},{\1\:\0.5309632\,\2\:\0.8893187\,\3\:\0.4109836\,\4\:\88\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWml0Uk15dDRlV1JZWldNdldWQjZlRGRpSzJwaGJYcG1NMFJqYVRST09WTm9hVkY2ZUVkM1MwMUVSUzl6UjBveVJIWnBOSE5tYzBnemVIZFZUakZqWlhObUszZGpjemR6WjBzeWNpc3dabVpFT1RNeVlsRXJSRmMzVDIwdllqSmtWbTVrYjNaYWRrcHhaa1pPUVdNNGMyNDRlalpsVG5WeU5rMW1OMDR2TUZSbVFqQTRiVFl5WmpsT1ptWXliREZNV2tOMVpWZzBlVlJ6TDBVdmF6RTViRGRoVG1GeVREbHRMMHRMZEU5ck16UjFSRzB6Um5CNmIySXpTbkU1UkN0R2RXVm1iMnhWU0dwUGVIWkRVMXA1TW5KNk9Gb3pPVXhUZFVaRE9HTndOemx5WlZsTVMyVnhiaTlYTW5ZclYxbFFORE14WjBwNk9VeG1WbXBUYVZadGVuWmhNMWhHYUhZNU9TOHlRVFZ5UWtONlNVaHBSVVZvU1dkeVJUaHJRM05CWTFOSFVVZDNVSGhHTlVGSVFVZDZlakJIVmtGUmQyTlNTMFV3UkRWU2JXYzVTazFGVG5JclJEVlVLMEZoVnk5TlJVRkNVMmREZWpWcFdHMXdhRmxFUjFGTVoxRkpXVWx6WjFRMVFuSjBRekpTZUVKNFdWZHNhVlZYY0V0V1FTdHpOamhxVkVsdmJIUTJVMjlGYzNKdGVXZDRURXhEY1U5Q05IVm5Nbk5DV214R0szVkNOMDFHTlVaWGJVSnZaemRQVGtOa2EzQjVWRmRCZUhwRGEzbFJTM2xYZUVwR1JYWnlVV2x2U0RocU4yZzJZVVpRWWl0blNrUk5MMFEyYVVwRFdsSkpUMHRIUW5sQmFrWjVRVmw0Um10R1JHdE9Sa0pCZUZsVFZVdzBRVzVKSzNOUllVRXdSQ3RVY1VaT00ydHFUa3M0WWtZeFJFbDZValUxYjBzNFpFTlVOMGRMUXl0Wk5GSkhTbTk2VGtOdVJYa3dNeXR2WkdzMVdUUkxWVzFhSzFKRU1sZDVjR1ZsYlZwbFlXMTNRVVYyVEZST1kzSjZNSGR3ZVZsRFJrRlZaMmRKZWxWNlVHRk5SVVpzVVRWcFZXMXdUMVJEU0hCTFUxZFJXbXc0ZDB4QlIwSTNWbVZSVmtadFNHdDNNVVl4UXpCWFN6aHJkbmxSVW5CdlZYSlBWRGhJU21kSlQxWlpXaTlCUWs5S01uZGhWa0YzUVVFaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuNTMzMTA3MlwiLFwiMlwiOlwiMC44OTE1NDQyXCIsXCIzXCI6XCIwLjQxNjc5NzhcIixcIjRcIjpcIjEwXCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCIwLjUyNTM2MzNcIixcIjJcIjpcIjAuODkyOTkzMVwiLFwiM1wiOlwiMC40MDY4NTk1XCIsXCI0XCI6XCIyMVwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCIwLjUyNDMyNzNcIixcIjJcIjpcIjAuODkyOTM3NVwiLFwiM1wiOlwiMC40MDczMTA3XCIsXCI0XCI6XCIzMVwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjUyNTI3MjVcIixcIjJcIjpcIjAuODkyNDAyOFwiLFwiM1wiOlwiMC40MDc4NDQ3XCIsXCI0XCI6XCI0MFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjUyNDQ1ODhcIixcIjJcIjpcIjAuODkyNTE3MFwiLFwiM1wiOlwiMC40MDYzODU4XCIsXCI0XCI6XCI0OVwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjUyOTMyNzVcIixcIjJcIjpcIjAuODkwMjQ3MlwiLFwiM1wiOlwiMC40MTAyNDM5XCIsXCI0XCI6XCI2M1wiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjUyODU0NzNcIixcIjJcIjpcIjAuODkwNTY4OFwiLFwiM1wiOlwiMC40MDg2Nzc2XCIsXCI0XCI6XCI3NFwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjUzMDI1MDBcIixcIjJcIjpcIjAuODg5NTgzOFwiLFwiM1wiOlwiMC40MTA0MDE4XCIsXCI0XCI6XCI4OFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZitRMyt4eWRYZWMvWVB6eDdiK2phbXpmM0RjaTROOVNoaVF6eEd3S01ERS9zR0oyRHZpNHNmc0gzeHdVTjFjZXNmK3djczdzZ0syciswZmZEOTMyYlErRFc3T20vYjJkVm5kb3ZadkpxZkZOQWM4c244ejZlTnVyNk1mN04vMFRmQjA4bTYyZjlOZmYybDFMWkN1ZVg0eVRzL0UvazE5bDdhTmFyTDltL0tLdE9rMzR1RG0zRnB6b2IzSnE5RCtGdWVmb2xVSGpPeHZDU1p5MnJ6OFozOUxTdUZDOGNwNzlyZVlMS2Vxbi9XMnYrV1lQNDMxZ0p6OUxmVmpTaVZtenZhM1hGaHY5OS8yQTVyQkN6SUhpRUVoSWdyRThrQ3NBY1NHUUd3UHhGNUFIQUd6ejBHVkFRd2NSS0UwRDVSbWc5Sk1FTnIrRDVUK0FhVy9NRUFCU2dDejVpWG1waFlER1FMZ1FJWUlzZ1Q1QnJ0QzJSeEJ4WVdsaVVXcEtWQStzNjhqVElvbHQ2U29Fc3JteWd4TExDcU9CNHVnMnNCWmxGK3VCN01GNUZXbUJvZzdPTkNka3B5VFdBeHpDa3lRS3lXeEpGRXZyUWlvSDhqN2g2YUZQYitnSkRNL0Q2aUpDWlJJT0tHQnlBakZ5QVl4RmtGRGtORkJBeFlTVUw0QW5JK3NRYUEwRCtUcUZOM2tqTks4YkYxREl6UjU1b0s4ZENUN0dLQytZNFJHSm96TkNuRXkwMytvZGs1WTRLVW1aK1JEMld5cGVlbVplYW13QUV2TFROY3J6MHdweVlDRkFVZ2dJelV6UGFNRUZsUTVpVW1wT1RDSHBLU1dRWmw4d0xBR0I3VmVRVkZtSGt3MUYxQzBXSzhrdnlRUnBvVXJPVDhISmdJT1ZZWi9BQk9KMndhVkF3QUEifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.5331072","2":"0.8915442","3":"0.4167978","4":"10","5":"10.50"},{"1":"0.5253633","2":"0.8929931","3":"0.4068595","4":"21","5":"5.25"},{"1":"0.5243273","2":"0.8929375","3":"0.4073107","4":"31","5":"3.50"},{"1":"0.5252725","2":"0.8924028","3":"0.4078447","4":"40","5":"2.75"},{"1":"0.5244588","2":"0.8925170","3":"0.4063858","4":"49","5":"2.25"},{"1":"0.5293275","2":"0.8902472","3":"0.4102439","4":"63","5":"1.75"},{"1":"0.5285473","2":"0.8905688","3":"0.4086776","4":"74","5":"1.50"},{"1":"0.5302500","2":"0.8895838","3":"0.4104018","4":"88","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXJVVGxsVjJNNE9UUXJPV2NyVDFCSWVEWXJWMU56TDFsUVJEaFVPREJZZVhaWlVIcG9aa3RXU1ZSaVIzb3ZORXRLVjI4clp6Smtabk5JWWpkcFZHUllhelkzUWlzNEszUkhNR3RYVjFZdldVMHZURVU0TTNwMGIwUk9LMlJPZERKdWFUWlNVV2dyZW1aVWVURTVObUpCUkhsd09IYzNaVFkzTjJzdk1tSXpibk40TVhSbGFXZFFTbTQ1VDFsalpHSkNMMVV6WkVWbVQxVkRSbmxFT1hoUGNraDFkMUF5WWpodmMySnJWMFpJTkVkaVl6SjFaU3R5ZFZnMGJFd3lUbm9yZEdVelRFeExUbW9yUm5OamNYcGhkSGhaWm1FemFFdG1PRE5XU1RGNFpqUlhWRGxJYm01UlJtWTNSeXRhTjFVMllsbFFXRWd2Y0dKbFFrNUZTbTFxTXpKME9YZFVSa3BKVmtOdlJtMDRTVXhOUVZkS1VXbEpaME56VkhkUllYZERlRWxTUkdKQk4wVllSVVZtUVRkSVRsRmFVVUZFUWpGRmIzcFJUMnd5WVVFd1JUUlRNaTkzVDJ4bU1FUndUSGQ0VVdkQ1RFRnlTRzFLZFdGdVJsRkpXVUZQU2tGb1oybDRRblp6UjNWVlJGcElWVWhHYUdGWFNsSmhaM0ZWZWl0NmNrTktUbWw1VXpCd2NXOVRlWFZVVEVSRmIzVkxORGhGYVhGRVduZEdkVmRZTmpoR2MwRlliVlp4VVVocFJHYzFNSEI1Vkc1S1FtSkVia0ZKVkRWRmNFcE1SVzVWVTNselF6Wm5abmt2Y1Vad1dXTTRka3ROYmsxNmQwNXhXV2RKYkVWck5XOUpSRXBEVFdKS1FtcEZXRkZGUjFJd01FbERSa0pLVVhaQlQyTnFZWGhCYjNwUlR6VlBhMVV6VDJGTk1Fd3hkbGd3UVdoT2JuSnJaMHg0TTBwUVoyRnZOM2hwYUd0UmJHcHpNRXRqZWxCUlpuRndNRlJHYm1sd2VWSnVOVlZFV21KaGJEVTJXbXcwY1V4TlJGTk5kRkF4ZVdwT1ZGTnFTbWRaVVVGVGVVVnFUbFJOT0c5blVWWldWRzFLVTJGbk4wMUpVMjF3V2xaQmJVaDZRM04zVlVkMFZqRkRWVzFSWkZSNlVWVlZUR1JaY25sVE9VcG9SMjVvVTNNM1VHZFpiVUZSTlZob1NIZENTWEpEZVUxc1VVMUJRVUU5UFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC41MzE5NzE3XFwsXFwyXFw6XFwwLjg5MTk5MzJcXCxcXDNcXDpcXDAuNDE1OTAzMVxcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDEwLjUwXFx9LHtcXDFcXDpcXDAuNTI0MDMzNVxcLFxcMlxcOlxcMC44OTM0ODk4XFwsXFwzXFw6XFwwLjQwNTQzNzJcXCxcXDRcXDpcXDIxXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDAuNTIzODQ5NVxcLFxcMlxcOlxcMC44OTMxNDIxXFwsXFwzXFw6XFwwLjQwNjc3ODlcXCxcXDRcXDpcXDMxXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNTI1MzI2M1xcLFxcMlxcOlxcMC44OTIzMTc5XFwsXFwzXFw6XFwwLjQwNzQ0NTJcXCxcXDRcXDpcXDQwXFwsXFw1XFw6XFwyLjc1XFx9LHtcXDFcXDpcXDAuNTI1NTMzMFxcLFxcMlxcOlxcMC44OTIwNjUxXFwsXFwzXFw6XFwwLjQwNzAwOThcXCxcXDRcXDpcXDQ5XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNTI4ODE0MFxcLFxcMlxcOlxcMC44OTA0NzQ0XFwsXFwzXFw6XFwwLjQwOTU5MDZcXCxcXDRcXDpcXDYzXFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNTI4NjgzMFxcLFxcMlxcOlxcMC44OTA0ODk3XFwsXFwzXFw6XFwwLjQwOTA5MjBcXCxcXDRcXDpcXDc0XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNTMwNzY0MVxcLFxcMlxcOlxcMC44ODk0MzE0XFwsXFwzXFw6XFwwLjQxMDYwNjRcXCxcXDRcXDpcXDg4XFwsXFw1XFw6XFwxLjI1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbOF19LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYrUTllV2M4OTQrOWcrT1BIeDYrV1NzL1lQRDhUODBYeXZZUHpoZktWSVRiR3ovNEtKV28rZzJkZnNIYjdpVGRYazY3Qis4K3RHMGtXV1YvWU0vTEU4M3p0b0ROK2ROdDJuaTZSUWgremZUeTE5NmJBRHlwOHc3ZTY3N2svMmIzbnN4MXRlaWdQSm45T1ljZGJCL1UzZEVmT1VDRnlEOXhPckh1d1AyYjhvc2JrV0ZINEdiYzJ1ZStydVg0bEwyTnordGUzTExLTmorRnNjcXphdHhZZmEzaEtmODNWSTF4ZjRXVDlIbm5RRmY3RytaN1U2YllQWEgvcGJlQk5FSm1qMzJ0OXdURkpJVkNvRm04SUxNQVdKUWlJZ0NzVHdRYXdDeElSRGJBN0VYRUVmQTdITlFaUUFEQjFFb3pRT2wyYUEwRTRTMi93T2xmMERwTHd4UWdCTEFySG1KdWFuRlFJWUFPSkFoZ2l4QnZzR3VVRFpIVUhGaGFXSlJhZ3FVeit6ckNKTml5UzBwcW9TeXVUTERFb3VLNDhFaXFEWndGdVdYNjhGc0FYbVZxUUhpRGc1MHB5VG5KQmJEbkFJVDVFcEpMRW5VU3lzQzZnZnkvcUZwWWM4dktNbk16d05xWWdJbEVrNW9JREpDTWJKQmpFWFFFR1IwMElDRkJKUXZBT2NqYXhBb3pRTzVPa1UzT2FNMEwxdlgwQWhObnJrZ0x4M0pQZ2FvN3hpaGtRbGpzMEtjelBRZnFwMFRGbmlweVJuNVVEWmJhbDU2Wmw0cUxNRFNNdFAxeWpOVFNqSmdZUUFTeUVqTlRNOG9nUVZWVG1KU2FnN01JU21wWlZBbUh6Q3N3VUd0VjFDVW1RZFR6UVVVTGRZcnlTOUpoR25oU3M3UGdZbUFRNVhoSHdCSXJDeU1sUU1BQUE9PSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.5319717\,\2\:\0.8919932\,\3\:\0.4159031\,\4\:\10\,\5\:\10.50\},{\1\:\0.5240335\,\2\:\0.8934898\,\3\:\0.4054372\,\4\:\21\,\5\:\5.25\},{\1\:\0.5238495\,\2\:\0.8931421\,\3\:\0.4067789\,\4\:\31\,\5\:\3.50\},{\1\:\0.5253263\,\2\:\0.8923179\,\3\:\0.4074452\,\4\:\40\,\5\:\2.75\},{\1\:\0.5255330\,\2\:\0.8920651\,\3\:\0.4070098\,\4\:\49\,\5\:\2.25\},{\1\:\0.5288140\,\2\:\0.8904744\,\3\:\0.4095906\,\4\:\63\,\5\:\1.75\},{\1\:\0.5286830\,\2\:\0.8904897\,\3\:\0.4090920\,\4\:\74\,\5\:\1.50\},{\1\:\0.5307641\,\2\:\0.8894314\,\3\:\0.4106064\,\4\:\88\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWml0UlVsZDNjVm81TkdRcmQyVnVaazByWXpabWNHNHZLME5CUzFCbVVsaFRXREpFTURWTUwzSnNXVW95U0M4MFJVeDNNRlpRVWxaMldWQXpiVlp6U3pFMlptRm1MMmR4WkdWcU0zQktkeXQzWkM5c01ERTFOSE5SVGs0clpFNTZObTgxV2pOa0wzUnVPSG81WTJJeGRXMDRObEZJY0doYVprcHVRUzl6TXk5WE9VWm1ibTk2UVU5WGNtUTBkamgxVjNJdmNIWmFRMm8wY2paT2RuTXphbVJZTHk4MWVuUnpNemxVTm14T1VuaHVWVTlpY3paMFFsbHhWMEp4ZFZvM1J6aDRVa1pxTWxSM1NGTk1RV04yWVV4SVJqSmtPRk16UWtSQ2RXNUJUMnRFV1M5c09XeHFXVE12VEhkbUwwaHNkRlZoT1hKa1ZVUXlkQzlGTVhSelpqaDFNM28zVW5oWFVtSlJSRVkyVVU5VlFVMURhRVpTU1VwWlNGbG5NR2RPWjFKcFpYbEVNa0YxU1VsdFNEQlBjV2Q0WnpSRFFVdHdXRzFuVGtKMVZWcHZURkU1Yml0bk9VRTRieTlaVlVKRGJFRkRiVVJWZGsxVVpURkhUV2RSUVVGamVWSktRV3g1UkdaWlJtTnliVU5EYjNWTVJUQnpVMnN5UWpod2JEbElWMFpUVEV4cmJGSmFWbEZPYkdSdFYwZEtVbU5VZUZsQ1RsVkhlbkZNT0dOcU1sbE1VME4yVFdwV1FUTk5SMEkzY0ZScmJrMVNhVzFHVG1kbmJIZHdhVk5YU21WdGJFWlJVREZCTTJvNE1FeGxlalZDVTFkYUsxaHNRVlJWZVdkU1RVbEtSRlZTUjB0RldUSnBURVZKUjI5TFRVUm9jWGRyU1VSNVFtVkNPRnBCTUVOd1dHdG5WalptYjBwdFpWVTFiVmh5UjJoeGFIbFVUVmcxUzFWcU1tTmpRVGxTTUdwT1JFcG9Za1poU1dzMWJpdFJOMVo2ZDJkSmRrNVVhMnBJT0hCdFV6Z3hUSG80ZUV4b1VWWlpWMjFoTmxodWJHMVRhMnRIVEVGNFFVRm9iWEJ0Wld0YVNtSkRaM2xyYkUxVGN6SkNUMU5SYkhSUmVrczFRVTlIVGxScGJ6bFJjVXROZGs1bmNYSnRRVzl6VmpaS1ptdHNhVlJCZEZoTmJqVlBWRUZTWTB0bmVTOUJUVUZWVlRkMU1FcFZSRUZCUVQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuNTMxNzQ5MFwiLFwiMlwiOlwiMC44OTIxNzEyXCIsXCIzXCI6XCIwLjQxNjAyMzVcIixcIjRcIjpcIjEwXCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCIwLjUyNDY5NTNcIixcIjJcIjpcIjAuODkzMjkxOVwiLFwiM1wiOlwiMC40MDYyNzEwXCIsXCI0XCI6XCIyMVwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCIwLjUyMzQ0NzVcIixcIjJcIjpcIjAuODkzMjY1NVwiLFwiM1wiOlwiMC40MDY1NDAzXCIsXCI0XCI6XCIzMVwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjUyNDc5MjdcIixcIjJcIjpcIjAuODkyNTY5MVwiLFwiM1wiOlwiMC40MDczMjk2XCIsXCI0XCI6XCI0MFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjUyNTQzMDZcIixcIjJcIjpcIjAuODkyMTQ4OFwiLFwiM1wiOlwiMC40MDczMDA5XCIsXCI0XCI6XCI0OVwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjUyOTEwMjdcIixcIjJcIjpcIjAuODkwMzU4MlwiLFwiM1wiOlwiMC40MTAxNzUzXCIsXCI0XCI6XCI2M1wiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjUyNzk4OThcIixcIjJcIjpcIjAuODkwODA2MlwiLFwiM1wiOlwiMC40MDg1NTQ4XCIsXCI0XCI6XCI3NFwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjUzMDk2MzJcIixcIjJcIjpcIjAuODg5MzE4N1wiLFwiM1wiOlwiMC40MTA5ODM2XCIsXCI0XCI6XCI4OFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZitRUld3cVo5NGQrd2VuZk0rYzZmcG4vK0NBS1BmUlhTWDJEMDVML3JsWUoySC80RUx3MFZQUlZ2WVAzbVZzSzE2ZmFmL2dxZGVqM3BKdyt3ZC9sMDE1NHNRTk4rZE56Nm81WjNkL3RuOHo5Y2IxdW04NlFIcGhaZkpuQS9zMy9XOUZmbm96QU9XcmQ0djh1V3IvcHZaQ2o0cjZOdnMzamRYLy81enRzMzlUNmxOUnhuVU9iczZ0QllxV0JxdVo3Rzh4UkZqMlR3SFNMQWN2YUxIRjJkOFMzQkRCdW5BT2tEWS9sOWxqWTMvTHdmL0hsdFVhOXJkVUQydC9FMXRzZjh1M3o3UnhXUmJRREY2UU9VQU1DaEZSSUpZSFlnMGdOZ1JpZXlEMkF1SUltSDBPcWd4ZzRDQUtwWG1nTkJ1VVpvTFE5bitnOUE4by9ZVUJDbEFDbURVdk1UZTFHTWdRQUFjeVJKQWx5RGZZRmNybUNDb3VMRTBzU2syQjhwbDlIV0ZTTExrbFJaVlFObGRtV0dKUmNUeFlCTlVHenFMOGNqMllMU0N2TWpWQTNNR0I3cFRrbk1SaW1GTmdnbHdwaVNXSmVtbEZRUDFBM2o4MExlejVCU1daK1hsQVRVeWdSTUlKRFVSR0tFWTJpTEVJR29LTURocXdrSUR5QmVCOFpBMENwWGtnVjZmb0ptZVU1bVhyR2hxaHlUTVg1S1VqMmNjQTlSMGpOREpoYkZhSWs1bitRN1Z6d2dJdk5Ua2pIOHBtUzgxTHo4eExoUVZZV21hNlhubG1Ta2tHTEF4QUFobXBtZWtaSmJDZ3lrbE1TczJCT1NRbHRReks1QU9HTlRpbzlRcUtNdk5ncXJtQW9zVjZKZmtsaVRBdFhNbjVPVEFSY0tneS9BTUFVVTd1MEpVREFBQT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.5317490","2":"0.8921712","3":"0.4160235","4":"10","5":"10.50"},{"1":"0.5246953","2":"0.8932919","3":"0.4062710","4":"21","5":"5.25"},{"1":"0.5234475","2":"0.8932655","3":"0.4065403","4":"31","5":"3.50"},{"1":"0.5247927","2":"0.8925691","3":"0.4073296","4":"40","5":"2.75"},{"1":"0.5254306","2":"0.8921488","3":"0.4073009","4":"49","5":"2.25"},{"1":"0.5291027","2":"0.8903582","3":"0.4101753","4":"63","5":"1.75"},{"1":"0.5279898","2":"0.8908062","3":"0.4085548","4":"74","5":"1.50"},{"1":"0.5309632","2":"0.8893187","3":"0.4109836","4":"88","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbnBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNGeHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5wXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucFxuYGBgXG5gYGAifQ== -->
```r
```r
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqb3hNaXdpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjoxMiwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWml0Uk9XVlhZemc1TkNzNVp5dFBVRWg0Tml0WFUzTXZXVkJFT0ZRNE1GaDVkbGxRZW1obVMxWkpWR0pIZWk4MFMwcFhieXRuTW1SbWMwaGlOMmxVWkZock5qZENLemdyZEVjd2ExZFhWaTlaVFM5TVJUZ3plblJ2UkU0clpFNTBNbTVwTmxKUmFDdDZabFI1TVRrMllrRkVlWEE0ZHpkbE5qYzNheTh5WWpOdWMzZ3hkR1ZwWjFCS2JqbFBXV05rWWtJdlZUTmtSV1pQVlVOR2VVUTVlRTl5U0hWM1VESmlPRzl6WW10WFJrZzBSMkpqTW5WbEszSjFXRFJzVERKT2VpdDBaVE5NVEV0T2FpdEdjMk54ZW1GMGVGbG1ZVE5vUzJZNE0xWkpNWGhtTkZkVU9VaHVibEZHWmpkSEsxbzNWVFppV1ZCWVNDOXdZbVZDVGtWS2JXb3pNblE1ZDFSR1NrbFdRMjlHYlRoSlRFMUJWMHBSYVVsblEzTlVkMUZoZDBONFNWSkVZa0UzUlZoRlJXWkJOMGhPVVZwUlFVUkNNVVZ2ZWxGUGJESmhRVEJGTkZNeUwzZFBiR1l3UkhCTWQzaFJaMEpNUVhKSWJVcDFZVzVHVVVsWlFVOUtRV2huYVhoQ2RuTkhkVlZFV2toVlNFWm9ZVmRLVW1GbmNWVjZLM3B5UTBwT2FYbFRNSEJ4YjFONWRWUk1SRVZ2ZFVzME9FVnBjVVJhZDBaMVYxZzJPRVp6UVZodFZuRlJTR2xFWnpVd2NIbFVia3BDWWtSdVFVbFVOVVZ3U2t4RmJsVlRlWE5ETm1kbWVTOXhSbkJaWXpoMlMwMXVUWHAzVG5GWlowbHNSV3MxYjBsRVNrTk5Za3BDYWtWWVVVVkhVakF3U1VOR1FrcFJka0ZQWTJwaGVFRnZlbEZQTlU5clZUTlBZVTB3VERGMldEQkJhRTV1Y210blRIZ3pTbEJuWVc4M2VHbG9hMUZzYW5Nd1MyTjZVRkZtY1hBd1ZFWnVhWEI1VW00MVZVUmFZbUZzTlRaYWJEUnhURTFFVTAxMFVERjVhazVVVTJwS1oxbFJRVk41UldwT1ZFMDRiMmRSVmxaVWJVcFRZV2MzVFVsVGJYQmFWa0Z0U0hwRGMzZFZSM1JXTVVOVmJWRmtWSHBSVlZWTVpGbHllVk01U21oSGJtaFRjemRRWjFsdFFWRTFXR2hJZDBKSmNrTjVUV3hSVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjUzMTk3MTdcIixcIjJcIjpcIjAuODkxOTkzMlwiLFwiM1wiOlwiMC40MTU5MDMxXCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiMTAuNTBcIn0se1wiMVwiOlwiMC41MjQwMzM1XCIsXCIyXCI6XCIwLjg5MzQ4OThcIixcIjNcIjpcIjAuNDA1NDM3MlwiLFwiNFwiOlwiMjFcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiMC41MjM4NDk1XCIsXCIyXCI6XCIwLjg5MzE0MjFcIixcIjNcIjpcIjAuNDA2Nzc4OVwiLFwiNFwiOlwiMzFcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC41MjUzMjYzXCIsXCIyXCI6XCIwLjg5MjMxNzlcIixcIjNcIjpcIjAuNDA3NDQ1MlwiLFwiNFwiOlwiNDBcIixcIjVcIjpcIjIuNzVcIn0se1wiMVwiOlwiMC41MjU1MzMwXCIsXCIyXCI6XCIwLjg5MjA2NTFcIixcIjNcIjpcIjAuNDA3MDA5OFwiLFwiNFwiOlwiNDlcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC41Mjg4MTQwXCIsXCIyXCI6XCIwLjg5MDQ3NDRcIixcIjNcIjpcIjAuNDA5NTkwNlwiLFwiNFwiOlwiNjNcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC41Mjg2ODMwXCIsXCIyXCI6XCIwLjg5MDQ4OTdcIixcIjNcIjpcIjAuNDA5MDkyMFwiLFwiNFwiOlwiNzRcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC41MzA3NjQxXCIsXCIyXCI6XCIwLjg4OTQzMTRcIixcIjNcIjpcIjAuNDEwNjA2NFwiLFwiNFwiOlwiODhcIixcIjVcIjpcIjEuMjVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls4XX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZitROWVXYzg5NCs5ZytPUEh4NitXU3MvWVBEOFQ4MFh5dllQemhmS1ZJVGJHei80S0pXbytnMmRmc0hiN2lUZFhrNjdCKzgrdEcwa1dXVi9ZTS9MRTgzenRvRE4rZE50Mm5pNlJRaCt6ZlR5MTk2YkFEeXA4dzdlNjc3ay8yYjNuc3gxdGVpZ1BKbjlPWWNkYkIvVTNkRWZPVUNGeUQ5eE9ySHV3UDJiOG9zYmtXRkg0R2JjMnVlK3J1WDRsTDJOeit0ZTNMTEtOaitGc2NxemF0eFlmYTNoS2Y4M1ZJMXhmNFdUOUhublFGZjdHK1o3VTZiWVBYSC9wYmVCTkVKbWozMnQ5d1RGSklWQ29GbThJTE1BV0pRaUlnQ3NUd1Fhd0N4SVJEYkE3RVhFRWZBN0hOUVpRQURCMUVvelFPbDJhQTBFNFMyL3dPbGYwRHBMd3hRZ0JMQXJIbUp1YW5GUUlZQU9KQWhnaXhCdnNHdVVEWkhVSEZoYVdKUmFncVV6K3pyQ0pOaXlTMHBxb1N5dVRMREVvdUs0OEVpcURad0Z1V1g2OEZzQVhtVnFRSGlEZzUwcHlUbkpCYkRuQUlUNUVwSkxFblVTeXNDNmdmeS9xRnBZYzh2S01uTXp3TnFZZ0lsRWs1b0lESkNNYkpCakVYUUVHUjAwSUNGQkpRdkFPY2pheEFvelFPNU9rVTNPYU0wTDF2WDBBaE5ucmtnTHgzSlBnYW83eGloa1FsanMwS2N6UFFmcXAwVEZuaXB5Um41VURaYmFsNTZabDRxTE1EU010UDF5ak5UU2pKZ1lRQVN5RWpOVE04b2dRVlZUbUpTYWc3TUlTbXBaVkFtSHpDc3dVR3RWMUNVbVFkVHpRVVVMZFlyeVM5SmhHbmhTczdQZ1ltQVE1WGhId0JJckN5TWxRTUFBQT09In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.5319717","2":"0.8919932","3":"0.4159031","4":"10","5":"10.50"},{"1":"0.5240335","2":"0.8934898","3":"0.4054372","4":"21","5":"5.25"},{"1":"0.5238495","2":"0.8931421","3":"0.4067789","4":"31","5":"3.50"},{"1":"0.5253263","2":"0.8923179","3":"0.4074452","4":"40","5":"2.75"},{"1":"0.5255330","2":"0.8920651","3":"0.4070098","4":"49","5":"2.25"},{"1":"0.5288140","2":"0.8904744","3":"0.4095906","4":"63","5":"1.75"},{"1":"0.5286830","2":"0.8904897","3":"0.4090920","4":"74","5":"1.50"},{"1":"0.5307641","2":"0.8894314","3":"0.4106064","4":"88","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBNWtBQUFFekNBSUFBQUEwTEZEUUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzNkZjJ3ajZYblk4V2NrM2U3ZTVaS2NBL2tTUjZ2Y2JrUEtpYUlrdlJ4YjVhaHUyd01TT0pSZ2xuOG9RbnRBZGdPMEViRkZha3B1ZFFtd0NwTENld2g2aTFwaTIyQkJKU215QytNS3lFTERzaERIYVZwczZvdDRKMGRHMGtSUlc1SDJicTJWN2R6SlB1ZnMyTHQ3V3IzOVkwaUtwRWEvT0MvSmVjbnZCd01zaHh3K2ZLV2RSKy9EZDk2WnNaUlNBZ0FBQUJpb3E5VU5BQUFBQU9wRUxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1GVlAwejRwRkFvMTdiUFFsdGJXMWxyZGhEWkVZa0l2OGxRTEVoTjZ0WGRpTnErV2xWUCtLbmQyZG5wN2V6Vit1czhEK3J4NTJnT2VOaHAvMlJ2bnRIL2pmTDVyTlNKZ0kyTDZQMkFkTWNsVGpVak1sc1QwZjhBNllyWjlZakxIQUFBQUFLYWlsZ1VBQUlDcG1qckh3UEdSNTM5ZGI4Qy9HbmxHWTdUditxczlqZEZFcFB1UjVvQVBudW5XR08zSm5WMk4wVVJrNzR6bUwwaHYvUDYvMGhzUXJuNjI2K2YxQnR6Nys4L3JEU2dpWjc3MGRjMFJIenpRRzA5OTRIdjFCaFFSYTBmM1QvM2tPYjN4N0h0emVnT2liUENhNXQvdGc2SHY2QTBvSWoxbkh1c04rT2lkSi9VR2xDYzF0MUJFckc5cXJxRDJ6bW11RnY3ZlA1dlJHOUMzR0pjRkFBQ0FxYWhsQVFBQVlDcHFXUUFBQUppS1doWUFBQUNtb3BZRkFBQ0FxYWhsQVFBQVlDcHFXUUFBQUppS1doWUFBQUNtb3BZRkFBQ0FxYWhsQVFBQVlDcHFXUUFBQUppS1doWUFBQUNtb3BZRkFBQ0FxVHpXc3R0TGlXZzBHbzBtbHJaZFZnRzBCSWtKK0JDSkNUU0V0MXAyKzgydFN6Y3ptY3pOUzI4c3JoNVlCZEFTSkNiZ1F5UW0wQmc5SHQ5L2IrdStTTi85clF2aGNaSHQ2dFdTVUNqa1BOaloyZkg0Y2VoQTdEWjFJREhSVE94Q0owUmlvcGs2WnhmeU5pN2JONTRNNTZMUmFDNDhQWHh3dFdSdGJXMXRiVTFFZW50N2UzdDdQWDBpT2crN3phbVJtR2l1M3BKV044VGZTRXcwVitja3B1ZjVzbHZoVE9hYXZEcTM2cklLb0NWSVRNQ0hTRXlnSWJ6VnNxdUxiOGg1a2VIcGE1SmJQYkFLb0NWSVRNQ0hTRXlnTWJ6Tmx4MmV1UFQ2MWVodEVYbnBXa1pFYWxZQnRBS0pDZmdRaVFrMGhzZHp2L3JHazVueFExY0J0QVNKQ2ZnUWlRazBCUGRLQUFBQWdLbW9aUUVBQUdBcWFsa0FBQUNZaWxvV0FBQUFwcUtXQlFBQWdLbW9aUUVBQUdBcWFsa0FBQUNZaWxvV0FBQUFwcUtXQlFBQWdLbW9aUUVBQUdBcWovZXdyY2Y5anp5ak4rRERuL29iamRIZTI5VmMzKy90ZHVzTjJQTlZuZjlydTkraitlZDk0bDNOUHkrYTQwSDA3K29OK1BaUE5lRFBpOVduT2Q2dTNuank1RHVhQTRySW8rL3UxUnZ3M0x0NjQ2R0J1aDlvRHZqOGMvYzFSeFI1OXV3MzlRYjh3UTkvUTIvQTFhOWYxQnRRUko3b2ZxdzM0TnZmZmxwdndNN0J1Q3dBQUFCTVJTMExBQUFBVTFITEFnQUF3RlRVc2dBQUFEQVZ0U3dBQUFCTVJTMExBQUFBVTFITEFnQUF3RlRVc2dBQUFEQVZ0U3dBQUFCTVJTMExBQUFBVTFITEFnQUF3RlRVc2dBQUFEQVZ0U3dBQUFCTTVhMlczVjVLUkl2bVZpdWUzRjhCMEhRa0p1QkRKQ2JRR0QxZTNyeDl2LytWVEtaUFJGYVhsczQ3ejYzT1hiMTk5NlZyR3BvR29DNGtKdUJESkNiUUlKNXEyYjdoWWVmQjZwYThPQ3dpc2pxWEM5KzhmRyt4YXJOUUtPUTgyTm5aOGZKeDZFenNOcWRGWXFMSjJJVk9nc1JFazNYT0xxUmx2dXpxbHJ6WUowNWVUZzhmZUhsdGJXMXRiVTFFZW50N2UzdDdkWHdpT2dpN1RiMUlURFJKYjBtckcySUVFaE5OMGptSjZXbGN0cWo0SFhONzZmVTdkKzdldVNNaUlsRzVsbkZKVWdETlFtSUNQa1JpQXJwcHFHVkxoMHY2eHBPWmNSSFpYa29zOWlkSlM2Q2xTRXpBaDBoTVFEdnZjd3hLaDBzQStBaUpDZmdRaVFubzUzMWNkbmg4dlBxSnZ2SGt0T2VvQUR3aE1RRWZJakVCL2JoWEFnQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZEM04vOGl1OERmMEJqenp1V2MwUm52dzdKN0dhQ0xTdld2cERYajJhenFqUGZITmJwM2hSUGJPNkkySEpubjdCYzEvRFQ3NFo0LzFCaFNSOTU3VHZMdDJQZEliVDU3OG11WS9JQ0p5NWx1YS80YnNudFVjRUkzenIvLzViYjBCZit0TEwra05LQ0pQZFd0T3BEdnZCZlVHL09MOVovVUdGQkdyUytrTitOVFREL1VHN0J5TXl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnk2S05GWklqVnFXUlpLSHErYmg5OEQxMmZIOVQ1L0ZJc21Bbms0WFNLeFhjM2cvZ2RBN0wwMlkyb09tZkNmamRTVHZLaXFjcU4yMXFqNm1obHQxZVNrU2owY1RTZHZHUjh4aG92VUJpSlQ4ZmxzbXNVa3FwN0dSdUtoaTNuZWRWZmo0c0M5ZHJPN0JDOHZxQ2hPZnphaVVSc09PajYvTjVwVzdKbGRGRkVZbWtWSDQrSEo3UEswZCtmckFWUDlSSmtaZ3d4R0Y1MmlSMlBEaVZhOTdIa1pnd3hNazZ5dEp6ZGxvbUp4ZlMrNW5iMUI3VGF5Mjd2WlI0VFY3SlpETEo4VDZSRjEvSlpES1pheGZlZUpQVWhPOUVadWJEc3I1WlRzcUorWG1adWxIVlp4YVdaV0krdkw4K05CQVFDU1JXc2hNdThRS0pSS1JoamZXSXhJU3Bhdk8wOFIrWXlsY21mVU9SbURETkNUcEtFUkU3TGJGVXJLcVlyZEhRSHROakxidTZlUHZ1M2R0WG85RzVWUkhwNitzVGtlMnQvcGZIK3lvMkNvVkNvVkJJUkhaMmRuWjJkcng5SWpxT3J0Mm1rTHd5bFF0UGpKVy9Sc3BBWXJZNjgrd2JHd05qNWJWSWJISmgxRGtxRWtuc2Yvc3NSVXY2ZUlJQmlZbW0yaW54SHFvNlQ0dEhPZU5KMjNhSzIrSnh5M2d5R1U4V25KVzRYWHphT2Q1WlByTHBqTzNhY1N1ZVRJNDRyOVllR0MydU4yMWNsc1JFVTJsSnpHTTZTa2RoY3pBV2tjaWh4V3lqZTB4dnRleHFUcTVsTXBuTXpjdjNYbC9hRnBIVnVXajA2dTNidWRYS3JkYlcxdGJXMWtTa3Q3ZTN0N2ZYMHllaTgzamZiUlpHTGN1eWdvc1RWVWRFUkVRaU0vUHI1Y01uaFdSNmNLYnllMk1rcGJLVEM2UFZjNEp5VTBHbjk5dncwcVRHSWpIUlhMMGxYb0s0NUtsOVkzRWlyNVNLYlZ6ZkZKRkNjdVQ2WUY0cHBXSWJVK3ZGREJXUmlySFZRdkw2K254ZXFmeDhlSDJ6VUVpT2pDN0l3cUxjVW1vbGtZODc3ODRPVFYxSkZxU1FIQm1WckZLcWFjT3lKQ2FhUzB0aUh0ZFJpb2dVbG1VZ0l1SlN6RGFweDlSejdsZmZpNWN1aUlqSThMU1RwOVdwQ2JUVVpGYXA3S1F6WWFCR0lERTdWRHg4VWxpV1dPM29xMFJTU3VYblpTcFlMbWVMczM5OFBsbldRV0xDSUM1NUdoeVVxYUExa2d5bVZoSUJLU3d2U25IQU5qaDRTUGtaU0t5c0pDUTVFcHpLNVRieWdjUktkbEltWnhNQkVTbHNyanY5NnVpQzVEYnloZVZGbVorSmlFaGdiS0paY3d3Y0pDYk1jbHhIV1ZoZW5CcTFMQ2U1cW92Wkp2V1kzbXJaOC8zRkhMeS9KZjNsZ3lSOS9aZjZ6M3RzRjZCWEpKV1ZVYmNUU2lLeHlZWHJ5WUxZTnpZR3FyOXIybkZuKzBCaUpUdVoyOGhYdmVqbnliSWtKa3hWazZlQnhJcFMrWW5GNE1sUGdiYmpsblZGYnJtUHRSWlBMMU5LcFZxUnZpUW1USFY0UnlraWhXV1pMV1dXeWxlTTRlNXJkSS9wclpidEczK2wvL1ZvTkJyTmhhZUhaWFV1NnNqMVY4MytBZnpnc0dvMk1qTXZVMWRHWEE2YmxFL2ZMR3l1dTBVc0pPUCt2SkFQaVFsalZlV3BuVXdXSkpCWVVkbko5YzFDWUdBb3Q3aDhTTXJsTjNLNXFXQThubDZZeks0Y0dEY1NFUWtNREpWR2pPeDQzQTRNRE9YMlQybHB5clVUU0V3WTY0aU9zalRCd0JFWW14RDNORzFrajluajhmMTk0OG5NZVBIeDhIUW1NKzIxUVlBK2hlUkljQ29uTW1wSlZxVWlrVlEyYlZtV1NEZ2N6dVZ5SWxPTDgvbVZSQ0F4T3ptVmpxMEV5dHRMMEZxY3o4OE96cy9LRmN2S2ljaGtWa1hzdURXNklDSkJhNm9ZUHp5ZlQ3VHVwenNLaVFsekhKYW5rOW5zNE9JVmE2cVlnUUdSVkRadGxmSXZQQzhpRW9sTmpvNWFDeUxoY0RnOGZ5dVZ5SXMxYWkxSU9CeVczR2hjSmhjV1JCWkdCdk1yaVVBNXNFeG1WVW9ra3AyMFJxMEZweEdUMldZTTFaS1lNRWNwTVkvcUtDY25aV0VoSjdJb2VlY3JaQ0Y1WlNxWGs2QzFXT3htbTlOaldrcXBCb1d1RVFxRm5QbnNQNTc1ZGIyUkgzL3VHWTNSSGp5N3B6R2FpRmk3bHQ2QTUvNUtaOEM5TXhxRE5TVGcvLzIxYWFuWWY2QlgrUmY3NFUvTTZZMzh3VDk3ckRlZ2lMejNYTGZlZ0YyUDlNYVRwOTdSL0FkRVJCNmYxZnczWkZkM3dNLy9kckVvYTFhZUZwSWpWK1NXKy9ocmV5ai9Kdi96RjU3WEcvbTN2dlNTM29BaThvTlB2YWMzNFBhM3YwZHZ3Qy9lZjFadlFCR3h1alNYVDA4OS9WQnZ3TC84UjcvaFBHajdEcFQ3ZmdFQUFNQlVYdWNZQUFEUVRNVTdkUVhqQTYwNWh3dUF2MURMQWdCTUVra3BsV3AxSXdENEJuTU1BQUFBWUNwcVdRQUFBSmlLT1Fab1p6L2I5Zk4xdk9zUDl6NnR2U1VBRHJQMzFZRTYzdFgxQTV2YVd3S2d6S0FPbEZvVzdjenFZUThIL081OXRWdkh1ODVxYndlQUNnWjFvTVkwRktpRDFjMGVEdmpkUTJwWndIOE02a0NaTDR0MlpqM1JVOGZpR3FxUUhMRXNhNlRtRm54MjNMS3M0cjNpblMzMnR5bSt0ditXeW8wQmxEeVV4M1Vzclc0MTBPWTBkcUNOMW9KUC9kNWIzNjAzNEtOZmVrZGp0T1NIZjE5ak5CSDU4VE4vclRmZ256L1NlWit6Ly9ITlFZM1JST1RSbnArK3llazZSRkpJWHRtWVZTcGl4MGVTaGYyN0Rka1NxN2c0ME5ndGxRaUlIUjlaTGlRU2t0eU1LWlVTTzI3ZHNCT3BTTzNHdnZOYzlsdDZBMjVlZlVKdlFCSDV4My83TGIwQmYrVEpyK2dOK0tmZitpRzlBVVhrTDc3eEliMEJIKzdxLzYveDRxSFNmN08wdHZGckM1ZjFCdnpJUDFuVkcxQkVQdkg5YitvTitGajNIVWszL3BibVd3YUt5T2UrODhONkF6N1QvVGQ2QTRyOGhxZDNNOGNBOElQUGZQMjNuUWVSWjY4ZXZhWDk5czBqWGkwc0x3N0ZWa1FrRWh1NnZseElGSXRaT3owNk9ocWVMOTZIT2hBSWlFaGhjM0EyRVJDUjRrYVIyT1QxellKRUF0VWJBeWg1b0RUZlV4ZUFkOHlYQlh3aDhvTy9YSHpVYzh5WDh2MHRSZXd2LzRjRHJ3OE5Ca1ZFSkRnNFZENTV1aENjVVNwbHg2MlJwRk9oMm5GcmRFRmtjaUFScWJnYjBlREVXTUJsWXdDT2g5U3lnQThkMTIvNkIvTmwwZFo2ZXVwWlhLeHY1RVZFSkwreFhuN09HWWlOcFBJVEc4c0ZFZWQyUkNvL3Y1N2VueEZyeDlNREZhTzJGUnNEY0R4UVBYVXNycUhjNXJVZk1wUGRtYmhlK3lLQUVtMGRhTU5SeTZLdGRYZlZzeHdRR0p0d0NsUTd2VDR4VmpPb1dsaGVsSUg5NXdJREU4VXhYTEhqVmpwV2ZjUDRtbzBCeUVQVlhjZmlFcWc0cjEzTmJselpMMDBMeXhzVGVhVlVmbUx4aGkxaXg5TXhwWlRLeW1qY0ZwR3hXMG9wbFIxYTVEc21VRTFUQjlvRTFMSm9hN3ErVmdZU3N6SnFXZGIxd1Z1SmdCU1NJM0c3UEtCelJXNmxJdVhCSHN0eUJtSUx5UkZyZEVFV1JwMEJvSnFOQVpTRm4vdWlzenhVVHh5OWxMY01QL2ZGZzNFS3k0dERzWWlJUkdKVnBhbHpWQ1cvTVJTTFNHRlRuTytha1psNTJTelVUbk1IVUdiT3VDenpaZEhXOUgxSGpLVDJMMElRU0t5a1JDU3lvaEx1R3pqYlZMNWFzekdBTXZ2dWo1VWVIdE1sVld3cGtZdC9lZUIxdDNudGdjUktMRzVabzVOWmxSSXB5UHJpL3VtYklvZE5jd2ZRb2tIV09oalRVS0FPcXFlN2pxWFZyUVk2eThPOU0zVXNicEhjNXJWTElia1pLODhwQ0NSbWg2YUNsbVZad2NYQk1XY1MrNEZwN2dDTTZrQ3BaZEhXekpudUEzU3NCK3FKT3BhRGNkem50ZHMzRmlVb0VrbGxKVzFMc1haVjJjbkp5bGtGRmRQY0FUak02VUNaWTRCMnBub29UQUcvTyt5aUJLY1dTTXlLWlZrU25zK3ZCS1NRSExreHNKS0t6RXhjRDFwVElqS1pWVkpJamdTbmNpTE9qSVBTQklQeU9vQVNnenBRYWxtME05WE5oQUhBN3g3dWFic1BtY3U4OXBxNTY0bWpwcmtES0RPb0E2V1dSVHN6NkdzbDBMRWV1azBZQU5CYUJuV2cxTEpvYTkzY1R3and1NGU2NWhnQTBNaWNEcFMvSUdobmUrWjhyUVE2bHNZNUJnQjBNYWdEMWRIUTdhWEUzS3J6Y0hVdUdvMUdvNlZWb0xWVXQxWEgwdXBXYTBKaXdoQVA5M3JxV0ZyZDZucVJtRENFUVIybzkxcDJkZTdxN2J1bGg3bHdKcFBKWEpOWHlVMzRnVUdwcUJ1SkNXTjBVaTFMWXNJWUdqdFE1ODZYSThrRE40cDI3cUs1djBuY2RuLzFHRjVyMmRXNVhQam01WXNpSXJLOUpmM25SVVNHSnk3TDFuWjVtMUFvRkFxRlJHUm5aMmRuWjhmako2TFRlTmx0VkpkVng2SzMvUzFCWXFLWmRrcnFlL3REMVZQSG92ZEhhQTRTRTgza01URzFkYUNGNUpXTldhWFU3TWFWNm1yV2pnZW5jc1hIZ2NSS2ZqNTgyS3ZIOFBibllIVXVGNTZlbHFYWGkrdjMzbmh6ZTN5OHIyYXJ0YlUxRVFtRlFyMjl2WjQrRGgzSnkyNno5MFE3RkthblJtS2l1VHp1UW84ZUcxbVluaHFKaWVieXVBdjlrZjJLOCtEdlIyOGN2ZVZuTXpOSHZGcFlYaHlLclloSUpEWjB2ZUlPMG5ZOEhjdlByeDhTKytoWGEzajVDN0s5OVBxZE8zZnYzQkVSa2FoY3kweS9mQ0Y2TlhwYlJDNWV2am51SVRLZ2h6Sm01cnBHSkNZTTgwZ1pjeGxMRDBoTUdPWlNyRlJJSHRlVDdtOHA4a2I2WUYwN1ZMeXJYbkJ3YUxQMG5CMVB4MUlwU1Y1M2pYajBxd2Q0cVdYN3hwT1pjUkhaWGtvczlpZW5oMFZrT3BPWmx0VzVPVG53VlJOb2dYYVovSG9xSkNZTTg3QWp4bVZKVEJoR1h3ZTZ2cEVYQ1lqa045WmxURVJFQ3NuckN3dTVoUVVSRWJFa3ExS1JpdTJQZnRXRnpyOGcyMHVKcTdmdmlyeDBMVE90TVN4UXQ3MU9yR1Zya1pqd3VmZE5QWkhMRXhJVFBxZXJBdzJNVGF6ZnNDVVNzZFByRXpQT0JJUFMzZmhLZDVxdWVjZVJyN3JROFJla2J6dzVYZnczdzNFUytJbVo1NGRvUW1MQ0VJLzJPbUdPUVFtSkNVTm82MEFEaVZteExFdkM4L21Wd0tFRmF2RlVyNUhCL0VwcFJ1MkpIVDBKd282N1hVSUJNSVhHNnhpNFgxTEVqbHRXNlRJaXpoWVYyOVM4NWRDTGtwd2FpWW0yOHY1ZVZ4MUxxMXQ5RUltSnRxS3hBNDJrbEZMS3FWRURpWXBDdG1MRjJVWlZGckpWbXg3bDZEOEhrWlM2SlZmMk8ydkFMSHM5OVN3dURybWtpQzB4cFpRcXp1VVp1NldVVXRtaHhlWEN3YmNjZWxHU09wQ1lhQ3VQOW5ycVdGcmQ2b05JVExRVmJSMW80eDM3MVRhUVdGRktLUlZMVnc4NUFRYjQzTzk5M0ZsVWx4eTlsTGY4M085OS9HQ2N3dkxpVUN3aUlwRllzVklWRVJFN1BUcTZueE9CUUVCRUNwdURzNG5BZ2JjY0VxRnVKQ2JheC91UHUrcFlYRU81SGYyb1BXSlNlVFNsdktZcGhVaE10STlqKzAzWHBTVk85TEdGNUlnMXVoQ2V6NnZpbDA3eUUyWjQ0WmZtbkdXdjJ6cDZLVy81d2kvTnVVV3F1S1JJK2JsQ2NFWXBOYnNSck93amcxTlRhZHZ0TFc0UnZDRXgwUjdlMyt1dVkzRUo1SHIwbzdDOE1aRlhTdVVuRm0vWXpyVitsRklxSzZOeFd3ckpUV2R0YU9xR3JxRlVFaFB0NGRoKzAzVnBTVk9QblM5cldaWjFSVzZWNWpBNFh6cHZ5UTF5RXdaUTNmVXNidFkzOGlMaVhGS2t4Qm1JamFUeUV4dk9TR3NrcFpUS3o2ODd4V3pOVzl3aTFJbkVSRnY1NDU5NXpWbDJIM2NmdlpTMy9PT2ZlZTFnbk1PT2ZqaTVsOThZaWtXa3NDbk90OHJJekx4c0ZnS0pSRVJFSkJLYlhOLzBtandrSnRxS3ZnNjA0WTRibDUzTTFzekVGUkdSL01aQ3NWOEcvRXhYS2diR0pwd0MxVTZ2VDR6VnBFTmhlVkVHS2lhckQwd01CZys4NWNnSXAwZGlvbzJFN0d2T3NydlhkZlJTM2pKa1gzT0w1SGIwSTVCWWlhVXR5MHJIbkhudDYrNlRmQVkxNUNXSmlYYlNSclhzUXRydHNFc2tkZXlGYXdFZjJPdXVaM0VSU016S3FHVloxd2R2SlFKU1NJN0U3ZklzdkN0eUt4VXBqOGxZVm5xZ2VLNW01VnRxVnowaU1kRkc5TTJYZFQzNjRjd2pjT1lVU0NBeE96UVZ0Q3pMQ2k0T2xxdFhPMTVNVzQ5SVRMUVJiUjFvNHgxekhZUFlaTlY2SVpuazVFeVlwS3V1eGMzQlM0cVV6dklvanNJVXJ5ZWk5bnV0eXJjY1hQV0F4RVJiMmR2cnFtTTVHTWY5NklkOVkxR0NJcEZVVnRLMmxCSXhPems1Vzh4Rk8xNGVzL1dHeEVSNzBkZUJOcUdsUjdEVEN3dWoxcjdnMUVhVDJnWG9ZTkRYeXRNZ01kRlczdC90cm1OeENlUjIvRVFpTXhPTFFjdXlyRkdKUmNxSFU0clZxM09lbGl5TTZyaU9Gb21KdG1KUUIzcmN1T3o4ZkY3dHk4OFBOcWxkZ0E0R1hWTGtORWhNdEpVOVpkV3h1SVp5dXlSNzZRaUtTa1gyVjRyanNPWFhLbytvMUl2RVJGc3hxQU05K3JLMjlxYU03V2QzSVhsbFkyQ2wwUzBDOUduVlBQUUdJekhSVnZZZXQrWTZQcnFSbUdnckJuV2doOVd5aGVSSWNDb25JakkxVmZGMGVMNGdFWS9UL2I3K281cC9QWS8rL0lNYW83MTI3dWMwUmhPUmkwOS9YVy9BOCtmZTFSanR4NTdjMWhoTlJBb1B2bDl2UUM5TUdHUTlsUVltNWp2UFArMHRRSzF6ZC9YR0V4R3h2KzlIOVFaYys2NGYwaHZ3L0hkOVEyOUFFUWw5MzViZWdQZitwbGR2UUkrVUgyOUlleW9OVE14blAzTGZXNEJhNmMvK0hiMEJSZVF2ZnVKRGVnTU9mTTg3ZWdNKzJmMiszb0FpY3Y2czVzNzlxKzgvb3plZ1J3WjFvSWUxMURud2txMCtZS0xudkJXZ2FWUlBQWXVQa1pob1EzdTdWaDFMcTF0ZGljUkVHektvQXoxbXZteWlPaE01S3hObU1XaTZ6Mm1RbUdncmFzK3FZMmwxcXc4aU1kRldET3BBai9uWThpVXpPU3NUSmpMb1VzK25RbUtpcmV4WjlTeitRMktpblJqVWdSNXo3bGRhc2tweGpXZVl5b1JCMWpxUW1HZ3JxbDNPL1NJeDBVNE02a0NQbVdNd003aFplWWlFSXlZd2kwRmZLMCtEeEVSYnNSNWJkU3l0YnZWQkpDYmFpa0VkNkRGVmQzNWppaXMvdzF3R1RmYzVGUklUYmFWZDVoaVFtR2duR2p0UTV4NGxJOG1DeXd2Rm01UTRtNVR2V0ZLemVvemo3dnUxWG5OYUpqZVZoa2xVajZwamFYV3JqMFZpb3EyMHk3Z3NpWW0yb3EwRExTU3ZiTXdxcFdZM3JsUlhzM2E4ZUMwN0VRa2tWdkx6NGZKTE5hdkhPR2FPUVdwMklGL1ZIbzZZd0NSdE9pNUxZcUs5N05XMStBNkppYmJ5aFk5LzNGbU83VFRMVzM3aDR4OC9HS2V3dkRnVWk0aElKRGEwdUx4ZnpOcnhkT3dVOWVwUmpqbjNLejQ2dWxEMXpHUTJvZU5qZ2FaUTNmNGZaSzBEaVltMjRzdEIxanFRbUdnckYvLzl2eTArT200VzdQNldJbmYveGI4ODhQclFZRkJFUklLRFE1dWw1K3g0T3BaS1NmSzY1M2JLc2VPeTNGMGFaclBxV3Z5T3hFUmJzZmJxV2Z5SHhFUjcwZGFCcm04NEJ5enlHK3ZGWndySjZ3c0xvNVlWbk1vdGpKNTRXdXloamptZVduUHA1MEFpd2V3ZkdLUk41OHVTbUdncjFxNVZ4K0lheXUwVUUrZTUvV2VMVjRGMVArUEVFeElUN1VSWEJ4b1ltMWhQMnlKaXA5Y254cHdVY1c2VnAxUitQanlaOVQ2eDNJQzVnVUQ5dWxROUM0QW0wall1NjNxS1NXRjVZeUt2bE1wUExONnduU09iU2ltVmxkRzRMYWM5eFFUb0lMbzYwRUJpVmtZdHk3bytlQ3NScUxoMFFUVTdIcHpLTFl6dWYrZXNXajJtcFY1K1RNRG5WTGVxWTNFTjVYNUprYW9SbnVKS2NadlNZTkQrbUUvMWNCQUFSLzVYcDUzRmVpeEhMK1V0ODc4NmZURE9ZYWVZT0FjNDh4dERzWWdVTnNXWnVoZVptWmZOay9TU1FJZlMySUZHVWtvcHRaSUlpRWdnc2JJL0RsdXg0bXhUM09qQTZ0RjAxTExiUzRtNTFmTERhRFNhV05yV0VCYnd6T3BXZFN3dWdRNjVwSWd0c2ZLVmR3ckpUV2U0WjJqcWhpMVN5QS9jY2liTlplZWR2ck55NDJZZ01XR0lEMzlpemxtT0hZc3RiL25oVDh5NVJhbzR4YVQ4WENDeEVrdGJscFdPT2FtM1hsbm10Z0NKQ1VObzYwQWJ6M3N0dXpwMzlmWmQ1K0gyMG10YkwyY3ltWmUzWGlNMzRRZjNmdkZYbk9YWXd5TGxMZS85NHE4Y2pIUEllSStkSGgwdEQ5V1c1c1pGWXBQcm13VUpSQ0xPdDBsN1U4WUN0UnMzSG9rSll4dzdIT3U2dURsNGlvbVV2bVlXNXhRRUVyTkRVMEhMc3F6ZzR1RFlTVVo4OUNJeFlRNXpKdWw1cldWWDUzTGhtNWN2aW9qSTlwdHZYQWdQaThodytNSWJiKzZuWmlnVUNvVkNJckt6czdPenMrUHhFOUZwdk93MkZ6LzFtODVpZGFtamwvS1dGei8xbTI2UjNNWjdDc0VacGRUc1JyQ21RaDJjcU9naVM2WHNZUnMzQm9tSlp0b3BxZS90dXViTHVwMWlJbUxmV0pTZ1NDU1ZsYlF0cFVPWDJjbkoyUk1kdk5TS3hFUXplVTNNNC9wTjEwWHZqM0JDM21yWjFibGNlSHA0Zi8xQy8za1JFVG5mZjZGaXE3VzF0YlcxTlJIcDdlM3Q3ZTMxOUlub1BGNTJtNjRlVmNmaUZzbHR2Q2NRQ0loSUpKV2YyS2dZcTQybkJ4SUhTMW4zalJ1RXhFUno5WmJVOTNadDQ3S3VwNWhFWmlZV2c1WmxXYU1TaTVUbnNaZG1ISnp5RkJOUFNFdzBsOGZFMU5lQk50elI5MG80MnZiUzYzZnUzTDF6UjBSRW9uTHRadis5cmZzaWZTTDN0KzdKaTNvYUNIaGdkZW01Q21WZ2JHTDloaTJSaUoxZW41aXBHY3dwTEMvS2dITkZkRHR1cFdNcXRmK2F2U2xqa1VNMmJoUVNFNFk1Wk1KQVBTSXBWVTdBUUdJbFZmeFg3ZWRjMVVydFd4cUp4SVJoZEhXZ1RlQ2xsdTBiVDJiR1JXUjdLYkhZbjV3ZWx1MnRlNHVyTWp5OG1ydDNhYUpQVnhPQnVuWHBtb2NlU015S1pWa1Nucyt2QktTUUhMa3hzREt6T1JLY3lvbUU1L01yRVpGQzBsbGRzQmFrZEwyOC9WSzI5R3B4NDBZaU1XRVlqYldzajVHWU1JeTJEclR4dk5TeUIvU052eXpSYUZRdVhyNlpKREhoQTEyV3RsUjBHZStKVkEzd0JBNk05NGhFRW9ralhtMFdFaFArNXN1YmVEVWVpUWwvMDlpQk5wcU9Xclp2UEZtNjB0L3dkQ2JqY3RVL29EVjZlanBpd01jZGlRbERkSFZVbXBLWU1JUkJIYWpXY1ZuQVo3ck5tZTREZEM3U0ZQQWZnenBRYWxtMHN5ZTZqVWxGb0dOMTFyZ3NZQWlET2xCcVdiU3pIbk8rVmdJZHF6UE8vUUlNWTFBSFNpMkxkdGJUVFNjSitCMjFMT0JEQm5XZzFMSm9aMDl3OEJMd3ZhN0h4cHd1RFhRT2d6cFFhbG0wc3lmTU9VUUNkS3dPdlNZWDRHOEdkYURVc21oblo3cDNXOTBFQU1mb0lrMEIvekdvQTZXV1JUc3o2R3NsMExHc1BlWVlBTDVqVUFmYTFlb0dBQTEwcHV0eEhVdXJXdzEwRm11M25nVkFRMm5zUUF2SkVjdXlScElGbHhmaXR0czJ6cHJyZTF4UXk2S2RQZEcxVzhmUzZsWURuYVhyc2FwamFYV3JnVGFuclFNdEpLOXN6Q3FsWmpldVZGZW1kanc0bFhQZHByQzhNWkZYU3VVbkZtL1l4emUxQlhNTW50N1MvRGZvN1ovV09ReitreC80c3Nab0l2THR4MC9vRGZqUzB4c2FvNDJjMC94OTVzdFAzZE1iMEl1ejVrejNhVG50MTBWNjhQMzZSN2ovM2c5czZRMjRxelR2LzJQZjk3LzBCaFNSRjg1cS9xUDB0UStjMVJ2UUkwdGZZVnBJamdTbmN1SDUvRW9pVVAyY1NPbFpPMjZOTG9oTVpsVXFjc2hiZkdUclQ4N3JEYmozb1lkNkE0ckljMCsvcXpmZ3pzT245UVlNZitBa28zdW44eFBuTlA4NWVtL3ZTYjBCUGZyVThPODRELzdwMmk4ZXZlWHZobjd2aUZjTHk0dERzUlVSaWNTR3JpOFhFcVZFcytQcFdINSsvWWJiTm1PeXZwRVhDZVEzaG1LSjQ1dkt1Q3phMlJucmNSMUxxMXNOZEJacnI1N0ZoZXZ3VDgwQWp4MVB4NVJTS2l1amNmdUlFU09nMDEzOS9DODR5N0dkWm5uTHE1Ly9CYmRJUTROQkVSRUpEZzZWbjdQajZWZ3FjdGcyZ2NSS0xHMVpWdFF6U2g4QUFBNlJTVVJCVlBVMmgrTGNMN1F6ZzA3REJEcldaek16em9OL0dIbnQ2QzMveUg3bGlGY1BHLzZwSE9BcEpHVndURVFrTWpPZlhpNFVOdDNmQWtCZkIrcWtvRWgrWTEzR1JFU2trTHkrc0pCYldCQVJFVXV5K2NHYWJRckp6WmhTc2JnVnQ5WHg1U3kxTE5yWldjNFFBWHp2cFkvOEcrZUJkZUl0UmVUT0gvektnZGNyaG5ZMlM4OEZFaXV4dUdXTlRtWlZTcVFnNjR0Vk5hdmJXd0RvNjBBRFl4UHJOMnlKUk96MCtzU01rM3FCeElwS2lFZ2hPWEpqWUNVVmtjSm0xVFoyZkZGbUVoSklaZE54V3lMSEZiUE1NVUE3TzlPMVc4ZmlHc3I5TkV3N2JsbVdaVG5uWVJaWDlyZXBldlh3RXptQnptWTlWblVzYnBIV04vSWk0Z3p0bERrRFBNVTVCWUhFN05CVTBMSXNLN2c0T0JZNDVDMEE5SFdnZ2NTc2pGcVdkWDN3VmlKUWVlbUNRN2VSeU16RVl0Q3lMR3RVWWllWVpFQXRpM1oyenRxdFkzRUpkTWlrT2x0aVNpbWxVcEZTaDZsVWRtaXFlTnBsNWF0TXl3TU9vNnVXRFl4TnJLZHRFYkhUNnhOanBaRlgrOGFpQkVVaXFheWtiUkdKcEpSU0tqczVPWnNJSFBJV0FCbzcwRkxXT2FkWEJoSXIrNU1HS2xZcXQzRUdidmM3ME9Nd3h3RHRiSGJvdnpvUGJ2enZuenQ2eTVrZi9jd1JyeDR5RDg5T2o0Nk9sczUvRGhTZmpjUW1yMjhXSkJLb2V2V3dtWHdBdW5ZMVhZc21rSmdWeTdJa1BKOWZDWlNQWHM1TVhBOWFVeUl5bVZYbGl4bzRNdzVxM3dLZzdHejMrNjF1d2tsUnk2S2QvYnYvOHpQT2c3UEhUY1FyYnlraUgvdVIvMzdnZGJkSmRZWGdqRklwTzI2TkpLc3U1ek00TVJhb2ZaVnBlY0NoOUYyVEs1SlNUbzBxem9oUDhWKzFmMVdmcXBYYXR3QW9NK2lFRTJwWnRMT3pscTZ2bFFkUHd4UUpCQUlpRWtubE4rUExCU21OMWNiVEE2blVnVmZIWENNQUVMRjBqY3NDMEVkZkI5cHcxTEpvWjJlNzlLU2kyMm1ZWllYbFJSbHdSbnJzdUpXT1ZZL3hGRjg5TWdMUTBhekhYTlFaOEIxZEhXZ1RVTXVpblIwMkQvM1UzT2Joeld6dTMwMG9zbjl6b1FWclFTYXpxdVpWcHVVQmgyRmNGdkFoYlIxbzQxSExvcDFwUEVUaU1nOHZValh4TGxBekR5L0N0RHpnWkI1VHl3Syt3eHdEd0JmT21YT0lCT2hZRnJVczREOEdkYURVc21obkJuMnRCRHJYTHZObEFkOHhxQVAxZHErRTdhVkVOQnFOUmhOTDJ4WHJjNnM2V2daZjZmcFEzbGxhM1pEVE9XdTlYOGZTNmxaN1JtTENMTHU3OVN6R0lURmhGSU02VUkvMy9YcnhsVXdtazdsMjRZMDN0MFZFK3NhVE55OWYxTkV1K0VsbENXdFdPWHZPZWx6SDB1cFdlMGRpd2lpUDkrcFp6RU5pd2lRR2RhRGU1aGowOWZXSnlQWlcvOHZqZllkdkZRcUZuQWM3T3p1ZVBnNGR5Y3R1WTlDbG5uVWlNZEZjWG5jaEV3ZFo2MEJpb3JrODdrSUdkYUJlNTh1dXprVmZ2U1B5VXYvNDhQQmgyNnl0cllsSUtCVHE3ZTMxK0hIb1FGNTJtM09XdHZzSm1ZWEVSRE41M1lVNlpyNHNpWWxtOHJnTEdkU0JlcHhqSU1QVG1Vem01dVY3T1diOHRMRzlyd1JkSC92Zk9VdlZzYlM2MVJxUW1EQ0kydDJ0WTJsMXErdEJZc0lnQm5XZ1dxNWowTmQvcWYrOGprRHdMYk5LMkxLemx0ZHZheVlqTVdFSU13dlRlcEdZTUlOQkhhaW5Xclo0dUVUa3BXdVo2ZUl6VjIvZkZVbjAzMHdlTlI4SWFJNnowdDNxSnJRQWlRbXpxUGM3b3BZbE1XRVdnenBRVDdYczhIU21tSkdIUHdPMDBCbkxtRlRVaU1TRVdkVGpqcWhsU1V5WXhhQU9sSHNsb0oyZCs5RGRWamNCd0RIKzI2UC8xT29tQUtobFVBZHF6R1FJQUFBQW9BYTFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1GVUw3dnYxMFprN2VnUHVhYTNJbitwK3FER2FpUHpQZHdiMEJ2eURucC9RR08zTHUxc2FvNG5JVDU3OWx0NkFhSTdSWC82czNvQWZmT0tiZWdPS3lJK2YwN3k3WnI3eHZONkFUMXFQOUFZVWtSNUxjOEFYenB6UkhCRU44NXZqbjlJYjhOSzVyK2dOS0NMdjdtbmVSei8vb0Y5dndMTmQ3K3NOS0NMUGRIMUhiOEIvY0U3cERkZzVHSmNGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNxUHRlenFYRFFhalVZVFM5c2lJcks5bEloR28zT3JHaG9Hb0c0a0pqVG8rbERlV1ZyZGtMWkJZa0lERXZNZ1Q3WHM5dEpXT0pQSlpLNWR1TDI0S2lMU041NjhlZm1pbnBZQnFBK0pDZThxZTBwNlRTMUlUSGhIWXJycThmTG12dkh4UGhHUjRmQkxyMjl0eTNDZisyYWhVTWg1c0xPejQrWGowSm5ZYlU2THhFU1RzUXVkQkltSkp1dWNYY2hUTGJ1di85S0xoNlNsaUt5dHJZbElLQlRxN2UwVkVmbXFuczlFaHlqdU5xakRxUkx6SzgxcUZkb09TWG82cDByTXYyNVdxOUIyT2ljeGRaejd0VHFYNng4L1BERUJ0QUtKQ1EvMnZoSjBmUXl2U0V4NFFHSzY4and1dXpvWHpZVXowenJhQWtBWEVoT2UwVlBxUjJMQ014THpJSS9uZmlXaXI5NlJPNitXVDhWY25idDYrKzZkVjB0bmFRSm9QaElUOENFU0UyZ1FqK2QrSlRQalZjOE1UMmY0eGdtMEZva0orQkNKQ1RRSTkwb0FBQUNBcWFobEFRQUFZQ3BxV1FBQUFKaUtXaFlBQUFDbW9wWUZBQUNBcWFobEFRQUFZQ3BxV1FBQUFKaUtXaFlBQUFDbW9wWUZBQUNBcWFobEFRQUFZQ3BQOTdDdHoyZmp3M29EdnZmRFQybU05dVRiNzJ1TUppSlBmdkhyZWdPdUZybzFSdnVUNTBjMVJoTVI2OEd1M29DZitVdTk4ZUR1M3JkNzlRWjg3Z05mMHh0UVJQN0x1eitsTitCYmIxL1FHekQ5WjgvckRTZ2l3UXRmMVJ2dzNlODhxVGZnV2tSdlBPejczWkRtUGVvL252dHB2UUZGNVAyQlB1MHg5YkxlK0ZQdE1YcytGTlljc1Z0bjV5NGk5cGYweHZNdnhtVUJBQUJnS21wWkFBQUFtSXBhRmdBQUFLYWlsZ1VBQUlDcHFHVUJBQUJnS21wWkFBQUFtSXBhRmdBQUFLYWlsZ1VBQUlDcHFHVUJBQUJnS21wWkFBQUFtSXBhRmdBQUFLYWlsZ1VBQUlDcHFHVUJBQUJnS28rMTdQWlNJaHFOenExV3J5ZVd0cjIyQzBEOVNFekFoMGhNb0NFODFySjk0OG1ibHkrVzFyYVhYdHQ2T1pQSnZMejFHcmtKdEE2SkNmZ1FpUWswUkkvR1dOdHZ2bkVobkJTUjRmQ0YxOS9jSGgvdmM1NFBoVUxPZzUyZEhZMGZodzdCYnVNUmlZbEdZeGVxQTRtSlJ1dWNYVWhuTFN0eW9mKzhpSWljNzcrd3RmL3MydHFhaUlSQ29kN2VYcTBmaDQ3QWJ1UFp5Ukx6QzYxb0d0b0NTVm9YZWt3MFZ1ZnNRbnJQL2JxM2RWOUVSTzV2M2RNYUY0QUhKQ2JnUXlRbW9JZk9XcmJ2eFV2M2Nxc2lzcHE3ZCtuRlBvMlJBZFNOeEFSOGlNUUVkUEU2eDJCMTd1cnR1eUtKL3B2SjhiNis4WmNsR28zS3hjczNreVFtMERva0p1QkRKQ2JRQ0Y1cjJlSHBUR2I2MEZVQUxVRmlBajVFWWdLTndMMFNBQUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmpLNnoxczYvQ0hLN01uMld4blo2ZTN0MWZqNS9vOG9NK2JwejJnOXViQm8wOE4vL1lKdC9UNXJ0V0lnSTJJNmYrQURZcUpVL25NdTc5endpMzl2MGNac1l2NlAyQ0RZaHFOY1ZrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0ttYU9sODJGQW8xOCtNQW5BU0pDZmdRaVFtY2xQS3JGMTU0b2FNQytyeDUyZ05xYng2YXh1ZTdWaU1DTmlLbS93TTJLQ1lheFA5N2xCRzdxUDhETmlpbTBaaGpBQUFBQUZOWlNxbFd0d0VBQUFDb0IrT3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlQrYUdXWFoyTFJxUFJhR0pwdS9xSnVWVVJrZTJsUlBueGFVTVczK1dFS01VL1ZjRGFqYXREblRieWdRMjh0dlBvWDEyOVAvajJVcUswbGJlZnQ3WTkrdjVmMEJ5ZGs1dnVNZHMvUTkxYVJaNzZIb2xKWXBLWTFWcDlJUVYxLzlPZmZrc3BwZDc2NUVjLytaWlNTcW0zM25xcmRwT1BmZkt0QTI4OFFsV0UwcnZmK3VUSFBuMi9qb0FWRzllRXFpZHkxUVllMjNuTXI2N09IL3l0VDM3MG84VjRubi9lbXY5S3JmOHZhTGdPeTAyWHpkbytRMTErVFBMVTkwaE1FcFBFck5INmNkbSs4ZkZoRVpIaDhFdjN0clpGWkRYMzZxc1ZYNWZxVUJWaCs4MDNMb1NIUldRNGZPR05OejFFUFJES2MyU3Y3VHo2VjFkZjgxYm5jdUdibHkrNlJUaDl3SnIveWtiOXY2QkJPamczOWJUVzl4bnE4bU9TcC81SFlwS1lKR2FOMXRleSsvb3Z2ZGduc24xK0lwUEp2THgxdGU3TXJJMXdvZis4aUlpYzc3L2d0WWsxb2J4RjF0aE85MS9kNlFPdXp1WEMwOFA3Njk1KzNwcjJOUEQvQlEzV2FibnBhUHNNZFpDbjVpSXhQY1lrTWR1RmIycloxYmxjLzNpZmlQVDE5WW5JOFBUTlMxdDFmdG1valhCdjY3NklpTnpmdXVlMWxUV2h2RVhXMWM1RGYzV25EYmk5OVBxZE82OUdvMWR2MzczemFuUnUxZXZQVzlPZUJ2Ni9vSkU2TURjZGJaK2hEdkxVVUNRbWlYbmFtTzNMSDdYczZseTAra3VOeVBhYmIwaC9uNWVneFFoOUwxNjZsMXNWa2RYY3ZVc3Zlb3BZRTBwVFpHL3RQUHhYZC9xQWZlUEpUQ2FUeWR5OGZQR2xhNW5wWVUwL2I4MS9wZjcvRnpSUVIrZW1qdFlha0tGVnJmTGNTRFFGaVVsaWtwaVZXajFoVjkzLzlNYytXdkxKdDhxcjVlbk16b1RxeWlkT0dMQTJRbm45VkFGck5uWU5kZkxJbFJ0NGIrY0pmM1duL3NFclpwQjcrWGxyMnFQMy93Vk4wRkc1ZVhDenRzL1E2a2FTcDhZZ01Vbk0raHZacHJpSExRQUFBRXpsanprR0FBQUF3T2xSeXdJQUFNQlUxTElBQUFBd0ZiVXNBQUFBVEVVdDJ6S0ZaRHhaYUhVakFCeUNEQVY4aU1URVFkU3lMWlBmV0c5MUV3QWNpZ3dGZklqRXhFSFVzczFoeDYyNGJjY3R5N0pHa2dVUnNlT2pDN21wb0JXM2k2OG1reVBPYTg1V3hjMmtkaFZBQTVDaGdBK1JtRGlaVmwvZ3RoUGs1OE1pSWpLWlZTbzdLZUg1dk1ybnMvUGg4SHgrLzFWblJXVW5uUWZGN1dwV0FlaEhoZ0krUkdMaXBIcGFVRDUzbkVCaUpidGhwV09waUVoaE1Dd2lFZ2dFYTE5TkJFU2tzTG1lbXdwYVV5SWlNcGt2U05XcVNLQUZ6UWZhSEJrSytCQ0ppWk5pam9IdlRHWkxYelJTa1lPckFGcUxEQVY4aU1Uc1pOU3kvaElZR0ZwSTJ5SWlZc2ZqZHMxcUsxc0dnQXdGZkluRTdIU05uY0lBcFpSUzJVa1JFWm5NVms3d2NaNmN6SlplTFUzcUthNld2bFhXckFMUWpnd0ZmSWpFeEFsWlNpbWRwVEVBQUFEUUxNd3hBQUFBZ0ttb1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0ttb1pRRUFBR0FxYWxrQUFBQ1k2djhETzA0a3FJK0N6RTBBQUFBQVNVVk9SSzVDWUlJPVwiIC8+XG5cbjwhLS0gcm5iLXBsb3QtZW5kIC0tPlxuIn0= -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA5kAAAEzCAIAAAA0LFDQAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO3df2wj6XnY8Wck3e7e5ZKcA/kSR6vcbkPKiaIkvRxb5ahu2wMSOJRgln8oQntAdgO0EbFFakpudQmwCpLCewh6i1pi22BBJSmyC+MKyELDshDHaVps6ot4J0dG0kRRW5H2bq2V7dzJPufs2Lt7Wr39Y0iKpEa/OC/JecnvBwMshxw+fKWdR+/Dd96ZsZRSAgAAABioq9UNAAAAAOpELQsAAABTUcsCAADAVNSyAAAAMFVP0z4pFAo17bPQltbW1lrdhDZEYkIv8lQLEhN6tXdiNq+WlVP+Knd2dnp7ezV+us8D+rx52gOeNhp/2RvntH/jfL5rNSJgI2L6P2AdMclTjUjMlsT0f8A6YrZ9YjLHAAAAAKailgUAAICpmjrHwPGR539db8C/GnlGY7Tv+qs9jdFEpPuR5oAPnunWGO3JnV2N0URk74zmL0hv/P6/0hsQrn626+f1Btz7+8/rDSgiZ770dc0RHzzQG0994Hv1BhQRa0f3T/3kOb3x7HtzegOibPCa5t/tg6Hv6A0oIj1nHusN+OidJ/UGlCc1t1BErG9qrqD2zmmuFv7fP5vRG9C3GJcFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqTzWsttLiWg0Go0mlrZdVgG0BIkJ+BCJCTSEt1p2+82tSzczmczNS28srh5YBdASJCbgQyQm0Bg9Ht9/b+u+SN/9rQvhcZHt6tWSUCjkPNjZ2fH4cehA7DZ1IDHRTOxCJ0Riopk6ZxfyNi7bN54M56LRaC48PXxwtWRtbW1tbU1Eent7e3t7PX0iOg+7zamRmGiu3pJWN8TfSEw0V+ckpuf5slvhTOaavDq36rIKoCVITMCHSEygIbzVsquLb8h5keHpa5JbPbAKoCVITMCHSEygMbzNlx2euPT61ehtEXnpWkZEalYBtAKJCfgQiQk0hsdzv/rGk5nxQ1cBtASJCfgQiQk0BPdKAAAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqj/ewrcf9jzyjN+DDn/objdHe29Vc3+/tdusN2PNVnf9ru9+j+ed94l3NPy+a40H07+oN+PZPNeDPi9WnOd6u3njy5DuaA4rIo+/u1Rvw3Lt646GBuh9oDvj8c/c1RxR59uw39Qb8wQ9/Q2/A1a9f1BtQRJ7ofqw34NvfflpvwM7BuCwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABM5a2W3V5KRIvmViue3F8B0HQkJuBDJCbQGD1e3rx9v/+VTKZPRFaXls47z63OXb1996VrGpoGoC4kJuBDJCbQIJ5q2b7hYefB6pa8OCwisjqXC9+8fG+xarNQKOQ82NnZ8fJx6EzsNqdFYqLJ2IVOgsREk3XOLqRlvuzqlrzYJ05eTg8feHltbW1tbU1Eent7e3t7dXwiOgi7Tb1ITDRJb0mrG2IEEhNN0jmJ6Wlctqj4HXN76fU7d+7euSMiIlG5lnFJUgDNQmICPkRiArppqGVLh0v6xpOZcRHZXkos9idJS6ClSEzAh0hMQDvvcwxKh0sA+AiJCfgQiQno531cdnh8vPqJvvHktOeoADwhMQEfIjEB/bhXAgAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVD3N/8iu8Df0BjzzuWc0Rnvw7J7GaCLSvWvpDXj2azqjPfHNbp3hRPbO6I2HJnn7Bc1/DT74Z4/1BhSR957TvLt2PdIbT578muY/ICJy5lua/4bsntUcEI3zr//5bb0Bf+tLL+kNKCJPdWtOpDvvBfUG/OL9Z/UGFBGrS+kN+NTTD/UG7ByMywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRy6KNFZIjVqWRZKHq+bh98D12fH9T5/FIsmAnk4XSKxXc3g/gdA7L02Y2oOmfCfjdSTvKiqcqN21qj6mhlt1eSkSj0cTSdvGR8xhovUBiJT8flsmsUkqp7GRuKhi3nedVfj4sC9drO7BC8vqChOfzaiURsOOj6/N5pW7JldFFEYmkVH4+HJ7PK0d+frAVP9RJkZgwxGF52iR2PDiVa97HkZgwxMk6ytJzdlomJxfS+5nb1B7Tay27vZR4TV7JZDLJ8T6RF1/JZDKZaxfeeJPUhO9EZubDsr5ZTsqJ+XmZulHVZxaWZWI+vL8+NBAQCSRWshMu8QKJRKRhjfWIxISpavO08R+YylcmfUORmDDNCTpKERE7LbFUrKqYrdHQHtNjLbu6ePvu3dtXo9G5VRHp6+sTke2t/pfH+yo2CoVCoVBIRHZ2dnZ2drx9IjqOrt2mkLwylQtPjJW/RspAYrY68+wbGwNj5bVIbHJh1DkqEknsf/ssRUv6eIIBiYmm2inxHqo6T4tHOeNJ23aK2+Jxy3gyGU8WnJW4XXzaOd5ZPrLpjO3acSueTI44r9YeGC2uN21clsREU2lJzGM6SkdhczAWkcihxWyje0xvtexqTq5lMpnMzcv3Xl/aFpHVuWj06u3budXKrdbW1tbW1kSkt7e3t7fX0yei83jfbRZGLcuygosTVUdEREQiM/Pr5cMnhWR6cKbye2MkpbKTC6PVc4JyU0Gn99vw0qTGIjHRXL0lXoK45Kl9Y3Eir5SKbVzfFJFCcuT6YF4ppWIbU+vFDBWRirHVQvL6+nxeqfx8eH2zUEiOjC7IwqLcUmolkY87784OTV1JFqSQHBmVrFKqacOyJCaaS0tiHtdRiogUlmUgIuJSzDapx9Rz7lffi5cuiIjI8LSTp9WpCbTUZFap7KQzYaBGIDE7VDx8UliWWO3oq0RSSuXnZSpYLmeLs398PlnWQWLCIC55GhyUqaA1kgymVhIBKSwvSnHANjh4SPkZSKysJCQ5EpzK5TbygcRKdlImZxMBESlsrjv96uiC5DbyheVFmZ+JiEhgbKJZcwwcJCbMclxHWVhenBq1LCe5qovZJvWY3mrZ8/3FHLy/Jf3lgyR9/Zf6z3tsF6BXJJWVUbcTSiKxyYXryYLYNzYGqr9r2nFn+0BiJTuZ28hXvejnybIkJkxVk6eBxIpS+YnF4MlPgbbjlnVFbrmPtRZPL1NKpVqRviQmTHV4RykihWWZLWWWyleM4e5rdI/prZbtG3+l//VoNBrNhaeHZXUu6sj1V83+AfzgsGo2MjMvU1dGXA6blE/fLGyuu0UsJOP+vJAPiQljVeWpnUwWJJBYUdnJ9c1CYGAot7h8SMrlN3K5qWA8nl6YzK4cGDcSEQkMDJVGjOx43A4MDOX2T2lpyrUTSEwY64iOsjTBwBEYmxD3NG1kj9nj8f1948nMePHx8HQmM+21QYA+heRIcConMmpJVqUikVQ2bVmWSDgczuVyIlOL8/mVRCAxOzmVjq0EyttL0Fqcz88Ozs/KFcvKichkVkXsuDW6ICJBa6oYPzyfT7TupzsKiQlzHJank9ns4OIVa6qYgQGRVDZtlfIvPC8iEolNjo5aCyLhcDg8fyuVyIs1ai1IOByW3GhcJhcWRBZGBvMriUA5sExmVUokkp20Rq0FpxGT2WYM1ZKYMEcpMY/qKCcnZWEhJ7IoeecrZCF5ZSqXk6C1WOxmm9NjWkqpBoWuEQqFnPnsP575db2RH3/uGY3RHjy7pzGaiFi7lt6A5/5KZ8C9MxqDNSTg//21aanYf6BX+Rf74U/M6Y38wT97rDegiLz3XLfegF2P9MaTp97R/AdERB6f1fw3ZFd3wM//drEoa1aeFpIjV+SW+/hreyj/Jv/zF57XG/m3vvSS3oAi8oNPvac34Pa3v0dvwC/ef1ZvQBGxujSXT089/VBvwL/8R7/hPGj7DpT7fgEAAMBUXucYAADQTMU7dQXjA605hwuAv1DLAgBMEkkplWp1IwD4BnMMAAAAYCpqWQAAAJiKOQZoZz/b9fN1vOsP9z6tvSUADrP31YE63tX1A5vaWwKgzKAOlFoW7czqYQ8H/O59tVvHu85qbweACgZ1oMY0FKiD1c0eDvjdQ2pZwH8M6kCZL4t2Zj3RU8fiGqqQHLEsa6TmFnx23LKs4r3inS32tym+tv+Wyo0BlDyUx3UsrW410OY0dqCN1oJP/d5b36034KNfekdjtOSHf19jNBH58TN/rTfgnz/SeZ+z//HNQY3RROTRnp++yek6RFJIXtmYVSpix0eShf27DdkSq7g40NgtlQiIHR9ZLiQSktyMKZUSO27dsBOpSO3GvvNc9lt6A25efUJvQBH5x3/7Lb0Bf+TJr+gN+Kff+iG9AUXkL77xIb0BH+7q/6/x4qHSf7O0tvFrC5f1BvzIP1nVG1BEPvH9b+oN+Fj3HUk3/pbmWwaKyOe+88N6Az7T/Td6A4r8hqd3M8cA8IPPfP23nQeRZ68evaX99s0jXi0sLw7FVkQkEhu6vlxIFItZOz06OhqeL96HOhAIiEhhc3A2ERCR4kaR2OT1zYJEAtUbAyh5oDTfUxeAd8yXBXwh8oO/XHzUc8yX8v0tRewv/4cDrw8NBkVEJDg4VD55uhCcUSplx62RpFOh2nFrdEFkciARqbgb0eDEWMBlYwCOh9SygA8d12/6B/Nl0dZ6eupZXKxv5EVEJL+xXn7OGYiNpPITG8sFEed2RCo/v57enxFrx9MDFaO2FRsDcDxQPXUsrqHc5rUfMpPdmbhe+yKAEm0daMNRy6KtdXfVsxwQGJtwClQ7vT4xVjOoWlhelIH95wIDE8UxXLHjVjpWfcP4mo0ByEPVXcfiEqg4r13NblzZL00LyxsTeaVUfmLxhi1ix9MxpZTKymjcFpGxW0oplR1a5DsmUE1TB9oE1LJoa7q+VgYSszJqWdb1wVuJgBSSI3G7PKBzRW6lIuXBHstyBmILyRFrdEEWRp0BoJqNAZSFn/uiszxUTxy9lLcMP/fFg3EKy4tDsYiIRGJVpalzVCW/MRSLSGFTnO+akZl52SzUTnMHUGbOuCzzZdHW9H1HjKT2L0IQSKykRCSyohLuGzjbVL5aszGAMvvuj5UeHtMlVWwpkYt/eeB1t3ntgcRKLG5Zo5NZlRIpyPri/umbIodNcwfQokHWOhjTUKAOqqe7jqXVrQY6y8O9M3UsbpHc5rVLIbkZK88pCCRmh6aClmVZwcXBMWcS+4Fp7gCM6kCpZdHWzJnuA3SsB+qJOpaDcdzntds3FiUoEkllJW1LsXZV2cnJylkFFdPcATjM6UCZY4B2pnooTAG/O+yiBKcWSMyKZVkSns+vBKSQHLkxsJKKzExcD1pTIjKZVVJIjgSnciLOjIPSBIPyOoASgzpQalm0M9XNhAHA7x7uabsPmcu89pq564mjprkDKDOoA6WWRTsz6Gsl0LEeuk0YANBaBnWg1LJoa93cTwjwu4e65hgA0MicDpS/IGhne+Z8rQQ6lsY5BgB0MagD1dHQ7aXE3KrzcHUuGo1Go6VVoLVUt1XH0upWa0JiwhAP93rqWFrd6nqRmDCEQR2o91p2de7q7bulh7lwJpPJXJNXyU34gUGpqBuJCWN0Ui1LYsIYGjtQ586XI8kDN4p27qK5v0ncdn/1GF5r2dW5XPjm5YsiIrK9Jf3nRUSGJy7L1nZ5m1AoFAqFRGRnZ2dnZ8fjJ6LTeNltVJdVx6K3/S1BYqKZdkrqe/tD1VPHovdHaA4SE83kMTG1daCF5JWNWaXU7MaV6mrWjgencsXHgcRKfj582KvH8PbnYHUuF56elqXXi+v33nhze3y8r2artbU1EQmFQr29vZ4+Dh3Jy26z90Q7FKanRmKiuTzuQo8eG1mYnhqJiebyuAv9kf2K8+DvR28cveVnMzNHvFpYXhyKrYhIJDZ0veIO0nY8HcvPrx8S++hXa3j5C7K99PqdO3fv3BERkahcy0y/fCF6NXpbRC5evjnuITKghzJm5rpGJCYM80gZcxlLD0hMGOZSrFRIHteT7m8p8kb6YF07VLyrXnBwaLP0nB1Px1IpSV53jXj0qwd4qWX7xpOZcRHZXkos9ienh0VkOpOZltW5OTnwVRNogXaZ/HoqJCYM87AjxmVJTBhGXwe6vpEXCYjkN9ZlTERECsnrCwu5hQUREbEkq1KRiu2PftWFzr8g20uJq7fvirx0LTOtMSxQt71OrGVrkZjwufdNPZHLExITPqerAw2MTazfsCUSsdPrEzPOBIPS3fhKd5queceRr7rQ8Rekbzw5Xfw3w3ES+ImZ54doQmLCEI/2OmGOQQmJCUNo60ADiVmxLEvC8/mVwKEFavFUr5HB/EppRu2JHT0Jwo67XUIBMIXG6xi4X1LEjltW6TIizhYV29S85dCLkpwaiYm28v5eVx1Lq1t9EImJtqKxA42klFLKqVEDiYpCtmLF2UZVFrJVmx7l6D8HkZS6JVf2O2vALHs99SwuDrmkiC0xpZQqzuUZu6WUUtmhxeXCwbccelGSOpCYaCuP9nrqWFrd6oNITLQVbR1o4x371TaQWFFKKRVLVw85AQb43O993FlUlxy9lLf83O99/GCcwvLiUCwiIpFYsVIVERE7PTq6nxOBQEBECpuDs4nAgbccEqFuJCbax/uPu+pYXEO5Hf2oPWJSeTSlvKYphUhMtI9j+03XpSVO9LGF5Ig1uhCez6vil07yE2Z44ZfmnGWv2zp6KW/5wi/NuUWquKRI+blCcEYpNbsRrOwjg1NTadvtLW4RvCEx0R7e3+uuY3EJ5Hr0o7C8MZFXSuUnFm/YzrV+lFIqK6NxWwrJTWdtaOqGrqFUEhPt4dh+03VpSVOPnS9rWZZ1RW6V5jA4XzpvyQ1yEwZQ3fUsbtY38iLiXFKkxBmIjaTyExvOSGskpZTKz687xWzNW9wi1InERFv54595zVl2H3cfvZS3/OOfee1gnMOOfji5l98YikWksCnOt8rIzLxsFgKJREREJBKbXN/0mjwkJtqKvg604Y4bl53M1szEFRGR/MZCsV8G/ExXKgbGJpwC1U6vT4zVpENheVEGKiarD0wMBg+85cgIp0dioo2E7GvOsrvXdfRS3jJkX3OL5Hb0I5BYiaUty0rHnHnt6+6TfAY15CWJiXbSRrXsQtrtsEskdeyFawEf2OuuZ3ERSMzKqGVZ1wdvJQJSSI7E7fIsvCtyKxUpj8lYVnqgeK5m5VtqVz0iMdFG9M2XdT364cwjcOYUSCAxOzQVtCzLCi4OlqtXO15MW49ITLQRbR1o4x1zHYPYZNV6IZnk5EyYpKuuxc3BS4qUzvIojsIUryei9nutyrccXPWAxERb2dvrqmM5GMf96Id9Y1GCIpFUVtK2lBIxOzk5W8xFO14es/WGxER70deBNqGlR7DTCwuj1r7g1EaT2gXoYNDXytMgMdFW3t/trmNxCeR2/EQiMxOLQcuyrFGJRcqHU4rVq3OeliyM6riOFomJtmJQB3rcuOz8fF7ty88PNqldgA4GXVLkNEhMtJU9ZdWxuIZyuyR76QiKSkX2V4rjsOXXKo+o1IvERFsxqAM9+rK29qaM7Wd3IXllY2Cl0S0C9GnVPPQGIzHRVvYet+Y6PrqRmGgrBnWgh9WyheRIcConIjI1VfF0eL4gEY/T/b7+o5p/PY/+/IMao7127uc0RhORi09/XW/A8+fe1Rjtx57c1hhNRAoPvl9vQC9MGGQ9lQYm5jvPP+0tQK1zd/XGExGxv+9H9QZc+64f0hvw/Hd9Q29AEQl935begPf+pldvQI+UH29IeyoNTMxnP3LfW4Ba6c/+Hb0BReQvfuJDegMOfM87egM+2f2+3oAicv6s5s79q+8/ozegRwZ1oIe11Dnwkq0+YKLnvBWgaVRPPYuPkZhoQ3u7Vh1Lq1tdicREGzKoAz1mvmyiOhM5KxNmMWi6z2mQmGgras+qY2l1qw8iMdFWDOpAj/nY8iUzOSsTJjLoUs+nQmKirexZ9Sz+Q2KinRjUgR5z7ldaskpxjWeYyoRB1jqQmGgrql3O/SIx0U4M6kCPmWMwM7hZeYiEIyYwi0FfK0+DxERbsR5bdSytbvVBJCbaikEd6DFVd35jiis/w1wGTfc5FRITbaVd5hiQmGgnGjtQ5x4lI8mCywvFm5Q4m5TvWFKzeozj7vu1XnNaJjeVhklUj6pjaXWrj0Vioq20y7gsiYm2oq0DLSSvbMwqpWY3rlRXs3a8eC07EQkkVvLz4fJLNavHOGaOQWp2IF/VHo6YwCRtOi5LYqK97NW1+A6JibbyhY9/3FmO7TTLW37h4x8/GKewvDgUi4hIJDa0uLxfzNrxdOwU9epRjjn3Kz46ulD1zGQ2oeNjgaZQ3f4fZK0DiYm24stB1jqQmGgrF//9vy0+Om4W7P6WInf/xb888PrQYFBERIKDQ5ul5+x4OpZKSfK653bKseOy3F0aZrPqWvyOxERbsfbqWfyHxER70daBrm84ByzyG+vFZwrJ6wsLo5YVnMotjJ54WuyhjjmeWnPp50AiwewfGKRN58uSmGgr1q5Vx+Iayu0UE+e5/WeLV4F1P+PEExIT7URXBxoYm1hP2yJip9cnxpwUcW6Vp1R+PjyZ9T6x3IC5gUD9ulQ9C4Am0jYu63qKSWF5YyKvlMpPLN6wnSObSimVldG4Lac9xQToILo60EBiVkYty7o+eCsRqLh0QTU7HpzKLYzuf+esWj2mpV5+TMDnVLeqY3EN5X5JkaoRnuJKcZvSYND+mE/1cBAAR/5Xp53FeixHL+Ut8786fTDOYaeYOAc48xtDsYgUNsWZuheZmZfNk/SSQIfS2IFGUkoptZIIiEggsbI/Dlux4mxT3OjA6tF01LLbS4m51fLDaDSaWNrWEBbwzOpWdSwugQ65pIgtsfKVdwrJTWe4Z2jqhi1SyA/ccibNZeedvrNy42YgMWGID39izlmOHYstb/nhT8y5Rao4xaT8XCCxEktblpWOOam3XlnmtgCJCUNo60Abz3stuzp39fZd5+H20mtbL2cymZe3XiM34Qf3fvFXnOXYwyLlLe/94q8cjHPIeI+dHh0tD9WW5sZFYpPrmwUJRCLOt0l7U8YCtRs3HokJYxw7HOu6uDl4iomUvmYW5xQEErNDU0HLsqzg4uDYSUZ89CIxYQ5zJul5rWVX53Lhm5cviojI9ptvXAgPi8hw+MIbb+6nZigUCoVCIrKzs7Ozs+PxE9FpvOw2Fz/1m85idamjl/KWFz/1m26R3MZ7CsEZpdTsRrCmQh2cqOgiS6XsYRs3BomJZtopqe/tuubLup1iImLfWJSgSCSVlbQtpUOX2cnJ2RMdvNSKxEQzeU3M4/pN10Xvj3BC3mrZ1blceHp4f/1C/3kRETnff6Fiq7W1tbW1NRHp7e3t7e319InoPF52m64eVcfiFsltvCcQCIhIJJWf2KgYq42nBxIHS1n3jRuExERz9ZbU93Zt47Kup5hEZiYWg5ZlWaMSi5TnsZdmHJzyFBNPSEw0l8fE1NeBNtzR90o42vbS63fu3L1zR0REonLtZv+9rfsifSL3t+7Ji3oaCHhgdem5CmVgbGL9hi2RiJ1en5ipGcwpLC/KgHNFdDtupWMqtf+avSljkUM2bhQSE4Y5ZMJAPSIpVU7AQGIlVfxX7edc1UrtWxqJxIRhdHWgTeCllu0bT2bGRWR7KbHYn5welu2te4urMjy8mrt3aaJPVxOBunXpmoceSMyKZVkSns+vBKSQHLkxsDKzORKcyomE5/MrEZFC0lldsBakdL28/VK29Gpx40YiMWEYjbWsj5GYMIy2DrTxvNSyB/SNvyzRaFQuXr6ZJDHhA12WtlR0Ge+JVA3wBA6M94hEEokjXm0WEhP+5subeDUeiQl/09iBNpqOWrZvPFm60t/wdCbjctU/oDV6ejpiwMcdiQlDdHVUmpKYMIRBHajWcVnAZ7rNme4DdC7SFPAfgzpQalm0sye6jUlFoGN11rgsYAiDOlBqWbSzHnO+VgIdqzPO/QIMY1AHSi2LdtbTTScJ+B21LOBDBnWg1LJoZ09w8BLwva7HxpwuDXQOgzpQalm0syfMOUQCdKwOvSYX4G8GdaDUsmhnZ7p3W90EAMfoIk0B/zGoA6WWRTsz6Gsl0LGsPeYYAL5jUAfa1eoGAA10putxHUurWw10Fmu3ngVAQ2nsQAvJEcuyRpIFlxfitts2zprre1xQy6KdPdG1W8fS6lYDnaXrsapjaXWrgTanrQMtJK9szCqlZjeuVFemdjw4lXPdprC8MZFXSuUnFm/Yxze1BXMMnt7S/Dfo7Z/WOQz+kx/4ssZoIvLtx0/oDfjS0xsao42c0/x95stP3dMb0Iuz5kz3aTnt10V68P36R7j/3g9s6Q24qzTv/2Pf97/0BhSRF85q/qP0tQ+c1RvQI0tfYVpIjgSncuH5/EoiUP2cSOlZO26NLohMZlUqcshbfGTrT87rDbj3oYd6A4rIc0+/qzfgzsOn9QYMf+Ako3un8xPnNP85em/vSb0BPfrU8O84D/7p2i8eveXvhn7viFcLy4tDsRURicSGri8XEqVEs+PpWH5+/YbbNmOyvpEXCeQ3hmKJ45vKuCza2RnrcR1Lq1sNdBZrr57FhevwT80Ajx1Px5RSKiujcfuIESOg0139/C84y7GdZnnLq5//BbdIQ4NBEREJDg6Vn7Pj6Vgqctg2gcRKLG1ZVtQzSh8AAA6RSURBVPU2h+LcL7Qzg07DBDrWZzMzzoN/GHnt6C3/yH7liFcPG/6pHOApJGVwTEQkMjOfXi4UNt3fAkBfB+qkoEh+Y13GRESkkLy+sJBbWBAREUuy+cGabQrJzZhSsbgVt9Xx5Sy1LNrZWc4QAXzvpY/8G+eBdeItReTOH/zKgdcrhnY2S88FEiuxuGWNTmZVSqQg64tVNavbWwDo60ADYxPrN2yJROz0+sSMk3qBxIpKiEghOXJjYCUVkcJm1TZ2fFFmEhJIZdNxWyLHFbPMMUA7O9O1W8fiGsr9NEw7blmWZTnnYRZX9repevXwEzmBzmY9VnUsbpHWN/Ii4gztlDkDPMU5BYHE7NBU0LIsK7g4OBY45C0A9HWggcSsjFqWdX3wViJQeemCQ7eRyMzEYtCyLGtUYieYZEAti3Z2ztqtY3EJdMikOltiSimlUpFSh6lUdmiqeNpl5atMywMOo6uWDYxNrKdtEbHT6xNjpZFX+8aiBEUiqaykbRGJpJRSKjs5OZsIHPIWABo70FLWOadXBhIr+5MGKlYqt3EGbvc70OMwxwDtbHbovzoPbvzvnzt6y5kf/cwRrx4yD89Oj46Ols5/DhSfjcQmr28WJBKoevWwmXwAunY1XYsmkJgVy7IkPJ9fCZSPXs5MXA9aUyIymVXlixo4Mw5q3wKg7Gz3+61uwklRy6Kd/bv/8zPOg7PHTcQrbykiH/uR/37gdbdJdYXgjFIpO26NJKsu5zM4MRaofZVpecCh9F2TK5JSTo0qzohP8V+1f1WfqpXatwAoM+iEE2pZtLOzlq6vlQdPwxQJBAIiEknlN+PLBSmN1cbTA6nUgVfHXCMAELF0jcsC0EdfB9pw1LJoZ2e79KSi22mYZYXlRRlwRnrsuJWOVY/xFF89MgLQ0azHXNQZ8B1dHWgTUMuinR02D/3U3ObhzWzu300osn9zoQVrQSazquZVpuUBh2FcFvAhbR1o41HLop1pPETiMg8vUjXxLlAzDy/CtDzgZB5TywK+wxwDwBfOmXOIBOhYFrUs4D8GdaDUsmhnBn2tBDrXLvNlAd8xqAP1dq+E7aVENBqNRhNL2xXrc6s6WgZf6fpQ3lla3ZDTOWu9X8fS6lZ7RmLCLLu79SzGITFhFIM6UI/3/XrxlUwmk7l24Y03t0VE+saTNy9f1NEu+EllCWtWOXvOelzH0upWe0diwiiP9+pZzENiwiQGdaDe5hj09fWJyPZW/8vjfYdvFQqFnAc7OzuePg4dyctuY9ClnnUiMdFcXnchEwdZ60Biork87kIGdaBe58uuzkVfvSPyUv/48PBh26ytrYlIKBTq7e31+HHoQF52m3OWtvsJmYXERDN53YU6Zr4siYlm8rgLGdSBepxjIMPTmUzm5uV7OWb8tLG9rwRdH/vfOUvVsbS61RqQmDCI2t2tY2l1q+tBYsIgBnWgWq5j0Nd/qf+8jkDwLbNK2LKzltdvayYjMWEIMwvTepGYMINBHainWrZ4uETkpWuZ6eIzV2/fFUn030weNR8IaI6z0t3qJrQAiQmzqPc7opYlMWEWgzpQT7Xs8HSmmJGHPwO00BnLmFTUiMSEWdTjjqhlSUyYxaAOlHsloJ2d+9DdVjcBwDH+26P/1OomAKhlUAdqzGQIAAAAoAa1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMFUL7vv10Zk7egPuaa3In+p+qDGaiPzPdwb0BvyDnp/QGO3Lu1sao4nIT579lt6AaI7RX/6s3oAffOKbegOKyI+f07y7Zr7xvN6AT1qP9AYUkR5Lc8AXzpzRHBEN85vjn9Ib8NK5r+gNKCLv7mneRz//oF9vwLNd7+sNKCLPdH1Hb8B/cE7pDdg5GJcFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCqPtezqXDQajUYTS9siIrK9lIhGo3OrGhoGoG4kJjTo+lDeWVrdkLZBYkIDEvMgT7Xs9tJWOJPJZK5duL24KiLSN568efminpYBqA+JCe8qe0p6TS1ITHhHYrrq8fLmvvHxPhGR4fBLr29ty3Cf+2ahUMh5sLOz4+Xj0JnYbU6LxESTsQudBImJJuucXchTLbuv/9KLh6SliKytrYlIKBTq7e0VEfmqns9EhyjuNqjDqRLzK81qFdoOSXo6p0rMv25Wq9B2OicxdZz7tTqX6x8/PDEBtAKJCQ/2vhJ0fQyvSEx4QGK68jwuuzoXzYUz0zraAkAXEhOe0VPqR2LCMxLzII/nfiWir96RO6+WT8Vcnbt6++6dV0tnaQJoPhIT8CESE2gQj+d+JTPjVc8MT2f4xgm0FokJ+BCJCTQI90oAAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpP97Ctz2fjw3oDvvfDT2mM9uTb72uMJiJPfvHregOuFro1RvuT50c1RhMR68Gu3oCf+Uu98eDu3rd79QZ87gNf0xtQRP7Luz+lN+Bbb1/QGzD9Z8/rDSgiwQtf1Rvw3e88qTfgWkRvPOz73ZDmPeo/nvtpvQFF5P2BPu0x9bLe+FPtMXs+FNYcsVtn5y4i9pf0xvMvxmUBAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgKo+17PZSIhqNzq1WryeWtr22C0D9SEzAh0hMoCE81rJ948mbly+W1raXXtt6OZPJvLz1GrkJtA6JCfgQiQk0RI/GWNtvvnEhnBSR4fCF19/cHh/vc54PhULOg52dHY0fhw7BbuMRiYlGYxeqA4mJRuucXUhnLStyof+8iIic77+wtf/s2tqaiIRCod7eXq0fh47AbuPZyRLzC61oGtoCSVoXekw0VufsQnrP/bq3dV9ERO5v3dMaF4AHJCbgQyQmoIfOWrbvxUv3cqsispq7d+nFPo2RAdSNxAR8iMQEdPE6x2B17urtuyKJ/pvJ8b6+8ZclGo3Kxcs3kyQm0DokJuBDJCbQCF5r2eHpTGb60FUALUFiAj5EYgKNwL0SAAAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJjK6z1s6/CHK7Mn2WxnZ6e3t1fj5/o8oM+bpz2g9ubBo08N//YJt/T5rtWIgI2I6f+ADYqJU/nMu79zwi39v0cZsYv6P2CDYhqNcVkAAACYiloWAAAApqKWBQAAgKmaOl82FAo18+MAnASJCfgQiQmclPKrF154oaMC+rx52gNqbx6axue7ViMCNiKm/wM2KCYaxP97lBG7qP8DNiim0ZhjAAAAAFNZSqlWtwEAAACoB+OyAAAAMBW1LAAAAExFLQsAAABT+aGWXZ2LRqPRaGJpu/qJuVURke2lRPnxaUMW3+WEKMU/VcDajatDnTbygQ28tvPoX129P/j2UqK0lbeft7Y9+v5f0Bydk5vuMds/Q91aRZ76HolJYpKY1Vp9IQV1/9Offksppd765Ec/+ZZSSqm33nqrdpOPffKtA288QlWE0rvf+uTHPn2/joAVG9eEqidy1QYe23nMr67OH/ytT370o8V4nn/emv9Krf8vaLgOy02Xzdo+Q11+TPLU90hMEpPErNH6cdm+8fFhEZHh8Ev3trZFZDX36qsVX5fqUBVh+803LoSHRWQ4fOGNNz1EPRDKc2Sv7Tz6V1df81bncuGbly+6RTh9wJr/ykb9v6BBOjg39bTW9xnq8mOSp/5HYpKYJGaN1tey+/ovvdgnsn1+IpPJvLx1te7MrI1wof+8iIic77/gtYk1obxF1thO91/d6QOuzuXC08P7695+3pr2NPD/BQ3WabnpaPsMdZCn5iIxPcYkMduFb2rZ1blc/3ifiPT19YnI8PTNS1t1ftmojXBv676IiNzfuue1lTWhvEXW1c5Df3WnDbi99PqdO69Go1dv373zanRu1evPW9OeBv6/oJE6MDcdbZ+hDvLUUCQmiXnamO3LH7Xs6ly0+kuNyPabb0h/n5egxQh9L166l1sVkdXcvUsveopYE0pTZG/tPPxXd/qAfePJTCaTydy8fPGla5npYU0/b81/pf7/FzRQR+emjtYakKFVrfLcSDQFiUlikpiVWj1hV93/9Mc+WvLJt8qr5enMzoTqyidOGLA2Qnn9VAFrNnYNdfLIlRt4b+cJf3Wn/sErZpB7+Xlr2qP3/wVN0FG5eXCzts/Q6kaSp8YgMUnM+hvZpriHLQAAAEzljzkGAAAAwOlRywIAAMBU1LIAAAAwFbUsAAAATEUt2zKFZDxZaHUjAByCDAV8iMTEQdSyLZPfWG91EwAcigwFfIjExEHUss1hx624bccty7JGkgURseOjC7mpoBW3i68mkyPOa85Wxc2kdhVAA5ChgA+RmDiZVl/gthPk58MiIjKZVSo7KeH5vMrns/Ph8Hx+/1VnRWUnnQfF7WpWAehHhgI+RGLipHpaUD53nEBiJbthpWOpiEhhMCwiEggEa19NBESksLmemwpaUyIiMpkvSNWqSKAFzQfaHBkK+BCJiZNijoHvTGZLXzRSkYOrAFqLDAV8iMTsZNSy/hIYGFpI2yIiYsfjds1qK1sGgAwFfInE7HSNncIApZRS2UkREZnMVk7wcZ6czJZeLU3qKa6WvlXWrALQjgwFfIjExAlZSimdpTEAAADQLMwxAAAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACY6v8DO04kqI+CzE0AAAAASUVORK5CYII=" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrRnNiRlpoY25OSWVYQmxjbFIxYm1VdWMzWm5YQ0lzSUhkcFpIUm9QVEV5TENCb1pXbG5hSFE5TkN3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSnpkbWRjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1pFRnVibTk1VFc1QmJHeFdZWEp6U0hsd1pYSlVkVzVsTG5OMloxd2lLVnh1WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY0lsQjBjMEZDWkVGdWJtOTVUVzVCYkd4V1lYSnpTSGx3WlhKVWRXNWxMbkJrWmx3aUxDQjNhV1IwYUQweE1pd2dhR1ZwWjJoMFBUUXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpY0dSbVhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJCYm01dmVVMXVRV3hzVm1GeWMwaDVjR1Z5VkhWdVpTNXdaR1pjSWlsY2JuMWNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BbGxWYXJzSHlwZXJUdW5lLnN2Z1xcLCB3aWR0aD0xMiwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWxsVmFyc0h5cGVyVHVuZS5zdmdcXClcblxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWxsVmFyc0h5cGVyVHVuZS5wZGZcXCwgd2lkdGg9MTIsIGhlaWdodD00LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFsbFZhcnNIeXBlclR1bmUucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAllVarsHyperTune.svg\, width=12, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAllVarsHyperTune.svg\)
ggsave(filename=\PtsABdAnnoyMnAllVarsHyperTune.pdf\, width=12, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAllVarsHyperTune.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtGc2JGWmhjbk5JZVhCbGNsUjFibVV1YzNablhGd3NJSGRwWkhSb1BURXlMQ0JvWldsbmFIUTlOQ3dnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4emRtZGNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWkVGdWJtOTVUVzVCYkd4V1lYSnpTSGx3WlhKVWRXNWxMbk4yWjF4Y0tWeHVYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjWEZCMGMwRkNaRUZ1Ym05NVRXNUJiR3hXWVhKelNIbHdaWEpVZFc1bExuQmtabHhjTENCM2FXUjBhRDB4TWl3Z2FHVnBaMmgwUFRRc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjR1JtWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUkJibTV2ZVUxdVFXeHNWbUZ5YzBoNWNHVnlWSFZ1WlM1d1pHWmNYQ2xjYm4xY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWxsVmFyc0h5cGVyVHVuZS5zdmdcXCwgd2lkdGg9MTIsIGhlaWdodD00LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFsbFZhcnNIeXBlclR1bmUuc3ZnXFwpXG5cbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFsbFZhcnNIeXBlclR1bmUucGRmXFwsIHdpZHRoPTEyLCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BbGxWYXJzSHlwZXJUdW5lLnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFsbFZhcnNIeXBlclR1bmUuc3ZnXFwsIHdpZHRoPTEyLCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BbGxWYXJzSHlwZXJUdW5lLnN2Z1xcKVxuXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BbGxWYXJzSHlwZXJUdW5lLnBkZlxcLCB3aWR0aD0xMiwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWxsVmFyc0h5cGVyVHVuZS5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAllVarsHyperTune.svg\, width=12, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAllVarsHyperTune.svg\)
ggsave(filename=\PtsABdAnnoyMnAllVarsHyperTune.pdf\, width=12, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAllVarsHyperTune.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F4TlRBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eUxqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDE1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzIuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 1501
mtry <- as.integer(length(iVars)/2.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXhOVEF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh5TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDE1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzIuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAxNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8yLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 1501
mtry <- as.integer(length(iVars)/2.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUkJZbk5FYVdabWN5QThMU0JqY21aU1pXY29aR0YwWVVsdVBYTjBhVzFFWVhSaFRuVnRMQ0JwVm1GeWN6MXBWbUZ5Y3l3Z1pGWmhjajFrVm1GeUxDQnpaV1ZrY3oxelpXVmtjMXN4T2pKZExDQnVkSEpsWlQxdWRISmxaU3dnYlhSeWVUMXRkSEo1TENCd1pYSnRTVzF3UTI5dVpGUm9jbVZ6UFhCbGNtMUpiWEJEYjI1a1ZHaHlaWE1zSUc1d1pYSnRQVzV3WlhKdExDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYmx4dUl5QndjbWx1ZENCdGIyUmxiQ0J3Y21Wa2FXTjBhVzl1SUhKbGMzVnNkSE5jYm5KbGMzVnNkSE5QZFhSQlluTkVhV1ptY3lSUFQwSmZVazFUUlZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dEFic0RpZmZzIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEFic0RpZmZzJE9PQl9STVNFXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutAbsDiffs <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbsDiffs$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSQlluTkVhV1ptY3lBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJCWW5ORWFXWm1jeVJQVDBKZlVrMVRSVnh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRBYnNEaWZmcyA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfUk1TRVxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRBYnNEaWZmcyA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfUk1TRVxuYGBgXG5gYGAifQ== -->
```r
```r
nperm <- 5
resultsOutAbsDiffs <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbsDiffs$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTI1NjQzOFxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpKRTlQUWw5TlFVVmNibUJnWUNKOSAtLT5cblxuYGBgclxucmVzdWx0c091dEFic0RpZmZzJE9PQl9NQUVcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
[1] 0.5256438
resultsOutAbsDiffs$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpFOVBRbDlOUVVWY2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcbnJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfTUFFXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEFic0RpZmZzJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutAbsDiffs$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNDA2NjM0NVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpKRkp6Y1hWaGNtVmtYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbnJlc3VsdHNPdXRBYnNEaWZmcyRSc3F1YXJlZFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.4066345
resultsOutAbsDiffs$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpGSnpjWFZoY21Wa1hHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbnJlc3VsdHNPdXRBYnNEaWZmcyRSc3F1YXJlZFxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEFic0RpZmZzJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutAbsDiffs$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODkxODkwOVxuIn0= -->
```
[1] 0.8918909
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwUVdKelJHbG1abk1nUEMwZ2JYVnNkR2xmWTNKbVVtVm5LR1JoZEdGSmJqMXpkR2x0UkdGMFlVNTFiU3dnYVZaaGNuTTlhVlpoY25Nc0lHUldZWEk5WkZaaGNpd2djMlZsWkhNOWMyVmxaSE1zSUc1MGNtVmxQVzUwY21WbExDQnRkSEo1UFcxMGNua3NJSEJsY20xSmJYQkRiMjVrVkdoeVpYTTljR1Z5YlVsdGNFTnZibVJVYUhKbGN5d2dibkJsY20wOWJuQmxjbTBzSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVYRzRqSUhCeWFXNTBJRzF2WkdWc0lIQnlaV1JwWTNScGIyNGdjbVZ6ZFd4MGMxeHVjbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpKRTlQUWw5U1RWTkZYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcblxucmVzdWx0c091dEFic0RpZmZzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfUk1TRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
resultsOutAbsDiffs <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbsDiffs$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBRV0p6UkdsbVpuTWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpFOVBRbDlTVFZORlhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcblxucmVzdWx0c091dEFic0RpZmZzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfUk1TRVxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0QWJzRGlmZnMgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEFic0RpZmZzJE9PQl9STVNFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutAbsDiffs <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbsDiffs$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTI1MTc5NFxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpKRTlQUWw5TlFVVmNibUJnWUNKOSAtLT5cblxuYGBgclxucmVzdWx0c091dEFic0RpZmZzJE9PQl9NQUVcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
[1] 0.5251794
resultsOutAbsDiffs$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpFOVBRbDlOUVVWY2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcbnJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfTUFFXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEFic0RpZmZzJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutAbsDiffs$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNDA3Mzc4N1xuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpKRkp6Y1hWaGNtVmtYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbnJlc3VsdHNPdXRBYnNEaWZmcyRSc3F1YXJlZFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.4073787
resultsOutAbsDiffs$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpGSnpjWFZoY21Wa1hHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbnJlc3VsdHNPdXRBYnNEaWZmcyRSc3F1YXJlZFxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEFic0RpZmZzJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutAbsDiffs$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODkyMTc4M1xuIn0= -->
```
[1] 0.8921783
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEc5eVpTQnlaWE4xYkhSelhHNXlaWE5rUVc1dWIzbE5ia1pwZEVGQ1d5ZEJiR3dnZG1GeWN5Y3NJQ2RTVFZORkoxMGdQQzBnY21WemRXeDBjMDkxZEVGaWMwUnBabVp6SkU5UFFsOVNUVk5GWEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkQmJHd2dkbUZ5Y3ljc0lDZE5RVVVuWFNBOExTQnlaWE4xYkhSelQzVjBRV0p6UkdsbVpuTWtUMDlDWDAxQlJWeHVjbVZ6WkVGdWJtOTVUVzVHYVhSQlFsc25RV3hzSUhaaGNuTW5MQ0FuVW5OeGRXRnlaV1FuWFNBOExTQnlaWE4xYkhSelQzVjBRV0p6UkdsbVpuTWtVbk54ZFdGeVpXUmNibkpsYzJSQmJtNXZlVTF1VUdWeWJVbHRjRUZDSkVGc2JGWmhjbk1nUEMwZ2NtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQmNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbiMgc3RvcmUgcmVzdWx0c1xucmVzZEFubm95TW5GaXRBQlsnQWxsIHZhcnMnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnQWxsIHZhcnMnLCAnTUFFJ10gPC0gcmVzdWx0c091dEFic0RpZmZzJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FsbCB2YXJzJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dEFic0RpZmZzJFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiRBbGxWYXJzIDwtIHJlc3VsdHNPdXRBYnNEaWZmcyRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# store results
resdAnnoyMnFitAB['All vars', 'RMSE'] <- resultsOutAbsDiffs$OOB_RMSE
resdAnnoyMnFitAB['All vars', 'MAE'] <- resultsOutAbsDiffs$OOB_MAE
resdAnnoyMnFitAB['All vars', 'Rsquared'] <- resultsOutAbsDiffs$Rsquared
resdAnnoyMnPermImpAB$AllVars <- resultsOutAbsDiffs$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkRzl5WlNCeVpYTjFiSFJ6WEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkQmJHd2dkbUZ5Y3ljc0lDZFNUVk5GSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpKRTlQUWw5U1RWTkZYRzV5WlhOa1FXNXViM2xOYmtacGRFRkNXeWRCYkd3Z2RtRnljeWNzSUNkTlFVVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFFXSnpSR2xtWm5Na1QwOUNYMDFCUlZ4dWNtVnpaRUZ1Ym05NVRXNUdhWFJCUWxzblFXeHNJSFpoY25NbkxDQW5Vbk54ZFdGeVpXUW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFFXSnpSR2xtWm5Na1VuTnhkV0Z5WldSY2JuSmxjMlJCYm01dmVVMXVVR1Z5YlVsdGNFRkNKRUZzYkZaaGNuTWdQQzBnY21WemRXeDBjMDkxZEVGaWMwUnBabVp6SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhCY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0FsbCB2YXJzJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0QWJzRGlmZnMkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0FsbCB2YXJzJywgJ01BRSddIDwtIHJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfTUFFXG5yZXNkQW5ub3lNbkZpdEFCWydBbGwgdmFycycsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRBYnNEaWZmcyRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkQWxsVmFycyA8LSByZXN1bHRzT3V0QWJzRGlmZnMkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydBbGwgdmFycycsICdSTVNFJ10gPC0gcmVzdWx0c091dEFic0RpZmZzJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydBbGwgdmFycycsICdNQUUnXSA8LSByZXN1bHRzT3V0QWJzRGlmZnMkT09CX01BRVxucmVzZEFubm95TW5GaXRBQlsnQWxsIHZhcnMnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0QWJzRGlmZnMkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJEFsbFZhcnMgPC0gcmVzdWx0c091dEFic0RpZmZzJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdAnnoyMnFitAB['All vars', 'RMSE'] <- resultsOutAbsDiffs$OOB_RMSE
resdAnnoyMnFitAB['All vars', 'MAE'] <- resultsOutAbsDiffs$OOB_MAE
resdAnnoyMnFitAB['All vars', 'Rsquared'] <- resultsOutAbsDiffs$Rsquared
resdAnnoyMnPermImpAB$AllVars <- resultsOutAbsDiffs$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpMbU52Ym1sdGNDQThMU0JoY25KaGJtZGxLSEpsYzNWc2RITlBkWFJCWW5ORWFXWm1jeVJqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUkJZbk5FYVdabWN5NWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSQlluTkVhV1ptY3k1amIyNXBiWEFwTENCc1pYWmxiSE05Y205M2JtRnRaWE1vY21WemRXeDBjMDkxZEVGaWMwUnBabVp6TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJPVjBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhDSldZWEpwWVdKc1pWd2lMQ0I1UFZ3aVEyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb2JXVmhiaUJqYUdGdVoyVWdhVzRnWVc1dWIzbGhibU5sS1Z3aUtTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYQ0p6WlhKcFpsd2lLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1NrZ0t5QmpiMjl5WkY5bWJHbHdLQ2xjYm5CQ1lYSmNibUJnWUNKOSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEFic0RpZmZzLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRBYnNEaWZmcyRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEFic0RpZmZzLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbOV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutAbsDiffs.conimp <- arrange(resultsOutAbsDiffs$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutAbsDiffs.conimp) + geom_col(aes(x=factor(rownames(resultsOutAbsDiffs.conimp), levels=rownames(resultsOutAbsDiffs.conimp)), y=CondPermImp), fill=mycolours[9], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekxtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUkJZbk5FYVdabWN5UmpiMjVrYVhScGIyNWhiRjl3WlhKdGFXMXdMQ0JrWlhOaktISnZkMTl1ZFcxaVpYSW9LU2twWEc1Y2JuQkNZWElnUEMwZ1oyZHdiRzkwS0hKbGMzVnNkSE5QZFhSQlluTkVhV1ptY3k1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJCWW5ORWFXWm1jeTVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpMbU52Ym1sdGNDa3BMQ0I1UFVOdmJtUlFaWEp0U1cxd0tTd2dabWxzYkQxdGVXTnZiRzkxY25OYk9WMHNJSGRwWkhSb1BUQXVOU2tnS3lCc1lXSnpLSGc5WEZ4V1lYSnBZV0pzWlZ4Y0xDQjVQVnhjUTI5dVpHbDBhVzl1WVd3Z2RtRnlhV0ZpYkdVZ2NHVnliWFYwWVhScGIyNGdhVzF3YjNKMFlXNWpaU0FvYldWaGJpQmphR0Z1WjJVZ2FXNGdZVzV1YjNsaGJtTmxLVnhjS1NBcklIUm9aVzFsS0hSbGVIUWdQU0JsYkdWdFpXNTBYM1JsZUhRb1ptRnRhV3g1SUQwZ1hGeHpaWEpwWmx4Y0tTd2djR0Z1Wld3dVozSnBaRDFsYkdWdFpXNTBYMnhwYm1Vb1kyOXNiM0lnUFNCeVoySW9Nak0xTENBeU16VXNJREl6TlN3Z01UQXdMQ0J0WVhoRGIyeHZjbFpoYkhWbElEMGdNalUxS1N3Z2JHbHVaWGRwWkhSb0lEMGdNQzR5TlN3Z2JHbHVaWFI1Y0dVZ1BTQXlLU2tnS3lCamIyOXlaRjltYkdsd0tDbGNibkJDWVhKY2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0QWJzRGlmZnMkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzldLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEFic0RpZmZzLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRBYnNEaWZmcyRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEFic0RpZmZzLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbOV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuYGBgIn0= -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutAbsDiffs.conimp <- arrange(resultsOutAbsDiffs$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutAbsDiffs.conimp) + geom_col(aes(x=factor(rownames(resultsOutAbsDiffs.conimp), levels=rownames(resultsOutAbsDiffs.conimp)), y=CondPermImp), fill=mycolours[9], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qSXdMQ0ozYVdSMGFDSTZPQ3dpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjIwLCJ3aWR0aCI6OCwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFZQUNBTUFBQURyRUhUc0FBQUJ5MUJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qcXROanNobUFBQm1BRHBtQUdabU9wQm1aZ0JtWnJabWtOdG10dHRtdHY5dVRVMXVUVzV1VFk1dWJrMXVibTV1YnF0dWpvNXVqc2h1cTZ0dXE4aHVxK1NPVFUyT1RXNk9UWTZPYmsyT2JvNk9icXVPamsyT2ptNk9qbzZPanNpT3E2dU9xOGlPcStTT3lNaU95T1NPeVArUU9nQ1FPanFRT21hUVpnQ1FacENRa0RxUWtHYVFrTGFRa051UXRwQ1F0ditRMjdhUTI5dVEyLytyYmsycmJtNnJibzZyamsycmpvNnJqcXVycTI2cnE0NnJxNnVycThpcnErU3J5S3VyeU1pcnlQK3I1TWlyNU9TcjVQKzJaZ0MyWmpxMlptYTJrRHEya0pDMnRtYTIyNUMyLzdhMi85dTIvLy9JamszSWptN0lqbzdJcTI3SXE0N0lxNnZJeUk3SXlLdkl5TWpJeU9USXlQL0k1S3ZJNVAvSS84akkvK1RJLy8vYmtEcmJrR2Jia0pEYnRtYmIyNURiMjdiYi83YmIvLy9rcTI3a3E0N2txNnZreUk3a3lLdmt5TWprNUt2azVNamsvOGprLytUay8vL3k4dkwzOS9mL1dzRC90bWIvdHBEL3lJNy95S3YveU1qLzI1RC81S3YvNU1qLzVPVC8vN2IvLzhqLy85di8vK1QvLy8rcTkrWWlBQUFBQ1hCSVdYTUFBQXV3QUFBTHNBRWFPQkJ5QUFBZ0FFbEVRVlI0bk8yOWo1L2p4cDBsTnY2UnpTYWJDTjB5eDl6YnkxN1VsalJxaVpSOG5kUFk3YUZ6ZDV2YlhOYlUrRWJ4S0JvTmxkd21PYk5ISHExT3ZoNXFjOGtaTTdQMjlYQmxIVWZpU1RUeDU2YSszeXFBQUlsR2cyQ2hVRi9pdlk4OTZBYS9aS01iVHdWVXZZZjN2UllCUU8yNDF2UUJBRzBBYUFZNEFHZ0dPQUJvQmppQURKcjlGNEJZOEFrVVFyT21Ed0NvQ3ZFMCs3emttOHZXb2JDT0R3VE5VTGhOSVdoV0RBR25VRUpoVzJuMmU4QXo2UFBTR00wVy9hQXpwUy9tUHhoRnkyRVFCQWNmcEhlcDF3UDE3U3c0bkVSaDBLUGRaNlBGV3hNdTdVV2dtUkRrblNXWG85bmloQ2tWZmZrLzlQUTN6MGZaWFRlajVaM3BKK3JiK2JGaW1DYWYrdmQwZnBvNjFqVTAvVWNGMXBGM2xwcWcyU2N6TllTcGI1NlAxbmJkWE41Vlk1cjZLaHhFczU0YXhRNFVEeS82UEpqUjRzdm5uL05RL0hsNjIvUWZGVmhIOXZ6b2JRTTBXM3lxcm9SMGlUd1liZXpxUmw5UEZlTWVqOVFZRnZiVWtCYXFxMmh2eGxkUWpHWXlrSGVXR3FEWlRJMU9nK3hvWm5iUmFLYndlTVNqbWJwc1BoNnBxeWhvSmd2NnZEUTMweVJPcWR1czMwNmpXVmQvYzV6ZGRaUExscmNuZkcrbVJyT3c4d3cwa3daOVhwcWNhYXJKNWYyaEdyZkd3ZmQrcUw0SmZwTGU5ZUlSelNkRHVwYXE3M3BjUDVnRnQ0WTgxRVZZTi9PaHNLM3JacUNaMDhLMjBneVFBTkFNY0FEUURIQUEwQXh3QVBFMHd4VEFhV0ZicHdCTnJ4SzFEaVZQVm4wMDA2NkxVZDVMeG5FUjBZTC80VVJ0emo1Z3FWSzlwV3RlV1BUcHJjc2h2eHpGaGc1ZWJCdWtqM1VOVGYvVlc0ZVNaS2h4Tk9NMWZYWlZ4Q3Y2NWt2anVDQjh3ditxS3ZKajNKN0Uycm42YnZHT1l0eC8vc2VUOUtmeEN6TnRGZ0xOdkVCSkx0Uk1zMmpXbzNGcEZ2QkdEVVk5OVNWcmxMUFgrNGNUTm1CbzcwVk1zL21QMUg2cS84VmJrK2kzLzJvU2tpN1ErWGx2UlRNYThPRFE4QVJSbmdQanFxMTltczJQSDQ5bXZhZkhFVzBVdnlMK01wci9XRjBPd3g0Yk1OaDdFVnMwbnFuOVp5TlZ0SGh2UEZqKzJ3ZHFOSnNORmlmdng2TlpQN21zWWpUekFaV1lVY2RvTmc2Q3JycE0wb1pJbzc3VW8xbVB2aVFEQm5zdmFEUWJEbWcwTzFYZnpZbG04eHYvOGQ4OVVBTmVRT1hKUlhOK1k1bysxalUwL1ZkdkhTb3hvNDU3c3llYVc3U2gwVXg5eWZkbWlqbHFHS01ySlhzdkx0VGQyemhMcytVN1A1NCttRHlZekFiejQ3T1JkbThvTm9hOTlMRUNBbEhIVEpPdWM0dCtUMi80UzNaY3pNanBINW9DYmM3b1BGTXp6ZkhoZVY4VnZhNEdNWFdWRFE3ZkRZTHYvZkRXOE1Vajg3U0FtbzdxNlN2V3pab3Y5SC9kYk5hN3VxWVFvRm56aGQ3VGJMVWlWaFdnV2ZPRjN0TnNkNEJtelJlMmxXYUFCSUJtZ0FPSXAxblR5MGg3aHhwUEhXZ0d4S2p4MUxsemFNVHpUVGcwZkVYeE9mWmhDbERHb2JHOFRUU0NROE5iRko5aVgyaDJoVU9EYVFhSGhzY29kbHg4ZnNuK2plM25qVG8wbUdad2FIaU00bFBzMFdoVzZOQWdtc0doNFRIc1VHRU56aDBhWmpTRFE2TlZjTzNRVUY5MXBqWWRHb0FFaUhkb0FCSUFod1lLdHluMFlRcFFNMEN6NWd0QnMySUlPSVVTQ2tHellnZzRoUklLMjBxenBwZVphb0xydjIzTmNFS3pwTmNFcmRzZVVTQjd3SjBtc2gwcDBINGloWHBQaUhPNEdjMTByNG5sYlVXWndYS29LUFBFYU9ab1AzRUphajRocnVHTVpzOUhSZ0JZL21JNDJLQVoyaytzWWVQM2xMMTFSRE9XeWMxb2RuZng1bWlOWm1nL3NZN2l2eWVtQUxrd281bTZ5ZXBHYXNTYTMzaVlwUm5hVDZ5aitPOEptdVZDOTVyUWprYWlVbmc0TWNMNHp1MG5zS0RodE5Cbm12RmNrY1R5UTdZMEt0SThPTzhuazArMG54QlU2RFBOTEFIU3VWaUFab0FEZ0dhQUE0Qm1nQU9JcHhtbUFFNEwyem9GYUhxQmF6ZGtmeGZRekFlQVpzMFgrayt6akIwak1XMXNPRFRHOUZ4bVd4d2EyZDhGTkxPQnJCMkRUUnViRG8ybmcyZzhhSTFEdzhuZjNRTTBRVE50eDJDWmM5T2hvVlh6dGpnMG1uWk83SmREUTJQZGpuRXd5bkZvaEQxRnM5WTROSno4M1QxQUF6UXpkb3owYUpaeWFERDlXdVBRY1BKMzl3Q3VhYmF5WTdCcEk4K2hFUWRWd2FIaFlhSC9VNEJGMm83eHZSOGEwOGFtUTRPZUdvWkR3OU5DLzJtMk0wQ3o1Z3RCczJJSU9JVVNDdHRLTTBBQ1FEUEFBVUF6d0FIRTB3eUxXaExnbkdaWENlZ1pOQ3VkWC9HYkNMaGhiL0VVNENvQlBZV0dwZk1yZmhFQnBBRE5MaGZRcWR2Sk9IanRYdVBTK1JXUzhPZGxwZU8vTHlzeC8zMVpLZnJ2eTByV2YxK3lyblRlZjlrNm9sbEQwcm5HVlFJNnRST2cwTzFCNDlMNUZiK0lnTEVIbzltbEFqcTFFemdiS1pvMUxwMDcrNVBzUDVxaFdaR0F6dTBFekdoV1Fqb0h6U1NnaVpsbW9ZRGV1ZER0QklKQk9la2NrQUJ2MTgzQ3djWXUwRXdzZktYWi9HaXppd0NrOCtZTHhVd0JxZ00wYTc0UU5DdUdnRk1vb1JBMEs0YUFVeWloc0swMHcwS0dCSUJtb0prRCtOZCtvdmx3ZzNyL0dLMkVkKzBuUEFnM3FQbVAwVVo0MTM3Q2czQ0RrczRMT0RSOGMyaHMwWDdDZzNDRGtyK1VnSGxoeTJhYVc3U2Y4Q0Rjb09RdkpZQVU3YU5aK2ZZVENEZnd1TkJubW0zWGZtSzdjQU5BQXNTdm13RVNBSm9CRGdDYUFRNGdubWFZQWpndDlIa0tZQW1nV2ZPRmJhV1o5VlV4QWVjYU5NdkJJazh5cDZhWnZNN2hYRHEvNm5BRm5HdlFMQTk1a3ZrN2lrdi8rUjlQR3BET2EvMVZnWHc0b3RtR1pQNkx0eWJSYi8vVnBBSHB2S1QwaTYzTnJjUFJMQ09adnpjZUxQL3RnMGtEMG5tdHZ5cVFEeWMweTVITTM1dmYrSS8vTHFHWlMrbTgxbDhWeUllcmkrYTZaUDdlOHAwZlR4OU1kcGZPcmROTXdIMDRwZ0E1V09SSzVvTlpqK2VkNkFzZ3F0QmZtbGtEYU5aOElXaFdEQUduVUVKaFcya0dTQUJvQmpnQWFBWTRnSGlhWWNGTUFrQ3pkUWk0RDhjVUlJdE1lSUg2cnZPcjBlV3ZHNGZHakJiTzZuQm9sRHhtQWVjYU5GdER4b0VSRGpiYW1HdzZOS2FmcUc5cmNXaVVQR1FCNXhvMFcwUEdnVUgvajhLM2c3ZURRVWhyLzUyZjl6WWRHbXJJbTBhMU9EUktPZ28rTCtzOCtMeXNRd0hoQm5VN05ESU9qR2dXOUJiOTdxeExvOU5zc0RoNVB5ZmM0T3VwWWx3dERvMjZma2ZnYXJpaDJTeVdKY1BCYkREcnpVOFZvMmpBeWdrM1VIaGNqME9qcnQ4UnVCb09hSlk0TUdaRUhrMnpCNVBaWUg1OE5zcHphQ3h2VDdad2FBQVNVUHRNTTlWWTR1OWVDUTRmcVR1eUlEaDhOd2krOThOYnd4ZVBjaHdhOUpnQXdnMzJDK0xYelNDZE95MzBjNlpwRmFCWjg0V2dXVEVFbkVJSmhhQlpNUVNjUWdtRmJhVVpJQUhpYVlaRk13bndMOXlnSHVtOHpsOFF1QkxlaFJ2VUpKM1grZ3NDVjhHN2NJT2FwUE0xS1JmUytkcFd0blRPMkNyY29DYnBYTUlzVGtLaHh6UE5yY0lOb25xa2N3bW5VRUtoenpUYkx0eGdPK2tjTkhOYTZDL050ZzAzZ0hTK2Z4Qy9iZ1pJQUdnR09BQm9CamlBZUpwQk9uZGE2TzhVd0JwQXMrWUxRYk5pQ0RpRkVncmJTck1yRjh3TUJKeENDWVhOME94c05DYjdSZko5a2xZUW5kMm45YTZEVVRRTERuLzl2bkZrSEU1V1hvenUya2RsbjBoZmFDV1RIKy9NSHVzYXl0SU1hQks3MFd6K2cvdDNMazZlM1YzdGliVndSUnI2OHZsb2ZtTzY2UGRpUjRieFltaVZNL3RaL0VMcWcyNGE5V0Q5V05jQW1rbkFMalJqQ3dVVFMzM1ZtYzUvMUQ4MElxVXhWMUNEODhjOFJzV09ET1BGTUo0TjlhNkxmdWVqb0JlcVlZNWZHQitNeGgzeVpIUTF6ZFJuOE1kR2xSMGE2L1hZTnJIZGhXWnNvV0NhaFlNb2ZFTmRFdlh6dmVZVlR2aVBIdkNJRkRzeWpCZERqMmIwTHRJckgwd1duOFltRGFMbWJQWHVzUE9NUDVaL0hrWXpzZGlGWm15aFlKcXByK2JIODFQMXJhWVp2NkpITTAyUjJKRmh2QmphczhIdld0NCtmM2o2Skg1QjdYczRwVWVIcHpTYURRZkxPMVArMk5TeHJxRXN6UVRjWGtzb2JHQUt3QmFLS1k5bTNZZ2lDd3pOMkNvV2RpN295Mk4xYjZaZWl4MFp4b3VoNzdyNFhWRjQ0eEg1YXZVTDBmelZleFNDd1BkbTBiZ0V6YkNnNGJTd0FacXhoWUxORkh4dk5qNDg3MTluQXdaZDhiU3pnZ0paNkViTE9ESU9Yb205R0hTN3hlOVNBMTMwaFB6K25IOHdwWXZzL0NnSXJzY1BCZ3pvWTd1cFk2MzRld3M0aFJJSzkyamQ3TXRKdEx5YnN4ODBhNzV3ajJnVzhucmJKaUNkaTRXUE5Mc01vSmxZZ0dhQUE0Qm1nQU9JcDFuWnRWa0J0OWNTQ2oyZUFyQ2V6bjB5ay9ZQUg2UWJBbkI2d2NFSEszbDk5UzR0b1EvU3g3b0cwTXhwb2NjMDAzcjZrMG02UFVBMjFZQkY5cFc4bm5vWExkUE9qT2tETkd1K1VBVE5WdTBCc3FrR0xFdkY4bnEyWndEUmpGWm5LMG5ubHo1c1g3QkZ1SUdOdXJXL3QxT2FyZG9EYkRRRUlLdEhMSzluZWdadzRvSEdUcU1aMENUYzBTelJ6U082Ym1aVERmUm9GZ2NlWkhvR0xHNlNLcG82MWpXQVpoTGdoR2JMZDdTUkk5VWVJSnRxd0NKN0xLOW5ld2FvaTJiWVN4L3JHa0F6Q1hDem9ERS9VbGZGWmFvOXdIbTZZY0QzZmtnaSswK012Sjd0R2FDbXBMM2xVR3RQV0RjVEMvSHJacERPblJiNlBOTzBCTkNzK1VMUXJCZ0NUcUdFUXRDc0dBSk9vWVRDdHRJTWtBRFFESEFBOFRURGVwa0UxTjVQYzJYRVlHdkc2UExYVGZ1Sk1ZbExPN2FmcU9uWEFhckNUUlBxbERXajRIVnVQL0YwRUkwSHU3YWZ5S2tUY0hzdG9kRFBLVURHaU1IV2pQRHQ0TzFna0hWaHBOdFA2SllBTzdhZnVOSXhBSWZHMmxhMlF5Tmp4Q0JyeHFMZm5YVnBkRXE3TU5MdEo4S2VvdG11N1NkeTZnU01GQklLdlI3TlV0YU0yWUNlVDgrNk1OTHRKOWdVdEd2N2ladzZBYWRRUXFHL05FdU1HR3pOMERUTHVqQ3k3U2ZVWm92MkU0QUUxRDdUWEJreDJKcnhTTjJSQldzdWpMWDJFL1F3QU5wUDdCZkVyNXNCRWdDYUFRNGdubWFRenAwVytqa0ZzQXJRclBsQzBLd1lBazZoaE1LMjBxeXNpQ25nRkVvb0JNMEFmK0dLWmxtdlJ1N2VYUndhdFI4L3NCT2NqV1laTDBiKzNoMGNHblVlT2JBN25OTk1lekVvL1djY3ZIYlBsa09qckdNQjIyYTJybW1tdlJpUFJ5eFVKaGtIT3pzMHJ2NzVBbTZ2SlJUNlBnWEllREhHUWRCVlY4WDFLSTNxRG8ycmY3NkFVeWloVUFMTkVpOEdoVkNGOFdpMm0wTUQ2MlpPQ3oybldkYXJvZTYzcUNVRjVXYnM2dEFBelp3V2VrNnpYSVNEcTJ0U2dIUXVGazNTYkg1ME9MbTZhZ1hRVEN6RXF3Q0FCSUJtZ0FPSXB4bW1BRTRMSlU0QnRnVFd6Wm92OUpKbXZJelJuUjkxcHRSV0xtQ2RmQnhRdDB6ZGFzTHNjaUdkQ3ppRkVncTlwSmxwYXI2azlyOVBKcnprdjd4emNmTHNidHhxd3AxMEx1QVVTaWowbG1aUjJGditZamlJYWFiMWdMalZCS1R6ZG16ZGpHWjNGMitPc2pRenJTYmNTZWRBazZpYlp1cStxa3N0cGVjM0htWnBabHBOT0pQT2dTYmg0S0laY2VmeThIQmlkSEpOTTkxcVluZnBIRFNUZ05wbm1vY1RHdElVVHg3b2xoTmtaK3d0VEtzSkJxUnpRWVYrVGdHc0FqUnJ2aEEwSzRhQVV5aWhFRFFyaG9CVEtLR3dyVFFESkFBMEF4eEFQTTJ3bmlFQm9CbmdBQlpveGdrRnZOeVZOSm00UDlSTFpKeWZiV0JNRjZRTUhFNHlxUVpzd1RqNHdMZzJZdU8yTG1IYnhpQjlyR3NvU3pNQnQ5Y1NDaHVjQXJCaVJNL0VyWnBNOE9wK3B0ZUVNVjBRU0JySVdqUFVOODlIc1dzajg3R2tDY3cwSTBFekR3cDlvTm1xeVFUdjRvN204NlBybjZvaHFjY3k1ZXoxUHFrQ0tacHBhOGJKOVBrb2NXMWtXMU1RemJwMG9FVU9qYTNiSVJSczBYN0NSdDNhMzlzbXpWWk5KdlN1K1hIWW1UNGVmVG1oQitYSWRQRmpkVVVNZTJtYUpkWU11c0lhMTBhMk5RWGJOalF3bWpWZjJQUm9wdWlSYWpKaFJyUGxuU25kYkJGMTlHaldvNHRuaW1iR21xRkhzOWkxa1dsTnNiZzV2ekZOSCtzYU1BV1FBQnMwVzc0ellrNmtta3lZZXpORnN5Y1ROYWdOekwwWnhiT3NSck9WTllPK09ZNWRHOW5XRk9xaUdmYlN4d29JaEpVRmpmbVJ1dWd0TTAwbTlFeHpGZ3grcDhZbXZ2Q1I2V0xHM24rZGJyQ3labnp2aDJUVStJbHhiV1JiVTN5Z2J1dVd3NFBSNmxnQmdYQzdiamJyWFYxek9VQXpzWEJLczlXaVdDVkFPbSsrc0szU09Xam10QkEwSzRhQVV5aWhFRFFyaG9CVEtLR3dyVFREc3BrRStCZHVNQ01SZnJ0d2c1cU9IckFHNzhJTnBwOUVpYzVlTnR5Z3JxTUhiTUc3Y0lORm40YSs3Y0lON0QyRWoyMDlXKy9DRGI2ZXpraHYzeXJjb015UkNMaTlsbERvNXhSZyszQ0RpTXdjVzRZYmxEa1NBYWRRUXFHbk5Lc1FicURlczJXNFFaa2pFWEFLSlJSNlNiTks0UVkwQ1VXNGdhZUZYdExNTGlDZGl3Vm9CamdBYUFZNEFHZ0dPSUI0bW1FSzRMU3dyVk9Bc2xxVGdGTW9vUkEwSzRhQVV5aWhzRG1hYlJ0dUVNMkN3M09iNFFhbGpsTEFLWlJRMk9Cb3RtMjR3U2Z4ZXlJNzRRWTdIVHpnQWcyRUc3QUh3MmE0Z1FjT0JHeUx0dzJFRzdBSHcyYTR3VTRIRDdoQUUrRUd4RG1iNFFZN0hUemdBazJFRzVBSHcxcTRBZGJObkJZMnVhQ3hYYmdCZVRBVzFzSU5RRE9uaFNMV3pXb0lOd0RObkJaS29CbkNEY1FYU3FEWmpvQjBMaGFnR2VBQW9CbmdBT0pwaG1VekNXaUtaZ1Y2KzZYWWlXWUNicThsRkVxYkFseWl0ejlmbzVsNXFJNEJtalZmS0pabUdiMWRzV3g4TUJwM0x2b0hvL21QK29lVFdkQWo4YjFJT3ErU1UxK3dSVjhBRzNWcmYrL0dhWmJXMjdXQ1RtUjdQSnE5TVR5Y25JMmVIa2NrdnZOYk1KbzFYeWh5Tk52UTIrbWFlVFo2T0IxVFh0V3BZaGkxRVlnWGRURUZFSXZHYUhhWjNuNGN6Vis5eDFmVG1HWWt2cWVPZFEyZ21RUTB0NkNScjdmVHlQWkFod09ORDgvNzNVVy9SK0o3NmxnQmdSQy9iZ1pJZ0hpYVFUcDNXaWh0Q2xBQm9GbnpoYUJaTVFTY1FnbUZvRmt4Qkp4Q0NZVnRwUmtXTkNRQU5BTWN3QkxObHBlN0t6S2hCclNjZi9ZQlI3QXZOc0lNS29ZYjdIcnNRUDJ3TlpxbDBneFNwZ3IxNVZxb0FhZG1VSitKMjVPTk1JT0s0UVk3SHp0UU8yelNqUFFpTlNUTjlFaEZpUWF6alZBRDNWTkMwMnc5ektCaXVBRWNHdTF4YUpnMGc4ZWpXWTlORlRQaVY4UmZaa0lOdUtmRUpXRUdGY01OeWgyZ2dGbWNoTUtHWjVwbU5HTm54VEcxLytvU1g5U1hhNkVHM0ZPQ1JyUGhZQ1BNb0dLNFFia0RGSEFLSlJSNlFETjExL1ZFYyt1SkRzMWd2MFUyMUlCN1NseW91N2Z4WUNQTUFPRUcvaGMyUzdONHBrbVh1RVcvcHpmOFpUYlVnR2VPUCtHT2hoZWJZUVpWd2cwQUNYQ3piclpicUVFTTBFd3NuTkJzeDFDREdLQ1pXSWhYQVFBSkVFOHpUQUdjRnJaVk9nZk5uQmEybFdabHRTWUJwMUJDWVNNMEs2T1l4L2YvUmpHUDByMEEwcDBEcWtybkpROVZ3Q21VVU5qTWFGWkdNZGNkZ2hQRlBOVUxJTnM1b0tKMFh2WFFBWWV3UUxNckZIT21Wa294WC9VQ1dPc2NVRkU2THl1Slk5dmcxZ2JOaWhWenBsWktNWTk3QVd4MERxZ29uVmM5ZE1BaDdJeG1oWW81MFN5bG1LOTZBYXgxRHFnb25WYzlkTUFoN055YkZTcm1aalNMRmZOMEw0Qk01NEJxMGptbUFFNExHNTFwRmlubWxGMHdYU25tejFLOUFES2RBNjZqTDRDQVFoL1h6ZXdvNWdsQXMrWUxQYVNaSmNVOEFXaldmS0dITkxNTlNPZGlBWm9CRGdDYUFRNEFtZ0VPSUo1bVdEZHpXdGpzRktDQ1ZjTld1RUhKSXhSd0NpVVVOanpUckdEVnNCUnVVUElBQlp4Q0NZVWUwR3hMcTRhbGNJT1NUb0hQeXpvS0VHNWdvMjd0NyswdzNHRGRxbUVwM0dEblF3ZnFoOHR3Z3pXcmhxVndnNTBQSGFnZkxzTU4xcXdhZHNJTkFBbHdHRzZ3WnRWQXVFR0xJRDdjQU5LNTAwS2ZwZk02d3cxQU02ZUZQdFBNRWtDejVndEJzMklJT0lVU0N0dEtNMEFDeE5NTTYyWVNBSm9CRG1DQlptZWpjUkFraXBEQjRtUzY2SGQrOVVHZm4yVjY4VWk3THc1ZVNkZXRaUnZVNjlBQW1zVHVOSnYvNFA2ZGk1Tm5kN043dzg0MEhKQVo0NFJ6REdMM2hSYVFqSXVEc3pSV2dFTkRRR0ZEVXdCMlhEQWoxRmVkNmZ4SC9VT3lXTkJqdnN5T21HYkdmVUdSR1ZReUl4TWFaMm1NRDBaalVnU0NMaHdhY0doY0JuWmNNSm5DUVJTK29TNTU1QzZiRFJUTkl1SVNYL1E2MDloOXNUaDV4aVZQajFOWkdzOUo4eVJOczA2SGhvQ1JRa0poUTZNWk95NllFZXFyK2ZIOGxBd1kvWUJwUnZKNVBKckY3Z3MxbWxFSk5hUFFXUnJxZlErTjNGbXJRMFBBS1pSUTJCRE4ySEV4NWRHc3E3akJIQ0tMQlYwMEJ6cFlTdE5NdXkvU05OTlpHdEg4MVh0cStJcXFabWdBRXJBcnplaWlPR0FYQnQrYmpRL1ArOTFRWFNhZkJvUG5yd1RxT3pQVDFPNExtbWx5eWFML2hzN1NVSGRuNmpJNVB3cXFabWdBRXVESHV0bVhrMmg1OThvcTBFd3MvS0JaZU5salVSbUFabUxoQjgzS0FkSjU4NFZ0bGM1Qk02ZUZvRmt4Qkp4Q0NZVXRwZG52UVRPbmhZM1FyRXltUVRRTFdBMnZwLzBFbEhNUmNOQis0aFArdDZiMkU2Q1pDTlRmZm1MUjcwenJhei94KzdYdnNmVnlXMy83aWEvSnFsRmIrd21NWmlMZ29QMUVwRGhYVy9zSlRBSGNGall6MHl5VGFVQlh5dnJhVDRCbVRnc2JuV2tXWlJxRXBnRHRKL2FoME1kMU03U2YyTHRDRDJubXBQMEVJQUhTVlFCQUJFQXp3QUZBTThBQnBOTU02Mlp1Q3oyY0F0Z0dhTlo4b2Y4MDA0dHM3TlBvem84NlU3Sm1COGFGb2NYeHJKUWUwY04xaTdjbS9MNWVCSnI1VU9nL3pYamgvL2xvZVZzUlo3QWNLdUk4TVdFSGNlVEJXdHFCb2QzOGRINmFPdFlzUURPM2hUSm85bnhrOHJTWHZ4Z09ObWltclJ2a094c0hyOTNUcm82VEMyMVRnME5EOHRZcHpkaWhZVWF6dTRzM1IyczAwOVlOc25tUUdEcGdWMGZZbWZLM0JEZzB4S0tCMFd4SUtWWEx1OUg4eHNNc3piUjFnMndlWnlORk0zWjEwTlByb0psNHVMNDNteC9yQm1IMDlHOTRPREV1RFA3WFdEZlk1bUZHczdEejdBcWFBU0xnZXFaSlBvMUQ3aENtcVBQZ3ZKOU1QZy91bTdTREMyM3pZTmRHTUpnRnQ0Yngwd0NRenBzdkZEQUYyQXJoWUdNWGFOWjg0WjdSYkg2MDZlNEF6Wm92M0RPYTVRRTBhNzZ3clRRREpBQTBBeHhBT3Myd2JpWUNGdElhNmFrU2RiL09BaVQxQXJpL2tWdVFpam9nNDNhK1ZJNXdnejNHenFNWnIrQS9pU01Ma2w0QVdiTkZLdXFBVm1menBmSnE0UWFZQWpndGJHb0trTkNNZGUra0YwQTJ0MkFWZFpDaFdWWXFyeFp1OEhsSkNiZHNYWVMrQURicTF2N2UxbWltZFcvZEMyQWp0MkFWZFpDbTJacFVYaTNjQUtPWjA4SkdSelBGalZsOEQ2VjdBV1J6QzFKUkJ5bWFyVW5sQ0RjUVVOZ1V6WmJ2Nk80VFd2ZE9lZ0ZrY3d0U1VRY3h6VGFsOGtyaEJwZ0NpSUNGMW1CSDFLTEo2TjUvOTBwdytHaTRubHZRWFVVZEdIRThSeXIvQ2ZvQzdDOGNycHNWUngza1NPWHJBTTNFd2gzTmlxTU84cVR5ZFlCbVlpRmRCWUIwN3Jhd3JkSTVhT2EwRURRcmhvQlRLS0d3cFRURHVwbmJ3cmJTelBsUkFCV3dGYzF5N0Jpak1XVVZaQ3Y0cTdQN3lmTFo0YS9mWDdrdjZKMXN1K2l1ZmZoYWt3RDlFSERhNVFHYXljVjJvOW1tSGVQK25ZdVRaM2ZYS2lMZGJZS3pET1kzcHBSS203Z3YrSjM2a2VEc1o2OGxHOFJOQkRhT05RdlFUQVFxMG14bHgrQjkzQmw0L3FQK29YbSsxK1FTME5PL2ozVUxGT08rTU84MEFRZEQwZ0E2SHdXOVVBMXovTUw0WURSbWxhQ3JhVVl1RC9wWXRKK1F2YTFHczVRZGcvZUZneWg4UTEwU3RSREpHbVhjYmVJQmowaUorMEsvVTQ5bTlDNFMxQjlNRnArdW1sSThKL0V6Zm5mWWVjWWZ5ejhkVTREbUM1MU1BWExzR0x4UDhXQitQRCtsRmhOTU05MXRna2N6VFpIWWZXSGVxUU1PK0YzTDIrY1BUNThrSDNrMmVzaTY1MVQzcWxqZW1mTEhwbzQxQzlETWJhRVRtdVhZTWZSb3ByN3BKVFNibitwdUU1eGxRRGFlV1M5Mlg1aDM2cnN1ZmxjVTNuaEVJVlQ2aFdqKzZqMzZYTjFwYkh3MXpiQnU1cmJRellMR2hoMWp3dVlMdmpjYkg1NzNyN1A1Z3E1NE9wUWc0TjQ1NU1CZzk4WEJLL3pPRjQrNDl5Ry9TdzEwNmpJY2YrU1V4a3IxUXdMK29NNTBGZ3pvWTd1cFk2MzRld3M0aFJJSzkyamQ3TXNKSjdsc0FOSzVXUGhJcy9DU1ZyQ2dtVmo0U0xQTEFKcUpCV2dHT0lCNG1tRUs0TFJ3ajZZQWx3SHJaczBYTmttemRTbDhKYUN2Y1BaQklwL1BqNEkzN2t3VDRmMzYxVUo2K2xpekFNM2NGalk2bW1XazhNWE5SRUJmZ2FSMEk1OHYzaVFSYWJvUzNrc0k2YWxqelFJMGMxdllOTTJpa0paZlI3UFhYdjQ0NkNVQ2V1ZWkzNXZ4Z3U3QktBa3YwQVJLQ2U5WEMrbVF6bVZ2N1k1bXMxdkR6dlRwc1JuTlltbjhiS1NsZENPZmoxblRQSndrd25zSklaMS9Db3hBWW1HSlppeUZhMG1KSGpGUEJQVDVNYk5FUytsR1BnKzdVU3hxRG1JYjBWVkNldXBZc3dETlJNRGVSWk9zRzdNVXplYW5zYUErUG55WHBYUWpuOCtQQnZTR2xmQmVRa2hQSFdzV29Ka0kySnBwa2hRZUJrSG41NVNTOTdvVzBGa2FUeUwray9BQ21tbXEwZXQ1TEx5YmR4Y0o2WkRPZlNuYzIzV3psWkFPbWpWZnVMYzBXd25wb0ZuemhYdExzeFZBcytZTDIwb3pRQUpBTThBQnBOTU1DeG9pQUpvQkRtQ0RabFVNR2hlNkJnNE5ZWVZOVGdHcUdEUzRaZ21IaHJEQ2htbTJ0VUVqN2cyd3EwUGo4NUpPZ2JKMUVkcFAyS2hiKzN0YkhjMjJNV2ljWjJoVzNhR0IwY3hwWWFPaldRV0RSbm8wZzBOajMySHRvcm10UWNPMG9OalZvUUdJZ0tXWjV0WUdqWVd1MmQyaEFVaUEvK3RtVnpnMEFBbnduMlp3YVBoVTJGYnBIRFJ6V2dpYUZVUEFLWlJRQ0pvVlE4QXBsRkRZVnBvQkVsQXZ6WElhQ2VoMkFSK3dYRDQvNmt6cEZwOGJiUzVXdlFOVzc5V3kvQ0I5cklCQTFEeWFiVFlTTU8wQ3RNQzBwS1hZSjBZUldQVU9TTDJYbFBoWmdRb0FpSUFybXEwYUNlaUFiU09YLzJJNFdORXMxdGFwYzNEbjU3MFZ6V2gxOWhMcEhGc1JXMGMwU3pVUzBJSC9aalM3dTNoemxOQXM3aDBRelFhTGsvZmowYXlmZU5Fd0JXaSswTThwUUU0akFUT2FzVnkrdkJ2TmJ6eE1hS2ExZFpMZzR3ZlNhVFNqeVBmVXNSYitPcGREd0NtVVVPZ256WElhQ2JCbWZxemxjbEtSd2tNam84ZTlBMGlDbngrZm1SWUQ2cUpwSEdxZ21RZUZmdEpzczVIQUkyNFg4Qk9XeTlWK3hhQUg1MzB6K2RUYStydEI4TDBmM2hxK2VHVDI5cFpEclRhQlpzMFhla296bThCTVV5eEFNOEFCUURQQUFVQXp3QUhFMHd4VEFLZUZiWjBDZ0daT0MwR3pZZ2c0aFJJS1hkQ01Xa04zZmpXYW4yNjhrczRpV0E3cGlSSlZweGZONk4vZWV2N0J4cHVpcWc0TjBNeHBvUU9hS1Zwd3o0amhadTVBSm90Z2NjSzlKVWJ6bHlmUjRzM1IxeFJrVUNMQUFBNk4vVVY1bW5GQ0FaL3grWS82aDVNNHl1RDEvcUV4WUN3NHlFRHRPeitaY2gyTFJQVFAvRjZaQUFNNE5QWjNXNTVtbkZEQUhnczFTbEhjQUVVWlBGUFhPUFdDTm1EUUUrYUtJSnpDUW5WakdyMFVSOFpCdDB5QVFUV0hCaUFCNVduR0NRVVJleE9weWIySk10Q1BtV3NEQnBNbHNWYUVnMlEwWTQ1ZEdXQlF6YUVCU01CV28xblllVHJRZ1FXUFJ5YktnUElJZXNhQXdVRUdIek0vMkl0QnQvaDBmeFpGRDZjbEFnemcwQkJRV1BzVWdHTUt1R2ZFK1BDODN6VlJCbXBJVWxkT2JjQ2dPNnpCbUR3WVhkMWJRczgweHpyZTRLb0FnK3R3YUFnb2JHamRiTFk1NjZ5QVZZQkJFVUN6NWd1Ym9kbHFtV3NuckFJTWlnQ2FOVi9ZVmhVQWtBRFFESEFBMEF4d0FOQU1jSUFhYVhiR0NRYWRpMng2TzRucTZnVmFCWG54S05TdVYwQUFBQ0FBU1VSQlZCYkxRM3IwWkdhZVIrSEpBRXZtdllpZjdzd2U2eG93QlhCYTZOMFVnSElNYmtiTE94K2xXbEhRV21zY2NLRCtINHZsODJQU0J6Nkp0RnorZkdSSzlaTHUrckd1QVRSeld1Z1p6WFFyZ0p2THU5UmlnalYxTlQ3MVp1cC9KdUNBYVJhTDVmejhacjh6MVFybmtvWHpteVlJbVlYNnk2WHp6MHRLdUdYckl2UUZzRkczOXZldWkyYTZGUURKM3NzN1U5MGNZQkJGVDQrVGdJT0FWVXd0bGo4ZVJmUFRyNmZzOHFCckpndm4vRlhJNG54Qlh3Q01abTRMUFJ2TmRDc0FQWnBwbXBIMVFsMGRJeE53d0tOWjNDcGdvTldFeHlPZGZNREN1UnJOaGdQMVpsWlFVOGNLQ0VTTm8xbll1YmdaVVYrbXFXNE9NR0NhSlFFSFREUFRLb0R2elpKdUFjY3NuS3YzamtHelBVRmRORE90QUhnQ09ZaWJBM1FYL1I2SjZ1ZnhURE51RlRCV2hhRk9RVkM0TlRUQ2VXYzZJeTMrdkkrK0FNS0JkVFBBQWNUVERGTUFwNFdlVFFIcUFHaldmQ0ZvVmd3QnAxQkNJV2hXREFHblVFSmhXMmtHU0FCb0JqakFyalM3dE1IRUtPT3VZQXNHWTZhWHpWaE96NlFib1AzRUhtUG4wZXlTQmhQWmZBeXp6RStJZlJpRWJMb0J3ZzMyRi9ab2xta3dFV2xGYVg1MC9WTnlackJvT2FNY2hOaUh3ZS9sdC9Bb05nNWV1MWN0M0FBT2pWWTROUElhVE5DdStYSFltVDRlZlVtNk9JbVM4eDl6RG9MMllXaWE2YmM4SHMwbzd5QWNvUDJFZ01LbVpwcjVEU1pvTkZ2ZW1kS2RGdkZHajJZOTdkQmdId1pWNnJlTWc2Q3JycWhFTTdTZjhMNndLWnBkMW1EaUJ5TkZzeWNUTmFnTnpMMlp6a0ZJZkJpbjVpMTB3UTMxYUlad0ErOExHMXMzeTI4d2NVRGhRWVBmOWJVekl5SUxCdVVnVE1tSHdiTkhkZitWUkNKMGpaK2pTcmdCSUFFTzE4MktjeERDUWRHckROQk1MTnpSckRnSFlYNTBkVW9DYUNZV1VBRUFCeEJQTTB3Qm5CYTJWVG9Ielp3V2dtYkZFSEFLSlJTQ1pzVVFjQW9sRkhwQnM3UFJPTk5tWWhGN01TaGlPMTVOTy96MSt5c3pocGJZZDhqUUFDVEFLczNtUDdoLzUrTGtXU3JlTXhiSmpXL2orV2grZy9vSHJNd1liTkxZSlVNRGtBQ0xOT1BZRENZS0p4bHo5b1dtbVE3VTRBZks5Wk85c1JuRG1EUjJ5ZERBVnNMV0lzMTBmd29pRm5XWmVJT3pMMHlMQUJPb29WajRnQWVveEl3Um16U3FaMmdBRW1DUlpyby9CUkdMdTB6b0poVk1NeDJvd2FPWlpreHN4akFtalYweU5EQUZjRnJZL0JTQVl6UFlTOFpkSmhLYXpVOTFvSWFPeDdneHBRdWtNV1BFZlN0MnlOQUF6WndXTms4elRzcGdMd2JmbTFIMnhYWDJZckFsNHhiSFl3eG8vT291akJuajRCWFRnbUtIREEzUXpHbGg4elNySGFCWjg0VnRwUmtnQWFBWjRBQ2dHZUFBb0JuZ0FPSnBoaW1BMDBLUHBnRDVmU2Ywc3ltMGxySFV6YXRaTVYrbXhQSks0UWFnbWROQ2YyaDJTZDhKNmhPOGVITkVqMnJPNzdFc3pxdXlLYkc4VXJnQmFPYTAwQmVhWGRwM3duUStwK2M2Znp0bG1vWG1vYzVZTEVlNEFjSU55dUxTdmhOanV2VFJFOE85eFhzc0xHbkZQQ1dXVndvM0FDVEFPczB1N1R0aFJyTm84ZGJmYVAweU5acHBzYnhTdUFFZ0FYV01admw5SjhnblMvZG4wWmh1dFRMM1prWXNyeFJ1QUVpQWRacGQybmRDenpRajgvUTVDZVlrczJmRWNvUWI3Q3V3Ym9iQ2JRcDltV25XQ05DcytVTFFyQmdDVHFHRVF0Q3NHQUpPb1lUQ3R0SU1rQURRREhBQTBBeHdnRjFvUnFKUzUxZWorZW5HSyttdUFNc2hMWnVwT3JOd3B2N3Q1Y2Nab1AzRTNtSUhtaWt1VWJlSis4UE5zTTlNWDRuRnlaUzdVaGlMeHRmMGpGMXVuQUVjR3Y0WHVwNENzQk9EQ2NEcEEvVDQyK3kxbHo5K25aTUlQdUVIeU1tZW9mYWRuMHk1TGhZMXlRZVVHMmNBaHdZY0d1dlFVUWJVYlVLTlV2UXc3K3lXZGl1U09zNlJCYVNiSzc3d0E4SlVGMXMweGtFM1A4NEE3U2Y4TDNROW1wMloyQlYxUGVUSHkva0ozMGkzbU5DUkJXelBTSndXNFNBWnpaYTNKN2x4Qm1nLzRYK2hhNXF4RStQcElFNHhJRnVGcHBsNndVUVdrRDNqWTZZTGQ2VklMQnJSdzJsdW5BRWNHbnVMeWpSajg4WHpWNExEQ2FjUGhFSFErZm5oaEZwTVBGdjFsYUJvQWpXWDdIS2RtV21PZWVhWUcyY0FoOGErd3ZLNldYR0xpUjBCbW9tRlhab1Z0NWpZRmFDWldJaFhBVEFGY0ZyWVZ1a2NOSE5hQ0pvVlE4QXBsRkFJbWhWRHdDbVVVT2dSelVxRUcwd2huYmNLRFlVYjJKUE9BUWxvS056QW5uU09yWVJ0UStFRzlxUnpRQUlhQ2plQWRDNjAwSmNwUUxsd0EzdlNPV2ptdE5BWG1wVU9ON0FrbllObVRndDlvVm1OQU0yYUwyd3J6UUFKQU0wQUJ3RE5BQWNBelFBSEVFOHpUQUdjRnJaMUNnQ2FPUzMwajJiNVJnM0tPVkF2MElNcEx4NFpUOGFqdkdZVTZpdVNERkttYjlDcytVTHZhSGFKVVlOekRtaUJYLzAvOFdUa05hTzR5WHMzajNVTm9KblRRczlvZHFsUmcxMDlNYzJNSnlPM0djVk5JMFZ4ZGdJY0dySzNkZEhzVXFNRzV4endKYkV6VFR3WmVjMG8rS3VROHhMT0NucWRBeEpRRjgwdU5XcEVsSE1RajJiR2s1SGJqRUtOWnNPQmx0OGZnMmJDVWVOb2xtL1VtQmsyYVpwcFQwWnVNd3IxM2pGb3RpZW9pMmFYR2pVbzUrQThubWthVDhZa3R4a0ZYVlpuRkk5dzN1K21qblVObUFJNExmUnNDbEFIUUxQbUMwR3pZZ2c0aFJJS1FiTmlDRGlGRWdyYlNqTkFBa0F6d0FGQU04QUJ0cVlaWnc2RUhMNUk0ZitjK0Q4T2d1Umh5cmpzWkpvamtoKzhrcTVMZHc5QXVNRmVZL3ZSakIrZmZESXg0Zi9jR2VET3hjbXp1OW1xc0RQTkU4a1h4cTVCaTYvWjdnSG9DeUNpME5rVUlLRVpoZjhiQ3RDKzVWQ05Qa21QQUpLWWNrVHlXQW9uWVZOL3dQaGdOT2FZMmk3NkFxQXZ3QW94elhUNFB5dmh2QzhjUk9FYlJ1ZWVrVXFVSjVJdlRyUVVUaHE2L2dCV01WbjBSRjhBQVlWdVJ6TkZobGw4MDZUNFJmc1V2ZWJIU1k4QW9sbU9TRTZqR1pYTTJhckJIM0EyZWpqbDF1Y0lOeEJRNkl4bUZPbERETkRoLzdPRUVXRTMzU09BTHBvNUlubWFadm9Eb3ZtcjkraFRGS0hRRjJCdlVXRkJnME1LbGliOC8rODQ4WitpQ3ZqZUxPa1I4RlEzRFZnVHlXbW15U1dML2h2bUE2WTBNcXFQREs3MzBSZGdiK0hIdXRtWGsyaDU5OG9xMEV3cy9LQlphQjQwS1Fab0poWiswS3djTUFWb3ZyQ3QwamxvNXJRUU5DdUdnRk1vb1JBMEs0YUFVeWloc0swMEF5VEFMczEwbnNGZ2ZmZjhsSjhQNXVua0xEajg5ZnNyTTRaMmFlUTFveWdaYmdCSWdGV2E2VHlEV1NmYjNVVHhpWmJ4ZFc3Qi9NWjAwZSt0ekJqczBzaHRSbEV5M0FDUUFJczBNM2tHcENDUklwQkVHZ1JkTm1Yb0ozMzFJNWRKcW9GMmFlUTJvMEM0d1I1dExkSnNsV2ZBYm8wZTJ5NzRuL25MRTM1RlhRNGY4QUNWbURHMFN5TzNHVVhKY0FOTUFad1dOajhGTUhrR1pLaGd0d1l6akdWTDdkdmcwVXd6SmtrMTBDNk4zR1lVSmNNTlFET25oYzNUTE00em9LMXhhNHdQUDZiNVFFd3pjZ29wRWxJN0haTnFvRjBhdWMwb1NvWWJnR1pPQzV1bldaeG5zQndlM0NlM0JrY2FrUGVDVFJuZjU5eUNBWTFmM1VVL01XeG9sMFp1TXdxRUczaFkyRHpOY2xIT2UxRU9tR21LUmQwMEsrZTlLQWZRVEN5Z0FnQU9BSm9CRGlDZVpwZ0NPQzMwZEFwZ0U2Qlo4NFZpYVVZWkNQL2JFVWxPUWFEWFBCYlpUZ0xKOTZCWjg0VmlhY1laQ0t5dVA1bG80VDFjMDk1RGhCdDRVeWlXWm16b1dQNWlPREEwNDRoM3ltMHhzUWNjbEFEcFhQYTJlWnB4QnNMeTd1TE4wWk9KRnQ0VnJSNlBUSGc3ZmFHZllNZE1VekE4b0JsZE41ZDNvL21OaHhNdHZDdGFqU25KaW1JUDZBdlFURHlhcHhsbklKQWdGUjVPZEpLQm9oVWxEbkhzQVgwQm1vbEg4elNqRElSSFEzSnBQempYd3Z2L3Fwc0ljQ0FNZlRFenRtOU1BWm92RkRzRktBL1FyUGxDMEt3WUFrNmhoRUxRckJnQ1RxR0V3cmJTREpBQTBBeHdBTkFNY0FEUURIQ0FlbWlXMDZPQ1l3KzY4OFNLc2Y1b2V0WDJFNWdDT0MzMGF3cXcyYU5pdEx3OW9RY3ZqUlhqWkoxbGFEOGhvdEJUbXExNlZIQS84MTVzeFdBS2hXOEhid2VEcE4wRTJrK1VkVHkwb1AxRUtlVDBxRENqbWJGaTBPdUxmbmZXcGJRZzAyNEM3U2Y4TC9Sd05NdjJxS0JIZmJ0UmJNVmdDczBHOUd4NjBtNmlVdnNKUUFKcW9sbE9qd29kSXhWYk1iaTFoS1paMG00QzdTZjJGblV0YUd6MHFEanYwOFJ6bVZneEFuMEhGcVRiVGFEOXhMNEM2MmFBQTRpbkdhWUFUZ3Y5bWdMVUF0Q3MrVUxRckJnQ1RxR0VRdENzR0FKT29ZVEN0dElNa0FEUURIQ0FyV2hHY2RpZFg0MUlIMXFEN2lKaFlBd1p1bCtydGwxd09rYTM2RTFWSFJxQUJHeERNMFVMOGxyY0gvWTJYbUlqUmd3MlpNVGRwNDN0UWl1YUJXK3E2dEFBSktBOHpiaTdCSjl4YmdoQmljU3oxMTcrK0hWdUR2RUpaL3BUdnduYVIwVXh6WXp0d3ZnenVDMUY1Nk9nRjZwM3NYdkRKR1ZROERFY0duQm82TzRTN0xYZ2JoSlJOTHMxNU9ZUTZnVnR4S0JHQUlvZ1V5N2lxNTNpbnJGZDZORXNia3Z4WUxMNDFMeUpreks0aFFBY0dnSUthNTlwbnBsT09PcVN5REgvSExwTzFKb2ZHeU5HM05hRWkrTFJ6Tmd1dEQrRDIxSXNiNTgvUEgyU3VEY29LWU5UMjZzNU5FQXpwNFcxMDR5N1N6d2Q2TDRTajBma285QTBVeStZTGhMY2I2S25EUmtKemJUdFF2c3p1QzFGRk41NFJMZDMrazJjbERHanU3WnFEZzNRekdsaDdUVGpiaElVZURIaGhoQ2h1aVQrL0hDaWhpU2FVYklSZys2d0J1UER5WE50eU5BelRXMjdVS0JiT0xvM1UreDdMM295aWQwYlU3S2xVWk9LNjMwNE5QWVd1NjZielRabm5SVlFya2tGYUNZV085SnN0Y3kxRThvMXFRRE54QUlxQU9BQTRtbUdLWURUd3JaSzU2Q1owMExRckJnQ1RxR0VRdDlwdHRnTU40akY4aVRxSUt1bFI2elZ2OFVydS9TZ0Ntam1RYUh2Tkl0eXdnMWlzVHlPT2xqVDBnM3Q1cWZHRW9JcGdGZzRwZGw2dUVFc2xzYzBZeTJkeDdoeDhObzkxdW9YSjdUb3F3WXp0SitRdkhVK21xWENEWkk0QTBNenJhVlR3d2xTcEFhczFZZWRLWDlMd0dnbUZnNXB0aGx1a0lqbG1tWmFTNmVHRTJjalJUUFc2cGQzUUxNOWdOdUw1bHE0UVN5VzYrK01sazQ1UXFFWnpjTE9zNnRvaGltQTAwTGZwd0NMelhDREQvcUpyczVSQjRrQTMyV1puditaQmJlR3NVMGJOR3UrMEhlYWJZdHdzTEVMTkd1K2NNOW9Oai9hMU9SQnMrWUw5NHhtZWNBVVFDeEFNOEFCUURQQUFVQXp3QUhFMHd4VEFLZUZEVTBCemtianpkZ0NlcUpwTStEZzRKVlVYVWpyWnpOdTJHb00ybWcvSWFHd0dack5mM0QvenNYSnM3WEhSY0xPTkMvZ0lGYklGemZwMmM2elVmUkpwSjlPZjg3K0g3U2ZFRkRZQk0zWVE4RjA0Q2Zqa3RBREVpSnpBZzdVbDF3eUMzb2hQOHJaNzB6MVUrZEx0SitnTGNJTmNxSHpEb2dPbEZyd2hycmVjZWpCUU5Fc0wrQmdjZktNUzU0ZTAvUHI4OU92cDV5OG9hbGF0ZjBFSUFFNzBVem5IUkFkT0xVZ0NUMGdtdVVFSE5Cb1JpWHFpc21qbWFwNVBPTFJMRUw3aWYzR3JxT1p1ZzNqMGF5YkRqMmdpMlpPd0VHS1p2cmVqRndiN000NFJ2dUovY1pPTkdNUFJUU21oa3gwYjVhRUhqelZLUWhyQVFjMDArU1NSYi9IYndwMWh3cUZXME8wbjlocllOME1oZHNVdGxVNkI4MmNGb0pteFJCd0NpVVVnbWJGRUhBS0pSUzJsV2FBQklCbWdBTnNsZGJZbVliMDNBZy9ETTRkQXNxMENWZ082UkVTVmFkN2JOSy9QWXZTT1NBQlc0eG1jZjl5blVIQTJuaXBOZ0hxZlZ3OGYza1NMZDRjZlUzcnVmYWtjMEFDcXRDTU13ajQzSmRxRTNCK29vVjBYc3luZitiM0lram5lVnRJNTlHS1pqcURnTFh4VW0wQzZIMVVONlpybjZMTU9PaGFsTTR4MDNSYVdQOU1rMC83Z3lUUDN6eEtlWFdiQUUwWGZvcGNqMmJMMnhONzBqbG81clN3ZnBvdDM5RnVESjFCd05yNHJFeWJBUFVlWGFmbUJYUi9Ga1VQcC9ha2M5RE1hYUdEZFRPZUtjWjUvbjlISFFMS3RBbFFjOGt1MTVtWjVwakhRa2pucllMbGRUTTdiUUl1QVdnbUZuWnBacWxOd0NVQXpjUUNLZ0RnQU9KcGhpbUEwOEsyU3VlZ21kTkMwS3dZQWs2aGhFTFFyQmdDVHFHRVFsOXBsbVBzK0tDZjEyNENEbzA5UnYyaldZNnhJNy9kQkJ3YSt3dUhORnNaTy9MYlRWUnphR0FyWWV1T1ppbGpSMzY3Q1lRYjdDOGMwU3hyN01odk53R0hob0JDWDZjQWVjYU8vSFlUY0dnSUtQU1dacHZHRHQxOFlyM2R4RS82bFJ3YW9KblRRbjlwVmc0NTdTYldBWm8xWHlpY1pubnRKdGFCS1lCWStFS3pNZ0ROeEFJMEF4d0FOQU1jUUR6Tk1BVndXbGpyRkNCSC83NC9YTzhHa0loSU9UMEJ1R1htZW4xR09VZGZBQkdGOWM0MEMvVHZGRUt0Y2VmMUJOQ2R6clBsV2VVY2ZRRWtGRHFpV1ViL0R0OE8zZzRHczlmN2grZWNaTEM4TTUwZlhmODByeWNBdGFBT2V4UlJlOUh2ZkJUMFFqVm84V2VORDBaamZ0YXVpM0NEMW9jYjVPcmZGLzN1ckR2L01RY2E4Q1BtaW1hUFIxOU84bm9DNk5HTTJnZFE2WVBKNGxQeldmelVPYjhiMHZuK1lodWFiZWpmOUtENS9KUUREV0thbVh1cmpaNEFkSHZXMWUwRGxyZlBINTQrU1Q3cmJQUndTcUxURkgwQjloY2xhWmF2ZnljMEMzdWNaUERvenZUSlJGRXVweWNBWFRRajNUNGdDbTg4b3JBcS9WblIvTlY3OUlHS1VPZ0xzTGNvdTZDeG9YOC9HZ2JmVjNkUVFYRDRNVjhjS2NsZ0ZneCsxOC90Q2FCQW94eTNEMUI4VXRmZitMT21ORWlxVHcrdVY1UE9BUW13c0c1bUlkQkEzYzh0NzE1WmhabG04NFdOU2VjMkFnMUNFd3hhRE5DcytVTGhEbzB5QU0yYUx3VE5paUhnRkVvb2JDdk5BQWtBelFBSEFNMEFCOWlGWm1lbDJrL2tHVFlvNEIzdEoxcUVIV2hXdHYxRW5tSERYdnNKVEFHY0ZycWVBaXlIMUhDaVRQdUpqM01NRzJnL2tiZHR2VU5qRXlGcDVhWGFUK1FaTnRCK1FtaWg2OUZNTWVzeFhldXViajhSNVJnMjBINUNhS0ZybWxFZVFlZHBtZllUZVlZTmUrMG5BQW1vVERPMlpKUnBQekhKTVd5b042SDlSSnVBOWhPQUE2RDlCT0FBNGxVQVRBR2NGclpWT2dmTm5CYUNac1VRY0FvbEZJSm14UkJ3Q2lVVWVrR3pzdzlTU3ZjS0pLNHZqVVkrQ3c1Ly9mNUtKV2VSWGM4Y1FscTZXQW5wNnF0ZXhFK0ZabzhWRUFpck5DT0pmS1YwSjFpeXVLNDE4dmtORWp0WEtya1cyZW54T2w2eFRRbnBOeVA5ME4zNnNRSUNZWkZtTEtacnBWdUhHSkIwVHFOU2w4VjFyU285MWh3eUtya0pTMkJDaFVZc2lJWDBtMFlqNERlakw0RHNyVVdhc1ppdWxlNDR4T0JNeHhhd3VLNDE4Z2M4UUNVcXVRbExJSnF4bXA0UzB2bXJrTlg0TSsxZXcyZ21GaFpweG1LNlZybzV4SUFaeGsvOGFuR2RSelBObUZnbGp3TU9zcU9aRnRMVmFEWWNVUGpMcVJrQ01RWHdvTEQ1S1FDTDZSZXNkSE9JZ1piT2FUNFEwNHcwY2tWQ3hTYWprc2NCQjVsN015T2szNHlpTVdqbVcySHpORFBoL3FSMDN4L0dlUWNVVzlBbGNmMzdySkVQYVB6cUxreU93Y0VySnVDQVF3N0dacVlaQytua1Q1dVIrSDdlNzZhT3RmRFh1UndDVHFHRXd1WnBsb3R5c1FYbEFKbzFYK2dwemNyRkZwUURwZ0JpSVY0RkFDUUFOQU1jQURRREhFQTh6VEFGY0ZybzZSVEFKa0N6NWdzOXBwbU9LWWlpVmUrS1VjSHJhWnlORm05eE9qSkZJWUJtSGhSNlRMTzQrMG1xZDBYQjZ5bm93dm1wU2VrQXpab3ZsRUN6VmU4SzNiZ2lHMk5nWHVmSWxuSHcyajN0K0RpNTBNNHpPRFFrYjEzU2JOVzdZc0dOSzA2ek1RYm05Y2VqR1prN3dnRTdQc0xPbEw4bFlLWXBGaTVwbHVwZG9Uc0taR01Nek92aklPaWVqVlFOT3o2V2QwQ3pQWUF6bXFteEs5VzdRdE1zRzJOZ1hxZk9VS0VaemNMT005QnNIK0JvcGhuUVhWaTZkd1UzcnNqRUdOeGZaU0owMmR4aE9scmNHc2FESUtZQXpSZjZQQVdvZ25EandSWFF6SVBDUGFQWi9HZ3pKZ0UwYTc1d3oyaVdCOUNzK2NLMjBneVFBTkFNY0FEUURIQUEwQXh3Z1BJMFl4OEY1WG1takJZZXRKL0FGTUJwWWYxVEFKYUVua3pTUmd1MG4yaGJvVU9hcll3V2FEOVJvZzd0SjdaeWFNUTBXeGt0SXJTZmFGdWhvOUZzbFh0aDlLQ20yMDhBRXJBRnpaYnZqUGpVWjR3V2FEOEJsTUEyQ3hyekk5MHZJakZhVE5CK0FpZ0Z0SjhBSEVCOCt3bE1BWndXdGxVNkI4MmNGb0pteFJCd0NpVVVnbWJGRUhBS0pSUzJsV2FBQk94T3N4eEpuWnRRZEM1T3N2MEJlRDJFMWw2WFEzcURKZWtja0FBTG8xbU9wRTR4MkhjK1NyV2hVRHZtTDAraXhadWorYkVpM0QxNzBqa2dBVFpwdHBMVUZ6ZVhkeFhSa2c0VXZWblE0N1g4c0VkYXdtK245cVJ6YkNWc0xkSXNKYW16M3MwUGpGTStnYnJtUFQyT3huVHBJNVdxdDNndmduUXV0TEM1S1VDT3BHNUdNMDB6SW82NlNKclJMRnE4OVRlanlKNTBEcG81TFd5T1pqbVNPdldPaUhUcmlQSGh1d09tR1UwUTZQNHNHbmVta1QzcEhEUnpXdGpnZ3NhR3BIN2UxL1BJUVJ4UzBGMzBlN29zTXJxbk5la2NOSE5haUhVendGK0Fab0FEZ0dhQUE0Qm1nQU9JcHhtbUFFNEwyem9GQU0yY0ZvSm14UkJ3Q2lVVWVrQ3o1VERSaGJKZ0VTcnR0VEM3Q0xQZzhOZjM2Tjl6aEJzSUtQU0Faa24rUDRzQWF5L2RUSGt0VXEvUGI5RGo2ZHFyQVlmRzNzSTJ6VGpwZ0pQL09kamdYVzR6b2ZiVEx2WmFjQXBDUVBhTEpYV3ExbTNNdFZjRERvMjkzVzdRN0l0ckwzejFSeTlFbGJBNG9YU0RzOUhUWTJvaThjYXdjNkhiVElTZHFkb1ZleTFtQS9XTjJoVU9vckQzZ0FjdjdkV281TkFBSkdDZFp0LzgrVGQvR1gzelo3K3M5R0UwbXRFajZQTmpiaUpCVDZGei9qK0o2TWZHYTBIK0MvV04yblUyaWtnaE4rOTlQRUs0d2Y1aW5XWi8rQmVLWmw5ODV6ZVZQaXhGTTdJNWJ0Q012QmJhZjBFMEM4bDdSaHdpTFoyOEduQm8rRjlvYXdyd3hiVnIxNzVkYlRDam1TWW5IYWliZXJyV2plTTJFeCtUVGVOMTdiWDRKL1NVUUw4M28wY0NBbzRMQ3ZRTm13NTdnVVBENzBLck04My9weHJQYWdabzFueWhEWnA5ODZmWE5Db09aelVETkd1KzBNcG85dGZtbmt6UWFBWklnSGl4Q1pDQURaclJoZk83RFIzTUZRRE54R0pqUWVPbkw2alpac1hsMlpvQm1vbkZ4dkxzUDZUYnN4M3V6Zkt6RHJRcVNYdDAxdkh2amppZEZuMEJwQlhhV3RENDI1K3BmLzZQSGFZQWVWa0hSbExuUFJ4ODhBa25HcUF2Z0xoQ3F3c2F1MXcwODdJT0RNMTREejhxclBCd2lyNEFhOXUyOUFVd0N4cGYvYU9vT3ZLeURqVE45QjZqaFMvZWl4QnVJSy9RMWtYencxMlhaL095RGpUTjlCNHptdWtMSmZvQ3RBT2JEbzAvL0l2b203L2M0UlB6c2c1WUJEZDdqS2Z4SVhFSGZRRmFnZzJhL1dYMHhVdC8rS2U3cUFCNVdRY0IzVy94bmhlUEtQaUFycG5vQzlBZWJGdzBQL3YyTHovMGRIMFdOQk1MT0RSUXVFMmhsUVdOUC91bFh0T0FRd09GVmo5d1l6VDc2eDFWZ0JvQm1qVmZhSWxtVlI4RGNBSFFyUGxDVzZNWjYweUNSak5BQWpaR00ybjNab0FFdUw4M1krT0dCc2VESmpFSGpFWGF6YkVHMEV3c2NoYzBkdEkwcndMYk5Cakw0WHIzVFlwQVNMczVzZ0ROeE1LK3Bua1YyS1lSY3VqQjdMV2pRMUtieUdxV3BDSmszQnprUVJzSHI5MkRReU96RmU3UXNLRnBYZ0cyYVN4MDZJRmkwcXdYVXBERzdJMDRGU0hqNWxBdjlLaDl1dlkxWXFiWmZLR3RCWTNkTmMxaWFKdUdmaHBkTVdoK3ZMd3pwU1NFK0hIMWpKdURYamdiZ1diK0ZOcGEwS2hiMDR5Tkc0Wm1ZVS9SakV5UWFab2xiZzU2SWNSbzVsR2hMWnJWQzJQYytONFBUZWhCMERWZEt1SlVoTmZUYm83T0JYZXVpQjhHd0JSQUxFUThwMWswbWdFU2tKWE8vN3pCSTdrYzh5UDl0Qk5vSmhicmo1ejR1ZjZ2QVpxSlJaWm1mOGxpazU4UEEyTUs0RU9oeFNuQVo1Nk9hYUJaODRVMmFFYkxzbi80cWEvS09Xam1RYUVWbXBFOTQ2V3lIN1NCNm4wQnFCMDZ3ZzBrRkZxaDJZNmV4c3A5QVo1TVNJRkNYNEM5aFI5OUFSVE9SdWdMc0w5Ynl6U3IyQmNnNGtnTjlBWFlXMWdmelNyMkJaZ05FRzZ3eDZpTFpsdjJCYURySXZvQ0NDajBRRHJmcFM5QUVQd0VmUUVFRkhwQXM3b0JtalZmQ0pvVlE4QXBsRkRZVnBvQkVnQ2FBUTRBbWdFT0FKb0JEaUNlWnBnQ09DMzBhd3BRcmduRk5Qc1dPRFQ4TC9TTFp1V2FVRXl6YjBIN0NmOExmYVZaVVJNS0hYR1FPRExRZnFJMTRRYTJVS1lKaFlrNFNCd1pjR2pzTFdxbDJWVk5LTFN3bmpneTRORFlXOVJGczFKTktEVE5Fa2NHMmsvc0xXcGIwQ2pSaEdLcC9Sc3JSd2JhVCt3cnNHNkd3bTBLUFp0cDFnSFFyUGxDMEt3WUFrNmhoRUxRckJnQ1RxR0V3cmJTREpBQTBBeHdnSHBvVmxJNW53V0hqNmlmSnE5WFZKVE9BUW1veTZGUlNqbi94RlRxaHRRSU45aGYxRTJ6SXVWY0RYTFRpSHVkTHlHZFI1RE90MGNaNVR6NmVxb1lwNzQ2SUYycXFuU09tYWJUUXI5bW1xV1VjNFhISXg3Tm91clNPV2ptdE5Bdm1wVlN6bFhaN1FudlBxNHVuWU5tVGd2OW9sa1o1Wnd6cUpZMDB3eHVEU0dkN3pXd2JnWTRBR2dHT0FCb0JqaUFlSnBoQ3VDMDBMTXBRQjBBelpvdkJNMktJZUFVU2lnRXpZb2g0QlJLS1BTRlp1WE1HYy9ZaUJIU21oZ2NHaTJBL2RHc25EbGplVnZ4OERqU2EvMXdhT3c3YXFSWmtUbURaQ2JxeHNvYTFFNE9EV3dsYk91aldhRTVnMm4yZUJUeE0rYzdPVFFBQ2FpSlpsZWFNN0tqR1J3YVVncDltUUtVTkdkazdzM2cwQkJUNkEzTlNwa3o2S1dwK3FlM3MwTUROSE5hNkEvTmFnTm8xbnhoVzJrR1NBQm9CamdBYUFZNEFHZ0dPSUI0bW1FSzRMVFFseWxBT2VuOG9rL0xHamJDRFVBenA0VyswS3ljZFA1d1FycVRqWEFEME14cG9YODBLNVRPSXhJQUVHNlEzU0xjb0R6S1NlZFI5SEJxSmR3QWtJQ21wSE1TT3lNYjRRYUFCRFFsbmZPRjBFYTRBU0FCRFVubklRMXNDRGRvRGJCdWhzSnRDcjJaYWRZSDBLejVRdENzR0FKT29ZUkMwS3dZQWs2aGhNSzIwZ3lRQU5BTWNBRFFESENBaGh3YTB6RkpTQWczYUFzYWNtZzhIVVRqZ1pWd0Ewd0JuQlo2TXdVbzVkRGdCODZ0aEJ2QW9RR0h4cVVPamJDbmFHWWwzQUNqbWROQ3YwYXpxeHdhVEM2RUc4Z3I5SVptSlR0UHFJMlZjQU5BQWhwemFOQ0Uwa2E0QVNBQldEY0RIQUEwQXh4QVBNMHdCWEJhNk0wVW9ENkFaczBYZ21iRkVIQUtKUlNDWnNVUWNBb2xGTGFWWm9BRTFOV0UrZ3FmQnU4WnJiMEZEbzI5UlYyajJWVStEZDZ6OWhhMG45aGIxRTZ6UzN3YXZDZDhPM2liSDllOGovWVQrNzJ0bTJhWCtUUm96NkxmblhYbnA0a2pBdzROL3dzOW13SmM1ZFBnUGJQQnJNZFdvQUVjR2tJS1BhUFpWVDROM3FOcGxqZ3kwSDdDLzBMUGFIYUZUNFAzUEZKM1lFSGFrWUgyRTk0WCtrYXpHb0NacGxpQVpvQURnR2FBQTRCbWdBT0lweG1tQUU0TDJ6b0ZBTTJjRnZwQ3MzelJQQWk2ODZQT2xNTkFXVUVmMDY2MU42TDloUCtGdnRBc1R6UmYzcDRzaDRQbHNFY3Y4T3ZMT3hjbnorNnV2UkhoQnY0WCtrZXpsVVRPamMxN3kxOE1CekhOZEJtazg3WnNuWVFibU5Iczd1TE5VWnBtVnFSelFBS2NoQnZRTTcvZGFIazNtdDk0bUI3TmJFam5nQVE0Q1RlZ2kyWkVOSXZDdzRsUjBGYzAyMDA2QnlUQVViaUJtajZxUFlvdUQ3U0NQdExCQnBET3BSVjZNd1dvRDZCWjg0V2dXVEVFbkVJSmhhQlpNUVNjUWdtRmJhVVpJQUdnR2VBQW9CbmdBS0FaNEFEYjA2d290eUNGcy91bXNjUXNPUHoxK3l2M1JkS0NvcnYyaHV4VDZGelNpMWl2eWg3ckdqQUZjRnJvYmdwUWtGdXdndG41ZkRTL01WMzBleXYzQmI5Smk1elo2bUQ3L0FBQUlBQkpSRUZVZC9BTHFaOXlNOUxpd2ZxeEZ2NDZsMFBBS1pSUTJBRE4xbk1MbHNPZ2M5SHZ6VmdET0JqcEtQYkh1b09KY1YrWU54bkxCdGQzUGdwNm9Scm0rSVh4d1dpczlxbXhUdE5NZmNiOFIzMnlvS0g5UkdyYmh2WVRsK1lXaEFQRm5Wa3ZPaHVGOUk5dUxQR0FSNlRFZmFIZnBFZXp1UDdCWlBGcDNKdUNxRGxidlR2c1BGTlgyak45T2NWbzFueWg0OUVzTDdkQXNXRit6Qnc1bzFGTWoyYWFJckg3d3J4Sld6YTRmbm43L09IcGsrVFR6a1lQcDZTRlRtazBHdzZXZDZielV6TWlZZ29nRnhWb2RtbHVRYWkrNnlsV2pBL2Y3YWx4NkVJM2xyZ3hwUUxqdmpCdjBuZGRYQitGTng2UnJWYS9FTTFmdlVjZnlmZG0wUmcwMnhOVVdkQzRKTGVBZHFsUlNIMDlvSDl1Y1dPSkFRMVRYYktRa2Z2aTRKVzRCUVhkYm5HOUd1alVGVGordENrTmsrcnpnK3U2SCtJc0dJelZ4M2RUeHdvSWhJL3JabDlPMkp1MkFkQk1MSHlrV1dnYXVhNERVNERtQzlzcW5ZTm1UZ3RCczJJSU9JVVNDa0d6WWdnNGhSSUsyMG96UUFLcTAyd0xDYjJydXdEd1FvaUpMd2pwK1pNWkpUWUc1b1lmZlFIMkdEdU1abHRJNlB6aS9PVkp0SGh6eEd1ejNCZzQrc1I4eW5PdEZLQXZ3TjdDQnMydWx0QjFGd0J5WUlROXJadXpkdENuNFlva3FTWENEZlo3YTRGbVYwcm85T0N2ZW5GTTF6NmpORDFXbDlEVHI0bCtXaUpIWHdBaGhlNm5BRnRJNlB6aXhtaW12bzBGZHZRRkVGTG9ubVpiU09qOElzMFU2UDVzZFc5bUhHVWtzS012Z0l6Q0JoWTBTa3ZvM2VldjhJeVVaNXBhSVIrcnEyaW9hd09xUWJpQmpFS3Ntd0grQWpRREhBQTBBeHdBTkFNY1FEek5NQVZ3V3RqV0tRQm81clFRTkN1R2dGTW9vYkIrbXUxaXlTZ1ZaNEQyRS80WE9oak5kckZrbElremdFTmpiMUdKWmhVc0dXWGlET0RRMk50dEZacFZzV1NVaVROQSs0bTl4ZFkwcTJqSktCTm5nUFlUZTR0dGFMYUxKYU5NbkFFY0d2NFh1bGpRcUc3SnVPaVhpVE9BUThQN1F0SHJacGZGR1dRQm1qVmZLSnBtbDhVWlpBR2FOVjhvbW1ibGdDbUFXSUJtZ0FPQVpvQURnR2FBQTFTbVdWVWhYZjNiUTE4QXNZWE9wd0FWaGZTdnAyb0grZ0pJTFd5T1psc0s2ZEg4SHZvQzVHL1JGMkFUVllYMGNkQkZYd0N4aGMyTVpoV0VkTTB4OUFWb0ZhclRyS3FRSGtVUHArZ0wwRExzc0tCUlRVZ2Y2LzNvQzlBcStMaHVocjRBZXdjZmFZYStBUDRXdGxVNkI4MmNGb0pteFJCd0NpVVVnbWJGRUhBS0pSUzJsV2FBQklCbWdBTlVvbG1PTzJNMDNqUmRMRTZlbWVZU3MrRHcxKyt2d2d1TUdjTkt1QUVnQWRWR3MwMTN4djA3RnlmUDFoYTd3czVVTjVlWTM1Z3UrcjFWZUlFeFl5RGNvRFhZa1dZcmR3YnY0M1Y5dGxSd2ZQR2RxWTVqMTJKUkhGNWczaFhaQ1RlQVEyTi9IUm81N2d6ZVI1NkxONHlsWWthQ3BQWlpQT0FSS2drdk1PK3lFMjZBbWFiVFFxY3p6UngzQnU5anp3VnIzWlJRa0l4bTJzZ1RoeGZFNzdJVGJnQ2FPUzEwU3JNY2Q0WWV6WXc1NC9HSUVnbzB6WWg0aWlpelhoeGVFSnN4RUc0Z3NORHR1dG1HTzJQQ0RTWDQzb3d0RldFUWRKNlNQWU9IckJuZGVwbndnb05YK0YzZis2R2RjQU5BQXZ4WU45c2gzQUNRQUQ5b3RrTzRBU0FCZnRDc0hFQXpzUkJQTTB3Qm5CYTJWVG9Ielp3V2dtYkZFSEFLSlJRNm81a2QzVHdrNFVDOThzZ1VvUytBakVKM281a04zVngzQi83RWZOcHpyUkpBT3Q5YjdFS3pIWFJ6N25XdUJzS3AxalNYTEpXakw4RGVibmVnMlM2NnVlTGUvUFJyQ3RmUVJTeVZveS9BM3FJcXpYYlV6WGswVTdzNSs0Q3VtU1NLb2kvQTNxSUN6V3pvNXZyZXpHVCtVQkZKNVpETy9TOTB1S0N4dTI2dTZ0UWJRdjB4QVNVZ3NGU092Z0RlRjJMZHJCZ0NUcUdFUXRDc0dBSk9vWVRDdHRJTWtBRFFESEFBMEF4d0FOQU1jQUR4Tk1NVXdHbWhreWxBYVhmR05HNUg4V3dZdkhpa3JSY0hyNlRxNE5DUVdlaG1wbG5hblpHMG95REtHZXRGM0oxaWNkT2lRd00wYzFyb21HWlh1VE9TZGhSRU0yTzlpSHRKeklLZVBZZkc1eVdkQW1YcklvUWIyS2hiKzN0WHBObVY3Z3pkamtMSFljZldDM0k2VXNuVFl6ZzBXb1lxTkN2anpvamlkaFEwbXNYV2l4TWQ4cSt1bUhCb3RBdGIwcXkwT3lOcFI4RTAwOWFMRk0zc09UUUFDZGgyUWFPa08yUHdYTGVqMERQTnhKM1I1WkpGdnhkWmMyZ0FFb0IxTXhSdVU5aFc2UncwYzFvSW1oVkR3Q21VVUFpYUZVUEFLWlJRMkZhYUFSSUFtZ0VPQUpvQkRyQUx6YTcyYTJpWEJlSHMvcmFKR3VxclhzU1NWdlpZQVlIWWFUUzcycThSbXpLTVhXT2JSSTJia1c1VnZYNnNhOEFVd0dsaEUxT0FxLzBhbW1icSs0UFJ0b2thTjQwVXhaOERoMFptdSs4T2pTeXU5bXRvbW9YY1hXTExSQTMrS3V3OE03NlBDS09aRDRXTmpXYkZmZzJtMmRrb3NXS1VUOVJRbzltUVJIaituTlN4RnY0NmwwUEFLWlJRMkFUTnJ2WnJhSmVGR3MzQ3pzV1dpUm8zbzJoY2dtYUFCT3kyb0hHVlgrTjZuMmVPTkczY1BsR0RISkd6WU1DbWp0U3hBZ0tCZFRQQUFVQXp3QUhFMHd4VEFLZUZiWlhPUVRPbmhhQlpNUVNjUWdtRm9Ga3hCSnhDQ1lWTjBheDgza0ZrZFBJRTJXOHJoaHNBRXJEN2FGWTY3OEJVckxEMkxkcFA3QzhzMHV5cXZBTmRzZWozWmdlajJXc3ZUL1FieGdlamNlZWlUNHUyYUQreHQxdDdOTHM2NzBCWHpIcGtQdXZFMzdLS09XTnRIZUVHZXd0TE5DdVZkNkFybUZJenRqSHlHODVHRDZlc09GVUxOOEFVd0dsaFl6UE4wbmtIc1U1K0dvMFBQMVkwMDk5RzgxZnYwYnZJdG9IMkU5NFhOcmVnVWI0YkJWZlFmZGhnVEg1c0xadlRTS2crSXJqZVIvc0ovd3RGcjV0OU9ZbVdkNitzQXMyYUx4Uk5zOUE4YUZJTVRBSEV3ZythbFFOb0poYWdHZUFBb0JuZ0FPSnBoaW1BMDBMUlU0QnlBTTJhTDJ5QVpqbm1qQTlTaG9vVjVxZjhTUENsNFFiYWxoSFNDdG5XNFFhZ21kUENKa2F6VFhQR0tHV29TTEFjOXFJNHR5QTMzSUJqRFBncE9vUWJlRjdZS00xVzVneHRxQ0FGNElLdEdEUXFkZU9jZzh2Q0RaaFFvY25lM2pMY0FGc0pXOXZoQnRwUVFlNk1YcXlSbjQzbUwwOEt3dzJZWnB4d3NIMjRBU0FCdHNNTnRLR0MzUm5NTUpZdDR3ZlFMd3MzV0J2TnRnbzNBQ1RBZHJpQk5sVEU3b3p4NGNkRXYxWE9RWDY0UWZiZURPRUcrd2ZMNFFibjJsQnhuOXdaZEZzMklPOEZONTM0Zm5HNEFmbG96VXh6dTNBRFRBR2NGbnE2YmxiT2UxRU9vRm56aFo3U3JKejNvaHhBcytZTFBhV1pUWUJtelJlMmxXYUFCSUJtZ0FPQVpvQURlQ0dkb3kvQXZzTUw2Ung5QWNRVVNwYk8wUmRBYjlFWElCZTJwSFAwQlJCVDJOaG9aa0U2UjE4QU1ZVk4wTXlXZEk2K0FQc09YNlJ6OUFYWWE0aVh6Z0VKRUMrZEF4SWdYZ1hBRk1CcFlWdWxjOURNYVNGb1Znd0JwMUJDSVdoV0RBR25VRUpoVzJrR1NNQ09OTnZLcE1HdWk4N3ZqZ0t5WXVURUdhRDl4TjVpMTlGc081UEd6V2g1NSttQXhJTzhPQU8wbjloYldLTlpLWlBHVFY2cUpmMHlMODRBN1NmMmRtdUxabVZOR3VxVlMrTU1Lcldmd0JUQWFXRkRVNER0VEJvOG1vMnBMaS9PQU8wbi9DOXNpR2JibVRSdXFxL29nbm8zTjg0QTdTZjhMMnhxUVdNTGs4YjF2dTVLUVNiLzNEZ0R0Si93dnREZmRUTnJKZzNNTk1YQ0FjMnNtVFJBTTdHQUNnQTRBR2dHT0lCNG1tRUs0TFRRM3ltQU5ZQm16UmMyUTdPcTB2a2tMODZna25RT21qa3RiRklGMkY0Nno0MHpxQ1NkZzJaT0M1dW0yWGJTZVc2Y0FhVHp2ZDAySkozbnhobFVrczRCQ1doSU9zK05NNmdrblFNUzBKQjBuaHRuVUVrNkJ5U2dPZWs4Sjg0QTBybjNoZjZ1bTlVcm5ZTm1UZ3Y5cFZtOTBqbG81clRRWDVwWkEyaldmR0ZiYVFaSUFHZ0dPQUJvQmpnQWFBWTRRR1dhVmVrOW9UWnZEQVBTTXA5WkN6ZkFGTUJwb2ZNcHdOYTlKMVRCL01hVXBLUG5Gc01OUURPbmhjM1JyR1R2Q2RZdHp6aXkvZUhVWHJqQjV5V2RBbVhySXJTZnNGRzM5dmZlbldibHZCbFVyRVl2UmF0M2VvdjNFRzRndGJDWjBXeUwzaFBhaFhIeTIvTzMvbVprTWR3QWtJRHFOTnUrOXdSTkZjWmQrbDlrTDl3QWtJQWRGalMyN1QzQjgwbEZ4L2s5dGJVV2JnQklRSzNyWmpaN1QwU2dtV0RVU2pPYnZTY2lUQUY4S0d5cmRBNmFPUzBFellvaDRCUktLQVROaWlIZ0ZFb29iQ3ZOQUFtd1JyUExwUFRPeGNrMFc4Y3ZkSjROZ3hlUGpGaWUyeVdBbjB4aGdTRjdySUJBMkJ2TjhxWDA1WjJQVW1JNnJiWHlDeWY4dUhraWx1Y0o2VGQ1NytheEFnSlJBODNTVWpxRkdkOUpkUFRlVFAyUFh6QTBNMko1cnBCKzB6ekZ5ZEk3d2cxa2IrM1RiRjFLWDk2WnNzQ3BhQlE5UFU1ZW9CYlRpVmllSjZUelZ5RTcwODRLZXAxakN1QzBzUEVwUUs2VXpxT1pwaGxaTDlTRlViOWdSak1qbHVjSzZXbzBHdzdVbTFrVFRSMXI0YTl6T1FTY1FnbUZqZE1zWDBxUElzMlU4ZUc3QTIwRk1telNOTk5pZWE2UWZwUFNOa0F6endvYnAxbStsRTRYeVFIcjZIUUZYZlI3ei9VTGVxWnB4UEpKcnBCT2wxWDFacExldTZsakxmeDFMb2VBVXlpaHNIbWExUTdNTk1VQ05BTWNBRFFESEFBMEF4eEFQTTB3QlhCYTJOWXBBR2ptdEJBMEs0YUFVeWloc0dtYTdlTFF5RzFHVWRLaEFabzVMV3lhWnJzNE5IS2JVY0Noc1Vmd3dxR1IyNHdDRG8wOTJucmgwTWh0UmxIU29RRklnQmNPamR4bUZDVWRHb0FFZU9IUXlHMUdBWWVHajRXTlR3RjJjMmprTktPQVE4UER3dVpwVmp0QXMrWUxRYk5pQ0RpRkVncmJTak5BQWtBendBRkFNOEFCUURQQUFjVFRERk1BcDRXTlRRSEtXalAwdWhybEZ5K0hhRDhodGJDNW1XWkphOGI4NVVtMGVITkVldFA4SHRwUENDMzBnR2JGMWd6T3d3NTdwRW45RnUwbmNyZG9QMUdBa3RhTU1WMzZTTzIwMjM0Q2tBQmJOTHZhbW1GR3MyaUI5aFB0Z3dXYWxiUm0wQVNCN3MraU1WMVcwWDZpVmJDeG9GSE9tcUhMb2toYnk5QitvbFhBdWhrS3R5bHNxM1FPbWprdEJNMktJZUFVU2lnRXpZb2g0QlJLS0d3cnpRQUpBTTBBQnlpZ1dZNG1QdUovNXFjYnRWeXhldU5HZmdHdFdpU3IrYmx2cWlxZEF4SlFOSnJsYU9MMHovMWhiNk9VSzJMazVSY3NiMCtXdzBIQm02cEs1NEFFbEtMWlNoUG5memh1Z0o1M203MzI4c2V2Yy9UQUovekVPQW5sdEM4bnY0REZKVnFNN1Z6ME94OEZ2VkM5aXo5MmZEQWFxMzFxcklOMDNrN3BQRWNUNTMvbUwzUGN3T3lXOW8yUlRza1ZwR0FxZ2t6ejhndjBhQllPRk5kVTJZUEo0bFB6SnRZMFdmdXNKcDFqcHVtMHNJYVpabzRtenYvd2MrQWtjQ3QycVAvUm8rUmN3V1JoS1drenY0QnV6N3IwYlBuOGVIbjcvT0hwaytSanowWVBwNnc5VlpQT1FUT25oVFhRTEVjVDUzK1laaVJ3YTVxcDBVeFhzRkQrY1M4M3YwQ0hTSVZkZnNPTlIzUjdwOThVelYrOVIrOVFoS29rbllObVRndnJXRGZiME1RbkZFMHc0YmlCVUYwU2YzNDRVVU1TelNpNWd1NndCbU5kdEpaZm9FQzNjSFJ2cHRqM25yb1V4eDg3cGZGUy9hRGdlaC9TK2Q1aTEzV3oyZWFzc3dLK25FVEx1MWRXZ1daaXNTUE5Wc3RjT3lFMGo1MFVBelFUQzZnQWdBT0lweG1tQUU0TDJ5cWRnMlpPQzBHellnZzRoUklLUWJOaUNEaUZFZ3J0MDZ5cVEyTTVwRWRNVkoxNXlFVDkyMlBwQ1E2TjFxSU9oNFo2SHhlYk9JT3ZwMm9ISEJxdFJoME9qZk9US2RmRkR3REhtUm0xT0RTd2xiQ3R3NkZCNzZPNk9NNWdURWtIZFRrMEFBbW93NkdoK1JFT2t0R01PUWFIeGo0VWV1VFFVTy9SZFhHY1FmUndDb2ZHZmhUNjQ5QjRwR2FhWEdkbW1tTWRjRkNUUXdNMGMxclkwTHBaNHc0TjBNeHBZVE0wZzBNREtBUHhLZ0FnQWFBWjRBQ2dHZUFBNG1tR0tZRFRRbitsYzVvbTFDZWRnMlpPQzJ1WWFWcVN6bG5QckUwNkI4MmNGdFpKc3gybGMwTXpoQnRjdFVXNHdTN1MrV28wZzNUZVVyaVF6cGxtZFVubmdBUzRrTTdqaTJZdDBqa2dBUTZrYy9NU3dnMWFERWpuS055bXNLM1NPV2ptdExBaEk1QkxnR2JORjRKbXhSQndDaVVVdHBWbWdBU0Fab0FEZ0dhQUE1U25tVTNEQnMwdFdibWlSVFl6eTBTNHdSNWppOUhNcG1HREd3TkhuNWhQZmM2a2hFTkRRR0g5VXdDYmhnM2Q1cnpmbVdycGZNbU9ERGcwV3VuUVdJTk53OFpqZFFrOS9YcktiS1JySmpzeTBIN0MvMEpIbzVrbHd3YVBadXJieHlNZXpWaTBRcmlCZ01MNmFXYlRzS0h2emVoTDltRWNzeU1ERG8yOXhUWUxHdllNRzJRd1U0VFVINmR3YThpT0REZzA5aFdXMTgzc0dEWXVBV2dtRm5acFpzbXdjUWxBTTdFUXJ3SmdDdUMwc0szU09Xam10QkEwSzRhQVV5aWhFRFFyaG9CVEtLSFFCYzFLcStkTExZZ3ZxYUZtWnhweFAwMzBCV2d4dGh2TlNxdm52TFQ2QTFwaFhkSnJUeWJvQzlCcVZLVFpWZW81RjNJbjZ1VXZGTHVZWnVnTDBONXROWnBkcVo1ejRmeVlhSFozOGVZb0hzMFFidEJTVktCWkdmVThOWnJkamVZM0hxSXZ3SjRVT3BscGxsYlBVL2RtZHhVUER5Zm9DN0FmaFc0V05NcXI1MmFtK2YwaFhWZ2ZuS012d0g0VWVyTnVWa1U5UjdpQmxFSmZhRlpKUFVkZmdEMkhlQlVBa0FEUURIQUEwQXh3QVBFMHd4VEFhYUV2VTRBYUFabzFYOWdBemFvYk5rZ0F0UlJ1QUpvNUxXeGlOS3R1MkVDNGdkRENSbW0ydFdIRFhyZ0J0aEsyVm1pMnZXSERYcmdCSUFHNzA2eVNZY05ldUFFZ0FUdlJyTHBoQStFRzdjSnVDeHBWRFJzVGUrRUdtQUk0TGZSMTNjeGkzQUZvMW55aHB6U3pHWGNBbWpWZjZDbk5iQUkwYTc2d3JUUURKQUEwQXh3QU5BTWM0QXFhYmRNTUlOSTZkeSt2RVFDL2duQ0QxdUtxMFd5TFpnQVJDNUI2eFhXakVVQnQ0UWFZQWpndHJHa0tVRm9kMXlFRk1jMDJHZ0hVRm03d2VVa0p0MnhkaEw0QU51clcvdDVsYVZaR0hYOCtpblh3elVZQXRZVWJZRFJ6V2xqbmFGYXFHUUNGRk5CRmN6aklhd1NBY0lQOUtLeUpadVdiQVZCSWdhS1pHc1B5R2dIVUZtNEFTTUNWQ3hvbDFYRWU4M2hhU0VMNVJpT0FpOXJDRFFBSnNMRnV0cnM2dmtPNEFTQUJGbWhtUVIxSHVNR2VRN3dLZ0NtQTA4SzJTdWVnbWROQzBLd1lBazZoaEVMUXJCZ0NUcUdFd3JiU0RKQ0FMU09PTFJrMmFHNXBLZHdBa0lBdFJ6TmJoZzE3NFFhQUJGU2wyWTZHRFlRYnRHdGJrV2E3R2pic2hSdGdDdUMwME0wVXdKWmh3MTY0QVdqbXROQU56V3daTnV5Rkc0Qm1UZ3NkTFdqWU1XeE1FVzRndE5DZmRUT0xjUVpaWUtZcEZ2WnBaalBPSUF2UVRDeWdBZ0FPQUpvQkRpQ2VacGdDT0MzMFp3cFFHMEN6NWdzZDB5eEhSTDgvM0lndk1FdXMvUElIZlY3Y2VQRW9VY2l0aEJ1QVprNExYWTltT1NLNjRWUWFvVmE5azVmVi8xY0tPY0lONUJVMlJyT1ZpRTVXakxlRHQ0UEI3UFgrNFhtL056c1lMZTlNNTBmWFA0MWZacG9aaFR5eUUyNkFyWVR0empSTGllaUxrNHQrZDlhZC81akZjdzRzVURSN1BQcHlvbDltVVdDYUtPUjJ3ZzBBQ2RpTlpsa1JuY1ZMMGpkWlBJOXBadTYyK0dVZXpZeENiaW5jQUpDQXlqVExFZEhUTkF0SlRSOGZQcm96cFFaTjhjdWFabG9oUjdoQmkxQjlRV05EUkg5RXNmK2Rud2ZCNGNkOGNWVFh5TUVzR1B4T0RVNGtuWi9ITTAydGtCKzhZaWZjQUZNQXA0VStyWnR0TFo3dkVHNEFtamt0OUlobTI0dm5PNFFiZ0daT0N6MmlXVjBBelpvdmJDdk5BQWtBelFBSEFNMEFCd0ROQUFlb1JETUw5Z3hyNFFhWUFqZ3RkRG9GMk5tZVlTL2NBRFJ6V3RnTXphcmFNK3lGRzN4ZTBpbFF0aTVDK3drYmRXdC83OTFvVnRtZWdYQURvWVh1UjdOZDdCbjJ3ZzBBQ2FoR3M1M3RHZmJDRFFBSnFMaWdzYU05NDNCaUxkd0FrQUQ3NjJhMVpSdUFabkpobldiMVpSdGdDdUJCWVZ1bGM5RE1hU0ZvVmd3QnAxQkNJV2hXREFHblVFSmhXMmtHU0FCb0JqaUFDNXF4ME5TZEgzV21aUHJYa2FIamdKNWwwcDRNc3l0YUM5V0k2Qm5PeFZzVEx1aEZvSmxnT0JuTmxyY1ZWd1pMNmxIeGhKZjlvK1dkaTVObmQyTlBSdXp1V0F2Vk1MU2JuNW9lS3FDWldMaWlXUlQybHI4WURtS2FHY3VHOFdURU5HTy9CL3ZPeHNGcjk5UW9kakFpUlo0SE16ZzAydWZRMkJKbU5MdTdlSE9VcFpueFpNUzcyTy94ZURRamd3ZjNFVGdiaFowcGYwdkFUTFA1UXA5bm1uUjMxYVVIZnVjM0htWnBaandaZXBmMmU2aTd0dTdaU05GTS9mT1lYQjZnbVVlRlh0UHNOdWxQOUZ4NWVLZ3RHYWVHWnRxVFlYWnB2d2U1SlVNem1vV2RaNkNaVjRVZTAwek5OQThuTktRcHRqdzQ3MnZ6L3pqb0xVeHFCdVBndnZGN3FIdXhMaHM4ak12ajFqQTJ0V0VLSUJiZXJwdUZnNDFkb0psWStFcXorZEdtMFFNMEV3dGZhWllIMEV3c3hOTU1Vd0NuaFI1UEFXd0JOR3UrRURRcmhvQlRLS0hRSTVwcHFUenpmV2Y5a2ZTekQ1SXNnL2xSOE1hZEtVVWdqTWI4eHMzZ2cvU3hyZ0UwYzFyb0VjMk11R1MrV2R5TXd6UlNvTGlEV0RkL2MwUXhDQlNCY0o4RjliemdnOVN4QWdKUkY4MmlrR0tNUjdQWFh2NDRNREVGeXlHdHZYTHFBWXZpY1phQlh1TFhRUmxVbVJkOGdQWVRzcmUxam1helc4UE85T214R2MwVWZVenFRWmp1TmpFZUVBR3BkM1ZQMHl3ditJQ0IwVXdzNnFFWlMrVmFTNHJtTWMzVWxkQ2tIckFvbnVRY2RHUFJVL0V3R2MyaWJQQkI2bGdCZ2FqdG9ra1pHN01VemVhbmlrOHpuWHJ3TG9uaUYzSE93ZEdBM2pCTGNqUHlnZzlTeDdvR1RBR2NGbm8wQmRCU09SbXlPejgvbkN6NnIydTFuTzdOcG9rby9wTzQyd1ROTk5YWVJ4RUlFeExVbzJneitFQlBWRUd6NWdzOW9sbGRBTTJhTHdUTmlpSGdGRW9vYkN2TkFBa0F6UUFIQU0wQUJ3RE5BQWNRVHpOTUFad1crak1GcUdMUXVPZ25rUWR3YVBoYzZBL05LaGswVXBFSDJ6azBRRE9uaFg3UmJHdURSdW9oNGUwY0dwK1hkQXFVcllzUWJtQ2pidTN2WGVkb3RvMUI0M3hGTXpnMDlnLzFOS0hlM3FDeFBwcEZjR2pzRStxNmFHNXIwRWhGSG16bjBBQWtvSjZaNXRZR2pjVXE4bUJMaHdZZ0FWZzNRK0UyaFI3Tk5Pc0NhTlo4SVdoV0RBR25VRUloYUZZTUFhZFFRbUZiYVFaSUFHZ0dPSUFsbXAyWlhJSU1GaWZQalBnOUN3NS8vWDRpbHNmNS85azJBSXZWNitiN2dITzE0NnhHMEV3dzdOQXN6aVhJN2pXSytQUFIvTVowMGUvRllubVMvNy9XQm1EMXV2bmVOS0UyRDZTRFpvSmhnMllzaFRNcmVBbDIvcVArNFlTWFYrOU10VnowbUVldFdDdzMrZjltTXo0WWpTbHZOdWdtWWpybDBIWiszbHZSakVaSlNPZHRsODVaQ28vbHlQQU5kZGtqZFdnMklKcXgrUDJBUjZoWUxEZjUvMmJEUkp5bHhYUjZLOG5saG1iOTVGcU1tV2J6aFEzT05Ga0taMWF3UEQ0L0pkVzdId3lTMFV4cmtyRllidkwvNDgzWjZPR1VFclNuU1pjQTlkYjRDWFFhemRRbE4zMnNoYi9PNVJCd0NpVVVOa2d6RHZEbjI3QllIbjg4SXVGYzA0eUlwNGd5NjhWZEFFeitmN3ladjNwUERWOVJsSFFKb0xlU1hLN1ZkSFhSRElzY0dxQ1owOElHYWNaNk9BdmVmRzgyUGp6dmQwazRmNm96L1dsczB1bzRpK1VIcjNEeDkzNm8yd0JNNlpKSzh2bjFXRXgvTjFBdjNocStlRVN6MUEvNlFXODUxRTV0VEFIRXdvOTFzeThuM0FQbENvQm1ZdUVIemNMTW95V1hBVFFUQ3o5b1ZnNmdtVmlJcHhtbUFFNEwyeXFkZzJaT0MwR3pZZ2c0aFJJS1FiTmlDRGlGRWdwOW9kblpCeWxQeFFyelU1TjYwUG5kVVVDNUJmcXBsTjR5Q1RDQVEyT1BZWnRtRkZ1dzhsUWtXQTVwSlYrOXNyenpkTEI4WjhRUDJmR1RjcXNBQXpnMDloZDJhYVpqQzloVHNjb3lvQUdweTdhTnhVMWVoS1hIZXprQWdWTU1rZ0NEYWc0TmJDVnM3ZEpNeHhhd3AyS1ZaY0QvekYrZXhLK3dQWU5veGlrR3F3Q0RhZzROUUFMczBrekhGckNuWXBWbHdNcWx0bTN3YURhbVc2M3NhTVlqSEJ3YUFncTltQUt3VitPQ1BSV3JMSU9QaVZhR1p1b3J1cURlemQ2YjZRQURPRFFFRkhwQk14TmJRSjZLKzBtV0FhY1hrRzNqZWwrYk9BSzFZVy9HMk13ME9jRGd4YU5LRGczUXpHbWhGelRMUlRuN1JRbUFaczBYK2t1emN2YUxFc0FVUUN6RXF3Q0FCSUJtZ0FPQVpvQURpS2NacGdCT0MzMlpBcFNUemllYjJmOFZwWFBRekdtaEp6UXJLWjNuWmY5WGs4NUJNNmVGWHRDc3RIU2VsLzJQY0FPRUc1UkRhZWs4TC9zZjB2bitvaUhwUEMvN3Y1cDBEa2hBUTlKNVh2Wi9OZWtja0lEbXBQUDE3UCtLMGprZ0FaRE9VYmhOb1JjenpWelVLNTJEWms0TC9hV1pOWUJtelJlQ1pzVVFjQW9sRkxhVlpvQUVnR2FBQTRCbWdBTlVwZG5aL2VGNnQ0bFZ3L0orNTFjZjlJUE9zMkh3NHBHMlhkRGkyRVk5MmsrMEJoVnBSa2FNaytuNjNsQmJLY0tCZVZuOVA3WmR4UDNQMDdEU2ZnSlRBS2VGTHFjQTJvaHhNZzNmRHQ0T0JyUFgrNGZuN01WWTNwbk9qNjUveXJTSWFXWnNGL3o0YjAvYk5qb2ZCYjFRRFZwb1B3R0hSaEcwRWVQa290K2RkZWMvVnBjNTQ4VlFOSHM4K3BLQy8zdkd3emlOYlJkNk5JdHRHdzhtaTAvUmZrSmlvY3ZSVEJzeFRxYXpBYW5qaWlQR2k2Rm9adTZ0d2tFOG1obmJCZDJlZGJWdFkzbjcvT0hwa3duYVQwZ3NkRWt6YmNSSTBTelVYb3hIZDZaUEpvcHlKaHREMDB6Ykx1aWlHV25iUmhUZWVFUm1XanZ0SndBSnFFUXp1aURlR2diZlYzZFFRWEQ0Y1JCN01XYkI0SGRxS0hyK1NxQnUxc3hNVTlzdUF2TC9SN285aGVKVDlJU0dON1NmYUEwc3JKdk5lbGZYWEFHMG45aHo3RTZ6MVVwWGRhRDl4SjVEdkFxQUtZRFR3clpLNTZDWjAwTFFyQmdDVHFHRVF0Q3NHQUpPb1lUQ3htbTJwWml1NWcyUXpsc0RhelRiV2t5M0pKMERFbUNKWmhYRTlNaU9kSTZ0aEswbG1sVVEweTFKNTRBRVdLSlpCVEVkMHJuRXdtYW5BQlhFZEV2U09Xam10TEJabW0wdnBoKzhZa2M2QjgyY0ZqYStvSkhDMW1MNkR0STVhT2EwMENPYWJTK21RenJmYzRoWEFRQUpBTTBBQndETkFBY1FUek5NQVp3V2VqUUZxQXVnV2ZPRnpkSnNhM3NHMmsvSUxHeVVabHZiTTlCK1FtaGhnelNyWU0rdzEzNENXd2xiR3pTcllNOUErNGwyd1FiTkt0Z3owSDZpWGJBMG1tMXJ6MEQ3aVhiQkJzMjJ0MmNjVHF5MW44QVV3R21oTit0bUZySU9MZ0ZvMW55aEx6U3prWFZ3Q1VDejVndDlvVm1OQU0yYUwyd3J6UUFKQU0wQUJ3RE5BQWNBelFBSHNFNHpObGJReXBpT3lJanRHYnlRVDN1TTZqU2ppcERXeE9EUWtGVG96UlNBTmFJbmNVUkdZczhnOEo3RnpXaDVaMHJtREpZQzROQVFWZWdmelRnaUk3Rm5FSGpQNHVieWJzVG1qTkNvVURzNU5ENHY2UlFvV3hlaC9ZU051clcvZDMwMDB4RVoycDVoL0kwNk5JTXNGMnpPWUp2R3JnNE5qR1pPQy8wYXpWWVJHYkU5STRyTUhoN05JakpuckVZek9EVDJIUFpwdG54bnhBelJFUm1KUFdOK2F2YW9xeUNYM1o0azkyWndhT3c3YWxqUW1COXA1d1ZIWlB5ZHRtY0VkTC9GZTE0OG9xY0FRcDVkanMxTWN4ZUhCaUFCV0RjREhFQTh6VEFGY0Zyb3pSU2dQb0JtelJlQ1pzVVFjQW9sRklKbXhSQndDaVVVdHBWbWdBVHNSck1jblh3MERvTDFuQU5lYU0wMm03QVdiZ0JJd0k2ajJhWk9mdi9PeGNtenRZQlBUam5JTkp1d0YyNEFTSUF0bXExMGN0N0hiWURuUCtwVEpndW5IT2lLQlljZXpGNTcrVjJFRzdScWE0bG1LWjJjOTRXREtIeERYZi9vbWQvWmdHaW1LK2hwZE1XaHFiMXdBMHdCbkJZMk13WEkwY2w1bjZMWC9IaCtTdUVGL1lCcHBpczQ5SUNlUzdjV2JnQ2FPUzFzaG1ZNU9ya2V6ZFEzUGFZUVVvbGZBQUFOQWtsRVFWUVpDZUZFTTEzQm9RY2Y5eUo3NFFhZ21kUENoaFkwTm5UeUNRbmkrdDVzZkhqZTc0WkIwSGxLMlFkY1FUM0FCbU5UaEhBRGVZVllOd1A4QldnR09BQm9CamdBYUFZNGdIaWFZUXJndExDdFV3RFF6R2toYUZZTUFhZFFRbUVqTkt2czBOQkdESVFiaUN0c1VHeXE0TkNnOVg4NzRRYUFCRFRrMEpnUXpheUVHMkFyWWR1UVE0TkhNeXZoQm9BRU5PVFFpTEtqR2NJTjlod05PVFN5OTJad2FJZ3BGT2ZRVUZkT0crRUdvSm5UUXF5YkZVUEFLWlJRQ0pvVlE4QXBsRkRZVnBvQkVnQ2FBUTRBbWdFT0FKb0JEbUNGWnZtOUFJS0FlcmxteTlTKzN4MEZBV2xRbHNJTk1BVndXdGpvRkNDdkZ3REYvMy9VV2RGTTdlQjlUd2ZMZDBiMndnMUFNNmVGZnRBczFRdUFBck9YZHk1WUxGZGpVbThXOUV5SWR2dzRzSlZ3Zzg5TFNyaGw2eUwwQmJCUnQvYjN0a3V6ZEM4QWtyeVhkNmFzWWlwV1JVK1BqUXhPSlFnM0VGclkvR2kyMWd0QWoyYWFac1FkZFozVW85bDRFRmtNTndBa3dBN044bm9CVVB5L29obUw1ZThPRE0zVVBsV3d2R3N2M0FDUUFFc0xHbm05QUhncU9hQ3BJdjNUWGZSZjcydFJQVkFiYStFR2dBUmczUXh3QVBFMHd4VEFhV0ZicFhQUXpHa2hhRllNQWFkUVFpRm9WZ3dCcDFCQ1lWdHBCa2dBYUFZNGdFMmFMWWZycVFZR3JFQ2x2UlptRjJFV0hQNzYzdndvNktIOXhCN0Q2bWhtbWszSERZQXpMOTFNZVMxU3I4OXYwS1BvWDAvVld4RnVzTCt3VFRNT05KanBzWW5hVEx3ZHZCMVFyM1AyWjVEUVJFdi85TTNKbEIreWUyenlXK2IzSWpnMDROQW9oY1hKTXc0MGVIb2NQUjdOM2hoMkx2cmRXWGQrR25hbWlUK0QvQmZxRzdXTEFoQjZEL1RnTlZZdndhRWhvTkNIbVNhTlp2U2srZnhZOFNib3pucUtNUFR3T1Nub3g4WnJRZjRMOVkzYXhRRUlaMlkwSXhFZDdTZjhML1NNWnVSeDNLQVplUzIwLzRKb3BnTVFGSWZZRXZSd2luQURBWVVlMEl4bW1oeG9vRzdxNlZvM1BueWs3ckdDNFBCajhtaThycjBXLzRRZUVlajNac0dBNzgzSW90YWxzWTljSEhCbzdDdXdiZ1k0QUdnR09BQm9CamlBZUpwaEN1QzAwSU1wUU4wQXpab3ZCTTJLSWVBVVNpaHNrbWJiaHhzOFFsOEFtWVdOam1aYmh4dWdMMEM3MEZDNFFZUytBSzNhTmhSdWdMNEE3VUpENFFib0M5QXVOQlJ1Z0w0QVFndWJYZENvRUc2QXZnQVNDN0Z1Vmd3QnAxQkNJV2hXREFHblVFSmhXMmtHU0FCb0JqZ0FhQVk0QUdnR09JQjRtbUVLNExUUWx5bEF2bHREaTkrMFI5czBwdlJnSnRwUHlDdjBoV2E1YmczakIrSTl4cVpCbWhQYVQ0Z3I5STltS2JlR29SbnZZV0hUcU9ab1A1SFpJdHlnUFBMY0dwcG1lZzliTHNLZXJmWVRnQVRVUkxNMXQ0YW1tZDdEbzVrbUY5cFB0QVgyYVpibjFtQ3ZoZGxqVXFlMGd3UHRKOXFCR2hZMDh0d2FBZDF2OFo0WGo4aTZ3Vk5SdEo5b0RiQnVoc0p0Q3IyWmFkWUgwS3o1UXRDc0dBSk9vWVJDMEt3WUFrNmhoTUsyMGd5UUFOQU1jSUNhYVpZanBOOVB4UEwxeWlCWjcwOWs5UE8zSnFzUzBFd3M2aDdOTGhIU242L1JqUFQwMjVQbE1HNVBzUzZqcDQ0VkVBaG5OTXNJNllwbDQ0UFJ1SE9oUnEyNGt3QS9JQnozRXpnM01ucmNhUURTZVdZTDZYd04rYkVITEpZcnNuSDNBTk5KUUk5bXVwL0FOSmJSdzQ3dU5NQ2ZoWmxtODRXZXpqVHpoWFM2WnA2TkhrNnBlMEFjOFU2eVV6ZnVKeERMNlBxeDljZWdtUytGbnRMc01pSDlPSnEvZW8rdnBnbk5idE9kbU9rbkVNdm9vSmxuaFo3U2JGTklaMXMyald3UHRQZk1kQko0dlUvejBXU1BrZEUvRGdiOGV1cFlBWUhBdWhuZ0FLQVo0QUNnR2VBQTRtbUdLWURUUWwrbkFCWUJtalZmQ0pvVlE4QXBsRkRZVXByOUhqUnpXdGdnemM1RzQ1Uzd3b0FhVW1zcnhpdzQvUFg3cStRQ3RtcFE1d2tyNFFhLzMrbklBVWV3UUxQNUQrN2Z1VGg1ZGplN04reE10UlZqZm1OS2JWd1R5d1ZiTlRqZDJFYTRBV2dtQWp2VGJEazBRbmpFM1g3WlQ4RlB4dDJaYXZGU0swVnhjb0d4YXVpc2RndmhCcjlmK3g1Ykw3YzcweXlrM0grbW1hSk8rSWJ4VTh3R1JETzJZanpnNFNsSkx0QldEYzdRc0JGdWdORk1CSGFtMlJtUFYwUUo5ZFg4bUlWdWlpZElSalB0NG9rdEY4YXF3YU5aWkNIY0FGTUF0NFZOVFFIVWFHWnV3OEt1SWdmVGpPSUpOTTJJZUlvbDZnSnBMQmZHcXFIdnpXeUVHNEJtVGd1Ym9obTNsNkJHRXZyZWpQMFVZUkIwbmdhM2pCVkRqVi9kaGJGY0hMeWlyUnBUZW9PVmNBUFF6R2xoUzlmTlFETzNoVzJsR1NBQm9CbmdBS0FaNEFDZ0dlQUEwbW1HZFRPM2hhNm5BUG41LzRuTXZjTDhOTkpOTkhuMTRvMWh3Q0tUTmVrY05ITmE2SHltbVJkYnNKSzVFeXlIUFZPc0N1WTNwclJhKzN4a1R6b0h6WndXTmtlelZHd0J5OXkwVEh2Ujc4ME9TSFFLdWl5bWN6RzNQYWYvUFp6YWs4NC9MeW5obHEyTEVHNWdvMjd0NzcwN3piS3hCZDJJSmZRZVU0ci9tYjg4MGNJUktVeUtXKy8wRnU5Qk9tOFpkcVRaV213Qnk5d3NvZXVSaTJRbExhYWIwV3h4OHR2enQvNW1aRkU2ci9SYkE0NVJuV1o1c1FVc2M4Y1Mrdmp3WTZKZlFqT2VLb3k3OUQ5NzBqbG9KZ0k3TEdqazVmK1R6SDJmSkhSVzFGV0ZqaXI0ZmpLZlZIU2MzMU5iYTlJNUlBRzFycHQ5T1ltV2Q2OHVLd3RJNTgwWCtpaWRoM25wbjlVQm1qVmY2Q1BOTEFNMGE3NFFOQ3VHZ0ZNb29iQU5OQVBFZ2srZ0RKcmx3dnIwMC81OHRwV2ZtUGVCb0ZtTkg5ak9UOXd6bWdGeUFKb0JEZ0NhQVE0QW1nRU9JSkJtYkw4MUcvTzF2UStjQlllVHErckxmcUwyQTFzNXhNd24yanpHUmQveW4xRi80UG9oeXFPWnNYand4bnh0N3dQWjFtdnJFTG12aHBWRHpIeWkxV044TWxtOE5iSDVaK1FQM0RoRWVUUXpoalhleE9ZMWF4L0l0bDViaDhpa3NIS0ltVSswZTR3VXVXUHp6OGdmdUhHSThtakc5bHV6TVYvYiswQzI5ZG82UkNhRmxVUE1mS0xkWTR5aWgxT2JmMGIrd0kxRGxFZXpXa2V6S0lyYlJGbjR4SnBHczhqcU1aSVAwTzVvTm1OSGRmWVE1ZEdzM251eitFVGErTVM2N3Myc0h1TnM1V2kyOTRFYmh5aVBadHArcXhPdjlEOFdQekMwWTVOTFBsRmRPcXdjWXZvVHJSNWpHTVRwWVRZL2NPTVFCZElNa0FmUURIQUEwQXh3QU5BTWNBRFFESEFBMEF4d2dQMmsyV2ZYcnIzd3R6OWIyL21ILy9GbjMvd0QzbWsyR2VUdFMzWis5U2UvdWF6a2FteStyZUlIOFpIOE4xZVgvUEV2dHpxYXJmQy9WM3YzWHRMc3crLzhKdnJzVyt0L2tBLzFuZzM2WlY3TnhUZC8rcDNmWEZHeWh1U0hYUExUU3IwM0I1cnZoZmpEVDc5ZFJMTWRVWkdsKzBpenIvNUwrbE44OGRMYWJqV2EwZWFTL3g3TnE1ZDhJcC9kd3BJc2toOVM0Yi8rZ3JmODRaK1dZTkEzZjFZanphSnYvdUdWUk0vQlB0THNzKytZdndSZE85VmYvZis4cG5aOGNlM2F0K2lpcWJZdjBYK1NxZGUrK2ROcjMvNGxjK2dQUDczMlhUVWEvTiswNDVzLys0dHYvUy8vNEdmODRsZC84cyt1ZlpkcDl1RTEvbkI2bzNvL2YwdUYvL09mL090cjMvbjMxNzd6SC83MDI3OVVneDcvRUhwanprK0xlRWo0eXJ6aE4vRW5tWXEvK05iL0ZML1hsSCttdm94LzdCZmZKY3FiZCtvZm5xcmszemorTHZXQytxM1UxeDhtUDN0MUhLdWE1SWRkZTBIL3huOFUveFhXRCtMRDlmOTh5MkNmYWFiR29LLys2TDlYektIVCtzZS9WSU9jWXNEL1IxejUxcy9TcjMzMmdpS1FIcXBvSlBoUHZPT3ZmcXBPdXlya0Y3LzZvNWYrOE5PWDFCZGZxSDB2YURwR2FpZDkrOStxUXZXOU9qdmZwYnUvUHlQQzBnL2hOK2I4dElpdXZuOFZ2K0d2ekNmRkZTOUU4WHYvU3BjclpuMzRndm14YW4rMCtsRzhNMVVaTVEwL3BGZk5MMlZlK095N3F5UFhQOXVVcjJyTVBqNktsOVQvNk5KOXlVRjg5a0tGVTdMUE5LTS9pUHFyODRtbkU4UmNJanJwNzVQWDZOUzlaSzZJNmcvNTE3L2hIY1M0K0VXNmFESnQxSC90aWhibXd2VFpDL3d0ZmEwL1NGSFJmR0dHeHBmeWZwcWVqS1Rld0o4VVYwVEplM1VKRHg3eGo2V3E1SjE2NTZveU1pTk42cGZTWDM3eDNkU1JKeitiZnR0VlRmSlhvcitBK2dOKzgrZVhIUVJvWnFEdnpiNzZsNS94SCtVU21xVmUrMEw5Qng3VDdLcy8vci8rWmNRN3pDbm5yMWMwTTFlTW1Cem10T2JSTFBuVXRaOFc1ZE1zcm9pUzk2YlBzUG14V1pyUnpsUmxsS0ZaNmdVZWUrT1BTTk1zVldQK1N0ODFJK1pMZjN2cFFZQm1NV2ltcVc1VkZkMlNQK0FYNnU3cnA5LytOd25OMHE5OWFLNkl5WHQ1aHpubC9MV2ltYnAwOE1BUTBYL25QT0hTRjVOdi9ueWRadC84S2YyY0tQblV0WjhXcmRGTWYxSlNvZThBWDBvWSt3V05MUEdQcFh1ejVKMjhNMVZKcjFOeDZwY3lIL0dDZml0L1JQbzRValg2WDMwVXF2aGE2cSt3ZGhDNE4wdndJZDN6OGpEL2t2cjZ1NStwdjVyYWRlMGwvUVZ2VXEvOSsydmYrcSsrL1JmbUp2cXJmMFIvWmJYanYrTWkvZUsvK1NsVjYzZnpjb0c2VGI1R3l4c2ZtbnRyOVVGcTg2LzVxMi85MXpSVGVJay81SmViUCswM2RGemYrV2Z4Ry82RCtTUlR3WGYyTDVrRE1BZityWjlGNXNmU1REUDlvMmlPc2Fya1gveGJQMHY5VXZxRi8vZVBhSHBoUGtML2JGMmVlclBaeDBjUmFTN2xId1JtbWc1aGI5Rmd1MDhxWG5xOUJQOUpzZml2dHlMSEgvNzVaZVZiTE9xa0FacFZRbE0wSzZNQ3JJT1k4YzFmYnZXV2pUWEhCRkFCSEVMZFZIK255cldqemsrNkhGL29XNGpTK0pDbnBGWUJtZ0VPQUpvQkRnQ2FBUTRBbWdFT0FKb0JEdkQvQTlGY2hVUW5aWDArQUFBQUFFbEZUa1N1UW1DQ1wiIC8+XG5cbjwhLS0gcm5iLXBsb3QtZW5kIC0tPlxuIn0= -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAYACAMAAADrEHTsAAABy1BMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojm6Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq46rq6urq8irq+SryKuryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/WsD/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///+q9+YiAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO29j5/jxp0lNv6RzSabCN0yx9zby17UljRqiZR8ndPY7aFzd5vbXNbU+EbxKBoNldwmObNHHq1Ovh5qc8kZM7P29XBlHUfiSTTx56a+3yqAAIlGg2ChUF/ivY896Aa/ZKMbTwVUvYf3vRYBQO241vQBAG0AaAY4AGgGOABoBjiADJr9F4BY8AkUQrOmDwCoCvE0+7zkm8vWobCODwTNULhNIWhWDAGnUEJhW2n2e8Az6PPSGM0W/aAzpS/mPxhFy2EQBAcfpHep1wP17Sw4nERh0KPdZ6PFWxMu7UWgmRDknSWXo9nihCkVffk/9PQ3z0fZXTej5Z3pJ+rb+bFimCaf+vd0fpo61jU0/UcF1pF3lpqg2SczNYSpb56P1nbdXN5VY5r6KhxEs54axQ4UDy/6PJjR4svnn/NQ/Hl62/QfFVhH9vzobQM0W3yqroR0iTwYbezqRl9PFeMej9QYFvbUkBaqq2hvxldQjGYykHeWGqDZTI1Og+xoZnbRaKbweMSjmbpsPh6pqyhoJgv6vDQ30yROqdus306jWVd/c5zddZPLlrcnfG+mRrOw8ww0kwZ9XpqcaarJ5f2hGrfGwfd+qL4JfpLe9eIRzSdDupaq73pcP5gFt4Y81EVYN/OhsK3rZqCZ08K20gyQANAMcADQDHAA0AxwAPE0wxTAaWFbpwBNrxK1DiVPVn00066LUd5LxnER0YL/4URtzj5gqVK9pWteWPTprcshvxzFhg5ebBukj3UNTf/VW4eSZKhxNOM1fXZVxCv65kvjuCB8wv+qKvJj3J7E2rn6bvGOYtx//seT9KfxCzNtFgLNvEBJLtRMs2jWo3FpFvBGDUY99SVrlLPX+4cTNmBo70VMs/mP1H6q/8Vbk+i3/2oSki7Q+XlvRTMa8ODQ8ARRngPjqq19ms2PH49mvafHEW0UvyL+Mpr/WF0Owx4bMNh7EVs0nqn9ZyNVtHhvPFj+2wdqNJsNFifvx6NZP7msYjTzAZWYUcdoNg6CrrpM0oZIo77Uo1mPviQDBnsvaDQbDmg0O1XfzYlm8xv/8d89UANeQOXJRXN+Y5o+1jU0/VdvHSoxo457syeaW7Sh0Ux9yfdmijlqGKMrJXsvLtTd2zhLs+U7P54+mDyYzAbz47ORdm8oNoa99LECAlHHTJOuc4t+T2/4S3ZczMjpH5oCbc7oPFMzzfHheV8Vva4GMXWVDQ7fDYLv/fDW8MUj87SAmo7q6SvWzZov9H/dbNa7uqYQoFnzhd7TbLUiVhWgWfOF3tNsd4BmzRe2lWaABIBmgAOIp1nTy0h7hxpPHWgGxKjx1LlzaMTzTTg0fEXxOfZhClDGobG8TTSCQ8NbFJ9iX2h2hUODaQaHhscodlx8fsn+je3njTo0mGZwaHiM4lPs0WhW6NAgmsGh4THsUGENzh0aZjSDQ6NVcO3QUF91pjYdGoAEiHdoABIAhwYKtyn0YQpQM0Cz5gtBs2IIOIUSCkGzYgg4hRIK20qzppeZaoLrv23NcEKzpNcErdseUSB7wJ0msh0p0H4ihXpPiHO4Gc10r4nlbUWZwXKoKPPEaOZoP3EJaj4hruGMZs9HRgBY/mI42KAZ2k+sYeP3lL11RDOWyc1odnfx5miNZmg/sY7ivyemALkwo5m6yepGasSa33iYpRnaT6yj+O8JmuVC95rQjkaiUng4McL4zu0nsKDhtNBnmvFckcTyQ7Y0KtI8OO8nk0+0nxBU6DPNLAHSuViAZoADgGaAA4BmgAOIpxmmAE4L2zoFaHqBazdkfxfQzAeAZs0X+k+zjB0jMW1sODTG9FxmWxwa2d8FNLOBrB2DTRubDo2ng2g8aI1Dw8nf3QM0QTNtx2CZc9OhoVXztjg0mnZO7JdDQ2PdjnEwynFohD1Fs9Y4NJz83T1AAzQzdoz0aJZyaDD9WuPQcPJ39wCuabayY7BpI8+hEQdVwaHhYaH/U4BF2o7xvR8a08amQ4OeGoZDw9NC/2m2M0Cz5gtBs2IIOIUSCttKM0ACQDPAAUAzwAHE0wyLWhLgnGZXCegZNCudX/GbCLhhb/EU4CoBPYWGpfMrfhEBpADNLhfQqdvJOHjtXuPS+RWS8OdlpeO/Lysx/31ZKfrvy0rWf1+yrnTef9k6ollD0rnGVQI6tROg0O1B49L5Fb+IgLEHo9mlAjq1EzgbKZo1Lp07+5PsP5qhWZGAzu0EzGhWQjoHzSSgiZlmoYDeudDtBIJBOekckABv183CwcYu0EwsfKXZ/GiziwCk8+YLxUwBqgM0a74QNCuGgFMooRA0K4aAUyihsK00w0KGBIBmoJkD+Nd+ovlwg3r/GK2Ed+0nPAg3qPmP0UZ4137Cg3CDks4LODR8c2hs0X7Cg3CDkr+UgHlhy2aaW7Sf8CDcoOQvJYAU7aNZ+fYTCDfwuNBnmm3XfmK7cANAAsSvmwESAJoBDgCaAQ4gnmaYAjgt9HkKYAmgWfOFbaWZ9VUxAecaNMvBIk8yp6aZvM7hXDq/6nAFnGvQLA95kvk7ikv/+R9PGpDOa/1VgXw4otmGZP6LtybRb//VpAHpvKT0i63NrcPRLCOZvzceLP/tg0kD0nmtvyqQDyc0y5HM35vf+I//LqGZS+m81l8VyIeri+a6ZP7e8p0fTx9MdpfOrdNMwH04pgA5WORK5oNZj+ed6AsgqtBfmlkDaNZ8IWhWDAGnUEJhW2kGSABoBjgAaAY4gHiaYcFMAkCzdQi4D8cUIItMeIH6rvOr0eWvG4fGjBbO6nBolDxmAecaNFtDxoERDjbamGw6NKafqG9rcWiUPGQB5xo0W0PGgUH/j8K3g7eDQUhr/52f9zYdGmrIm0a1ODRKOgo+L+s8+LysQwHhBnU7NDIOjGgW9Bb97qxLo9NssDh5Pyfc4OupYlwtDo26fkfgarih2SyWJcPBbDDrzU8Vo2jAygk3UHhcj0Ojrt8RuBoOaJY4MGZEHk2zB5PZYH58NspzaCxvT7ZwaAASUPtMM9VY4u9eCQ4fqTuyIDh8Nwi+98NbwxePchwa9JgAwg32C+LXzSCdOy30c6ZpFaBZ84WgWTEEnEIJhaBZMQScQgmFbaUZIAHiaYZFMwnwL9ygHum8zl8QuBLehRvUJJ3X+gsCV8G7cIOapPM1KRfS+dpWtnTO2CrcoCbpXMIsTkKhxzPNrcINonqkcwmnUEKhzzTbLtxgO+kcNHNa6C/Ntg03gHS+fxC/bgZIAGgGOABoBjiAeJpBOnda6O8UwBpAs+YLQbNiCDiFEgrbSrMrF8wMBJxCCYXN0OxsNCb7RfJ9klYQnd2n9a6DUTQLDn/9vnFkHE5WXozu2kdln0hfaCWTH+/MHusaytIMaBK70Wz+g/t3Lk6e3V3tibVwRRr68vlofmO66PdiR4bxYmiVM/tZ/ELqg24a9WD9WNcAmknALjRjCwUTS33Vmc5/1D80IqUxV1CD88c8RsWODOPFMJ4N9a6LfuejoBeqYY5fGB+Mxh3yZHQ1zdRn8MdGlR0a6/XYNrHdhWZsoWCahYMofENdEvXzveYVTviPHvCIFDsyjBdDj2b0LtIrH0wWn8YmDaLmbPXusPOMP5Z/HkYzsdiFZmyhYJqpr+bH81P1raYZv6JHM02R2JFhvBjas8HvWt4+f3j6JH5B7Xs4pUeHpzSaDQfLO1P+2NSxrqEszQTcXksobGAKwBaKKY9m3YgiCwzN2CoWdi7oy2N1b6Zeix0Zxouh77r4XVF44xH5avUL0fzVexSCwPdm0bgEzbCg4bSwAZqxhYLNFHxvNj48719nAwZd8bSzggJZ6EbLODIOXom9GHS7xe9SA130hPz+nH8wpYvs/CgIrscPBgzoY7upY634ews4hRIK92jd7MtJtLybsx80a75wj2gW8nrbJiCdi4WPNLsMoJlYgGaAA4BmgAOIp1nZtVkBt9cSCj2eArCezn0yk/YAH6QbAnB6wcEHK3l99S4toQ/Sx7oG0Mxpocc003r6k0m6PUA21YBF9pW8nnoXLdPOjOkDNGu+UATNVu0BsqkGLEvF8nq2ZwDRjFZnK0nnlz5sX7BFuIGNurW/t1OardoDbDQEIKtHLK9negZw4oHGTqMZ0CTc0SzRzSO6bmZTDfRoFgceZHoGLG6SKpo61jWAZhLghGbLd7SRI9UeIJtqwCJ7LK9newaoi2bYSx/rGkAzCXCzoDE/UlfFZao9wHm6YcD3fkgi+0+MvJ7tGaCmpL3lUGtPWDcTC/HrZpDOnRb6PNO0BNCs+ULQrBgCTqGEQtCsGAJOoYTCttIMkADQDHAA8TTDepkE1N5Pc2XEYGvG6PLXTfuJMYlLO7afqOnXAarCTRPqlDWj4HVuP/F0EI0Hu7afyKkTcHstodDPKUDGiMHWjPDt4O1gkHVhpNtP6JYAO7afuNIxAIfG2la2QyNjxCBrxqLfnXVpdEq7MNLtJ8Keotmu7Sdy6gSMFBIKvR7NUtaM2YCeT8+6MNLtJ9gUtGv7iZw6AadQQqG/NEuMGGzN0DTLujCy7SfUZov2E4AE1D7TXBkx2JrxSN2RBWsujLX2E/QwANpP7BfEr5sBEgCaAQ4gnmaQzp0W+jkFsArQrPlC0KwYAk6hhMK20qysiCngFEooBM0Af+GKZlmvRu7eXRwatR8/sBOcjWYZL0b+3h0cGnUeObA7nNNMezEo/WccvHbPlkOjrGMB22a2rmmmvRiPRyxUJhkHOzs0rv75Am6vJRT6PgXIeDHGQdBVV8X1KI3qDo2rf76AUyihUALNEi8GhVCF8Wi2m0MD62ZOCz2nWdaroe63qCUF5Wbs6tAAzZwWek6zXISDq2tSgHQuFk3SbH50OLm6agXQTCzEqwCABIBmgAOIpxmmAE4LJU4BtgTWzZov9JJmvIzRnR91ptRWLmCdfBxQt0zdasLsciGdCziFEgq9pJlpar6k9r9PJrzkv7xzcfLsbtxqwp10LuAUSij0lmZR2Fv+YjiIaab1gLjVBKTzdmzdjGZ3F2+OsjQzrSbcSedAk6ibZuq+qkstpec3HmZpZlpNOJPOgSbh4KIZcefy8HBidHJNM91qYnfpHDSTgNpnmocTGtIUTx7olhNkZ+wtTKsJBqRzQYV+TgGsAjRrvhA0K4aAUyihEDQrhoBTKKGwrTQDJAA0AxxAPM2wniEBoBngABZoxgkFvNyVNJm4P9RLZJyfbWBMF6QMHE4yqQZswTj4wLg2YuO2LmHbxiB9rGsoSzMBt9cSChucArBiRM/ErZpM8Op+pteEMV0QSBrIWjPUN89HsWsj87GkCcw0I0EzDwp9oNmqyQTv4o7m86Prn6ohqccy5ez1PqkCKZppa8bJ9PkocW1kW1MQzbp0oEUOja3bIRRs0X7CRt3a39smzVZNJvSu+XHYmT4efTmhB+XIdPFjdUUMe2maJdYMusIa10a2NQXbNjQwmjVf2PRopuiRajJhRrPlnSndbBF19GjWo4tnimbGmqFHs9i1kWlNsbg5vzFNH+saMAWQABs0W74zYk6kmkyYezNFsycTNagNzL0ZxbOsRrOVNYO+OY5dG9nWFOqiGfbSxwoIhJUFjfmRuugtM00m9ExzFgx+p8YmvvCR6WLG3n+dbrCyZnzvh2TU+IlxbWRbU3ygbuuWw4PR6lgBgXC7bjbrXV1zOUAzsXBKs9WiWCVAOm++sK3SOWjmtBA0K4aAUyihEDQrhoBTKKGwrTTDspkE+BduMCMRfrtwg5qOHrAG78INpp9Eic5eNtygrqMHbMG7cINFn4a+7cIN7D2Ej209W+/CDb6ezkhv3yrcoMyRCLi9llDo5xRg+3CDiMwcW4YblDkSAadQQqGnNKsQbqDes2W4QZkjEXAKJRR6SbNK4QY0CUW4gaeFXtLMLiCdiwVoBjgAaAY4AGgGOIB4mmEK4LSwrVOAslqTgFMooRA0K4aAUyihsDmabRtuEM2Cw3Ob4QaljlLAKZRQ2OBotm24wSfxeyI74QY7HTzgAg2EG7AHw2a4gQcOBGyLtw2EG7AHw2a4wU4HD7hAE+EGxDmb4QY7HTzgAk2EG5AHw1q4AdbNnBY2uaCxXbgBeTAW1sINQDOnhSLWzWoINwDNnBZKoBnCDcQXSqDZjoB0LhagGeAAoBngAOJphmUzCWiKZgV6+6XYiWYCbq8lFEqbAlyitz9fo5l5qI4BmjVfKJZmGb1dsWx8MBp3LvoHo/mP+oeTWdAj8b1IOq+SU1+wRV8AG3Vrf+/GaZbW27WCTmR7PJq9MTycnI2eHkckvvNbMJo1XyhyNNvQ2+maeTZ6OB1TXtWpYhi1EYgXdTEFEIvGaHaZ3n4czV+9x1fTmGYkvqeOdQ2gmQQ0t6CRr7fTyPZAhwOND8/73UW/R+J76lgBgRC/bgZIgHiaQTp3WihtClABoFnzhaBZMQScQgmFoFkxBJxCCYVtpRkWNCQANAMcwBLNlpe7KzKhBrScf/YBR7AvNsIMKoYb7HrsQP2wNZql0gxSpgr15VqoAadmUJ+J25ONMIOK4QY7HztQO2zSjPQiNSTN9EhFiQazjVAD3VNC02w9zKBiuAEcGu1xaJg0g8ejWY9NFTPiV8RfZkINuKfEJWEGFcMNyh2ggFmchMKGZ5pmNGNnxTG1/+oSX9SXa6EG3FOCRrPhYCPMoGK4QbkDFHAKJRR6QDN11/VEc+uJDs1gv0U21IB7Slyou7fxYCPMAOEG/hc2S7N4pkmXuEW/pzf8ZTbUgGeOP+GOhhebYQZVwg0ACXCzbrZbqEEM0EwsnNBsx1CDGKCZWIhXAQAJEE8zTAGcFrZVOgfNnBa2lWZltSYBp1BCYSM0K6OYx/f/RjGP0r0A0p0DqkrnJQ9VwCmUUNjMaFZGMdcdghPFPNULINs5oKJ0XvXQAYewQLMrFHOmVkoxX/UCWOscUFE6LyuJY9vg1gbNihVzplZKMY97AWx0DqgonVc9dMAh7IxmhYo50SylmK96Aax1DqgonVc9dMAh7NybFSrmZjSLFfN0L4BM54Bq0jmmAE4LG51pFinmlF0wXSnmz1K9ADKdA66jL4CAQh/Xzewo5glAs+YLPaSZJcU8AWjWfKGHNLMNSOdiAZoBDgCaAQ4AmgEOIJ5mWDdzWtjsFKCCVcNWuEHJIxRwCiUUNjzTrGDVsBRuUPIABZxCCYUe0GxLq4alcIOSToHPyzoKEG5go27t7+0w3GDdqmEp3GDnQwfqh8twgzWrhqVwg50PHagfLsMN1qwadsINAAlwGG6wZtVAuEGLID7cANK500KfpfM6ww1AM6eFPtPMEkCz5gtBs2IIOIUSCttKM0ACxNMM62YSAJoBDmCBZmejcRAkipDB4mS66Hd+9UGfn2V68Ui7Lw5eSdetZRvU69AAmsTuNJv/4P6di5Nnd7N7w840HJAZ44RzDGL3hRaQjIuDszRWgENDQGFDUwB2XDAj1Fed6fxH/UOyWNBjvsyOmGbGfUGRGVQyIxMaZ2mMD0ZjUgSCLhwacGhcBnZcMJnCQRS+oS555C6bDRTNIuISX/Q609h9sTh5xiVPj1NZGs9J8yRNs06HhoCRQkJhQ6MZOy6YEeqr+fH8lAwY/YBpRvJ5PJrF7gs1mlEJNaPQWRrqfQ+N3FmrQ0PAKZRQ2BDN2HEx5dGsq7jBHCKLBV00BzpYStNMuy/SNNNZGtH81Xtq+IqqZmgAErArzeiiOGAXBt+bjQ/P+91QXSafBoPnrwTqOzPT1O4LmmlyyaL/hs7SUHdn6jI5PwqqZmgAEuDHutmXk2h598oq0Ews/KBZeNljURmAZmLhB83KAdJ584Vtlc5BM6eFoFkxBJxCCYUtpdnvQTOnhY3QrEymQTQLWA2vp/0ElHMRcNB+4hP+t6b2E6CZCNTffmLR70zraz/x+7XvsfVyW3/7ia/JqlFb+wmMZiLgoP1EpDhXW/sJTAHcFjYz0yyTaUBXyvraT4BmTgsbnWkWZRqEpgDtJ/ah0Md1M7Sf2LtCD2nmpP0EIAHSVQBABEAzwAFAM8ABpNMM62ZuCz2cAtgGaNZ8of8004ts7NPozo86U7JmB8aFocXxrJQe0cN1i7cm/L5eBJr5UOg/zXjh//loeVsRZ7AcKuI8MWEHceTBWtqBod38dH6aOtYsQDO3hTJo9nxk8rSXvxgONmimrRvkOxsHr93Tro6TC21Tg0ND8tYpzdihYUazu4s3R2s009YNsnmQGDpgV0fYmfK3BDg0xKKB0WxIKVXLu9H8xsMszbR1g2weZyNFM3Z10NProJl4uL43mx/rBmH09G94ODEuDP7XWDfY5mFGs7Dz7AqaASLgeqZJPo1D7hCmqPPgvJ9MPg/um7SDC23zYNdGMJgFt4bx0wCQzpsvFDAF2ArhYGMXaNZ84Z7RbH606e4AzZov3DOa5QE0a76wrTQDJAA0AxxAOs2wbiYCFtIa6akSdb/OAiT1Ari/kVuQijog43a+VI5wgz3GzqMZr+A/iSMLkl4AWbNFKuqAVmfzpfJq4QaYAjgtbGoKkNCMde+kF0A2t2AVdZChWVYqrxZu8HlJCbdsXYS+ADbq1v7e1mimdW/dC2Ajt2AVdZCm2ZpUXi3cAKOZ08JGRzPFjVl8D6V7AWRzC1JRBymarUnlCDcQUNgUzZbv6O4TWvdOegFkcwtSUQcxzTal8krhBpgCiICF1mBH1KLJ6N5/90pw+Gi4nlvQXUUdGHE8Ryr/CfoC7C8crpsVRx3kSOXrAM3Ewh3NiqMO8qTydYBmYiFdBYB07rawrdI5aOa0EDQrhoBTKKGwpTTDupnbwrbSzPlRABWwFc1y7BijMWUVZCv4q7P7yfLZ4a/fX7kv6J1su+iuffhakwD9EHDa5QGaycV2o9mmHeP+nYuTZ3fXKiLdbYKzDOY3ppRKm7gv+J36keDsZ68lG8RNBDaONQvQTAQq0mxlx+B93Bl4/qP+oXm+1+QS0NO/j3ULFOO+MO80AQdD0gA6HwW9UA1z/ML4YDRmlaCraUYuD/pYtJ+Qva1Gs5Qdg/eFgyh8Q10StRDJGmXcbeIBj0iJ+0K/U49m9C4S1B9MFp+umlI8J/EzfnfYecYfyz8dU4DmC51MAXLsGLxP8WB+PD+lFhNMM91tgkczTZHYfWHeqQMO+F3L2+cPT58kH3k2esi651T3qljemfLHpo41C9DMbaETmuXYMfRopr7pJTSbn+puE5xlQDaeWS92X5h36rsuflcU3nhEIVT6hWj+6j36XN1pbHw1zbBu5rbQzYLGhh1jwuYLvjcbH573r7P5gq54OpQg4N455MBg98XBK/zOF4+49yG/Sw106jIcf+SUxkr1QwL+oM50FgzoY7upY634ews4hRIK92jd7MsJJ7lsANK5WPhIs/CSVrCgmVj4SLPLAJqJBWgGOIB4mmEK4LRwj6YAlwHrZs0XNkmzdSl8JaCvcPZBIp/Pj4I37kwT4f361UJ6+lizAM3cFjY6mmWk8MXNREBfgaR0I58v3iQRaboS3ksI6aljzQI0c1vYNM2ikJZfR7PXXv446CUCeuei35vxgu7BKAkv0ARKCe9XC+mQzmVv7Y5ms1vDzvTpsRnNYmn8bKSldCOfj1nTPJwkwnsJIZ1/CoxAYmGJZiyFa0mJHjFPBPT5MbNES+lGPg+7USxqDmIb0VVCeupYswDNRMDeRZOsG7MUzeansaA+PnyXpXQjn8+PBvSGlfBeQkhPHWsWoJkI2JppkhQeBkHn55SS97oW0FkaTyL+k/ACmmmq0et5LLybdxcJ6ZDOfSnc23WzlZAOmjVfuLc0WwnpoFnzhXtLsxVAs+YL20ozQAJAM8ABpNMMCxoiAJoBDmCDZlUMGhe6Bg4NYYVNTgGqGDS4ZgmHhrDChmm2tUEj7g2wq0Pj85JOgbJ1EdpP2Khb+3tbHc22MWicZ2hW3aGB0cxpYaOjWQWDRno0g0Nj32HtormtQcO0oNjVoQGIgKWZ5tYGjYWu2d2hAUiA/+tmVzg0AAnwn2ZwaPhU2FbpHDRzWgiaFUPAKZRQCJoVQ8AplFDYVpoBElAvzXIaCeh2AR+wXD4/6kzpFp8bbS5WvQNW79Wy/CB9rIBA1DyabTYSMO0CtMC0pKXYJ0YRWPUOSL2XlPhZgQoAiIArmq0aCeiAbSOX/2I4WNEs1tapc3Dn570VzWh19hLpHFsRW0c0SzUS0IH/ZjS7u3hzlNAs7h0QzQaLk/fj0ayfeNEwBWi+0M8pQE4jATOasVy+vBvNbzxMaKa1dZLg4wfSaTSjyPfUsRb+OpdDwCmUUOgnzXIaCbBmfqzlclKRwkMjo8e9A0iCnx+fmRYD6qJpHGqgmQeFftJss5HAI24X8BOWy9V+xaAH530z+dTa+rtB8L0f3hq+eGT29pZDrTaBZs0Xekozm8BMUyxAM8ABQDPAAUAzwAHE0wxTAKeFbZ0CgGZOC0GzYgg4hRIKXdCMWkN3fjWan268ks4iWA7piRJVpxfN6N/eev7Bxpuiqg4N0MxpoQOaKVpwz4jhZu5AJotgccK9JUbzlyfR4s3R1xRkUCLAAA6N/UV5mnFCAZ/x+Y/6h5M4yuD1/qExYCw4yEDtOz+Zch2LRPTP/F6ZAAM4NPZ3W55mnFDAHgs1SlHcAEUZPFPXOPWCNmDQE+aKIJzCQnVjGr0UR8ZBt0yAQTWHBiAB5WnGCQURexOpyb2JMtCPmWsDBpMlsVaEg2Q0Y45dGWBQzaEBSMBWo1nYeTrQgQWPRybKgPIIesaAwUEGHzM/2ItBt/h0fxZFD6clAgzg0BBQWPsUgGMKuGfE+PC83zVRBmpIUldObcCgO6zBmDwYXd1bQs80xzre4KoAg+twaAgobGjdbLY566yAVYBBEUCz5gubodlqmWsnrAIMigCaNV/YVhUAkADQDHAA0AxwANAMcIAaaXbGCQadi2x6O4nq6gVaBXnxKNSuV0AAACAASURBVBbLQ3r0ZGaeR+HJAEvmvYif7swe6xowBXBa6N0UgHIMbkbLOx+lWlHQWmsccKD+H4vl82PSBz6JtFz+fGRK9ZLu+rGuATRzWugZzXQrgJvLu9RigjV1NT71Zup/JuCAaRaL5fz8Zr8z1QrnkoXzmyYImYX6y6Xzz0tKuGXrIvQFsFG39veui2a6FQDJ3ss7U90cYBBFT4+TgIOAVUwtlj8eRfPTr6fs8qBrJgvn/FXI4nxBXwCMZm4LPRvNdCsAPZppmpH1Ql0dIxNwwKNZ3CpgoNWExyOdfMDCuRrNhgP1ZlZQU8cKCESNo1nYubgZUV+mqW4OMGCaJQEHTDPTKoDvzZJuAccsnKv3jkGzPUFdNDOtAHgCOYibA3QX/R6J6ufxTDNuFTBWhaFOQVC4NTTCeWc6Iy3+vI++AMKBdTPAAcTTDFMAp4WeTQHqAGjWfCFoVgwBp1BCIWhWDAGnUEJhW2kGSABoBjjArjS7tMHEKOOuYAsGY6aXzVhOz6QboP3EHmPn0eySBhPZfAyzzE+IfRiEbLoBwg32F/ZolmkwEWlFaX50/VNyZrBoOaMchNiHwe/lt/AoNg5eu1ct3AAOjVY4NPIaTNCu+XHYmT4efUm6OImS8x9zDoL2YWia6bc8Hs0o7yAcoP2EgMKmZpr5DSZoNFvemdKdFvFGj2Y97dBgHwZV6reMg6CrrqhEM7Sf8L6wKZpd1mDiByNFsycTNagNzL2ZzkFIfBin5i10wQ31aIZwA+8LG1s3y28wcUDhQYPf9bUzIyILBuUgTMmHwbNHdf+VRCJ0jZ+jSrgBIAEO182KcxDCQdGrDNBMLNzRrDgHYX50dUoCaCYWUAEABxBPM0wBnBa2VToHzZwWgmbFEHAKJRSCZsUQcAolFHpBs7PRONNmYhF7MShiO15NO/z1+yszhpbYd8jQACTAKs3mP7h/5+LkWSreMxbJjW/j+Wh+g/oHrMwYbNLYJUMDkACLNOPYDCYKJxlz9oWmmQ7U4AfK9ZO9sRnDmDR2ydDAVsLWIs10fwoiFnWZeIOzL0yLABOooVj4gAeoxIwRmzSqZ2gAEmCRZro/BRGLu0zoJhVMMx2owaOZZkxsxjAmjV0yNDAFcFrY/BSAYzPYS8ZdJhKazU91oIaOx7gxpQukMWPEfSt2yNAAzZwWNk8zTspgLwbfm1H2xXX2YrAl4xbHYwxo/OoujBnj4BXTgmKHDA3QzGlh8zSrHaBZ84VtpRkgAaAZ4ACgGeAAoBngAOJphimA00KPpgD5fSf0sym0lrHUzatZMV+mxPJK4QagmdNCf2h2Sd8J6hO8eHNEj2rO77EszquyKbG8UrgBaOa00BeaXdp3wnQ+p+c6fztlmoXmoc5YLEe4AcINyuLSvhNjuvTRE8O9xXssLGnFPCWWVwo3ACTAOs0u7TthRrNo8dbfaP0yNZppsbxSuAEgAXWMZvl9J8gnS/dn0ZhutTL3ZkYsrxRuAEiAdZpd2ndCzzQj8/Q5CeYks2fEcoQb7CuwbobCbQp9mWnWCNCs+ULQrBgCTqGEQtCsGAJOoYTCttIMkADQDHAA0AxwgF1oRqJS51ej+enGK+muAMshLZupOrNwpv7t5ccZoP3E3mIHmikuUbeJ+8PNsM9MX4nFyZS7UhiLxtf0jF1unAEcGv4Xup4CsBODCcDpA/T42+y1lz9+nZMIPuEHyMmeofadn0y5LhY1yQeUG2cAhwYcGuvQUQbUbUKNUvQw7+yWdiuSOs6RBaSbK77wA8JUF1s0xkE3P84A7Sf8L3Q9mp2Z2BV1PeTHy/kJ30i3mNCRBWzPSJwW4SAZzZa3J7lxBmg/4X+ha5qxE+PpIE4xIFuFppl6wUQWkD3jY6YLd6VILBrRw2lunAEcGnuLyjRj88XzV4LDCacPhEHQ+fnhhFpMPFv1laBoAjWX7HKdmWmOeeaYG2cAh8a+wvK6WXGLiR0BmomFXZoVt5jYFaCZWIhXATAFcFrYVukcNHNaCJoVQ8AplFAImhVDwCmUUOgRzUqEG0whnbcKDYUb2JPOAQloKNzAnnSOrYRtQ+EG9qRzQAIaCjeAdC600JcpQLlwA3vSOWjmtNAXmpUON7AknYNmTgt9oVmNAM2aL2wrzQAJAM0ABwDNAAcAzQAHEE8zTAGcFrZ1CgCaOS30j2b5Rg3KOVAv0IMpLx4ZT8ajvGYU6iuSDFKmb9Cs+ULvaHaJUYNzDmiBX/0/8WTkNaO4yXs3j3UNoJnTQs9odqlRg109Mc2MJyO3GcVNI0VxdgIcGrK3ddHsUqMG5xzwJbEzTTwZec0o+KuQ8xLOCnqdAxJQF80uNWpElHMQj2bGk5HbjEKNZsOBlt8fg2bCUeNolm/UmBk2aZppT0ZuMwr13jFotieoi2aXGjUo5+A8nmkaT8YktxkFXVZnFI9w3u+mjnUNmAI4LfRsClAHQLPmC0GzYgg4hRIKQbNiCDiFEgrbSjNAAkAzwAFAM8ABtqYZZw6EHL5I4f+c+D8OguRhyrjsZJojkh+8kq5Ldw9AuMFeY/vRjB+ffDIx4f/cGeDOxcmzu9mqsDPNE8kXxq5Bi6/Z7gHoCyCi0NkUIKEZhf8bCtC+5VCNPkmPAJKYckTyWAonYVN/wPhgNOaY2i76AqAvwAoxzXT4PyvhvC8cROEbRueekUqUJ5IvTrQUThq6/gBWMVn0RF8AAYVuRzNFhll806T4RfsUvebHSY8AolmOSE6jGZXM2arBH3A2ejjl1ucINxBQ6IxmFOlDDNDh/7OEEWE33SOALpo5InmaZvoDovmr9+hTFKHQF2BvUWFBg0MKlib8/+848Z+iCvjeLOkR8FQ3DVgTyWmmySWL/hvmA6Y0MqqPDK730Rdgb+HHutmXk2h598oq0Ews/KBZaB40KQZoJhZ+0KwcMAVovrCt0jlo5rQQNCuGgFMooRA0K4aAUyihsK00AyTALs10nsFgfff8lJ8P5unkLDj89fsrM4Z2aeQ1oygZbgBIgFWa6TyDWSfb3UTxiZbxdW7B/MZ00e+tzBjs0shtRlEy3ACQAIs0M3kGpCCRIpBEGgRdNmXoJ331I5dJqoF2aeQ2o0C4wR5tLdJslWfAbo0e2y74n/nLE35FXQ4f8ACVmDG0SyO3GUXJcANMAZwWNj8FMHkGZKhgtwYzjGVL7dvg0UwzJkk10C6N3GYUJcMNQDOnhc3TLM4zoK1xa4wPP6b5QEwzcgopElI7HZNqoF0auc0oSoYbgGZOC5unWZxnsBwe3Ce3BkcakPeCTRnf59yCAY1f3UU/MWxol0ZuMwqEG3hY2DzNclHOe1EOmGmKRd00K+e9KAfQTCygAgAOAJoBDiCeZpgCOC30dApgE6BZ84ViaUYZCP/bEUlOQaDXPBbZTgLJ96BZ84ViacYZCKyuP5lo4T1c095DhBt4UyiWZmzoWP5iODA044h3ym0xsQcclADpXPa2eZpxBsLy7uLN0ZOJFt4VrR6PTHg7faGfYMdMUzA8oBldN5d3o/mNhxMtvCtajSnJimIP6AvQTDyapxlnIJAgFR5OdJKBohUlDnHsAX0BmolH8zSjDIRHQ3JpPzjXwvv/qpsIcCAMfTEztm9MAZovFDsFKA/QrPlC0KwYAk6hhELQrBgCTqGEwrbSDJAA0AxwANAMcADQDHCAemiW06OCYw+688SKsf5oetX2E5gCOC30awqw2aNitLw9oQcvjRXjZJ1laD8hotBTmq16VHA/815sxWAKhW8HbweDpN0E2k+UdTy0oP1EKeT0qDCjmbFi0OuLfnfWpbQg024C7Sf8L/RwNMv2qKBHfbtRbMVgCs0G9Gx60m6iUvsJQAJqollOjwodIxVbMbi1hKZZ0m4C7Sf2FnUtaGz0qDjv08RzmVgxAn0HFqTbTaD9xL4C62aAA4inGaYATgv9mgLUAtCs+ULQrBgCTqGEQtCsGAJOoYTCttIMkADQDHCArWhGcdidX41IH1qD7iJhYAwZul+rtl1wOka36E1VHRqABGxDM0UL8lrcH/Y2XmIjRgw2ZMTdp43tQiuaBW+q6tAAJKA8zbi7BJ9xbghBicSz117++HVuDvEJZ/pTvwnaR0UxzYztwvgzuC1F56OgF6p3sXvDJGVQ8DEcGnBo6O4S7LXgbhJRNLs15OYQ6gVtxKBGAIogUy7iq53inrFd6NEsbkvxYLL41LyJkzK4hQAcGgIKa59pnplOOOqSyDH/HLpO1JofGyNG3NaEi+LRzNgutD+D21Isb58/PH2SuDcoKYNT26s5NEAzp4W104y7Szwd6L4Sj0fko9A0Uy+YLhLcb6KnDRkJzbTtQvszuC1FFN54RLd3+k2clDGju7ZqDg3QzGlh7TTjbhIUeDHhhhChuiT+/HCihiSaUbIRg+6wBuPDyXNtyNAzTW27UKBbOLo3U+x7L3oyid0bU7KlUZOK6304NPYWu66bzTZnnRVQrkkFaCYWO9Jstcy1E8o1qQDNxAIqAOAA4mmGKYDTwrZK56CZ00LQrBgCTqGEQt9pttgMN4jF8iTqIKulR6zVv8Uru/SgCmjmQaHvNItywg1isTyOOljT0g3t5qfGEoIpgFg4pdl6uEEslsc0Yy2dx7hx8No91uoXJ7ToqwYztJ+QvHU+mqXCDZI4A0MzraVTwwlSpAas1YedKX9LwGgmFg5pthlukIjlmmZaS6eGE2cjRTPW6pd3QLM9gNuL5lq4QSyW6++Mlk45QqEZzcLOs6tohimA00LfpwCLzXCDD/qJrs5RB4kA32WZnv+ZBbeGsU0bNGu+0HeabYtwsLELNGu+cM9oNj/a1ORBs+YL94xmecAUQCxAM8ABQDPAAUAzwAHE0wxTAKeFDU0BzkbjzdgCeqJpM+Dg4JVUXUjrZzNu2GoM2mg/IaGwGZrNf3D/zsXJs7XHRcLONC/gIFbIFzfp2c6zUfRJpJ9Of87+H7SfEFDYBM3YQ8F04CfjktADEiJzAg7Ul1wyC3ohP8rZ70z1U+dLtJ+gLcINcqHzDogOlFrwhrrecejBQNEsL+BgcfKMS54e0/Pr89Ovp5y8oalatf0EIAE70UznHRAdOLUgCT0gmuUEHNBoRiXqismjmap5POLRLEL7if3GrqOZug3j0aybDj2gi2ZOwEGKZvrejFwb7M44RvuJ/cZONGMPRTSmhkx0b5aEHjzVKQhrAQc00+SSRb/Hbwp1hwqFW0O0n9hrYN0MhdsUtlU6B82cFoJmxRBwCiUUgmbFEHAKJRS2lWaABIBmgANsldbYmYb03Ag/DM4dAsq0CVgO6RESVad7bNK/PYvSOSABW4xmcf9ynUHA2nipNgHqfVw8f3kSLd4cfU3rufakc0ACqtCMMwj43JdqE3B+ooV0Xsynf+b3IkjneVtI59GKZjqDgLXxUm0C6H1UN6Zrn6LMOOhalM4x03RaWP9Mk0/7gyTP3zxKeXWbAE0Xfopcj2bL2xN70jlo5rSwfpot39FuDJ1BwNr4rEybAPUeXafmBXR/FkUPp/akc9DMaaGDdTOeKcZ5/n9HHQLKtAlQc8ku15mZ5pjHQkjnrYLldTM7bQIuAWgmFnZpZqlNwCUAzcQCKgDgAOJphimA08K2SuegmdNC0KwYAk6hhELQrBgCTqGEQl9plmPs+KCf124CDo09Rv2jWY6xI7/dBBwa+wuHNFsZO/LbTVRzaGArYeuOZiljR367CYQb7C8c0Sxr7MhvNwGHhoBCX6cAecaO/HYTcGgIKPSWZpvGDt18Yr3dxE/6lRwaoJnTQn9pVg457SbWAZo1XyicZnntJtaBKYBY+EKzMgDNxAI0AxwANAMcQDzNMAVwWljrFCBH/74/XO8GkIhIOT0BuGXmen1GOUdfABGF9c40C/TvFEKtcef1BNCdzrPlWeUcfQEkFDqiWUb/Dt8O3g4Gs9f7h+ecZLC8M50fXf80rycAtaAOexRRe9HvfBT0QjVo8WeND0Zjftaui3CD1ocb5OrfF/3urDv/MQca8CPmimaPR19O8noC6NGM2gdQ6YPJ4lPzWfzUOb8b0vn+Yhuabejf9KD5/JQDDWKamXurjZ4AdHvW1e0DlrfPH54+ST7rbPRwSqLTFH0B9hclaZavfyc0C3ucZPDozvTJRFEupycAXTQj3T4gCm88orAq/VnR/NV79IGKUOgLsLcou6CxoX8/GgbfV3dQQXD4MV8cKclgFgx+18/tCaBAoxy3D1B8Utff+LOmNEiqTw+uV5POAQmwsG5mIdBA3c8t715ZhZlm84WNSec2Ag1CEwxaDNCs+ULhDo0yAM2aLwTNiiHgFEoobCvNAAkAzQAHAM0AB9iFZmel2k/kGTYo4B3tJ1qEHWhWtv1EnmHDXvsJTAGcFrqeAiyH1HCiTPuJj3MMG2g/kbdtvUNjEyFp5aXaT+QZNtB+Qmih69FMMesxXeuubj8R5Rg20H5CaKFrmlEeQedpmfYTeYYNe+0nAAmoTDO2ZJRpPzHJMWyoN6H9RJuA9hOAA6D9BOAA4lUATAGcFrZVOgfNnBaCZsUQcAolFIJmxRBwCiUUekGzsw9SSvcKJK4vjUY+Cw5//f5KJWeRXc8cQlq6WAnp6qtexE+FZo8VEAirNCOJfKV0J1iyuK418vkNEjtXKrkW2enxOl6xTQnpNyP90N36sQICYZFmLKZrpVuHGJB0TqNSl8V1rSo91hwyKrkJS2BChUYsiIX0m0Yj4DejL4DsrUWasZiule44xOBMxxawuK418gc8QCUquQlLIJqxmp4S0vmrkNX4M+1ew2gmFhZpxmK6Vro5xIAZxk/8anGdRzPNmFgljwMOsqOZFtLVaDYcUPjLqRkCMQXwoLD5KQCL6ResdHOIgZbOaT4Q04w0ckVCxSajkscBB5l7MyOk34yiMWjmW2HzNDPh/qR03x/GeQcUW9Alcf37rJEPaPzqLkyOwcErJuCAQw7GZqYZC+nkT5uR+H7e76aOtfDXuRwCTqGEwuZplotysQXlAJo1X+gpzcrFFpQDpgBiIV4FACQANAMcADQDHEA8zTAFcFro6RTAJkCz5gs9ppmOKYiiVe+KUcHraZyNFm9xOjJFIYBmHhR6TLO4+0mqd0XB6ynowvmpSekAzZovlECzVe8K3bgiG2NgXufIlnHw2j3t+Di50M4zODQkb13SbNW7YsGNK06zMQbm9cejGZk7wgE7PsLOlL8lYKYpFi5plupdoTsKZGMMzOvjIOiejVQNOz6Wd0CzPYAzmqmxK9W7QtMsG2NgXqfOUKEZzcLOM9BsH+BophnQXVi6dwU3rsjEGNxfZSJ02dxhOlrcGsaDIKYAzRf6PAWognDjwRXQzIPCPaPZ/GgzJgE0a75wz2iWB9Cs+cK20gyQANAMcADQDHAA0AxwgPI0Yx8F5XmmjBYetJ/AFMBpYf1TAJaEnkzSRgu0n2hboUOarYwWaD9Rog7tJ7ZyaMQ0WxktIrSfaFuho9FslXth9KCm208AErAFzZbvjPjUZ4wWaD8BlMA2CxrzI90vIjFaTNB+AigFtJ8AHEB8+wlMAZwWtlU6B82cFoJmxRBwCiUUgmbFEHAKJRS2lWaABOxOsxxJnZtQdC5Osv0BeD2E1l6XQ3qDJekckAALo1mOpE4x2Hc+SrWhUDvmL0+ixZuj+bEi3D170jkgATZptpLUFzeXdxXRkg4UvVnQ47X8sEdawm+n9qRzbCVsLdIsJamz3s0PjFM+gbrmPT2OxnTpI5Wqt3gvgnQutLC5KUCOpG5GM00zIo66SJrRLFq89TejyJ50Dpo5LWyOZjmSOvWOiHTriPHhuwOmGU0Q6P4sGnemkT3pHDRzWtjggsaGpH7e1/PIQRxS0F30e7osMrqnNekcNHNaiHUzwF+AZoADgGaAA4BmgAOIpxmmAE4L2zoFAM2cFoJmxRBwCiUUekCz5TDRhbJgESrttTC7CLPg8Nf36N9zhBsIKPSAZkn+P4sAay/dTHktUq/Pb9Dj6dqrAYfG3sI2zTjpgJP/OdjgXW4zofbTLvZacApCQPaLJXWq1m3MtVcDDo293W7Q7ItrL3z1Ry9ElbA4oXSDs9HTY2oi8cawc6HbTISdqdoVey1mA/WN2hUOorD3gAcv7dWo5NAAJGCdZt/8+Td/GX3zZ7+s9GE0mtEj6PNjbiJBT6Fz/j+J6MfGa0H+C/WN2nU2ikghN+99PEK4wf5inWZ/+BeKZl985zeVPixFM7I5btCMvBbaf0E0C8l7RhwiLZ28GnBo+F9oawrwxbVr175dbTCjmSYnHaiberrWjeM2Ex+TTeN17bX4J/SUQL83o0cCAo4LCvQNmw57gUPD70KrM83/pxrPagZo1nyhDZp986fXNCoOZzUDNGu+0Mpo9tfmnkzQaAZIgHixCZCADZrRhfO7DR3MFQDNxGJjQeOnL6jZZsXl2ZoBmonFxvLsP6Tbsx3uzfKzDrQqSXt01vHvjjidFn0BpBXaWtD425+pf/6PHaYAeVkHRlLnPRx88AknGqAvgLhCqwsau1w087IODM14Dz8qrPBwir4Aa9u29AUwCxpf/aOoOvKyDjTN9B6jhS/eixBuIK/Q1kXzw12XZ/OyDjTN9B4zmukLJfoCtAObDo0//Ivom7/c4RPzsg5YBDd7jKfxIXEHfQFagg2a/WX0xUt/+Ke7qAB5WQcB3W/xnhePKPiArpnoC9AebFw0P/v2Lz/0dH0WNBMLODRQuE2hlQWNP/ulXtOAQwOFVj9wYzT76x1VgBoBmjVfaIlmVR8DcAHQrPlCW6MZ60yCRjNAAjZGM2n3ZoAEuL83Y+OGBseDJjEHjEXazbEG0Ewschc0dtI0rwLbNBjL4Xr3TYpASLs5sgDNxMK+pnkV2KYRcujB7LWjQ1KbyGqWpCJk3BzkQRsHr92DQyOzFe7QsKFpXgG2aSx06IFi0qwXUpDG7I04FSHj5lAv9Kh9uvY1YqbZfKGtBY3dNc1iaJuGfhpdMWh+vLwzpSSE+HH1jJuDXjgbgWb+FNpa0Khb04yNG4ZmYU/RjEyQaZolbg56IcRo5lGhLZrVC2Pc+N4PTehB0DVdKuJUhNfTbo7OBXeuiB8GwBRALEQ8p1k0mgESkJXO/7zBI7kc8yP9tBNoJhbrj5z4uf6vAZqJRZZmf8lik58PA2MK4EOhxSnAZ56OaaBZ84U2aEbLsn/4qa/KOWjmQaEVmpE946WyH7SB6n0BqB06wg0kFFqh2Y6exsp9AZ5MSIFCX4C9hR99ARTORugLsL9byzSr2Bcg4kgN9AXYW1gfzSr2BZgNEG6wx6iLZlv2BaDrIvoCCCj0QDrfpS9AEPwEfQEEFHpAs7oBmjVfCJoVQ8AplFDYVpoBEgCaAQ4AmgEOAJoBDiCeZpgCOC30awpQrgnFNPsWODT8L/SLZuWaUEyzb0H7Cf8LfaVZURMKHXGQODLQfqI14Qa2UKYJhYk4SBwZcGjsLWql2VVNKLSwnjgy4NDYW9RFs1JNKDTNEkcG2k/sLWpb0CjRhGKp/RsrRwbaT+wrsG6Gwm0KPZtp1gHQrPlC0KwYAk6hhELQrBgCTqGEwrbSDJAA0AxwgHpoVlI5nwWHj6ifJq9XVJTOAQmoy6FRSjn/xFTqhtQIN9hf1E2zIuVcDXLTiHudLyGdR5DOt0cZ5Tz6eqoYp746IF2qqnSOmabTQr9mmqWUc4XHIx7NourSOWjmtNAvmpVSzlXZ7QnvPq4unYNmTgv9olkZ5ZwzqJY00wxuDSGd7zWwbgY4AGgGOABoBjiAeJphCuC00LMpQB0AzZovBM2KIeAUSigEzYoh4BRKKPSFZuXMGc/YiBHSmhgcGi2A/dGsnDljeVvx8DjSa/1waOw7aqRZkTmDZCbqxsoa1E4ODWwlbOujWaE5g2n2eBTxM+c7OTQACaiJZleaM7KjGRwaUgp9mQKUNGdk7s3g0BBT6A3NSpkz6KWp+qe3s0MDNHNa6A/NagNo1nxhW2kGSABoBjgAaAY4AGgGOIB4mmEK4LTQlylAOen8ok/LGjbCDUAzp4W+0KycdP5wQrqTjXAD0MxpoX80K5TOIxIAEG6Q3SLcoDzKSedR9HBqJdwAkICmpHMSOyMb4QaABDQlnfOF0Ea4ASABDUnnIQ1sCDdoDbBuhsJtCr2ZadYH0Kz5QtCsGAJOoYRC0KwYAk6hhMK20gyQANAMcADQDHCAhhwa0zFJSAg3aAsacmg8HUTjgZVwA0wBnBZ6MwUo5dDgB86thBvAoQGHxqUOjbCnaGYl3ACjmdNCv0azqxwaTC6EG8gr9IZmJTtPqI2VcANAAhpzaNCE0ka4ASABWDcDHAA0AxxAPM0wBXBa6M0UoD6AZs0XgmbFEHAKJRSCZsUQcAolFLaVZoAE1NWE+gqfBu8Zrb0FDo29RV2j2VU+Dd6z9ha0n9hb1E6zS3wavCd8O3ibH9e8j/YT+72tm2aX+TRoz6LfnXXnp4kjAw4N/ws9mwJc5dPgPbPBrMdWoAEcGkIKPaPZVT4N3qNpljgy0H7C/0LPaHaFT4P3PFJ3YEHakYH2E94X+kazGoCZpliAZoADgGaAA4BmgAOIpxmmAE4L2zoFAM2cFvpCs3zRPAi686POlMNAWUEf0661N6L9hP+FvtAsTzRf3p4sh4PlsEcv8OvLOxcnz+6uvRHhBv4X+kezlUTOjc17y18MBzHNdBmk87ZsnYQbmNHs7uLNUZpmVqRzQAKchBvQM7/daHk3mt94mB7NbEjngAQ4CTegi2ZENIvCw4lR0Fc02006ByTAUbiBmj6qPYouD7SCPtLBBpDOpRV6MwWoD6BZ84WgWTEEnEIJhaBZMQScQgmFbaUZIAGgGeAAoBngAKAZ4ADb06wotyCFs/umscQsOPz1+yv3RdKCorv2huxT6FzSi1ivyh7rGjAFcFrobgpQkFuwgtn5fDS/MV30eyv3Bb9Ji5zZ6mD7/AAAIABJREFUd/ALqZ9yM9LiwfqxFv46l0PAKZRQ2ADN1nMLlsOgc9HvzVgDOBjpKPbHuoOJcV+YNxnLBtd3Pgp6oRrm+IXxwWis9qmxTtNMfcb8R32yoKH9RGrbhvYTl+YWhAPFnVkvOhuF9I9uLPGAR6TEfaHfpEezuP7BZPFp3JuCqDlbvTvsPFNX2jN9OcVo1nyh49EsL7dAsWF+zBw5o1FMj2aaIrH7wrxJWza4fnn7/OHpk+TTzkYPp6SFTmk0Gw6Wd6bzUzMiYgogFxVodmluQai+6ylWjA/f7alx6EI3lrgxpQLjvjBv0nddXB+FNx6RrVa/EM1fvUcfyfdm0Rg02xNUWdC4JLeAdqlRSH09oH9ucWOJAQ1TXbKQkfvi4JW4BQXdbnG9GujUFTj+tCkNk+rzg+u6H+IsGIzVx3dTxwoIhI/rZl9O2Ju2AdBMLHykWWgaua4DU4DmC9sqnYNmTgtBs2IIOIUSCkGzYgg4hRIK20ozQAKq02wLCb2ruwDwQoiJLwjp+ZMZJTYG5oYffQH2GDuMZltI6Pzi/OVJtHhzxGuz3Bg4+sR8ynOtFKAvwN7CBs2ultB1FwByYIQ9rZuzdtCn4YokqSXCDfZ7a4FmV0ro9OCvenFM1z6jND1Wl9DTr4l+WiJHXwAhhe6nAFtI6Pzixmimvo0FdvQFEFLonmZbSOj8Is0U6P5sdW9mHGUksKMvgIzCBhY0Skvo3eev8IyUZ5paIR+rq2ioawOqQbiBjEKsmwH+AjQDHAA0AxwANAMcQDzNMAVwWtjWKQBo5rQQNCuGgFMoobB+mu1iySgVZ4D2E/4XOhjNdrFklIkzgENjb1GJZhUsGWXiDODQ2NttFZpVsWSUiTNA+4m9xdY0q2jJKBNngPYTe4ttaLaLJaNMnAEcGv4XuljQqG7JuOiXiTOAQ8P7QtHrZpfFGWQBmjVfKJpml8UZZAGaNV8ommblgCmAWIBmgAOAZoADgGaAA1SmWVUhXf3bQ18AsYXOpwAVhfSvp2oH+gJILWyOZlsK6dH8HvoC5G/RF2ATVYX0cdBFXwCxhc2MZhWEdM0x9AVoFarTrKqQHkUPp+gL0DLssKBRTUgf6/3oC9Aq+Lhuhr4AewcfaYa+AP4WtlU6B82cFoJmxRBwCiUUgmbFEHAKJRS2lWaABIBmgANUolmOO2M03jRdLE6emeYSs+Dw1++vwguMGcNKuAEgAdVGs013xv07FyfP1ha7ws5UN5eY35gu+r1VeIExYyDcoDXYkWYrdwbv43V9tlRwfPGdqY5j12JRHF5g3hXZCTeAQ2N/HRo57gzeR56LN4ylYkaCpPZZPOARKgkvMO+yE26AmabTQqczzRx3Bu9jzwVr3ZRQkIxm2sgThxfE77ITbgCaOS10SrMcd4YezYw54/GIEgo0zYh4iiizXhxeEJsxEG4gsNDtutmGO2PCDSX43owtFWEQdJ6SPYOHrBndepnwgoNX+F3f+6GdcANAAvxYN9sh3ACQAD9otkO4ASABftCsHEAzsRBPM0wBnBa2VToHzZwWgmbFEHAKJRQ6o5kd3Twk4UC98sgUoS+AjEJ3o5kN3Vx3B/7EfNpzrRJAOt9b7EKzHXRz7nWuBsKp1jSXLJWjL8Debneg2S66ueLe/PRrCtfQRSyVoy/A3qIqzXbUzXk0U7s5+4CumSSKoi/A3qICzWzo5vrezGT+UBFJ5ZDO/S90uKCxu26u6tQbQv0xASUgsFSOvgDeF2LdrBgCTqGEQtCsGAJOoYTCttIMkADQDHAA0AxwANAMcADxNMMUwGmhkylAaXfGNG5H8WwYvHikrRcHr6Tq4NCQWehmplnanZG0oyDKGetF3J1icdOiQwM0c1romGZXuTOSdhREM2O9iHtJzIKePYfG5yWdAmXrIoQb2Khb+3tXpNmV7gzdjkLHYcfWC3I6UsnTYzg0WoYqNCvjzojidhQ0msXWixMd8q+umHBotAtb0qy0OyNpR8E009aLFM3sOTQACdh2QaOkO2PwXLej0DPNxJ3R5ZJFvxdZc2gAEoB1MxRuU9hW6Rw0c1oImhVDwCmUUAiaFUPAKZRQ2FaaARIAmgEOAJoBDrALza72a2iXBeHs/raJGuqrXsSSVvZYAYHYaTS72q8RmzKMXWObRI2bkW5VvX6sa8AUwGlhE1OAq/0ammbq+4PRtokaN40UxZ8Dh0Zmu+8OjSyu9mtomoXcXWLLRA3+Kuw8M76PCKOZD4WNjWbFfg2m2dkosWKUT9RQo9mQRHj+nNSxFv46l0PAKZRQ2ATNrvZraJeFGs3CzsWWiRo3o2hcgmaABOy2oHGVX+N6n2eONG3cPlGDHJGzYMCmjtSxAgKBdTPAAUAzwAHE0wxTAKeFbZXOQTOnhaBZMQScQgmFoFkxBJxCCYVN0ax83kFkdPIE2W8rhhsAErD7aFY678BUrLD2LdpP7C8s0uyqvANdsej3Zgej2WsvT/QbxgejceeiT4u2aD+xt1t7NLs670BXzHpkPuvE37KKOWNtHeEGewtLNCuVd6ArmFIztjHyG85GD6esOFULN8AUwGlhYzPN0nkHsU5+Go0PP1Y0099G81fv0bvItoH2E94XNregUb4bBVfQfdhgTH5sLZvTSKg+IrjeR/sJ/wtFr5t9OYmWd6+sAs2aLxRNs9A8aFIMTAHEwg+alQNoJhagGeAAoBngAOJphimA00LRU4ByAM2aL2yAZjnmjA9ShooV5qf8SPCl4QbalhHSCtnW4QagmdPCJkazTXPGKGWoSLAc9qI4tyA33IBjDPgpOoQbeF7YKM1W5gxtqCAF4IKtGDQqdeOcg8vCDZhQocne3jLcAFsJW9vhBtpQQe6MXqyRn43mL08Kww2YZpxwsH24ASABtsMNtKGC3RnMMJYt4wfQLws3WBvNtgo3ACTAdriBNlTE7ozx4cdEv1XOQX64QfbeDOEG+wfL4Qbn2lBxn9wZdFs2IO8FN534fnG4AflozUxzu3ADTAGcFnq6blbOe1EOoFnzhZ7SrJz3ohxAs+YLPaWZTYBmzRe2lWaABIBmgAOAZoADeCGdoy/AvsML6Rx9AcQUSpbO0RdAb9EXIBe2pHP0BRBT2NhoZkE6R18AMYVN0MyWdI6+APsOX6Rz9AXYa4iXzgEJEC+dAxIgXgXAFMBpYVulc9DMaSFoVgwBp1BCIWhWDAGnUEJhW2kGSMCONNvKpMGui87vjgKyYuTEGaD9xN5i19FsO5PGzWh55+mAxIO8OAO0n9hbWKNZKZPGTV6qJf0yL84A7Sf2dmuLZmVNGuqVS+MMKrWfwBTAaWFDU4DtTBo8mo2pLi/OAO0n/C9siGbbmTRuqq/ogno3N84A7Sf8L2xqQWMLk8b1vu5KQSb/3DgDtJ/wvtDfdTNrJg3MNMXCAc2smTRAM7GACgA4AGgGOIB4mmEK4LTQ3ymANYBmzRc2Q7Oq0vkkL86gknQOmjktbFIF2F46z40zqCSdg2ZOC5um2XbSeW6cAaTzvd02JJ3nxhlUks4BCWhIOs+NM6gknQMS0JB0nhtnUEk6BySgOek8J84A0rn3hf6um9UrnYNmTgv9pVm90jlo5rTQX5pZA2jWfGFbaQZIAGgGOABoBjgAaAY4QGWaVek9oTZvDAPSMp9ZCzfAFMBpofMpwNa9J1TB/MaUpKPnFsMNQDOnhc3RrGTvCdYtzziy/eHUXrjB5yWdAmXrIrSfsFG39vfenWblvBlUrEYvRat3eov3EG4gtbCZ0WyL3hPahXHy2/O3/mZkMdwAkIDqNNu+9wRNFcZd+l9kL9wAkIAdFjS27T3B80lFx/k9tbUWbgBIQK3rZjZ7T0SgmWDUSjObvSciTAF8KGyrdA6aOS0EzYoh4BRKKATNiiHgFEoobCvNAAmwRrPLpPTOxck0W8cvdJ4NgxePjFie2yWAn0xhgSF7rIBA2BvN8qX05Z2PUmI6rbXyCyf8uHkilucJ6Td57+axAgJRA83SUjqFGd9JdPTeTP2PXzA0M2J5rpB+0zzFydI7wg1kb+3TbF1KX96ZssCpaBQ9PU5eoBbTiVieJ6TzVyE7084Kep1jCuC0sPEpQK6UzqOZphlZL9SFUb9gRjMjlucK6Wo0Gw7Um1kTTR1r4a9zOQScQgmFjdMsX0qPIs2U8eG7A20FMmzSNNNiea6QfpPSNkAzzwobp1m+lE4XyQHr6HQFXfR7z/ULeqZpxPJJrpBOl1X1ZpLeu6ljLfx1LoeAUyihsHma1Q7MNMUCNAMcADQDHAA0AxxAPM0wBXBa2NYpAGjmtBA0K4aAUyihsGma7eLQyG1GUdKhAZo5LWyaZrs4NHKbUcChsUfwwqGR24wCDo092nrh0MhtRlHSoQFIgBcOjdxmFCUdGoAEeOHQyG1GAYeGj4WNTwF2c2jkNKOAQ8PDwuZpVjtAs+YLQbNiCDiFEgrbSjNAAkAzwAFAM8ABQDPAAcTTDFMAp4WNTQHKWjP0uhrlFy+HaD8htbC5mWZJa8b85Um0eHNEetP8HtpPCC30gGbF1gzOww57pEn9Fu0ncrdoP1GAktaMMV36SO20234CkABbNLvammFGs2iB9hPtgwWalbRm0ASB7s+iMV1W0X6iVbCxoFHOmqHLokhby9B+olXAuhkKtylsq3QOmjktBM2KIeAUSigEzYoh4BRKKGwrzQAJAM0AByigWY4mPuJ/5qcbtVyxeuNGfgGtWiSr+blvqiqdAxJQNJrlaOL0z/1hb6OUK2Lk5Rcsb0+Ww0HBm6pK54AElKLZShPnfzhugJ53m7328sevc/TAJ/zEOAnltC8nv4DFJVqM7Vz0Ox8FvVC9iz92fDAaq31qrIN03k7pPEcT53/mL3PcwOyW9o2RTskVpGAqgkzz8gv0aBYOFNdU2YPJ4lPzJtY0WfusJp1jpum0sIaZZo4mzv/wc+AkcCt2qP/Ro+RcwWRhKWkzv4Buz7r0bPn8eHn7/OHpk+Rjz0YPp6w9VZPOQTOnhTXQLEcT53+YZiRwa5qp0UxXsFD+cS83v0CHSIVdfsONR3R7p98UzV+9R+9QhKoknYNmTgvrWDfb0MQnFE0w4biBUF0Sf344UUMSzSi5gu6wBmNdtJZfoEC3cHRvptj3nroUxx87pfFS/aDgeh/S+d5i13Wz2easswK+nETLu1dWgWZisSPNVstcOyE0j50UAzQTC6gAgAOIpxmmAE4L2yqdg2ZOC0GzYgg4hRIKQbNiCDiFEgrt06yqQ2M5pEdMVJ15yET922PpCQ6N1qIOh4Z6HxebOIOvp2oHHBqtRh0OjfOTKdfFDwDHmRm1ODSwlbCtw6FB76O6OM5gTEkHdTk0AAmow6Gh+REOktGMOQaHxj4UeuTQUO/RdXGcQfRwCofGfhT649B4pGaaXGdmmmMdcFCTQwM0c1rY0LpZ4w4N0MxpYTM0g0MDKAPxKgAgAaAZ4ACgGeAA4mmGKYDTQn+lc5om1Cedg2ZOC2uYaVqSzlnPrE06B82cFtZJsx2lc0MzhBtctUW4wS7S+Wo0g3TeUriQzplmdUnngAS4kM7ji2Yt0jkgAQ6kc/MSwg1aDEjnKNymsK3SOWjmtLAhI5BLgGbNF4JmxRBwCiUUtpVmgASAZoADgGaAA5SnmU3DBs0tWbmiRTYzy0S4wR5ji9HMpmGDGwNHn5hPfc6khENDQGH9UwCbhg3d5rzfmWrpfMmODDg0WunQWINNw8ZjdQk9/XrKbKRrJjsy0H7C/0JHo5klwwaPZurbxyMezVi0QriBgML6aWbTsKHvzehL9mEcsyMDDo29xTYLGvYMG2QwU4TUH6dwa8iODDg09hWW183sGDYuAWgmFnZpZsmwcQlAM7EQrwJgCuC0sK3SOWjmtBA0K4aAUyihEDQrhoBTKKHQBc1Kq+dLLYgvqaFmZxpxP030BWgxthvNSqvnvLT6A1phXdJrTyboC9BqVKTZVeo5F3In6uUvFLuYZugL0N5tNZpdqZ5z4fyYaHZ38eYoHs0QbtBSVKBZGfU8NZrdjeY3HqIvwJ4UOplpllbPU/dmdxUPDyfoC7AfhW4WNMqr52am+f0hXVgfnKMvwH4UerNuVkU9R7iBlEJfaFZJPUdfgD2HeBUAkADQDHAA0AxwAPE0wxTAaaEvU4AaAZo1X9gAzaobNkgAtRRuAJo5LWxiNKtu2EC4gdDCRmm2tWHDXrgBthK2Vmi2vWHDXrgBIAG706ySYcNeuAEgATvRrLphA+EG7cJuCxpVDRsTe+EGmAI4LfR13cxi3AFo1nyhpzSzGXcAmjVf6CnNbAI0a76wrTQDJAA0AxwANAMc4AqabdMMINI6dy+vEQC/gnCD1uKq0WyLZgARC5B6xXWjEUBt4QaYAjgtrGkKUFod1yEFMc02GgHUFm7weUkJt2xdhL4ANurW/t5laVZGHX8+inXwzUYAtYUbYDRzWljnaFaqGQCFFNBFczjIawSAcIP9KKyJZuWbAVBIgaKZGsPyGgHUFm4ASMCVCxol1XEe83haSEL5RiOAi9rCDQAJsLFutrs6vkO4ASABFmhmQR1HuMGeQ7wKgCmA08K2SuegmdNC0KwYAk6hhELQrBgCTqGEwrbSDJCALSOOLRk2aG5pKdwAkIAtRzNbhg174QaABFSl2Y6GDYQbtGtbkWa7GjbshRtgCuC00M0UwJZhw164AWjmtNANzWwZNuyFG4BmTgsdLWjYMWxMEW4gtNCfdTOLcQZZYKYpFvZpZjPOIAvQTCygAgAOAJoBDiCeZpgCOC30ZwpQG0Cz5gsd0yxHRL8/3IgvMEus/PIHfV7cePEoUcithBuAZk4LXY9mOSK64VQaoVa9k5fV/1cKOcIN5BU2RrOViE5WjLeDt4PB7PX+4Xm/NzsYLe9M50fXP41fZpoZhTyyE26ArYTtzjRLieiLk4t+d9ad/5jFcw4sUDR7PPpyol9mUWCaKOR2wg0ACdiNZlkRncVL0jdZPI9pZu62+GUezYxCbincAJCAyjTLEdHTNAtJTR8fProzpQZN8cuaZlohR7hBi1B9QWNDRH9Esf+dnwfB4cd8cVTXyMEsGPxODU4knZ/HM02tkB+8YifcAFMAp4U+rZttLZ7vEG4Amjkt9Ihm24vnO4QbgGZOCz2iWV0AzZovbCvNAAkAzQAHAM0ABwDNAAeoRDML9gxr4QaYAjgtdDoF2NmeYS/cADRzWtgMzaraM+yFG3xe0ilQti5C+wkbdWt/791oVtmegXADoYXuR7Nd7Bn2wg0ACahGs53tGfbCDQAJqLigsaM943BiLdwAkAD762a1ZRuAZnJhnWb1ZRtgCuBBYVulc9DMaSFoVgwBp1BCIWhWDAGnUEJhW2kGSABoBjiAC5qx0NSdH3WmZPrXkaHjgJ5l0p4MsytaC9WI6BnOxVsTLuhFoJlgOBnNlrcVVwZL6lHxhJf9o+Wdi5Nnd2NPRuzuWAvVMLSbn5oeKqCZWLiiWRT2lr8YDmKaGcuG8WTENGO/B/vOxsFr99QodjAiRZ4HMzg02ufQ2BJmNLu7eHOUpZnxZMS72O/xeDQjgwf3ETgbhZ0pf0vATLP5Qp9nmnR31aUHfuc3HmZpZjwZepf2e6i7tu7ZSNFM/fOYXB6gmUeFXtPsNulP9Fx5eKgtGaeGZtqTYXZpvwe5JUMzmoWdZ6CZV4Ue00zNNA8nNKQptjw472vz/zjoLUxqBuPgvvF7qHuxLhs8jMvj1jA2tWEKIBberpuFg41doJlY+Eqz+dGm0QM0EwtfaZYH0EwsxNMMUwCnhR5PAWwBNGu+EDQrhoBTKKHQI5ppqTzzfWf9kfSzD5Isg/lR8MadKUUgjMb8xs3gg/SxrgE0c1roEc2MuGS+WdyMwzRSoLiDWDd/c0QxCBSBcJ8F9bzgg9SxAgJRF82ikGKMR7PXXv44MDEFyyGtvXLqAYvicZaBXuLXQRlUmRd8gPYTsre1jmazW8PO9OmxGc0UfUzqQZjuNjEeEAGpd3VP0ywv+ICB0Uws6qEZS+VaS4rmMc3UldCkHrAonuQcdGPRU/EwGc2ibPBB6lgBgajtokkZG7MUzeanik8znXrwLoniF3HOwdGA3jBLcjPygg9Sx7oGTAGcFno0BdBSORmyOz8/nCz6r2u1nO7Npoko/pO42wTNNNXYRxEIExLUo2gz+EBPVEGz5gs9olldAM2aLwTNiiHgFEoobCvNAAkAzQAHAM0ABwDNAAcQTzNMAZwW+jMFqGLQuOgnkQdwaPhc6A/NKhk0UpEH2zk0QDOnhX7RbGuDRuoh4e0cGp+XdAqUrYsQbmCjbu3vXedoto1B43xFMzg09g/1NKHe3qCxPppFcGjsE+q6aG5r0EhFHmzn0AAkoJ6Z5tYGjcUq8mBLhwYgAVg3Q+E2hR7NNOsCaNZ8IWhWDAGnUEIhaFYMAadQQmFbaQZIAGgGOIAlmp2ZXIIMFifPjPg9Cw5//X4ilsf5/9k2AIvV6+b7gHO146xG0Eww7NAsziXI7jWK+PPR/MZ00e/FYnmS/7/WBmD1uvneNKE2D6SDZoJhg2YshTMreAl2/qP+4YSXV+9MtVz0mEetWCw3+f9mMz4YjSlvNugmYjrl0HZ+3lvRjEZJSOdtl85ZCo/lyPANddkjdWg2IJqx+P2AR6hYLDf5/2bDRJylxXR6K8nlhmb95FqMmWbzhQ3ONFkKZ1awPD4/JdW7HwyS0UxrkrFYbvL/483Z6OGUErSnSZcA9db4CXQazdQlN32shb/O5RBwCiUUNkgzDvDn27BYHn88IuFc04yIp4gy68VdAEz+f7yZv3pPDV9RlHQJoLeSXK7VdHXRDIscGqCZ08IGacZ6OAvefG82Pjzvd0k4f6oz/Wls0uo4i+UHr3Dx936o2wBM6ZJK8vn1WEx/N1Av3hq+eESz1A/6QW851E5tTAHEwo91sy8n3APlCoBmYuEHzcLMoyWXATQTCz9oVg6gmViIpxmmAE4L2yqdg2ZOC0GzYgg4hRIKQbNiCDiFEgp9odnZBylPxQrzU5N60PndUUC5BfqplN4yCTCAQ2OPYZtmFFuw8lQkWA5pJV+9srzzdLB8Z8QP2fGTcqsAAzg09hd2aaZjC9hTscoyoAGpy7aNxU1ehKXHezkAgVMMkgCDag4NbCVs7dJMxxawp2KVZcD/zF+exK+wPYNoxikGqwCDag4NQALs0kzHFrCnYpVlwMqltm3waDamW63saMYjHBwaAgq9mAKwV+OCPRWrLIOPiVaGZuoruqDezd6b6QADODQEFHpBMxNbQJ6K+0mWAacXkG3jel+bOAK1YW/G2Mw0OcDgxaNKDg3QzGmhFzTLRTn7RQmAZs0X+kuzcvaLEsAUQCzEqwCABIBmgAOAZoADiKcZpgBOC32ZApSTzieb2f8VpXPQzGmhJzQrKZ3nZf9Xk85BM6eFXtCstHSel/2PcAOEG5RDaek8L/sf0vn+oiHpPC/7v5p0DkhAQ9J5XvZ/NekckIDmpPP17P+K0jkgAZDOUbhNoRczzVzUK52DZk4L/aWZNYBmzReCZsUQcAolFLaVZoAEgGaAA4BmgANUpdnZ/eF6t4lVw/J+51cf9IPOs2Hw4pG2XdDi2EY92k+0BhVpRkaMk+n63lBbKcKBeVn9P7ZdxP3P07DSfgJTAKeFLqcA2ohxMg3fDt4OBrPX+4fn7MVY3pnOj65/yrSIaWZsF/z4b0/bNjofBb1QDVpoPwGHRhG0EePkot+ddec/Vpc548VQNHs8+pKC/3vGwziNbRd6NIttGw8mi0/RfkJiocvRTBsxTqazAanjiiPGi6FoZu6twkE8mhnbBd2edbVtY3n7/OHpkwnaT0gsdEkzbcRI0SzUXoxHd6ZPJopyJhtD00zbLuiiGWnbRhTeeERmWjvtJwAJqEQzuiDeGgbfV3dQQXD4cRB7MWbB4HdqKHr+SqBu1sxMU9suAvL/R7o9heJT9ISGN7SfaA0srJvNelfXXAG0n9hz7E6z1UpXdaD9xJ5DvAqAKYDTwrZK56CZ00LQrBgCTqGEQtCsGAJOoYTCxmm2pZiu5g2QzlsDazTbWky3JJ0DEmCJZhXE9MiOdI6thK0lmlUQ0y1J54AEWKJZBTEd0rnEwmanABXEdEvSOWjmtLBZmm0vph+8Ykc6B82cFja+oJHC1mL6DtI5aOa00COabS+mQzrfc4hXAQAJAM0ABwDNAAcQTzNMAZwWejQFqAugWfOFzdJsa3sG2k/ILGyUZlvbM9B+QmhhgzSrYM+w134CWwlbGzSrYM9A+4l2wQbNKtgz0H6iXbA0mm1rz0D7iXbBBs22t2ccTqy1n8AUwGmhN+tmFrIOLgFo1nyhLzSzkXVwCUCz5gt9oVmNAM2aL2wrzQAJAM0ABwDNAAcAzQAHsE4zNlbQypiOyIjtGbyQT3uM6jSjipDWxODQkFTozRSANaIncURGYs8g8J7FzWh5Z0rmDJYC4NAQVegfzTgiI7FnEHjP4ubybsTmjNCoUDs5ND4v6RQoWxeh/YSNurW/d3000xEZ2p5h/I06NIMsF2zOYJvGrg4NjGZOC/0azVYRGbE9I4rMHh7NIjJnrEYzODT2HPZptnxnxAzRERmJPWN+avaoqyCX3Z4k92ZwaOw7aljQmB9p5wVHZPydtmcEdL/Fe148oqcAQp5djs1McxeHBiABWDcDHEA8zTAFcFrozRSgPoBmzReCZsUQcAolFIJmxRBwCiUUtpVmgATsRrMcnXw0DoL1nANeaM02m7AWbgBIwI6j2aZOfv/OxcmztYBPTjnINJuwF24ASIAtmq10ct7HbYDnP+pTJgunHOiKBYcezF57+V2EG7Rqa4lmKZ2c94WDKHxDXf/omd/ZgGimK+hpdMWhqb1wA0wBnBY2MwXI0cl5n6LX/Hh+SuEF/YBppis49ICeS7cWbgCaOS1shmY5OrkezdQ3PaYQUolfAAANAklEQVQZCeFEM13BoQcf9yJ74QagmdPChhY0NnTyCQni+t5sfHje74ZB0HlK2QdcQT3ABmNThHADeYVYNwP8BWgGOABoBjgAaAY4gHiaYQrgtLCtUwDQzGkhaFYMAadQQmEjNKvs0NBGDIQbiCtsUGyq4NCg9X874QaABDTk0JgQzayEG2ArYduQQ4NHMyvhBoAENOTQiLKjGcIN9hwNOTSy92ZwaIgpFOfQUFdOG+EGoJnTQqybFUPAKZRQCJoVQ8AplFDYVpoBEgCaAQ4AmgEOAJoBDmCFZvm9AIKAerlmy9S+3x0FAWlQlsINMAVwWtjoFCCvFwDF/3/UWdFM7eB9TwfLd0b2wg1AM6eFftAs1QuAArOXdy5YLFdjUm8W9EyIdvw4sJVwg89LSrhl6yL0BbBRt/b3tkuzdC8AkryXd6asYipWRU+PjQxOJQg3EFrY/Gi21gtAj2aaZsQddZ3Uo9l4EFkMNwAkwA7N8noBUPy/ohmL5e8ODM3UPlWwvGsv3ACQAEsLGnm9AHgqOaCpIv3TXfRf72tRPVAba+EGgARg3QxwAPE0wxTAaWFbpXPQzGkhaFYMAadQQiFoVgwBp1BCYVtpBkgAaAY4gE2aLYfrqQYGrEClvRZmF2EWHP763vwo6KH9xB7D6mhmmk3HDYAzL91MeS1Sr89v0KPoX0/VWxFusL+wTTMONJjpsYnaTLwdvB1Qr3P2Z5DQREv/9M3JlB+ye2zyW+b3Ijg04NAohcXJMw40eHocPR7N3hh2LvrdWXd+GnamiT+D/BfqG7WLAhB6D/TgNVYvwaEhoNCHmSaNZvSk+fxY8SboznqKMPTwOSnox8ZrQf4L9Y3axQEIZ2Y0IxEd7Sf8L/SMZuRx3KAZeS20/4JopgMQFIfYEvRwinADAYUe0IxmmhxooG7q6Vo3Pnyk7rGC4PBj8mi8rr0W/4QeEej3ZsGA783IotalsY9cHHBo7CuwbgY4AGgGOABoBjiAeJphCuC00IMpQN0AzZovBM2KIeAUSihskmbbhxs8Ql8AmYWNjmZbhxugL0C70FC4QYS+AK3aNhRugL4A7UJD4QboC9AuNBRugL4AQgubXdCoEG6AvgASC7FuVgwBp1BCIWhWDAGnUEJhW2kGSABoBjgAaAY4AGgGOIB4mmEK4LTQlylAvltDi9+0R9s0pvRgJtpPyCv0hWa5bg3jB+I9xqZBmhPaT4gr9I9mKbeGoRnvYWHTqOZoP5HZItygPPLcGppmeg9bLsKerfYTgATURLM1t4ammd7Do5kmF9pPtAX2aZbn1mCvhdljUqe0gwPtJ9qBGhY08twaAd1v8Z4Xj8i6wVNRtJ9oDbBuhsJtCr2ZadYH0Kz5QtCsGAJOoYRC0KwYAk6hhMK20gyQANAMcICaaZYjpN9PxPL1yiBZ709k9PO3JqsS0Ews6h7NLhHSn6/RjPT025PlMG5PsS6jp44VEAhnNMsI6Ypl44PRuHOhRq24kwA/IBz3Ezg3MnrcaQDSeWYL6XwN+bEHLJYrsnH3ANNJQI9mup/ANJbRw47uNMCfhZlm84WezjTzhXS6Zp6NHk6pe0Ac8U6yUzfuJxDL6Pqx9cegmS+FntLsMiH9OJq/eo+vpgnNbtOdmOknEMvooJlnhZ7SbFNIZ1s2jWwPtPfMdBJ4vU/z0WSPkdE/Dgb8eupYAYHAuhngAKAZ4ACgGeAA4mmGKYDTQl+nABYBmjVfCJoVQ8AplFDYUpr9HjRzWtggzc5G45S7woAaUmsrxiw4/PX7q+QCtmpQ5wkr4Qa/3+nIAUewQLP5D+7fuTh5dje7N+xMtRVjfmNKbVwTywVbNTjd2Ea4AWgmAjvTbDk0QnjE3X7ZT8FPxt2ZavFSK0VxcoGxauisdgvhBr9f+x5bL7c70yyk3H+mmaJO+IbxU8wGRDO2Yjzg4SlJLtBWDc7QsBFugNFMBHam2RmPV0QJ9dX8mIVuiidIRjPt4oktF8aqwaNZZCHcAFMAt4VNTQHUaGZuw8KuIgfTjOIJNM2IeIol6gJpLBfGqqHvzWyEG4BmTgubohm3l6BGEvrejP0UYRB0nga3jBVDjV/dhbFcHLyirRpTeoOVcAPQzGlhS9fNQDO3hW2lGSABoBngAKAZ4ACgGeAA0mmGdTO3ha6nAPn5/4nMvcL8NNJNNHn14o1hwCKTNekcNHNa6HymmRdbsJK5EyyHPVOsCuY3prRa+3xkTzoHzZwWNkezVGwBy9y0THvR780OSHQKuiymczG3Paf/PZzak84/Lynhlq2LEG5go27t7707zbKxBd2IJfQeU4r/mb880cIRKUyKW+/0Fu9BOm8ZdqTZWmwBy9wsoeuRi2QlLaab0Wxx8tvzt/5mZFE6r/RbA45RnWZ5sQUsc8cS+vjwY6JfQjOeKoy79D970jloJgI7LGjk5f+TzH2fJHRW1FWFjir4fjKfVHSc31Nba9I5IAG1rpt9OYmWd68uKwtI580X+iidh3npn9UBmjVf6CPNLAM0a74QNCuGgFMoobANNAPEgk+gDJrlwvr00/58tpWfmPeBoFmNH9jOT9wzmgFyAJoBDgCaAQ4AmgEOIJBmbL81G/O1vQ+cBYeTq+rLfqL2A1s5xMwn2jzGRd/yn1F/4PohyqOZsXjwxnxt7wPZ1mvrELmvhpVDzHyi1WN8Mlm8NbH5Z+QP3DhEeTQzhjXexOY1ax/Itl5bh8iksHKImU+0e4wUuWPzz8gfuHGI8mjG9luzMV/b+0C29do6RCaFlUPMfKLdY4yih1Obf0b+wI1DlEezWkezKIrbRFn4xJpGs8jqMZIP0O5oNmNHdfYQ5dGs3nuz+ETa+MS67s2sHuNs5Wi294EbhyiPZtp+qxOv9D8WPzC0Y5NLPlFdOqwcYvoTrR5jGMTpYTY/cOMQBdIMkAfQDHAA0AxwANAMcADQDHAA0AxwgP2k2WfXrr3wtz9b2/mH//Fn3/wD3mk2GeTtS3Z+9Se/uazkamy+reIH8ZH8N1eX/PEvtzqarfC/V3v3XtLsw+/8JvrsW+t/kA/1ng36ZV7NxTd/+p3fXFGyhuSHXPLTSr03B5rvhfjDT79dRLMdUZGl+0izr/5L+lN88dLabjWa0eaS/x7Nq5d8Ip/dwpIskh9S4b/+grf84Z+WYNA3f1YjzaJv/uGVRM/BPtLss++YvwRdO9Vf/f+8pnZ8ce3at+iiqbYv0X+Sqde++dNr3/4lc+gPP732XTUa/N+045s/+4tv/S//4Gf84ld/8s+ufZdp9uE1/nB6o3o/f0uF//Of/Otr3/n3177zH/70279Ugx7/EHpjzk+LeEj4yrzhN/EnmYq/+Nb/FL/XlH+mvox/7BffJcqbd+ofnqrk3zj+LvWC+q3U1x8mP3t1HKua5Idde0H/xn8U/xXWD+LD9f98y2CfaabGoK/+6L9XzKHT+se/VIOcYsD/R1z51s/Sr332giKQHqpoJPhPvOOvfqpOuyrkF7/6o5f+8NOX1BdfqH0vaDpGaid9+9+qQvW9Ojvfpbu/PyPC0g/hN+b8tIiuvn8Vv+GvzCfFFS9E8Xv/SpcrZn34gvmxan+0+lG8M1UZMQ0/pFfNL2Ve+Oy7qyPXP9uUr2rMPj6Kl9T/6NJ9yUF89kKFU7LPNKM/iPqr84mnE8RcIjrp75PX6NS9ZK6I6g/517/hHcS4+EW6aDJt1H/tihbmwvTZC/wtfa0/SFHRfGGGxpfyfpqejKTewJ8UV0TJe3UJDx7xj6Wq5J1656oyMiNN6pfSX37x3dSRJz+bfttVTfJXor+A+gN+8+eXHQRoZqDvzb76l5/xH+USmqVe+0L9Bx7T7Ks//r/+ZcQ7zCnnr1c0M1eMmBzmtObRLPnUtZ8W5dMsroiS96bPsPmxWZrRzlRllKFZ6gUee+OPSNMsVWP+St81I+ZLf3vpQYBmMWimqW5VFd2SP+AX6u7rp9/+NwnN0q99aK6IyXt5hznl/LWimbp08MAQ0X/nPOHSF5Nv/nydZt/8Kf2cKPnUtZ8WrdFMf1JSoe8AX0oY+wWNLPGPpXuz5J28M1VJr1Nx6pcyH/GCfit/RPo4UjX6X30Uqvha6q+wdhC4N0vwId3z8jD/kvr6u5+pv5rade0l/QVvUq/9+2vf+q++/RfmJvqrf0R/ZbXjv+Mi/eK/+SlV63fzcoG6Tb5Gyxsfmntr9UFq86/5q2/91zRTeIk/5JebP+03dFzf+WfxG/6D+SRTwXf2L5kDMAf+rZ9F5sfSTDP9o2iOsarkX/xbP0v9UvqF//ePaHphPkL/bF2eerPZx0cRaS7lHwRmmg5hb9Fgu08qXnq9BP9JsfivtyLHH/75ZeVbLOqkAZpVQlM0K6MCrIOY8c1fbvWWjTXHBFABHELdVH+nyrWjzk+6HF/oW4jS+JCnpFYBmgEOAJoBDgCaAQ4AmgEOAJoBDvD/A9FchUQnZX0+AAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrRnNiRlpoY25ORGIyNVFaWEp0YVcxd0xuTjJaMXdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWpBc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGd2ljM1puWENJcEtWeHVJQ0IxYm14cGJtc29YQ0pRZEhOQlFtUkJibTV2ZVUxdVFXeHNWbUZ5YzBOdmJsQmxjbTFwYlhBdWMzWm5YQ0lwWEc1Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWd2lVSFJ6UVVKa1FXNXViM2xOYmtGc2JGWmhjbk5EYjI1UVpYSnRhVzF3TG5Ca1psd2lMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNakFzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ3aWNHUm1YQ0lwS1Z4dUlDQjFibXhwYm1zb1hDSlFkSE5CUW1SQmJtNXZlVTF1UVd4c1ZtRnljME52YmxCbGNtMXBiWEF1Y0dSbVhDSXBYRzU5WEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yMCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BbGxWYXJzQ29uUGVybWltcC5zdmdcXClcblxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yMCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BbGxWYXJzQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAllVarsConPermimp.svg\, width=8, height=20, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAllVarsConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnAllVarsConPermimp.pdf\, width=8, height=20, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAllVarsConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtGc2JGWmhjbk5EYjI1UVpYSnRhVzF3TG5OMloxeGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNakFzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ4Y2MzWm5YRndwS1Z4dUlDQjFibXhwYm1zb1hGeFFkSE5CUW1SQmJtNXZlVTF1UVd4c1ZtRnljME52YmxCbGNtMXBiWEF1YzNablhGd3BYRzVjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ4Y1VIUnpRVUprUVc1dWIzbE5ia0ZzYkZaaGNuTkRiMjVRWlhKdGFXMXdMbkJrWmx4Y0xDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1qQXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRnhjY0dSbVhGd3BLVnh1SUNCMWJteHBibXNvWEZ4UWRITkJRbVJCYm01dmVVMXVRV3hzVm1GeWMwTnZibEJsY20xcGJYQXVjR1JtWEZ3cFhHNTlYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFsbFZhcnNDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MjAsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG5cbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFsbFZhcnNDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MjAsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFsbFZhcnNDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MjAsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG5cbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFsbFZhcnNDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MjAsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgIn0= -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAllVarsConPermimp.svg\, width=8, height=20, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAllVarsConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnAllVarsConPermimp.pdf\, width=8, height=20, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAllVarsConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZCc2IzUWdiMjVzZVNCd2IzTnBkR2wyWlNCMllXeDFaWE5jYmx4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekxtTnZibWx0Y0ZCMGRpQThMU0J5WlhOMWJIUnpUM1YwUVdKelJHbG1abk11WTI5dWFXMXdJSHcrWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0J5YjNkdVlXMWxjMTkwYjE5amIyeDFiVzRvSjAxbGRISnBZeWNwSUh3K1hHNGdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0JtYVd4MFpYSmZhV1lvYVhNdWJuVnRaWEpwWXl3Z1lXeHNYM1poY25Nb0xpQStJREFwS1NCOFBseHVJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdZMjlzZFcxdVgzUnZYM0p2ZDI1aGJXVnpLQ2ROWlhSeWFXTW5LVnh1WEc1d1FtRnlJRHd0SUdkbmNHeHZkQ2h5WlhOMWJIUnpUM1YwUVdKelJHbG1abk11WTI5dWFXMXdVSFIyS1NBcklHZGxiMjFmWTI5c0tHRmxjeWg0UFdaaFkzUnZjaWh5YjNkdVlXMWxjeWh5WlhOMWJIUnpUM1YwUVdKelJHbG1abk11WTI5dWFXMXdVSFIyS1N3Z2JHVjJaV3h6UFhKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSQlluTkVhV1ptY3k1amIyNXBiWEJRZEhZcEtTd2dlVDFEYjI1a1VHVnliVWx0Y0Nrc0lHWnBiR3c5YlhsamIyeHZkWEp6V3psZExDQjNhV1IwYUQwd0xqVXBJQ3NnYkdGaWN5aDRQVndpVm1GeWFXRmliR1ZjSWl3Z2VUMWNJa052Ym1ScGRHbHZibUZzSUhaaGNtbGhZbXhsSUhCbGNtMTFkR0YwYVc5dUlHbHRjRzl5ZEdGdVkyVWdLRzFsWVc0Z1kyaGhibWRsSUdsdUlHRnVibTk1WVc1alpTbGNJaWtnS3lCMGFHVnRaU2gwWlhoMElEMGdaV3hsYldWdWRGOTBaWGgwS0daaGJXbHNlU0E5SUZ3aWMyVnlhV1pjSWlrc0lIQmhibVZzTG1keWFXUTlaV3hsYldWdWRGOXNhVzVsS0dOdmJHOXlJRDBnY21kaUtESXpOU3dnTWpNMUxDQXlNelVzSURFd01Dd2diV0Y0UTI5c2IzSldZV3gxWlNBOUlESTFOU2tzSUd4cGJtVjNhV1IwYUNBOUlEQXVNalVzSUd4cGJtVjBlWEJsSUQwZ01pa3BJQ3NnWTI5dmNtUmZabXhwY0NncFhHNXdRbUZ5WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbiMgUGxvdCBvbmx5IHBvc2l0aXZlIHZhbHVlc1xuXG5yZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wUHR2IDwtIHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJvd25hbWVzX3RvX2NvbHVtbignTWV0cmljJykgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlcl9pZihpcy5udW1lcmljLCBhbGxfdmFycyguID4gMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW5fdG9fcm93bmFtZXMoJ01ldHJpYycpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXBQdHYpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXBQdHYpLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEFic0RpZmZzLmNvbmltcFB0dikpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbOV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# Plot only positive values
resultsOutAbsDiffs.conimpPtv <- resultsOutAbsDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > 0)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbsDiffs.conimpPtv) + geom_col(aes(x=factor(rownames(resultsOutAbsDiffs.conimpPtv), levels=rownames(resultsOutAbsDiffs.conimpPtv)), y=CondPermImp), fill=mycolours[9], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkJzYjNRZ2IyNXNlU0J3YjNOcGRHbDJaU0IyWVd4MVpYTmNibHh1Y21WemRXeDBjMDkxZEVGaWMwUnBabVp6TG1OdmJtbHRjRkIwZGlBOExTQnlaWE4xYkhSelQzVjBRV0p6UkdsbVpuTXVZMjl1YVcxd0lIdytYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQnliM2R1WVcxbGMxOTBiMTlqYjJ4MWJXNG9KMDFsZEhKcFl5Y3BJSHcrWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQm1hV3gwWlhKZmFXWW9hWE11Ym5WdFpYSnBZeXdnWVd4c1gzWmhjbk1vTGlBK0lEQXBLU0I4UGx4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ1kyOXNkVzF1WDNSdlgzSnZkMjVoYldWektDZE5aWFJ5YVdNbktWeHVYRzV3UW1GeUlEd3RJR2RuY0d4dmRDaHlaWE4xYkhSelQzVjBRV0p6UkdsbVpuTXVZMjl1YVcxd1VIUjJLU0FySUdkbGIyMWZZMjlzS0dGbGN5aDRQV1poWTNSdmNpaHliM2R1WVcxbGN5aHlaWE4xYkhSelQzVjBRV0p6UkdsbVpuTXVZMjl1YVcxd1VIUjJLU3dnYkdWMlpXeHpQWEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJCWW5ORWFXWm1jeTVqYjI1cGJYQlFkSFlwS1N3Z2VUMURiMjVrVUdWeWJVbHRjQ2tzSUdacGJHdzliWGxqYjJ4dmRYSnpXemxkTENCM2FXUjBhRDB3TGpVcElDc2diR0ZpY3loNFBWeGNWbUZ5YVdGaWJHVmNYQ3dnZVQxY1hFTnZibVJwZEdsdmJtRnNJSFpoY21saFlteGxJSEJsY20xMWRHRjBhVzl1SUdsdGNHOXlkR0Z1WTJVZ0tHMWxZVzRnWTJoaGJtZGxJR2x1SUdGdWJtOTVZVzVqWlNsY1hDa2dLeUIwYUdWdFpTaDBaWGgwSUQwZ1pXeGxiV1Z1ZEY5MFpYaDBLR1poYldsc2VTQTlJRnhjYzJWeWFXWmNYQ2tzSUhCaGJtVnNMbWR5YVdROVpXeGxiV1Z1ZEY5c2FXNWxLR052Ykc5eUlEMGdjbWRpS0RJek5Td2dNak0xTENBeU16VXNJREV3TUN3Z2JXRjRRMjlzYjNKV1lXeDFaU0E5SURJMU5Ta3NJR3hwYm1WM2FXUjBhQ0E5SURBdU1qVXNJR3hwYm1WMGVYQmxJRDBnTWlrcElDc2dZMjl2Y21SZlpteHBjQ2dwWEc1d1FtRnlYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbiMgUGxvdCBvbmx5IHBvc2l0aXZlIHZhbHVlc1xuXG5yZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wUHR2IDwtIHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJvd25hbWVzX3RvX2NvbHVtbignTWV0cmljJykgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlcl9pZihpcy5udW1lcmljLCBhbGxfdmFycyguID4gMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW5fdG9fcm93bmFtZXMoJ01ldHJpYycpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXBQdHYpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXBQdHYpLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEFic0RpZmZzLmNvbmltcFB0dikpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbOV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSBwb3NpdGl2ZSB2YWx1ZXNcblxucmVzdWx0c091dEFic0RpZmZzLmNvbmltcFB0diA8LSByZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXJfaWYoaXMubnVtZXJpYywgYWxsX3ZhcnMoLiA+IDApKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uX3RvX3Jvd25hbWVzKCdNZXRyaWMnKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wUHR2KSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wUHR2KSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXBQdHYpKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzldLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcbmBgYCJ9 -->
```r
```r
# Plot only positive values
resultsOutAbsDiffs.conimpPtv <- resultsOutAbsDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > 0)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbsDiffs.conimpPtv) + geom_col(aes(x=factor(rownames(resultsOutAbsDiffs.conimpPtv), levels=rownames(resultsOutAbsDiffs.conimpPtv)), y=CondPermImp), fill=mycolours[9], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qRXdMQ0ozYVdSMGFDSTZPQ3dpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjEwLCJ3aWR0aCI6OCwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFNQUNBTUFBQUM1S0Z0TEFBQUJ5MUJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qcXROanNobUFBQm1BRHBtQUdabU9wQm1aZ0JtWnJabWtOdG10dHRtdHY5dVRVMXVUVzV1VFk1dWJrMXVibTV1YnF0dWpvNXVqc2h1cTZ0dXE4aHVxK1NPVFUyT1RXNk9UWTZPYmsyT2JvNk9icXVPamsyT2ptNk9qbzZPanNpT3E2dU9xOGlPcStTT3lNaU95T1NPeVArUU9nQ1FPanFRT21hUVpnQ1FacENRa0RxUWtHYVFrTGFRa051UXRwQ1F0ditRMjdhUTI5dVEyLytyYmsycmJtNnJibzZyamsycmpvNnJqcXVycTI2cnE0NnJxNnVycThpcnErU3J5S3VyeU1pcnlQK3I1TWlyNU9TcjVQKzJaZ0MyWmpxMlptYTJrRHEya0pDMnRtYTIyNUMyLzdhMi85dTIvLy9JamszSWptN0lqbzdJcTI3SXE0N0lxNnZJeUk3SXlLdkl5TWpJeU9USXlQL0k1S3ZJNVAvSS84akkvK1RJLy8vYmtEcmJrR2Jia0pEYnRtYmIyNURiMjdiYi83YmIvLy9rcTI3a3E0N2txNnZreUk3a3lLdmt5TWprNUt2azVNamsvOGprLytUay8vL3k4dkwzOS9mL1dzRC90bWIvdHBEL3lJNy95S3YveU1qLzI1RC81S3YvNU1qLzVPVC8vN2IvLzhqLy85di8vK1QvLy8rcTkrWWlBQUFBQ1hCSVdYTUFBQXV3QUFBTHNBRWFPQkJ5QUFBZ0FFbEVRVlI0bk8xOWo1L2JSbmJmK2tldjExNHI3UHFvNCtYU1M3VzJUMTZidEMvYld1YzkwVTE2alp1Y2FUbHlMZGVTcURiWE51YXVUNDVpWjBWZDBzYlkxZDFseFZNVnlFSXNtdmh6TSsvTkFNUlBFZ1FId0R6Z2ZULzJnZ1FmZ0Vmd3E4SE1mT2U5dCtVeEdLVmpxMjRIR0cwQTA0eFJBWmhtakFyQU5HTlVBSU5wOWk4WVRRRCtsaWJUckc0SEdCcEFrMllQY3g5T3hKS0ltNFV0bVdaR1dCSnhrMm1XQVNLV1JOeHNHYzMrUDhOWXFKK29XcHJOK2xabkNpL2NGMGZlZkdoWjF2YU44Qzd4dVNYZU90Yk94TE90SHV3K0hNM2VtS0JwejJPYWtVTXFEVXB2eldiN1NDbnZxLy9RazI4ZWo2SzdMbm56cTlNNzRxMjdKeGdteVNmK0hyZ0hJUWRqcVB0V01yS1J5b0xLYUhiSEVVMlllUE40Rk50MWFYNU50R25pbFQzd25KNW94YllGRDgvNjJKakJqTXZEaDlqK1BneHY2NzZWakd5ay9WNlYwV3oydVhnU3dpTnllNVRZMWZXK25nckduWXhFRzJiM1JKTm1pNmRvejhFbktMZG0xSkRLZ3FwbzVvaldhUkJ0emRRdWFNMEVUa2JZbW9uSDVzbElQRVdaWmxTaGZxS0tSNXJBS2RITitzM1VjN3J5elY1MDF5VTBtMStaWU45TXRHWjI1OEVxbXBrMFZ0ZGlTY1JOWXljMGNDUzVmWE1vMnEyeDlkMGZpemZXVDhPN1h0aUY4YVFOejFMeHJvZjJBOGU2UE1TbXptT2FOY09TNXJ5WlNYZFFpeVVSTjF0R013WXhNTTBZRllCcHhxZ0FURE5HQmFCSnM3cm5odHFMM0wrYjVpR0FsTU5IYVI4cEtkeURtZGlkaWRnYzNrQU5TUnpTVlIvTStuRG9mSWdmZTc3U2pyTWdnN0NETWRSOXM5dUwzTHpRUGRMRXlWYVV1LzJwVnZWU1NlR0FPL2hYV0lGUWZtWGlpNXJpM2V3OXdiaC8rc05KK0d6NGdTTlhjVEROekVKdVdwUkJNOC9wUWJ2a1dMZ1JqVkZQdkVUeHlIbTF2ek5CWlZ5SzRqN04zSitJL1dELzRSc1Q3emQvUHJGaHdyYnpmbTlCTTJqd1dEbzNEVEZKUEh2N084M1NPUkxEM1RzWk9iMzdleDVzQkw4OGZPbTViNG5Ib2QxRFpSeEZjVjg3ZnlEMkg0NkUwZXlqOFdEKzEwZWlOWE1Hcy8yUC9kYXNIenhXdVRVekNnVkpvcTAxRzF0V1Z6d21ZUU9rRVM5bGE5YURsNkNNb3lnT3JkbHdBSzNaZ1hqbkFzM2NpLy93TjBlaXdiUEFQSGhvdWhlbllRZGpxUHRtdHhjRlNhS3RiM1lxdVFVYmFNM0VTK3liQ2VhSVpneWVsQ2lLbjRuZTJ6aEtzL2w3YjAyUEprY1RaK0R1SFk2a3JDN1lhUGZDRHNaUTk4MXVMd3FTUk50SUU1NXpzMzVQYnZBbFN1RU9MTUcybFlGVXpUc1B4RWh6dkhQY0YwYXZpa1pNUEdXdG5ROHM2N3Mvdmp4OFlWY3Q0eGJEVVRsODVYbXpKcURzZVRPbnQ5cG1LVmc2YjRKbHlUUmJ6SWdWQmRPc0NaWTBWUUNUN3FBV1N5SnVNczB5UU1TU2lKc3RveG1ER0dqU3JPNWhmWE5SNnE5WXNuVHVEd1JZT2pjZXhZbXdGTlZJNS9NclFDT1d6czNIQmtSWWhrcWtjNlFaUytjVXNFSVNmMml5ZEk0MFkrbWNBbGI4MlBXTk5QTkk1MEF6bHM0cFlDM3k1TGVzUmpwWHJSbEw1OFpqTGZMa3Q2eEVPaGV2T2xPV3psc01tdEk1Z3hob1N1Y01ZcUNwQWpDSWdTYk5URktGdFZnU2NiTmwwcmxKZDFDTEpSRTNXMGF6dW9mOXBXTDUvVENKUFBrdG1XYkdZZm45TUlrOCtTM0xvMWxRQkFEa2dWM0lsRzFoQ1lCb3FRQ3VDNUJBQ2I5RjdTaXhOWk5GQU9aWEJHVUc4NkdnektsYW1zRjFBWmFpak4raWJwUkxzOGNqcFRQTlB4d09FalRqdWdDcHlMY0NndGEyVEpyaGFnelZtbDJidlQ2SzBZenJBcVNqak4raWJwVGZtb2xPVnRjVExaWjc4WGFVWmx3WElCM0w3NnBKSGZ2OGxpWDN6ZHc5dVhBV3FHVHZUTlQ2QzY0TFlOVEZTZE1NeDRxd0ptTUhWODRLMGh3ZDk0UEJKOWNGTU9maXBHbW1DVXl6SmxqU3BCbURHSmhtakFyQU5HTlVBSm8wcTN2T1FRZXF2cEcxZ21sV0Z5SmZ5S1R1ZWhtV0ZSUTZYT2prZ1pxZWtNN0hFSmZaTHVrODhvVk1va1FabHBYVk9wYzZPYXJwU2VuOC9zQWJEMW9tblVlK2tFbVVLTU95TXBwSm5UeGNoRG9rblVzNXMxM1N1WmFrQWN1MnY4c3RiVC9NYVZmY3o2cG9GdWprMjZNVTZkenVDWnExVERvdjc1WWJpS3BvcG5UeWNHc1drczZSZmkyVHpzdTc1UWFpRXBvdGRISlUwOU9rY3o5UlZUN3BuRUVNRll3MEZ6cjVkMytzMVBTa2RBNVJ3L21sY3dZeDBKdzNNMmtRcGNXU2lKdm1qalEzQmRPc0NaWk1NeU1zaWJqSk5Nc0FFVXNpYnJhTVpneGlvRWt6bnRFaWhtcG90a3BBajZCMjZiemttOUZHVk5TYXJSTFFRNmhmT2kvdk5yUVdGZE1zVTBDSGFpZGo2NVhySmtqbnE2VGgzNjM0ZkxGOVdMWWt6ZEo1QktzRWRDZ25BRW0zQnlaSTU2dStESTgwMTdhc2xtYVpBanFVRXpnY0NacVpJSjJ2K2pKTXM3VXRLNlRaTWdFZHl3bW8xb3lqenB0bldkbEljNm1BM2ptVDVRU3NBVXZuallSWjgyYjJJTEdMYWRZRUdFVXpkemRaUllCcDFnUVlSYk0wTU0yYUFKbzBNNmwzcThXU2lKdUdEd0UyQU5Pc0NaWTBhVmJQZkprUHB0bmFsb1lrYkRjaTZqenZOMk9hclcxcFJzSjJNNkxPeTdnSkRJUVpDZHZOaURyUExUWHpkdDJ0R1FuYnpZZzZMK01tTUJCbUpHdzNJK3E4akp2QVFKaVNzSDI5cUhPVGVyZGFMSW00YWVBUVlMMkU3ZXRGblp0MEI3VllFbkhUUUpwcEF0T3NDWlpNTXlNc2lialpNcG94aUlGcHhxZ0FURE5HQmFCSk01NFRJNGF5YURaTGs4eWh6QnpPYzFRdm5hLzJtSWNBSlZxVzFwcWxTZWJ2Q1M3OTB4OU82cERPVnp2TU5DdlJza3lhSlNUekQ5K1llTC81ODBrZDB2bHFpZmQzdWFWZ2pqcGYyOCt5VzdPSVpQN1JlREQvNjZOSkhkTDVhb2U1TlN2UnNqeWFwVWptSDdrWC8rRnZBcHBWS3Azci80S01OVkRxUXpNdW1YODBmKyt0NmRHRUU3YTNEaVdPTkZNazg0SFR3M0VuSjJ4dkdXak9tekdJZ1NiTlRPcmRhckVrNHFaNVF3QmRZSm8xd1pKcFpvUWxFVGVaWmhrZ1lrbkV6WmJSakNmTWlLRUVta1dpeXNXN3ppOUgyWjhyNmR5QkdZMVNwSE9kMzR4UkZHVzBaaEZwM0I0a0V2OG5wZlBwSGZHMkhPbGM2emRqRkVTWk5FTnBIUDczN0RldE42MkJEWk95bmZkN1NlbGNOSGxUcnh6cHZOcm9hdDZtYjB1a21aVEdQY2ZxemZwZHB3dXRrek9ZN1grY0VuWCs5VlF3cmh6cFBMZlhQQVFvMGJKRW1qbStYbVFQbklIVGN3OEVvNkRCU29rNkZ6Z3BTVHJQN1RYVHJFVExzbWdXU09NT2tFZlM3R2ppRE55OXcxR2FkRDYvTWxsRE9tZWFFYk1zWjZRWlNzWCs2NWV0bmJ1aVIyWlpPeDlZMW5kL2ZIbjR3bTZLZEE3cnR6bnF2TEdXTk9mTkdNVEFOR05VQUtZWm93SXd6UmdWZ0NiTlRPcmRhckVrNG1iTGhnRDVaek5NdXRlbVhwd3d6ZGFNT2k5Sk9qZnJYcHQ2Y2NJMFd5L3F2Q3pwM0t4N2JlckZpZE1zZjlSNVdkSjUvRGplTmtnNlI2d1ZkVjZXZEs3L2F6RUt3WXlvYzY4azZWei8xMklVZ2lsUjUrVkk1L3EvRnFNUVRJazZaK204MFpZMDU4MU11b05hTEltNHlUVExBQkZMSW00eXpUSkF4SktJbXkyakdZTVltR2FNQ2tDVFpqeVRRUXhNTTBZRktFS3p3OUVZbGw4RTc0TnNCZDdoVFpqdjJoNTVqclh6eGNkcVJjYk9aTEVXb3hzN1ZUUWlmU2FWVEF6dmpEb1lRMzZhbWRRUE52WGlaZzRCM0JkdlhqM2JmM0J0c2NmWHdnVnA0T1hqa1h0eE91djMvQlVaYWkyR1ZEbWo1OElQUWllNnBOU0R1SU14TU0ySVdhNU5NMXhDZ2NRU3J6cFQ5eWY5SFNWU3FzVVZVSG42Qk5zb2YwV0dXb3VoMW15SW84NzZuVSt0bmkyYU9meGd2RDBhZDJCTlJsZlNUSndEVCtzVlg2RVIyRC9NdlpLQTZ3S1U2T2ZhTk1NbEZFZ3plK0RacjRsSG9venZWWjlnNm5YdkNGc2tmMFdHV29zaFd6TTRDdlRLbzhuc2MzK1JCbERUV1J4dGR4N2dhZkY2M0pvMXdYSnRtdUVTQ3FTWmVPWHV1UWZpcmFRWmZpSmJNMGtSZjBXR1dvc2gxMnpnVWZNcng3Y1BUdjBQeEw3YlV3Z2Rua0pyTmh6TXIwN3h0Q0VIWThoUE00WVJLTkthMllJUDBKcDFQVWhab0dpR1M4WHN6aG04M0JOOU0vR1p2eUpEcmNXUXZTNDh5ck12M29WMXRmSUR6LzNSZFVpQ2dIMHpiNXlEWmd4aVdKdG11SVFDRjFOZzMyeThjOXcvandzdzRJa25WMVpBUWhib2FLa1ZHZHN2KzJzeG9MdUZSNG1Hemp1RjlmNlkvMkFLRDFsMzE3TE8rNEVCQXpodE4rUWdnemFNbVRmN2F1TE5yNlhzWjVvMUFjYlF6TWI1dGlSWU9tK0NwVEUweXdMVHJBbVdURE1qTEltNDJUS2E1Wi9PTU9sZW0zcHhwdG5HTkdNWWdkSm9obm82RmpBTXlnUGNDQmNFd093RjJ6Y1c4dnJpS0NtaEQ4SU94c0EwSTRieVdqT1VCazRuNGZJQTBhd0dLTEl2NVBYUVVUQk42NmhGSDB5ekpxQUNtaTNLQTBTekdxQXM1Y3ZyMFpvQlFET1luUzBvblNmc2VkdlU1QVlCelJibEFSSUZBV0NwaHkrdlIyb0dZTVlEQ1I0Q05NR3laSm9GdXJrSHo4MW9WZ1BabXZrSkR5STFBMmFYUUJVTk9SZ0QwNHlZWlhrMG03OG5GM0tFeWdORXN4cWd5TzdMNjlHYUFlS2hhZmZDRGk3OURzdEF4SktJbXdiU0RNVHc3ZEU4VkI3Z09Gd3c0THMvQnBIOXAwcGVqOVlNRUVQUzNud290U2VtV1JNc2FjNmJNWWlCYWNhb0FFd3pSZ1ZnbWpFcUFFMmFtZFM3MVdKSnhNMldEUUh5YTB3bTNXdFRMMDZUWnJPd1FvNmErU2o3YzFVWFlBeXovcHZXQlVpek5PbGVtM3B4bWpUeklnbzVhdVpMUHNlNkFQY0gzbml3Y1YyQU5FdVQ3cldwRnlkT3M0Vm1icjlwdldrTm92SjR1QzZBek5XK2FWMEFBeVJpM2xZbm5VY1VjdERNWi8ydTA0WFdLU3lQaCtzQzJEMUJzNDNyQW1qOUVneWRLSkZtSWMxYzFqcVB5dVBodWdDNFdtUGp1Z0JhdndSREo4cWlXYUNRbzJZdWFSYVZ4Nk4xQWNSbWpib0FER0lvWjZTNVVNaFJNNzhyZW1SV1RCNlAxUVdBVmRwY0Y2Q3hsalRuelV5Nmcxb3NpYmpKTk1zQUVVc2liakxOTWtERWtvaWJMYU1aZ3hpWVpvd0tRSk5tUEZGR0RLWFNMQ3FpcCs3ZFNEb3Z4MnVHZnBUYm1rVkU4dlM5bTBqbk9Ud3dxUjlzNnNYSkR3R2lJam5reXhoYnIxelhKcDBuOWllM0QzTkx2Snl3dlVRL0s2R1pGTWxQUnFnZ0JWSEJtMHZuT1R3dzZaKzBxUmR2U21zbVJmS3haWFhGVXpFZWZMNkJkSjdEQTVQdXRha1hid1ROQXBFYzByYllmbXZHMG5tclVQWklNeVNpaS80V0pIR0hTUE5OcFhNR01WUS9iMllQVnR1RXdEUnJBaXFubWJ1N00xbHR0UURUckFtZ3FRS1kxTHZWWWtuRVRVT0hBQnJBTkd1Q0pkUE1DRXNpYnJhTVp2a2xUWlB1dGFrWHAwa3pXZFRjM2UxTW9SQ1RoVG81RkVjL3I1S3pxMTJiUytjNm5XYVVpakphTTFrR2VBNEZNMDlsZ2VvNUZrZjNrN1Bya3M2MU9zMG9FeVhSRElxYWZ6Z2MrRFNUZW9DZm5GMlhkSjViR3VadDNkc1NXN05yczlkSFVacXA1T3k2cEhPdFRqUEtSQ2swdzZMbW9wRnlMOTZPMGt3bFo5Y2tuZWZ4eGFSK3NLa1hwemtFVUVYTm9kYXZ2VE5ST3Jta21Vek92cmwwYnRJZDFHSkp4RTJUYUNhYXBwMEpOR21DSjBjeVNUc3NaK3o1dGM4UkhIVnV6c1ZwMGt3dm1HWk5zS1JKTXdZeE1NMFlGWUJweHFnQVRETkdCYUJKcy95enN5YjFnMDI5dU1GRGdKUlM1amVIY3U0Q004NHFLRFZjbGpPZjZhMTFuc3RQays2MXFSYzNtR1pacGN5ajJkbVZHZzZBT1Z1OXRjNXp1V25TdlRiMTRpUm9GaXRsanNWWjNkM3puNHNtcVlmNmtmTnFINlpyUXpUVFUrczhsM1Q3TUxmRXkxSG5KZnE1TWMzaXBjemRQYnN6UFJsOU5ZRUlKbEREM3hKUFJMc1hwcG1tV3Vmcis4eW9DNXZSTEtXVXVkT2JYNTFDWnd1b0kxdXpIanc4UXpUVFZPdTh5TmRsMUlQQ05Nc3FaZjRpcks4NG5ZaEdiYUQ2WnBBM1k5R2FhYWwxempRamh1SVRHb2xTNW5mVlNOT3hCcjhWYlJNKytFQU5kM0JSdGd3NzExVHJuRUVNRmN5Yk9iM1ZOdGxnNmJ3Smx1WFRiREVwVmdoTXN5WlkwbFFCVExxRFdpeUp1TWsweXdBUlN5SnV0b3htREdLZ1NUT2V6eUFHUTZMT0hSRGgxNHM2MStreW8yU1lFWFUrdmVNRk9udmVxSE90TGpQS2hSbFI1N00rTkgzclJaM25rM0JaT3FjdG5TL0IrbEhuWDA4ZDBOdlhpanJQNTR0Snd5MVRMMDUwcExsKzFMa0hpem5XakRyUDU0dEo5OXJVaTFPbFdZR29jM0hNR2xIblRETmlscVpFbmNNZ2xCTzJOeFkwNTgwWXhNQTBZMVFBcGhtakF0Q2ttVW05V3kyV1JOdzBhUWlnRjB5ekpsalNwRmwrcmNta2UyM3F4WmxtVExObVdGYVYzTUJ6ckoxam5ja04xdmFZVVNNcVMyNXd4ei9HMDVQY1lIMlBHZldocXVRR3VBWkRaM0tEM0NzdmVHdkF0cXJrQnJnR1EyZHlnL1U5WnRTSHlwSWJBT2QwSmpmSTZhWkovV0JUTDI3d0VHRHQ1QWF3QmtOYmNnT1Q3cUFXU3lKdTFqQ2hzVjV5QTFpRE1kT1czTUNrTzZqRmtvaWJKcytiY1hJRHd5L2VDSnFWa2R5QVFRdzBWUUFHTVRETkdCV0FKczE0Mm93WW1rNHprL3JCcGw2OEVVT0FFSmJvN1psZ21qWEJzdHJXTEVOdmZ4eWptUXFxQ3prWUE5T01tR1ZOTkl2bzdZSmw0KzNSdUhQVzN4NjVQK252VEJ5ckIrTDdNdWs4cjNUN01MZkV5OGtOU3ZTekhwcUY5WGFwb0FQWlRrYk9hOE9keWVIby9wNEg0anNld2tPQUpxQUdtaVgwZG5obUhvNXVUOGVRcitwQU1BektDUGlUdWt5ekpxQmFtbVhwN1h1ZSs2UHIrRFQxYVFiaWU4aEJCbTFVUEtHUnJyZER5M1lra3dPTmQ0NzczVm0vQitKN3lFRUdiZENjTnpOcEVLWEZrb2liUkVhYUJjQTBhNElsMDh3SVN5SnVNczB5UU1TU2lKc3RveG1ER0dqU2pPZk5pR0VUbXMyelplOUl0RG5Nc3g3ZXdOellzMFNVZWNHbzgwSU9NK3JDUnExWktNdzhwSGFMbDdGb2MweG5BQVVBcmt3U1VlWUZvODZMT2N5b0NSdlREQ2J5UlpQa3lKWUtRczJkUkxTNVRQWXZhUmFQTWk4WWRjN1NlWHVrY3hWbWZqSnllcWgyTzhBdkQxOUdvczB4Mlg5R2xIbkJxUE84THBvMDNETDE0cWFQTkZWcmhwTDNIdFJsNmdKZnhNdFl0RGttKzRmV2JEaElSSmtYakRvdjltMk50U1RpWm4wMEU3MnVVOG10VTVuTkFJWHdhTFE1SnZzL0U3MjM4U0FSWmM1UjU3VmYzSENhK1NOTmVNVE4rajI1d1pmUmFITWNPZjRVUzgyZEphUE1pMFNkTTRpaHhIbXp6YUxOZlRETm1vRHlhTFpodExrUHBsa1RRRk1GWUJBRFRacVoxTHZWWWtuRXpaWko1eWJkUVMyV1JOeHNHYzE0M295WVpRR2E1VkhNL2Y2L1VzeTljSkwyY0VyMzBxVnprKzYxcVJjM2syYTVGSE5adWpWUXpFTkoycU1wM1ZrNmJ3V0swbXlGWW83VUNpbm1peVR0c1pUdVpVdm52RFZpVzVobXl4VnpwRlpJTWZlVHRDZFN1cGN0blRPTXdBYXQyVkxGSEdnV1Vzd1hTZHBqS2QzTGxzNFpSbUNEdnRsU3hWeTFacjVpSGs3U0hrbnB6dEo1L1JjM2N3aVFSekdIb1BMcFFqRi9FRXJTSGtucGZwNFR0dGQvY1ROcHRnSjZGUE1BVExNbVdHcW5tU2JGUEFEVHJBbVdORlVBQmpFd3pSZ1ZnR25HcUFBMGFjYnpac1JRZHRSNVRFT3ZQT3JjcEg2d3FSYzNmUWhRUUVPdk91cmNwSHR0NnNVcDBHeE5EWjJqemxPM0hIVytCQVUwZEk0Nk4rL2lSRnF6ZFRUMHFxUE9HVWFnOUtqem1JYXVKK3FjUVF4bFI1M0hOSFNPT204bk9PcWNVUUZvUnAyYjFMdlZZa25FelpaSjV5YmRRUzJXUk54a21tV0FpQ1VSTjVsbUdTQmlTY1RObHRHTXA4MklvU2pORGtkanl3cW02aFZtKzFPb1gzNmpqNnYvWDlpVnN2ajJ5Mkc3V0RSd1FlbDhiWDhadGFJZ3pkd1hiMTQ5MjM5d0xiclg3a3lEK3VWQU9TV0x5NWw5SmE5ajlQa0NCYVh6ZGYxbDFJdENORU1wSEJraFhuV21XSjhjc24vT3IwNzkrdVZJTXlXTFE1QzVLbUd1b3M5VmFYUFJIQmFVenZOS3ZidzFZMXVJWmlpRkk1bnNnV2ZMK3VTZ2ZRdWErZlhMUVFId1pmSFovZ08vaFBraSt2d3hpRkVnTmhXU3puTzdhbEkvMk5TTG16b0VRQ2tjR1NGZXVYdFlPQnEwYjZDWnFsK09yWmt2aTR2V1ROV1c5cXVjUTJsenFVTVZrODRMZmx0akxZbTRXUzNOVUFxZlltdldGZHhBRG9IMkRROU52MzQ1MGt6SzRtR2F5ZWh6TEczdVFDZS9tSFRPTkNObVdZaG04RkFjb0R5T2ZUT3NUMjZMeCtSOWEvRDRaVXU4VXlOTktZdkRTRk9WTUg5TlZUbWZRbWx6ZDlmaXFITVRMbTRxemZUZ3E0azN2N2JTaXFYekpxQkdtdGxaOFNvUk1NMmFBSm9xQUlNWW1HYU1Da0NUWmliMWJyVllFbkdUNGhBZ0gzaENvd21XSlNWc2o1VTQ5M1FuYk0vdHJFbjMydFNMbTBteklpWE9kU2RzeisyclNmZmExSXNiVExNMVM1enJUdGhldHhUTTIvS2w4d0lsem5VbmJGL0xYMGJ0S0N0aGU2ekV1ZTZFN1p0OFpVYjFLQ3RoZTZ6RXVlYUU3VXd6WWlncFlYdXN4RGtuYkRmNTRvWU9BWmFERTdZWHNDVGlwamswNDRUdFJTeUp1R2tPelhTRGFkWUVTNW8wWXhBRDA0eFJBV2pTakNjMGlJRnB4cWdBWmROTVRyTGhPbzJ1dTl1Wnd0SnNTNjNDa09KNFZFcjNJTGh1OXNZRWordDVMSjAzdzdMMDFneW05UitQNWxjRWNRYnpvU0RPcVVwMjRLYzhpR1U3VUxSekQ5eURrSU14TU0ySVdWWkJzOGNqbGVoNC91RndrS0NaWExvQjY4N0cxaXZYNWFxTy9UTzVURzN6RlJvUGM2OGs0TG9BSmZwWlBzMXdoWVpxemE3TlhoL0ZhQ2FYYnNBeUR4QkRCN2lxdys1TThTMkFXN01tV0ZiVm1nMGhTOVg4bXVkZXZCMmxtVnk2QWNzOERrZUNacmlxQTZMWE5kR01ZUVFxNlp1NWU3SnlFMFQvMmpzVHRRb0QvNnFsRzdqTVE3Vm1kdWZCS3BveGlLR1NrU2FzMDlqQjBrMkNPa2ZIL1dEd3VYMVRaVHM0azhzOGNOV0dOWENzeTBNL0dvQnAxZ1NZTlc5bUR4SzdtR1pOZ0ZFMGMzZVRxenRZT20rQ3BWRTBTd1BUckFtV1RETWpMSW00MlRLYThid1pNY3VtMDR4aEJJcG1hNFNvRXRGZlJ3RVNhZ0hjVE9RdENLVTZnSVhiNlZJNTF3Vm9CNHExWmppRGYrcW5MQWhxQVVRWFc0UlNIY0RzYkxwVXpuVUJXb0VOYVlhNmQxQUxJSnEzWUpIcUlFS3pxRlRPeVExYXNkMk1abEwzbHJVQUVua0xGcWtPd2pTTFNlVmNGNkQraXhzN0JFQXlDRzQ0Zmg5SzFnS0k1aTBJcFRvSTBTd21sWE5kZ1BvdmJpek41dS9KNmhOUzl3NXFBVVR6Rm9SU0hmZzBTMHJseFpJYm1IUUh0VmdTY2JQcUNRMTNGMG8wS2QzNzF5OWJPM2VIOGJ3RjNVV3FBeVdPcDBqbFArWGtCdlZmM0Z5YTVjYnlWQWNwVW5rY0xKMDNBU1hUYkhtcWd6U3BQQTZtV1JPUW9ObWpyWE5Qdm5XdUptOVN3RFJyQXVJMGUvckRwKzk0VDMvd1NWMytKTUEwYXdMaU5Qdm1Ud1ROSGozM1pWMytKTUJEZ0NaWXBqdzB0N2FlTmFjeDQzbXpSbGltRHdIK05zU3pGSjE4TklZZzhxZ0Z2anE4R2N4cjdIeng4VUlXaHlOUkQrL0dMaFRMM2k2ak04UHlPOU9zRVpZUm1qMzkvcFpFcERsTDZ1UTNyNTd0UDdnV3MvQmtHUUFNTW5jdlRpRmRhQ0NMNDVFeVZqUHFUQ3prM00vdW5uQXdCcVlaTWN0b2EvWUwxU2Y3MjFTYUxYUnkzSWNsVzkyZjlIZFU0S1VLR0lld3pCTlptMExKNHVwSUZYaytoTW5aenFkV3p4Yk5ISDR3M2g2TmNmcTJLMmtHOGp1Y2xxWHp4bXh6ekp1bDZPUzR6eDU0OW12aWtTZ1ZJaFNQL0RJQVI5Z2lCYks0UEZLMlpuQVVLSjFIazlubmkyb0JqMEdWOG8rMk93L3d0SGgxWGdqVUJDUm9CZy9PNXlNbUtUbzU3aE04Y1Bld2lMbWttU3dEZ0syWnBJZ3ZpNnNqWmVRNUhqVy9jbno3NERRNDVlSG9OZ3BTVTFsRVlINVYxa1lQT1JnRDA0d1lFaE1hYjU4VG84M0k5R3lLVGk1Yk0vR21GOURNUFpCbEFERElITlpYT0QxZkZsZEh5bDRYSHVYWkYrOUNkaUQ1Z2VmKzZEcWNWNWFBR3VlZ0dZTVlFdE96dncvZHMwamZMS21UVDFBVng3N1plT2U0Zng1VmNYaml5V2h4QzR1YWdEU09zdmoyeTNqa0M3dFlsQTZQRWcyZGVBejdwNXhDV3lrdVl1R0pPbFBIR3NCcHV5RUhZekNwZDZ2RmtvaWIraVkwZnZXdStQTS9xNTg0KzJxQ0tUWVNZSm8xd1RKOVFxTUdUZFBPcU5ISk5HdUNaZXFFeHBNL3lIMjIwc0UwYTRKbDRxRjVLekU5V3k5NENOQUVKRmRvZlBNbjN0TjM2bkluQ2FaWkU1Q2cyVHZlb3d2Zi9KSGhyUm5QbXhGRDRxRjU3OWxQYnNYbVo5TVJsOElYQXZvQ2h6Y0MrZHpkdFY2N09nMkU5L09yaGZTd2d6RXd6WWhoOVFxTlRFU2s4Tm1sUUVCZkFLUjBKWi9QWGdjUmFib1Ezbk1JNlNFSFkyRHBuSmhsZEVMakI1L0lPWTFjUXdBcGhVT0JWdWVWbHo2emVvR0Ezam5yOXh5YzBOMGVCVkhsa2tBaDRYMjFrSzVET24rWVcrTGxoTzBsK3Bsb3pYNlJWQUV5NExkSHp1VmhaM3AvVDdWbXZqUitPSkpTdXBMUHg2aHA3a3dDNFQySGtJNVg0ZGFzQ1phSklVRCtNQUFwaFV0SkNXSi9Bd0hkM1VPV1NDbGR5ZWQyMS9ORnpZRy9qR2lWa0I1eU1BYW1HVEhMUkd1R09sUGUxc3lEcFJ0T2lHYnVnUytvajNjK1FDbGR5ZWZ1N2dBT1dBanZPWVQwa0lNTTJraTBacm43WmpOTXdnNGlVZWQ5U0YvMnFoVFFVUm9QY3E4SFVlVXcwaFN0MTJOZmVGZEhMeFBTbDBqbkRHTFlvRzlXSmhaQ090T3NDVWlkMEtoZjAxd0k2VXl6Sm9DbXBtbFM3MWFMSlJFMzlZMDBTV2lhSnQxQkxaWkUzTlJITXhLYXBrbDNVSXNsRVRmMVRXamsxalFyQXMrYk5jR3ljT0twSXNyNW1iUmg2YngxS0o3ZnJJaHlqamJ6S3FWemhoR0lTdWMvWE9QSUlzcTVuMDI3T3VtY3QwWnM0eUVuK2FjeWlpam54eEdhVlNHZE00eEFsR2J2b05pVUw2NnBpSEllYnMxWU9qZmw0alVOQWU3bGF0T0tLT2NxYWZ2RzBybEpkMUNMSlJFM05TMXJmQWV5RzVTbm5NK2t6ZWJTdVVsM1VJc2xFVGMxMFF5V1oxeklmYVlTc1VJNk4ra09hckVrNHFhMlJkcTVUMU11V0RwdkZtaVdiV1VRQTlPTVVRR1lab3dLUUpObUp2VnV0VmdTY2JONjZUd2JtWlhRYjZCYzd1NTJwdERGdHl5L1N2RDZ0YzVOdW9OYUxJbTRhUkxOc2lxaFB4NUpnV2tPVTdHblNoRW9WdXZjcER1b3haS0ltMmJTTEZJSi9mSElsOHMvSEE0V05DdFU2L3hoYnVuMllXNkpsNlBPUy9TelRKcUZLNkZqSm5iVm1sMmJ2VDRLYUZhbzFqbURHRXFqV2FJU09yUm1LSmZQcjNudXhkc0J6WXJVT21jUVF4azB5NnFFdmlmbGNsQ1I3QjBsb3hlcmRjNGdobEltTk5Jcm9ZT1FMa2FVWXI5ZzBORnhYdzAraTlRNlp4QUR6NXNaWVVuRVRhTkdtbHJCTkd1Q0pkUE1DRXNpYmpMTk1rREVrb2liTGFNWmd4aVlab3dLc0pwbVVFeTE4OHVSZTVENEpCd2tQaC9DVW45aEoyY3o0Rzh2VjNYelF0STVneGhXMGt6UUFyT3NENU1CNFpFZzhkaytabU1mdVM5TnZObnJvNjhod2p4UGRmTkMwam1ER0ZiUURFUEg4UmZINnVOK2pQbXJXSWtjbFBFWlJwaUxmY2Y3VTdURDJYdjQ0MTdQVmQyY3BYT1d6bVg5Y2hTL1JTc0ZjZUFRWXc2VnlNVUhVaG1IMEY5QkVFeVBBWFpqYUwwRVI4WldOMWQxODBMU3VVbURLQzJXUk53c2E2U0pvZU1lTGhyRGF0TXl4bHpHLzBwbEhNa1NhTjcySUdqTmtHT3JxNXNYa3M1TnVvTmFMSW00V1JiTnNINzUvWUZmMUZ6Rm1FT2dlRThwNHhoaC9obnlBMFZ5Nk9KRC84enpiay96VkRjdkpKMmJkQWUxV0JKeHN5eWFZZnc0WmxuSDZ1TXF4bHcwU2VMSktaVng2R0VOeGlDT2QyVTJkam5TSE11NDh4elZ6Vms2YndFS3paczV5VkZuQVdSVk40K0NhZFlFRktIWllwcHJJMlJWTjQrQ2FkWUVzQXJBcUFBMGFXWlM3MWFMSlJFM1d5YWRtM1FIdFZnU2NaTnBsZ0VpbGtUY1pKcGxnSWdsRVRlTm9ka2haakRvbkVXenQ4UGFEZkVCVExhOXNPdXZ5YkFoOUlqYk9Xd0FBQjQ5U1VSQlZNUlI4U2c0NXNTVkdUMFBvenVqRGpKb1F6UE5JSS9CSlc5KzlkTlFLUXFZMHZjVEhJai8vVFVaN2g3SVVIYzh1U3JqOFVpWlN1VWc3aUNETnJUU1RKWUN1RFMvQmlVbWNPbUdhSjk2anZoUEpUaEFtdmxyTWpCK3M5K1pTaUY5anVzekxxbEV5TGdlSkh1RkJtK0piYlhTVEpZQ2dOVVY4NnRUV1J4ZzRIbjM5NElFQnhhSzVYSk54c25JY3crK251SmlJbmhtNHZvTWZHWGpHcEJsZFFFWXhLQ1ZacklVZ0d6TkpNMWdoWTk0T25vcXdRRzJabjZwZ0lFVXJVNUdNdk1CcnM4UXJkbHdJQTVHb1Q3a1lBd205VzYxV0JKeDA0d2hBSzduT0x2a1FWMm1xU3dPTUVDYUJRa09rR2FxVkFEMnpZSnFBWHU0UGtNY08yYWFOYzlTSzgxVUtRQWNRQTc4NGdEZFdiOEhhemVPL1pHbVh5cGdMQXh0bVFWQjRQSlFyYy9vVEIxWThuSGM1N29BemJIa2VUTWpMSW00MlRLYU1ZaUJhY2FvQUV3elJnVmdtakVxQUUyYW1kUzcxV0pKeE0xcWh3Q1ptZjlIRWRrYnRYR0VJK2N6VU9lTVpEZmd1Z0FHWE54VW1tVmwvby9teDFEenJ3QmZJQWRFc3h0d1hZRDZMMjQrelNLWi96MDUxZS91bnY4Y0pITlVreHpJZytBTDVIZ3NIb0t0Mk5oNjVUb25OM2pJeVEyeWtKYjVIM2E1ZTNabmVqTDZDZ1JMVUl2Y3R6QVBnaFRJVloxelBPUms1RUMrQTN2QWRRRmFnUTFvbHNqOEQ2M1ovT29VZWxyQUc5bWE5YVIwamdJNVdNcER4cGJWRlU5VW9CblhCV2dCaXRFc0svUC9peU5CczlPSmFOUUdxbThtOHlBRUF2bUJPZ1FldUxac3piZ3VRQXRRY0VJalBmUC9OaVFQR3Z5Mkx5VnpEN1J4eUlNd0JZRWNSNCtpL3hXa1JPZ3FvWjJURzdRQVpjK2JMYytEWUErV2ZZcmdrV1lUTEV1bTJmSThDTzd1Nml3SlRMTW1XTElLWUlRbEVUZVpaaGtnWWtuRXpaYlJqRUVNVEROR0JkQkFzOFBST0pML2YrYUw1SkQ3MkovbTJQbmk0NFZLTHJWUGpqcHZEemFubWZ2aXphdG4rdzlDZVJkOTlWSUo2bzlIN2tWSTdMNVF5VkU5NTZqekZtRlRtbUdnT1JJRlU4eGl0TGlrbVF4Qnh4Qk1HUXZucStSS1BkOGs2cHlsODFaSTV3dkl3Z0ZBTEVqLy94cEdpNnZjN1NvRVhiRHdDQnVvUUNYMzFmUGlVZWNtRGFLMFdCSnhzN2FScGl3Y0FNVEM5UCt5ZWdEU1RJYWdZMnNtR2VPcjVFbzk1Nmh6VXk1T2dHWVlhSTZMZkREOWYwQXo5MENHb011QThvdFRlRUFxbGR3dktNQlI1NFpjbkFETk1MWWNSWExzbTBHMCtIa1V5VkVydjR3QjVRTm92N296cFpKdnY2eHFBMndRZGM0Z0JwNDNZMVFBcGhtakFqRE5HQldBSnMxTTZ0MXFzU1RpWnN1a2M1UHVvQlpMSW00eXpUSkF4SktJbS9YVExEMVR1d3dhZ0xtTXVhd3FqSXI1UENTV2M5UjU3UmNuUkxPTVRPMVF3SFgyK2doaTZGVHRjNXlWRFlubGhhTE9HY1NnaDJhWm1kcFZTV29JdVB2TkZHbG1xMmc3WHl3dkZIWE9XMkpiUFRUTHpOUStoa2NmaEhMMlpoK2hzQ1FWODVCWXpsSG5iWUFlbW1WbWFsZXRtVGQ3NDYra2ZobHF6YVJZemxIbmJZQzIxaXc5VXp1c2s0WCttVGVHcmxha2I2YkU4a0pSNXliMWJyVllFbkd6NWlGQVpxWjJPZEwwVkZnd0NPWWdzMGZFOGlKUjV5YmRRUzJXUk55c2ZhUlpHcGhtVGJCa21obGhTY1RObHRHTVFReE1NMFlGWUpveEtnRFRqRkVCMXFZWnpQWjNmamx5RHhLZmhQTm96NGN3bnlIczFJeUcrTnRManpObjZiejJpeHM0QkJCY2d2enNONGZKOUhpUlRPeXovU25tY1ZmYStkY1EvSlFhWjg0SjIydS91SEUwUTRrY0NZQmg0UkNYNUx6eTBtZXZZb2o0SFl6c0JkMWM3RHZlbjZLZHJ6YkJBbzNVT0hOTzJNNVI1M0hJR0hQSXp5NWFLWWl5ZEM3TFpXUWdXMklzT1FpYWdpOFl1UWwydm5ZK3RycnBjZWFGcEhPVC9xRnFzU1RpWmtXdDJhSEtoeUdlaHhqM2k2R1hua3pLTG1QSlVUY1BKSEI3RUxSbTh5dnAxYzFaT204RDFtN043TTc5Z1I5ZURucTNwSm40UU1XU2cyNytHZElGODdnSDJybDNlNW9hWjg0SjI5dUE5V2lHcWpnVUxwOWdXTGh0V1ozM2R5YVFsUDNCSWhNN3hJeUxzV1FYN2RSSWM0d2p4OVE0YzA3WTNnTG9tRGRibnBSOVF6RE5tZ0FOTkZ1ZWxIMVQ4QkNnQ1pZMFZRQ1Q3cUFXU3lKdU1zMHlRTVNTaUp0TXN3d1FzU1RpWnN0b3hpQ0dLcVBPcDlxa2N3WXhWQmwxcms4Nlp4QkRsVkhuK3FSejNoTGJWaGwxenRLNW1SY25Nd1RJRjNXdVR6bzM2UTVxc1NUaVpzMDB5eGQxcms4Nk4ra09hckVrNG1iTk5Nc2RkYTVKT2pmcERtcXhKT0ltejVzeFRBYlRqRkVCbUdhTUNzQTBZMVFBbWpRenFYZXJ4WktJbXkwYkFwaDBCN1ZZRW5IVEdKcWxLK2dRZ0M0K2dJaUJGM2FWV0g0M0xYMTd6bHJuSnQxQkxaWkUzRFNGWmhrS09nYWd3OHlyK0Q4UXk5UFN0K2VzZFc3U0hkUmlTY1JOTTJpV3FhRGpjZ3VmWm43Sjg3VDA3VGxybmZPVzJGWXJ6VElWZEF4QXgwZGlaeHFJNVducDIzUFdPbWNRZzFhYVpTcm9IZ1NnKzYyWlgvSThMWDE3emxybkRHTFEzWnFsSytpT1lwT2ttU3A1bnBhK1BXZXRjd1l4YUtWWnBvSU9BZWpIL2toVGllV1QxUFR0K1dxZG05UzcxV0pKeEUwemhnQmxnR25XQkV1bW1SR1dSTnhrbW1XQWlDVVJOMXRHTXdZeE1NMFlGWUJweHFnQStXaUd3ZUEyWnNXRHJPeVlpbjFzV1VHVW0yKzJQMDBSeWJkZkR0dUYwN3B6MUhsYmtMTTF3N2kyMDRuS3lvNHAyNitlN1QrNEZyV3lPOU0wa1h5bWxtdkE1R3MwclRzbmJEZmg0dVlNQVFLYVFWWjJSUUhZTngrSzFpZEkzZzRTVTRwSTdrdmhJR3pLRTR5M1IyUE1IOXJsaE8yNDVZVHRDSjltTWlzN0t1RzR6eDU0OW10SzUzWkFKVW9UeVdmN1Vnb0hEVjJlQUZWTUZEMDU2cnoraXh2V21na3lPSDZuU2ZBTDlnbDZ1WHRCOG5hZ1dZcElEcTBabUxpNFZBTlBjRGk2UGNWaXdSeDFYdi9GemFFWjVGb0JCc2lzN0U3QUNMc2JUdDRPRDgwVWtUeE1NM2tDei8zUmRUaUxJQlFuYkc4RDhrNW9ZUFQ0WEdWbC96V21Zb2NZY3V5YkJjbmI3OHRzN2pHUkhFYWFhRExydjZaT01JV1dVWnpTT3QvbmhPMXRRSTN6Wmw5TnZQbTFsVlpNc3lhZ1JwclpLdEJrT1pobVRRQk5GY0NrM3EwV1N5SnV0a3c2TitrT2FyRWs0aWJUTEFORUxJbTR5VFRMQUJGTEltNjJqR1lNWXRCQU01blBZQkRmN1I1Z2ZEQU9KeDFyNTR1UEY0c3g1Q3FOdENvQk9aTWJNSWhoYzVySmZBWk9KMXAyUXZBSnB2RmwzZ0wzSWhSQlh5ekd3RlVhcVZVQ2NpWTNZQkREcGpSVCtReEFRUUpGSUVocFlIVnhVWWFNOUpVaGwwRldBN2xLSTdWS0FDYzNhT1oyVTVvdDhobmdhbzJlWCt2OGNPUytOTUZQeE9Qd0NCdW9ZREdHWEtXUldpVWdaM0lEazNxM1dpeUp1Rm5iRUVEbE00QUZGYmhhQXhtR3NxVmN0NEd0bVdSTWtOVkFydEpJclJLUU03bUJTWGRRaXlVUk4ydWptWi9QQUxacXRjWjQ1ek1ZRC9nMGc1VkNnb1JRNTBSbE5aQ3JORktyQk9STWJtRFNIZFJpU2NUTjJtam01ek9ZRDdkdndtb05UR2tBYXk5d1VjYjNNRy9CQU5xdjdxd2ZMTmlRcXpSU3F3Undjb05HV3BZeWI1WnY3VVUrOEVpekNTaUZadm5XWHVRRDA2d0pZQldBVVFHWVpvd0tRSk5tSnZWdXRWZ1NjZE9zSVlCT01NMmFZRmtUelNBSHduL2ZCY25Kc3VTY3h5eGFTU0I0enpScmdtVk5OTU1jQ0tpdW4wNms4RzdIdEhlYmt4czB5TEltbXVHQ2p2bUh3NEdpR2FaNGg3d3RLdTBCSmtwZzZid3gyN3I2WnBBRFlYNXQ5dnJvZENLRmQwR3JrNUZLM2c0dlpBUTdqelNiZ2ZxR0FQWmdmczF6TDk2ZVNPRmQwR29NbWF3ZzdRRzhZSm8xQ1hVOU5HRjVCZ2hTOXM1RVpqSVF0SUtNUTVqMkFGNHd6WnFFbW1nR09SRHVEbUdWOXRHeEZONy9teXdpZ0FsaDRJV2psbjN6RUtBSmxqeHZab1FsRVRlWlpoa2dZa25FVGFaWkJvaFlFbkd6WlRSakVBUFRqRkVCbUdhTUNxQ1JaaW5GQXpBZXZlc0dHbms4WnBqckFyUUVPbHV6WlBHQTBmektCQ0xpbEVhK0gyY1oxd1V3NGVMRWhnQXB4UU93MEhUUDE4aVJRdmFiMXB2V0lLZ0R3SFVCWU10MUFmSWpwWGlBYXMyVVJnNmZ6L3BkcHd0cFhGUWRBSzRMVVB2RktiWm0wZUlCRUlQWjlYeU5IQ25rRENCb09LZ0R3SFVCYXI4NE1acWxGQStRK1gxOGpSeHova3VhQlhVQXVDNUFHNkIxUWlOUlBPQzREd1BQZWFDUlc3SUhab1hyQUhCZGdCYUE1ODBZRllCcHhxZ0FOR2xtVXU5V2l5VVJONDBZQXBRQ3Bsa1RMSmxtUmxnU2NaTnBsZ0VpbGtUY0xKRm1rRUMyODhzUlROekhJUE91S3lpbFhGWTRsSG80eHBOM2x4M0UwbmxMc0pKbWdoWWdndDhjOWhJZm9VTHVBNVZ5djE2cjBzT2wxTFRrb0tMU09ZTVlWdEFNODdIakw0NHAxQ0dIcC9QS1M1KzlpdW5VNzJBV2JNalFEdnZBeUtlWjBzT1ZjSTZKM0R1ZldqMWJISVd5dW9vdGgxU2hoYVJ6M2hMYnJxQVo1bU5IRVJ6enIzdWVjM21JNmRURkIxSWhoOVRaZ2lCVE5NS25IUlF3bDNxNGJNMzhSTzVIazlubjZpQ01MY2VrMjhXa2N3WXhyS0Rab2FvZElSNkptQmdiMHhRRHRkdzlwWkQ3aFFEUUtDaHlMdlZ3S1p4akl2ZjVsZVBiQjZlQnJBNng1WmpubUtYeitpOWUveEFBODdIZkg4aE03Q2NqRUxnbHpjUUhLdTg2Wm1qdlNhVThvSm5VdzZWd2pvbmNQZnZpWGVqZXlZTXd0dHlCWGxzeDZkeWtPNmpGa29pYlpkRU04NjlEaVBnRVU2amI0cEg0L3M1RU5Fa3dva1NGSEhwWWcvSE81TEZVeXVWSVUrcmhBdENGZzc2WllOOUgzdW5FbDlXbnNGNEkwcnFmN3hlU3prMjZnMW9zaWJoWjdieVpreHgxRmtDK3RPNU1zeVpZRnFIWllwcHJJK1JMNjg1RGdDYUFwZ3JBSUFhbUdhTUNNTTBZRllBbXpVenEzV3F4Sk9LbW9TczBac21vYzE4c0QyTFFvMXE2aDFyOUd6aXpDeEVFVExOR1dKYmNtcVZFbmZ0aXVSK0RIdFBTRmUzY0E3VWtoR25XQk12eWFSYVBPdmZGY3A5bXFLVmpHemUyWHJrdWE2ZnZ3NlN2YU13NDZweWp6dk1nR1hVZXhKa3Jtdm1GengxUTErMEJhdlYyWjRwdkFUd0VhQUxLcGxreTZqd1F5eVhOcEpZT0tkb1BSNEptcU5YUHJ6TE5tb1VLSHBxeHFITmZMSmZ2bEpZT0NWNXMxWnJablFkTXM0YWg5SkZtUE9yOFJqL1ExVEVHUFJEZ3V5alQ0eC9IdWp6MGwya3p6Wm9BcytiTjdFRmlGNDgwbTJCcEZNM2MzYVFtenpScmdxVlJORXNEMDZ3Smxrd3pJeXlKdU5reW1qR0lnV25HcUFDRmFIWTRHaWZqeVNIVUpCbDV2djF5eU02R2lRMEhhOCtwbGJNY2RkNE9GS0daKytMTnEyZjdEMkxyK08zT05DM3kzSmN1WjVjZzZPNXc1TjN4Wk5qd1kxeVl3VkhucmNENk5FTnhHK21BSVV0Qk5Eb29SQ21SNStJbG1qaFd6OFlZdTM1bktzT0I1NXl3UGRpeWRCNkhERVFIT2tBNCtXdmllWWZSNkFNbzU1c1NlVDdiZjRBbTkvY2dzTmc5K0hxS0tSRWtWVGxodXdrWE4zS2tLUVBSZ1E0WVRoNUVvOHVxMFluSWMyak53RVE4TWJFMUV6WW5JMnpOUEU3WWJzYkZqYVFaaXR0VGJNMjY0V2gwZUdpbVJKNkhhQ2I3WmlDbm8yeStWenhodTBsM1VJc2xFVGNycEJtSzI5NFlTcGhBM3l5SVJyOHZ3OU5qa2VjdzBrU1RXYitIQjlreXA3dkE1U0VuYkc4TGVONk1VUUdZWm93S3dEUmpWQUNhTkRPcGQ2dkZrb2liTFpQT1RicURXaXlKdU1rMHl3QVJTeUp1bGtXemxQcmx1ZkszejRld3RsL1l5YXAwOExlblVUbzM2UTVxc1NUaVptbXRXVXI5OGx6NTI4VnhhT3krTlBGbXI0KytodmxjbHM1Ymk5dzBXOVF2ejVXLy9YaGZDdWs0bVE5LzNPdWVQdW1jdDhTMmVXa1dxbCtlSzM4N0hBZDJZM2oyQ2NxTXJhNUc2WnhCRExsb0ZxMWY3dVhKM3k3cGd1RzlzaldiWDVub2s4NFp4TENLWmluMXk1MDgrZHZGTWRKT2pBdWdmK1o1dDZjc25adDVjUU9HQU1uNjVaTTgrZHZGV0xLTGRtcWtPY2EyVUp0MGJ0SWQxR0pKeE0xYTU4MzA1Ry9QQU5Pc0NaWWFhS1lwZjNzR21HWk5zS1NwQWpDSWdXbkdxQUJNTTBZRllKb3hLZ0JObXBuVXU5VmlTY1JOdzRZQUtRczdidlRUNmdEd0NnMERMazZXWm1rTE85THJBQlJib1dIU0hkUmlTY1JOWTJtMldOaVJYZ2VBa3hzODVPUUdoWkd5c0NPOURnQ3YwR2dGeXFSWmRHRkhlaDBBWHFIUkNwUkVzNVNGSGVsMUFJcXQwR0FRUTFrVEdvbUZIYklxUUx3T3dFLzduTnlnRGFoMzNpeWxEa0FjUE5Kc2dtV3RORXVyQXhBSDA2d0pscXdDR0dGSnhFMm1XUWFJV0JKeHMyVTBZeEFEMDR4UkFaYlFMRVgvdmptTVZ3TUlSS1NVbWdCWXl6QnVIMUhPdVM1QVM3Q3NOVnVpZjRkZ1M0MDdyU2FBTEVFZE5ZOHE1NXpjb0IzSVJiT0kvbTIvYWIxcERaeFgrenZIbU1sZ2ZuWHE3cDcvUEswbUFOUUd0bnVRb3ZhczMvblU2dG1pMGNKempiZEhZNHkxNjdKMDNucnBQRlgvUHV0M25hNzdGaVkwd0JCelFiT1QwVmVUdEpvQXNqV0Q4Z0ZnZWpTWmZhN09oVkhuZURUWEJhai80aldQTk5QMWJ3ZzBkdzh3b1lGUE05VzNTdFFFZ081WlY1WVBtRjg1dm4xd0dwenJjSFI3Q3FMVGxPc0MxSC94bW1tV3JuOEhOTE43bU1uZzd0WHA2VVJRTHFVbUFEdzBQVmsrd0xNdjNvVmtWZkpjbnZ1ajYzQkNRU2hPYmxEN3hldWVOMHZvMzNlSDF2ZEVEOHF5ZGo3RGh5TmtNbkNzd1cvN3FUVUJCS0NWdy9JQmdrL2krZXVmYXdxTnBEaTdkWjZsODFhZzZMeVpob1FHb2o4M3Y3YlNpbW5XQkJTa21ZNkVCclpLRExvY1RMTW1nRlVBUmdXZ1NUT1RlcmRhTEltNDJUTHAzS1E3cU1XU2lKdE1zd3dRc1NUaVpuVTBPOHhWRnlCTlNZZk0yMXdYd01DTEcwaXp2SFVCMHBSMHJndlFXcXhIcy9rUUtnSGtxUXZ3V1lxU3puVUJXcnRkajJZMmlKaTU2Z0trS2VsY0Y2QzFXSTltZ2xrbjhLeGJYUmZBUzFIU3VTNUFhN0YyYTJaMzd1ZXBDNUNtcEhOZEFETXZidHdRQUxYeVBIVUJKaWxLdWppSTZ3S1llSEhqYUpZT3JndXdzU1VSTit1a0dkY0YyTnlTaUpzdFV3RVl4TUEwWTFRQXBobWpBakROR0JWQUE4ME9iNFNVN2dWQVhKOHJqZHl4ZHI3NGVLR1NvOGd1Unc0MlRGMHNoSFR4cXVkaHVGN1V3UmhNNnQxcXNTVGlabzFEQUpESUYwcDNnRG1LNjFJamR5K0MyTGxReWFYSURuRlBPR01iRXRJdmVUSWFLdTdnMHUrd0RFUXNpYmhaRzgxUVRKZEt0NHd1QitrY1dxVXVpdXRTVlRxUkhGSXF1WXBpUjBMWlNpendoZlJMU2lQQWd6bnFQR1hidktqelBFQXhYU3JkZm5UNW9Zd25SM0ZkYXVSSDJFQUZLcm1LWWdlYW9ab2VFdEx4bFkxcS9LRmN2Y2F0V1JNc042VVppdWxTNmNib2NtUVlobUpLY1IxYk04a1lYeVgzSTgranJaa1Uwa1ZyTmh4QVZvNEQxUVR5RUtBUjBOQ2EyWjB6VkxveHVseEs1ekFlOEdrR0dya2dvV0NUVXNuOXlQTkkzMHdKNlpjOGI4dzBheDQycFpuS3VnNUs5ODJoSDRnTzhlUmRFTmUvaHhyNUFOcXY3a3dGbUcrL3JDTFBNZnA4ckVhYXZwQU82OU1jRU4rUCs5MlFnd3phS0dYZUxGODhlVDR3elpxQVVtaVdMNTQ4SDNnSTBBUkxtaXFBU1hkUWl5VVJONWxtR1NCaVNjUk5wbGtHaUZnU2NiTmxOR01RUTJrMG0wVnFtMk9rK3BMUHd6Z2N6ZDdBZktJUW84NDBhd1RLYTgwaXRjMHhDSDNKNXlGSVEvZEFwVTlnbWpVQjVkTnNrZTFkcG5xUHhwZkhhNTlMS1g3L1RDNEo0cWp6aG14THA5a2kyL3NNVTcwZlJPUEw0N1hQVVlxM08xTjhDK0FoUUJNc1M2ZFpLTnU3ek1FZGpTK1AxejVIS1g1K2xXbldMTXR5YVJiVU5zY2dkRW16YUh4NXZQWTVTdkVQbUdZTnN5eHpwQm1xYlM2enZXT3E5MGg4ZWJ6MitVRGxnTDg4OUJ0QnBsa1RMTTJhTjB1cGZjNGp6U2JBS0pxbDFUNW5talVCUnRFc0RVeXpKb0JweHFnQU5HbG1VdTlXaXlVUk54c3lCRWdCMDZ3SmxpdG9sbEx2bkJPMk04M1d0bHpWbXFYVU96Y2dZYnRKZDFDTEpSRTN5NmZaUWdIbmhPMjhYWGVibDJhaGV1ZWNzSjJ4TG5MUkxGcnYzT09FN1l3MXNZcG1LZlhPbmZvVHRqT0lZZVdFUnFMZStZUVR0dXUzSk9KbXJmTm1uTEI5WTBzaWJ0WkpNMDdZdnJrbEVUZFpCY2dBRVVzaWJyYU1aZ3hpWUpveEtnRFRqRkVCQ3RJc1JWTEh0TzJkcy8xb1JtMmNENEc1MS9rUUR0QWtuVE9Jb1docmxpS3BRK0xZcTUrR0VyZUxIZTVMRTIvMitzamRFNFM3enRLNW1SYzNlQWlRSXFuUExzMnZDYUlGT2R0N2p0WER1WHk3QjFyQ2I2YjZwUE9IdWFYYmg3a2xYazdZWHFLZm05SXNKS21qM28yUnZCQTRMcDU1OS9lOE1UejZRS1hxelQ3eTlFbm5KdjFEMVdKSnhNMTZXck9vcEs1YU0wa3pJSTU0U0tyV3pKdTk4VmNqVDU5MGJ0SWQxR0pKeE0zS2FaWWlxVU8yZFU4bVd4L3ZmREJBbXNFQUFmcG4zcmd6OVZnNmJ5MEtUMmdrSlBYanZoeEhEdnpvOGU2czM1Tm1udEk5dFVubkRHTGdlVE5HQldDYU1Tb0FUWnFaMUx2VllrbkV6WlpKNXliZFFTMldSTnhrbW1XQWlDVVJONWxtR1NCaVNjVE5sdEdNUVF3YjAydytESFNoS0ZDRUNxKzFVTHNBanJYenhYWDRlOHdyTkZxQnpWc3pQL0U2aWdDeGp5NkYxbHFFUG5jdlFuaTZYS3RSYUlVR2d4aTAwQXd6SFdCS2RreHM4QUhtL3hmN1lSZXV0Y0FzQ0JZc3Y1aERiVmRaK0ZldTFlRGtCbTNZNnFBWlpEYzRITjNmZyt6K3J3MDdaekwvdjkyWmlsMytXZ3RuSU42SVhmYkFzM3RIMkhqSnRScThRcVAyaTVNWUFrQnJCaUhvN2g1bTk0Y29kRXpNRGlMNm5scHJBZXN2eEJ1eDYzRGtnVUt1amowWjhRcU4raTlPaldhd3pERkJNMWhySWRkZkFNMXNXSHNHSEFJdEhkWnFGRnFoWWRJZDFHSkp4TTM2YUFZalRjeDBJRHIxOEt3Yisvbi9QNE5sR3EvS3RSYi9FYUlFK2owSFFnSXNUQmRreVE2YlRQYkN5UTJJdU1uelpneVR3VFJqVkFDbUdhTUNNTTBZRllBbXpVenEzV3F4Sk9KbXk0WUFKdDFCTFpaRTNLeVpadW01RHFRcUNYdGtydVBmN21KMldxNExZTmpGeWRBc05kZUJrdFJ4RHlZK3VJTVpEVGk1Z1drWEowaXpVSzREUlRQY2c2SENBcmVuWEJlZ2pWdk5OQXZuT3BBMGszdVVGajc3eU9PNkFHMkVUcHJGY2gxSW1zazlxaldURDBxdUM5QTZhS0paV3E0REZNSFZIcldtOFRad2g1TWJ0QSs2SmpUU2NoMVkwTi9DUFMvc1F1SURlR1p5WFFEekxrNW5DRkFlbUdaTnNHU2FHV0ZKeEUybVdRYUlXQkp4czhFMFl6UUIrRnNhVExOVWxESDhKSEpPSW02bW5wTnBSdWFjUk54c0JNMFlKTUUwWTFRQXBobWpBakROR0JXQUNzMnc2SlBhcU5kYXorbFllaXJReW5QSzFacWEvQXlmVXErYnM3Nysyem5ycDkxT0lqUlRoUVZ3bzE1clBTY3V1ZFIzVGxnazRHbnlNM3hLelc2ZVRtWnZURFRmVGp4bndrOGlORk5sVW5EamwwelJlVTVjY3Fudm5NZ0pUWDZHVDZuYlRVOFdQOUo1Ty9HY0NUK0owQXlMUHFtTmVxMzFuTGprVXQ4NWtST2EvQXlmVXJlYnNFQkw4KzNFY3liOEpFS3pzbHN6RDIrVHRuT1cxWnA1bXQyRTlZSGFXek1IVjdkRy9TUkNzOUw3WnY2dnFPZWNwZlhOTkxzSllSZWFiNmNNNVlqN1NZUm1zdWpUQURmeWo5NXoyaktxVCtNNXhVTkRrNStoVTJwMjA4Wmw5SHB2SjU0ejRTY1ZtakZJZzJuR3FBQk1NMFlGWUpveEtnRFRqRkVCbUdhTUN0QTBtdDNiMmpyM3EzZGpPNy81VCs4Ky9UM2NxVFlScE8wTGRqNzV6cGRaSnF1UlBLemdpZENUZjdQYTVOdWZyT1hOV3ZnZm14emRNSnJkZXU1TDc5NHo4UnR5Uys1SjBDL3lhU3FlZnYrNUwxZVl4QkJjSk9OcXVZNU5nZVQ3VW56ejlyUExhTFloTm1KcHMyajI1Ri9DclhoMEliWmJ0R2F3eWZqM3FEN05PQ1ArdWt0Tm9nZ3VVdUJmLzVKRHZ2bWpIQXg2K29NU2FlWTkvZjJWUk05RXMyaDI3emwxSitEWktlNzYvOW9TT3g1dGJUMEREMDJ4dlFEL0pFT2ZQZjMrMXJPZklJZStlWHZyZWRFYS9CL1k4ZlFIUDN2bXozN3ZYZnp3eVhmK2VPdDVwTm10TFR3NUhDaU94N2RnK0YrLzh4ZGJ6LzNkMW5OLy8vMW5QeEdOSGw0RURreTVtb2ROd2hOMXdKZittWlRGejU3NUwvNnh5dnllZU9sZjl0SHpRSGwxcEx4NHlCSy9zZjh1OUlINFZ1TDFyZURhQ3o4V05zSEZ0czdKYi93dC95N0VuYmdWLytlYkg4MmttV2lEbm56cjN3dm13TS82N1U5RUl5Y1k4UCtBSzgrOEcvN3MzamxCSU5sVVFVdndqN2pqNTIrTG4xMFk0b2RQdm5YaG03Y3ZpQmVQeEw1emtvNmUyQWx2LzYwd0ZPL0ZyL004OVA1K0FJU0ZpK0NCS1ZmejRPbjdjLytBbjZzeitSYm5QUC9ZbjB0endheGI1OVJseFg1dmNTbmNHYkwwa0lhMzRGUDFwZFFIOTU1ZmVDNnZyY3dYTm1vZmVuRkIvQWVQN2d3bjdwMHIvTU0wazJad1E4UmR4eDhlZmlEa0V0Qkp2ZzgrZzUvdWdub2lpaHY1aXk5eEJ6RE8veEFlbWtnYjhhOWQwRUk5bU82ZHc3ZndXcDVJVUZHOVVFM2poYlNyeWNGSTZBQThrMi9oQmNkS0UydzgvTXVDVlhDazNMbXc5RlJMRS9wUzh1V2o1ME9lQjllR2I3dXdDZTRTM0FGeEE1LytNTXNKcHBtQzdKczkrZE43ZUZNeWFCYjY3Skg0Qis3VDdNbTMvL2VmZXJoRC9lVDRla0V6OWNUd3lhRisxalNhQldlTlhjMUxwNWx2NFFYSGhuOWhkZGtveldCbnlOS0wwQ3owQWJhOS9pbkNOQXZacUx2MHZHb3hML3dxMHdtbW1ROFlhWXF1cXFCYmNBTWZpZDdYMjgvK1pVQ3o4R2UzMUJNeE9CWjNxSjhjWHd1YWlVY0hOZ3dlL0R2SEFaZDhtRHo5WVp4bVQ3OFAxL0dDczhhdTVzVm9KczhVV01nZTRJV0FzWStnWmZFdkMzMno0RWpjR2JLRXo4RTQ5S1hVS2M3SlEvRVVZVDlDTnZLdjlFSVliNFh1UXN3Sjdwc0Z1QVY5WG16bUw0alh6OThUZDAzczJyb2dYK0FtOU5uZmJUM3pyNTc5bWVwRVAva0R1TXRpeDc5REkvbmhYNzROMXZKb25DNFEzZVF0bU42NHBmclc0a1JpOHhmNDZwbC9EU09GQzNpU1Q1SlgreEw4ZXU2UC9RUCtYcDFKV1dEUC9vSnlRRG4rekx1ZXVpeU1OTU9YZ2pIR3doSy8rRFB2aHI2VS9PRC9mZ3VHRitvVTh0clNQSFN3Mm9kZWVKSkw2VTd3U0xOQzZKczBXTzlNeTZkZU0vQ1Bnc1cvV0lzYzMvem5MUE0xSm5XU1lKcXRpYnBvbGtjRmlBT1k4ZlNkdFE1SnpEa0dZQldnUW9oTzlYUEZueDNsbkNrYmoyUVhJamR1NFpDMEJERE5HQldBYWNhb0FFd3pSZ1ZnbWpFcUFOT01VUUgrR1ZpQ3lXR0R1anU3QUFBQUFFbEZUa1N1UW1DQ1wiIC8+XG5cbjwhLS0gcm5iLXBsb3QtZW5kIC0tPlxuIn0= -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAMACAMAAAC5KFtLAAABy1BMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojm6Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq46rq6urq8irq+SryKuryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/WsD/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///+q9+YiAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO19j5/bRnbf+kev114r7Pqo4+XSS7W2T16btC/bWuc90U16jZucaTlyLdeSqDbXNuauT45iZ0Vd0sbY1d1lxVMVyEIsmvhzM+/NAMRPEgQHwDzgfT/2ggQfgEfwq8HMfOe9t+UxGKVjq24HGG0A04xRAZhmjArANGNUAINp9i8YTQD+libTrG4HGBpAk2YPcx9OxJKIm4UtmWZGWBJxk2mWASKWRNxsGc3+P8NYqJ+oWprN+lZnCi/cF0fefGhZ1vaN8C7xuSXeOtbOxLOtHuw+HM3emKBpz2OakUMqDUpvzWb7SCnvq//Qk28ej6K7Lnnzq9M74q27JxgmySf+HrgHIQdjqPtWMrKRyoLKaHbHEU2YePN4FNt1aX5NtGnilT3wnJ5oxbYFD8/62JjBjMvDh9j+Pgxv676VjGyk/V6V0Wz2uXgSwiNye5TY1fW+ngrGnYxEG2b3RJNmi6doz8EnKLdm1JDKgqpo5ojWaRBtzdQuaM0ETkbYmonH5slIPEWZZlShfqKKR5rAKdHN+s3Uc7ryzV501yU0m1+ZYN9MtGZ258Eqmpk0VtdiScRNYyc0cCS5fXMo2q2x9d0fizfWT8O7XtiF8aQNz1Lxrof2A8e6PMSmzmOaNcOS5ryZSXdQiyURN1tGMwYxMM0YFYBpxqgATDNGBaBJs7rnhtqL3L+b5iGAlMNHaR8pKdyDmdididgc3kANSRzSVR/M+nDofIgfe77SjrMgg7CDMdR9s9uL3LzQPdLEyVaUu/2pVvVSSeGAO/hXWIFQfmXii5ri3ew9wbh/+sNJ+Gz4gSNXcTDNzEJuWpRBM8/pQbvkWLgRjVFPvETxyHm1vzNBZVyK4j7N3J+I/WD/4RsT7zd/PrFhwrbzfm9BM2jwWDo3DTFJPHv7O83SORLD3TsZOb37ex5sBL88fOm5b4nHod1DZRxFcV87fyD2H46E0eyj8WD+10eiNXMGs/2P/dasHzxWuTUzCgVJoq01G1tWVzwmYQOkES9la9aDl6CMoygOrdlwAK3ZgXjnAs3ci//wN0eiwbPAPHhouhenYQdjqPtmtxcFSaKtb3YquQUbaM3ES+ybCeaIZgyelCiKn4ne2zhKs/l7b02PJkcTZ+DuHY6krC7YaPfCDsZQ981uLwqSRNtIE55zs35PbvAlSuEOLMG2lYFUzTsPxEhzvHPcF0avikZMPGWtnQ8s67s/vjx8YVct4xbDUTl85XmzJqDseTOnt9pmKVg6b4JlyTRbzIgVBdOsCZY0VQCT7qAWSyJuMs0yQMSSiJstoxmDGGjSrO5hfXNR6q9YsnTuDwRYOjcexYmwFNVI5/MrQCOWzs3HBkRYhkqkc6QZS+cUsEISf2iydI40Y+mcAlb82PWNNPNI50Azls4pYC3y5LesRjpXrRlL58ZjLfLkt6xEOhevOlOWzlsMmtI5gxhoSucMYqCpAjCIgSbNTFKFtVgScbNl0rlJd1CLJRE3W0azuof9pWL5/TCJPPktmWbGYfn9MIk8+S3Lo1lQBADkgV3IlG1hCYBoqQCuC5BACb9F7SixNZNFAOZXBGUG86GgzKlamsF1AZaijN+ibpRLs8cjpTPNPxwOEjTjugCpyLcCgta2TJrhagzVml2bvT6K0YzrAqSjjN+ibpTfmolOVtcTLZZ78XaUZlwXIB3L76pJHfv8liX3zdw9uXAWqGTvTNT6C64LYNTFSdMMx4qwJmMHV84K0hwd94PBJ9cFMOfipGmmCUyzJljSpBmDGJhmjArANGNUAJo0q3vOQQeqvpG1gmlWFyJfyKTuehmWFRQ6XOjkgZqekM7HEJfZLuk88oVMokQZlpXVOpc6OarpSen8/sAbD1omnUe+kEmUKMOyMppJnTxchDoknUs5s13SuZakAcu2v8stbT/MaVfcz6poFujk26MU6dzuCZq1TDov75YbiKpopnTycGsWks6Rfi2Tzsu75QaiEpotdHJU09Okcz9RVT7pnEEMFYw0Fzr5d3+s1PSkdA5Rw/mlcwYx0Jw3M2kQpcWSiJvmjjQ3BdOsCZZMMyMsibjJNMsAEUsibraMZgxioEkzntEihmpotkpAj6B26bzkm9FGVNSarRLQQ6hfOi/vNrQWFdMsU0CHaidj65XrJkjnq6Th3634fLF9WLYkzdJ5BKsEdCgnAEm3ByZI56u+DI8017aslmaZAjqUEzgcCZqZIJ2v+jJMs7UtK6TZMgEdywmo1oyjzptnWdlIc6mA3jmT5QSsAUvnjYRZ82b2ILGLadYEGEUzdzdZRYBp1gQYRbM0MM2aAJo0M6l3q8WSiJuGDwE2ANOsCZY0aVbPfJkPptnaloYkbDci6jzvN2OarW1pRsJ2M6LOy7gJDIQZCdvNiDrPLTXzdt2tGQnbzYg6L+MmMBBmJGw3I+q8jJvAQJiSsH29qHOTerdaLIm4aeAQYL2E7etFnZt0B7VYEnHTQJppAtOsCZZMMyMsibjZMpoxiIFpxqgATDNGBaBJM54TI4ayaDZLk8yhzBzOc1Qvna/2mIcAJVqW1pqlSebvCS790x9O6pDOVzvMNCvRskyaJSTzD9+YeL/580kd0vlqifd3uaVgjjpf28+yW7OIZP7ReDD/66NJHdL5aoe5NSvRsjyapUjmH7kX/+FvAppVKp3r/4KMNVDqQzMumX80f++t6dGEE7a3DiWONFMk84HTw3EnJ2xvGWjOmzGIgSbNTOrdarEk4qZ5QwBdYJo1wZJpZoQlETeZZhkgYknEzZbRjCfMiKEEmkWiysW7zi9H2Z8r6dyBGY1SpHOd34xRFGW0ZhFp3B4kEv8npfPpHfG2HOlc6zdjFESZNENpHP737DetN62BDZOynfd7SelcNHlTrxzpvNroat6mb0ukmZTGPcfqzfpdpwutkzOY7X+cEnX+9VQwrhzpPLfXPAQo0bJEmjm+XmQPnIHTcw8Eo6DBSok6FzgpSTrP7TXTrETLsmgWSOMOkEfS7GjiDNy9w1GadD6/MllDOmeaEbMsZ6QZSsX+65etnbuiR2ZZOx9Y1nd/fHn4wm6KdA7rtznqvLGWNOfNGMTANGNUAKYZowIwzRgVgCbNTOrdarEk4mbLhgD5ZzNMutemXpwwzdaMOi9JOjfrXpt6ccI0Wy/qvCzp3Kx7berFidMsf9R5WdJ5/DjeNkg6R6wVdV6WdK7/azEKwYyoc68k6Vz/12IUgilR5+VI5/q/FqMQTIk6Z+m80ZY0581MuoNaLIm4yTTLABFLIm4yzTJAxJKImy2jGYMYmGaMCkCTZjyTQQxMM0YFKEKzw9EYll8E74NsBd7hTZjv2h55jrXzxcdqRcbOZLEWoxs7VTQifSaVTAzvjDoYQ36amdQPNvXiZg4B3BdvXj3bf3BtscfXwgVp4OXjkXtxOuv3/BUZai2GVDmj58IPQie6pNSDuIMxMM2IWa5NM1xCgcQSrzpT9yf9HSVSqsUVUHn6BNsof0WGWouh1myIo876nU+tni2aOfxgvD0ad2BNRlfSTJwDT+sVX6ER2D/MvZKA6wKU6OfaNMMlFEgze+DZr4lHoozvVZ9g6nXvCFskf0WGWoshWzM4CvTKo8nsc3+RBlDTWRxtdx7gafF63Jo1wXJtmuESCqSZeOXuuQfiraQZfiJbM0kRf0WGWosh12zgUfMrx7cPTv0PxL7bUwgdnkJrNhzMr07xtCEHY8hPM4YRKNKa2YIP0Jp1PUhZoGiGS8Xszhm83BN9M/GZvyJDrcWQvS48yrMv3oV1tfIDz/3RdUiCgH0zb5yDZgxiWJtmuIQCF1Ng32y8c9w/jwsw4IknV1ZAQhboaKkVGdsv+2sxoLuFR4mGzjuF9f6Y/2AKD1l317LO+4EBAzhtN+QggzaMmTf7auLNr6XsZ5o1AcbQzMb5tiRYOm+CpTE0ywLTrAmWTDMjLIm42TKa5Z/OMOlem3pxptnGNGMYgdJohno6FjAMygPcCBcEwOwF2zcW8vriKCmhD8IOxsA0I4byWjOUBk4n4fIA0awGKLIv5PXQUTBN66hFH0yzJqACmi3KA0SzGqAs5cvr0ZoBQDOYnS0onSfsedvU5AYBzRblARIFAWCphy+vR2oGYMYDCR4CNMGyZJoFurkHz81oVgPZmvkJDyI1A2aXQBUNORgD04yYZXk0m78nF3KEygNEsxqgyO7L69GaAeKhaffCDi79DstAxJKImwbSDMTw7dE8VB7gOFww4Ls/BpH9p0pej9YMEEPS3nwotSemWRMsac6bMYiBacaoAEwzRgVgmjEqAE2amdS71WJJxM2WDQHya0wm3WtTL06TZrOwQo6a+Sj7c1UXYAyz/pvWBUizNOlem3pxmjTzIgo5auZLPse6APcH3niwcV2ANEuT7rWpFydOs4Vmbr9pvWkNovJ4uC6AzNW+aV0AAyRi3lYnnUcUctDMZ/2u04XWKSyPh+sC2D1Bs43rAmj9EgydKJFmIc1c1jqPyuPhugC4WmPjugBavwRDJ8qiWaCQo2YuaRaVx6N1AcRmjboADGIoZ6S5UMhRM78remRWTB6P1QWAVdpcF6CxljTnzUy6g1osibjJNMsAEUsibjLNMkDEkoibLaMZgxiYZowKQJNmPFFGDKXSLCqip+7dSDovx2uGfpTbmkVE8vS9m0jnOTwwqR9s6sXJDwGiIjnkyxhbr1zXJp0n9ie3D3NLvJywvUQ/K6GZFMlPRqggBVHBm0vnOTww6Z+0qRdvSmsmRfKxZXXFUzEefL6BdJ7DA5PutakXbwTNApEc0rbYfmvG0nmrUPZIMySii/4WJHGHSPNNpXMGMVQ/b2YPVtuEwDRrAiqnmbu7M1lttQDTrAmgqQKY1LvVYknETUOHABrANGuCJdPMCEsibraMZvklTZPutakXp0kzWdTc3e1MoRCThTo5FEc/r5Kzq12bS+c6nWaUijJaM1kGeA4FM09lgeo5Fkf3k7Prks61Os0oEyXRDIqafzgc+DSTeoCfnF2XdJ5bGuZt3dsSW7Nrs9dHUZqp5Oy6pHOtTjPKRCk0w6LmopFyL96O0kwlZ9cknefxxaR+sKkXpzkEUEXNodavvTNROrmkmUzOvrl0btId1GJJxE2TaCaapp0JNGmCJ0cySTssZ+z5tc8RHHVuzsVp0kwvmGZNsKRJMwYxMM0YFYBpxqgATDNGBaBJs/yzsyb1g029uMFDgJRS5jeHcu4CM84qKDVcljOf6a11nstPk+61qRc3mGZZpcyj2dmVGg6AOVu9tc5zuWnSvTb14iRoFitljsVZ3d3zn4smqYf6kfNqH6ZrQzTTU+s8l3T7MLfEy1HnJfq5Mc3ipczdPbszPRl9NYEIJlDD3xJPRLsXppmmWufr+8yoC5vRLKWUudObX51CZwuoI1uzHjw8QzTTVOu8yNdl1IPCNMsqZf4irK84nYhGbaD6ZpA3Y9Gaaal1zjQjhuITGolS5nfVSNOxBr8VbRM++EANd3BRtgw711TrnEEMFcybOb3VNtlg6bwJluXTbDEpVghMsyZY0lQBTLqDWiyJuMk0ywARSyJutoxmDGKgSTOezyAGQ6LOHRDh14s61+kyo2SYEXU+veMFOnveqHOtLjPKhRlR57M+NH3rRZ3nk3BZOqctnS/B+lHnX08d0NvXijrP54tJwy1TL050pLl+1LkHiznWjDrP54tJ99rUi1OlWYGoc3HMGlHnTDNilqZEncMglBO2NxY0580YxMA0Y1QAphmjAtCkmUm9Wy2WRNw0aQigF0yzJljSpFl+rcmke23qxZlmTLNmWFaV3MBzrJ1jnckN1vaYUSMqS25wxz/G05PcYH2PGfWhquQGuAZDZ3KD3CsveGvAtqrkBrgGQ2dyg/U9ZtSHypIbAOd0JjfI6aZJ/WBTL27wEGDt5AawBkNbcgOT7qAWSyJu1jChsV5yA1iDMdOW3MCkO6jFkoibJs+bcXIDwy/eCJqVkdyAQQw0VQAGMTDNGBWAJs142owYmk4zk/rBpl68EUOAEJbo7ZlgmjXBstrWLENvfxyjmQqqCzkYA9OMmGVNNIvo7YJl4+3RuHPW3x65P+nvTByrB+L7Muk8r3T7MLfEy8kNSvSzHpqF9XapoAPZTkbOa8OdyeHo/p4H4jsewkOAJqAGmiX0dnhmHo5uT8eQr+pAMAzKCPiTukyzJqBammXp7Xue+6Pr+DT1aQbie8hBBm1UPKGRrrdDy3YkkwONd4773Vm/B+J7yEEGbdCcNzNpEKXFkoibREaaBcA0a4Il08wISyJuMs0yQMSSiJstoxmDGGjSjOfNiGETms2zZe9ItDnMsx7ewNzYs0SUecGo80IOM+rCRq1ZKMw8pHaLl7Foc0xnAAUArkwSUeYFo86LOcyoCRvTDCbyRZPkyJYKQs2dRLS5TPYvaRaPMi8Ydc7SeXukcxVmfjJyeqh2O8AvD19Gos0x2X9GlHnBqPO8Lpo03DL14qaPNFVrhpL3HtRl6gJfxMtYtDkm+4fWbDhIRJkXjDov9m2NtSTiZn00E72uU8mtU5nNAIXwaLQ5Jvs/E7238SARZc5R57Vf3HCa+SNNeMTN+j25wZfRaHMcOf4US82dJaPMi0SdM4ihxHmzzaLNfTDNmoDyaLZhtLkPplkTQFMFYBADTZqZ1LvVYknEzZZJ5ybdQS2WRNxsGc143oyYZQGa5VHM/f6/Usy9cJL2cEr30qVzk+61qRc3k2a5FHNZujVQzENJ2qMp3Vk6bwWK0myFYo7UCinmiyTtsZTuZUvnvDViW5hmyxVzpFZIMfeTtCdSupctnTOMwAat2VLFHGgWUswXSdpjKd3Lls4ZRmCDvtlSxVy1Zr5iHk7SHknpztJ5/Rc3cwiQRzGHoPLpQjF/EErSHknpfp4Tttd/cTNptgJ6FPMATLMmWGqnmSbFPADTrAmWNFUABjEwzRgVgGnGqAA0acbzZsRQdtR5TEOvPOrcpH6wqRc3fQhQQEOvOurcpHtt6sUp0GxNDZ2jzlO3HHW+BAU0dI46N+/iRFqzdTT0qqPOGUag9KjzmIauJ+qcQQxlR53HNHSOOm8nOOqcUQFoRp2b1LvVYknEzZZJ5ybdQS2WRNxkmmWAiCURN5lmGSBiScTNltGMp82IoSjNDkdjywqm6hVm+1OoX36jj6v/X9iVsvj2y2G7WDRwQel8bX8ZtaIgzdwXb149239wLbrX7kyD+uVAOSWLy5l9Ja9j9PkCBaXzdf1l1ItCNEMpHBkhXnWmWJ8csn/Or079+uVIMyWLQ5C5KmGuos9VaXPRHBaUzvNKvbw1Y1uIZiiFI5nsgWfL+uSgfQua+fXLQQHwZfHZ/gO/hPki+vwxiFEgNhWSznO7alI/2NSLmzoEQCkcGSFeuXtYOBq0b6CZql+OrZkvi4vWTNWW9qucQ2lzqUMVk84LfltjLYm4WS3NUAqfYmvWFdxADoH2DQ9Nv3450kzK4mGayehzLG3uQCe/mHTONCNmWYhm8FAcoDyOfTOsT26Lx+R9a/D4ZUu8UyNNKYvDSFOVMH9NVTmfQmlzd9fiqHMTLm4qzfTgq4k3v7bSiqXzJqBGmtlZ8SoRMM2aAJoqAIMYmGaMCkCTZib1brVYEnGT4hAgH3hCowmWJSVsj5U493QnbM/trEn32tSLm0mzIiXOdSdsz+2rSffa1IsbTLM1S5zrTthetxTM2/Kl8wIlznUnbF/LX0btKCthe6zEue6E7Zt8ZUb1KCthe6zEueaE7UwzYigpYXusxDknbDf54oYOAZaDE7YXsCTipjk044TtRSyJuGkOzXSDadYES5o0YxAD04xRAWjSjCc0iIFpxqgAZdNMTrLhOo2uu9uZwtJsS63CkOJ4VEr3ILhu9sYEj+t5LJ03w7L01gym9R+P5lcEcQbzoSDOqUp24Kc8iGU7ULRzD9yDkIMxMM2IWVZBs8cjleh4/uFwkKCZXLoB687G1ivX5aqO/TO5TG3zFRoPc68k4LoAJfpZPs1whYZqza7NXh/FaCaXbsAyDxBDB7iqw+5M8S2AW7MmWFbVmg0hS9X8mudevB2lmVy6Acs8DkeCZriqA6LXNdGMYQQq6Zu5e7JyE0T/2jsTtQoD/6qlG7jMQ7VmdufBKpoxiKGSkSas09jB0k2COkfH/WDwuX1TZTs4k8s8cNWGNXCsy0M/GoBp1gSYNW9mDxK7mGZNgFE0c3eTqztYOm+CpVE0SwPTrAmWTDMjLIm42TKa8bwZMcum04xhBIpma4SoEtFfRwESagHcTOQtCKU6gIXb6VI51wVoB4q1ZjiDf+qnLAhqAUQXW4RSHcDsbLpUznUBWoENaYa6d1ALIJq3YJHqIEKzqFTOyQ1asd2MZlL3lrUAEnkLFqkOwjSLSeVcF6D+ixs7BEAyCG44fh9K1gKI5i0IpToI0SwmlXNdgPovbizN5u/J6hNS9w5qAUTzFoRSHfg0S0rlxZIbmHQHtVgScbPqCQ13F0o0Kd371y9bO3eH8bwF3UWqAyWOp0jlP+XkBvVf3Fya5cbyVAcpUnkcLJ03ASXTbHmqgzSpPA6mWROQoNmjrXNPvnWuJm9SwDRrAuI0e/rDp+94T3/wSV3+JMA0awLiNPvmTwTNHj33ZV3+JMBDgCZYpjw0t7aeNacx43mzRlimDwH+NsSzFJ18NIYg8qgFvjq8Gcxr7Hzx8UIWhyNRD+/GLhTL3i6jM8PyO9OsEZYRmj39/pZEpDlL6uQ3r57tP7gWs/BkGQAMMncvTiFdaCCL45EyVjPqTCzk3M/unnAwBqYZMctoa/YL1Sf721SaLXRy3IclW92f9HdU4KUKGIewzBNZm0LJ4upIFXk+hMnZzqdWzxbNHH4w3h6Ncfq2K2kG8juclqXzxmxzzJul6OS4zx549mvikSgVIhSP/DIAR9giBbK4PFK2ZnAUKJ1Hk9nni2oBj0GV8o+2Ow/wtHh1XgjUBCRoBg/O5yMmKTo57hM8cPewiLmkmSwDgK2ZpIgvi6sjZeQ5HjW/cnz74DQ45eHoNgpSU1lEYH5V1kYPORgD04wYEhMab58To83I9GyKTi5bM/GmF9DMPZBlADDIHNZXOD1fFldHyl4XHuXZF+9CdiD5gef+6DqcV5aAGuegGYMYEtOzvw/ds0jfLKmTT1AVx77ZeOe4fx5VcXjiyWhxC4uagDSOsvj2y3jkC7tYlA6PEg2deAz7p5xCWykuYuGJOlPHGsBpuyEHYzCpd6vFkoib+iY0fvWu+PM/q584+2qCKTYSYJo1wTJ9QqMGTdPOqNHJNGuCZeqExpM/yH220sE0a4Jl4qF5KzE9Wy94CNAEJFdofPMn3tN36nInCaZZE5Cg2Tveowvf/JHhrRnPmxFD4qF579lPbsXmZ9MRl8IXAvoChzcC+dzdtV67Og2E9/OrhfSwgzEwzYhh9QqNTESk8NmlQEBfAKR0JZ/PXgcRaboQ3nMI6SEHY2DpnJhldELjB5/IOY1cQwAphUOBVueVlz6zeoGA3jnr9xyc0N0eBVHlkkAh4X21kK5DOn+YW+LlhO0l+plozX6RVAEy4LdHzuVhZ3p/T7VmvjR+OJJSupLPx6hp7kwC4T2HkI5X4dasCZaJIUD+MAAphUtJCWJ/AwHd3UOWSCldyed21/NFzYG/jGiVkB5yMAamGTHLRGuGOlPe1syDpRtOiGbugS+oj3c+QCldyefu7gAOWAjvOYT0kIMM2ki0Zrn7ZjNMwg4iUed9SF/2qhTQURoPcq8HUeUw0hSt12NfeFdHLxPSl0jnDGLYoG9WJhZCOtOsCUid0Khf01wI6UyzJoCmpmlS71aLJRE39Y00SWiaJt1BLZZE3NRHMxKapkl3UIslETf1TWjk1jQrAs+bNcGycOKpIsr5mbRh6bx1KJ7frIhyjjbzKqVzhhGISuc/XOPIIsq5n027Oumct0Zs4yEn+acyiijnxxGaVSGdM4xAlGbvoNiUL66piHIebs1YOjfl4jUNAe7latOKKOcqafvG0rlJd1CLJRE3NS1rfAeyG5SnnM+kzebSuUl3UIslETc10QyWZ1zIfaYSsUI6N+kOarEk4qa2Rdq5T1MuWDpvFmiWbWUQA9OMUQGYZowKQJNmJvVutVgScbN66TwbmZXQb6Bc7u52ptDFtyy/SvD6tc5NuoNaLIm4aRLNsiqhPx5JgWkOU7GnShEoVuvcpDuoxZKIm2bSLFIJ/fHIl8s/HA4WNCtU6/xhbun2YW6Jl6POS/SzTJqFK6FjJnbVml2bvT4KaFao1jmDGEqjWaISOrRmKJfPr3nuxdsBzYrUOmcQQxk0y6qEviflclCR7B0loxerdc4ghlImNNIroYOQLkaUYr9g0NFxXw0+i9Q6ZxADz5sZYUnETaNGmlrBNGuCJdPMCEsibjLNMkDEkoibLaMZgxiYZowKsJpmUEy188uRe5D4JBwkPh/CUn9hJ2cz4G8vV3XzQtI5gxhW0kzQArOsD5MB4ZEg8dk+ZmMfuS9NvNnro68hwjxPdfNC0jmDGFbQDEPH8RfH6uN+jPmrWIkclPEZRpiLfcf7U7TD2Xv4417PVd2cpXOWzmX9chS/RSsFceAQYw6VyMUHUhmH0F9BEEyPAXZjaL0ER8ZWN1d180LSuUmDKC2WRNwsa6SJoeMeLhrDatMyxlzG/0plHMkSaN72IGjNkGOrq5sXks5NuoNaLIm4WRbNsH75/YFf1FzFmEOgeE8p4xhh/hnyA0Vy6OJD/8zzbk/zVDcvJJ2bdAe1WBJxsyyaYfw4ZlnH6uMqxlw0SeLJKZVx6GENxiCOd2U2djnSHMu48xzVzVk6bwEKzZs5yVFnAWRVN4+CadYEFKHZYpprI2RVN4+CadYEsArAqAA0aWZS71aLJRE3Wyadm3QHtVgScZNplgEilkTcZJplgIglETeNodkhZjDonEWzt8PaDfEBTLa9sOuvybAh9IjbOWwAAB49SURBVMRR8Sg45sSVGT0PozujDjJoQzPNII/BJW9+9dNQKQqY0vcTHIj//TUZ7h7IUHc8uSrj8UiZSuUg7iCDNrTSTJYCuDS/BiUmcOmGaJ96jvhPJThAmvlrMjB+s9+ZSiF9juszLqlEyLgeJHuFBm+JbbXSTJYCgNUV86tTWRxg4Hn394IEBxaK5XJNxsnIcw++nuJiInhm4voMfGXjGpBldQEYxKCVZrIUgGzNJM1ghY94OnoqwQG2Zn6pgIEUrU5GMvMBrs8QrdlwIA5GoT7kYAwm9W61WBJx04whAK7nOLvkQV2mqSwOMECaBQkOkGaqVAD2zYJqAXu4PkMcO2aaNc9SK81UKQAcQA784gDdWb8HazeO/ZGmXypgLAxtmQVB4PJQrc/oTB1Y8nHc57oAzbHkeTMjLIm42TKaMYiBacaoAEwzRgVgmjEqAE2amdS71WJJxM1qhwCZmf9HEdkbtXGEI+czUOeMZDfgugAGXNxUmmVl/o/mx1DzrwBfIAdEsxtwXYD6L24+zSKZ/z051e/unv8cJHNUkxzIg+AL5HgsHoKt2Nh65TonN3jIyQ2ykJb5H3a5e3ZnejL6CgRLUIvctzAPghTIVZ1zPORk5EC+A3vAdQFagQ1olsj8D63Z/OoUelrAG9ma9aR0jgI5WMpDxpbVFU9UoBnXBWgBitEsK/P/iyNBs9OJaNQGqm8m8yAEAvmBOgQeuLZszbguQAtQcEIjPfP/NiQPGvy2LyVzD7RxyIMwBYEcR4+i/xWkROgqoZ2TG7QAZc+bLc+DYA+WfYrgkWYTLEum2fI8CO7u6iwJTLMmWLIKYIQlETeZZhkgYknEzZbRjEEMTDNGBdBAs8PROJL/f+aL5JD72J/m2Pni44VKLrVPjjpvDzanmfvizatn+w9CeRd99VIJ6o9H7kVI7L5QyVE956jzFmFTmmGgORIFU8xitLikmQxBxxBMGQvnq+RKPd8k6pyl81ZI5wvIwgFALEj//xpGi6vc7SoEXbDwCBuoQCX31fPiUecmDaK0WBJxs7aRpiwcAMTC9P+yegDSTIagY2smGeOr5Eo956hzUy5OgGYYaI6LfDD9f0Az90CGoMuA8otTeEAqldwvKMBR54ZcnADNMLYcRXLsm0G0+HkUyVErv4wB5QNov7ozpZJvv6xqA2wQdc4gBp43Y1QAphmjAjDNGBWAJs1M6t1qsSTiZsukc5PuoBZLIm4yzTJAxJKIm/XTLD1TuwwagLmMuawqjIr5PCSWc9R57RcnRLOMTO1QwHX2+ghi6FTtc5yVDYnlhaLOGcSgh2aZmdpVSWoIuPvNFGlmq2g7XywvFHXOW2JbPTTLzNQ+hkcfhHL2Zh+hsCQV85BYzlHnbYAemmVmaletmTd746+kfhlqzaRYzlHnbYC21iw9Uzusk4X+mTeGrlakb6bE8kJR5yb1brVYEnGz5iFAZqZ2OdL0VFgwCOYgs0fE8iJR5ybdQS2WRNysfaRZGphmTbBkmhlhScTNltGMQQxMM0YFYJoxKgDTjFEB1qYZzPZ3fjlyDxKfhPNoz4cwnyHs1IyG+NtLjzNn6bz2ixs4BBBcgvzsN4fJ9HiRTOyz/SnmcVfa+dcQ/JQaZ84J22u/uHE0Q4kcCYBh4RCX5Lzy0mevYoj4HYzsBd1c7Dven6KdrzbBAo3UOHNO2M5R53HIGHPIzy5aKYiydC7LZWQgW2IsOQiagi8YuQl2vnY+trrpceaFpHOT/qFqsSTiZkWt2aHKhyGehxj3i6GXnkzKLmPJUTcPJHB7ELRm8yvp1c1ZOm8D1m7N7M79gR9eDnq3pJn4QMWSg27+GdIF87gH2rl3e5oaZ84J29uA9WiGqjgULp9gWLhtWZ33dyaQlP3BIhM7xIyLsWQX7dRIc4wjx9Q4c07Y3gLomDdbnpR9QzDNmgANNFuelH1T8BCgCZY0VQCT7qAWSyJuMs0yQMSSiJtMswwQsSTiZstoxiCGKqPOp9qkcwYxVBl1rk86ZxBDlVHn+qRz3hLbVhl1ztK5mRcnMwTIF3WuTzo36Q5qsSTiZs00yxd1rk86N+kOarEk4mbNNMsdda5JOjfpDmqxJOImz5sxTAbTjFEBmGaMCsA0Y1QAmjQzqXerxZKImy0bAph0B7VYEnHTGJqlK+gQgC4+gIiBF3aVWH43LX17zlrnJt1BLZZE3DSFZhkKOgagw8yr+D8Qy9PSt+esdW7SHdRiScRNM2iWqaDjcgufZn7J87T07TlrnfOW2FYrzTIVdAxAx0diZxqI5Wnp23PWOmcQg1aaZSroHgSg+62ZX/I8LX17zlrnDGLQ3ZqlK+iOYpOkmSp5npa+PWetcwYxaKVZpoIOAejH/khTieWT1PTt+Wqdm9S71WJJxE0zhgBlgGnWBEummRGWRNxkmmWAiCURN1tGMwYxMM0YFYBpxqgA+WiGweA2ZsWDrOyYin1sWUGUm2+2P00RybdfDtuF07pz1HlbkLM1w7i204nKyo4p26+e7T+4FrWyO9M0kXymlmvA5Gs0rTsnbDfh4uYMAQKaQVZ2RQHYNx+K1idI3g4SU4pI7kvhIGzKE4y3R2PMH9rlhO245YTtCJ9mMis7KuG4zx549mtK53ZAJUoTyWf7UgoHDV2eAFVMFD056rz+ixvWmgkyOH6nSfAL9gl6uXtB8nagWYpIDq0ZmLi4VANPcDi6PcViwRx1Xv/FzaEZ5FoBBsis7E7ACLsbTt4OD80UkTxMM3kCz/3RdTiLIBQnbG8D8k5oYPT4XGVl/zWmYocYcuybBcnb78ts7jGRHEaaaDLrv6ZOMIWWUZzSOt/nhO1tQI3zZl9NvPm1lVZMsyagRprZKtBkOZhmTQBNFcCk3q0WSyJutkw6N+kOarEk4ibTLANELIm4yTTLABFLIm62jGYMYtBAM5nPYBDf7R5gfDAOJx1r54uPF4sx5CqNtCoBOZMbMIhhc5rJfAZOJ1p2QvAJpvFl3gL3IhRBXyzGwFUaqVUCciY3YBDDpjRT+QxAQQJFIEhpYHVxUYaM9JUhl0FWA7lKI7VKACc3aOZ2U5ot8hngao2eX+v8cOS+NMFPxOPwCBuoYDGGXKWRWiUgZ3IDk3q3WiyJuFnbEEDlM4AFFbhaAxmGsqVct4GtmWRMkNVArtJIrRKQM7mBSXdQiyURN2ujmZ/PALZqtcZ45zMYD/g0g5VCgoRQ50RlNZCrNFKrBORMbmDSHdRiScTN2mjm5zOYD7dvwmoNTGkAay9wUcb3MG/BANqv7qwfLNiQqzRSqwRwcoNGWpYyb5Zv7UU+8EizCSiFZvnWXuQD06wJYBWAUQGYZowKQJNmJvVutVgScdOsIYBOMM2aYFkTzSAHwn/fBcnJsuScxyxaSSB4zzRrgmVNNMMcCKiun06k8G7HtHebkxs0yLImmuGCjvmHw4GiGaZ4h7wtKu0BJkpg6bwx27r6ZpADYX5t9vrodCKFd0Grk5FK3g4vZAQ7jzSbgfqGAPZgfs1zL96eSOFd0GoMmawg7QG8YJo1CXU9NGF5BghS9s5EZjIQtIKMQ5j2AF4wzZqEmmgGORDuDmGV9tGxFN7/mywigAlh4IWjln3zEKAJljxvZoQlETeZZhkgYknETaZZBohYEnGzZTRjEAPTjFEBmGaMCqCRZinFAzAevesGGnk8ZpjrArQEOluzZPGA0fzKBCLilEa+H2cZ1wUw4eLEhgApxQOw0HTP18iRQvab1pvWIKgDwHUBYMt1AfIjpXiAas2URg6fz/pdpwtpXFQdAK4LUPvFKbZm0eIBEIPZ9XyNHCnkDCBoOKgDwHUBar84MZqlFA+Q+X18jRxz/kuaBXUAuC5AG6B1QiNRPOC4DwPPeaCRW7IHZoXrAHBdgBaA580YFYBpxqgANGlmUu9WiyURN40YApQCplkTLJlmRlgScZNplgEilkTcLJFmkEC288sRTNzHIPOuKyilXFY4lHo4xpN3lx3E0nlLsJJmghYggt8c9hIfoULuA5Vyv16r0sOl1LTkoKLSOYMYVtAM87HjL44p1CGHp/PKS5+9iunU72AWbMjQDvvAyKeZ0sOVcI6J3DufWj1bHIWyuooth1ShhaRz3hLbrqAZ5mNHERzzr3uec3mI6dTFB1Ihh9TZgiBTNMKnHRQwl3q4bM38RO5Hk9nn6iCMLcek28WkcwYxrKDZoaodIR6JmBgb0xQDtdw9pZD7hQDQKChyLvVwKZxjIvf5lePbB6eBrA6x5ZjnmKXz+i9e/xAA87HfH8hM7CcjELglzcQHKu86ZmjvSaU8oJnUw6VwjoncPfviXejeyYMwttyBXlsx6dykO6jFkoibZdEM869DiPgEU6jb4pH4/s5ENEkwokSFHHpYg/HO5LFUyuVIU+rhAtCFg76ZYN9H3unEl9WnsF4I0rqf7xeSzk26g1osibhZ7byZkxx1FkC+tO5MsyZYFqHZYpprI+RL685DgCaApgrAIAamGaMCMM0YFYAmzUzq3WqxJOKmoSs0Zsmoc18sD2LQo1q6h1r9GzizCxEETLNGWJbcmqVEnftiuR+DHtPSFe3cA7UkhGnWBMvyaRaPOvfFcp9mqKVjGze2Xrkua6fvw6SvaMw46pyjzvMgGXUexJkrmvmFzx1Q1+0BavV2Z4pvATwEaALKplky6jwQyyXNpJYOKdoPR4JmqNXPrzLNmoUKHpqxqHNfLJfvlJYOCV5s1ZrZnQdMs4ah9JFmPOr8Rj/Q1TEGPRDguyjT4x/Hujz0l2kzzZoAs+bN7EFiF480m2BpFM3c3aQmzzRrgqVRNEsD06wJlkwzIyyJuNkymjGIgWnGqACFaHY4GifjySHUJBl5vv1yyM6GiQ0Ha8+plbMcdd4OFKGZ++LNq2f7D2Lr+O3ONC3y3JcuZ5cg6O5w5N3xZNjwY1yYwVHnrcD6NENxG+mAIUtBNDooRCmR5+IlmjhWz8YYu35nKsOB55ywPdiydB6HDEQHOkA4+WvieYfR6AMo55sSeT7bf4Am9/cgsNg9+HqKKREkVTlhuwkXN3KkKQPRgQ4YTh5Eo8uq0YnIc2jNwEQ8MbE1EzYnI2zNPE7YbsbFjaQZittTbM264Wh0eGimRJ6HaCb7ZiCno2y+Vzxhu0l3UIslETcrpBmK294YSphA3yyIRr8vw9Njkecw0kSTWb+HB9kyp7vA5SEnbG8LeN6MUQGYZowKwDRjVACaNDOpd6vFkoibLZPOTbqDWiyJuMk0ywARSyJulkWzlPrlufK3z4ewtl/Yyap08LenUTo36Q5qsSTiZmmtWUr98lz528VxaOy+NPFmr4++hvlcls5bi9w0W9Qvz5W//XhfCuk4mQ9/3OuePumct8S2eWkWql+eK387HAd2Y3j2CcqMra5G6ZxBDLloFq1f7uXJ3y7pguG9sjWbX5nok84ZxLCKZin1y508+dvFMdJOjAugf+Z5t6csnZt5cQOGAMn65ZM8+dvFWLKLdmqkOca2UJt0btId1GJJxM1a58305G/PANOsCZYaaKYpf3sGmGZNsKSpAjCIgWnGqABMM0YFYJoxKgBNmpnUu9ViScRNw4YAKQs7bvTT6gDwCg0DLk6WZmkLO9LrABRboWHSHdRiScRNY2m2WNiRXgeAkxs85OQGhZGysCO9DgCv0GgFyqRZdGFHeh0AXqHRCpREs5SFHel1AIqt0GAQQ1kTGomFHbIqQLwOwE/7nNygDah33iylDkAcPNJsgmWtNEurAxAH06wJlqwCGGFJxE2mWQaIWBJxs2U0YxAD04xRAZbQLEX/vjmMVwMIRKSUmgBYyzBuH1HOuS5AS7CsNVuif4dgS407rSaALEEdNY8q55zcoB3IRbOI/m2/ab1pDZxX+zvHmMlgfnXq7p7/PK0mANQGtnuQovas3/nU6tmi0cJzjbdHY4y167J03nrpPFX/Put3na77FiY0wBBzQbOT0VeTtJoAsjWD8gFgejSZfa7OhVHneDTXBaj/4jWPNNP1bwg0dw8woYFPM9W3StQEgO5ZV5YPmF85vn1wGpzrcHR7CqLTlOsC1H/xmmmWrn8HNLN7mMng7tXp6URQLqUmADw0PVk+wLMv3oVkVfJcnvuj63BCQShOblD7xeueN0vo33eH1vdED8qydj7DhyNkMnCswW/7qTUBBKCVw/IBgk/i+eufawqNpDi7dZ6l81ag6LyZhoQGoj83v7bSimnWBBSkmY6EBrZKDLocTLMmgFUARgWgSTOTerdaLIm42TLp3KQ7qMWSiJtMswwQsSTiZnU0O8xVFyBNSYfM21wXwMCLG0izvHUB0pR0rgvQWqxHs/kQKgHkqQvwWYqSznUBWrtdj2Y2iJi56gKkKelcF6C1WI9mglkn8KxbXRfAS1HSuS5Aa7F2a2Z37uepC5CmpHNdADMvbtwQALXyPHUBJilKujiI6wKYeHHjaJYOrguwsSURN+ukGdcF2NySiJstUwEYxMA0Y1QAphmjAjDNGBVAA80Ob4SU7gVAXJ8rjdyxdr74eKGSo8guRw42TF0shHTxqudhuF7UwRhM6t1qsSTiZo1DAJDIF0p3gDmK61Ijdy+C2LlQyaXIDnFPOGMbEtIveTIaKu7g0u+wDEQsibhZG81QTJdKt4wuB+kcWqUuiutSVTqRHFIquYpiR0LZSizwhfRLSiPAgznqPGXbvKjzPEAxXSrdfnT5oYwnR3FdauRH2EAFKrmKYgeaoZoeEtLxlY1q/KFcvcatWRMsN6UZiulS6cbocmQYhmJKcR1bM8kYXyX3I8+jrZkU0kVrNhxAVo4D1QTyEKAR0NCa2Z0zVLoxulxK5zAe8GkGGrkgoWCTUsn9yPNI30wJ6Zc8b8w0ax42pZnKug5K982hH4gO8eRdENe/hxr5ANqv7kwFmG+/rCLPMfp8rEaavpAO69McEN+P+92QgwzaKGXeLF88eT4wzZqAUmiWL548H3gI0ARLmiqASXdQiyURN5lmGSBiScRNplkGiFgScbNlNGMQQ2k0m0Vqm2Ok+pLPwzgczd7AfKIQo840awTKa80itc0xCH3J5yFIQ/dApU9gmjUB5dNske1dpnqPxpfHa59LKX7/TC4J4qjzhmxLp9ki2/sMU70fROPL47XPUYq3O1N8C+AhQBMsS6dZKNu7zMEdjS+P1z5HKX5+lWnWLMtyaRbUNscgdEmzaHx5vPY5SvEPmGYNsyxzpBmqbS6zvWOq90h8ebz2+UDlgL889BtBplkTLM2aN0upfc4jzSbAKJql1T5nmjUBRtEsDUyzJoBpxqgANGlmUu9WiyURNxsyBEgB06wJlitollLvnBO2M83WtlzVmqXUOzcgYbtJd1CLJRE3y6fZQgHnhO28XXebl2aheuecsJ2xLnLRLFrv3OOE7Yw1sYpmKfXOnfoTtjOIYeWERqLe+YQTtuu3JOJmrfNmnLB9Y0sibtZJM07YvrklETdZBcgAEUsibraMZgxiYJoxKgDTjFEBCtIsRVLHtO2ds/1oRm2cD4G51/kQDtAknTOIoWhrliKpQ+LYq5+GEreLHe5LE2/2+sjdE4S7ztK5mRc3eAiQIqnPLs2vCaIFOdt7jtXDuXy7B1rCb6b6pPOHuaXbh7klXk7YXqKfm9IsJKmj3o2RvBA4Lp559/e8MTz6QKXqzT7y9EnnJv1D1WJJxM16WrOopK5aM0kzII54SKrWzJu98VcjT590btId1GJJxM3KaZYiqUO2dU8mWx/vfDBAmsEAAfpn3rgz9Vg6by0KT2gkJPXjvhxHDvzo8e6s35NmntI9tUnnDGLgeTNGBWCaMSoATZqZ1LvVYknEzZZJ5ybdQS2WRNxkmmWAiCURN5lmGSBiScTNltGMQQwb02w+DHShKFCECq+1ULsAjrXzxXX4e8wrNFqBzVszP/E6igCxjy6F1lqEPncvQni6XKtRaIUGgxi00AwzHWBKdkxs8AHm/xf7YReutcAsCBYsv5hDbVdZ+Feu1eDkBm3Y6qAZZDc4HN3fg+z+rw07ZzL/v92Zil3+WgtnIN6IXfbAs3tH2HjJtRq8QqP2i5MYAkBrBiHo7h5m94codEzMDiL6nlprAesvxBux63DkgUKujj0Z8QqN+i9OjWawzDFBM1hrIddfAM1sWHsGHAItHdZqFFqhYdId1GJJxM36aAYjTcx0IDr18Kwb+/n/P4NlGq/KtRb/EaIE+j0HQgIsTBdkyQ6bTPbCyQ2IuMnzZgyTwTRjVACmGaMCMM0YFYAmzUzq3WqxJOJmy4YAJt1BLZZE3KyZZum5DqQqCXtkruPf7mJ2Wq4LYNjFydAsNdeBktRxDyY+uIMZDTi5gWkXJ0izUK4DRTPcg6HCArenXBegjVvNNAvnOpA0k3uUFj77yOO6AG2ETprFch1Imsk9qjWTD0quC9A6aKJZWq4DFMHVHrWm8TZwh5MbtA+6JjTSch1Y0N/CPS/sQuIDeGZyXQDzLk5nCFAemGZNsGSaGWFJxE2mWQaIWBJxs8E0YzQB+FsaTLNUlDH8JHJOIm6mnpNpRuacRNxsBM0YJME0Y1QAphmjAjDNGBWACs2w6JPaqNdaz+lYeirQynPK1Zqa/AyfUq+bs77+2znrp91OIjRThQVwo15rPScuudR3Tlgk4GnyM3xKzW6eTmZvTDTfTjxnwk8iNFNlUnDjl0zReU5ccqnvnMgJTX6GT6nbTU8WP9J5O/GcCT+J0AyLPqmNeq31nLjkUt85kROa/AyfUrebsEBL8+3Ecyb8JEKzslszD2+TtnOW1Zp5mt2E9YHaWzMHV7dG/SRCs9L7Zv6vqOecpfXNNLsJYReab6cM5Yj7SYRmsujTADfyj95z2jKqT+M5xUNDk5+hU2p208Zl9HpvJ54z4ScVmjFIg2nGqABMM0YFYJoxKgDTjFEBmGaMCtA0mt3b2jr3q3djO7/5T+8+/T3cqTYRpO0Ldj75zpdZJquRPKzgidCTf7Pa5NufrOXNWvgfmxzdMJrdeu5L794z8RtyS+5J0C/yaSqefv+5L1eYxBBcJONquY5NgeT7Unzz9rPLaLYhNmJps2j25F/CrXh0IbZbtGawyfj3qD7NOCP+uktNogguUuBf/5JDvvmjHAx6+oMSaeY9/f2VRM9Es2h27zl1J+DZKe76/9oSOx5tbT0DD02xvQD/JEOfPf3+1rOfIIe+eXvredEa/B/Y8fQHP3vmz37vXfzwyXf+eOt5pNmtLTw5HCiOx7dg+F+/8xdbz/3d1nN///1nPxGNHl4EDky5modNwhN1wJf+mZTFz575L/6xyvyeeOlf9tHzQHl1pLx4yBK/sf8u9IH4VuL1reDaCz8WNsHFts7Jb/wt/y7EnbgV/+ebH82kmWiDnnzr3wvmwM/67U9EIycY8P+AK8+8G/7s3jlBINlUQUvwj7jj52+Ln10Y4odPvnXhm7cviBePxL5zko6e2Alv/60wFO/Fr/M89P5+AISFi+CBKVfz4On7c/+An6sz+RbnPP/Yn0tzwaxb59RlxX5vcSncGbL0kIa34FP1pdQH955feC6vrcwXNmofenFB/AeP7gwn7p0r/MM0k2ZwQ8Rdxx8efiDkEtBJvg8+g5/ugnoiihv5iy9xBzDO/xAemkgb8a9d0EI9mO6dw7fwWp5IUFG9UE3jhbSrycFI6AA8k2/hBcdKE2w8/MuCVXCk3Lmw9FRLE/pS8uWj50OeB9eGb7uwCe4S3AFxA5/+MMsJppmC7Js9+dN7eFMyaBb67JH4B+7T7Mm3//eferhD/eT4ekEz9cTwyaF+1jSaBWeNXc1Lp5lv4QXHhn9hddkozWBnyNKL0Cz0Aba9/inCNAvZqLv0vGoxL/wq0wmmmQ8YaYquqqBbcAMfid7X28/+ZUCz8Ge31BMxOBZ3qJ8cXwuaiUcHNgwe/DvHAZd8mDz9YZxmT78P1/GCs8au5sVoJs8UWMge4IWAsY+gZfEvC32z4EjcGbKEz8E49KXUKc7JQ/EUYT9CNvKv9EIYb4XuQswJ7psFuAV9XmzmL4jXz98Td03s2rogX+Am9NnfbT3zr579mepEP/kDuMtix79DI/nhX74N1vJonC4Q3eQtmN64pfrW4kRi8xf46pl/DSOFC3iST5JX+xL8eu6P/QP+Xp1JWWDP/oJyQDn+zLueuiyMNMOXgjHGwhK/+DPvhr6U/OD/fguGF+oU8trSPHSw2odeeJJL6U7wSLNC6Js0WO9My6deM/CPgsW/WIsc3/znLPM1JnWSYJqtibpolkcFiAOY8fSdtQ5JzDkGYBWgQohO9XPFnx3lnCkbj2QXIjdu4ZC0BDDNGBWAacaoAEwzRgVgmjEqANOMUQH+GViCyWGDuju7AAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrRnNiRlpoY25ORGIyNVFaWEp0YVcxd1VIUjJMbk4yWjF3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1UQXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpYzNablhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJCYm01dmVVMXVRV3hzVm1GeWMwTnZibEJsY20xcGJYQXVjM1puWENJcFhHNGdJRnh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WENKUWRITkJRbVJCYm01dmVVMXVRV3hzVm1GeWMwTnZibEJsY20xcGJYQlFkSFl1Y0dSbVhDSXNJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHhNQ3dnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWENKd1pHWmNJaWtwWEc0Z0lIVnViR2x1YXloY0lsQjBjMEZDWkVGdWJtOTVUVzVCYkd4V1lYSnpRMjl1VUdWeWJXbHRjQzV3WkdaY0lpbGNibjFjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXBQdHYuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0xMCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BbGxWYXJzQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BbGxWYXJzQ29uUGVybWltcFB0di5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTEwLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFsbFZhcnNDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAllVarsConPermimpPtv.svg\, width=8, height=10, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAllVarsConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnAllVarsConPermimpPtv.pdf\, width=8, height=10, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAllVarsConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtGc2JGWmhjbk5EYjI1UVpYSnRhVzF3VUhSMkxuTjJaMXhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TVRBc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjM1puWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUkJibTV2ZVUxdVFXeHNWbUZ5YzBOdmJsQmxjbTFwYlhBdWMzWm5YRndwWEc0Z0lGeHVJQ0JuWjNOaGRtVW9abWxzWlc1aGJXVTlYRnhRZEhOQlFtUkJibTV2ZVUxdVFXeHNWbUZ5YzBOdmJsQmxjbTFwYlhCUWRIWXVjR1JtWEZ3c0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQweE1Dd2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYRnh3WkdaY1hDa3BYRzRnSUhWdWJHbHVheWhjWEZCMGMwRkNaRUZ1Ym05NVRXNUJiR3hXWVhKelEyOXVVR1Z5YldsdGNDNXdaR1pjWENsY2JuMWNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFsbFZhcnNDb25QZXJtaW1wUHR2LnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MTAsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXBQdHYucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0xMCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BbGxWYXJzQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFsbFZhcnNDb25QZXJtaW1wUHR2LnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MTAsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXBQdHYucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0xMCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BbGxWYXJzQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAllVarsConPermimpPtv.svg\, width=8, height=10, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAllVarsConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnAllVarsConPermimpPtv.pdf\, width=8, height=10, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAllVarsConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZCc2IzUWdiMjVzZVNCMllXeDFaWE1nZDJsMGFHbHVJREVsSUc5bUlIUm9aU0J0WVhocGJYVnRYRzVjYm5KbGMzVnNkSE5QZFhSQlluTkVhV1ptY3k1amIyNXBiWEF4Y0dNZ1BDMGdjbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpMbU52Ym1sdGNDQjhQbHh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdjbTkzYm1GdFpYTmZkRzlmWTI5c2RXMXVLQ2ROWlhSeWFXTW5LU0I4UGx4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdabWxzZEdWeVgybG1LR2x6TG01MWJXVnlhV01zSUdGc2JGOTJZWEp6S0M0Z1BpQnRZWGdvY21WemRXeDBjMDkxZEVGaWMwUnBabVp6TG1OdmJtbHRjQ2t2TVRBd0tTa2dmRDVjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUdOdmJIVnRibDkwYjE5eWIzZHVZVzFsY3lnblRXVjBjbWxqSnlsY2JseHVjRUpoY2lBOExTQm5aM0JzYjNRb2NtVnpkV3gwYzA5MWRFRmljMFJwWm1aekxtTnZibWx0Y0RGd1l5a2dLeUJuWlc5dFgyTnZiQ2hoWlhNb2VEMW1ZV04wYjNJb2NtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRFRmljMFJwWm1aekxtTnZibWx0Y0RGd1l5a3NJR3hsZG1Wc2N6MXliM2R1WVcxbGN5aHlaWE4xYkhSelQzVjBRV0p6UkdsbVpuTXVZMjl1YVcxd01YQmpLU2tzSUhrOVEyOXVaRkJsY20xSmJYQXBMQ0JtYVd4c1BXMTVZMjlzYjNWeWMxczVYU3dnZDJsa2RHZzlNQzQxS1NBcklHeGhZbk1vZUQxY0lsWmhjbWxoWW14bFhDSXNJSGs5WENKRGIyNWthWFJwYjI1aGJDQjJZWEpwWVdKc1pTQndaWEp0ZFhSaGRHbHZiaUJwYlhCdmNuUmhibU5sSUNodFpXRnVJR05vWVc1blpTQnBiaUJoYm01dmVXRnVZMlVwWENJcElDc2dkR2hsYldVb2RHVjRkQ0E5SUdWc1pXMWxiblJmZEdWNGRDaG1ZVzFwYkhrZ1BTQmNJbk5sY21sbVhDSXBMQ0J3WVc1bGJDNW5jbWxrUFdWc1pXMWxiblJmYkdsdVpTaGpiMnh2Y2lBOUlISm5ZaWd5TXpVc0lESXpOU3dnTWpNMUxDQXhNREFzSUcxaGVFTnZiRzl5Vm1Gc2RXVWdQU0F5TlRVcExDQnNhVzVsZDJsa2RHZ2dQU0F3TGpJMUxDQnNhVzVsZEhsd1pTQTlJRElwS1NBcklHTnZiM0prWDJac2FYQW9LVnh1Y0VKaGNseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG4jIFBsb3Qgb25seSB2YWx1ZXMgd2l0aGluIDElIG9mIHRoZSBtYXhpbXVtXG5cbnJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAxcGMgPC0gcmVzdWx0c091dEFic0RpZmZzLmNvbmltcCB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXNfdG9fY29sdW1uKCdNZXRyaWMnKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyX2lmKGlzLm51bWVyaWMsIGFsbF92YXJzKC4gPiBtYXgocmVzdWx0c091dEFic0RpZmZzLmNvbmltcCkvMTAwKSkgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbl90b19yb3duYW1lcygnTWV0cmljJylcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEFic0RpZmZzLmNvbmltcDFwYykgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dEFic0RpZmZzLmNvbmltcDFwYyksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wMXBjKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s5XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Plot only values within 1% of the maximum
resultsOutAbsDiffs.conimp1pc <- resultsOutAbsDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > max(resultsOutAbsDiffs.conimp)/100)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbsDiffs.conimp1pc) + geom_col(aes(x=factor(rownames(resultsOutAbsDiffs.conimp1pc), levels=rownames(resultsOutAbsDiffs.conimp1pc)), y=CondPermImp), fill=mycolours[9], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkJzYjNRZ2IyNXNlU0IyWVd4MVpYTWdkMmwwYUdsdUlERWxJRzltSUhSb1pTQnRZWGhwYlhWdFhHNWNibkpsYzNWc2RITlBkWFJCWW5ORWFXWm1jeTVqYjI1cGJYQXhjR01nUEMwZ2NtVnpkV3gwYzA5MWRFRmljMFJwWm1aekxtTnZibWx0Y0NCOFBseHVJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ2NtOTNibUZ0WlhOZmRHOWZZMjlzZFcxdUtDZE5aWFJ5YVdNbktTQjhQbHh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ1ptbHNkR1Z5WDJsbUtHbHpMbTUxYldWeWFXTXNJR0ZzYkY5MllYSnpLQzRnUGlCdFlYZ29jbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpMbU52Ym1sdGNDa3ZNVEF3S1NrZ2ZENWNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJR052YkhWdGJsOTBiMTl5YjNkdVlXMWxjeWduVFdWMGNtbGpKeWxjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEVGaWMwUnBabVp6TG1OdmJtbHRjREZ3WXlrZ0t5Qm5aVzl0WDJOdmJDaGhaWE1vZUQxbVlXTjBiM0lvY205M2JtRnRaWE1vY21WemRXeDBjMDkxZEVGaWMwUnBabVp6TG1OdmJtbHRjREZ3WXlrc0lHeGxkbVZzY3oxeWIzZHVZVzFsY3loeVpYTjFiSFJ6VDNWMFFXSnpSR2xtWm5NdVkyOXVhVzF3TVhCaktTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzNVhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjWEZaaGNtbGhZbXhsWEZ3c0lIazlYRnhEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxJQ2h0WldGdUlHTm9ZVzVuWlNCcGJpQmhibTV2ZVdGdVkyVXBYRndwSUNzZ2RHaGxiV1VvZEdWNGRDQTlJR1ZzWlcxbGJuUmZkR1Y0ZENobVlXMXBiSGtnUFNCY1hITmxjbWxtWEZ3cExDQndZVzVsYkM1bmNtbGtQV1ZzWlcxbGJuUmZiR2x1WlNoamIyeHZjaUE5SUhKbllpZ3lNelVzSURJek5Td2dNak0xTENBeE1EQXNJRzFoZUVOdmJHOXlWbUZzZFdVZ1BTQXlOVFVwTENCc2FXNWxkMmxrZEdnZ1BTQXdMakkxTENCc2FXNWxkSGx3WlNBOUlESXBLU0FySUdOdmIzSmtYMlpzYVhBb0tWeHVjRUpoY2x4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxuIyBQbG90IG9ubHkgdmFsdWVzIHdpdGhpbiAxJSBvZiB0aGUgbWF4aW11bVxuXG5yZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wMXBjIDwtIHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJvd25hbWVzX3RvX2NvbHVtbignTWV0cmljJykgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlcl9pZihpcy5udW1lcmljLCBhbGxfdmFycyguID4gbWF4KHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXApLzEwMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW5fdG9fcm93bmFtZXMoJ01ldHJpYycpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAxcGMpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAxcGMpLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEFic0RpZmZzLmNvbmltcDFwYykpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbOV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSB2YWx1ZXMgd2l0aGluIDElIG9mIHRoZSBtYXhpbXVtXG5cbnJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAxcGMgPC0gcmVzdWx0c091dEFic0RpZmZzLmNvbmltcCB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXNfdG9fY29sdW1uKCdNZXRyaWMnKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyX2lmKGlzLm51bWVyaWMsIGFsbF92YXJzKC4gPiBtYXgocmVzdWx0c091dEFic0RpZmZzLmNvbmltcCkvMTAwKSkgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbl90b19yb3duYW1lcygnTWV0cmljJylcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEFic0RpZmZzLmNvbmltcDFwYykgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dEFic0RpZmZzLmNvbmltcDFwYyksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wMXBjKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s5XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGAifQ== -->
```r
```r
# Plot only values within 1% of the maximum
resultsOutAbsDiffs.conimp1pc <- resultsOutAbsDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > max(resultsOutAbsDiffs.conimp)/100)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbsDiffs.conimp1pc) + geom_col(aes(x=factor(rownames(resultsOutAbsDiffs.conimp1pc), levels=rownames(resultsOutAbsDiffs.conimp1pc)), y=CondPermImp), fill=mycolours[9], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqbzRMQ0p6YVhwbFgySmxhR0YyYVc5eUlqb3hMQ0pqYjI1a2FYUnBiMjV6SWpwYlhYMD0gLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjo4LCJzaXplX2JlaGF2aW9yIjoxLCJjb25kaXRpb25zIjpbXX0= -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFFekNBTUFBQUNzV1Q5aEFBQUJ0bEJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qc2htQUFCbUFEcG1BR1ptT3BCbVpnQm1aclpta050bXR0dG10djl1VFUxdVRXNXViazF1Ym01dWJxdHVqbzV1anNodXE2dHVxOGh1cStTT1RVMk9UVzZPVFk2T2JrMk9ibzZPYnF1T2prMk9qbzZPanNpT3E2dU9xOGlPcStTT3lNaU95T1NPeVArUU9nQ1FPanFRT21hUVpnQ1FacENRa0RxUWtHYVFrTGFRa051UXRwQ1F0ditRMjdhUTI5dVEyLytyYmsycmJtNnJibzZyamsycmpvNnJqcXVycTI2cnE2dXJxOGlycStTcnlNaXJ5UCtyNU1pcjVPU3I1UCsyWmdDMlpqcTJabWEya0RxMmtKQzJ0bWEyMjVDMi83YTIvOXUyLy8vSWprM0lqbTdJam83SXEyN0lxNDdJcTZ2SXlNakl5T1RJeVAvSTVLdkk1UC9JLzhqSS8rVEkvLy9ia0RyYmtHYmJrSkRidG1iYjI1RGIyN2JiLzdiYi8vL2txMjdrcTQ3a3E2dmt5STdreUt2a3lNams1S3ZrNU1qay84amsvK1RrLy8veTh2TDM5L2YvV3NEL3RtYi90cEQveUk3L3lLdi95TWovMjVELzVLdi81TWovNU9ULy83Yi8vOGovLzl2Ly8rVC8vLzladXNBRUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFZRWtsRVFWUjRuTzFkajMvYnhuMmxmeXpMbGsyUVlrV3V1M1JTTzljWjFiaGUzRGloMXk2dDE4V3lXemRPNGxCYnM2Mld0ZG5ONmxCWnQ1cDJsdFZtTlJXTzJJZ2kvdVBkOTNzSEVDQkFFaWNlZ01QcHZVOWkvSG80ZkFFOGZYRTRQTjQxQWdBb0hJMnFBd0NPQXlBem9BUkFaa0FKZ015QUVtQ0h6UDRJY0JaOGd5MlJXZFVCQUVVQk1nTktBR1FHbEFESURDZ0I5c3RzVjZPRWdyZ1doRkEzN2hqVmZwbjlIMUFucUxzR21RRkZRdDIxNG1RMldQZVdlelRULzJZN0dHNTRucmQ0Sjc1S2JQZkVvdTh0ZFlLdTE2VFY5OXFEMXp0TWJVSm1icUJ3bVFXRFN5eXA0TXUvYWNxRjUrM2txc3ZCOEZidkFhbnVnbENZRkovNDkwci9TaXdXeUt6V3lKWkdFVEo3NElzVUpoYWV0OGRXWFI3ZUZqbE56SFZiZ2Q4VVdXeFI2UERwT2ljemFpcmUzZVUvZ3QzRXRPcnJCbWdoZGY5NFdvRE1CcCtJSnlFOUloZmJxVlVyd1ZjOW9iakhiWkhEdWsyUjBycmlLZHIwK1FtS2JPWUNzcVZSZ014OGtaMWF5V3ltVmxFMkUzamM1bXdtSHB1UDIrSXBDcG01aEhKa0pxcFpYL1FDZjBVdVhFaXV1c3kwNGMwTzE4MUVOdXN1UDRQTTNJSzZhNFcrYVlxWHk0ODJSTjdhOHM1Y0ZBdmVXL0ZWTDYvUisyU1hucVZpcWNuOGx1Kzl2Y0dwYnFMTTdHdHJCRmViYW4rN21YM1hERnh0S21SV1hiRXVjMnNuTThBQlFHWkFDWURNZ0JJQW1RRWx3SDZaMlZlZkJWZWJhci9NcW01dkJFYklmeThoTStESXlIOHY1NUNaOUpDMXN6WXAvMWhBbnkrWE9tSnk3dzRiTDhRdUsyckRZSjEySFc3dzVpQzBwL0duZzFZOGxuRlVmV21CRVhMSmhERlBOdU12bE93UkM3OVBxbG5sSHlNODRIOEZpOXhsTnp1aEUwZ3NEVzRJeGYzaHU1MTRhYnpCbDlaSHlNeDY1Sk5KQnJSbEZ2aE55a3UreHhPUmpKcGlsaDBYL212clN4MjJrMGtuV1Npei92ZkVldUsvOTNvbitPS25uUzU5NVZ6K1NYTWtNMHA0OEp2VkFGbjNKOWRVWDJiOUM0L2JmdlB6Q3dGTmhMNENuZzM2YjRySFliZkpkakoya29XR3MyZGkvYjIySUEzZTMyb05mN2t0c3BuZkdsejZJTXhtNjlGakZkbk1kdVNUU1FhT2tzMjJQRzlGUENacFFxSVJzektiTldtVzdHVHNKS05zdHRHaWJIWkZMUFZKWnYzenYvM1Z0a2g0SHRHamgyYi9mQTh5cXdmS2s1bW9kVDJSMnFJSlpUTXh5M1V6b1J5Unh1aEp5VTZ5cDZMMnRwV1UyZkRHbTczdHpuYkhiL1V2M0d0TEw1cFFZN2NKbWRVRCtYVmw0RTJUbm5PRDlhYWM4Q3o3eDN6NjNWSlhFYVRWYlBtWmVOUGNXbnE0TGtpdmlTUW1uckxlMHM4ODc4ekZ0emRlWGxPL2ZSS3ZvL0wxRmMyejduQ0xhemZ6bTdNNVV3R1p1Y010VEdhakZyR2pBakp6aDF1N3J3Q0FBNERNZ0JJQW1RRWxBRElEU29EOU1yT3ZQZ3V1TmhVeXE2NVlsN20xazFuVkxkL0hCek52RUdRR3pJK1pONmdjbWVXeE5ZYU50TEExMWcrNVJIQTBHTGMxRG0rU2pHQnJyQ0cwaEtNSDA3WkdsaGxzamJYRUVleUtWZGthV1dhd05kWVMrVVJ3SkJpM05aTE1ZR3VzSldiZS81TGVOUFBZR2xVMmc2MnhmdERWamdiVnRLMVJ6QzMzWUdzODlsellHdlc1Rm9SUU4yN3RiSTJBQTdEL0t3RGdBQ0F6b0FSQVprQUpzRjltOXRWbndkV21RbWJWRmVzeXQzWXlxN3JSc2lUTXVqZ1dTQWN5cXo5bVhSd0xwRk8xektJeFd1bGo1eG9OWk9qeENLM0prVnd4Yk9zMHpIY0hiSWVaYkNiSGFCM2VGSkpwRFRlRVpKNG9veG1HYmMyTE9lK0E1VEFtcytkdDlkVjgrTjVHS3lVekROczZDNm56ZG1wcVNHYnNMVlBaN1BiZ08rMHhtV0hZMXBtWTh3NVlEcVBaVEZTeVZnS1JzZnJuN3lkbGhtRmJaMkxXSmJhZ1dsLzFLNEFhbzFYK0RJQ2sxRjNxS0RjWmhtM05pVm1YMkFMcFZDMHpmbGNraDlrUy93NUFpR2I3NFhyMDhvbGhXNDhodDNidFp2WmRNM0MxcWZiTERIQUFrQmxRQWlBem9BUkFaa0FKc0Y5bTl0Vm53ZFdtUW1iVkZlc3l0M1l5cTdyZDFDaVNwMmFCSENBemhhcVZZUlRKVTdOQUR2V1RXY0pjRmxuUVVuNnpMZXFhNWJqNnpVeGM1enJDWkRaTG1zdllncGIybTMzZUNyWmF4OVp2WnVRNjF4QkZ5RXlheTlpMGtmYWJTUS9RY2ZXYlZlMzdxcmZmVEdMY1hMYll6dkNiZFp0Q1pzZldiMmJrT3RjUUJjaE1tY3ZpMlN6bU4yUDVIVnUvV2ZMVUxLaXExKzhWSUVpYXk5aUNsdVUzQy91cVBZNStzNm4zWWlwcXhpMzBUWE5rTGp0elVWblEwbjR6NmpnSWZqUEh1YlZyTjdQdm1vR3JUYlZmWm9BRGdNeUFFZ0NaQVNVQU1nTktnUDB5czY4K0M2NDJGVEtycmxpWHVaQ1pQdGVDRU9yR3JaM015bTZhejRBRnQ2MXVYTWhNWDJiQXZEQXVzMW5teGdUc3NEV2FPM2xnQXN4bnMxbm14aGdzc1RVYVBIa2dHOFhKYktLNWtRYWozdksrL2FFMXRrWUxiSCt1VHd1VDJVUnpJNDMyU21NaXRxeXhOYzQ4SlF1cTFIWGpGdjRLTU12Y1NLTzkzbXNMbVZsamE1eDVTaGJjdHJweFM1SFpOSE1qai9hcXNwa2R0c2FacDJUQmJhc2J0MmlaelRJM0xqK1ZvNzE2TGRnYUhlYmEwbTdXYmFWVzRkTzVzNmhLWnYyMTlDQ3ZrSm16c1A4ckFPQUFJRE9nQk5ndk0vdnFzK0JxVXlHejZvcDFtUXVaNlhNdENLRnUzTnJKck1KbTJSQVczTGE2Y1NFemZaa0I4Nkw4WVZ2dDZVWnZ2cE1HTkZENnNLMFdkYU0zNTBrRCtWSDZzSzBXZGFObmdRL3J1RXhMSDdiVm9tNzBjcCtlQlZYcXVuRUxlUVhRR0xiVm9tNzBjcCtlQmJldGJ0eWlaSlovMkZacnV0SExmWG9XM0xhNmNZdVFtZDZ3cmVoRzd4aHdaOGxzcjdHdy84S0N4ckhOQVovT25jVzR6QTVlUGJnV0hKeTdXMTBzZ0lNWWw5bmhqNFRNOWs0OXFpNFd3RUZrUERRYmpaT1ZKRFBJekYxa3Z3TDhwMFVQVGZ2cXMrQnFVeE15T3pqYmtLZ21uVUZtN25DbnZtbCtyT3BreUdhMmhWQTM3dkV3QXVVNEdtUldKSGVXek9qQmVWcmowQVpScnN5QUVwRnEwTGk2SU40MnRacG5CMWsrczhXMitqaFFqZC9zYUJjREtBcXA1dG12VS9WTXIyNlc1VE83SWJUMGgrOTJxdktiNlY4SW9FaWtIcHFmWFJmLy9KT3V6Rkkrcy9kZTd3UmYvTFJUbGQrc2FuOFZwc2xwZG9PRzNqZk5MSi9aKzF1dDRTKzNPMVg1elhKRWpWZUFJcmw1R2pUMnY2Rng3Q0RUWi9aKy8veHZmeFhKckhTL21mNkZNRVFGTjVPYWVtaHU2amZQWnZuTTNoL2VlTE8zM2FuS2I2Wi9JUXhSd2Mya3BoMGFoejhLRHE1cEhKdnlVNGJQck9VMytiMFRmck5qeVowbHMydkIzdXJoOXkzNkNnQTRnTlJEYytmazNjMksybWNoTTJkaHYwTURjQURKQm8xemQyV2JoazBPRGNBQnBMTFp4L3BmQWN6R01nNzc2clBnYWxOVHJ3RFYvQXlBQVptNXc1M1Zic2JmbVpETmJBdWhidHhaMmN5NnVwbDkxd3hjYmFyOWRUUFRyZjlBQmNoczBORDhwbWtLa0ptem1PK2JacUtiUExHMC9PL3R5ZHVWcmRHbnIwMUYyUnIxVGg0b0MzTiswMHpZRnJ1dDFQQy9hVnRqNzRGWUxNeldtRGR1b0Z6TStVMHpZVnVrLzRQdUc5NGJYcXRMSDh5WGY5Sk0yeHBGeXVzRmhka2FOZXgydS9sdGViL1RzUEh0YXRqOUhDNTNON2s4NXpmTmhHMHg4TDNtWUgzRlg2SHM1TGNHbHo3STZFYnZxNTVRWEdHMnhyeHhCM2pUTEpZNzYwMVREd25iWWtEUFRiL2xOL3RYaEtJb1lXVjBveWZ3dURoYm8wYm9rRm1SWFBNeWkyeUxQb2xIeW15NzQ3ZjZGMFFOUDhQV09MelpLY3pXcUJFNlpGWWtkNXJNRGw3Vk9DWWhNVWJyOHY5OHkxdjZWTlRJUEcvcFo1NTM1dUxiR3krdlpkZ2E2YmQxR3JaR3dBR00vK1Nrb3M2QVlyRUFEaUlwczJ2OHNhbWF2aG9oTTRlUlZUZmJzZXFiSnVBQXhyTlpjSGpWc203MDdLdlBncXROVGY4Y2VGWGp1R1lCbWJuRG5TcXpDajJOQVdUbUV0ZHN1NWxSUUdidWNHc25zMExhWm9GeUFaa0JKY0NBekRTNzBTdk9iemJQU1FDRndrUTIwK3BHcjBDLzJWd25BUlFKUXpMTDM0MWVnWDZ6M2QzZndXOW1TYm16L0daSGdGWTNlZ1g2emZDbWFRKzNnRGROclc3MGd1TDhacENaUGR3aVpLYlhqVjVoZmpQSXpCNnVlWm5wZHFNSHY5bnhnLzN0Wm9BRGdNeUFFZ0NaQVNYQWZwblpWNThGVjVzS21WVlhyTXRjeUV5ZmEwRUlkZU5DWnZwY0MwS29HN2QyTXN2VkxndllEY2dNS0FFelpIYXZ2VVZtc21nNTZyQXN1UGNSdGQ0dnRnUGZXL3FQRDVTL2JLa3pjcGF0akJXVjdKUnFJSDBaM01OTE1wWnhRR1lPWUxyTSt0Lzg2TmJUUzg5dWo5YUV6aDRoR3BwOTN1NmY3dzNXbTZHL1REbkxwR2NqV1JadmlCVjBXWDBMSFk5bEhKQ1pBNWdtTXphRXNiREUzSEt2LzczMUpXVzVVRmF4M25NeVdSQTE5SmNwWjVseW9JbTlucTR2LzV2WDdJbzB4eHUyRnR0YnkrUXdXNUV5RTJWd3NjRmNmck9JRDcrWkxlWHVKcGVueVl3TllTeXpiaXZvL3JWNEpNb3VmdFFXSGhrejJPYU1GUHJMbExOTVpqUGFpOXdYMjUzQko2SGxqS1Rwai9idUxqL2pZdmw0ODJjenZHbmF3dFY0MDJSREdNdE16UFV2OUsrSVJTa3ozaUt6bVpSSTZDOVR6akxwUU9POWhqY2Yzci95Sk53ZzF0M3ZVZTlCUGNwbUc2M2hyUjRYRzR0bEhKQlpIYmthTW1ORFdJK3oyVXBBdlpZcG1iSHh0YnY4bEdZdmlMcVoyQmI2eTVTelROYTZlSytnZS81VCtwV0EzQkQwLytwRDZnZU42MmJCRm1UbUtsZERabXdJWTJzWTE4MjJsaDZ1djhKMk1ucmlTWjhZOWNsSUZTM2xMMXY4VnVnc28rb1c3eVVTWGZDRWZyM0VYYUQxNkNIYlgvTzhWOEtmT2JXbzJKVllMSUNEcUtMZDdNdE9NTHlkc1I0eWN4WlZ5S3pMN1cyVFlnRWNoUDFmQVFBSFlML003S3ZQZ3F0TmhjeXFLOVpsTG1TbXo3VWdoTHB4SVROOXJnVWgxSTFiTzVubGJwc0Y3QVZrQnBRQXlBd29BU1preGw3SHJxYzhqVHg2NjUzNGVLM2NUOTdpblpIMWNiU1h0RGUyNHJHTUF6SnpBRWF5R2RzMm5uVGlvN2NtKzg5akErVEkraGpiaXo2aCs4cVFPNy9NOEFwZ0M3ZUlWNEJJWnFQUlc1UDk1N0ZsS0xRK0pvZDBKWm5SbC9NajJ4cmpmTmdhYlNsM043bHNWR2FqMFZ0VDQ3V1NEVGUwUGlhR2RPVys5U1NRemR6aEZwYk5JazlqUU0vTlpQOTVNcHVGWGVzbGhuUWRYQ2JIV2l5V2NVQm1kZVFXSWJQaERXbXlqWTNlbXV3L2p3MlFvZlV4T2FTcmVHaDJtL0ZZeHFFak04QlNtR25RNksrSnArSXdObnJydy9oNHJtY3VrZ0h5TFdWOVRBN3BLbDVKbThNTjZRdUNROE5aMk45dUJqZ0F5QXdvQWZiTHpMNzZMTGphVk1pc3VtSmQ1a0ptK2x3TFFxZ2JGekxUNTFvUVF0MjR0Wk1aNEFEc2x4bGFaUjBBWkFhVWdQbGtOb2pieXRobzFwNjhYUTNidWtXZnl1Y2Z0dldJRVFPVllNNXNsckNWc2RGc3luWWV0dlh6VnJEVk1qQnNheVlYcndDMmNNMitBaVJzWld3MDY3N2h2ZUcxa3A2eStMQ3RjaWpOK1lkdFRmRUMrTTBzS25jM3VXeEdaaU9qMldCOXhWK2g3QlQzbE1XSGJlMDJoY3dNRE51YXlVVTJzNFZiU0RhTEdjMzhGdldFbHZTVXhZZHRaWXVqZ1dGYjg1emNWRUJtUlhMTnl5eXlsYkhSVE1vczZTbExEdHNxSmdhR2JUMXF4RUFWbVB0TmMyUXJZNlBacDZKRzVvMTV5c2FHYmFXZk5tSFkxdU1GKzl2TkFBY0FtUUVsd0g2WjJWZWZCVmViQ3BsVlY2ekxYTWhNbjJ0QkNIWGpRbWI2WEF0Q3FCdTNkaklESElEOU1rTnpyQU9BeklBU1lFcG1TZWRaNXRyNS9HWnpSd2hVQ0dQWkxPRXN5MTQ3bDk4c1Z4QjRCYkNGVzlRclFOSlpSajB6Ym5uZi90Q2MzeXkxUG1zS3Y1a3Q1ZTRtbDAzTFREckxIcmZaZGhIMVAyWEFiNVlyQ0dRelc3Z0ZaelBwTE52eXZCWHhWQnp2NW13ZXYxbXVJQ0F6VzdoRnlpeHlsbEVIb2Qwd201bnhtODBmSVZBZERMNXB4cHhub3I1RlE3bFNuMmJ3bXdFRnQ1dDFXMXAweU14WkZDbXovdHBTWnpaclBCYkFRZGovRmNDKytpeTQybFRJckxwaVhlWkNadnBjQzBLb0d4Y3kwK2RhRUVMZHVMV1RHZUFBN0pjWm1tY2RBR1FHbEFESURDZ0JCam8zV09tdkxmZUNyc2VtUmZxTzVIbXZxQ0ZhMWFyU2JJMTRCYkNGYS9ZVllIaFRxS1ExM0dqU1FJZHN4eGplZW5ycDJlMXdpRmJZR284cDE3ak1nbTV6K041R0s1U1o5R3FFUTdUQzFuaE15OTFOTHB2SlpyY0gzMmtuWmFhR2FJV3Q4Wmh5RFdjelVhOWFDVVNTNnArL241U1pHcUsxWEZzallDa01QRFFEa2xuUVhlb29ENk9VbVJ5aUZiWkdnREQzbStaU2gxS2EwTW0ySEtxVmZtclNIS2doV2htd05RTDJ0NXNCRHNCK21kbFhud1ZYbXdxWlZWZXN5MXpJVEo5clFRaDE0MEptK2x3TFFxZ2J0M1l5QXh3QVpBYVVBUHRsaHRaWkJ3Q1pBU1VnaDh5NEx6eHV2SThHWi8xb1F6YjQ4N2h6Q3NwQ1J0ODVsenFKL3ZQWVVMWjRSM25Rd3A4SVN3cWIwRnJ4V01haEl6TzhBdGpDUGNJckFILy9wdDVYUm9PejhyZkt4Qml0eWtKR29BK2RTYU9aV0hqZURqMW9pV0xwQzZjdkZRbVpPY1NkUjJhandWbDVsVStqc3ZiWFh2bEVwS1FtbXk3ODE5YnBHMmRNWnRKb2RxbjN2QjE1MEpKRHVwTE1WaWlRNlg2ejlQcXNLZnhtdHBTN20xeldrZGxvY0ZhNXFuK2h1OXg3M1A2eVExMnlrSVhzVGZGRTdEYmpNb3VNWnZTRVZSNjA1SkN1YkVLVFFEWnpoM3ZVYkNia0VSdWNWV1d6NGEwZVZiWklPaktiTmVuaEdaT1pNcHJKYkJaNjBCSkR1ZzR1OTgvMzRyR01BNjhBRGlDUHpJWTMycXlKMk9Dc3FtNG1aUGFrSTVKYVM5WE5xQ1BRVVRZYkdjMW80VUxvUVVzTzZTb2VtdDFtUEpaeFFHWU9JRmVEUm45TlBQU0dpY0ZaNVp1bTc3WCtWK1FtZnZDUmhjem5YekxKZnZSR1JyTXpGOGwyOXBieW9DV0hkTDBqcW5YRGpjWDJLQmJBUVpodE4vT2Jzem1UQVprNUM2TXlHeldLelJITE9PeXJ6NEtyVGJYL0s0Qjkxd3hjYlNwa1ZsMnhMbk1oTTMydUJTSFVqV3V6ekFCbndUZllEcGxsbzZqM3o0TEtyVm00cFY0R3lNejJZdXRXYnUxa0JqZ0R5QXdvQVpBWlVBSWdNNkFFMkNnelpmcnV5djVkNXZwWU9yRmMzNXZyNjFpNldQbTV6WHk0c2x5RDRhcHl5WkJxTk41NHNhbHdMWlJaMkc4b1RXSUdjS1BsQmc4TUZUcnlxSk1KcW9Cd1pROWY1c0lOeTMzU0diemVNUmh2dk5oMHVCYktqRzJTYXFMbWpaYzdXRmUvUWpCV3JPd2wxWHk0MHNObkx0eFlqUGZhQnVPTkY1c08xMEtaY2IraGFxTG1qWmY3VmM4M2RlUENFRWtPQllUTDVSb01OeGJqL1o3QmVPUEZwc08xVUdabFpMT0FyNHZKWWd2TlpvRzVjRWN4K2kyVDhjYUxEVkxoV2lpelV1cG00ZDB6Vm15eGRUTno0VWJsMHEvS3pOZk41SS9WVXVGYUtETTJmWGRiUEpIL21DKzM2eTJha3NPb1dIYXBGeEF1L1NUYlhMaXEzQzcvSk1oZ3ZMRmkwK0hhS0RQQU9VQm1RQW1BeklBU0FKa0JKUUF5QTBvQVpBYVVBRGRrdHROb0xIeDJmV3psNGQ5ZVAvZ2FyMVNUQkxMV1JTdjNYM28waVRJYjZkMk9XQkJIOG1lektTL2UxWXBHQy84NDE5NFJuSkRaNXFsSHdjNko4UXV5S2RlazVKZlltb21EczZjZXphQ01JVHJJaEtQbDJqY0RVdTlUY1hqMTVEU1p6WWs1VlJyQ0JabnQvekZkaXIzVnNkVWltOUZrd3QrajJqcWhSTDY3VXlsSlJBYzV3bC8vbEYwT3Y1OURRUWZuQ3BSWmNQRDFtVUxQQVJka3RuTktYUWw2ZG9xci9zOE5zV0t2MFRoQkQwMHhYYVUveWRpMmc3T05rM2RaUTRkWEc2ZEZOdmhYV25GdzdwMFQvL0MxNjd4eC82VWZORTZ6ekRZYlhEanRLUGJuUlNMKy9Vcy9iNXo2ZGVQVWI4NmV2Q3VTSGgrRWRzdzRXc0FwWVYvdDhDZ3NTVEhlT2ZIRGNGOUYzeEd6NFdIM1RwUGsxWjd5NERFbW4zRzRGTnNnemtyTWIwYkhIc1V4NGtRSGF5eklNMzRodkFyalFXeU8vL2tlQlM3SlRPU2cvUmYrVWlpSGJ1dUxkMFdTRXdyNGI5TEtpZXZ4YlRzTFFrQXlWVkVtK0QydmVQZXF1TzJDeUJ2M1gxZzl2TG9xWnZiRXVnVXB4MENzcE1VL0YwU3hMTzdPYWFyOW5TUEIwa0Y0eDR5akJmVDBmVGZjNFYxVlVzaFlDTUo5MzVWMG9hek5CWFZZc1Q0WUhZcFh4cGdCeTNDVHRxcVRVaHQyVG84aWw4ZFc5QkZIcmVNb1ZzVi85T2llRU1UT2dvRmI1SkxNNklLSXE4NDNubTRRYTRua0pKZWpiWFRyVnRVVFVWeklqeC94Q2xKY3VKRWVtaXdiOGRjdVpLRWVURHNMdkVqenNpQWhSVFdqVXVOcTF0SGt5MGhzQnk0cFpBVFJ2cExDeVNNOExMR2lQZVhLRVROUW1TWjJVbkoyNzNRczh1allkTFlqVG5TVjZBcUlDM2p3NnFRZ0lETUZXVGZiLy9FT1g1UUpNb3R0MnhOLzRLSE05bC84bHg4SHZFTGRjcDRmeVV3OU1VSnhxTnVhSmJPbzFMR2pCZGt5Q3hsQnRHLzhEcXZESm1WR0syUE1JQ0d6MkFiT3ZXRVJjWm5GT09vcW5WWVpjL1d6aVVGQVppSG9UVk5VVllYY29ndTRKMnBmVjAvK0lwSlpmTnVtZWlKRysvSUtkY3Q1WHNoTVBEbzRNUVQwZDg0dlhQSmhjdkRxdU13T3p0SnhncWpVc2FNRll6S1RKVVVNV1FOY2pSUzdSNWtsUEN6VnphSTllV1dNU2R1SkhEc3BWY1NDM0pXTGlNY1I0OGgvWlJTQzNJaGRoYkVnVURlTHNFbDFYazd6cTJMKzlJNjRhbUpWWTFYTzhDUzI3ZGVORTM5eThoMVZpZDcvQmwxbHNlSXZtQ1EzL3VJcXNlWGUzRndncXNrTmF0N1lWSFZyVVpDWS9Kem5UdndwdlNtc2NpRjMwMGQ3UkhHZCtrRzR3MjlVU1lyQk5mdFZGWUFLL01UMVFCMlczalRqaDZKM2pCR1RUL3pFOWRoSnlRMy85UUs5WHFnaTVMRWxQYmF6V3NkUkJGSkwyVUhnVGJORW1HczAwQ3RwZXRQckJQeGVxUGhqTFhFYy90MGt1a2FqempSQVpybFFsY3p5ZkFVWUJ5bmo0SnJXTHFrMnh3ajRDbEFpUktYNmxJbG5oOG1TSm1OUFZpRnlZNU5mU1FzRlpBYVVBTWdNS0FHUUdWQUNJRE9nQkVCbVFBbjRmN2R6UmpVVElMUUFBQUFBQUVsRlRrU3VRbUNDXCIgLz5cblxuPCEtLSBybmItcGxvdC1lbmQgLS0+XG4ifQ== -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAEzCAMAAACsWT9hAAABtlBMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjshmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/WsD/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///9ZusAEAAAACXBIWXMAAAuwAAALsAEaOBByAAAYEklEQVR4nO1dj3/bxn2lfyzLlk2QYkWuu3RSO9cZ1bhe3Dih1y6t18WyWzdO4lBbs62WtdnN6lBZt5p2ltVmNRWO2Igi/uPd93sHECBAEicegMPpvU9i/Ho4fAE8fXE4PN41AgAoHI2qAwCOAyAzoARAZkAJgMyAEmCHzP4IcBZ8gy2RWdUBAEUBMgNKAGQGlADIDCgB9stsV6OEgrgWhFA37hjVfpn9H1AnqLsGmQFFQt214mQ2WPeWezTT/2Y7GG54nrd4J75KbPfEou8tdYKu16TV99qD1ztMbUJmbqBwmQWDSyyp4Mu/acqF5+3kqsvB8FbvAanuglCYFJ/490r/SiwWyKzWyJZGETJ74IsUJhaet8dWXR7eFjlNzHVbgd8UWWxR6PDpOiczaire3eU/gt3EtOrrBmghdf94WoDMBp+IJyE9IhfbqVUrwVc9objHbZHDuk2R0rriKdr0+QmKbOYCsqVRgMx8kZ1ayWymVlE2E3jc5mwmHpuP2+IpCpm5hHJkJqpZX/QCf0UuXEiuusy04c0O181ENusuP4PM3IK6a4W+aYqXy482RN7a8s5cFAveW/FVL6/R+2SXnqViqcn8lu+9vcGpbqLM7GtrBFeban+7mX3XDFxtKmRWXbEuc2snM8ABQGZACYDMgBIAmQElwH6Z2VefBVebar/Mqm5vBEbIfy8hM+DIyH8v55CZ9JC1szYp/1hAny+XOmJy7w4bL8QuK2rDYJ12HW7w5iC0p/Gng1Y8lnFUfWmBEXLJhDFPNuMvlOwRC79PqlnlHyM84H8Fi9xlNzuhE0gsDW4Ixf3hu514abzBl9ZHyMx65JNJBrRlFvhNyku+xxORjJpilh0X/mvrSx22k0knWSiz/vfEeuK/93on+OKnnS595Vz+SXMkM0p48JvVAFn3J9dUX2b9C4/bfvPzCwFNhL4Cng36b4rHYbfJdjJ2koWGs2di/b22IA3e32oNf7ktspnfGlz6IMxm69FjFdnMduSTSQaOks22PG9FPCZpQqIRszKbNWmW7GTsJKNsttGibHZFLPVJZv3zv/3Vtkh4HtGjh2b/fA8yqwfKk5modT2R2qIJZTMxy3UzoRyRxuhJyU6yp6L2tpWU2fDGm73tznbHb/Uv3GtLL5pQY7cJmdUD+XVl4E2TnnOD9aac8Cz7x3z63VJXEaTVbPmZeNPcWnq4LkiviSQmnrLe0s8878zFtzdeXlO/fRKvo/L1Fc2z7nCLazfzm7M5UwGZucMtTGajFrGjAjJzh1u7rwCAA4DMgBIAmQElADIDSoD9MrOvPguuNhUyq65Yl7m1k1nVLd/HBzNvEGQGzI+ZN6gcmeWxNYaNtLA11g+5RHA0GLc1Dm+SjGBrrCG0hKMH07ZGlhlsjbXEEeyKVdkaWWawNdYS+URwJBi3NZLMYGusJWbe/5LeNPPYGlU2g62xftDVjgbVtK1RzC33YGs89lzYGvW5FoRQN27tbI2AA7D/KwDgACAzoARAZkAJsF9m9tVnwdWmQmbVFesyt3Yyq7rRsiTMujgWSAcyqz9mXRwLpFO1zKIxWulj5xoNZOjxCK3JkVwxbOs0zHcHbIeZbCbHaB3eFJJpDTeEZJ4ooxmGbc2LOe+A5TAms+dt9dV8+N5GKyUzDNs6C6nzdmpqSGbsLVPZ7PbgO+0xmWHY1pmY8w5YDqPZTFSyVgKRsfrn7ydlhmFbZ2LWJbagWl/1K4Aao1X+DICk1F3qKDcZhm3NiVmX2ALpVC0zflckh9kS/w5AiGb74Xr08olhW48ht3btZvZdM3C1qfbLDHAAkBlQAiAzoARAZkAJsF9m9tVnwdWmQmbVFesyt3Yyq7rd1CiSp2aBHCAzhaqVYRTJU7NADvWTWcJcFlnQUn6zLeqa5bj6zUxc5zrCZDZLmsvYgpb2m33eCrZax9ZvZuQ61xBFyEyay9i0kfabSQ/QcfWbVe37qrffTGLcXLbYzvCbdZtCZsfWb2bkOtcQBchMmcvi2SzmN2P5HVu/WfLULKiq1+8VIEiay9iCluU3C/uqPY5+s6n3Yipqxi30TXNkLjtzUVnQ0n4z6jgIfjPHubVrN7PvmoGrTbVfZoADgMyAEgCZASUAMgNKgP0ys68+C642FTKrrliXuZCZPteCEOrGrZ3Mym6az4AFt61uXMhMX2bAvDAus1nmxgTssDWaO3lgAsxns1nmxhgssTUaPHkgG8XJbKK5kQaj3vK+/aE1tkYLbH+uTwuT2URzI432SmMitqyxNc48JQuq1HXjFv4KMMvcSKO93msLmVlja5x5ShbctrpxS5HZNHMjj/aqspkdtsaZp2TBbasbt2iZzTI3Lj+Vo716LdgaHeba0m7WbaVW4dO5s6hKZv219CCvkJmzsP8rAOAAIDOgBNgvM/vqs+BqUyGz6op1mQuZ6XMtCKFu3NrJrMJm2RAW3La6cSEzfZkB86L8YVvt6UZvvpMGNFD6sK0WdaM350kD+VH6sK0WdaNngQ/ruExLH7bVom70cp+eBVXqunELeQXQGLbVom70cp+eBbetbtyiZJZ/2FZrutHLfXoW3La6cYuQmd6wrehG7xhwZ8lsr7Gw/8KCxrHNAZ/OncW4zA5ePbgWHJy7W10sgIMYl9nhj4TM9k49qi4WwEFkPDQbjZOVJDPIzF1kvwL8p0UPTfvqs+BqUxMyOzjbkKgmnUFm7nCnvml+rOpkyGa2hVA37vEwAuU4GmRWJHeWzOjBeVrj0AZRrsyAEpFq0Li6IN42tZpnB1k+s8W2+jhQjd/saBcDKAqp5tmvU/VMr26W5TO7IbT0h+92qvKb6V8IoEikHpqfXRf//JOuzFI+s/de7wRf/LRTld+san8VpslpdoOG3jfNLJ/Z+1ut4S+3O1X5zXJEjVeAIrl5GjT2v6Fx7CDTZ/Z+//xvfxXJrHS/mf6FMEQFN5Oaemhu6jfPZvnM3h/eeLO33anKb6Z/IQxRwc2kph0ahz8KDq5pHJvyU4bPrOU3+b0TfrNjyZ0ls2vB3urh9y36CgA4gNRDc+fk3c2K2mchM2dhv0MDcADJBo1zd2Wbhk0ODcABpLLZx/pfAczGMg776rPgalNTrwDV/AyAAZm5w53VbsbfmZDNbAuhbtxZ2cy6upl91wxcbar9dTPTrf9ABchs0ND8pmkKkJmzmO+bZqKbPLG0/O/tyduVrdGnr01F2Rr1Th4oC3N+00zYFrut1PC/aVtj74FYLMzWmDduoFzM+U0zYVuk/4PuG94bXqtLH8yXf9JM2xpFyusFhdkaNex2u/lteb/TsPHtatj9HC53N7k85zfNhG0x8L3mYH3FX6Hs5LcGlz7I6Ebvq55QXGG2xrxxB3jTLJY7601TDwnbYkDPTb/lN/tXhKIoYWV0oyfwuDhbo0bokFmRXPMyi2yLPolHymy747f6F0QNP8PWOLzZKczWqBE6ZFYkd5rMDl7VOCYhMUbr8v98y1v6VNTIPG/pZ5535uLbGy+vZdga6bd1GrZGwAGM/+Skos6AYrEADiIps2v8samavhohM4eRVTfbseqbJuAAxrNZcHjVsm707KvPgqtNTf8ceFXjuGYBmbnDnSqzCj2NAWTmEtdsu5lRQGbucGsns0LaZoFyAZkBJcCAzDS70SvObzbPSQCFwkQ20+pGr0C/2VwnARQJQzLL341egX6z3d3fwW9mSbmz/GZHgFY3egX6zfCmaQ+3gDdNrW70guL8ZpCZPdwiZKbXjV5hfjPIzB6ueZnpdqMHv9nxg/3tZoADgMyAEgCZASXAfpnZV58FV5sKmVVXrMtcyEyfa0EIdeNCZvpcC0KoG7d2MsvVLgvYDcgMKAEzZHavvUVmsmg56rAsuPcRtd4vtgPfW/qPD5S/bKkzcpatjBWV7JRqIH0Z3MNLMpZxQGYOYLrM+t/86NbTS89uj9aEzh4hGpp93u6f7w3Wm6G/TDnLpGcjWRZviBV0WX0LHY9lHJCZA5gmMzaEsbDE3HKv/731JWW5UFax3nMyWRA19JcpZ5lyoIm9nq4v/5vX7Io0xxu2Fttby+QwW5EyE2VwscFcfrOID7+ZLeXuJpenyYwNYSyzbivo/rV4JMouftQWHhkz2OaMFPrLlLNMZjPai9wX253BJ6HljKTpj/buLj/jYvl482czvGnawtV402RDGMtMzPUv9K+IRSkz3iKzmZRI6C9TzjLpQOO9hjcf3r/yJNwg1t3vUe9BPcpmG63hrR4XG4tlHJBZHbkaMmNDWI+z2UpAvZYpmbHxtbv8lGYviLqZ2Bb6y5SzTNa6eK+ge/5T+pWA3BD0/+pD6geN62bBFmTmKldDZmwIY2sY1822lh6uv8J2MnriSZ8Y9clIFS3lL1v8Vugso+oW7yUSXfCEfr3EXaD16CHbX/O8V8KfObWo2JVYLICDqKLd7MtOMLydsR4ycxZVyKzL7W2TYgEchP1fAQAHYL/M7KvPgqtNhcyqK9ZlLmSmz7UghLpxITN9rgUh1I1bO5nlbpsF7AVkBpQAyAwoASZkxl7Hrqc8jTx66534eK3cT97inZH1cbSXtDe24rGMAzJzAEayGds2nnTio7cm+89jA+TI+hjbiz6h+8qQO7/M8ApgC7eIV4BIZqPRW5P957FlKLQ+Jod0JZnRl/Mj2xrjfNgabSl3N7lsVGaj0VtT47WSDTe0PiaGdOW+9SSQzdzhFpbNIk9jQM/NZP95MpuFXeslhnQdXCbHWiyWcUBmdeQWIbPhDWmyjY3emuw/jw2QofUxOaSreGh2m/FYxqEjM8BSmGnQ6K+Jp+IwNnrrw/h4rmcukgHyLWV9TA7pKl5Jm8MN6QuCQ8NZ2N9uBjgAyAwoAfbLzL76LLjaVMisumJd5kJm+lwLQqgbFzLT51oQQt24tZMZ4ADslxlaZR0AZAaUgPlkNojbytho1p68XQ3bukWfyucftvWIEQOVYM5slrCVsdFsynYetvXzVrDVMjBsayYXrwC2cM2+AiRsZWw0677hveG1kp6y+LCtcijN+YdtTfEC+M0sKnc3uWxGZiOj2WB9xV+h7BT3lMWHbe02hcwMDNuayUU2s4VbSDaLGc38FvWElvSUxYdtZYujgWFb85zcVEBmRXLNyyyylbHRTMos6SlLDtsqJgaGbT1qxEAVmPtNc2QrY6PZp6JG5o15ysaGbaWfNmHY1uMF+9vNAAcAmQElwH6Z2VefBVebCplVV6zLXMhMn2tBCHXjQmb6XAtCqBu3djIDHID9MkNzrAOAzIASYEpmSedZ5tr5/GZzRwhUCGPZLOEsy147l98sVxB4BbCFW9QrQNJZRj0zbnnf/tCc3yy1PmsKv5kt5e4ml03LTDrLHrfZdhH1P2XAb5YrCGQzW7gFZzPpLNvyvBXxVBzv5mwev1muICAzW7hFyixyllEHod0wm5nxm80fIVAdDL5pxpxnor5FQ7lSn2bwmwEFt5t1W1p0yMxZFCmz/tpSZzZrPBbAQdj/FcC++iy42lTIrLpiXeZCZvpcC0KoGxcy0+daEELduLWTGeAA7JcZmmcdAGQGlADIDCgBBjo3WOmvLfeCrsemRfqO5HmvqCFa1arSbI14BbCFa/YVYHhTqKQ13GjSQIdsxxjeenrp2e1wiFbYGo8p17jMgm5z+N5GK5SZ9GqEQ7TC1nhMy91NLpvJZrcH32knZaaGaIWt8ZhyDWczUa9aCUSS6p+/n5SZGqK1XFsjYCkMPDQDklnQXeooD6OUmRyiFbZGgDD3m+ZSh1Ka0Mm2HKqVfmrSHKghWhmwNQL2t5sBDsB+mdlXnwVXmwqZVVesy1zITJ9rQQh140Jm+lwLQqgbt3YyAxwAZAaUAPtlhtZZBwCZASUgh8y4LzxuvI8GZ/1oQzb487hzCspCRt85lzqJ/vPYULZ4R3nQwp8ISwqb0FrxWMahIzO8AtjCPcIrAH//pt5XRoOz8rfKxBitykJGoA+dSaOZWHjeDj1oiWLpC6cvFQmZOcSdR2ajwVl5lU+jsvbXXvlEpKQmmy7819bpG2dMZtJodqn3vB150JJDupLMViiQ6X6z9PqsKfxmtpS7m1zWkdlocFa5qn+hu9x73P6yQ12ykIXsTfFE7DbjMouMZvSEVR605JCubEKTQDZzh3vUbCbkERucVWWz4a0eVbZIOjKbNenhGZOZMprJbBZ60BJDug4u98/34rGMA68ADiCPzIY32qyJ2OCsqm4mZPakI5JaS9XNqCPQUTYbGc1o4ULoQUsO6Soemt1mPJZxQGYOIFeDRn9NPPSGicFZ5Zum77X+V+QmfvCRhcznXzLJfvRGRrMzF8l29pbyoCWHdL0jqnXDjcX2KBbAQZhtN/ObszmTAZk5C6MyGzWKzRHLOOyrz4KrTbX/K4B91wxcbSpkVl2xLnMhM32uBSHUjWuzzABnwTfYDpllo6j3z4LKrVm4pV4GyMz2YutWbu1kBjgDyAwoAZAZUAIgM6AE2CgzZfruyv5d5vpYOrFc35vr61i6WPm5zXy4slyD4apyyZBqNN54salwLZRZ2G8oTWIGcKPlBg8MFTryqJMJqoBwZQ9f5sINy33SGbzeMRhvvNh0uBbKjG2SaqLmjZc7WFe/QjBWrOwl1Xy40sNnLtxYjPfaBuONF5sO10KZcb+haqLmjZf7Vc83dePCEEkOBYTL5RoMNxbj/Z7BeOPFpsO1UGZlZLOAr4vJYgvNZoG5cEcx+i2T8caLDVLhWiizUupm4d0zVmyxdTNz4Ubl0q/KzNfN5I/VUuFaKDM2fXdbPJH/mC+36y2aksOoWHapFxAu/STbXLiq3C7/JMhgvLFi0+HaKDPAOUBmQAmAzIASAJkBJQAyA0oAZAaUADdkttNoLHx2fWzl4d9eP/gar1STBLLWRSv3X3o0iTIb6d2OWBBH8mezKS/e1YpGC/84194RnJDZ5qlHwc6J8QuyKdek5JfYmomDs6cezaCMITrIhKPl2jcDUu9TcXj15DSZzYk5VRrCBZnt/zFdir3VsdUim9Fkwt+j2jqhRL67UylJRAc5wl//lF0Ov59DQQfnCpRZcPD1mULPARdktnNKXQl6doqr/s8NsWKv0ThBD00xXaU/ydi2g7ONk3dZQ4dXG6dFNvhXWnFw7p0T//C167xx/6UfNE6zzDYbXDjtKPbnRSL+/Us/b5z6dePUb86evCuSHh+Edsw4WsApYV/t8CgsSTHeOfHDcF9F3xGz4WH3TpPk1Z7y4DEmn3G4FNsgzkrMb0bHHsUx4kQHayzIM34hvArjQWyO//keBS7JTOSg/Rf+UiiHbuuLd0WSEwr4b9LKievxbTsLQkAyVVEm+D2vePequO2CyBv3X1g9vLoqZvbEugUpx0CspMU/F0SxLO7Oaar9nSPB0kF4x4yjBfT0fTfc4V1VUshYCMJ935V0oazNBXVYsT4YHYpXxpgBy3CTtqqTUht2To8il8dW9BFHreMoVsV/9OieEMTOgoFb5JLM6IKIq843nm4Qa4nkJJejbXTrVtUTUVzIjx/xClJcuJEemiwb8dcuZKEeTDsLvEjzsiAhRTWjUuNq1tHky0hsBy4pZATRvpLCySM8LLGiPeXKETNQmSZ2UnJ273Qs8ujYdLYjTnSV6AqIC3jw6qQgIDMFWTfb//EOX5QJMott2xN/4KHM9l/8lx8HvELdcp4fyUw9MUJxqNuaJbOo1LGjBdkyCxlBtG/8DqvDJmVGK2PMICGz2AbOvWERcZnFOOoqnVYZc/WziUFAZiHoTVNUVYXcogu4J2pfV0/+IpJZfNumeiJG+/IKdct5XshMPDo4MQT0d84vXPJhcvDquMwOztJxgqjUsaMFYzKTJUUMWQNcjRS7R5klPCzVzaI9eWWMSduJHDspVcSC3JWLiMcR48h/ZRSC3IhdhbEgUDeLsEl1Xk7zq2L+9I64amJVY1XO8CS27deNE39y8h1Vid7/Bl1lseIvmCQ3/uIqseXe3FwgqskNat7YVHVrUZCY/JznTvwpvSmsciF300d7RHGd+kG4w29USYrBNftVFYAK/MT1QB2W3jTjh6J3jBGTT/zE9dhJyQ3/9QK9Xqgi5LElPbazWsdRBFJL2UHgTbNEmGs00CtpetPrBPxeqPhjLXEc/t0kukajzjRAZrlQlczyfAUYBynj4JrWLqk2xwj4ClAiRKX6lIlnh8mSJmNPViFyY5NfSQsFZAaUAMgMKAGQGVACIDOgBEBmQAn4f7dzRjUTILQAAAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrRnNiRlpoY25ORGIyNVFaWEp0YVcxd01YQmpMbk4yWjF3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU5Dd2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p6ZG1kY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNaRUZ1Ym05NVRXNUJiR3hXWVhKelEyOXVVR1Z5YldsdGNERndZeTV6ZG1kY0lpbGNiaUFnWEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY0lsQjBjMEZDWkVGdWJtOTVUVzVCYkd4V1lYSnpRMjl1VUdWeWJXbHRjREZ3WXk1d1pHWmNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVFFzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ3aWNHUm1YQ0lwS1Z4dUlDQjFibXhwYm1zb1hDSlFkSE5CUW1SQmJtNXZlVTF1UVd4c1ZtRnljME52YmxCbGNtMXBiWEF4Y0dNdWNHUm1YQ0lwWEc1OVhHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFsbFZhcnNDb25QZXJtaW1wMXBjLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BbGxWYXJzQ29uUGVybWltcDFwYy5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BbGxWYXJzQ29uUGVybWltcDFwYy5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXAxcGMucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAllVarsConPermimp1pc.svg\, width=8, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAllVarsConPermimp1pc.svg\)
ggsave(filename=\PtsABdAnnoyMnAllVarsConPermimp1pc.pdf\, width=8, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAllVarsConPermimp1pc.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtGc2JGWmhjbk5EYjI1UVpYSnRhVzF3TVhCakxuTjJaMXhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TkN3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHpkbWRjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1pFRnVibTk1VFc1QmJHeFdZWEp6UTI5dVVHVnliV2x0Y0RGd1l5NXpkbWRjWENsY2JpQWdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjWEZCMGMwRkNaRUZ1Ym05NVRXNUJiR3hXWVhKelEyOXVVR1Z5YldsdGNERndZeTV3WkdaY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUUXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRnhjY0dSbVhGd3BLVnh1SUNCMWJteHBibXNvWEZ4UWRITkJRbVJCYm01dmVVMXVRV3hzVm1GeWMwTnZibEJsY20xcGJYQXhjR011Y0dSbVhGd3BYRzU5WEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BbGxWYXJzQ29uUGVybWltcDFwYy5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXAxcGMuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXAxcGMucGRmXFwsIHdpZHRoPTgsIGhlaWdodD00LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFsbFZhcnNDb25QZXJtaW1wMXBjLnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFsbFZhcnNDb25QZXJtaW1wMXBjLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BbGxWYXJzQ29uUGVybWltcDFwYy5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BbGxWYXJzQ29uUGVybWltcDFwYy5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWxsVmFyc0NvblBlcm1pbXAxcGMucGRmXFwpXG59XG5cbmBgYFxuYGBgIn0= -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAllVarsConPermimp1pc.svg\, width=8, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAllVarsConPermimp1pc.svg\)
ggsave(filename=\PtsABdAnnoyMnAllVarsConPermimp1pc.pdf\, width=8, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAllVarsConPermimp1pc.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
### Absolute variables
#### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0J1WVcxbGN5aHpkR2x0UkdGMFlVNTFiU2xiZDJocFkyZ29ibUZ0WlhNb2MzUnBiVVJoZEdGT2RXMHBJRDA5SUNkVlFWTkZkbVZ1ZEhNbktUcDNhR2xqYUNodVlXMWxjeWh6ZEdsdFJHRjBZVTUxYlNrZ1BUMGdKMVZCVTBsdGNIVnNjMU5JVFRBMVJYaE5ZWGhNVWljcFhWeHVhVlpoY25NZ1BDMGdhVlpoY25OYklTQnBWbUZ5Y3lBbGFXNGxJR01vSjFOT1VteGxkbVZzSnl3Z0owbHVkR1Z5YldsMFVtRjBhVzlOWVhoTVVpY3BYVnh1WkZaaGNpQThMU0JjSW1SQmJtNXZlVTFsWVc1Y0lseHVYRzV6WldWa2N5QThMU0JqS0RVM09ETXhNaXdnTlRRMExDQTRORGc1TkN3Z05UUTJOVFFzSURFMU16RTFOeWxjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbmlWYXJzIDwtIG5hbWVzKHN0aW1EYXRhTnVtKVt3aGljaChuYW1lcyhzdGltRGF0YU51bSkgPT0gJ1VBU0V2ZW50cycpOndoaWNoKG5hbWVzKHN0aW1EYXRhTnVtKSA9PSAnVUFTSW1wdWxzU0hNMDVFeE1heExSJyldXG5pVmFycyA8LSBpVmFyc1shIGlWYXJzICVpbiUgYygnU05SbGV2ZWwnLCAnSW50ZXJtaXRSYXRpb01heExSJyldXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoNTc4MzEyLCA1NDQsIDg0ODk0LCA1NDY1NCwgMTUzMTU3KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
iVars <- names(stimDataNum)[which(names(stimDataNum) == 'UASEvents'):which(names(stimDataNum) == 'UASImpulsSHM05ExMaxLR')]
iVars <- iVars[! iVars %in% c('SNRlevel', 'IntermitRatioMaxLR')]
dVar <- \dAnnoyMean\
seeds <- c(578312, 544, 84894, 54654, 153157)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQnVZVzFsY3loemRHbHRSR0YwWVU1MWJTbGJkMmhwWTJnb2JtRnRaWE1vYzNScGJVUmhkR0ZPZFcwcElEMDlJQ2RWUVZORmRtVnVkSE1uS1RwM2FHbGphQ2h1WVcxbGN5aHpkR2x0UkdGMFlVNTFiU2tnUFQwZ0oxVkJVMGx0Y0hWc2MxTklUVEExUlhoTllYaE1VaWNwWFZ4dWFWWmhjbk1nUEMwZ2FWWmhjbk5iSVNCcFZtRnljeUFsYVc0bElHTW9KMU5PVW14bGRtVnNKeXdnSjBsdWRHVnliV2wwVW1GMGFXOU5ZWGhNVWljcFhWeHVaRlpoY2lBOExTQmNYR1JCYm01dmVVMWxZVzVjWEZ4dVhHNXpaV1ZrY3lBOExTQmpLRFUzT0RNeE1pd2dOVFEwTENBNE5EZzVOQ3dnTlRRMk5UUXNJREUxTXpFMU55bGNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG5pVmFycyA8LSBuYW1lcyhzdGltRGF0YU51bSlbd2hpY2gobmFtZXMoc3RpbURhdGFOdW0pID09ICdVQVNFdmVudHMnKTp3aGljaChuYW1lcyhzdGltRGF0YU51bSkgPT0gJ1VBU0ltcHVsc1NITTA1RXhNYXhMUicpXVxuaVZhcnMgPC0gaVZhcnNbISBpVmFycyAlaW4lIGMoJ1NOUmxldmVsJywgJ0ludGVybWl0UmF0aW9NYXhMUicpXVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDU3ODMxMiwgNTQ0LCA4NDg5NCwgNTQ2NTQsIDE1MzE1NylcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBuYW1lcyhzdGltRGF0YU51bSlbd2hpY2gobmFtZXMoc3RpbURhdGFOdW0pID09ICdVQVNFdmVudHMnKTp3aGljaChuYW1lcyhzdGltRGF0YU51bSkgPT0gJ1VBU0ltcHVsc1NITTA1RXhNYXhMUicpXVxuaVZhcnMgPC0gaVZhcnNbISBpVmFycyAlaW4lIGMoJ1NOUmxldmVsJywgJ0ludGVybWl0UmF0aW9NYXhMUicpXVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDU3ODMxMiwgNTQ0LCA4NDg5NCwgNTQ2NTQsIDE1MzE1NylcblxuYGBgXG5gYGAifQ== -->
```r
```r
iVars <- names(stimDataNum)[which(names(stimDataNum) == 'UASEvents'):which(names(stimDataNum) == 'UASImpulsSHM05ExMaxLR')]
iVars <- iVars[! iVars %in% c('SNRlevel', 'IntermitRatioMaxLR')]
dVar <- \dAnnoyMean\
seeds <- c(578312, 544, 84894, 54654, 153157)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0J1ZEhKbFpYTTliblJ5WldWekxDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICAgbnRyZWVzPW50cmVlcywgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQnVkSEpsWlhNOWJuUnlaV1Z6TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnAgPC0gbXRyeVR1bmUoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkPXNlZWRzWzE6Ml0sXG4gICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbmBgYFxuYGBgIn0= -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXZaVGhNVEVGa1NqQTBLemxqVEVSS1RUVkhUbTV6V0hnMlVYUjFOSFpaY2xJdlZWZ3dNRFpNVEN0SWRuWnVkVlIxYmtwd1UyWnpTQzh5TlZaSGJUazROekU1Y3poWGMweFVUVVpVVjNwbU0ySjRPV0o0YkRKaUwyYzFhbmsxU1hKV2JqWmpiMW81Y3poWVIyRnpkMU5oTm5kbUwwZzNhQ3RYV0RCRk56ZHNMM1l4YW5CV1RWWmlUaTlhWTB3eE5YVXZUbFJtWVhaUmNUZ3ZaVE5DSzJwMk1uSjFRMHhQTW5kSEt6bHhLelJpZWxsVksyOVlRWHBZYmpFeFMxWlROVGxyTDI5TU1VOVdWRkE1U2s5NVpsSnVPSGhQU0dWUWVtWTJTbnBQVUV4UFVUSnpPVzh2TlZSaU4zaGlVRU4zWmpKVVNUSlBSM2x5ZERNck5HSmxkVFYwYkZaTFpsbFFiVEkzY0RsdVMzZEJZek5uUWxwclJEbFRUVzlXVUdsQ1YwRlRTVXBaUWxsSWIyaFdaMFpuU0Zwd0swUkxaMDFaVDBsb1EyRlNORzk2VVdGc2JWTkRNQzlTT0c4dlVVNUxaakpIUVVGd1VVRmFjekZNZWtVd2RFSnFTVVYzUVRaQlEweEpSU3RSWVRkUmRHdGpVV05YUm5CWmJFWnhVMnhSVUhKUGRra3dlVXRLWW1WcmNVSk1TelZ6YjAxVGVYZHhhbWRsVEc5T2NrRlhXbEptY21kbGVrSmxVbFp3WjJGSlQzcHFVVzVhUzJOck1XZE5ZM2R3VFd0RGMyeHpVMUpTVERZd1NYRkNMMGtyTkdWdGFGUXlMMjlEVVhwUWR5dHZhVkZ0VlZORWFXaEJZMmRKZUdOblIwMVNXa0pSTlVSU1VWRk5WMFZzUXl0QlNubFFja1ZIWjA1QkwyczJhRlJrTlVsNlUzWkhlR1JKZVUwd1pXVmhRM1pJVVdzcmVHbG5kbTFQUlZKcFlVMTZVWEI0VFhST0wzRklXazlYVDBOc1NtMW1hMUU1YkhOeFdHNXdiVmh0Y0hOQlFreDVNSHBZU3pnNVRVdGpiVUZvVVVaSlNVTk5NVTE2TW1wQ1FscFZUMWxzU25GVWEzZG9ObE5yYkd0SFdtWk5RM2RDWjJVeFdHdEdVbHBvTlUxT1VtUlJkRVpwZGtwTU9HdEZZV0ZHUzNwckwwSjVXVU5FYkZkSFpuZEVUVkoxTldSc1VVMUJRVUU5UFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC45NzQ4MzIxXFwsXFwyXFw6XFwwLjY1MDg5MTdcXCxcXDNcXDpcXDAuODQwNDg2OFxcLFxcNFxcOlxcNVxcLFxcNVxcOlxcMTAuNTBcXH0se1xcMVxcOlxcMC44NjMzMDQ4XFwsXFwyXFw6XFwwLjczODU0OThcXCxcXDNcXDpcXDAuNzMyMDg3NFxcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcMC44MDQ3MDA1XFwsXFwyXFw6XFwwLjc4MDc1ODBcXCxcXDNcXDpcXDAuNjY3NDc0OFxcLFxcNFxcOlxcMTVcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43NjUxMDg3XFwsXFwyXFw6XFwwLjgwNDU4NzdcXCxcXDNcXDpcXDAuNjI4NTI2NlxcLFxcNFxcOlxcMjBcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43MzIxNDQyXFwsXFwyXFw6XFwwLjgxODg1MjlcXCxcXDNcXDpcXDAuNTk1NjA2M1xcLFxcNFxcOlxcMjRcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC43MTczOTMxXFwsXFwyXFw6XFwwLjgyMjk3ODlcXCxcXDNcXDpcXDAuNTY4NDgyMlxcLFxcNFxcOlxcMzFcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC43MDcwMzM0XFwsXFwyXFw6XFwwLjgyNDAyOTBcXCxcXDNcXDpcXDAuNTYxMzQ1M1xcLFxcNFxcOlxcMzZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC43MTMxMjUwXFwsXFwyXFw6XFwwLjgxMzk0NjVcXCxcXDNcXDpcXDAuNTQ3MjIzMlxcLFxcNFxcOlxcNDRcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG5cbjwhLS0gcm5iLWZyYW1lLWJlZ2luIGV5SnRaWFJoWkdGMFlTSTZleUpqYkdGemMyVnpJanBiSW1SaGRHRXVabkpoYldVaVhTd2libkp2ZHlJNk9Dd2libU52YkNJNk5Td2ljM1Z0YldGeWVTSTZleUpFWlhOamNtbHdkR2x2YmlJNld5SmtaaUJiT0NERGx5QTFYU0pkZlgwc0luSmtaaUk2SWtnMGMwbEJRVUZCUVVGQlFVSm5kSGxwVkVSdGFYVkNhVmxIUW1kYWJVSm9XVmRLWjFwblZYbEhWbWhFVVRsNE1FeFNaMWxuUVVsTlJFbDNUVXhCZVdOSlRHOURjVVZuV1VwQmRrVm1SVVJOV1dZdmRUSXpZazU2T1RsVU4wWTRabE16VDFwd2VEbHpMekJ4UjFjMFQyaE5ZMklyVW1NM2RHMVJMMHRhT1djdlpqZEVNV3MxT1ROcmRqSjZTUzlrS3k5VU0zTlpaaXR6T1haaWFFNXBPRlFyTW1SeVZEWlVaVVpIYVVKdEwwOVZObFpYYWpGdlZYSTVjeXRpWkdwTGQxWk9ZbGwyTldkWkwwaHVTelJvWmpKTU9DOXVWRll5TUdNMGRqbDVOMlIxZWk5VFZWTjFNV1pHV0VNMllubHpjM051T1ZaTWJVUnlaRGhFVHk5d1ZqQm5UME0yU0d0UE5FOWhPVmQxUXpabFlsaDZXQzl1Ylc0MFZsaFljMjl1TWxRNVpFc3ZlbnBXV1RJdkx5dFBPRzVQV0cxa2F5OWhVR2Q2YmtSMk5ubE9jMGc0YTB0VFJuTjFNMDlpTDJOTmVqTTVjMDg1UmxoaFVEUjZNVEpZZERsMWR6ZFJSRVkyVVU5V1FTOW5hMHRHU0RSb1JtZEdaME5wVDFkQ1YwRlhTV1JYUkRKUFlXZDVaMGxIUkV0S1ZHMW5aRXB6VlVwdlNsRjBkaTluWkVrdmIxQlJXRUpwYUVGRFYwUlhkazFVWXpGSFNXZFJkMFJ6UVVsbloxTTFRblp6UTNWVmVsSkdWVmhHYVdGWFNsTmhRWFZWZWl0NmNrTndSbWg1VXpSdmNXOVhlWFY2VEVSRmIzVktOSE5CYVhGRVduaEdLMlZXTmsxR2RFRlliVlp4WjB4cFJFRTVNSEI1VkcxS2VGUkRibmRCVXpWVmFFcE1SWFpZVTJsdlJEWm5Zbmd2WVVaeVdUaDNkRXROZGxCNlowcHhXVkZKYlVWRmVIRkJha1pEVFdKQ1FtcEZWRkZGUjFJd01GbERSVUkxVVhaQksyTm5ZVUpGY25wUlN6VlBNRlV6VDB0Tk0wd3hhbFY1VVhCT2JreHphRXhTTjB0UVFXVnZOMUp0YUd0M2RHbHpSVU5qZWk5WlpIRTFORkZHV0cxd2VWSnFObFY2V21GaGJEVTJXbXgzYjB4elRGUk5aRXd6ZVhwS1UxTkVSbWRaWjBGUmVWVnFVRlJOTUhCblVWcFhWRzFLVTJGQk0wNUpVMjF2V214TmEwaEVSM1IzVlU5elZrWkhXRzEzVmxKNlFWVlhURGxWY25sVGVFcG9WM0pwVXpnelRtZEpkVUpSV21ablNFRlFXak5oYUdGV1FYZEJRU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjk2NzYxNjZcXCxcXDJcXDpcXDAuNjU2NjA2MFxcLFxcM1xcOlxcMC44MzMwNDEwXFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFwwLjg2Nzk2ODdcXCxcXDJcXDpcXDAuNzM0NzA3NFxcLFxcM1xcOlxcMC43MzU0OTc0XFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcNS4yNVxcfSx7XFwxXFw6XFwwLjgxNTkyMzNcXCxcXDJcXDpcXDAuNzY3NzQwMlxcLFxcM1xcOlxcMC42NzczODE1XFwsXFw0XFw6XFwxNVxcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFwwLjc2MzI4ODNcXCxcXDJcXDpcXDAuODA2NTcxM1xcLFxcM1xcOlxcMC42MjQ3NDkyXFwsXFw0XFw6XFwyMFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjc0NjE4MDVcXCxcXDJcXDpcXDAuODEwMjE0NVxcLFxcM1xcOlxcMC42MDM4ODYzXFwsXFw0XFw6XFwyNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjcxMTUzMjFcXCxcXDJcXDpcXDAuODI2MTc2M1xcLFxcM1xcOlxcMC41NjU1NjMyXFwsXFw0XFw6XFwzMVxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjcwMjg2MzZcXCxcXDJcXDpcXDAuODI3MDM0MVxcLFxcM1xcOlxcMC41NTYyNzA0XFwsXFw0XFw6XFwzNlxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjcwODcxMzdcXCxcXDJcXDpcXDAuODE1ODM0MVxcLFxcM1xcOlxcMC41NDI2MzkxXFwsXFw0XFw6XFw0NFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzhdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYvZThMTEFkSjA0KzljTERKTTVHTm5zWHg2UXR1NHZZclIvVVgwMDZMTCtIdnZudVR1bkpwU2ZzSC8yNVZHbTk4NzE5czhXc0xUTUZUV3pmM2J4OWJ4bDJiL2c1ank1SXJWbjZjb1o5czhYR2Fzd1NhNndmL0g3aCtXWDBFNzdsL3YxanBWTVZiTi9aY0wxNXUvTlRmYXZRcTgvZTNCK2p2MnJ1Q0xPMndHKzlxKzRiellVK29YQXpYbjExS1ZTNTlrL29MMU9WVFA5Sk95ZlJuOHhPSGVQemY2SnpPUExPUTJzOW8vNVRiN3hiUEN3ZjJUSTJPR3lydDMrNGJldTV0bFZLZllQbTI3cDluS3dBYzNnQlprRDlTTW9WUGlCV0FTSUpZQllIb2hWZ0ZnSFpwK0RLZ01ZT0loQ2FSNG96UWFsbVNDMC9SOG8vUU5LZjJHQUFwUUFaczFMekUwdEJqSUV3QTZBQ0xJRStRYTdRdGtjUWNXRnBZbEZxU2xRUHJPdkkweUtKYmVrcUJMSzVzb01TeXdxamdlTG9OckFXWlJmcmdlekJlUlZwZ2FJT3pqUW5aS2NrMWdNY3dwTWtDc2xzU1JSTDYwSXFCL0krNGVtaFQyL29DUXpQdytvaVFtVVNEaWhBY2dJeGNnR01SWkJRNURSUVFNV0VsQytBSnlQckVHZ05BL2s2aFRkNUl6U3ZHeGRJeU0wZWVhQ3ZIUWsreGlndm1PRVJpYU16UXB4TXROL3FIWk9XT0NsSm1ma1E5bHNxWG5wbVhtcHNBQkx5MHpYSzg5TUtjbUFoUUZJSUNNMU16MmpCQlpVT1lsSnFUa3doNlNrbGtHWmZNQ3dCZ2UxWGtGUlpoNU1OUmRRdEZpdkpMOGtFYWFGS3prL0J5WUNEbFdHZndETVJ1NWRsUU1BQUE9PSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9748321\,\2\:\0.6508917\,\3\:\0.8404868\,\4\:\5\,\5\:\10.50\},{\1\:\0.8633048\,\2\:\0.7385498\,\3\:\0.7320874\,\4\:\10\,\5\:\5.25\},{\1\:\0.8047005\,\2\:\0.7807580\,\3\:\0.6674748\,\4\:\15\,\5\:\3.50\},{\1\:\0.7651087\,\2\:\0.8045877\,\3\:\0.6285266\,\4\:\20\,\5\:\2.75\},{\1\:\0.7321442\,\2\:\0.8188529\,\3\:\0.5956063\,\4\:\24\,\5\:\2.25\},{\1\:\0.7173931\,\2\:\0.8229789\,\3\:\0.5684822\,\4\:\31\,\5\:\1.75\},{\1\:\0.7070334\,\2\:\0.8240290\,\3\:\0.5613453\,\4\:\36\,\5\:\1.50\},{\1\:\0.7131250\,\2\:\0.8139465\,\3\:\0.5472232\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYvdTIzYk56OTlUN0Y4ZlMzT1pweDlzLzBxR1c0T2hNY2IrUmM3dG1RL0taOWcvZjdEMWs1OTNrdjJ6SS9kKy9UM3NZZitzOXZiaE5pOFQrMmRyVDZUZUZHaUJtL09VNlZXajFvVXI5cytiZGpLd1ZOYll2NWdZL0huSzRoZjJMOC9uVFYyMGM0djl5N2R1ei9TVVN1MWZGWEM2Ynlzc3NuOVZMbURyZDhETy9wVjBnT0M2SGtPNE9hOVd1QzZlYlh6WC9ubW40VlhYc29uMlQ5ZEsvenpWWTIvLytPOG5PWG1kay9hUGd6bkR2NnlOc0g4a0tTRnN1M09iL2NNejM5c085RlhhUDR6MTJYdDl1dzdRREY2UU9WQS9na0tGSDRoRmdGZ0NpT1dCV0FXSWRXRDJPYWd5Z0lHREtKVG1nZEpzVUpvSlF0di9nZEkvb1BRWEJpaEFDV0RXdk1UYzFHSWdRd0RzQUlnZ1M1QnZzQ3VVelJGVVhGaWFXSlNhQXVVeit6ckNwRmh5UzRvcW9XeXV6TERFb3VKNHNBaXFEWnhGK2VWNk1GdEFYbVZxZ0xpREE5MHB5VG1KeFRDbndBUzVVaEpMRXZYU2lvRDZnYngvYUZyWTh3dEtNdlB6Z0pxWVFJbUVFeHFBakZDTWJCQmpFVFFFR1IwMFlDRUI1UXZBK2NnYUJFcnpRSzVPMFUzT0tNM0wxalV5UXBObkxzaExSN0tQQWVvN1JtaGt3dGlzRUNjei9ZZHE1NFFGWG1weVJqNlV6WmFhbDU2Wmx3b0xzTFRNZEwzeXpKU1NERmdZZ0FReVVqUFRNMHBnUVpXVG1KU2FBM05JU21vWmxNa0hER3R3VU9zVkZHWG13VlJ6QVVXTDlVcnlTeEpoV3JpUzgzTmdJdUJRWmZnSEFQWjNhaGFWQXdBQSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9676166\,\2\:\0.6566060\,\3\:\0.8330410\,\4\:\5\,\5\:\10.50\},{\1\:\0.8679687\,\2\:\0.7347074\,\3\:\0.7354974\,\4\:\10\,\5\:\5.25\},{\1\:\0.8159233\,\2\:\0.7677402\,\3\:\0.6773815\,\4\:\15\,\5\:\3.50\},{\1\:\0.7632883\,\2\:\0.8065713\,\3\:\0.6247492\,\4\:\20\,\5\:\2.75\},{\1\:\0.7461805\,\2\:\0.8102145\,\3\:\0.6038863\,\4\:\24\,\5\:\2.25\},{\1\:\0.7115321\,\2\:\0.8261763\,\3\:\0.5655632\,\4\:\31\,\5\:\1.75\},{\1\:\0.7028636\,\2\:\0.8270341\,\3\:\0.5562704\,\4\:\36\,\5\:\1.50\},{\1\:\0.7087137\,\2\:\0.8158341\,\3\:\0.5426391\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmk5bE9FeE1RV1JLTURRck9XTk1SRXBOTlVkT2JuTlllRFpSZEhVMGRsbHlVaTlWV0RBd05reE1LMGgyZG01MVZIVnVTbkJUWm5OSUx6STFWa2R0T1RnM01UbHpPRmR6VEZSTlJsUlhlbVl6WW5nNVluaHNNbUl2WnpWcWVUVkpjbFp1Tm1OdldqbHpPRmhIWVhOM1UyRTJkMll2U0Rkb0sxZFlNRVUzTjJ3dmRqRnFjRlpOVm1KT0wxcGpUREUxZFM5T1ZHWmhkbEZ4T0M5bE0wSXJhbll5Y25WRFRFOHlkMGNyT1hFck5HSjZXVlVyYjFoQmVsaHVNVEZMVmxNMU9Xc3ZiMHd4VDFaVVVEbEtUM2xtVW00NGVFOUlaVkI2WmpaS2VrOVFURTlSTW5NNWJ5ODFWR0kzZUdKUVEzZG1NbFJKTWs5SGVYSjBNeXMwWW1WMU5YUnNWa3RtV1ZCdE1qZHdPVzVMZDBGak0yZENXbXRFT1ZOTmIxWlFhVUpYUVZOSlNsbENXVWh2YUZablJtZElXbkFyUkV0blRWbFBTV2hEWVZJMGIzcFJZV3h0VTBNd0wxSTRieTlSVGt0bU1rZEJRWEJSUVZwek1VeDZSVEIwUW1wSlJYZEJOa0ZEVEVsRksxRmhOMUYwYTJOUlkxZEdjRmxzUm5GVGJGRlFjazkyU1RCNVMwcGlaV3R4UWt4TE5YTnZUVk41ZDNGcVoyVk1iMDV5UVZkYVVtWnlaMlY2UW1WU1ZuQm5ZVWxQZW1wUmJscExZMnN4WjAxamQzQk5hME56YkhOVFVsSk1OakJKY1VJdlNTczBaVzFvVkRJdmIwTlJlbEIzSzI5cFVXMVZVMFJwYUVGalowbDRZMmRIVFZKYVFsRTFSRkpSVVUxWFJXeERLMEZLZVZCeVJVZG5Ua0V2YXpab1ZHUTFTWHBUZGtkNFpFbDVUVEJsWldGRGRraFJheXQ0YVdkMmJVOUZVbWxoVFhwUmNIaE5kRTR2Y1VoYVQxZFBRMnhLYldaclVUbHNjM0ZZYm5CdFdHMXdjMEZDVEhrd2VsaExPRGxOUzJOdFFXaFJSa2xKUTAweFRYb3lha0pDV2xWUFdXeEtjVlJyZDJnMlUydHNhMGRhWmsxRGQwSm5aVEZZYTBaU1dtZzFUVTVTWkZGMFJtbDJTa3c0YTBWaFlVWkxlbXN2UW5sWlEwUnNWMGRtZDBSTlVuVTFaR3hSVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjk3NDgzMjFcIixcIjJcIjpcIjAuNjUwODkxN1wiLFwiM1wiOlwiMC44NDA0ODY4XCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCIwLjg2MzMwNDhcIixcIjJcIjpcIjAuNzM4NTQ5OFwiLFwiM1wiOlwiMC43MzIwODc0XCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCIwLjgwNDcwMDVcIixcIjJcIjpcIjAuNzgwNzU4MFwiLFwiM1wiOlwiMC42Njc0NzQ4XCIsXCI0XCI6XCIxNVwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjc2NTEwODdcIixcIjJcIjpcIjAuODA0NTg3N1wiLFwiM1wiOlwiMC42Mjg1MjY2XCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjczMjE0NDJcIixcIjJcIjpcIjAuODE4ODUyOVwiLFwiM1wiOlwiMC41OTU2MDYzXCIsXCI0XCI6XCIyNFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjcxNzM5MzFcIixcIjJcIjpcIjAuODIyOTc4OVwiLFwiM1wiOlwiMC41Njg0ODIyXCIsXCI0XCI6XCIzMVwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjcwNzAzMzRcIixcIjJcIjpcIjAuODI0MDI5MFwiLFwiM1wiOlwiMC41NjEzNDUzXCIsXCI0XCI6XCIzNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjcxMzEyNTBcIixcIjJcIjpcIjAuODEzOTQ2NVwiLFwiM1wiOlwiMC41NDcyMjMyXCIsXCI0XCI6XCI0NFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZi9lOExMQWRKMDQrOWNMREpNNUdObnNYeDZRdHU0dllyUi9VWDAwNkxMK0h2dm51VHVuSnBTZnNILzI1VkdtOTg3MTlzOFdzTFRNRlRXemYzYng5YnhsMmIvZzVqeTVJclZuNmNvWjlzOFhHYXN3U2E2d2YvSDdoK1dYMEU3N2wvdjFqcFZNVmJOL1pjTDE1dS9OVGZhdlFxOC9lM0IranYycnVDTE8yd0crOXErNGJ6WVUrb1hBelhuMTFLVlM1OWsvb0wxT1ZUUDlKT3lmUm44eE9IZVB6ZjZKek9QTE9RMnM5by81VGI3eGJQQ3dmMlRJMk9HeXJ0Mys0YmV1NXRsVktmWVBtMjdwOW5Ld0FjM2dCWmtEOVNNb1ZQaUJXQVNJSllCWUhvaFZnRmdIWnArREtnTVlPSWhDYVI0b3pRYWxtU0MwL1I4by9RTktmMkdBQXBRQVpzMUx6RTB0QmpJRXdBNkFDTElFK1FhN1F0a2NRY1dGcFlsRnFTbFFQck92STB5S0piZWtxQkxLNXNvTVN5d3FqZ2VMb05yQVdaUmZyZ2V6QmVSVnBnYUlPempRblpLY2sxZ01jd3BNa0NzbHNTUlJMNjBJcUIvSSs0ZW1oVDIvb0NRelB3K29pUW1VU0RpaEFjZ0l4Y2dHTVJaQlE1RFJRUU1XRWxDK0FKeVByRUdnTkEvazZoVGQ1SXpTdkd4ZEl5TTBlZWFDdkhRayt4aWd2bU9FUmlhTXpRcHhNdE4vcUhaT1dPQ2xKbWZrUTlsc3FYbnBtWG1wc0FCTHkwelhLODlNS2NtQWhRRklJQ00xTXoyakJCWlVPWWxKcVRrd2g2U2tsa0daZk1Dd0JnZTFYa0ZSWmg1TU5SZFF0Rml2Skw4a0VhYUZLemsvQnlZQ0RsV0dmd0RNUnU1ZGxRTUFBQT09In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9748321","2":"0.6508917","3":"0.8404868","4":"5","5":"10.50"},{"1":"0.8633048","2":"0.7385498","3":"0.7320874","4":"10","5":"5.25"},{"1":"0.8047005","2":"0.7807580","3":"0.6674748","4":"15","5":"3.50"},{"1":"0.7651087","2":"0.8045877","3":"0.6285266","4":"20","5":"2.75"},{"1":"0.7321442","2":"0.8188529","3":"0.5956063","4":"24","5":"2.25"},{"1":"0.7173931","2":"0.8229789","3":"0.5684822","4":"31","5":"1.75"},{"1":"0.7070334","2":"0.8240290","3":"0.5613453","4":"36","5":"1.50"},{"1":"0.7131250","2":"0.8139465","3":"0.5472232","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWTRLM2t6U25FNFpEbGFPVzByTkU1eWNHNUlSakZyTHk5S05UTmlURnBJVlhJeVREWjRZa0pNTjA0NWNrSXZkblIyS3k5bVVEVk9LekptTTFWbk9YVXhPVEJwTHpKNmFIUlhVRFJ5TTIweWVpOXlUVzgxTkRKdVRVZGljelpVYVdZd1MzZFVkazh5UkRoUVdHRlJjemR0TVc0dk1rbDJLeTlaUkhFck0zTllPVFZhWTBkNmRHNUVVREp5T1dsaGNXeHBUMGczVWk5c1ptcDVVMDVFVUhwbVlYWkRkalYyWlZaaVJWbDJPVXR6ZVU4dk5UWnJkRE5LZWxoeVVHWldNU3RSWlhNek9TdG1hRzR2Y0VOc2RUbHJPV0p1UWtseFdHa3llbVl6ZVRGM2FqVXpOVzV5TjNoNVdVeHVjREExYmpKSUwzbE1VblZrWVhodVp5OHpSSFpYT1RNNEt6TTJXbEF2VVZabGNVOHlOVzVHVVVST05GRmxXa0V2VVdkTFJsZzBaMFpuUm1sRFUwTlhRakpKVmtsT1lVSXlaV1ZuZVdkQlIwUnhTbEZ0WjJSTGN6QkdjRXBuYUhRdmQyUkxMelJFVTFoNGFXZEJRMWRCVjJaTlUyTXhUMHhuVVhkQ2MwRk5aMmRwZUVKMmMwZDFWVVJhU0ZWSVJtaGhWMHBTWVdkeFZYb3JlbkpEU2s1cGVWTXdjSEZ2VTNsMVZFeEVSVzkxU3pRNFJXbHhSRnAzUm5WWFdEWTRSbk5CV0cxV2NWRklhVVJuTlRCd2VWUnVTa0ppUkc1QlNWUTFSWEJLVEVWdVZWTjVjME0yWjJaNUwzRkdjRmxqT0haTFRXNU5lbmRPY1ZsblNXeEZhelZ2UVVSS1EwMWlTa0pxUlZoUlJVZFNNREJKUTBaQ1NsRjJRVTlqYW1GNFFXOTZVVTgxVDJ0Vk0wOWhUVEJNTVhaWWVVRm9UbTV5YTJkTWVETktVR2RoYnpkNGFXaHJVV3hxY3pCTFkzcFFVV1p4Y0RCVVJtNXBjSGxTYmpWVlJGcGlZV3cxTmxwc05IRk1UVVJUVFhSUU1YbHFUbFJUYWtwbldWRkJVM2xGYWs1VVRUaHZaMUZXVmxSdFNsTmhaemROU1ZOdGNGcFdRVzFJZWtOemQxVkhkRll4UTFWdFVXUlVlbEZWVlV4a1dYSjVVemxLYUVkdWFGTnpOMUJuV1cxQlVUVllhRWgzUTFGQk4wdE1iRkZOUVVGQlBUMGlmUT09IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjk4MTcxNjlcXCxcXDJcXDpcXDAuNjQyNzY4NFxcLFxcM1xcOlxcMC44NDQ0NjY4XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFwwLjg3NjMwNTJcXCxcXDJcXDpcXDAuNzI5MjAzM1xcLFxcM1xcOlxcMC43NDQwOTc3XFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcNS4yNVxcfSx7XFwxXFw6XFwwLjgwOTUwODZcXCxcXDJcXDpcXDAuNzczMDc1MFxcLFxcM1xcOlxcMC42NzIzOTQ5XFwsXFw0XFw6XFwxNVxcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFwwLjc1NzI2NTFcXCxcXDJcXDpcXDAuODA4MTgyMVxcLFxcM1xcOlxcMC42MTk4MDgzXFwsXFw0XFw6XFwyMFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjc0MTYwNzZcXCxcXDJcXDpcXDAuODEzMjk0NlxcLFxcM1xcOlxcMC42MDAxNzQ0XFwsXFw0XFw6XFwyNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjcxMzkxNTdcXCxcXDJcXDpcXDAuODI0NDUyM1xcLFxcM1xcOlxcMC41NjkwMzAxXFwsXFw0XFw6XFwzMVxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjcwMzIwNzBcXCxcXDJcXDpcXDAuODI2MjkzOFxcLFxcM1xcOlxcMC41NTQ0MzQ2XFwsXFw0XFw6XFwzNlxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjcwNDM3MDJcXCxcXDJcXDpcXDAuODE3NTY5OVxcLFxcM1xcOlxcMC41Mzk2ODU3XFwsXFw0XFw6XFw0NFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzhdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWY4K3kzSnE4ZDlaOW0rNE5ycG5IRjFrLy9KNTNiTFpIVXIyTDZ4YkJMN045ckIvdnR2Ky9mUDVOKzJmM1VnOXUxOTBpLzJ6aHRXUDRyM20yei9yTW81NDJuTUdiczZUaWYwS3dUdk8yRDhQWGFRczdtMW4vMkl2Ky9ZRHErM3NYOTVaY0d6dG5EUDJyOWlhcWxpT0g3Ui9sZmp5U05EUHpmYXZDdjV2ZVZiRVl2OUtzeU8vNTZrdDNKelhyUGZWMStRZXMzOStmaG4vcENsdTlrOWJuQklxWGkyemYzeTF3ajUzNW5yN3h5WUxucDA1bjJIL3lMUnVkYXhuZy8zRHZXOTM4KzM2WlAvUVZlcU8yNW5GUURONFFlWkEvUWdLRlg0Z0ZnRmlDU0NXQjJJVklOYUIyZWVneWdBR0RxSlFtZ2RLczBGcEpnaHQvd2RLLzREU1h4aWdBQ1dBV2ZNU2MxT0xnUXdCc0FNZ2dpeEJ2c0d1VURaSFVIRmhhV0pSYWdxVXorenJDSk5peVMwcHFvU3l1VExERW91SzQ4RWlxRFp3RnVXWDY4RnNBWG1WcVFIaURnNTBweVRuSkJiRG5BSVQ1RXBKTEVuVVN5c0M2Z2Z5L3FGcFljOHZLTW5NendOcVlnSWxFazVvQURKQ01iSkJqRVhRRUdSMDBJQ0ZCSlF2QU9jamF4QW96UU81T2tVM09hTTBMMXZYeUFoTm5ya2dMeDNKUGdhbzd4aWhrUWxqczBLY3pQUWZxcDBURm5pcHlSbjVVRFpiYWw1NlpsNHFMTURTTXRQMXlqTlRTakpnWVFBU3lFak5UTThvZ1FWVlRtSlNhZzdNSVNtcFpWQW1IekNzd1VHdFYxQ1VtUWRUelFVVUxkWXJ5UzlKaEduaFNzN1BnWW1BUTVYaEh3Q1FBN0tMbFFNQUFBPT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9817169\,\2\:\0.6427684\,\3\:\0.8444668\,\4\:\5\,\5\:\10.50\},{\1\:\0.8763052\,\2\:\0.7292033\,\3\:\0.7440977\,\4\:\10\,\5\:\5.25\},{\1\:\0.8095086\,\2\:\0.7730750\,\3\:\0.6723949\,\4\:\15\,\5\:\3.50\},{\1\:\0.7572651\,\2\:\0.8081821\,\3\:\0.6198083\,\4\:\20\,\5\:\2.75\},{\1\:\0.7416076\,\2\:\0.8132946\,\3\:\0.6001744\,\4\:\24\,\5\:\2.25\},{\1\:\0.7139157\,\2\:\0.8244523\,\3\:\0.5690301\,\4\:\31\,\5\:\1.75\},{\1\:\0.7032070\,\2\:\0.8262938\,\3\:\0.5544346\,\4\:\36\,\5\:\1.50\},{\1\:\0.7043702\,\2\:\0.8175699\,\3\:\0.5396857\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmk5MU1qTmlUbm81T1ZRM1JqaG1Vek5QV25CNE9YTXZNSEZIVnpSUGFFMWpZaXRTWXpkMGJWRXZTMW81Wnk5bU4wUXhhelU1TTJ0Mk1ucEpMMlFyTDFRemMxbG1LM001ZG1Kb1RtazRWQ3N5WkhKVU5sUmxSa2RwUW0wdlQxVTJWbGRxTVc5VmNqbHpLMkprYWt0M1ZrNWlXWFkxWjFrdlNHNUxOR2htTWt3NEwyNVVWakl3WXpSMk9YazNaSFY2TDFOVlUzVXhaa1pZUXpaaWVYTnpjMjQ1Vmt4dFJISmtPRVJQTDNCV01HZFBRelpJYTA4MFQyRTVWM1ZETm1WaVdIcFlMMjV0YmpSV1dGaHpiMjR5VkRsa1N5OTZlbFpaTWk4dkswODRiazlZYldSckwyRlFaM3B1UkhZMmVVNXpTRGhyUzFOR2MzVXpUMkl2WTAxNk16bHpUemxHV0dGUU5Ib3hNbGgwT1hWM04xRkVSalpSVDFaQkwyZHJTMFpJTkdoR1owWm5RMmxQVjBKWFFWZEpaRmRFTWs5aFozbG5TVWRFUzBwVWJXZGtTbk5WU205S1VYUjJMMmRrU1M5dlVGRllRbWxvUVVOWFJGZDJUVlJqTVVkSloxRjNSSE5CU1dkblV6VkNkbk5EZFZWNlVrWlZXRVpwWVZkS1UyRkJkVlY2SzNweVEzQkdhSGxUTkc5eGIxZDVkWHBNUkVWdmRVbzBjMEZwY1VSYWVFWXJaVlkyVFVaMFFWaHRWbkZuVEdsRVFUa3djSGxVYlVwNFZFTnVkMEZUTlZWb1NreEZkbGhUYVc5RU5tZGllQzloUm5KWk9IZDBTMDEyVUhwblNuRlpVVWx0UlVWNGNVRnFSa05OWWtKQ2FrVlVVVVZIVWpBd1dVTkZRalZSZGtFclkyZGhRa1Z5ZWxGTE5VOHdWVE5QUzAwelRERnFWWGxSY0U1dVRITm9URkkzUzFCQlpXODNVbTFvYTNkMGFYTkZRMk42TDFsa2NUVTBVVVpZYlhCNVVtbzJWWHBhWVdGc05UWmFiSGR2VEhOTVZFMWtURE41ZWtwVFUwUkdaMWxuUVZGNVZXcFFWRTB3Y0dkUldsZFViVXBUWVVFelRrbFRiVzlhYkUxclNFUkhkSGRWVDNOV1JrZFliWGRXVW5wQlZWZE1PVlZ5ZVZONFNtaFhjbWxUT0ROT1owbDFRbEZhWm1kSVFWQmFNMkZvWVZaQmQwRkJJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjk2NzYxNjZcIixcIjJcIjpcIjAuNjU2NjA2MFwiLFwiM1wiOlwiMC44MzMwNDEwXCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCIwLjg2Nzk2ODdcIixcIjJcIjpcIjAuNzM0NzA3NFwiLFwiM1wiOlwiMC43MzU0OTc0XCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCIwLjgxNTkyMzNcIixcIjJcIjpcIjAuNzY3NzQwMlwiLFwiM1wiOlwiMC42NzczODE1XCIsXCI0XCI6XCIxNVwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjc2MzI4ODNcIixcIjJcIjpcIjAuODA2NTcxM1wiLFwiM1wiOlwiMC42MjQ3NDkyXCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjc0NjE4MDVcIixcIjJcIjpcIjAuODEwMjE0NVwiLFwiM1wiOlwiMC42MDM4ODYzXCIsXCI0XCI6XCIyNFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjcxMTUzMjFcIixcIjJcIjpcIjAuODI2MTc2M1wiLFwiM1wiOlwiMC41NjU1NjMyXCIsXCI0XCI6XCIzMVwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjcwMjg2MzZcIixcIjJcIjpcIjAuODI3MDM0MVwiLFwiM1wiOlwiMC41NTYyNzA0XCIsXCI0XCI6XCIzNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjcwODcxMzdcIixcIjJcIjpcIjAuODE1ODM0MVwiLFwiM1wiOlwiMC41NDI2MzkxXCIsXCI0XCI6XCI0NFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZi91MjNiTno5OVQ3RjhmUzNPWnB4OXMvMHFHVzRPaE1jYitSYzd0bVEvS1o5Zy9mN0QxazU5M2t2MnpJL2QrL1Qzc1lmK3M5dmJoTmk4VCsyZHJUNlRlRkdpQm0vT1U2VldqMW9VcjlzK2Jkakt3Vk5iWXY1Z1kvSG5LNGhmMkw4L25UVjIwYzR2OXk3ZHV6L1NVU3UxZkZYQzZieXNzc245VkxtRHJkOERPL3BWMGdPQzZIa080T2E5V3VDNmViWHpYL25tbjRWWFhzb24yVDlkSy96elZZMi8vK084bk9YbWRrL2FQZ3puRHY2eU5zSDhrS1NGc3UzT2IvY016MzlzTzlGWGFQNHoxMlh0OXV3N1FERjZRT1ZBL2drS0ZINGhGZ0ZnQ2lPV0JXQVdJZFdEMk9hZ3lnSUdES0pUbWdkSnNVSm9KUXR2L2dkSS9vUFFYQmloQUNXRFd2TVRjMUdJZ1F3RHNBSWdnUzVCdnNDdVV6UkZVWEZpYVdKU2FBdVV6K3pyQ3BGaHlTNG9xb1d5dXpMREVvdUo0c0FpcURaeEYrZVY2TUZ0QVhtVnFnTGlEQTkwcHlUbUp4VENud0FTNVVoSkxFdlhTaW9ENmdieC9hRnJZOHd0S012UHpnSnFZUUltRUV4cUFqRkNNYkJCakVUUUVHUjAwWUNFQjVRdkErY2dhQkVyelFLNU8wVTNPS00zTDFqVXlRcE5uTHNoTFI3S1BBZW83Um1oa3d0aXNFQ2N6L1lkcTU0UUZYbXB5Umo2VXpaYWFsNTZabHdvTHNMVE1kTDN5ekpTU0RGZ1lnQVF5VWpQVE0wcGdRWldUbUpTYUEzTklTbW9abE1rSERHdHdVT3NWRkdYbXdWUnpBVVdMOVVyeVN4SmhXcmlTODNOZ0l1QlFaZmdIQVBaM2FoYVZBd0FBIn0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9676166","2":"0.6566060","3":"0.8330410","4":"5","5":"10.50"},{"1":"0.8679687","2":"0.7347074","3":"0.7354974","4":"10","5":"5.25"},{"1":"0.8159233","2":"0.7677402","3":"0.6773815","4":"15","5":"3.50"},{"1":"0.7632883","2":"0.8065713","3":"0.6247492","4":"20","5":"2.75"},{"1":"0.7461805","2":"0.8102145","3":"0.6038863","4":"24","5":"2.25"},{"1":"0.7115321","2":"0.8261763","3":"0.5655632","4":"31","5":"1.75"},{"1":"0.7028636","2":"0.8270341","3":"0.5562704","4":"36","5":"1.50"},{"1":"0.7087137","2":"0.8158341","3":"0.5426391","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXJLems1TUdsR2J6bHNPVzA0VldkM0t6bG1TM0JyTHk5TU9VdzVaV2RFVTNveVREWmFWVE5tZDJ4elpGUXJLMkZXYW1WcU5GUjFkWGxtTDJaMUwxbzNOV1Z1VURKNmMzWmhOVVJXUzB3M1NqbFdaakY1Y1U0emF6VXpTbmR1YUZwR0wwaDVNbU5hVUM5ak9WQklOVVJPVldJNWFTOHlXSFp3WWpoTllsb3ZkVmREVkZoa1JqUXhiblJZTHpRMVRXWkhSMDl5VURsTE4yTkdZVE1yWld0aVRpOVdXRXh1TlRWTU9FWlFkRmhLYWpaMlN6Rm5jelJQWVRoV2RHNHZZbFZ2WjJndk0zb3lOMlF6Y2pWVFVYTnVMMkZQTTNabWVXczVlamRLSzI4dldtbGpOV1ptVHk5dVIwbE1UQzl2YVRGdU1tbzNlWEpETnpWMlMzSktMM1ZJYldVM05GbGxSV1oxU0RGcGRXVXJWVFJUUVZweVFrTjZTVWcyYTJSUmNWQkJSRTFWYUdOQmIycHNaMVpuUm1sSVZtYzVhbTF2VFc5RFFtZDVhVlUxYjBoVFlrWkRZVU5WVEdJdk5FaFRVRFpFTUVaM1dXOVJRV3huTVhKNlJUTk9VbWxKUlUxQk4wRkRTVWxGZFZGaU4wRnliRTB3VWxaR2VGbHRiR2xWYldkTWJFMHZjelozY1ZKWlkydDFTMHR4Um5OeWMzbDNlRXRNYVdWTVFVbHhaekpqVW1adWJHVnFRbUpSUmpWc1lXOUROR2QzVUdSTFkyczFhV05WZDNBNFFVVjFWa2xUVTNoTU1UQnZjVUVyYjBjNFpqSm9ZVEpRVFV4VGFreDZPRFJEWVcxRlEwcG9RazFoWjBsNFVXcEhkMUZaZUVVd1FrSnJaRTVIUVdoQlpWVk1kMUJ1U1VkblVrczRNRU4xVkhSR1RucHBhazU1T1ZreFRXdExWRnA1TjBsVE1HVjVhbmRJY1U4d1dtOWFUVXhaY2tKQmJrMHZNa2hoZFdWRlFsWTFjV05yV1N0c1RUSlhiWEJsWlcxYVkwdEROME13ZWtoVE9UaHplVlZyWjNoWlIwbEJSVTFzU1hvd2VrNUxXVVZIVm1zMWFWVnRaMDU2VTBWd2NVZGFWRXBDZDNoeVkwWkVja1pTVW13MWMwWlZZM2RHUm1rdlZrczRhM05UV1ZaeE5HdDJUbnBaUTB4blZVZFlORUozUWpsSldYZHBiRkZOUVVGQlBUMGlmUT09IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjk4NjA3NTdcXCxcXDJcXDpcXDAuNjM4ODM2OVxcLFxcM1xcOlxcMC44NDgyMzYxXFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFwwLjg3OTA2ODNcXCxcXDJcXDpcXDAuNzI1MzI4NFxcLFxcM1xcOlxcMC43NDU1ODgyXFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcNS4yNVxcfSx7XFwxXFw6XFwwLjgxMDU0NDFcXCxcXDJcXDpcXDAuNzczMTcxOVxcLFxcM1xcOlxcMC42NzM1MzYyXFwsXFw0XFw6XFwxNVxcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFwwLjc2ODEyNTBcXCxcXDJcXDpcXDAuODAwODY2NVxcLFxcM1xcOlxcMC42Mjk3NTcyXFwsXFw0XFw6XFwyMFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjc0NDQ3OTNcXCxcXDJcXDpcXDAuODEyMTA3NFxcLFxcM1xcOlxcMC42MDQwMTc4XFwsXFw0XFw6XFwyNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjcxODYyNzhcXCxcXDJcXDpcXDAuODIxMTIxNVxcLFxcM1xcOlxcMC41NzE3MTQxXFwsXFw0XFw6XFwzMVxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjcwMTk2OTBcXCxcXDJcXDpcXDAuODI2NzY1NVxcLFxcM1xcOlxcMC41NTMxNzYxXFwsXFw0XFw6XFwzNlxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjcwMjYyOTlcXCxcXDJcXDpcXDAuODE4ODg0M1xcLFxcM1xcOlxcMC41Mzg1MzI3XFwsXFw0XFw6XFw0NFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzhdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYrKzk5MGlGbzlsOW04VWd3KzlmS3BrLy9MOUw5ZWdEU3oyTDZaVTNmd2xzZFQrK2FWamVqNFR1dXlmL2Z1L1o3NWVuUDJ6c3ZhNURWS0w3SjlWZjF5cU4zazUzSnduaFpGL0h5MmNaUC9jOVBINUROVWI5aS8yWHZwYjhNYlovdVdDVFhkRjQxbnRYLzQ1TWZHR09yUDlLN2NGYTMrZWtiTi9WWExuNTVMOEZQdFhKajZ2SzFnczRPYThWdG4vYlVvZ2gvM3oyN2QzcjVTUXNuL2FPM3ZmeWs5ejdKK28vWmljNWZmTy9uR0lMTC9vaTFuMmo3eXJDNzV2S3JKL3VIbWU3NFllRWZ1SDFpdWUrVTRTQVpyQkN6SUg2a2RRcVBBRE1VaGNBb2psZ1ZnRmlIVmc5am1vTW9DQmd5aVU1b0hTYkZDYUNVTGIvNEhTUDZEMEZ3WW9RQWxnMXJ6RTNOUmlJRU1BN0FDSUlFdVFiN0FybE0wUlZGeFltbGlVbWdMbE0vczZ3cVJZY2t1S0txRnNyc3l3eEtMaWVMQUlxZzJjUmZubGVqQmJRRjVsYW9DNGd3UGRLY2s1aWNVd3A4QUV1VklTU3hMMTBvcUErb0c4ZjJoYTJQTUxTakx6ODRDYW1FQ0poQk1hZ0l4UWpHd1FZeEUwQkJrZE5HQWhBZVVMd1BuSUdnUks4MEN1VHRGTnppak55OVkxTWtLVFp5N0lTMGV5andIcU8wWm9aTUxZckJBbk0vMkhhdWVFQlY1cWNrWStsTTJXbXBlZW1aY0tDN0MwekhTOThzeVVrZ3hZR0lBRU1sSXowek5LWUVHVms1aVVtZ056U0VwcUdaVEpCd3hyY0ZEckZSUmw1c0ZVY3dGRmkvVks4a3NTWVZxNGt2TnpZQ0xnVUdYNEJ3QjlJWXdpbFFNQUFBPT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9860757\,\2\:\0.6388369\,\3\:\0.8482361\,\4\:\5\,\5\:\10.50\},{\1\:\0.8790683\,\2\:\0.7253284\,\3\:\0.7455882\,\4\:\10\,\5\:\5.25\},{\1\:\0.8105441\,\2\:\0.7731719\,\3\:\0.6735362\,\4\:\15\,\5\:\3.50\},{\1\:\0.7681250\,\2\:\0.8008665\,\3\:\0.6297572\,\4\:\20\,\5\:\2.75\},{\1\:\0.7444793\,\2\:\0.8121074\,\3\:\0.6040178\,\4\:\24\,\5\:\2.25\},{\1\:\0.7186278\,\2\:\0.8211215\,\3\:\0.5717141\,\4\:\31\,\5\:\1.75\},{\1\:\0.7019690\,\2\:\0.8267655\,\3\:\0.5531761\,\4\:\36\,\5\:\1.50\},{\1\:\0.7026299\,\2\:\0.8188843\,\3\:\0.5385327\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmpncmVUTktjVGhrT1ZvNWJTczBUbkp3YmtoR01Xc3ZMMG8xTTJKTVdraFZjakpNTm5oaVFrdzNUamx5UWk5MmRIWXJMMlpRTlU0ck1tWXpWV2M1ZFRFNU1Ha3ZNbnBvZEZkUU5ISXpiVEo2TDNKTmJ6VTBNbTVOUjJKek5sUnBaakJMZDFSMlR6SkVPRkJZWVZGek4yMHhiaTh5U1hZckwxbEVjU3N6YzFnNU5WcGpSM3AwYmtSUU1uSTVhV0Z4YkdsUFNEZFNMMnhtYW5sVFRrUlFlbVpoZGtOMk5YWmxWbUpGV1hZNVMzTjVUeTgxTm10ME0wcDZXSEpRWmxZeEsxRmxjek01SzJab2JpOXdRMngxT1dzNVltNUNTWEZZYVRKNlpqTjVNWGRxTlRNMWJuSTNlSGxaVEc1d01EVnVNa2d2ZVV4U2RXUmhlRzVuTHpORWRsYzVNemdyTXpaYVVDOVJWbVZ4VHpJMWJrWlJSRTQwVVdWYVFTOVJaMHRHV0RSblJtZEdhVU5UUTFkQ01rbFdTVTVoUWpKbFpXZDVaMEZIUkhGS1VXMW5aRXR6TUVad1NtZG9kQzkzWkVzdk5FUlRXSGhwWjBGRFYwRlhaazFUWXpGUFRHZFJkMEp6UVUxbloybDRRblp6UjNWVlJGcElWVWhHYUdGWFNsSmhaM0ZWZWl0NmNrTktUbWw1VXpCd2NXOVRlWFZVVEVSRmIzVkxORGhGYVhGRVduZEdkVmRZTmpoR2MwRlliVlp4VVVocFJHYzFNSEI1Vkc1S1FtSkVia0ZKVkRWRmNFcE1SVzVWVTNselF6Wm5abmt2Y1Vad1dXTTRka3ROYmsxNmQwNXhXV2RKYkVWck5XOUJSRXBEVFdKS1FtcEZXRkZGUjFJd01FbERSa0pLVVhaQlQyTnFZWGhCYjNwUlR6VlBhMVV6VDJGTk1Fd3hkbGg1UVdoT2JuSnJaMHg0TTBwUVoyRnZOM2hwYUd0UmJHcHpNRXRqZWxCUlpuRndNRlJHYm1sd2VWSnVOVlZFV21KaGJEVTJXbXcwY1V4TlJGTk5kRkF4ZVdwT1ZGTnFTbWRaVVVGVGVVVnFUbFJOT0c5blVWWldWRzFLVTJGbk4wMUpVMjF3V2xaQmJVaDZRM04zVlVkMFZqRkRWVzFSWkZSNlVWVlZUR1JaY25sVE9VcG9SMjVvVTNNM1VHZFpiVUZSTlZob1NIZERVVUUzUzB4c1VVMUJRVUU5UFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC45ODE3MTY5XCIsXCIyXCI6XCIwLjY0Mjc2ODRcIixcIjNcIjpcIjAuODQ0NDY2OFwiLFwiNFwiOlwiNVwiLFwiNVwiOlwiMTAuNTBcIn0se1wiMVwiOlwiMC44NzYzMDUyXCIsXCIyXCI6XCIwLjcyOTIwMzNcIixcIjNcIjpcIjAuNzQ0MDk3N1wiLFwiNFwiOlwiMTBcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiMC44MDk1MDg2XCIsXCIyXCI6XCIwLjc3MzA3NTBcIixcIjNcIjpcIjAuNjcyMzk0OVwiLFwiNFwiOlwiMTVcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43NTcyNjUxXCIsXCIyXCI6XCIwLjgwODE4MjFcIixcIjNcIjpcIjAuNjE5ODA4M1wiLFwiNFwiOlwiMjBcIixcIjVcIjpcIjIuNzVcIn0se1wiMVwiOlwiMC43NDE2MDc2XCIsXCIyXCI6XCIwLjgxMzI5NDZcIixcIjNcIjpcIjAuNjAwMTc0NFwiLFwiNFwiOlwiMjRcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC43MTM5MTU3XCIsXCIyXCI6XCIwLjgyNDQ1MjNcIixcIjNcIjpcIjAuNTY5MDMwMVwiLFwiNFwiOlwiMzFcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC43MDMyMDcwXCIsXCIyXCI6XCIwLjgyNjI5MzhcIixcIjNcIjpcIjAuNTU0NDM0NlwiLFwiNFwiOlwiMzZcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC43MDQzNzAyXCIsXCIyXCI6XCIwLjgxNzU2OTlcIixcIjNcIjpcIjAuNTM5Njg1N1wiLFwiNFwiOlwiNDRcIixcIjVcIjpcIjEuMjVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls4XX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZjgreTNKcThkOVo5bSs0TnJwbkhGMWsvL0o1M2JMWkhVcjJMNnhiQkw3TjlyQi92dHYrL2ZQNU4rMmYzVWc5dTE5MGkvMnpodFdQNHIzbTJ6L3JNbzU0Mm5NR2JzNlRpZjBLd1R2TzJEOFBYYVFzN20xbi8ySXYrL1lEcSszc1g5NVpjR3p0bkRQMnI5aWFxbGlPSDdSL2xmanlTTkRQemZhdkN2NXZlVmJFWXY5S3N5Ty81Nmt0M0p6WHJQZlYxK1FlczM5K2Zobi9wQ2x1OWs5Ym5CSXFYaTJ6ZjN5MXdqNTM1bnI3eHlZTG5wMDVuMkgveUxSdWRheG5nLzNEdlc5MzgrMzZaUC9RVmVxTzI1bkZRRE40UWVaQS9RZ0tGWDRnRmdGaUNTQ1dCMklWSU5hQjJlZWd5Z0FHRHFKUW1nZEtzMEZwSmdodC93ZEsvNERTWHhpZ0FDV0FXZk1TYzFPTGdRd0JzQU1nZ2l4QnZzR3VVRFpIVUhGaGFXSlJhZ3FVeit6ckNKTml5UzBwcW9TeXVUTERFb3VLNDhFaXFEWndGdVdYNjhGc0FYbVZxUUhpRGc1MHB5VG5KQmJEbkFJVDVFcEpMRW5VU3lzQzZnZnkvcUZwWWM4dktNbk16d05xWWdJbEVrNW9BREpDTWJKQmpFWFFFR1IwMElDRkJKUXZBT2NqYXhBb3pRTzVPa1UzT2FNMEwxdlh5QWhObnJrZ0x4M0pQZ2FvN3hpaGtRbGpzMEtjelBRZnFwMFRGbmlweVJuNVVEWmJhbDU2Wmw0cUxNRFNNdFAxeWpOVFNqSmdZUUFTeUVqTlRNOG9nUVZWVG1KU2FnN01JU21wWlZBbUh6Q3N3VUd0VjFDVW1RZFR6UVVVTGRZcnlTOUpoR25oU3M3UGdZbUFRNVhoSHdDUUE3S0xsUU1BQUE9PSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9817169","2":"0.6427684","3":"0.8444668","4":"5","5":"10.50"},{"1":"0.8763052","2":"0.7292033","3":"0.7440977","4":"10","5":"5.25"},{"1":"0.8095086","2":"0.7730750","3":"0.6723949","4":"15","5":"3.50"},{"1":"0.7572651","2":"0.8081821","3":"0.6198083","4":"20","5":"2.75"},{"1":"0.7416076","2":"0.8132946","3":"0.6001744","4":"24","5":"2.25"},{"1":"0.7139157","2":"0.8244523","3":"0.5690301","4":"31","5":"1.75"},{"1":"0.7032070","2":"0.8262938","3":"0.5544346","4":"36","5":"1.50"},{"1":"0.7043702","2":"0.8175699","3":"0.5396857","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWTVLMlYxZGxZMmIwcHNPVzA1YTB4bU1YazFLMlphZG5wNk15dHViblp1YldJM1JqVllURmQ2THpnNE4wSXZkbTV4U2lzM1ZVNU9abUpRVEhGNk9EZGFjVGgzWmpWYVJrdFBlR05YZFZFdllsQnpla013YkdoVVVHYzFhbnBLYm5SNmMyUm1LMVl2V0ZCVVpUbE9aR3B1VEdGMk4ya3hXU3RaVWlzd1VESk1PV1k0ZWk5TVdFdE1UaTlLWWpaQlZTdG1aVXhtZEZnMlltUXpZa2cyYmxwUUszRjBaVE5TZWxkQ09Tc3hZMDlMZW1KbUsyZzBSRTRyWlRFMFVWTnFOMDlLTWlzcll6TnlZalI1VTNkWVdWQjVNbVJqUjFocGVGTm1NbFEzYVROMFpqTjVhMkpTTDJKRFlubzJUalV2U0haMFNEVnljVFpuVkZCWU1rUTVZemRIYmtSekwxTTVMMVZQYW5wMWRsY3lObU5CZW1WQlJtMVJVREZKZVdoVkswbEdXVUpKWjJ4blJtZGxhVVpYUVZkQlpHMXVORTF4UVhobk5HbEZTbkJJYVdwT1FuRlhXa2xNVkRsSWVXbzVRVEJ3TDFsWlFVTnNRVUp0ZWxWMlRWUlRNRWROWjFSQlJHOUJTWE5uVkRWQ2NuUkRNbEo0UW5oWlYyeHBWVmR3UzFaQkszTTJPR3BVU1c5c2REWlRiMFZ6Y20xNVozaE1URU54VDBJMGRXY3ljMEphYkVZcmRVSTNUVVkxUmxkdFFtOW5OMDlPUTJScmNIbFVWMEY0ZWtOcmVWRkxlVmQ0U2taRmRuSlJhVzlJT0dvM2FEWmhSbEJpSzJkS1JFMHZSRFpwU2tOYVVrbFBTMFZDZVVGcVJubEJXWGhHYTBaRWEwNUdRa0Y0V1ZOVlREUkJia2tyYzFGaFFUQkVLMVJ4Ums0emEycE9TemhpUmpCcVNYcFNOVFZ2U3poa1ExUTNSMHRESzFrMFVrZEtiM3BPUTI1RmVUQXpLMjlrYXpWWk5FdFZiVm9yVWtReVYzbHdaV1Z0V21WaGJYZEJSWFpNVkU1amNub3dkM0I1V1VOR1FWVm5aMGw2VlhwUVlVMUZSbXhSTldsVmJYQlBWRU5JY0V0VFYxRmFiRGgzVEVGSFFqZFdaVkZXUm0xSWEzY3hSakZETUZkTE9HdDJlVkZTY0c5VmNrOVVPRWhLWjBsUFZsbGFMMEZDYlhCM1NqWldRWGRCUVNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC45ODcyNDY0XFwsXFwyXFw6XFwwLjYzODEzMTlcXCxcXDNcXDpcXDAuODQ5ODAwMlxcLFxcNFxcOlxcNVxcLFxcNVxcOlxcMTAuNTBcXH0se1xcMVxcOlxcMC44Nzg1Njc0XFwsXFwyXFw6XFwwLjcyNTMyNTlcXCxcXDNcXDpcXDAuNzQ1MjY3NFxcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcMC44MDY1MDkwXFwsXFwyXFw6XFwwLjc3NjY5OTRcXCxcXDNcXDpcXDAuNjcwNjAxM1xcLFxcNFxcOlxcMTVcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43NjQ4NTA0XFwsXFwyXFw6XFwwLjgwMjM2NzlcXCxcXDNcXDpcXDAuNjI2NDI5OFxcLFxcNFxcOlxcMjBcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43Mzk3MDI0XFwsXFwyXFw6XFwwLjgxNTM4MzlcXCxcXDNcXDpcXDAuNjAwMzU1NlxcLFxcNFxcOlxcMjRcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC43MTI5NzE3XFwsXFwyXFw6XFwwLjgyNTE3ODBcXCxcXDNcXDpcXDAuNTY5MjM1NFxcLFxcNFxcOlxcMzFcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42OTg0ODY5XFwsXFwyXFw6XFwwLjgyODc5OTdcXCxcXDNcXDpcXDAuNTUxMTgyNFxcLFxcNFxcOlxcMzZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC43MDA2MTE5XFwsXFwyXFw6XFwwLjgyMDM5MjlcXCxcXDNcXDpcXDAuNTM3NDE5MlxcLFxcNFxcOlxcNDRcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWY5K2V1dlY2b0psOW05a0xmMXk1K2Zadnp6MytubnZubWI3RjVYTFd6Lzg4N0Ivdm5xSis3VU5OZmJQTHF6ODdacTh3ZjVaRktPeGNXdVEvYlBzekMwbGhUUGc1anpKbnR6c2RmK1YvWFBUZTlOZGpuTGF2N2kxWStZUiswUDJMOWY4ei9MWEtMTi9KYjZBVStmZUxmdFg2YmQzYkg2blpQK3F0ZTNSeldCOSsxY09LemJmK2g0RE4rZTE0UVNqN09KMisrYzNyYjR5U3dYWVB5MmRjR1hpeFNmMlQ3aTN0ZjN5a2JSL2JDYno2TjUvSHZ0SDVycTZnVFBYMkQ5YzdHbkRzL1M5L1VPanp1dlcyNmNBemVBRm1RUDFJeWhVK0lGWUJJZ2xnRmdlaUZXQVdBZG1uNE1xQXhnNGlFSnBIaWpOQnFXWklMVDlIeWo5QTBwL1lZQUNsQUJtelV2TVRTMEdNZ1RBRG9BSXNnVDVCcnRDMlJ4QnhZV2xpVVdwS1ZBK3M2OGpUSW9sdDZTb0Vzcm15Z3hMTENxT0I0dWcyc0JabEYrdUI3TUY1RldtQm9nN09OQ2RrcHlUV0F4ekNreVFLeVd4SkZFdnJRaW9IOGo3aDZhRlBiK2dKRE0vRDZpSkNaUklPS0VCeUFqRnlBWXhGa0ZEa05GQkF4WVNVTDRBbkkrc1FhQTBEK1RxRk4za2pOSzhiRjBqSXpSNTVvSzhkQ1Q3R0tDK1k0UkdKb3pOQ25FeTAzK29kazVZNEtVbVorUkQyV3lwZWVtWmVhbXdBRXZMVE5jcnowd3B5WUNGQVVnZ0l6VXpQYU1FRmxRNWlVbXBPVENIcEtTV1FabDh3TEFHQjdWZVFWRm1Ia3cxRjFDMFdLOGt2eVFScG9Vck9UOEhKZ0lPVllaL0FCbXB3SjZWQXdBQSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9872464\,\2\:\0.6381319\,\3\:\0.8498002\,\4\:\5\,\5\:\10.50\},{\1\:\0.8785674\,\2\:\0.7253259\,\3\:\0.7452674\,\4\:\10\,\5\:\5.25\},{\1\:\0.8065090\,\2\:\0.7766994\,\3\:\0.6706013\,\4\:\15\,\5\:\3.50\},{\1\:\0.7648504\,\2\:\0.8023679\,\3\:\0.6264298\,\4\:\20\,\5\:\2.75\},{\1\:\0.7397024\,\2\:\0.8153839\,\3\:\0.6003556\,\4\:\24\,\5\:\2.25\},{\1\:\0.7129717\,\2\:\0.8251780\,\3\:\0.5692354\,\4\:\31\,\5\:\1.75\},{\1\:\0.6984869\,\2\:\0.8287997\,\3\:\0.5511824\,\4\:\36\,\5\:\1.50\},{\1\:\0.7006119\,\2\:\0.8203929\,\3\:\0.5374192\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmlzck9Ua3dhVVp2T1d3NWJUaFZaM2NyT1daTGNHc3ZMMHc1VERsbFowUlRlakpNTmxwVk0yWjNiSE5rVkNzcllWWnFaV28wVkhWMWVXWXZablV2V2pjMVpXNVFNbnB6ZG1FMVJGWkxURGRLT1ZabU1YbHhUak5yTlROS2QyNW9Xa1l2U0hreVkxcFFMMk01VUVnMVJFNVZZamxwTHpKWWRuQmlPRTFpV2k5MVYwTlVXR1JHTkRGdWRGZ3ZORFZOWmtkSFQzSlFPVXMzWTBaaE15dGxhMkpPTDFaWVRHNDFOVXc0UmxCMFdFcHFOblpMTVdkek5FOWhPRlowYmk5aVZXOW5hQzh6ZWpJM1pETnlOVk5SYzI0dllVOHpkbVo1YXpsNk4wb3JieTlhYVdNMVptWlBMMjVIU1V4TUwyOXBNVzR5YWpkNWNrTTNOWFpMY2tvdmRVaHRaVGMwV1dWRlpuVklNV2wxWlN0Vk5GTkJXbkpDUTNwSlNEWnJaRkZ4VUVGRVRWVm9ZMEZ2YW14blZtZEdhVWhXWnpscWJXOU5iME5DWjNscFZUVnZTRk5pUmtOaFExVk1ZaTgwU0ZOUU5rUXdSbmRaYjFGQmJHY3hjbnBGTTA1U2FVbEZUVUUzUVVOSlNVVjFVV0kzUVhKc1RUQlNWa1o0V1cxc2FWVnRaMHhzVFM5ek5uZHhVbGxqYTNWTFMzRkdjM0p6ZVhkNFMweHBaVXhCU1hGbk1tTlNabTVzWldwQ1lsRkdOV3hoYjBNMFozZFFaRXRqYXpWcFkxVjNjRGhCUlhWV1NWTlRlRXd4TUc5eFFTdHZSemhtTW1oaE1sQk5URk5xVEhvNE5FTmhiVVZEU21oQ1RXRm5TWGhSYWtkM1VWbDRSVEJDUW10a1RrZEJhRUZsVlV4M1VHNUpSMmRTU3pnd1EzVlVkRVpPZW1scVRuazVXVEZOYTB0VVduazNTVk13WlhscWQwaHhUekJhYjFwTlRGbHlRa0Z1VFM4eVNHRjFaVVZDVmpWeFkydFpLMnhOTWxkdGNHVmxiVnBqUzBNM1F6QjZTRk01T0hONVZXdG5lRmxIU1VGRlRXeEplakI2VGt0WlJVZFdhelZwVlcxblRucFRSWEJ4UjFwVVNrSjNlSEpqUmtSeVJsSlNiRFZ6UmxWamQwWkdhUzlXU3pocmMxTlpWbkUwYTNaT2VsbERUR2RWUjFnMFFuZENPVWxaZDJsc1VVMUJRVUU5UFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC45ODYwNzU3XCIsXCIyXCI6XCIwLjYzODgzNjlcIixcIjNcIjpcIjAuODQ4MjM2MVwiLFwiNFwiOlwiNVwiLFwiNVwiOlwiMTAuNTBcIn0se1wiMVwiOlwiMC44NzkwNjgzXCIsXCIyXCI6XCIwLjcyNTMyODRcIixcIjNcIjpcIjAuNzQ1NTg4MlwiLFwiNFwiOlwiMTBcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiMC44MTA1NDQxXCIsXCIyXCI6XCIwLjc3MzE3MTlcIixcIjNcIjpcIjAuNjczNTM2MlwiLFwiNFwiOlwiMTVcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43NjgxMjUwXCIsXCIyXCI6XCIwLjgwMDg2NjVcIixcIjNcIjpcIjAuNjI5NzU3MlwiLFwiNFwiOlwiMjBcIixcIjVcIjpcIjIuNzVcIn0se1wiMVwiOlwiMC43NDQ0NzkzXCIsXCIyXCI6XCIwLjgxMjEwNzRcIixcIjNcIjpcIjAuNjA0MDE3OFwiLFwiNFwiOlwiMjRcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC43MTg2Mjc4XCIsXCIyXCI6XCIwLjgyMTEyMTVcIixcIjNcIjpcIjAuNTcxNzE0MVwiLFwiNFwiOlwiMzFcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC43MDE5NjkwXCIsXCIyXCI6XCIwLjgyNjc2NTVcIixcIjNcIjpcIjAuNTUzMTc2MVwiLFwiNFwiOlwiMzZcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC43MDI2Mjk5XCIsXCIyXCI6XCIwLjgxODg4NDNcIixcIjNcIjpcIjAuNTM4NTMyN1wiLFwiNFwiOlwiNDRcIixcIjVcIjpcIjEuMjVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls4XX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZisrOTkwaUZvOWw5bThVZ3crOWZLcGsvL0w5TDllZ0RTejJMNlpVM2Z3bHNkVCsrYVZqZWo0VHV1eWYvZnUvWjc1ZW5QMnpzdmE1RFZLTDdKOVZmMXlxTjNrNTNKd25oWkYvSHkyY1pQL2M5UEg1RE5VYjlpLzJYdnBiOE1iWi91V0NUWGRGNDFudFgvNDVNZkdHT3JQOUs3Y0ZhMytla2JOL1ZYTG41NUw4RlB0WEpqNnZLMWdzNE9hOFZ0bi9iVW9naC8zejI3ZDNyNVNRc24vYU8zdmZ5azl6N0orby9aaWM1ZmZPL25HSUxML29pMW4yajd5ckM3NXZLckovdUhtZTc0WWVFZnVIMWl1ZStVNFNBWnJCQ3pJSDZrZFFxUEFETVVoY0FvamxnVmdGaUhWZzlqbW9Nb0NCZ3lpVTVvSFNiRkNhQ1VMYi80SFNQNkQwRndZb1FBbGcxcnpFM05SaUlFTUE3QUNJSUV1UWI3QXJsTTBSVkZ4WW1saVVtZ0xsTS9zNndxUllja3VLS3FGc3JzeXd4S0xpZUxBSXFnMmNSZm5sZWpCYlFGNWxhb0M0Z3dQZEtjazVpY1V3cDhBRXVWSVNTeEwxMG9xQStvRzhmMmhhMlBNTFNqTHo4NENhbUVDSmhCTWFnSXhRakd3UVl4RTBCQmtkTkdBaEFlVUx3UG5JR2dSSzgwQ3VUdEZOemlqTnk5WTFNa0tUWnk3SVMwZXlqd0hxTzBab1pNTFlyQkFuTS8ySGF1ZUVCVjVxY2tZK2xNMldtcGVlbVpjS0M3QzB6SFM5OHN5VWtneFlHSUFFTWxJejB6TktZRUdWazVpVW1nTnpTRXBxR1pUSkJ3eHJjRkRyRlJSbDVzRlVjd0ZGaS9WSzhrc1NZVnE0a3ZOellDTGdVR1g0QndCOUlZd2lsUU1BQUE9PSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9860757","2":"0.6388369","3":"0.8482361","4":"5","5":"10.50"},{"1":"0.8790683","2":"0.7253284","3":"0.7455882","4":"10","5":"5.25"},{"1":"0.8105441","2":"0.7731719","3":"0.6735362","4":"15","5":"3.50"},{"1":"0.7681250","2":"0.8008665","3":"0.6297572","4":"20","5":"2.75"},{"1":"0.7444793","2":"0.8121074","3":"0.6040178","4":"24","5":"2.25"},{"1":"0.7186278","2":"0.8211215","3":"0.5717141","4":"31","5":"1.75"},{"1":"0.7019690","2":"0.8267655","3":"0.5531761","4":"36","5":"1.50"},{"1":"0.7026299","2":"0.8188843","3":"0.5385327","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXJLMkZ5VDI5alVEaFdLM3BqVFhodVJrNUxNVXh6V0RrMlNWZ3ljSE5NYlc0dlNYSlZOM2xIWlROMFpqTjZUMlZsTkhwMVZGZ3lhaTlpVHpGSVprOWlkbGt2Ykd3NGFURjFjM0J3YWpsek4wUkVNbmxWT0ZsMVJHMVFSMjQ1WkRGaGFIZGpNeXQxWml0R05sVmpaamRNVWk5alpERjJORmRWZFZobWRWaDFlbGRETlZOUmF6ZFdMMG96Y0VSNU0weHVWaTlzVjBaaFNsaGhUMmt2TjFaNU1USlNNRTl0UXpscEx6aDJjM1ZtVDJWcVMwNTVZekUyUzAwd2FFOXJOMDk1WmpjdmFpdG1UVE5tY1M5YVVGZDNWa015Ulc5dE1rUXZLMGt2UkhOT1JYVmxMMWROTVdvNFVGQldOU3Q0WmpKU05GcHZNV1pVVEZBNWR6WlZMMGxyZEROb09Xc3ZNVXBvT1RsamVsVTVNRUY2WlVWSWJWRlFNRWxEYUZZclNVSlpRbGxuYTJkc1oyUnBSbE5FVjJka2JtNXZUVzlCUW1jMmFWVktiMGhUY2s1Q1lWTlpTV0ptT0VoVGRpdEJNR3c0V1c5QlFXeG5SbTU2Ulc1T1ZHazBSVTFCWWtGRVNVbEpjMUZpTjBKeWJFRXlVakZDZUZsWGJHbFZWMjlMYkUwdmN6WjNhVlJaYzJ0MFMyRnhSWE55YTNsM2VFdE1hWFZRUWtseFp6SmpRbUpzYkN0MlFtSkJSalZzWVd0Q05HYzBUMlJMWTJzMWVWRlhkelYzUTBVclVrdFRVM2hLTVVWemNrRjFiMGc0ZGpab1lWZElVRXg1YWtwNlRUaEVZVzFKUTBwU1NrOWhRVUY1VVdwSGVWRlplRVl3UWtKclpFNURRV2hSVTFWTWQwUnVTVEp6VVV0Tk1FUjFWSEJHVG5wdGFrNURPV0l4T0dkSlZGbzJOVWxET0dSNVZEUkhjVTg0V1c5YVJVcFpOMDVEYmsxNk1FZzJjV1JGZUZvMGNXTnJXaXRXUVRKWE1uQmxaVzFhWlV0cGVrRXdha3hVT1dOdmVsVXdiM2xaUjBWQlJYTm9TWHBWZWxCTFNVVkdWbFUxYVZWdGIwOTZRMFZ3Y1ZkV1VVcG9PSGR5VFVaQ2NsWmtVV3hLYTBoVk9EQkdSa016VjBzNGEzWlRXVkp3TkZWeVQzbzBSMHBuUlU5V05GSTRRV2w1ZDI5bWNGVkVRVUZCUFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC45ODM3MjgwXFwsXFwyXFw6XFwwLjY0MTM1NjlcXCxcXDNcXDpcXDAuODQ2MzE0MFxcLFxcNFxcOlxcNVxcLFxcNVxcOlxcMTAuNTBcXH0se1xcMVxcOlxcMC44NzUwMjQ1XFwsXFwyXFw6XFwwLjcyODQ5MzBcXCxcXDNcXDpcXDAuNzQxMzI5MVxcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcMC44MDc2NjI4XFwsXFwyXFw6XFwwLjc3NjI4MjZcXCxcXDNcXDpcXDAuNjcyNDkzMVxcLFxcNFxcOlxcMTVcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43NjIzOTU1XFwsXFwyXFw6XFwwLjgwNDA5NjRcXCxcXDNcXDpcXDAuNjI0NTE5OFxcLFxcNFxcOlxcMjBcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43Mzc4OTEyXFwsXFwyXFw6XFwwLjgxNjE0MzFcXCxcXDNcXDpcXDAuNTk4NDIzNFxcLFxcNFxcOlxcMjRcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC43MTA2NDA1XFwsXFwyXFw6XFwwLjgyNzE1ODdcXCxcXDNcXDpcXDAuNTY4NTc5MFxcLFxcNFxcOlxcMzFcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42OTkxNTk4XFwsXFwyXFw6XFwwLjgyODY0MzJcXCxcXDNcXDpcXDAuNTUxNTEwMFxcLFxcNFxcOlxcMzZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42OTgwOTE0XFwsXFwyXFw6XFwwLjgyMjEzOTNcXCxcXDNcXDpcXDAuNTM2MjA3MVxcLFxcNFxcOlxcNDRcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYrK2FyT29jUDhWK3pjTXhuRk5LMUxzWDk2SVgycHNMbW4vSXJVN3lHZTN0ZjN6T2VlNHp1VFgyai9iTzFIZk9idlkvbGw4aTF1c3BwajlzN0REMnlVOFl1RG1QR245ZDFhaHdjMyt1ZitGNlVjZjdMUi9jZDF2NFdVdVhmdVh1eldDNVNRazdWL0ozcER5M0xuVi9sV0ZhSlhhT2kvN1Z5MTJSME9tQzlpLzh2c3VmT2VqS055YzE2S00waE9rN095ZjcvaitmTTNmcS9aUFd3VkMyRW9tMkQvK0kvRHNORXVlL1dNMWo4UFBWNSt4ZjJSNFpvMWZUTFA5dzZVL0lrdDNoOWsvMUpoOTljelU5MEF6ZUVIbVFQMElDaFYrSUJZQllna2dsZ2RpRlNEV2dkbm5vTW9BQmc2aVVKb0hTck5CYVNZSWJmOEhTditBMGw4WW9BQWxnRm56RW5OVGk0RU1BYkFESUlJc1FiN0JybEEyUjFCeFlXbGlVV29LbE0vczZ3aVRZc2t0S2FxRXNya3l3eEtMaXVQQklxZzJjQmJsbCt2QmJBRjVsYWtCNGc0T2RLY2s1eVFXdzV3Q0UrUktTU3hKMUVzckF1b0g4djZoYVdIUEx5akp6TThEYW1JQ0pSSk9hQUF5UWpHeVFZeEYwQkJrZE5DQWhRU1VMd0RuSTJzUUtNMER1VHBGTnptak5DOWIxOGdJVFo2NUlDOGR5VDRHcU84WW9aRUpZN05Dbk16MEg2cWRFeFo0cWNrWitWQTJXMnBlZW1aZUtpekEwakxUOWNvelUwb3lZR0VBRXNoSXpVelBLSUVGVlU1aVVtb096Q0VwcVdWUUpoOHdyTUZCclZkUWxKa0hVODBGRkMzV0s4a3ZTWVJwNFVyT3o0R0pnRU9WNFI4QWl5d29mcFVEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9837280\,\2\:\0.6413569\,\3\:\0.8463140\,\4\:\5\,\5\:\10.50\},{\1\:\0.8750245\,\2\:\0.7284930\,\3\:\0.7413291\,\4\:\10\,\5\:\5.25\},{\1\:\0.8076628\,\2\:\0.7762826\,\3\:\0.6724931\,\4\:\15\,\5\:\3.50\},{\1\:\0.7623955\,\2\:\0.8040964\,\3\:\0.6245198\,\4\:\20\,\5\:\2.75\},{\1\:\0.7378912\,\2\:\0.8161431\,\3\:\0.5984234\,\4\:\24\,\5\:\2.25\},{\1\:\0.7106405\,\2\:\0.8271587\,\3\:\0.5685790\,\4\:\31\,\5\:\1.75\},{\1\:\0.6991598\,\2\:\0.8286432\,\3\:\0.5515100\,\4\:\36\,\5\:\1.50\},{\1\:\0.6980914\,\2\:\0.8221393\,\3\:\0.5362071\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmprclpYVjJWalp2U213NWJUbHJUR1l4ZVRVclpscDJlbm96SzI1dWRtNXRZamRHTlZoTVYzb3ZPRGczUWk5MmJuRktLemRWVGs1bVlsQk1jWG80TjFweE9IZG1OVnBHUzA5NFkxZDFVUzlpVUhONlF6QnNhRlJRWnpWcWVrcHVkSHB6WkdZclZpOVlVRlJsT1U1a2FtNU1ZWFkzYVRGWksxbFNLekJRTWt3NVpqaDZMMHhZUzB4T0wwcGlOa0ZWSzJabFRHWjBXRFppWkROaVNEWnVXbEFyY1hSbE0xSjZWMEk1S3pGalQwdDZZbVlyYURSRVRpdGxNVFJSVTJvM1Qwb3lLeXRqTTNKaU5IbFRkMWhaVUhreVpHTkhXR2w0VTJZeVZEZHBNM1JtTTNscllsSXZZa05pZWpaT05TOUlkblJJTlhKeE5tZFVVRmd5UkRsak4wZHVSSE12VXprdlZVOXFlblYyVnpJMlkwRjZaVUZHYlZGUU1VbDVhRlVyU1VaWlFrbG5iR2RHWjJWcFJsZEJWMEZrYlc0MFRYRkJlR2MwYVVWS2NFaHBhazVDY1ZkYVNVeFVPVWg1YWpsQk1IQXZXVmxCUTJ4QlFtMTZWWFpOVkZNd1IwMW5WRUZFYjBGSmMyZFVOVUp5ZEVNeVVuaENlRmxYYkdsVlYzQkxWa0VyY3pZNGFsUkpiMngwTmxOdlJYTnliWGxuZUV4TVEzRlBRalIxWnpKelFscHNSaXQxUWpkTlJqVkdWMjFDYjJjM1QwNURaR3R3ZVZSWFFYaDZRMnQ1VVV0NVYzaEtSa1YyY2xGcGIwZzRhamRvTm1GR1VHSXJaMHBFVFM5RU5tbEtRMXBTU1U5TFJVSjVRV3BHZVVGWmVFWnJSa1JyVGtaQ1FYaFpVMVZNTkVGdVNTdHpVV0ZCTUVRclZIRkdUak5yYWs1TE9HSkdNR3BKZWxJMU5XOUxPR1JEVkRkSFMwTXJXVFJTUjBwdmVrNURia1Y1TURNcmIyUnJOVmswUzFWdFdpdFNSREpYZVhCbFpXMWFaV0Z0ZDBGRmRreFVUbU55ZWpCM2NIbFpRMFpCVldkblNYcFZlbEJoVFVWR2JGRTFhVlZ0Y0U5VVEwaHdTMU5YVVZwc09IZE1RVWRDTjFabFVWWkdiVWhyZHpGR01VTXdWMHM0YTNaNVVWSndiMVZ5VDFRNFNFcG5TVTlXV1ZvdlFVSnRjSGRLTmxaQmQwRkJJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjk4NzI0NjRcIixcIjJcIjpcIjAuNjM4MTMxOVwiLFwiM1wiOlwiMC44NDk4MDAyXCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCIwLjg3ODU2NzRcIixcIjJcIjpcIjAuNzI1MzI1OVwiLFwiM1wiOlwiMC43NDUyNjc0XCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCIwLjgwNjUwOTBcIixcIjJcIjpcIjAuNzc2Njk5NFwiLFwiM1wiOlwiMC42NzA2MDEzXCIsXCI0XCI6XCIxNVwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjc2NDg1MDRcIixcIjJcIjpcIjAuODAyMzY3OVwiLFwiM1wiOlwiMC42MjY0Mjk4XCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjczOTcwMjRcIixcIjJcIjpcIjAuODE1MzgzOVwiLFwiM1wiOlwiMC42MDAzNTU2XCIsXCI0XCI6XCIyNFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjcxMjk3MTdcIixcIjJcIjpcIjAuODI1MTc4MFwiLFwiM1wiOlwiMC41NjkyMzU0XCIsXCI0XCI6XCIzMVwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjY5ODQ4NjlcIixcIjJcIjpcIjAuODI4Nzk5N1wiLFwiM1wiOlwiMC41NTExODI0XCIsXCI0XCI6XCIzNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjcwMDYxMTlcIixcIjJcIjpcIjAuODIwMzkyOVwiLFwiM1wiOlwiMC41Mzc0MTkyXCIsXCI0XCI6XCI0NFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZjkrZXV2VjZvSmw5bTlrTGYxeTUrZlp2enozK25udm5tYjdGNVhMV3ovODg3Qi92bnFKKzdVTk5mYlBMcXo4N1pxOHdmNVpGS094Y1d1US9iUHN6QzBsaFRQZzVqekpudHpzZGYrVi9YUFRlOU5kam5MYXY3aTFZK1lSKzBQMkw5Zjh6L0xYS0xOL0piNkFVK2ZlTGZ0WDZiZDNiSDZuWlArcXRlM1J6V0I5KzFjT0t6YmYraDRETitlMTRRU2o3T0oyKytjM3JiNHlTd1hZUHkyZGNHWGl4U2YyVDdpM3RmM3lrYlIvYkNiejZONS9IdnRINXJxNmdUUFgyRDljN0duRHMvUzkvVU9qenV2VzI2Y0F6ZUFGbVFQMUl5aFUrSUZZQklnbGdGZ2VpRldBV0FkbW40TXFBeGc0aUVKcEhpak5CcVdaSUxUOUh5ajlBMHAvWVlBQ2xBQm16VXZNVFMwR01nVEFEb0FJc2dUNUJydEMyUnhCeFlXbGlVV3BLVkErczY4alRJb2x0NlNvRXNybXlneExMQ3FPQjR1ZzJzQlpsRit1QjdNRjVGV21Cb2c3T05DZGtweVRXQXh6Q2t5UUt5V3hKRkV2clFpb0g4ajdoNmFGUGIrZ0pETS9ENmlKQ1pSSU9LRUJ5QWpGeUFZeEZrRkRrTkZCQXhZU1VMNEFuSStzUWFBMEQrVHFGTjNrak5LOGJGMGpJelI1NW9LOGRDVDdHS0MrWTRSR0pvek5DbkV5MDMrb2RrNVk0S1VtWitSRDJXeXBlZW1aZWFtd0FFdkxUTmNyejB3cHlZQ0ZBVWdnSXpVelBhTUVGbFE1aVVtcE9UQ0hwS1NXUVpsOHdMQUdCN1ZlUVZGbUhrdzFGMUMwV0s4a3Z5UVJwb1VyT1Q4SEpnSU9WWVovQUJtcHdKNlZBd0FBIn0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9872464","2":"0.6381319","3":"0.8498002","4":"5","5":"10.50"},{"1":"0.8785674","2":"0.7253259","3":"0.7452674","4":"10","5":"5.25"},{"1":"0.8065090","2":"0.7766994","3":"0.6706013","4":"15","5":"3.50"},{"1":"0.7648504","2":"0.8023679","3":"0.6264298","4":"20","5":"2.75"},{"1":"0.7397024","2":"0.8153839","3":"0.6003556","4":"24","5":"2.25"},{"1":"0.7129717","2":"0.8251780","3":"0.5692354","4":"31","5":"1.75"},{"1":"0.6984869","2":"0.8287997","3":"0.5511824","4":"36","5":"1.50"},{"1":"0.7006119","2":"0.8203929","3":"0.5374192","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWTVLelZ3V2tSRlpsWmlOMDQ1ZDFwYU1UZFplbGhrTDNWWU5VUldSaTlpUmpOeldIbFVUWHBMT1ZkV1RGb3ZVR3QyTTBGUU9VTkVkblJ1S3pjMU4xUXpjbWxhVURoelZHeGFlV1ZzWlZRdllsQTBOakp1YzA5eWVIZGpOVFpyYmpOd1dTOWpha292Y201cVZrVmhaV2c1TDNSWU9YaHVUMjQxVFRGTlppczFaalJNV0RKS1pXRTVkUzlyWjNVNVYyVkROSGRRTlZab1pGbDVlblpZTnpkR0t6RXhRM2hhWmtseVdDOXdXRGRvVWpsNmRUUlVhRFZ5ZWxkTk56aHJiWFJPYVM4dmVGRnhNV1o1TlZJdk1sUTFkVGhFZEhNMFEyUnJMeTkwUmxwMVNEWnhheTh4YW5oVVNtNHJWVEZJTjBJNVdtMVRPRFpOZG1VdkwyTlBiR2hXZEU1RVpuSjBTQ3R3Wkc1VGVpdDFhSGh2UW5Ob1RraEdRUzluYTB0R1NEUm9SbWRHWjBOcFQxZENWMEZYU1dSWFJESlBZV2Q1WjBsSFJFdEtWRzFuWkVwelZVcHZTbEYwZGk5blpFa3ZiMUJSV0VKcGFFRkRWMFJYZGsxVVl6RkhTV2RSZDBSelFVbG5aMU0xUW5aelEzVlZlbEpHVlZoR2FXRlhTbE5oUVhWVmVpdDZja053Um1oNVV6UnZjVzlYZVhWNlRFUkZiM1ZLTkhOQmFYRkVXbmhHSzJWV05rMUdkRUZZYlZaeFoweHBSRUU1TUhCNVZHMUtlRlJEYm5kQlV6VlZhRXBNUlhaWVUybHZSRFpuWW5ndllVWnlXVGgzZEV0TmRsQjZaMHB4V1ZGQ1NFTkRVVEZCVW1sb1IwNXZhWGhEUW5GRGFrRTBZWE5LUTBFNFoxaG5aa2RSVGtGeFZqVkpSbVZ1TmtOYWJteFBXbXcyZUc5YWIyTnJla1lyVTJ4Sk9XNUlRVkJWWkVsNlVYbFpWM2hYYVVwUFdpOXJUekZqT0VsRFRIcFZOVWw0TDB0YWEzWk9Vemd2VFZNMFZVWlhSbkJ0ZFd3MU5WcHJjRXBDYVhkTlVVRkpXbkZhYm5CSFUxZDNiMDF3U2xSRmNrNW5WR3RyU21KVlRYbDFVVVJvYWxVMGNWQlZTMmxxVEhwWlMzRTFaMHRNUm1WcFdEVktXV3QzVEZaNlNpdFVhM2RGV0VOdlRYWjNSRUZHZFVwM1IxZFdRWGRCUVNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC45ODc1MTMwXFwsXFwyXFw6XFwwLjYzNzY3MDBcXCxcXDNcXDpcXDAuODQ5MzkxOVxcLFxcNFxcOlxcNVxcLFxcNVxcOlxcMTAuNTBcXH0se1xcMVxcOlxcMC44NzYyNzE2XFwsXFwyXFw6XFwwLjcyNjc1NTZcXCxcXDNcXDpcXDAuNzQyNDk1MlxcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcMC44MDY2MDI2XFwsXFwyXFw6XFwwLjc3NzIyMzBcXCxcXDNcXDpcXDAuNjcyMTU0OFxcLFxcNFxcOlxcMTVcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43NjE3OTE5XFwsXFwyXFw6XFwwLjgwNDY2NTFcXCxcXDNcXDpcXDAuNjI0MDg5MFxcLFxcNFxcOlxcMjBcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43Mzc1NzA2XFwsXFwyXFw6XFwwLjgxNjIwMzBcXCxcXDNcXDpcXDAuNTk3ODM0N1xcLFxcNFxcOlxcMjRcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC43MTA4MTEzXFwsXFwyXFw6XFwwLjgyNzE2ODhcXCxcXDNcXDpcXDAuNTY5NjA2NlxcLFxcNFxcOlxcMzFcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42OTg5ODg1XFwsXFwyXFw6XFwwLjgyODY3MjdcXCxcXDNcXDpcXDAuNTUxNDQ1OFxcLFxcNFxcOlxcMzZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42OTkxOTk0XFwsXFwyXFw6XFwwLjgyMTI2NjZcXCxcXDNcXDpcXDAuNTM2OTY3MVxcLFxcNFxcOlxcNDRcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWY5KzVwWkRFZlZiN045d1paMTdZelhkL3VYNURWRi9iRjNzWHlUTXpLOVdWTFovUGt2M0FQOUNEdnRuKzc1N1QzcmlaUDhzVGxaeWVsZVQvYlA0NjJuc09yeHdjNTZrbjNwWS9jakovcm5qVkVhZWg5L3RYOXhuT241TTFNZis1ZjRMWDJKZWE5dS9rZ3U5V2VDNHdQNVZoZFl5enZYNzdGKzExQ3haZklyWC9wWDdoUjl6dTRUaDVyeldNNzhrbXROaS8veFFxMWZ5NVIvMlQ1dThEdHM0Q2RrLy90Rlp1SDZxay8xanhUSm4rVTFIN0I5Wm1TODZNdmUvL2NPbGhWdE5EZnJ0SCtwZG5Teit1aHhvQnNoTkhGQS9na0tGSDRoRmdGZ0NpT1dCV0FXSWRXRDJPYWd5Z0lHREtKVG1nZEpzVUpvSlF0di9nZEkvb1BRWEJpaEFDV0RXdk1UYzFHSWdRd0RzQUlnZ1M1QnZzQ3VVelJGVVhGaWFXSlNhQXVVeit6ckNwRmh5UzRvcW9XeXV6TERFb3VKNHNBaXFEWnhGK2VWNk1GdEFYbVZxZ0xpREE5MHB5VG1KeFRDbndBUzVVaEpMRXZYU2lvRDZnYngvYUZyWTh3dEtNdlB6Z0pxWVFCSENDUTFBUmloR05vaXhDQnFDakE0YXNKQ0E4Z1hnZkdRTkFxVjVJRmVuNkNabmxPWmw2eG9ab2NrekYrU2xJOW5IQVBVZEl6UXlZV3hXaUpPWi9rTzFjOElDTHpVNUl4L0taa3ZOUzgvTVM0VUZXRnBtdWw1NVprcEpCaXdNUUFJWnFabnBHU1d3b01wSlRFck5nVGtrSmJVTXl1UURoalU0cVBVS2lqTHpZS3E1Z0tMRmVpWDVKWWt3TFZ6SitUa3dFWENvTXZ3REFGdUp3R1dWQXdBQSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9875130\,\2\:\0.6376700\,\3\:\0.8493919\,\4\:\5\,\5\:\10.50\},{\1\:\0.8762716\,\2\:\0.7267556\,\3\:\0.7424952\,\4\:\10\,\5\:\5.25\},{\1\:\0.8066026\,\2\:\0.7772230\,\3\:\0.6721548\,\4\:\15\,\5\:\3.50\},{\1\:\0.7617919\,\2\:\0.8046651\,\3\:\0.6240890\,\4\:\20\,\5\:\2.75\},{\1\:\0.7375706\,\2\:\0.8162030\,\3\:\0.5978347\,\4\:\24\,\5\:\2.25\},{\1\:\0.7108113\,\2\:\0.8271688\,\3\:\0.5696066\,\4\:\31\,\5\:\1.75\},{\1\:\0.6989885\,\2\:\0.8286727\,\3\:\0.5514458\,\4\:\36\,\5\:\1.50\},{\1\:\0.6991994\,\2\:\0.8212666\,\3\:\0.5369671\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmlzcllYSlBiMk5RT0ZZcmVtTk5lRzVHVGtzeFRITllPVFpKV0RKd2MweHRiaTlKY2xVM2VVZGxNM1JtTTNwUFpXVTBlblZVV0RKcUwySlBNVWhtVDJKMldTOXNiRGhwTVhWemNIQnFPWE0zUkVReWVWVTRXWFZFYlZCSGJqbGtNV0ZvZDJNekszVm1LMFkyVldObU4weFNMMk5rTVhZMFYxVjFXR1oxV0hWNlYwTTFVMUZyTjFZdlNqTndSSGt6VEc1V0wyeFhSbUZLV0dGUGFTODNWbmt4TWxJd1QyMURPV2t2T0haemRXWlBaV3BMVG5sak1UWkxUVEJvVDJzM1QzbG1OeTlxSzJaTk0yWnhMMXBRVjNkV1F6SkZiMjB5UkM4clNTOUVjMDVGZFdVdlYwMHhhamhRVUZZMUszaG1NbEkwV204eFpsUk1VRGwzTmxVdlNXdDBNMmc1YXk4eFNtZzVPV042VlRrd1FYcGxSVWh0VVZBd1NVTm9WaXRKUWxsQ1dXZHJaMnhuWkdsR1UwUlhaMlJ1Ym05TmIwRkNaelpwVlVwdlNGTnlUa0poVTFsSlltWTRTRk4ySzBFd2JEaFpiMEZCYkdkR2JucEZiazVVYVRSRlRVRmlRVVJKU1VselVXSTNRbkpzUVRKU01VSjRXVmRzYVZWWGIwdHNUUzl6Tm5kcFZGbHphM1JMWVhGRmMzSnJlWGQ0UzB4cGRWQkNTWEZuTW1OQ1lteHNLM1pDWWtGR05XeGhhMEkwWnpSUFpFdGphelY1VVZkM05YZERSU3RTUzFOVGVFb3hSWE55UVhWdlNEaDJObWhoVjBoUVRIbHFTbnBOT0VSaGJVbERTbEpLVDJGQlFYbFJha2Q1VVZsNFJqQkNRbXRrVGtOQmFGRlRWVXgzUkc1Sk1uTlJTMDB3UkhWVWNFWk9lbTFxVGtNNVlqRTRaMGxVV2pZMVNVTTRaSGxVTkVkeFR6aFpiMXBGU2xrM1RrTnVUWG93U0RaeFpFVjRXalJ4WTJ0YUsxWkJNbGN5Y0dWbGJWcGxTMmw2UVRCcVRGUTVZMjk2VlRCdmVWbEhSVUZGYzJoSmVsVjZVRXRKUlVaV1ZUVnBWVzF2VDNwRFJYQnhWMVpSU21nNGQzSk5Sa0p5Vm1SUmJFcHJTRlU0TUVaR1F6TlhTemhyZGxOWlVuQTBWWEpQZWpSSFNtZEZUMVkwVWpoQmFYbDNiMlp3VlVSQlFVRTlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjk4MzcyODBcIixcIjJcIjpcIjAuNjQxMzU2OVwiLFwiM1wiOlwiMC44NDYzMTQwXCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCIwLjg3NTAyNDVcIixcIjJcIjpcIjAuNzI4NDkzMFwiLFwiM1wiOlwiMC43NDEzMjkxXCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCIwLjgwNzY2MjhcIixcIjJcIjpcIjAuNzc2MjgyNlwiLFwiM1wiOlwiMC42NzI0OTMxXCIsXCI0XCI6XCIxNVwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjc2MjM5NTVcIixcIjJcIjpcIjAuODA0MDk2NFwiLFwiM1wiOlwiMC42MjQ1MTk4XCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjczNzg5MTJcIixcIjJcIjpcIjAuODE2MTQzMVwiLFwiM1wiOlwiMC41OTg0MjM0XCIsXCI0XCI6XCIyNFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjcxMDY0MDVcIixcIjJcIjpcIjAuODI3MTU4N1wiLFwiM1wiOlwiMC41Njg1NzkwXCIsXCI0XCI6XCIzMVwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjY5OTE1OThcIixcIjJcIjpcIjAuODI4NjQzMlwiLFwiM1wiOlwiMC41NTE1MTAwXCIsXCI0XCI6XCIzNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY5ODA5MTRcIixcIjJcIjpcIjAuODIyMTM5M1wiLFwiM1wiOlwiMC41MzYyMDcxXCIsXCI0XCI6XCI0NFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZisrYXJPb2NQOFYremNNeG5GTksxTHNYOTZJWDJwc0xtbi9JclU3eUdlM3RmM3pPZWU0enVUWDJqL2JPMUhmT2J2WS9sbDhpMXVzcHBqOXM3REQyeVU4WXVEbVBHbjlkMWFod2MzK3VmK0Y2VWNmN0xSL2NkMXY0V1V1WGZ1WHV6V0M1U1FrN1YvSjNwRHkzTG5WL2xXRmFKWGFPaS83VnkxMlIwT21DOWkvOHZzdWZPZWpLTnljMTZLTTBoT2s3T3lmNy9qK2ZNM2ZxL1pQV3dWQzJFb20yRC8rSS9Ec05FdWUvV00xajhQUFY1K3hmMlI0Wm8xZlRMUDl3NlUvSWt0M2g5ay8xSmg5OWN6VTkwQXplRUhtUVAwSUNoVitJQllCWWdrZ2xnZGlGU0RXZ2Rubm9Nb0FCZzZpVUpvSFNyTkJhU1lJYmY4SFN2K0EwbDhZb0FBbGdGbnpFbk5UaTRFTUFiQURJSUlzUWI3QnJsQTJSMUJ4WVdsaVVXb0tsTS9zNndpVFlza3RLYXFFc3JreXd4S0xpdVBCSXFnMmNCYmxsK3ZCYkFGNWxha0I0ZzRPZEtjazV5UVd3NXdDRStSS1NTeEoxRXNyQXVvSDh2NmhhV0hQTHlqSnpNOERhbUlDSlJKT2FBQXlRakd5UVl4RjBCQmtkTkNBaFFTVUx3RG5JMnNRS00wRHVUcEZOem1qTkM5YjE4Z0lUWjY1SUM4ZHlUNEdxTzhZb1pFSlk3TkNuTXowSDZxZEV4WjRxY2taK1ZBMlcycGVlbVplS2l6QTBqTFQ5Y296VTBveVlHRUFFc2hJelV6UEtJRUZWVTVpVW1vT3pDRXBxV1ZRSmg4d3JNRkJyVmRRbEprSFU4MEZGQzNXSzhrdlNZUnA0VXJPejRHSmdFT1Y0UjhBaXl3b2ZwVURBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9837280","2":"0.6413569","3":"0.8463140","4":"5","5":"10.50"},{"1":"0.8750245","2":"0.7284930","3":"0.7413291","4":"10","5":"5.25"},{"1":"0.8076628","2":"0.7762826","3":"0.6724931","4":"15","5":"3.50"},{"1":"0.7623955","2":"0.8040964","3":"0.6245198","4":"20","5":"2.75"},{"1":"0.7378912","2":"0.8161431","3":"0.5984234","4":"24","5":"2.25"},{"1":"0.7106405","2":"0.8271587","3":"0.5685790","4":"31","5":"1.75"},{"1":"0.6991598","2":"0.8286432","3":"0.5515100","4":"36","5":"1.50"},{"1":"0.6980914","2":"0.8221393","3":"0.5362071","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbnBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNGeHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5wXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucFxuYGBgXG5gYGAifQ== -->
```r
```r
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqb3hNaXdpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjoxMiwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmprck5YQmFSRVZtVm1JM1RqbDNXbG94TjFsNldHUXZkVmcxUkZaR0wySkdNM05ZZVZSTmVrczVWMVpNV2k5UWEzWXpRVkE1UTBSMmRHNHJOelUzVkROeWFWcFFPSE5VYkZwNVpXeGxWQzlpVURRMk1tNXpUM0o0ZDJNMU5tdHVNM0JaTDJOcVNpOXlibXBXUldGbGFEa3ZkRmc1ZUc1UGJqVk5NVTFtS3pWbU5FeFlNa3BsWVRsMUwydG5kVGxYWlVNMGQxQTFWbWhrV1hsNmRsZzNOMFlyTVRGRGVGcG1TWEpZTDNCWU4yaFNPWHAxTkZSb05YSjZWMDAzT0d0dGRFNXBMeTk0VVhFeFpuazFVaTh5VkRWMU9FUjBjelJEWkdzdkwzUkdXblZJTm5Gckx6RnFlRlJLYml0Vk1VZzNRamxhYlZNNE5rMTJaUzh2WTA5c2FGWjBUa1JtY25SSUszQmtibE42SzNWb2VHOUNjMmhPU0VaQkwyZHJTMFpJTkdoR1owWm5RMmxQVjBKWFFWZEpaRmRFTWs5aFozbG5TVWRFUzBwVWJXZGtTbk5WU205S1VYUjJMMmRrU1M5dlVGRllRbWxvUVVOWFJGZDJUVlJqTVVkSloxRjNSSE5CU1dkblV6VkNkbk5EZFZWNlVrWlZXRVpwWVZkS1UyRkJkVlY2SzNweVEzQkdhSGxUTkc5eGIxZDVkWHBNUkVWdmRVbzBjMEZwY1VSYWVFWXJaVlkyVFVaMFFWaHRWbkZuVEdsRVFUa3djSGxVYlVwNFZFTnVkMEZUTlZWb1NreEZkbGhUYVc5RU5tZGllQzloUm5KWk9IZDBTMDEyVUhwblNuRlpVVUpJUTBOUk1VRlNhV2hIVG05cGVFTkNjVU5xUVRSaGMwcERRVGhuV0dkbVIxRk9RWEZXTlVsR1pXNDJRMXB1YkU5YWJEWjRiMXB2WTJ0NlJpdFRiRWs1YmtoQlVGVmtTWHBSZVZsWGVGZHBTazlhTDJ0UE1XTTRTVU5NZWxVMVNYZ3ZTMXByZGs1VE9DOU5VelJWUmxkR2NHMTFiRFUxV210d1NrSnBkMDFSUVVsYWNWcHVjRWRUVjNkdlRYQktWRVZ5VG1kVWEydEtZbFZOZVhWUlJHaHFWVFJ4VUZWTGFXcE1lbGxMY1RWblMweEdaV2xZTlVwWmEzZE1WbnBLSzFScmQwVllRMjlOZG5kRVFVWjFTbmRIVjFaQmQwRkJJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjk4NzUxMzBcIixcIjJcIjpcIjAuNjM3NjcwMFwiLFwiM1wiOlwiMC44NDkzOTE5XCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCIwLjg3NjI3MTZcIixcIjJcIjpcIjAuNzI2NzU1NlwiLFwiM1wiOlwiMC43NDI0OTUyXCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCIwLjgwNjYwMjZcIixcIjJcIjpcIjAuNzc3MjIzMFwiLFwiM1wiOlwiMC42NzIxNTQ4XCIsXCI0XCI6XCIxNVwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjc2MTc5MTlcIixcIjJcIjpcIjAuODA0NjY1MVwiLFwiM1wiOlwiMC42MjQwODkwXCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjczNzU3MDZcIixcIjJcIjpcIjAuODE2MjAzMFwiLFwiM1wiOlwiMC41OTc4MzQ3XCIsXCI0XCI6XCIyNFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjcxMDgxMTNcIixcIjJcIjpcIjAuODI3MTY4OFwiLFwiM1wiOlwiMC41Njk2MDY2XCIsXCI0XCI6XCIzMVwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjY5ODk4ODVcIixcIjJcIjpcIjAuODI4NjcyN1wiLFwiM1wiOlwiMC41NTE0NDU4XCIsXCI0XCI6XCIzNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY5OTE5OTRcIixcIjJcIjpcIjAuODIxMjY2NlwiLFwiM1wiOlwiMC41MzY5NjcxXCIsXCI0XCI6XCI0NFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZjkrNXBaREVmVmI3Tjl3WloxN1l6WGQvdVg1RFZGL2JGM3NYeVRNeks5V1ZMWi9Qa3YzQVA5Q0R2dG4rNzU3VDNyaVpQOHNUbFp5ZWxlVC9iUDQ2Mm5zT3J4d2M1NmtuM3BZL2NqSi9ybmpWRWFlaDkvdFg5eG5PbjVNMU1mKzVmNExYMkplYTl1L2tndTlXZUM0d1A1VmhkWXl6dlg3N0YrMTFDeFpmSXJYL3BYN2hSOXp1NFRoNXJ6V003OGttdE5pLy94UXExZnk1Ui8yVDV1OER0czRDZGsvL3RGWnVINnFrLzFqeFRKbitVMUg3QjlabVM4Nk12ZS8vY09saFZ0TkRmcnRIK3BkblN6K3VoeG9Cc2hOSEZBL2drS0ZINGhGZ0ZnQ2lPV0JXQVdJZFdEMk9hZ3lnSUdES0pUbWdkSnNVSm9KUXR2L2dkSS9vUFFYQmloQUNXRFd2TVRjMUdJZ1F3RHNBSWdnUzVCdnNDdVV6UkZVWEZpYVdKU2FBdVV6K3pyQ3BGaHlTNG9xb1d5dXpMREVvdUo0c0FpcURaeEYrZVY2TUZ0QVhtVnFnTGlEQTkwcHlUbUp4VENud0FTNVVoSkxFdlhTaW9ENmdieC9hRnJZOHd0S012UHpnSnFZUUJIQ0NRMUFSaWhHTm9peENCcUNqQTRhc0pDQThnWGdmR1FOQXFWNUlGZW42Q1pubE9abDZ4b1pvY2t6RitTbEk5bkhBUFVkSXpReVlXeFdpSk9aL2tPMWM4SUNMelU1SXgvS1prdk5TOC9NUzRVRldGcG11bDU1WmtwSkJpd01RQUlacVpucEdTV3dvTXBKVEVyTmdUa2tKYlVNeXVRRGhqVTRxUFVLaWpMellLcTVnS0xGZWlYNUpZa3dMVnpKK1Rrd0VYQ29NdndEQUZ1SndHV1ZBd0FBIn0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9875130","2":"0.6376700","3":"0.8493919","4":"5","5":"10.50"},{"1":"0.8762716","2":"0.7267556","3":"0.7424952","4":"10","5":"5.25"},{"1":"0.8066026","2":"0.7772230","3":"0.6721548","4":"15","5":"3.50"},{"1":"0.7617919","2":"0.8046651","3":"0.6240890","4":"20","5":"2.75"},{"1":"0.7375706","2":"0.8162030","3":"0.5978347","4":"24","5":"2.25"},{"1":"0.7108113","2":"0.8271688","3":"0.5696066","4":"31","5":"1.75"},{"1":"0.6989885","2":"0.8286727","3":"0.5514458","4":"36","5":"1.50"},{"1":"0.6991994","2":"0.8212666","3":"0.5369671","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBNWtBQUFFekNBSUFBQUEwTEZEUUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzNkZjJ3YmFYclk4V2NrMmQ2OVgyMENCYjA5V29IZEk0MUVVSkcweTFaWXFrYXhmN1FCSlJ3aHBJcVFMZ0tyS0JDeEJvcFFDdUFyMEhVVEpMVmJZQTJzTkFFS1F5cFF4RzZ3S1hSQ0liQ1ZtQ1ovR09oQzlPcXFJRGxVRUZweEVyc3JjL2ZhS0wzY0JaZXMxaGJmL2tGU29paitFdWNkenJ5ajd3Y0RtQnkrZlBpYW5FZnZ3NWwzT0paU1NnQUFBQUFEOWZuZEFRQUFBS0JMMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZNTjlPeVY0dkY0ejE0TDJON2U5cnNMWmlBeDRRVVMwQ1VTRTU0S1dZYjJycGFWcnQ2N2c0T0R3Y0ZCdmQzd0lxWlpZVVBmVllhQmN6bHZZbXIvb0lPejVmUTRabGc3U1FKcTRYdGlFak9zTWNPWG9jd3hBQUFBZ0ttb1pRRUFBR0NxbnM0eEtQdWpGMitjcS8zM1gzVFU3QXVXMVhuTVQ0dWR0dnlDMWQ5aHkwc2kzLytrbzVZRDFqbStRcnd1OHNOUE93c3JuWGIxeXlLSG5jVVVrVXRXcHh2Smo0cVV2dHRSeTVLVU9vejVWMFZlZFJaVFJBYSs2blRhRkdkc2YzeXQ4OGJQUCs2bzJXWHJWWWNCUDludnFObVZqcmNjRWZuVHptSU9XT2U0WGt3bmY0NHVuZU5Qa1h6YzJkK2l5M0tPb04vdElPWTUza2VSVHpycjVOY2luZjBGeEhsOHQvaTE4elR1cU5rWE92NnJmbG5rQjUxOXFwYzZIaXUvS1BLWG5RMUFmUjF2OXAwUGF2MGRqNytkano1OUhlOFc3SHlVVk5McDM2VWZFVG5xTEdiL1Z3c2R4alFPKzJVQkFBQmdLbXBaQUFBQW1JcGFGZ0FBQUthaWxnVUFBSUNwcUdVQkFBQmdLbXBaQUFBQW1JcGFGZ0FBQUthaWxnVUFBSUNwcUdVQkFBQmdLbXBaQUFBQW1JcGFGZ0FBQUthaWxnVUFBSUNwcUdVQkFBQmdLaDIxYkhFMXM3RFY5QzR1aHI0M0N1WEY3NDZnaXNRRUFvakV2S2dZSmIzanZwYmRXcmo5K0ZuVHU3Z1FhcE9UUkEwR0VoTUlJQkx6Z21LVTlOU0F5K2R2TGVRVEQyODlYMmw4dHl3ZWo1ZHZIQndjdUh3NW9BVTJzR01rSm5xUERha3RFaE0rQ3ZFVzVXNi83TlpDUGpFLzJ1eHUxZmIyOXZiMnRvZ01EZzRPRGc2NmVrV2d1Y0Vxdnp2aU54SVRmaUFCMnlBeDRhc1FaNmliL2JMRjFRK2VQSG4yNUltSWlLVGsxcTNudFhmZnpUWklVb1JUNmRQWThVR1QwcWN4Znp0ejRaR1lRQUNSbUJjYW82U24zTlN5a1NrN095VWl4ZFhNeXBBOVB5b3lkZm91TGhDU016QklUQ0NBU015TGpsSFNPL3dtRndBQUFFemw5dHd2RVpISWxEM2YvQzRBWDVDWVFBQ1JtSUJ1N0pjRkFBQ0FxYWhsQVFBQVlDcHFXUUFBQUppS1doWUFBQUNtb3BZRkFBQ0FxYWhsQVFBQVlDcHFXUUFBQUppS1doWUFBQUNtb3BZRkFBQ0FxYWhsQVFBQVlDb2QxN0E5cDYvMGVWSkF2MjU1OG45UlNtbVBhWW1sUGFhSURGajlYb1F0U2NtTHNBaWFydzhjYVkvNXVuVlpiMEF2dHNZKzNmbDQyYnFrTnlBdXNvK1BOQ2VSaUh6UmVxazk1b0M4MGg2ejM0T2hja0QwaituNkkzcmp1dDhkOEE3N1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0ttb1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0ttb1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0ttb1pRRUFBR0FxZDdWc2NUV1RTcVZTcWN4cXNXNWQ3Um9BUFVWaW1xRHZqVUo1OGJzajZCVVNFL0RHZ0x1bnYvWE43RlJFdGhZeVQ0dFRVeEdSNG1ybVBmbG1OaHZSMHpzQTNTQXhnNjYyaE8xN28xRDZOT1pqWjlBckpDYmdDWGUxYkNRU0VaSGkvdEE3VXhFUmthMlZ4OCtleWUzVTQ3ZmZ6YzZQVmx2RjQvSHlqWU9EQTFjdkI3VEVCbGJSVldMMis5RlRoQWtKMkFZakpud1Y0aTNLNVg1WjJWcEkzWDhpOHZiUTFPaW9iT1hsM1d4MlZJcXJtZmRXaTZOVGxlK2EyOXZiSWhLUHh3Y0hCMFhrVHo1eCtacEFZK1VORE5KVlluNlB4SVE3SkdCYlhTVG1IMy9zWjRjUkppSE9VTGZuZm8zT1o3UFpoN2VlNTdkcVZrYmV1bm5OWlZ3QUxwQ1lBVmM3cVlBSkJoY0hpUWw0UWN2dkdFU0diZzVkRlpHclE1VU1mYkV2UTB3QUF2eEZZZ1phNmROWWVmRzdJK2d4RWhQUXpOVWNnOHJoRXBHMzM4M09pMGhrNnB0RG1WVHFmdlUrQUIrUW1FQUFrWmlBUnl5bFZHOWVLUjZQbDZjQi9ja25ubndCZmQxeU8vZTNJUy9lbjM3TGs1LzF2V0pkOGlLc2toNXRJZTROZk5VcDN6amUyTkRXOFh2MXZVK0d0QWQvWGZjMldaS1Mzb0FpMGllVzNvQ1h2Y25FNE92NzZsNzVCZ25vM3ZGNytPMlByMmtQL2tYcnBmYVlBeDZNRlAyYVUxUEVtMzZhTWtaZXYvcHArVWI0TXBSckpRQUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVREWFErNWY4N3BFSGwxZ1crYkwxdVJkaFgrcStWcnVJL0VXcFgzdE1FZmx5MzZFWFlTOTU4SEY1ZFBYcUgvY203QVh4U2tyYVk1WjB4L3hjSGVrTktDSS8xQjN6SzViK1RsNjJmUGhiZlY1WC9PNUFLSDMvNkhYdE1mL1N1cXc5NXFIU3Y0bDZFZk95OVVwN1RNdURNVTE1VUh0YzF4NHhNTmd2Q3dBQUFGTlJ5d0lBQU1CVTFMSUFBQUF3RmJVc0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVTFMSUFBQUF3RmJVc0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVTFMSUFBQUF3RmJVc0FBQUFURVV0QzRpSVk0OVp0Y1pzNTlUNmRPN3NjM0xwazZibDIyTzJrN050cC9wSWpVYlBCMURSTEFGNzJZR2V2eVpnakU2SHdwcFZ0VTA5SHhQZDFiTEYxVXdxbFVxbE1xdkZtdnNMV3pwNkJ2UlFOTE5aV0V6STdJWlNTcW1OMmZ4Y0xKMHJyMWVGeFlRczM2c2Y1eHo3M3JJa0ZndHFNeFBOcGNkM0ZndEtQWktaOFJVUlNTNnB3bUlpc1ZoUVpZWEY0WjcrYjBoTUdLWlpBdlpJTGgyYnkzdi9NaVFtVE5YWlVGaGRsMXVUMmRubHRaTVU5bnhNZExsZjlxMXZaclBaN0x2WFBueGFGQkdKVE5rUGIxM1gwUy9BUjhrN2l3bloyVHRPMmVuRlJabDdjR3BvZGRabGVqRnhjbi9rUmxRa210bmNtRzRRTDVySkpEM3JiQ01rSmt4V240RGV2K0JTb1RhYlBVTml3bWdkRElVaUlyazFtVnlhUEZYTTF0RStKcnFyWlNPUmlJZ1U5NGZlbVlvMGJ4V1B4K1B4dUlnY0hCd2NIQnk0ZWtXZ3VZTXFsM0VjZTJZdW41aWVPUDZTS1RjeWQwL25aZTdCN28ySjQzdkp5ZG5sOGZJeGsyVG01THRwTlpyZDZ3a0dKQ2I4NEUwQ1ZnNXVwdTFjcmx6Y1ZnNVhwbTA3YlR2bE8rbGNaWFg1TU9meEFjM3l2dDFjMmtyYjlsajUwZnJqb1pYN1Bka3ZTMkxDVis0enRNMVFXT2JzRFU4bUpkbTBtUFZpVEhRN1gzWnJJWlc2L2ZoeHZ0VkJrdTN0N2UzdGJSRVpIQndjSEJ4MCtZcEFNNE5WWFVkWUhyY3N5NHF0VEo4NlhpSWlrcnl6dUhOOGNNV3gxNGJ2MUg2clRDNnBqZG5sOGRNemh2SnpzZklndWR0MWY3cEdZcUwzUEVuQTNJT1Y2WUpTYW5MMzNwNklPUGJZdmVHQ1VrcE43czd0VkZKUFJHcjJyVHIydlozRmdsS0Z4Y1RPbnVQWVkrUExzcndpajVUYXpCVFM1V2R2ak16TjJJNDQ5dGk0YkNpbGVyTmJsc1NFcjl4bmFMdWhVRVRFV1pjYlNaRUd4YXlIWTZMYlduWjBQcHZOUHJ6MXZHVnFBb2FZM1ZCcVk3WThZYUJPTkhOM3BISnd4Vm1YeWZxOXI1SmNVcXF3S0hPeDQzSzJNamVvMTVObFJZVEVoSmthSkdCc1dPWmkxcGdkVzlyTVJNVlpYNUhLRHR2WWNKUHlNNXJaM015SVBSYWJ5K2QzQzlITTVzYXN6TjdOUkVYRTJkc3BENmZqeTVMZkxUanJLN0o0SnlraTBZbnBuaFN6SkNaTTEyNG9kTlpYNXNZdHE1eGxwNHRaRDhkRUxiOWpFQm02T1hSVlJ5REFmOG1sRFJsdmRONUpjbkoyK1o3dFNPN0I3bzNUMzBSejZYTDdhR1p6WXphL1d6ajFZTThueXg0ak1XR2d1Z1NNWmphVktreXZ4RG8vOHptWHRxd1plZFI0WDJ2bDlES2wxSkpQZVVsaXdtek5oMElSY2RibGJqWEZWS0ZtSCs0Skw4WkVWN1hzMWtLcUxEOVVtZjJ6dFhENzhiTW45NnRuYVFJbWFsYk5KdThzeXR6TVdJT0RLc2NuZHpwN080MGlPbmE2aDcvM1EyTENhS2NTTUdmYmprUXptMnBqZG1mUGlkNFl5YStzTjhtbHdtNCtQeGRMcDllV1p6YzJ6K3d1RWhHSjNoaXA3aWpLcGRPNTZJMlIvTW1aTEo3L2RnS0ppWEJvTVJSV0p4aVVSU2VtcFhHKzZoNFRMYVdVeG5BdHhPUHg4aHlnLzdIdnlUZlNMMXRIWG9SOUtaYjJtSDlSNnRjZVUwUyszUGZLaTdDWDlMOEI0dEUyOStPUlQ4czNqamUyampuMldPWGtqOWtOdFpRVXlhV3Q4V1dSUkNLUnorZEZKTEZZMk14RUpaZTIxaWJWVXZLa3ZTUVdDM2RsWFdSbGZDNWZlYjZVbjF5ajh2UUFPbjZ2L3VTVEZxZWpkT21MMWlXOUFUOVgrdFA4aDdwamZzVWEwQnRRUkM1N0VGTzdLMi84Y2ZtR3ZnU2MzZGdZdm5kdkxwOC84NGhJYlZhT0w0dElJcEdRNlVlYm1VSnQ4czdPemk0dkw1K2tZTFh4MldqVlZjRncvQjcrM3JPZjFCNzhzZ2ZENWFIU3Y0bDZFZk95cFgrZ3REd1kwNVFIdGNmUFhLOU1WSFdSb1MyR3d0bFpXVjdPMXd4M0owK3FEcVFuTkkrSjFMSnRVTXRlakZyMjRxS1dwWmJWeFVVdDJ3WEhIcHVSUndIOWl1Z2V0YXhITWFsbEpZeERKTmY5QWdBQWdLa00rSzRQQUVDdHlwVzZZdWtiQVpvWEFNQWYxTElBQU1Na2w1UmE4cnNUQUlLQk9RWUFBQUF3RmJVc0FBQUFUTVVjQTZEaTcvZjlYQmZQK3IzU3Q3VDNCTGlBU3QrOTBjV3orcjY2cDcwbkFNNEs4aEJKTFF0VVdBT2tBK0NibDZxYkgwdTZvcjBmQUJvSjhoQVozSjRCUFdiMWt3NkFidzZwWllFQUMvSVFHZHllQVQxbVhTSWRBTjhjaWlmWHV3R2dSWkNIU0I5NjlzY3ZCNzBJKyt6ekgvTWk3QmY3RHJYSFBDeDU4clo3MFZVUkdmRGdDakVlWEVwTVJPUVhYRDQvd0FkUWV1QUhwWkwybUR1dk5PODErNkwxdWQ2QUl2SlNMdXNOK0NVUE90bW5PNllYT1RqaTd1bUhTdjhXR0FMNUg4YTB4L3l6VjEvUUh2T0tCeGVlOUdLczlLS2ZBNkovMDdVcy9kY1MreG1Yencvd0VCbmNuZ0U5RnVUSlFFRG9mYVk4K3BJTFFJTWdENUhCN1JuUWF3UDlmdmNBdUxnT3FXV0JJQXZ3RUVrdEMxUUYrRXNuRUhxZktSSVFDTEFBRDVIQjdSblFhLzFjT2dUd3phRUs3bDRmQUVFZUlxbGxnYW9BZitrRVF1OVFYZks3Q3dDYUMvQVFHZHllQWIwVzRDK2RRT2d4eHdBSXRBQVBrY0h0R2RCamFxQy9pOFh2WGdNaGNWaTYzTVZ5Tm81amoxbVdOV1k3WjlhZHJHM1VCa0FydW9aSUx6S1VXaGFvNnUvclpnR2d3MmZxVWhkTGZSVEhudG05cTVTNnV6dHpNZzQ2Njd2VEJhVlVZWHJsUWE1Skd3Q3RhUmtpdmNsUWp1a0FGV3FBd2hUd3pjOUh2MTIrOFp1RlJPdVcvemlXYjliU1dWOFptZHdVa2VUa3lMMTFKNU9KbHRmdjdCWkVvb1hka2NtTU9IYmpOZ0JhK0ozdi9LdnlqWjk1ODFkYnQveXZ2LzlyelI3eUtFT3BaWUVLMWMrRUFjQTNTLy9yNzFWdnRqa0pyR1hMa2VIeWRiSml3eU43MVhYUnpPWmsyckxHWnpmVWtvalRzQTJBbHY3QjMvbjF5cTEyWStWSlM1SGYvZmF2bkg3UWt3eGxSeFJRb1FiNnVsajg3alVRRW9mcVVoZkxtVEE3dXdVUkVTbnM3cHlzZE95OVNhVTJaRHlkYTlvR1FDdWFoa2hQTXBTUkdLanF0N3BaQU9od3FBYTZXT3FDUkNlbWQ5WnlJcEpiMjVtZXFCNmF6RDFZa1poSWNtbEQxbkpOMmdCb1RjY1E2VkdHTXNjQXFDaXhreFh3ejJGSngrL0xSak4zeGJJc1NTd1dOcVBpMkdNUGJtd3VKZTlNMzR0WmN5SXl1NkZFNUZRYkFKM1FNMFI2azZFdWE5bXRoZFQ5SnlMWGJ6MjBweUtWZGNYVnpNcVFQVC9xTGpMUWF5bzhPMWxKVEpqbnNLUm4zMHB5U2FtbHl1MW9abk9wOHEvS05HblRReVFtREtacmlQUWlRMTFWMmNYVi9VUTJtODIrZSszeHlsWmwzZGJDN2NmUDNBUUZmS0w2clM0V3YzdmRBSWtKRXgyV0JycFkvTzcxT1pDWU1GcVFoMGhYZndnaVUrV3ZscU9KdHovWUw4cG9STFlXOG9tSHQ1NnZuR29XajhmTE53NE9EdHk4SE5DYXl3MU05UVd4TU8wQ2lRbGZ1TnlRems1K0RSa1NFLzRLOFJDcDZXL0gwTTIzSWlKYkMvbkUvTHlzZm5ENndlM3RiUkdKeCtPRGc0TWlJai9RODVwQW5jb0cxcTNTcGVBbWFwZk9rNWpmZitGSER4RWlMaFB3ODZPUTE3SW56alZpZnRlSERpS1VRanhFNnZqYnNiV1FINXFmbCtMcUIwK2VQSHZ5UkVSRVV2SnVsZ2xBTUlvSzJhbGZKQ2FNOHJtNkdEL3dUR0xDVEVFZUlsM1hzbHNMcVh3aU95OGlrU2s3T3lYTVpJZXBnam41dFVza0preHplQkgyeTVLWU1GYVFoMGhYZnp1S3E1bmJqNStKUEVrOWtiZjVWZ25EbFFLY3FPZENZc0pFTDQwNmthc0xKQ2FNRnVRaDB1VzVYK1h2bFdmV3pydUpDdmhEMTVrbmpqMFdtOHNuRmd1Yk5WZVJ6cVd0OFdXUjJRMjFsTlR6TXMyUm1ERFI1NldRenpFZ01XRzBJSitjMlhyNlF5NXRqZGxPajdvQytFdjFXVjBzOVZFY2UyYjNybExxN3U3TVNlN2swbXVUU3RWY29jOGRFaE1oOUxMVTE4WGlkNjlya1pnSU16MURwSWhqajFuVzZWUXByN0lzeTdJcVEyUXVYWHV2cmRaL0NKSkw2cEhNbkNzZ1lLcVBmdXVYeTB0cFFGb3Z0UzNyT09zckk1TkpFVWxPanF5c1YzTFYyWlBobUloSThzNmk3TGtmNjBoTWhORG5wWUV1RnI5N1hZdkVSSmkxSFJrYkx2VWE3ZTV4Q2pjZUthV1VVaHVMNWJFeUo1TktLZFh4Y2N5MmZ3aXFGMlBJcFMxclhLVHV3Q2tRSG4vN243eGZ1ZFZ1WDAvTGxpUGxWSlRZOE1qZThjcWRsWFVub3pOelNFeUV6Y3VqUU8xazdRNkppZEQ2OW0vK2N2bkd5UWpZeEgvLzk3L2M3Q0ZuZldWa2NsTkVrcE1qOTZyRFlqUlpLVmx6ZXpLUkZKSGMydmo0K0hteXA2Ty9IWTQ5Wm8wdkp4WUxxdktsazhNb0NLRlN2OVhGY2liTXptNUJSRVFLdXp2VlZkSE0zWkc1bUdWWlZteGxlRUxieUVaaUlreGVsdnE3V1B6dWRRTWtKa0xwelY5Y0tDOXRoOFhqbG0vKzRzS1pNRFc3ZStvZnl1M0pSRlJFbk5nZHBkVGQzVmpIcWROMnZxeGxXZGFNUEZKS2JXYWk1UytkU2oyU0IrUW13a2IxZDdQVWlVNU03NnpsUkNTM3RqTjlVclltbDVSU2FtTjI5cTZPblRRa0prTG8xVkYvRjR2ZnZhNUZZaUxNdEF5UkRYZjNWRlJMV1lsR295S1NYQ3BNNzY1M2xqbnQ5c3ZPYmxSenNsWmhkN25TR1NBMDlDUnFOSE5YeGkzTHVqZjhLQk1WeHg1TDU0N250YTlONnZvUkF4SVRvZk9xMU5mRjRuZXZUeU14RVY1ZTd1NFJxU2xscTV6MUZiblIyZDZmZG44SWx0Y2F6V0JQTHZYZ2g0V0EzaXIxZDdPY1ZkNEhXeDdQb3BuTnBXUmw1MHpuMDlqYkl6RVJPaStQK3JwWS9PNzFhU1Ftd2t2UEVObG9kNCtJMUpheTFiMC9NL0tvMDhScDh6c0drN09uN2p1MnpjbVpDSzIrcmhZZmtKZ0lvVktwcjR2RjcxN1hJakVSYXBxR3lMTzdlOHFyajArUHJ1NzlPY2Q1azIzbXk2NHRMNDliSjJKenU1MEdCa3lqYTcrczkwaE1oTkRMVi8xZExINzN1aGFKaVRBTDhoRFpici9zNG1KQm5TZ3NEdmVvWDBEUHFiNXVGaitRbUFpaGtySzZXTTdHOGVLWDJEdERZaUxNZ2p4RXR0a3ZlMm9tcm1QUDdONWcwZy9DU3ROSm1qMUFZaUtFU2tkV0YwdDlGRzkraWIwekpDYkNMTWhEWkxOckpaUXZLUzhpTWpkWHN6cXg2RWpTNVc4SzViNzNOOXdGYUd6QUtua1I5a3NEaDlwai90L0RMMnVQS1NLWCsxNTVFdFk2MGg3VHNwVDJtQ0x5Qys2ZTd0Tk8xblB4TURGLy96RGlMa0FEcjFrdjlRYjh6TkovbmFkUFh2Nkkzb0NYUEVpWks1Ym03Tzd6NEEvbW1WK0xQQjluK203NXh0Zi80Nzl1M2ZLUGZ2NWZOR3ZwMFMreHQrMjdkNG1aLzlPLzdpNUFBNWY3OUcraXIvWHJINEQrN1BQWHRNZTg1TUgvdmQrREVjMmpVZEtOSUErUnpRYUc4c1ZMY3JZZDAzcXhJaUM0VktBdWg5a1lpWW5RdXY1Yi82WjZzOEhNZ1k1Yk5yendYbG0xbEhWaWQ1UmF5cVd0TVZ0VE9VdGlJdnlDUEVTMm1TOWJsNWFjbFlrUUMvSmtvTk5JVElTUUtsbGRMR2ZDZVBKTDdKMGhNUkZtUVI0aTI3eE9aWDQ4WjJYaUFnanlaS0E2SkNaQ3FHUjFzNXptMFMreGQ0akVSSWpwR2lJN09UdXpRWnVXMnYwbWwyeW9VL2pCWjRSV2tMOTBua1ppSW9UVWtkWEZVaC9GbTE5aTd3eUppVERUTTBSMmNuWm1vemF0dFpsamNHZDRyL1lRQ1VkTUVHTG03SmNsTVJGQzFwSFZ4WEkyamhlL3hONFpFaE5odHZmdWZIbHBPeXdldDl4N2Q3NHVpTE8rTWpLWkZKSGs1TWhLZFlwUE5GazVSYkw4amJOaG05YmFUT1V0N002Tlc3V25aYzV1WkRyNlB3UEdDZkpKbW5WSVRJUlFnOG12aGlFeEVXTFI5eFlxdDlxTmxTY3RSWnh2MXBXejdjL09kRnExYWF4MUxadGIyMWtzS0U3THhJV2dCZ0wzR3loTmtKZ0lvWVk3V1kxQ1lpTE1OQTJSTzdzRmtXajU3TXlKVTQ5VWYyaWtWWnNtMnN3eFdMcDdvMUJ6bnlNbUNERno1c3VTbUFpalVsZExnSkNZQ0RNdFEyUW5aMmUyYU5OTW0vMnk2Zkh4NVZOck9HS0MwRkw5eHV5WEpURVJQaUhZTDB0aUlzVDBESkhSekYyeExFc1NpNFhOcURqMjJJTWI1VW50SjN0bDY5cDBvczErV2E0dWpRdkU2bXJ4QVltSkVMSkszU3hCUW1JaTFEUU5rVzNQenF4cjA0azI1MzRsTTZlK1ZFYTVwQW5DeTV6NXNpUW1Rc2g2WmZwK1dSSVRZUmJrSVRMQWx5UURlcXd2dUlrS2hGN0FkcklDT0MzQVF5UzFMRkJoem54WklJU3NJNzk3QUtDNUlBK1JMay9EM2xwSXBWS3BWR2ExV0w1ZlhNM1UzZ1VNWXZXckxoYS9lOTBRaVFuem1EOWZ0aTBTRXdZTDhoRHBxcFl0cnU0bnN0bHM5dDFyajFlMlJLUzQrdDcrTzlsczlwMzk5OGhObUtkUGRiTUVENGtKRTFsSDNTd0dJVEZodGdBUGthN21HRVNtcGlJaUlxT0p0ei9ZTDhyVnB4OWVTOWdpTXBxNDlzSFRZdVZCa1hnOFhyNXhjSERncXJOQVN5NDNNQ3VRaFdrWFNFejR3bTBDR3JhVDlkeElUUGdyeEVPa3B2bXlRemZmaW9qSXRhR3JJaUp5ZGVqYS9zbUQyOXZiSWhLUHh3Y0hCMFZFL3JlZTF3VHFWRGF3YnZVRitDVE5McDByTWIvdlF3Y1JKaTRUMEt5ZHJLNmNLekVCVFVJOFJPcTRiTkhXUW42by9JM3krZjRMRVJGNXNmOWNRMXlncDZ5K1VoZUwzNzF1anNTRVVVSS94NkNDeElTWmRBMlJqajFtV2RhWTdiUmFuMHRibG1WWjZRNnZuT2U2bHQxYVNPVVQ4Nk1pSXBHM2JqN1BiNG5JVnY1NStWc25ZSkMrZnRYRmNqWk9vMFF0cjJ1VXZoNGhNV0dhQzFITGtwZ3dscDRoMHJGbmR1OHFwZTd1enRRT2g0NDlOaU9QanErUGtKTkpwWlJTMVFzcHRPTnFqa0Z4TlhQNzhUT1JKNmtuOHZhNzJmblJxWGNrbFVySjlWc1BiUklUcHVtemRCeEFxU1JxTXBjZXM1M3FWVXVjOWQzcGd0cU1PdmJZZzF5bTArenNGb2tKRTRWK3ZpeUpDYVB0L2NOL1diN3hFLy9wMTF1My9KOC8reXZOSG5MV1YwWW1OMFVrT1RseWI5MnBYazRrOTJBdW41ZVlOVGU3b1phU2tsc2JIeDlQTEJZNnZ2Q1h5M08vN096VXFUV2o4OW5zdkp1UWdHK08wMjhrKzZ1dFcrNmtmcTFaeXlhSktqdTdCWkZvWVhkazB2dnJzNU9ZTUZHZnBwMnNqajBXbTh1ZkdnZkxxMFJFcER4VU5tampQUklUUmpzZTd3YmFWWTYxSStQeGNIbjg0SEJNUkVSaXd5TjcxWFc1TmRsUUtpbU9QVFpqTzhtSjJCMmxsbkpwYTh6dU1FVzVWZ0pROFZQL3BmS2xzNy9kMUp1V0xSc2xhalN6T1ptMnJQSFpEYldrbzZ0QUNHblpMOXZvd0loVHVQRklxYWlJNUd3NzF1VGdDWUNXK3ZXY0gxTGVzU05TMk4yUmlickhvaFBUSStzaTBXaFVSSkpMaGIzMHVpT2RaS2lPYzcrQVVMalVYK3BpT1JObVo3Y2dJdVZFUGViWWU1TktiY2g0cHpQWmdZdm1PNzh4WDE3NmpxVDFVdHV5anJPK01qS1pGSkhrNU1qS2VtVTZYalNackJ6STNKT0phT00yQUZyVE1rUkdKNlozMW5JaWtsdmJtWjZvVnFteDRmSktLZXpLamVQUzFWbGZxYm5YRXZ0bGdZb0JIVjg2b3hQVE93OXlra3ptMW5hbTcxU3pNUGRnUmU1a0pMcTBzWmJPU2RMaitiS0FpZjdXUDEwbzM3QmN0V3gwWUtRaXR5Y1RTUkduVlJzQWpXa1pJaVdhdVN1V1pVbGlzYkFaRmNjZWUzQmpjeW1aZVRROFpsbmpNcnVobG83bkJDVVdDNXU5T1BjTENKT0JmaDN6OVJvbjZwM3BlekZyVGtSbU40TDdDMzJBbnpUOUtFSHpJNWlWVXJabEd3Qk42QmtpUlpKTDZuaXlYVFN6dVZTOW9USW5LOVU1VHl5aGxnVXFMbWs2OTZSUm9uYVJtOERGMG5lazRYdGU0d01qSWxKVHlyWm9BNkFaWFVPa0Y2aGxnWXBMUWI3d0FSQjJlbjZUcS9HQkVhbmRLMXZYQmtBbmdqeEVVc3NDRlpmN1gvbmRCZURpNnRPVWZ3MlBZSW9rTTVuR2JRQjBJc2hESkxVc1VCSGtMNTFBNkZrbDVwSUR3UlhrSVpKYUZxaTRIT0RKUUVEb1djSGQ2UU1nMEVNa3RTeFFjVW5YTVU0QTU2ZmwzQzhBSGdueUVPbERMZnZmOXIvdVJkalAvdkt5RjJFSExudndSY1NidjloOWZaN0U5U0pvMjkrUDdOTGZkUFhzS3dHZUROUUQvL25ncDdYSGZQYm5QNm8zNEpjdUgrb05LQjVzamE5N3NDRnBUOE0rUzM5bS81eTdQKzBXdFd3amUvdC9UWHZNMG1HLzlwaldnQWNmbnhkYmhCY0RwZkpxVE5Qczc3cDZ0cTRoc3RrVnBHdlhuL2NxMCt5WEJTb3VhL3A5U3dCZDBQTTdCZ0M4b1dlSWJISUZhY2NlbTVIS3BhYTd1TW8wdFN4UUVlU1ROSUhRNjN2SmZsa2d1QjYrK1IvS056Si8rSTlhdDdSLytyZWJQZVNzcjR4TWJvcEljbkxrM3JxVHFSU3F1UWR6K2J6RXJMblpEYlVVYTl5bUZXcFpvT0lLNTU0QS91RjNESUFnKytaM2ZxNTg0MHE3S1JYSExVWGt2Wi82MXVrSEcxMUJPcmNtRzBvbHhiSEhabXpuMGZtdk1rMHRDMVJjRHZERWRpRDBtQzhMQkptbUliTFZGYVNqRTlNajYyM2FOTlNubzJkQUdMeG12ZXBpOGJ2WFFFaFlSNnFMeGU5ZUF4ZUZsaUV5T2pHOXM1WVRrZHphenZSRWRmSkFiTGk4VWdxN2NpUGF1RTFMN0pjRktxNzB2L1M3QzhERjFmZUtrNytBNE5JelJEYSt5blRtMGZDWVpZM0w3SVphRXBGelgyV2FXaGFvWUw0czRDZDJzZ0lCcG11SWJIaVY2V2htVTdtNHlqUzFMRkJ4eFdLL0xPQWJpLzJ5UUlBRmVZaWtsZ1VxcnZRRk4xR0IwTE9PK0lGbklMaUNQRVJTeXdJVm5NZ0YrSWo5c2tDUUJYbUlwSllGS29KOEFBVUl2eU5xV1NDNGdqeEVVc3NDRmE4RitBQUtFSG9XdFN3UVlFRWVJdmw5V2FEaWl2V3lpOFh2WGdOaDhlcW9tK1VNeHg2ekxHdk1kbHF0ejZVdHk3S3NkSzRIL3k4Z0ZJSThSTHFzWll1cm1WUXF0YkIxdkdKcklaVTZ2UVl3UkpBVDlaeElUQmpvMWF0dWxqcU9QYk43VnlsMWQzZW10cHAxN0xFWmVhU1Uyc3hFUlNRbmswb3BwWmFTUGZ6L2taZ3dXcENIU0plMWJHVEtmbmpyK3NuOUxVbGtzOWxzZG43VVhWeWc5MTZ6anJwWS9PNTFReVFtekpONzluNTVrYU5TNitWVXk5T2M5WldSeWFTSUpDZEhWdGFQaTluY2c3bDhmaTVXM1JHYld4c2ZiN0RuMW5Na0pneW1hNGhzZk9TazdsREpPWStjNkowdnU1Vy9mLy8rOVZzUDdhbEl6ZHA0UEY2K2NYQndvUFhsZ0ZOY2JtRGh2VllDaVlsZWNMa2hKYi8yejNTMEhCbU9pWWhJYkhoa3I3b3V0eVliU2lYRnNjZG1iQ2M1RWJ1ajFGSXViWTNaaGZKK1duK1FtT2lwUUF5UmxTTW55Vng2ekhaTzBpOG5rN1ZYUjZpNzI1YlcrYkxGcTlQWmJQYWQvZHVaMVdMTjZ1M3Q3ZTN0YlJFWkhCd2NIQnpVK1lwQWpjR3E3cDcrbXFXNldQVCtGenhCWXFJblhDYWdwdm15TzdzRkVSRXA3TzZjZVN3Nk1UMGlJdEZvVkVTU1M0WHAzUktMd1hzQUFBdW9TVVJCVlBXZTc1czlRV0tpdDF4bTZNaFFzYnkwSFJhUFc0NE1GZXVDTkR0eWN2cFF5Ym1QbkdpdFpTT1JpSWlNemorOHVmKzB2djlBME9tcVpSc2NRQ212OHV0a0V4SVRKbEN2WG5XeDFBV0pUa3p2ck9WRUpMZTJNejFSM2VjVEd5NnZsTUt1M0RqZUQrdXNyOVRjNnowU0UwWjVVWHlqdkxRZEZvOWJ2aWkrY1NaTXpaR1Q0M1ZPN0k1UzZ1NXVyRHh3MXQzdGdCZS9ZMUI4K3FFTVJkcTNBd0xsaXRYWHhWSWZwZEdwSjA3aHhpT2xsRkpxWTdHU3hqNGdNUkZzV3M3OWltYnV5cmhsV2ZlR0gyV2k0dGhqNlp4SU5QTm8rSjVsV2RiYTVGTHkrS3ZsakR6cThibGZEWkdZTUlPZUliTGhrWk82UXlYblAzTGlkcjdzMXNMdHg4OUVNa01QN1NsWnpkeCsvRXprK3EySE5qUFpZWndmKzFwbDM4Z1BQdm54MWkyLzhyV1BtN1YwMWxkR0pqZEZKRGs1Y20vZHlXU2lJaEpOVmtiTTNKNU05R1R3SkRGaEhQVlN6NFQxNU5MSlJMdG9abk9wZWtObFRsWWUzKzR4RWhQbXVpTDk3b05FSjZaM0h1UWttY3l0N1V6ZnFUc3M0cXl2eUkxTXM3dXR1SzFsUitlejJmbnFuU2s3TytVeUh1Q2J6ejZ0bkdCODJXcVRzUzFiTmpyMXBLSm5wU3lKQ2ZPb283Q2VmSG1DeElTNTJvNk1IWWxtN29wbFdaSllMR3hHeGJISEh0ell2TE0zRnB2TGl5UVdDNXRKRWNjK2RiY1RYUGNMcUhqdGpXYzZ3dXpzRmtTaTVRTW9FNmNlNlYwcEM1am5kei8vYmIrN0FLQXBUVU5rb3lNbnlWT0hTcm80Y3NKMXZ3Q2RHcDk2SWlMbFV0YkhFMDBBQUFnamFsbEFxNGFubm9oUXlnSUE0QVhtR0FDYU5UejFSQ1NaOGVsMEV3QUFRb3o5c2dBQUFEQVZ0U3dBQUFCTVJTMExBQUFBVTFITEFnQUF3RlRVc2dBQUFEQVZ0U3dBQUFCTTVjTnZjcFgrOEs5NEVmWTFieTUvMkhlb1A2WlYwaC9UTzBySFZldk9CUFVncG9qOHJEZGhMNFlQLytBbnRNZTBYbHA2QS9ZZGFnNG9JbjI2TytrRk5hQTdaMG9lL0s4VCtrUGlTMy93bXZhWVhveEIvVjZNbFI2TkZMcVZQQmdsUGZtL3ozZ1FNeGpZTHdzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZDNXIyZUpxSnBWS0xXeWR2cDlaTGJydEY0RHVrWmhBQUpHWWdDZGMxcktSS2Z2aHJldlZlOFhWOS9iZnlXYXo3K3kvUjI0Qy9pRXhnUUFpTVFGUERHaU1WWHo2NGJXRUxTS2ppV3NmUEMxT1RVWEs2K1B4ZVBuR3djR0J4cGNENnJDQk5VUmlvamZZa002RnhFU1BoWGlMMGxuTGlsd2J1aW9pSWxlSHJ1MmZyTjNlM2hhUmVEdytPRGlvOWVXQVU5akFtaUF4MFF0c1NPZEVZcUtuUXJ4RjZUMzM2L24rQ3hFUmViSC9YR3RjQUM2UW1FQUFrWmlBSGpwcjJjaGJONS9udDBSa0svLzg1bHNSalpFQmRJM0VCQUtJeEFSMGNUdkhZR3ZoOXVObklwbWhoL1pVSkRMMWpxUlNLYmwrNjZGTllnTCtJVEdCQUNJeEFTKzRyV1ZINTdQWithWjNBZmlDeEFRQ2lNUUV2TUMxRWdBQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWXl1MDFiTHR3N1RkMnZRaHJmZUYxTDhLVy92UjcrbU8rL0Z4N1RCR1JVc21McU5hbFM5cGpxcGN2dGNjVUVYbkE1U0M3OTVQM1B0WWY5UFhYOU1ZcmZmcC85QVlVRWZYWm9lYUFTbjhtOWwyK29qZGc2ZkF6dlFGRlJQNDVDYWhmWlBrNzJtTmFyK3NmTGtzLytIUDlNVjk1TUZKNE1GQmFBeDZNa3E5ZWFZOHAvemEwR2NwK1dRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmhLZHkyN3RaQktwVktwaFMzTmNRRzRRR0lDQVVSaUFqb002QTIzSllsc2RsNXZUQUF1a1poQUFKR1lnQlo2YTltdC9QMzc5Ni9mZW1oUFJXcld4dVB4OG8yRGd3T3RMd2Vjd2diV0JJbUpYbUJET2ljU0V6MFY0aTFLNnh5RDR0WHBiRGI3enY3dHpHcXhadlgyOXZiMjlyYUlEQTRPRGc0TzZueEZvTVpnbGQ4ZENSZ1NFejFCQXA0UGlZbmVDbkdHYXExbEk1R0lpSXpPUDd5NS83VFl0aldBbmlBeGdRQWlNUUZOdlBnZGcrTFREMlVvMHI0ZGdCNGlNWUVBSWpFQnQzVE9seTJ1Wm00L2ZpWnkvZFpEZTFSalhBQXVrSmhBQUpHWWdDNDZhOW5JbEoyZDBoZ1BnQVlrSmhCQUpDYWdDOWRLQUFBQWdLbW9aUUVBQUdBcWFsa0FBQUNZaWxvV0FBQUFwcUtXQlFBQWdLbW9aUUVBQUdBcWFsa0FBQUNZaWxvV0FBQUFwcUtXQlFBQWdLbW9aUUVBQUdBcW5kZXc3ZER2L0w5LzEzbmpnNE9Ed2NGQnZSM3dJcVpaWWVrcXpzcTkrSTBPVzJyL1VFelpjaTdtZjV3YzlOZnYvUGx2ZHRqU2lNMkptRWJFTkE3N1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXB1cnBmTmw0UE43TGx3UFFDUklUQ0NBU0UraVVDclkzMzN6VGlKaG1oYVdyY0VQN2gyTEtsbk14LytQa29DbU0ySnlJYVVSTTR6REhBQUFBQUtheWxGSis5d0VBQUFEb0J2dGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21DazR0dTdXUVNxVlNxY3hxOGZTS2hTMFJrZUpxNXZoMkYxRXJUeXhIcWI1RUZ6SHJuM0k2WU5meHo3VFUwTzNXNzZlN3Q2SzRtcW0yMWZNT25PNmI3azhOWGZNZ0szVit1Rjdrby9aazlDd1Q5YVloT1dpUzRBK1hSdVNtR0pPZVp6cEdodGJ6KzRjVUtsNTg2MXNmS2FYVVIrOS80LzJQbEZKS2ZmVFJSL1ZOZnVuOWo4NDhzYlZUUWFvQlBuci9sNzcxb3V1WU5VK3BDK2dxL3FtVzdydmQ1djEwMWRXUDN2L0dOeXBSTmIwRGRaKzFCNThhdXVGRlZ1citjTDNJUjUzSjZGa21hazVEY3RBZ2hneVhRYzlOWlU1NjFuZU1ERDBqS1B0bEkxTlRveUlpbzRtM24rOFhSV1FyZi85K3pYZWw3cHdLVW56NjRiWEVxSWlNSnE1OStOUmQ0RVlCOWNYWDBPM1c3NmVicm00dDVCTVBiMTF2RktmYnNIV2Z0YmVmR2pyblFWWjYrT0Y2azQ5dU8reFJKdXBPUTNMUUpNWU5sOEhNVFRFbVBlczdSb2FlRlpSYTlzVFF6YmNpSXNXcjA5bHM5cDM5MjI3eXN6N0l0YUdySWlKeWRlaWFscTdXQjlRVVgyKzNHNytmM2NiY1dzZ241a2RQN3V0NEIrcjY1dm1uaHZQVGxaWGVmcmdlNUtQR0Rtdk1STzFwU0E0YXlwamhNdGk1S2NGT1R5RkQyd3RZTGJ1MWtCK2Fpb2hJSkJJUmtkSDVoemYzdS8rYVVSL2srZjRMRVJGNXNmOWNSMmZQQk5RVVgyTzNtNzZmM2NVc3JuN3c1TW45Vk9yMjQyZFA3cWNXdHZTOEEzVjk4L3hUd3pscHpFcHZQMXdQOGxGWGgzVm1vZ2RwU0E2YXlLVGhNc0M1S1lGUHo3TWRJMFBQQ0ZJdHU3V1FPdjExUnFUNDlFTVppcmlNV3drU2Vldm04L3lXaUd6bG45OTh5MjFRa2ZxQXV1Tzc3bmJ6OTdQYm1KRXBPNXZOWnJNUGIxMS8rOTNzL0tqV2Q2RHVzL2JxVThQNWVKS1Zubnk0WHVhanV3NXJ6a1R2MHBBY05JZFJ3MlZ3YzFNTVNrOGhRMXZ4ZThKdXhZdHYvZEkzcXQ3LzZQanU4VVRtOGxUcTJoV2R4NndQY255L2k1aDFUMmtZc0l2NHRTMjFkTHZEOTdQTHQ2Sm1Xcm43ZDZDdWIxNThhdWlPOXF6VS91RjZrWTk2azlIRFROU1hodVNnV1l3WUxvT2ZtOHFROUZSa2FBZTRoaTBBQUFCTUZhUTVCZ0FBQU1CNVVNc0NBQURBVk5TeUFBQUFNQlcxTEFBQUFFeEZMUnM0anAyMkhiODdBWUJrQklLSzNFUXRhdG5BS2V6dStOMEZBQ0lrSXhCVTVDWnFVY3Y2SzVlMjBybGMycklzYTh4MlJDU1hIbC9PejhXc2RLN3lxRzJQbFI4cnQ2bzBrL3E3QU53aEdZRmdJamZSanQ4L2NIdVJGUllUSWlJeXU2SFV4cXdrRmd1cVVOaFlUQ1FXQ3llUGx1K29qZG55alVxN3Vyc0FYQ0VaZ1dBaU45SGVnQS9sTXlxaW1jMk5YV3R0Y2lrcDRnd25SRVNpMFZqOW81bW9pRGg3Ty9tNW1EVW5JaUt6QlVkTzNSV0ordEI5SUR4SVJpQ1l5RTIweHh3RFk4eHVWTCtBTENYUDNnWFFNeVFqRUV6azVzVkVMV3VHNkkyUjViV2NpSWprMHVsYzNWMC9ld1pjTUNRakVFems1c1hsN1JRR3RMUXhLeUlpc3h1MVUzN0tLMmMzcW85V3AvbFU3bGEvWjliZEJlQUd5UWdFRTdtSnRpeWxsTTdTR0FBQUFPZ1Y1aGdBQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXoxL3dHOVRpcDZjK3NQbFFBQUFBQkpSVTVFcmtKZ2dnPT1cIiAvPlxuXG48IS0tIHJuYi1wbG90LWVuZCAtLT5cbiJ9 -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA5kAAAEzCAIAAAA0LFDQAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO3df2wbaXrY8Wck2d69X20CBb09WoHdI41EUJG0y1ZYqkaxf7QBJRwhpIqQLgKrKBCxBopQCuAr0HUTJLVbYA2sNAEKQypQxG6wKXRCIbCVmCZ/GOhC9OqqIDlUEFpxErsrc/faKL3cBZes1hbf/kFSoij+Eucdzryj7wcDmBy+fPianEfvw5l3OJZSSgAAAAAD9fndAQAAAKBL1LIAAAAwFbUsAAAATEUtCwAAAFMN9OyV4vF4z14L2N7e9rsLZiAx4QUS0CUSE54KWYb2rpaVrt67g4ODwcFBvd3wIqZZYUPfVYaBczlvYmr/oIOz5fQ4Zlg7SQJq4XtiEjOsMcOXocwxAAAAgKmoZQEAAGCqns4xKPujF2+cq/33X3TU7AuW1XnMT4udtvyC1d9hy0si3/+ko5YD1jm+Qrwu8sNPOwsrnXb1yyKHncUUkUtWpxvJj4qUvttRy5KUOoz5V0VedRZTRAa+6nTaFGdsf3yt88bPP+6o2WXrVYcBP9nvqNmVjrccEfnTzmIOWOe4Xkwnf44uneNPkXzc2d+iy3KOoN/tIOY53keRTzrr5Ncinf0FxHl8t/i18zTuqNkXOv6rflnkB519qpc6Hiu/KPKXnQ1AfR1v9p0Pav0dj7+djz59He8W7HyUVNLp36UfETnqLGb/VwsdxjQO+2UBAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgKh21bHE1s7DV9C4uhr43CuXF746gisQEAojEvKgYJb3jvpbdWrj9+FnTu7gQapOTRA0GEhMIIBLzgmKU9NSAy+dvLeQTD289X2l8tywej5dvHBwcuHw5oAU2sGMkJnqPDaktEhM+CvEW5W6/7NZCPjE/2uxu1fb29vb2togMDg4ODg66ekWgucEqvzviNxITfiAB2yAx4asQZ6ib/bLF1Q+ePHn25ImIiKTk1q3ntXffzTZIUoRT6dPY8UGT0qcxfztz4ZGYQACRmBcao6Sn3NSykSk7OyUixdXMypA9PyoydfouLhCSMzBITCCASMyLjlHSO/wmFwAAAEzl9twvEZHIlD3f/C4AX5CYQACRmIBu7JcFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCod17A9p6/0eVJAv2558n9RSmmPaYmlPaaIDFj9XoQtScmLsAiarw8caY/5unVZb0AvtsY+3fl42bqkNyAuso+PNCeRiHzReqk95oC80h6z34OhckD0j+n6I3rjut8d8A77ZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqd7VscTWTSqVSqcxqsW5d7RoAPUVimqDvjUJ58bsj6BUSE/DGgLunv/XN7FREthYyT4tTUxGR4mrmPflmNhvR0zsA3SAxg662hO17o1D6NOZjZ9ArJCbgCXe1bCQSEZHi/tA7UxERka2Vx8+eye3U47ffzc6PVlvF4/HyjYODA1cvB7TEBlbRVWL2+9FThAkJ2AYjJnwV4i3K5X5Z2VpI3X8i8vbQ1OiobOXl3Wx2VIqrmfdWi6NTle+a29vbIhKPxwcHB0XkTz5x+ZpAY+UNDNJVYn6PxIQ7JGBbXSTmH3/sZ4cRJiHOULfnfo3OZ7PZh7ee57dqVkbeunnNZVwALpCYAVc7qYAJBhcHiQl4QcvvGESGbg5dFZGrQ5UMfbEvQ0wAAvxFYgZa6dNYefG7I+gxEhPQzNUcg8rhEpG3383Oi0hk6ptDmVTqfvU+AB+QmEAAkZiARyylVG9eKR6Pl6cB/cknnnwBfd1yO/e3IS/en37Lk5/1vWJd8iKskh5tIe4NfNUp3zje2NDW8Xv1vU+GtAd/Xfc2WZKS3oAi0ieW3oCXvcnE4Ov76l75Bgno3vF7+O2Pr2kP/kXrpfaYAx6MFP2aU1PEm36aMkZev/pp+Ub4MpRrJQAAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATDXQ+5f87pEHl1gW+bL1uRdhX+q+VruI/EWpX3tMEfly36EXYS958HF5dPXqH/cm7AXxSkraY5Z0x/xcHekNKCI/1B3zK5b+Tl62fPhbfV5X/O5AKH3/6HXtMf/Suqw95qHSv4l6EfOy9Up7TMuDMU15UHtc1x4xMNgvCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtC4iIY49ZtcZs59T6dO7sc3Lpk6bl22O2k7Ntp/pIjUbPB1DRLAF72YGevyZgjE6HwppVtU09HxPd1bLF1UwqlUqlMqvFmvsLWzp6BvRQNLNZWEzI7IZSSqmN2fxcLJ0rr1eFxYQs36sf5xz73rIkFgtqMxPNpcd3FgtKPZKZ8RURSS6pwmIisVhQZYXF4Z7+b0hMGKZZAvZILh2by3v/MiQmTNXZUFhdl1uT2dnltZMU9nxMdLlf9q1vZrPZ7LvXPnxaFBGJTNkPb13X0S/AR8k7iwnZ2TtO2enFRZl7cGpoddZlejFxcn/kRlQkmtncmG4QL5rJJD3rbCMkJkxWn4Dev+BSoTabPUNiwmgdDIUiIrk1mVyaPFXM1tE+JrqrZSORiIgU94femYo0bxWPx+PxuIgcHBwcHBy4ekWguYMql3Ece2Yun5ieOP6SKTcyd0/nZe7B7o2J43vJydnl8fIxk2Tm5LtpNZrd6wkGJCb84E0CVg5upu1crlzcVg5Xpm07bTvlO+lcZXX5MOfxAc3yvt1c2krb9lj50frjoZX7PdkvS2LCV+4ztM1QWObsDU8mJdm0mPViTHQ7X3ZrIZW6/fhxvtVBku3t7e3tbREZHBwcHBx0+YpAM4NVXUdYHrcsy4qtTJ86XiIikryzuHN8cMWx14bv1H6rTC6pjdnl8dMzhvJzsfIgudt1f7pGYqL3PEnA3IOV6YJSanL33p6IOPbYveGCUkpN7s7tVFJPRGr2rTr2vZ3FglKFxcTOnuPYY+PLsrwij5TazBTS5WdvjMzN2I449ti4bCilerNblsSEr9xnaLuhUETEWZcbSZEGxayHY6LbWnZ0PpvNPrz1vGVqAoaY3VBqY7Y8YaBONHN3pHJwxVmXyfq9r5JcUqqwKHOx43K2Mjeo15NlRYTEhJkaJGBsWOZi1pgdW9rMRMVZX5HKDtvYcJPyM5rZ3MyIPRaby+d3C9HM5saszN7NREXE2dspD6fjy5LfLTjrK7J4Jyki0YnpnhSzJCZM124odNZX5sYtq5xlp4tZD8dELb9jEBm6OXRVRyDAf8mlDRlvdN5JcnJ2+Z7tSO7B7o3T30Rz6XL7aGZzYza/Wzj1YM8nyx4jMWGgugSMZjaVKkyvxDo/8zmXtqwZedR4X2vl9DKl1JJPeUliwmzNh0IRcdblbjXFVKFmH+4JL8ZEV7Xs1kKqLD9Umf2ztXD78bMn96tnaQImalbNJu8sytzMWIODKscndzp7O40iOna6h7/3Q2LCaKcSMGfbjkQzm2pjdmfPid4Yya+sN8mlwm4+PxdLp9eWZzc2z+wuEhGJ3hip7ijKpdO56I2R/MmZLJ7/dgKJiXBoMRRWJxiURSempXG+6h4TLaWUxnAtxOPx8hyg/7HvyTfSL1tHXoR9KZb2mH9R6tceU0S+3PfKi7CX9L8B4tE29+ORT8s3jje2jjn2WOXkj9kNtZQUyaWt8WWRRCKRz+dFJLFY2MxEJZe21ibVUvKkvSQWC3dlXWRlfC5feb6Un1yj8vQAOn6v/uSTFqejdOmL1iW9AT9X+tP8h7pjfsUa0BtQRC57EFO7K2/8cfmGvgSc3dgYvndvLp8/84hIbVaOL4tIIpGQ6UebmUJt8s7Ozi4vL5+kYLXx2WjVVcFw/B7+3rOf1B78sgfD5aHSv4l6EfOypX+gtDwY05QHtcfPXK9MVHWRoS2GwtlZWV7O1wx3J0+qDqQnNI+J1LJtUMtejFr24qKWpZbVxUUt2wXHHpuRRwH9iugetaxHMallJYxDJNf9AgAAgKkM+K4PAECtypW6YukbAZoXAMAf1LIAAMMkl5Ra8rsTAIKBOQYAAAAwFbUsAAAATMUcA6Di7/f9XBfP+r3St7T3BLiASt+90cWz+r66p70nAM4K8hBJLQtUWAOkA+Cbl6qbH0u6or0fABoJ8hAZ3J4BPWb1kw6Abw6pZYEAC/IQGdyeAT1mXSIdAN8ciifXuwGgRZCHSB969scvB70I++zzH/Mi7Bf7DrXHPCx58rZ70VURGfDgCjEeXEpMROQXXD4/wAdQeuAHpZL2mDuvNO81+6L1ud6AIvJSLusN+CUPOtmnO6YXOTji7umHSv8WGAL5H8a0x/yzV1/QHvOKBxee9GKs9KKfA6J/07Us/dcS+xmXzw/wEBncngE9FuTJQEDofaY8+pILQIMgD5HB7RnQawP9fvcAuLgOqWWBIAvwEEktC1QF+EsnEHqfKRIQCLAAD5HB7RnQa/1cOgTwzaEK7l4fAEEeIqllgaoAf+kEQu9QXfK7CwCaC/AQGdyeAb0W4C+dQOgxxwAItAAPkcHtGdBjaqC/i8XvXgMhcVi63MVyNo5jj1mWNWY7Z9adrG3UBkAruoZILzKUWhao6u/rZgGgw2fqUhdLfRTHntm9q5S6uztzMg4667vTBaVUYXrlQa5JGwCtaRkivclQjukAFWqAwhTwzc9Hv12+8ZuFROuW/ziWb9bSWV8ZmdwUkeTkyL11J5OJltfv7BZEooXdkcmMOHbjNgBa+J3v/KvyjZ9581dbt/yvv/9rzR7yKEOpZYEK1c+EAcA3S//r71VvtjkJrGXLkeHydbJiwyN71XXRzOZk2rLGZzfUkojTsA2Alv7B3/n1yq12Y+VJS5Hf/favnH7QkwxlRxRQoQb6ulj87jUQEofqUhfLmTA7uwURESns7pysdOy9SaU2ZDyda9oGQCuahkhPMpSRGKjqt7pZAOhwqAa6WOqCRCemd9ZyIpJb25meqB6azD1YkZhIcmlD1nJN2gBoTccQ6VGGMscAqCixkxXwz2FJx+/LRjN3xbIsSSwWNqPi2GMPbmwuJe9M34tZcyIyu6FE5FQbAJ3QM0R6k6Eua9mthdT9JyLXbz20pyKVdcXVzMqQPT/qLjLQayo8O1lJTJjnsKRn30pySamlyu1oZnOp8q/KNGnTQyQmDKZriPQiQ11V2cXV/UQ2m82+e+3xylZl3dbC7cfP3AQFfKL6rS4Wv3vdAIkJEx2WBrpY/O71OZCYMFqQh0hXfwgiU+WvlqOJtz/YL8poRLYW8omHt56vnGoWj8fLNw4ODty8HNCayw1M9QWxMO0CiQlfuNyQzk5+DRkSE/4K8RCp6W/H0M23IiJbC/nE/LysfnD6we3tbRGJx+ODg4MiIj/Q85pAncoG1q3SpeAmapfOk5jff+FHDxEiLhPw86OQ17InzjVifteHDiKUQjxE6vjbsbWQH5qfl+LqB0+ePHvyREREUvJulglAMIoK2alfJCaM8rm6GD/wTGLCTEEeIl3XslsLqXwiOy8ikSk7OyXMZIepgjn5tUskJkxzeBH2y5KYMFaQh0hXfzuKq5nbj5+JPEk9kbf5VgnDlQKcqOdCYsJEL406kasLJCaMFuQh0uW5X+XvlWfWzruJCvhD15knjj0Wm8snFgubNVeRzqWt8WWR2Q21lNTzMs2RmDDR56WQzzEgMWG0IJ+c2Xr6Qy5tjdlOj7oC+Ev1WV0s9VEce2b3rlLq7u7MSe7k0muTStVcoc8dEhMh9LLU18Xid69rkZgIMz1DpIhjj1nW6VQpr7Isy7IqQ2QuXXuvrdZ/CJJL6pHMnCsgYKqPfuuXy0tpQFovtS3rOOsrI5NJEUlOjqysV3LV2ZPhmIhI8s6i7Lkf60hMhNDnpYEuFr97XYvERJi1HRkbLvUa7e5xCjceKaWUUhuL5bEyJ5NKKdXxccy2fwiqF2PIpS1rXKTuwCkQHn/7n7xfudVuX0/LliPlVJTY8Mje8cqdlXUnozNzSEyEzcujQO1k7Q6JidD69m/+cvnGyQjYxH//97/c7CFnfWVkclNEkpMj96rDYjRZKVlzezKRFJHc2vj4+Hmyp6O/HY49Zo0vJxYLqvKlk8MoCKFSv9XFcibMzm5BREQKuzvVVdHM3ZG5mGVZVmxleELbyEZiIkxelvq7WPzudQMkJkLpzV9cKC9th8Xjlm/+4sKZMDW7e+ofyu3JRFREnNgdpdTd3VjHqdN2vqxlWdaMPFJKbWai5S+dSj2SB+Qmwkb1d7PUiU5M76zlRCS3tjN9UrYml5RSamN29q6OnTQkJkLo1VF/F4vfva5FYiLMtAyRDXf3VFRLWYlGoyKSXCpM7653ljnt9svOblRzslZhd7nSGSA09CRqNHNXxi3Lujf8KBMVxx5L547nta9N6voRAxITofOq1NfF4nevTyMxEV5e7u4RqSllq5z1FbnR2d6fdn8IltcazWBPLvXgh4WA3ir1d7OcVd4HWx7PopnNpWRl50zn09jbIzEROi+P+rpY/O71aSQmwkvPENlod4+I1Jay1b0/M/Ko08Rp8zsGk7On7ju2zcmZCK2+rhYfkJgIoVKpr4vF717XIjERapqGyLO7e8qrj0+Pru79Ocd5k23my64tL49bJ2Jzu50GBkyja7+s90hMhNDLV/1dLH73uhaJiTAL8hDZbr/s4mJBnSgsDveoX0DPqb5uFj+QmAihkrK6WM7G8eKX2DtDYiLMgjxEttkve2omrmPP7N5g0g/CStNJmj1AYiKESkdWF0t9FG9+ib0zJCbCLMhDZLNrJZQvKS8iMjdXszqx6EjS5W8K5b73N9wFaGzAKnkR9ksDh9pj/t/DL2uPKSKX+155EtY60h7TspT2mCLyC+6e7tNO1nPxMDF//zDiLkADr1kv9Qb8zNJ/nadPXv6I3oCXPEiZK5bm7O7z4A/mmV+LPB9n+m75xtf/479u3fKPfv5fNGvp0S+xt+27d4mZ/9O/7i5AA5f79G+ir/XrH4D+7PPXtMe85MH/vd+DEc2jUdKNIA+RzQaG8sVLcrYd03qxIiC4VKAuh9kYiYnQuv5b/6Z6s8HMgY5bNrzwXlm1lHVid5RayqWtMVtTOUtiIvyCPES2mS9bl5aclYkQC/JkoNNITISQKlldLGfCePJL7J0hMRFmQR4i27xOZX48Z2XiAgjyZKA6JCZCqGR1s5zm0S+xd4jERIjpGiI7OTuzQZuW2v0ml2yoU/jBZ4RWkL90nkZiIoTUkdXFUh/Fm19i7wyJiTDTM0R2cnZmozattZljcGd4r/YQCUdMEGLm7JclMRFC1pHVxXI2jhe/xN4ZEhNhtvfufHlpOywet9x7d74uiLO+MjKZFJHk5MhKdYpPNFk5RbL8jbNhm9baTOUt7M6NW7WnZc5uZDr6PwPGCfJJmnVITIRQg8mvhiExEWLR9xYqt9qNlSctRZxv1pWz7c/OdFq1aax1LZtb21ksKE7LxIWgBgL3GyhNkJgIoYY7WY1CYiLMNA2RO7sFkWj57MyJU49Uf2ikVZsm2swxWLp7o1BznyMmCDFz5suSmAijUldLgJCYCDMtQ2QnZ2e2aNNMm/2y6fHx5VNrOGKC0FL9xuyXJTERPiHYL0tiIsT0DJHRzF2xLEsSi4XNqDj22IMb5UntJ3tl69p0os1+Wa4ujQvE6mrxAYmJELJK3SxBQmIi1DQNkW3Pzqxr04k2534lM6e+VEa5pAnCy5z5siQmQsh6Zfp+WRITYRbkITLAlyQDeqwvuIkKhF7AdrICOC3AQyS1LFBhznxZIISsI797AKC5IA+RLk/D3lpIpVKpVGa1WL5fXM3U3gUMYvWrLha/e90QiQnzmD9fti0SEwYL8hDpqpYtru4nstls9t1rj1e2RKS4+t7+O9ls9p3998hNmKdPdbMED4kJE1lH3SwGITFhtgAPka7mGESmpiIiIqOJtz/YL8rVpx9eS9giMpq49sHTYuVBkXg8Xr5xcHDgqrNASy43MCuQhWkXSEz4wm0CGraT9dxITPgrxEOkpvmyQzffiojItaGrIiJydeja/smD29vbIhKPxwcHB0VE/ree1wTqVDawbvUF+CTNLp0rMb/vQwcRJi4T0KydrK6cKzEBTUI8ROq4bNHWQn6o/I3y+f4LERF5sf9cQ1ygp6y+UheL371ujsSEUUI/x6CCxISZdA2Rjj1mWdaY7bRan0tblmVZ6Q6vnOe6lt1aSOUT86MiIpG3bj7Pb4nIVv55+VsnYJC+ftXFcjZOo0Qtr2uUvh4hMWGaC1HLkpgwlp4h0rFndu8qpe7uztQOh449NiOPjq+PkJNJpZRS1QsptONqjkFxNXP78TORJ6kn8va72fnRqXcklUrJ9VsPbRITpumzdBxAqSRqMpces53qVUuc9d3pgtqMOvbYg1ym0+zsFokJE4V+viyJCaPt/cN/Wb7xE//p11u3/J8/+yvNHnLWV0YmN0UkOTlyb92pXk4k92Aun5eYNTe7oZaSklsbHx9PLBY6vvCXy3O/7OzUqTWj89nsvJuQgG+O028k+6utW+6kfq1ZyyaJKju7BZFoYXdk0vvrs5OYMFGfpp2sjj0Wm8ufGgfLq0REpDxUNmjjPRITRjse7wbaVY61I+PxcHn84HBMRERiwyN71XW5NdlQKimOPTZjO8mJ2B2llnJpa8zuMEW5VgJQ8VP/pfKls7/d1JuWLRslajSzOZm2rPHZDbWko6tACGnZL9vowIhTuPFIqaiI5Gw71uTgCYCW+vWcH1LesSNS2N2RibrHohPTI+si0WhURJJLhb30uiOdZKiOc7+AULjUX+piORNmZ7cgIuVEPebYe5NKbch4pzPZgYvmO78xX176jqT1UtuyjrO+MjKZFJHk5MjKemU6XjSZrBzI3JOJaOM2AFrTMkRGJ6Z31nIiklvbmZ6oVqmx4fJKKezKjePS1VlfqbnXEvtlgYoBHV86oxPTOw9ykkzm1nam71SzMPdgRe5kJLq0sZbOSdLj+bKAif7WP10o37BctWx0YKQitycTSRGnVRsAjWkZIiWauSuWZUlisbAZFccee3BjcymZeTQ8ZlnjMruhlo7nBCUWC5u9OPcLCJOBfh3z9Ron6p3pezFrTkRmN4L7C32AnzT9KEHzI5iVUrZlGwBN6BkiRZJL6niyXTSzuVS9oTInK9U5TyyhlgUqLmk696RRonaRm8DF0nek4Xte4wMjIlJTyrZoA6AZXUOkF6hlgYpLQb7wARB2en6Tq/GBEandK1vXBkAngjxEUssCFZf7X/ndBeDi6tOUfw2PYIokM5nGbQB0IshDJLUsUBHkL51A6Fkl5pIDwRXkIZJaFqi4HODJQEDoWcHd6QMg0EMktSxQcUnXMU4A56fl3C8AHgnyEOlDLfvf9r/uRdjP/vKyF2EHLnvwRcSbv9h9fZ7E9SJo29+P7NLfdPXsKwGeDNQD//ngp7XHfPbnP6o34JcuH+oNKB5sja97sCFpT8M+S39m/5y7P+0WtWwje/t/TXvM0mG/9pjWgAcfnxdbhBcDpfJqTNPs77p6tq4hstkVpGvXn/cq0+yXBSoua/p9SwBd0PM7BgC8oWeIbHIFaccem5HKpaa7uMo0tSxQEeSTNIHQ63vJflkguB6++R/KNzJ/+I9at7R/+rebPeSsr4xMbopIcnLk3rqTqRSquQdz+bzErLnZDbUUa9ymFWpZoOIK554A/uF3DIAg++Z3fq5840q7KRXHLUXkvZ/61ukHG11BOrcmG0olxbHHZmzn0fmvMk0tC1RcDvDEdiD0mC8LBJmmIbLVFaSjE9Mj623aNNSno2dAGLxmvepi8bvXQEhYR6qLxe9eAxeFliEyOjG9s5YTkdzazvREdfJAbLi8Ugq7ciPauE1L7JcFKq70v/S7C8DF1feKk7+A4NIzRDa+ynTm0fCYZY3L7IZaEpFzX2WaWhaoYL4s4Cd2sgIBpmuIbHiV6WhmU7m4yjS1LFBxxWK/LOAbi/2yQIAFeYiklgUqrvQFN1GB0LOO+IFnILiCPERSywIVnMgF+Ij9skCQBXmIpJYFKoJ8AAUIvyNqWSC4gjxEUssCFa8F+AAKEHoWtSwQYEEeIvl9WaDiivWyi8XvXgNh8eqom+UMxx6zLGvMdlqtz6Uty7KsdK4H/y8gFII8RLqsZYurmVQqtbB1vGJrIZU6vQYwRJAT9ZxITBjo1atuljqOPbN7Vyl1d3emtpp17LEZeaSU2sxERSQnk0oppZaSPfz/kZgwWpCHSJe1bGTKfnjr+sn9LUlks9lsdn7UXVyg916zjrpY/O51QyQmzJN79n55kaNS6+VUy9Oc9ZWRyaSIJCdHVtaPi9ncg7l8fi5W3RGbWxsfb7Dn1nMkJgyma4hsfOSk7lDJOY+c6J0vu5W/f//+9VsP7alIzdp4PF6+cXBwoPXlgFNcbmDhvVYCiYlecLkhJb/2z3S0HBmOiYhIbHhkr7outyYbSiXFscdmbCc5Ebuj1FIubY3ZhfJ+Wn+QmOipQAyRlSMnyVx6zHZO0i8nk7VXR6i725bW+bLFq9PZbPad/duZ1WLN6u3t7e3tbREZHBwcHBzU+YpAjcGq7p7+mqW6WPT+FzxBYqInXCagpvmyO7sFEREp7O6ceSw6MT0iItFoVESSS4Xp3RKLwXsAAAuoSURBVPWe75s9QWKit1xm6MhQsby0HRaPW44MFeuCNDtycvpQybmPnGitZSORiIiMzj+8uf+0vv9A0OmqZRscQCmv8utkExITJlCvXnWx1AWJTkzvrOVEJLe2Mz1R3ecTGy6vlMKu3DjeD+usr9Tc6z0SE0Z5UXyjvLQdFo9bvii+cSZMzZGT43VO7I5S6u5urDxw1t3tgBe/Y1B8+qEMRdq3AwLlitXXxVIfpdGpJ07hxiOllFJqY7GSxj4gMRFsWs79imbuyrhlWfeGH2Wi4thj6ZxINPNo+J5lWdba5FLy+KvljDzq8blfDZGYMIOeIbLhkZO6QyXnP3Lidr7s1sLtx89EMkMP7SlZzdx+/Ezk+q2HNjPZYZwf+1pl38gPPvnx1i2/8rWPm7V01ldGJjdFJDk5cm/dyWSiIhJNVkbM3J5M9GTwJDFhHPVSz4T15NLJRLtoZnOpekNlTlYe3+4xEhPmuiL97oNEJ6Z3HuQkmcyt7UzfqTss4qyvyI1Ms7utuK1lR+ez2fnqnSk7O+UyHuCbzz6tnGB82WqTsS1bNjr1pKJnpSyJCfOoo7CefHmCxIS52o6MHYlm7oplWZJYLGxGxbHHHtzYvLM3FpvLiyQWC5tJEcc+dbcTXPcLqHjtjWc6wuzsFkSi5QMoE6ce6V0pC5jndz//bb+7AKApTUNkoyMnyVOHSro4csJ1vwCdGp96IiLlUtbHE00AAAgjallAq4annohQygIA4AXmGACaNTz1RCSZ8el0EwAAQoz9sgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABM5cNvcpX+8K94EfY1by5/2HeoP6ZV0h/TO0rHVevOBPUgpoj8rDdhL4YP/+AntMe0Xlp6A/Ydag4oIn26O+kFNaA7Z0oe/K8T+kPiS3/wmvaYXoxB/V6MlR6NFLqVPBglPfm/z3gQMxjYLwsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVC5r2eJqJpVKLWydvp9ZLbrtF4DukZhAAJGYgCdc1rKRKfvhrevVe8XV9/bfyWaz7+y/R24C/iExgQAiMQFPDGiMVXz64bWELSKjiWsfPC1OTUXK6+PxePnGwcGBxpcD6rCBNURiojfYkM6FxESPhXiL0lnLilwbuioiIleHru2frN3e3haReDw+ODio9eWAU9jAmiAx0QtsSOdEYqKnQrxF6T336/n+CxERebH/XGtcAC6QmEAAkZiAHjpr2chbN5/nt0RkK//85lsRjZEBdI3EBAKIxAR0cTvHYGvh9uNnIpmhh/ZUJDL1jqRSKbl+66FNYgL+ITGBACIxAS+4rWVH57PZ+aZ3AfiCxAQCiMQEvMC1EgAAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYyu01bLtw7Td2vQhrfeF1L8KW/vR7+mO+/Fx7TBGRUsmLqNalS9pjqpcvtccUEXnA5SC795P3PtYf9PXX9MYrffp/9AYUEfXZoeaASn8m9l2+ojdg6fAzvQFFRP45CahfZPk72mNar+sfLks/+HP9MV95MFJ4MFBaAx6Mkq9eaY8p/za0Gcp+WQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJhKdy27tZBKpVKphS3NcQG4QGICAURiAjoM6A23JYlsdl5vTAAukZhAAJGYgBZ6a9mt/P3796/femhPRWrWxuPx8o2DgwOtLwecwgbWBImJXmBDOicSEz0V4i1K6xyD4tXpbDb7zv7tzGqxZvX29vb29raIDA4ODg4O6nxFoMZgld8dCRgSEz1BAp4PiYneCnGGaq1lI5GIiIzOP7y5/7TYtjWAniAxgQAiMQFNvPgdg+LTD2Uo0r4dgB4iMYEAIjEBt3TOly2uZm4/fiZy/dZDe1RjXAAukJhAAJGYgC46a9nIlJ2d0hgPgAYkJhBAJCagC9dKAAAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqndew7dDv/L9/13njg4ODwcFBvR3wIqZZYekqzsq9+I0OW2r/UEzZci7mf5wc9Nfv/PlvdtjSiM2JmEbENA77ZQEAAGAqalkAAACYiloWAAAApurpfNl4PN7LlwPQCRITCCASE+iUCrY333zTiJhmhaWrcEP7h2LKlnMx/+PkoCmM2JyIaURM4zDHAAAAAKaylFJ+9wEAAADoBvtlAQAAYCpqWQAAAJiKWhYAAACmCk4tu7WQSqVSqcxq8fSKhS0RkeJq5vh2F1ErTyxHqb5EFzHrn3I6YNfxz7TU0O3W76e7t6K4mqm21fMOnO6b7k8NXfMgK3V+uF7ko/Zk9CwT9aYhOWiS4A+XRuSmGJOeZzpGhtbz+4cUKl5861sfKaXUR+9/4/2PlFJKffTRR/VNfun9j848sbVTQaoBPnr/l771ouuYNU+pC+gq/qmW7rvd5v101dWP3v/GNypRNb0DdZ+1B58auuFFVur+cL3IR53J6Fkmak5DctAghgyXQc9NZU561neMDD0jKPtlI1NToyIio4m3n+8XRWQrf/9+zXel7pwKUnz64bXEqIiMJq59+NRd4EYB9cXX0O3W76ebrm4t5BMPb11vFKfbsHWftbefGjrnQVZ6+OF6k49uO+xRJupOQ3LQJMYNl8HMTTEmPes7RoaeFZRa9sTQzbciIsWr09ls9p39227ysz7ItaGrIiJydeialq7WB9QUX2+3G7+f3cbcWsgn5kdP7ut4B+r65vmnhvPTlZXefrge5KPGDmvMRO1pSA4aypjhMti5KcFOTyFD2wtYLbu1kB+aiohIJBIRkdH5hzf3u/+aUR/k+f4LERF5sf9cR2fPBNQUX2O3m76f3cUsrn7w5Mn9VOr242dP7qcWtvS8A3V98/xTwzlpzEpvP1wP8lFXh3VmogdpSA6ayKThMsC5KYFPz7MdI0PPCFItu7WQOv11RqT49EMZiriMWwkSeevm8/yWiGzln998y21QkfqAuuO77nbz97PbmJEpO5vNZrMPb11/+93s/KjWd6Dus/bqU8P5eJKVnny4Xuajuw5rzkTv0pAcNIdRw2Vwc1MMSk8hQ1vxe8JuxYtv/dI3qt7/6Pju8UTm8lTq2hWdx6wPcny/i5h1T2kYsIv4tS21dLvD97PLt6JmWrn7d6Cub158auiO9qzU/uF6kY96k9HDTNSXhuSgWYwYLoOfm8qQ9FRkaAe4hi0AAABMFaQ5BgAAAMB5UMsCAADAVNSyAAAAMBW1LAAAAExFLRs4jp22Hb87AYBkBIKK3EQtatnAKezu+N0FACIkIxBU5CZqUcv6K5e20rlc2rIsa8x2RCSXHl/Oz8WsdK7yqG2PlR8rt6o0k/q7ANwhGYFgIjfRjt8/cHuRFRYTIiIyu6HUxqwkFguqUNhYTCQWCyePlu+ojdnyjUq7ursAXCEZgWAiN9HegA/lMyqimc2NXWttcikp4gwnRESi0Vj9o5moiDh7O/m5mDUnIiKzBUdO3RWJ+tB9IDxIRiCYyE20xxwDY8xuVL+ALCXP3gXQMyQjEEzk5sVELWuG6I2R5bWciIjk0ulc3V0/ewZcMCQjEEzk5sXl7RQGtLQxKyIisxu1U37KK2c3qo9Wp/lU7la/Z9bdBeAGyQgEE7mJtiyllM7SGAAAAOgV5hgAAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAEz1/wG9Tip6c+sPlQAAAABJRU5ErkJggg==" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrRmljMVpoY25OSWVYQmxjbFIxYm1VdWMzWm5YQ0lzSUhkcFpIUm9QVEV5TENCb1pXbG5hSFE5TkN3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSnpkbWRjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1pFRnVibTk1VFc1QlluTldZWEp6U0hsd1pYSlVkVzVsTG5OMloxd2lLVnh1WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY0lsQjBjMEZDWkVGdWJtOTVUVzVCWW5OV1lYSnpTSGx3WlhKVWRXNWxMbkJrWmx3aUxDQjNhV1IwYUQweE1pd2dhR1ZwWjJoMFBUUXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpY0dSbVhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJCYm01dmVVMXVRV0p6Vm1GeWMwaDVjR1Z5VkhWdVpTNXdaR1pjSWlsY2JuMWNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BYnNWYXJzSHlwZXJUdW5lLnN2Z1xcLCB3aWR0aD0xMiwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzVmFyc0h5cGVyVHVuZS5zdmdcXClcblxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWJzVmFyc0h5cGVyVHVuZS5wZGZcXCwgd2lkdGg9MTIsIGhlaWdodD00LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFic1ZhcnNIeXBlclR1bmUucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAbsVarsHyperTune.svg\, width=12, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAbsVarsHyperTune.svg\)
ggsave(filename=\PtsABdAnnoyMnAbsVarsHyperTune.pdf\, width=12, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAbsVarsHyperTune.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtGaWMxWmhjbk5JZVhCbGNsUjFibVV1YzNablhGd3NJSGRwWkhSb1BURXlMQ0JvWldsbmFIUTlOQ3dnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4emRtZGNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWkVGdWJtOTVUVzVCWW5OV1lYSnpTSGx3WlhKVWRXNWxMbk4yWjF4Y0tWeHVYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjWEZCMGMwRkNaRUZ1Ym05NVRXNUJZbk5XWVhKelNIbHdaWEpVZFc1bExuQmtabHhjTENCM2FXUjBhRDB4TWl3Z2FHVnBaMmgwUFRRc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjR1JtWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUkJibTV2ZVUxdVFXSnpWbUZ5YzBoNWNHVnlWSFZ1WlM1d1pHWmNYQ2xjYm4xY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWJzVmFyc0h5cGVyVHVuZS5zdmdcXCwgd2lkdGg9MTIsIGhlaWdodD00LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFic1ZhcnNIeXBlclR1bmUuc3ZnXFwpXG5cbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFic1ZhcnNIeXBlclR1bmUucGRmXFwsIHdpZHRoPTEyLCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BYnNWYXJzSHlwZXJUdW5lLnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFic1ZhcnNIeXBlclR1bmUuc3ZnXFwsIHdpZHRoPTEyLCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BYnNWYXJzSHlwZXJUdW5lLnN2Z1xcKVxuXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BYnNWYXJzSHlwZXJUdW5lLnBkZlxcLCB3aWR0aD0xMiwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzVmFyc0h5cGVyVHVuZS5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAbsVarsHyperTune.svg\, width=12, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAbsVarsHyperTune.svg\)
ggsave(filename=\PtsABdAnnoyMnAbsVarsHyperTune.pdf\, width=12, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAbsVarsHyperTune.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F5TlRBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDI1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 2501
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXlOVEF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDI1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAyNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 2501
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0F4TlZ4dVhHNXlaWE4xYkhSelQzVjBRV0p6SUR3dElHTnlabEpsWnloa1lYUmhTVzQ5YzNScGJVUmhkR0ZPZFcwc0lHbFdZWEp6UFdsV1lYSnpMQ0JrVm1GeVBXUldZWElzSUhObFpXUnpQWE5sWldSeld6RTZNbDBzSUc1MGNtVmxQVzUwY21WbExDQnRkSEo1UFcxMGNua3NJSEJsY20xSmJYQkRiMjVrVkdoeVpYTTljR1Z5YlVsdGNFTnZibVJVYUhKbGN5d2dibkJsY20wOWJuQmxjbTBzSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVYRzRqSUhCeWFXNTBJRzF2WkdWc0lIQnlaV1JwWTNScGIyNGdjbVZ6ZFd4MGMxeHVjbVZ6ZFd4MGMwOTFkRUZpY3lSUFQwSmZVazFUUlZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbm5wZXJtIDwtIDE1XG5cbnJlc3VsdHNPdXRBYnMgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0QWJzJE9PQl9STVNFXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 15
resultsOutAbs <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbs$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQXhOVnh1WEc1eVpYTjFiSFJ6VDNWMFFXSnpJRHd0SUdOeVpsSmxaeWhrWVhSaFNXNDljM1JwYlVSaGRHRk9kVzBzSUdsV1lYSnpQV2xXWVhKekxDQmtWbUZ5UFdSV1lYSXNJSE5sWldSelBYTmxaV1J6V3pFNk1sMHNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRFRmljeVJQVDBKZlVrMVRSVnh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSAxNVxuXG5yZXN1bHRzT3V0QWJzIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEFicyRPT0JfUk1TRVxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSAxNVxuXG5yZXN1bHRzT3V0QWJzIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEFicyRPT0JfUk1TRVxuYGBgXG5gYGAifQ== -->
```r
```r
nperm <- 15
resultsOutAbs <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbs$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNzA4ODExOFxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRUZpY3lSUFQwSmZUVUZGWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0QWJzJE9PQl9NQUVcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
[1] 0.7088118
resultsOutAbs$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljeVJQVDBKZlRVRkZYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5yZXN1bHRzT3V0QWJzJE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEFicyRPT0JfTUFFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutAbs$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTQxMTQ4OFxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRUZpY3lSU2MzRjFZWEpsWkZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0QWJzJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.5411488
resultsOutAbs$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljeVJTYzNGMVlYSmxaRnh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dEFicyRSc3F1YXJlZFxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEFicyRSc3F1YXJlZFxuYGBgXG5gYGAifQ== -->
```r
```r
resultsOutAbs$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODEzNTMyMlxuIn0= -->
```
[1] 0.8135322
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwUVdKeklEd3RJRzExYkhScFgyTnlabEpsWnloa1lYUmhTVzQ5YzNScGJVUmhkR0ZPZFcwc0lHbFdZWEp6UFdsV1lYSnpMQ0JrVm1GeVBXUldZWElzSUhObFpXUnpQWE5sWldSekxDQnVkSEpsWlQxdWRISmxaU3dnYlhSeWVUMXRkSEo1TENCd1pYSnRTVzF3UTI5dVpGUm9jbVZ6UFhCbGNtMUpiWEJEYjI1a1ZHaHlaWE1zSUc1d1pYSnRQVzV3WlhKdExDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYmx4dUl5QndjbWx1ZENCdGIyUmxiQ0J3Y21Wa2FXTjBhVzl1SUhKbGMzVnNkSE5jYm5KbGMzVnNkSE5QZFhSQlluTWtUMDlDWDFKTlUwVmNibUJnWUNKOSAtLT5cblxuYGBgclxuXG5yZXN1bHRzT3V0QWJzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRBYnMkT09CX1JNU0VcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
resultsOutAbs <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbs$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBRV0p6SUR3dElHMTFiSFJwWDJOeVpsSmxaeWhrWVhSaFNXNDljM1JwYlVSaGRHRk9kVzBzSUdsV1lYSnpQV2xXWVhKekxDQmtWbUZ5UFdSV1lYSXNJSE5sWldSelBYTmxaV1J6TENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJCWW5Na1QwOUNYMUpOVTBWY2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxucmVzdWx0c091dEFicyA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0QWJzJE9PQl9STVNFXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0QWJzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRBYnMkT09CX1JNU0VcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutAbs <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbs$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNzA3NjU4NVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRUZpY3lSUFQwSmZUVUZGWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0QWJzJE9PQl9NQUVcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
[1] 0.7076585
resultsOutAbs$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljeVJQVDBKZlRVRkZYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5yZXN1bHRzT3V0QWJzJE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEFicyRPT0JfTUFFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutAbs$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTQwOTcwNVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRUZpY3lSU2MzRjFZWEpsWkZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0QWJzJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.5409705
resultsOutAbs$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljeVJTYzNGMVlYSmxaRnh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dEFicyRSc3F1YXJlZFxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEFicyRSc3F1YXJlZFxuYGBgXG5gYGAifQ== -->
```r
```r
resultsOutAbs$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODEzODE5XG4ifQ== -->
```
[1] 0.813819
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMEZpY3lCMllYSnpKeXdnSjFKTlUwVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFFXSnpKRTlQUWw5U1RWTkZYRzV5WlhOa1FXNXViM2xOYmtacGRFRkNXeWRCWW5NZ2RtRnljeWNzSUNkTlFVVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFFXSnpKRTlQUWw5TlFVVmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMEZpY3lCMllYSnpKeXdnSjFKemNYVmhjbVZrSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRUZpY3lSU2MzRjFZWEpsWkZ4dWNtVnpaRUZ1Ym05NVRXNVFaWEp0U1cxd1FVSWtRV0p6Vm1GeWN5QThMU0J5WlhOMWJIUnpUM1YwUVdKekpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQmNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgdmFycycsICdSTVNFJ10gPC0gcmVzdWx0c091dEFicyRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnQWJzIHZhcnMnLCAnTUFFJ10gPC0gcmVzdWx0c091dEFicyRPT0JfTUFFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgdmFycycsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRBYnMkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJEFic1ZhcnMgPC0gcmVzdWx0c091dEFicyRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# store results
resdAnnoyMnFitAB['Abs vars', 'RMSE'] <- resultsOutAbs$OOB_RMSE
resdAnnoyMnFitAB['Abs vars', 'MAE'] <- resultsOutAbs$OOB_MAE
resdAnnoyMnFitAB['Abs vars', 'Rsquared'] <- resultsOutAbs$Rsquared
resdAnnoyMnPermImpAB$AbsVars <- resultsOutAbs$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowRmljeUIyWVhKekp5d2dKMUpOVTBVblhTQThMU0J5WlhOMWJIUnpUM1YwUVdKekpFOVBRbDlTVFZORlhHNXlaWE5rUVc1dWIzbE5ia1pwZEVGQ1d5ZEJZbk1nZG1GeWN5Y3NJQ2ROUVVVblhTQThMU0J5WlhOMWJIUnpUM1YwUVdKekpFOVBRbDlOUVVWY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowRmljeUIyWVhKekp5d2dKMUp6Y1hWaGNtVmtKMTBnUEMwZ2NtVnpkV3gwYzA5MWRFRmljeVJTYzNGMVlYSmxaRnh1Y21WelpFRnVibTk1VFc1UVpYSnRTVzF3UVVJa1FXSnpWbUZ5Y3lBOExTQnlaWE4xYkhSelQzVjBRV0p6SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhCY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEFubm95TW5GaXRBQlsnQWJzIHZhcnMnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRBYnMkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0FicyB2YXJzJywgJ01BRSddIDwtIHJlc3VsdHNPdXRBYnMkT09CX01BRVxucmVzZEFubm95TW5GaXRBQlsnQWJzIHZhcnMnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0QWJzJFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiRBYnNWYXJzIDwtIHJlc3VsdHNPdXRBYnMkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0FicyB2YXJzJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0QWJzJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgdmFycycsICdNQUUnXSA8LSByZXN1bHRzT3V0QWJzJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyB2YXJzJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dEFicyRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkQWJzVmFycyA8LSByZXN1bHRzT3V0QWJzJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdAnnoyMnFitAB['Abs vars', 'RMSE'] <- resultsOutAbs$OOB_RMSE
resdAnnoyMnFitAB['Abs vars', 'MAE'] <- resultsOutAbs$OOB_MAE
resdAnnoyMnFitAB['Abs vars', 'Rsquared'] <- resultsOutAbs$Rsquared
resdAnnoyMnPermImpAB$AbsVars <- resultsOutAbs$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRUZpY3k1amIyNXBiWEFnUEMwZ1lYSnlZVzVuWlNoeVpYTjFiSFJ6VDNWMFFXSnpKR052Ym1ScGRHbHZibUZzWDNCbGNtMXBiWEFzSUdSbGMyTW9jbTkzWDI1MWJXSmxjaWdwS1NsY2JseHVjRUpoY2lBOExTQm5aM0JzYjNRb2NtVnpkV3gwYzA5MWRFRmljeTVqYjI1cGJYQXBJQ3NnWjJWdmJWOWpiMndvWVdWektIZzlabUZqZEc5eUtISnZkMjVoYldWektISmxjM1ZzZEhOUGRYUkJZbk11WTI5dWFXMXdLU3dnYkdWMlpXeHpQWEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJCWW5NdVkyOXVhVzF3S1Nrc0lIazlRMjl1WkZCbGNtMUpiWEFwTENCbWFXeHNQVzE1WTI5c2IzVnljMXN4WFN3Z2QybGtkR2c5TUM0MUtTQXJJR3hoWW5Nb2VEMWNJbFpoY21saFlteGxYQ0lzSUhrOVhDSkRiMjVrYVhScGIyNWhiQ0IyWVhKcFlXSnNaU0J3WlhKdGRYUmhkR2x2YmlCcGJYQnZjblJoYm1ObElDaHRaV0Z1SUdOb1lXNW5aU0JwYmlCaGJtNXZlV0Z1WTJVcFhDSXBJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjSW5ObGNtbG1YQ0lwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJYRzRnSUdOdmIzSmtYMlpzYVhBb0tWeHVjRUpoY2x4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0QWJzLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRBYnMkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0QWJzLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dEFicy5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEFicy5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzFdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICtcbiAgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutAbs.conimp <- arrange(resultsOutAbs$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutAbs.conimp) + geom_col(aes(x=factor(rownames(resultsOutAbs.conimp), levels=rownames(resultsOutAbs.conimp)), y=CondPermImp), fill=mycolours[1], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) +
coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRFRmljeTVqYjI1cGJYQWdQQzBnWVhKeVlXNW5aU2h5WlhOMWJIUnpUM1YwUVdKekpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQXNJR1JsYzJNb2NtOTNYMjUxYldKbGNpZ3BLU2xjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEVGaWN5NWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSQlluTXVZMjl1YVcxd0tTd2diR1YyWld4elBYSnZkMjVoYldWektISmxjM1ZzZEhOUGRYUkJZbk11WTI5dWFXMXdLU2tzSUhrOVEyOXVaRkJsY20xSmJYQXBMQ0JtYVd4c1BXMTVZMjlzYjNWeWMxc3hYU3dnZDJsa2RHZzlNQzQxS1NBcklHeGhZbk1vZUQxY1hGWmhjbWxoWW14bFhGd3NJSGs5WEZ4RGIyNWthWFJwYjI1aGJDQjJZWEpwWVdKc1pTQndaWEp0ZFhSaGRHbHZiaUJwYlhCdmNuUmhibU5sSUNodFpXRnVJR05vWVc1blpTQnBiaUJoYm01dmVXRnVZMlVwWEZ3cElDc2dkR2hsYldVb2RHVjRkQ0E5SUdWc1pXMWxiblJmZEdWNGRDaG1ZVzFwYkhrZ1BTQmNYSE5sY21sbVhGd3BMQ0J3WVc1bGJDNW5jbWxrUFdWc1pXMWxiblJmYkdsdVpTaGpiMnh2Y2lBOUlISm5ZaWd5TXpVc0lESXpOU3dnTWpNMUxDQXhNREFzSUcxaGVFTnZiRzl5Vm1Gc2RXVWdQU0F5TlRVcExDQnNhVzVsZDJsa2RHZ2dQU0F3TGpJMUxDQnNhVzVsZEhsd1pTQTlJRElwS1NBclhHNGdJR052YjNKa1gyWnNhWEFvS1Z4dWNFSmhjbHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEFicy5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0QWJzJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEFicy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1sxXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArXG4gIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEFicy5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0QWJzJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEFicy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1sxXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArXG4gIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutAbs.conimp <- arrange(resultsOutAbs$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutAbs.conimp) + geom_col(aes(x=factor(rownames(resultsOutAbs.conimp), levels=rownames(resultsOutAbs.conimp)), y=CondPermImp), fill=mycolours[1], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) +
coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qRXhMalVzSW5kcFpIUm9Jam80TENKemFYcGxYMkpsYUdGMmFXOXlJam94TENKamIyNWthWFJwYjI1eklqcGJYWDA9IC0tPlxuXG48aW1nIHNyYz1cXGRhdGE6aW1hZ2UvcG5nO2Jhc2U2NFxuIn0= -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjExLjUsIndpZHRoIjo4LCJzaXplX2JlaGF2aW9yIjoxLCJjb25kaXRpb25zIjpbXX0= -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFOekNBTUFBQUEwbmlRa0FBQUJ2MUJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacllBWnY4ek16TTZBQUE2QURvNkFHWTZPZ0E2T2pvNk9wQTZaclk2a0xZNmtOdE5UVTFOVFc1TlRZNU5ibTVOYm81TmJxdE5qbzVOanF0TmpzaG1BQUJtQURwbUFHWm1PcEJtWmdCbVpyWm1rTnRtdHR0bXR2OXVUVTF1VFc1dVRZNXViazF1Ym01dWJxdHVqbzV1anNodXE2dHVxOGh1cStTT1RVMk9UVzZPVFk2T2JrMk9ibzZPYnF1T2prMk9qbzZPanNpT3E2dU9xOGlPcStTT3lNaU95T1NPeVArUU9nQ1FPanFRT21hUVpnQ1FacENRa0RxUWtHYVFrTGFRa051UXRwQ1F0ditRMjdhUTI5dVEyLytyYmsycmJtNnJibzZyamsycmpvNnJqcXVycTI2cnE2dXJxOGlycStTcnlNaXJ5UCtyNU1pcjVPU3I1UCsyWmdDMlpqcTJabWEya0RxMmtKQzJ0bWEyMjVDMi83YTIvOXUyLy8vSWprM0lqbTdJam83SXEyN0lxNDdJcTZ2SXlJN0l5S3ZJeU1qSXlPVEl5UC9JNUt2STVQL0kvOGpJLytUSS8vL2JrRHJia0diYmtKRGJ0bWJiMjVEYjI3YmIvN2JiLy8va3EyN2txNDdrcTZ2a3lJN2t5S3ZreU1qazVLdms1TWprLzhqay8rVGsvLy8zOS9mL3RtYi90cEQveUk3L3lLdi95TWovMjVELzVLdi81TWovNU9ULy83Yi8vOGovLzl2Ly8rVC8vLzlObTlyR0FBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzJkalo4YlZaYWV6Y2RrTXNra2xKdHBSdXhzWm1NdmpHbFF3OFRCczE1RWRqUFp5V1pvSUEzbXczS3lrMlJSbTdXSFFJelliTExJSmpOcEMxWUdCUXZWSDV4N3pyMVZLa21sVm4wZW5WdjF2ajlveWFWVGRVOVhQMzJyN3EyM3p6MFhRbER0T3JmckJLQTJDSmhCQWdKbWtJQ0FHU1FnUHpEN1I1QzM0aCtnSjVqdE9nR29xSUFaSkNCZ0Jna0ltRUVDOGg2ekwzTWV4UGQ0ZFFsbGl2Y2VzKzlCeXJUNVJ5ZUoyZlNQKzlIYlNkZDhtYjAwVEh3Nk93ejJ4eXRoa1lDWkYwcjdLY2xqOXZXLzdycDM4NlB1eW1leksrSHM4bmdsTEJZdzgwSnBQeVY1ekQ2YW1PNXE5SEx3Y3RDYlBIZHhiMmk0bWgyZTcwOS9jYmczbkFUZENETU9vdy9DUWZEY2UzWnU5c3N2K1ViZ3krVHJyazhxdEtybG40OTlGY2RzOXJHNVNzNE9PNVBPOUtvaGFkSWQ3WS92OWljdkhPME5UL3BmSEVTOUdZZUY1b091dWJLT2Vyd3Jlak12bFBaVEVzZHNFZ1JCTDV6MEpsMkRXVGVjSHN5UHg0TWdNTkFacUtZeFpqYU1QampwQXpPdmxQWlRFc2ZzZCtOdzBsbGdOdW9hek82WlFVQVNNL1BlaHRFSEkvUm1maW50cHlTTTJmeUkrNmdmL1h6L3pTRFl1MjA2SzlOdjljendzalBZdTNQWW1SMCtmMmk2c2ZQWGJkaitxZm5BZkJpY2dabUthU0hCZUhVSk5XZmU3S3plVE1WWkZJeFhsMUJqTUp1YThTaTlBak9KQmxxTFdTUmdKdEVBTU50MUFsQlJBVE5JUU1BTUVoQXdnd1RrUFdhN25veHN2ZG94Qk5qMVdXNjkxR0RHSHJKUnNEZTBKckxaNGY3ZnZKKzBsYzJQYU9iL2ZYSmptUGQ3dzhSZTlEVjZDQURNVkVvTlp2WnhPRDJmWkJQWnFHZllXcktWMFQ4ZTlHZXZkOEx3Ly8ycjRkSmVaRUdiV0NLQm1Vb3B4SXhOWkV6TnNxM3M4dmhCUDV5OS9kSXcvTjEvSEk3b21lYittOTBGWnAwUWZqTzFDdFA4WlR2eG0wV1lXUk5aT0FtNnk3WXljMlUwRjh6Wk80UGUvTC9mcElEZTdQSzdVVzkyR0hUY1lkQ2JhVlFtQXVRd00veE1vdnVzVVcvSlZ1WjZzM2VtbC83di83ZzVOR0QxNk04RW90NXNlbW1jekhWRnV6N0xyVmNtQWtRd203L2VaMmdpcjVtQmFNbFd4djg0bUwwemYvMVB4amVITjRlVDN2VGdwRzlEekVWejFFM21DbmtvbVFtTjZVVnpWWFJlcy8zLzgyeXdkeWRwSy92Uno4MC9najgxbmRpa2F3YWtid1ZteXl0SFQxNjA0OCtnT3o4NjMxL2t1aUlWVDRZRjQ5VWxwR2NJVUpHQW1VUUR3Q3h0bzRxektCaXZMaUZnMXNSNGRRbTFBelBJQndFelNFREFEQktROTVqdFlLNFJ5aTFndGdVekZYZlFrZzAwYWdpUVlnNjZ6bjZndFhKVEN3RXppUVlhaGRrbWM5Q0RGY3htVnhidmdabEVBdzNGYk1rY1pDZ2JuTzhQOWs4VHBhaW1GNS82V01vSXRINzhMek1aWGVUaXpRNGV4dThjczZRNXlQcUJDTFprS2FxNy9hK3QxUkZEQUcrMVc4eld6RUYwelR6cDMxb3FSUlg3dG9HWnQ5b1pacHZNUVFmaDlHZnZoY2xTVlBlRzVzc2kxeFVCTXgrMHV3bU5OWFBRcHpUU3BKN3RKdnRwbzFKVTNkOGZubFY0Q3ZKQjNzK2JxUmhJQ2NhclMwajNTTE9BZ0psRUE4QXNiYU9Lc3lnWXJ5NGhZTmJFZUhVSnRRTXp5QWNCTTBoQTNtT0dDVE1mQk15QW1ZRHF4V3lqM2VkOStqdk56dlFpTGQ5RWs3TFIra3c3cXdpMDhWdFFjUWN0MllDUFE0Q05kcC81RzhQNVVZL1hvTHMzZEdVTWRsa1JhT04zb09LbkpObUExNWl0Mm4wTVpyU1F6dHRIdlFWbXU2d0l0SGJjNkJWR0lBK01RQnZ0UHE0M3V6WjdzUjlqdHN1S1FCdS9BeFdkZ1dRRDN2Wm1hWFlmcXREWUNlZlh3dW1sV3pGbU82d0lWTmNKZ0ZnMVk3YlI3a01YelpBd0MwZThjaXZWL2lsVUVRaVkrYUM2SnpRMjJIMys5SkNHbjJhN0llaW1MUS8wZnJHS1FKQVA4bjdlRFBKQjNtT200ZzVYTUY1ZFFocUdBSlVLbUVrMEFNelNOcW80aTRMeDZoSUNaazJNVjVkUU96Q0RmQkF3Z3dUa1BXYVlYL1ZCbFdPMmJSMHdkdmJzMzJlL3o0aW1YcU15UUNXTlFOVjlCMUQxcXI0MzI3b08ySlZ3Zmp5bWgwM1RnL0FrVVFhb25CRW9hM29xN29oTHhLdExhRWREZ0szcmdGMmhKNWxzQkhLUE9CLzA1Mno4S1dVRVd0Mis2Vldic1NkdnZBNWpUOTc0K2pBN1l4Mndqc1hzYnA4ZWpic3lRTytXTkFKbFRVL0ZMM2VKZUhVSjdiSTNPMnNkc0pUZUxHVGpUeWtqVU5iMFZKejFFdkhxRXRvUlpsdlhBZVA2aTB2M1p0TUROdjZVTWdKVitCMUFsYXVHQ1kyejF3Rjc4aUtaZitpanNmbGlSNXJCSzBkcy9JRVJxS255ZnQ0TThrSEFEQktROTVpcHVNTVZqRmVYVURzZW5hczRpNEx4NmhJQ1prMk1WNWNRTUd0aXZMcUUyb0VaNUlPOHh3eHpzejRJbUVFQ3lvVlppcGVzUDZBS1Vzc1IvTzRrV2xCdUV1eDk4dTdDU3haN3pqb3JCK2RESmc4VTBFUDNsNGFMYmNETVcrWHJ6ZGE5Wk5lUFR5L2Z2N1lTRVRJMDFrazJ2VFNlSFhZWFhqTGUweFpxV1Q0MmY1QTQwSlhRRmtCWXpYVkZlVEZUY1VkY0lsNWRRalVNQVZLOFpMeHRmbVE2TVY0eHptSm0vbjIrYjcwWGQ2MWwwWG5KM0o2dTdKVFo2L1J3LzhPZ096TGRISC9nbHA4emZaM0Z6QnlERDd2RmI2YklEMVozdkE3L1dONzRZcGdsdkdTOGJkUUxSM2JGT0l2WnFFdmVDM2FTM2VRZUtmYVMyVDF0YjBaN2RTZGRFekw3T0RLakVacVR4ZDRqdG5PZjJNc3Blak9KQnJUMFpzdGVNdDVtT0pnZThGSmVGck9Udm4xcmVqT0xTT1FsYzN2YXNsTzgxL3lOTzdldTNvc1BTY3ZQc1gyRGVyT2ozdng0eklkTjVMb2lZT1pEZkQ3TVVyeGt0amN6LytqR21FMnZtdDVzdEg5cW5XU1h4dVE0YzE0eXQ2ZTk2K0s5d3RHbFQ2azBxUDJBbDUrYkVNRmtTeHRrd0F6eVFUa25OTmE4WkVNeWpkbDdNMW94N2ltMmx0RVZMM2pGTFNnM29Sc3RWMVRxL0xPUjU0eHV0M2d2MDlHWnkzQjB5REgxbGFhUmdBKzBQNTRFUFY2SUxwRXI1S0UwenB0OVBlVDZlbXNDWnQ1S0kyWWo5NWVicXdKbTNrb2pacHVFUitjU0RTZ1lBdXhXd0V5aUFXQ1d0bEhGV1JTTVY1Y1FNR3RpdkxxRTJvRVpIcHo3SUdBR0NhaDJ6TFlWb2tvRUZpMDhWVi95VUVXcXZ6ZmJWb2hxRVZpMDhGUjl1VU1WU1JDelRZV29xQmNiQk0rOVY3andsQ3FqVHQzeE9vdzllZVBsTU50VWlPcHVmMEp1b0ZHdmNPR3BYT21vR0hpVmlGZVhrSktSNXJaQ1ZJTWc2SnowR2JPQ2hhZHlwYVBpckplSVY1ZVFFc3kyRmFLaTYrbkk5bVlGQzAvbFNrZkZXUzhScnk0aEpaaHRLVVJGbG13eUN0R2lkQ2c4MVZTcG1UY2I5YmFHQUROdnBRV3o2Y1c5NGJZWVlPYXR0R0NXUmNETVczbVBtWW83WE1GNGRRbHBHUUpVSm1BbTBRQXdTOXVvNGl3S3hxdExxQjJZNVgya3FlS3NsNGhYbHhBd2c3UW9QMlpuT1hzU2txc0lsQ04zYUVjcTBKdWQ0ZXhaU0xBaVVKN2NvZDJvREdhcnpoNWI0YWM3NFVkTGNoV0JjaHBYOExxRDF4S1lyVGw3b2dvL0ozM1Jpa0I1Y2xkeVIxd2lYbDFDZFEwQk5qcDd1TUlQTXlKYUVTaFA3a3JPZW9sNGRRblZoZGxHWjA5VUYyaXc5NVpjUlNCZzVrTjhrUW1ORGM2ZVBsZjRvU0ZpVDdBaWtJcXpLQml2TGlGdjU4MVFFYWh4MG9nWktnSTFUaG94MnlSZzVxMkFHU1FnN3pGVGNZY3JHSzh1SVcrSEFKc0V6Q1FhQUdacEd6RnY1a004TVBNc1hsMUM5V0tXd3cvVTRUWEU3S3d1ZmUzQ0NOUTJGZS9OY3ZpQitNUHBNOE53OW1MLzI3SFpBQ05ReTFRQlp0djlRUHdobHlpZ0w5UDNZQVJxMjJ0NXpMYjZnY3hHK25CQXZkZWtFdzZDemk2TlFOQXVWQkt6Ykg0Zy9qRHV6Wmd4R0lFS3hxdExxT2FSWmc0L0VIOUl0L2gwZnhhR3Q4WXdBaFdPVjVkUTNSTWFtZjFBblFlOGhwZ2RhUTdzZGhpQkNzYXJTOGpiZWJOY1JpQVZaMUV3WGwxQzNtSUdJMURqcEJHelRRSm0zZ3FZUVFJQ1pwQ0F2TWRNeFIydVlMeTZoTHdkQW13U01KTm9BSmlsYmNUMHJBL3g5V0NXN2hJS2dzNzA0djZZSml5Q2RjdFE0YVhCOHFXbTRxeVhpRmVYMEM1N3N4U1hrSDFjUHFjSFMvZUc2NWFoNGt1RFZaMDdWTDNxeG16aEVuTG1uN2VQZWpGbW81ZURsNE5ldkJSWXdhWEJOQmhkOEhyMmE4MllKVnhDcmplN05udXg3ekNiSFhZbW5lblZlQ213Z2t1RFZaMDdWTDNxeEd6WkpXVE5QL05yNGZUU0xkZWJUWHBrNVlpWEFpdTRORmpWdVVQVnF5Yk1VbHhDMXZ4RHo4UkhlME5yR2JLWXhVdUJGVndhTEY5bUt1NklTOFNyUzJpbkV4cHBMaUV6aGpSYkRETTNvOFhCOXQ4TWtrdUJGVmthVE1WWkZJeFhsMUE3NXMxVW5FWEJlSFVKQWJNbXhxdExxQjJZUVQ0SW1FRUNBbWFRZ0lBWkpDRHZNVk54aHlzWXJ5NmhkZ3dCTUQzclF6d3c4eXhlWFVLN3dleXNnbFR4Nm5OVWphVkxUOVQzUG5YcjFNRnZwcVVCUHpBN3F5QVZiNkhpR01lM2h1VGMrTWlGUDdBTDdzQnYxbGpWaU5scVFTcTNaWGJGL2trNUZmMmhmMUlOb0RuOFpzMStyUSt6dFlKVVVXMHBaeUM3TmY2V0NwL1pBbE96eS9DYk5WazFZWlpXa01wdGNiMFpsLzJKMTZtRDM2elpxaDZ6alFXcDNCYXFLQlhhQzZHcngwanIxQlgybTZtNHd4V01WNWZRcmlZME5oU2t1bjRVclQ3WDVXb3MvRWNBRkJkUWRTcjR6YlEwNEF0bXRRbVlTVFFBek5JMnFqaUxndkhxRW1vSFpwQVBBbWFRZ0lBWkpDQmdCZ25JZDh5K3ArSU9WekJlWFVLdEdBSUFNeS9pYThJc214MW92THhMRVNNUU1QTWl2cTdlTEpNZGFMbjRWQ0VqRUREeklyNTJ6TTZ5QTFWUWVPcDdLLy9HcThyWHVqRTd5dzVVUmVFcCtETzhVSzJZYmJNRFZWQjRDcGg1b2Jvd3kyUUhxcUR3RkREelFyVk5hR1N3QTgxUmVBcERBSDBDWmhJTkFMTzBqU3JPb21DOHVvU0FXUlBqMVNYVURzd2dId1RNSUFFQk0waEF2bU9HZVRNdjVEMW1LdTV3QmVQVkpWVDdFR0RUT25POTFVQjZiamwzcFg4bXdkNG43eTQ4UDd5bmRmK01hQ0oyVVIvSXZPdUcvRUIwT2RkbEFUTXY0a3YxWm1sdW40VnZKeGF2T3VkSy8wd3ZqV2VIM1lYbmgvZmtaY09tQjZGOXdPVHFBMTBKN2Jvb3E3a3VDNWg1RVY4TlpnbTNEL3QyVEsrMGYzclluWnp2VTYvVW1mN2lrTmZQTVFEZHRRdzV6NC9iMDY1TzU1NTdSdldCcnJqU0I3enpaaVBRbHptTktiN0hteDA4aks4RXM2VGJoMzA3QnBsUmQ5STEzUk4vbVQ0enBESlRkRG04eVIxVTdQbHhleEptQmtCMmEwVDFnZmpkYVArK3VhQ2VNSnNZQXZpcjhwaXR1SDNZdDJPNG1CNHdZZlRnZkd6dXphTFNQNWFZeVBNVDdibmNtOW42UUtZM08rck5qKzNPaVZ5WEJjeThVQ25NMHR3KzdOc1ptWDkxRFIrRHZkdUVYNFFabGY0eEVKb281L2x4ZXk3Zm03bjZRRmZDY0FETUdxSnlFeHBwYmgveTdWdzM5MlpVSUMvb21ZaWdNekRiZjh5bGYzclVmM1hJdUVpZW4vUFAyajNIOUw5NTAxMnFEMFIva3pJSmVyUnpKNUVyNUtIcW5qZjdlaGphR3FBVkNJL09KUnJRTjlMTW9KR2JCNnRDd0V5aUFTOHhxMUxBVEtJQllKYTJVY1ZaRkl4WGwxQTdNSU44RURDREJBVE1JQUg1amhtbVo3MVFHY3hTakVEOVFSREV4UWlpcWo2a2srdG5HSUhJQTdTMlVCaU1RTHRwUU44UVlOMElkUDM0OVBMOWF5c1JJUmViT3NNSXhNK1pWaGNLZ3hGb053MG94bXhoQk9KdDVBTWFSKzZma0MyTjUvdG5HSUhzVS9PVmhjSmdCRkpzN01rYlh3bG1DU01RYnlNZjBBdHM0TEdZamJyaG1VWWc5Z0N0TGhTVzBRaWs0cGRWTUY1ZFFrSzkyYklSaUxleER5aTJaZENhaG1jYmdiZzNDMWNXQ29NUnFFRXFoVm1LRWNqMlpzNEg1TncvVjhrYXRIKzYyUWhrNzgxV0ZncURFYWhCS2plaHNXWUVHcEtkeDk2YmtZSG5LYTRDeEU3dFY4NDJBaGtRVnhjS2d4R29PZko5M2d6eVF0NWpwdUlPVnpCZVhVTHRlSFN1NGl3S3hxdExDSmcxTVY1ZFFzQ3NpZkhxRW1vSFpwQVBBbWFRZ0h6SEROT3pYZ2lZUVFJcWo5bW04bFA4ZENrcGZtUkFEd0RtUi94QWZLM1VGRmFnMDlDQTFpRkFldm1wK2ZHSGlRSlVac1AwbVdFNGU3RS9QVERBdlpkYWFnb3IwR2xvUUQxbXlmSlQ4MnNHdExqMlZIY1NkSGxKbkZHWEhyZi9icHhhYXFyUUNuUjUvVnEreCt2d2orV05yeEN6MWZKVDgrTXhGd1V5TklWZkhJUUR1dlNSa2FNN2V5ZTkxRlNoRmVoVS9MSUt4cXRMU0xRM1d5MC94YjJaeFl6QU1kZEgxNXVGczVkKzIwOHZOWVVWNkJxckNqQkxMejhWaHRZck50aDdxOGVZMFFDQjdzL0NRVlNmY2JYVVZKRVY2Q0F2Vk1XRVJtcjVLYnA2OXJqMmxGMmh0V3ZEd3RBYVpWTkxUUlZaZ1E3eVFiN1BtMEZleUh2TVZOemhDc2FyUzZnZGo4NVZuRVhCZUhVSkFiTW14cXRMQ0pnMU1WNWRRdTNBRFBKQnZtT0c2Vmt2Qk13Z0FWV08yU1pmVUdkNmtZcXlCUHhYdmpROW15eFFaWGNzWkFTcUxuT29QbFhmbTZYNGd1WnZES2tlQmkxRWQ4OFdDWnF2RktqaUhXRUUwdENBSjBPQUZGOFFQeWZ2enQ4KzZrV1l1Y3BCTHdjdkI3M1krQU1qa0RmR25yeng5V0dXOEFXNTN1emE3TVYrRXJQWllXZlNvU1ZkbmZFSFJpQU5EZmpVbXkzN2d1ajVlSWNXMVpsZXVwWHN6U1k5S2h3VUczOEtHWUZVbkVYQmVIVUo3UWl6RkYrUXJlNUphemVOYkFGSDA0VXRNSXVOUDBXTVFCZ0NlS0VhSmpUU2ZFRm0rR2kyR0Z4dTNyRzFxS3dKYVAvTklHbjhnUkdvcWZKOTNnenlRc0FNRXBEM21LbTR3eFdNVjVkUU94NmRxemlMZ3ZIcUVnSm1UWXhYbHhBd2EySzh1b1RhZ1Jua2c0QVpKS0R5bUJXcUNEUk9XM091aUJFSThrSVY5R1pGS2dLbHJqbFh4QWdFZWFFcU1jdFJFU2gxemJraVJpQjFScDI2NDNVWWUvTEdWNGhabm9wQXFXdk9GVEVDNlJoSUNjYXJTMGhxcEZta0lsRHFtbk5GakVBNnpxSmd2THFFcERBclVoRW9kYzI1UWhXQlZKeEZ3WGgxQ1luTm14V3JDSlN5NWh5TVFFMFY1czBnQVFFelNFREFEQktROTVpcHVNTVZqRmVYVURzZW5hczRpNEx4NmhJQ1prMk1WNWNRTUd0aXZMcUUyb0VaNUlOeVlKYnUrTmtmcjRTZFhEK2k2ZGo5dittN0NWbnk5ckNmcDdNU3lZZEpIQjVHb01ZcVQyK1c1dmk1dkVxWjNjZ2ZPdXNQVjJxeFpUU1dRL2t3aWNQRENOUllGY0lzNGZoaEZPWkh3YjQxL1poMzV3a3ovakI2V080d0l4Y1FCKzUvR0hSSHB0UGl3d3pPOXdkbW0rbnJpaG1COE9yRGF4SE1rbzRmUm1IVU13aFowMC9Yclk5REgwYlduMFZ2RmdYZUhNNCtkb2RoaHdidkN5T1FpZ1oyUGdSSWMvd3dDaWZtTnV5QVVUSHY3dllqOXBaNk15NEt4SUh6Tis3Y3Vub3ZQc3hKLzlhWTE5YUJFVWhGQXp2SExNM3h3MmFkRVprVnJlbW5HNDdvandENHc4ajZFMTAwRFhNVUdJNHVmVXFGRysxaHd1blAzcU5qR2FCZ0JOTFF3TTR4UzNYOEJIWVQyMkN0OCtjVk05Sjg4Q3lQU0szMVowQTNaUFJ2dm9rem84ZDN6S1UzT3N5WStrY1RHRHgxV01nSXBPSXNDc2FyUzhpamViT3ZoMXo5YklzdzB2UldPakFidVQraU8xdkF6RnZwd0N5YmdKbTNBbWFRZ0x6SFRNVWRybUM4dW9ROEdnSmtFekNUYUFDWXBXMVVjUllGNDlVbEJNeWFHSzh1b1lveFMvRUI5ZmtMclZPeW9xVEZaNzdpQ3pKZnlkK0Jpa0J0VW83ZUxNVUhSRit1SDNYWFFwY3NQaXUrb0cvSFpnTXFBclZMUlRCYitJRDR5L1FYaDN2azN1bFBubnZtOXZPSGV5NWl4czRncyszT2lpOG9uTDRYVmxjUkNLOCt2QmJBTE9FRDRpK21sNko2R0pOWGp2YnZtMHNlVldQaENMSnNHRjdHcTc2Z1FkQ3BzQ0lRNUlQeVlyYnNBK0l2NXQ3c0xsZGhORnlaLzh6MTBFYXdNMml5OEtURnZkbjhqU0VxQWhXTlY1ZFExU1BORkIrUTlmc1FadVRlc1pnWmtHd0VPNE51TXk1THZxQXd2RFZHUmFDaThlb1NxbnhDWTgwSE5HUy96MkR2em1GbkZBVDdiKzROVFQ5bXJwdzJncHpYdlFHTkpaZDhRUVB1Q3l1ckNLVGlMQXJHcTB0b0YvTm1rL1ZSWjNVQ1poSU5lSURaWXRhckRtRUk0SzI4ZndvQStTQmdCZ2tJbUVFQzhoNHpGWGU0Z3ZIcUV0ckZTTE5XQVRPSkJvQloya1lWWjFFd1hsMUN3S3lKOGVvUzJpVm1aeFdwV3RqVlZuYUIzNnl4cXFzM082TkkxV0xMeWk3d216Vld0V08yV3FRcXVXWDBjdkJ5MEl2OVpmQ2JOZmExYnN6V2lsUWx0c3dPTzVNT1dieWR2d3grczhhcVZzelNpbFFsdDVCM2FIbzE5cGZCYjZhaEFaK0dBSnVMVkMzYjFRaXoyRjhHdjVtR0JyekNiRk9ScXV1SkxaK2FPN0FnNlMrRDMweEJBMzVoVm9PQW1VUUR3R3pYQ1VCRkJjd2dBUUV6U0VEQURCS1E5NWlwdU1NVmpGZVhVRHVHQUNyT29tQzh1b1NBV1JQajFTVzBROHkyK1lEWTNyTS9ycUx3bElxektCaXZMcUZkOW1iYmZFQ3pLK0g4ZUl6Q1UyMVIzWmh0OEFITnJzeXZoU2c4MVpyWG1qSGI1QU5pZXc4S1Q3VkdkV0oyaGcrSWU3T3dpc0pUa0ErcUNiTnRQaUJ6S2VRd0ZKN0NFS0NNenZZQlBlbktIS1B3RkRCVEoyQW0wUUF3Uzl1bzRpd0t4cXRMcUIyWVFUNEltRUVDQW1hUWdJQVpKQ0R2TVZOeGh5c1lyeTZoZGd3QlZKeEZ3WGgxQ2RXT1dicmRKL2J0TEVRRkRPYk84VE1KOWo1NWQrSDVzUVZiMHRhak0rKzZJVDhSWGM1MVJTck9vbUM4dW9UcTc4M1M3RDRMMzA2c09hOVJaeDAvMDB1MFp0akM4OE43cHE1SGQ0VWVSYVhrdWlJVloxRXdYbDFDZ3BnbDdEN3MyekZkMS80cHIwQkh2VktIMTZpeno4anZXb2FjNThmdG1ib2UzUlgzeEpOM2hoSEk3OWRLTUV2YWZkaTNZN2daZGFPbHdVNzZ2RWFkZGZ6YzVBNHE5dnpZUFZQWG8rTjNJMTdVN3NSV1FzTkkwMXVWeDJ6RjdzTytIY1BGOUlBSm95Zm5ZN3RHSGZkbWxwakk4K1AyVEYyUHp2Um1SNzM1c2QwNWtTdmtvVXBobG1iM1lkL09xR05YcGh2czNTYjhJc3pJOFdNZ05GSE84eE90VlplMkh0MlZNQndBczRhbzNJUkdtdDJIZkR2WHpiMFpYUUNEbm9rSU9yUkczWS9aOGRPai9xdGpGOThjQmVlZnRYdU9VOWVqczMrVTB1TUY3aEs1cmtqRkhhNWd2THFFVk15YmZUME1yVSsyQWdFemlRYTh4R3prNXNHcUVEQ1RhTUJMektvVU1KTm9BSmp0T2dHb3FJQVpKQ0JnQmdrSW1FRUM4aDR6RlhlNGd2SHFFcXAzQ0ZERUJXUmVYamlpMVUzNFNTWDdmK2FvQ0tTc0FWMlk1WGNCbVlEcHBURTliWHJRWjVNUFAyTXFXeEZJeFZrVWpGZVhrQlJtR1YxQS9FRDhoQitlM3hvelppTlg4NkJVUmFBdmN4cFRmSTgzTzNnWVh4NnpiQzRnQ2phOWw4SHE5ZTdzSFg1TWJ2MC9xQWpVQnBYRUxJY0x5TnA3THYvdXprdS90VzZNUkcrR2lrQU5WM0hNOHJ1QWFLZ3c2TkIvNGZLOVdabUtRSkFQS2pHaGtkY0Z4T05KZytQMFBmTksvWno1MGkxZEVRanlRYlhPbTFYcEFnb3gwcFJwUU5sSU00T3FkQUdGd0V5bUFmOHdxMWpBVEtJQllKYTJVY1ZaRkl4WGwxQTdNSU44RURDREJBVE1JQUVCTTBoQTNtT200ZzVYTUY1ZFFoVVBBVklNWm4zK1FvYXlGZGx5VXZHT2R2MjUrMGZCa3hjalQxbGFxU240elRRMHNPdVJab3JCakw1Y1ArcXVoWEpFcEhqOU9mTi81Q2xMTFRVRnY1bUdCdFJndGpDWThSYzJsRkZwZ3Nseno5eCtucXRFZmNURmZjaHlSdHVpOWVjSXM4aFRsbFpxQ240emIveGplZU1MWUpZd21QRVhOcFNadDY4Y3NmZDYxSFVSNUFVeXZJd2pLeHJWeElnOFphbWxwdUEzYTZ6eVlyWnNNT012MXVuRDFWY0lMVEl2MnFJc3p0a1lSdXZQVVcvbVBHV3BwYWJnTjJ1c2NtQ1dZakRqTDR3Wm1jUXNacVkzYytXazJITFdYYXcveDVoWlQxbHFxU240elJxclBCTWFhd2F6NFFQNndwV2hSdWFTK09iZTBQUmpOS0xraUZPeW5BMXMwSjFvcE9rOFpjUFVVbFB3bXpWVkZjK2JUZFpIbmRVSkkwMkpCblk5MHN5Z3hheFhIUUptRWcxNGdGbTlBbVlTRFFDenRJMHF6cUpndkxxRTJvRVo1SU9BR1NRZ1lBWUpDSmhCQXFvWnN4VDMwUFhZK3JNYUdjUlBMMk5UMEIyc1FDZmRnSmREZ0xUeVZMSDFKeEhHQzRITmo2THFhS3Vtb0VTdUsxSnhGZ1hqMVNXa0M3TkVlU3ArV0Q0NDN4L3NuNXBlaTMxRWs2REx4VnU2MUk5Tm5udm1qak1GYlYrQlRwdFJwKzU0SGNhZXZQRlNtQzJYcDJMcmo0SHRibi95QXE4dzk4V0I2ODE0eThJd3RIMEZPaFcvcklMeDZoTFMwNXV0bEtleTFwK1QvcTN4Z01yc2tjRmplc0NGUXpzaGJVbVlnckEwV0ROVU4yWnA1YW5ZK2hOT2YvWWVYMDFqekhndFlOckNtRmxURURCcmhtcWYwRmh6RDMzcWxxS2pQbzZzc2V3am1oMCtmMGpqMFhpTE13WGQzcm9DSGVTRE1HOEdDY2g3ekZUYzRRckdxMHRJeFJDZ1NnRXppUWFBV2RwR0ZXZFJNRjVkUXNDc2lmSHFFbW9IWnBBUEFtYVFnSUFaSktCOG1LVlZCUm9rRER4UjJPVnhTaG1nODg4bTRpcXJDQVQ1b0p5OTJicXY1L3J4NmVYN0s4WC9SNGJGbERKQXRsb0J1MzVRRWFob3ZMcUU2aGdDcFBoNmVCdXRPamVPU3dQTmo4ZVRsREpBa2F0bkVuUlJFYWhvdkE1alQ5NzRncGdscXdMUk5scDE3Z1ZuMlpuMERHWnBaWUJtbCs5SHJwL3FLZ0twK0dVVmpGZVhVRzI5MlVwVklOckdxODdGcFlFSXM1UXlRTlNiT1R0R2RSV0JWSnhGd1hoMUNkV0JXWXF2eC9abW5XUnBJTHBvcHBRQlNtQ0dpa0R0VXQ0SmpmV3FRTFNPbkwwM2kwc0RmUkgwVXNvQTBValR1WDY2SVNvQ3RVcVlONE1FQk13Z0FYbVBtWW83WE1GNGRRbTE0OUc1aXJNb0dLOHVJV0RXeEhoMUNRR3pKc2FyUzZnWVpsK2RlK0tiN3orUnN5a1pZUWpnclZZeGUvalRoNzhLSC83a2cxM2xjNWFBbWJkYXhleTd2ekNZZmZYWTU5djNUREVGdmMvZW5XV2RYRDhLT3V3WXNsTzd6dW9ESTFDcmxITFJQSGZ1MFV5ZDJZWmlQOHV5Ry9uRDZUUERjUFppbi8rOHZEb2pFT1NEMG9jQS96TUxaK25GZnNLUW56eWQ4c0pnNXQxNXdvdy81RWVUNWd1WC9vRVJxTDFHb0lkUG43UEsxSjJsRmZ1NWJLMFpoaVplc1dsRVgyZ2pmVGlnYTU5QmhqQ0RFYWhvdkxxRUNvdzBmK1B1eWJMM1ptdkZmc0xRdW9JWU0vUHViajlpYjYwM0MyRUVhaWRtdWJTcDJNL1Z5QlUwMkh1ckc0NzJUeTliV3hDTkZPaitiSEZ2Vm9VUlNNVlpGSXhYbDFBeHpPakMrWGkyQnRaTVFYY09lZGpJcmlBYUl2Ym95eXRtcE1sTGlMbVJKZ1dQWVFScWw5WW1ORjU5d293Mk1UMExWYXExNmRrL3BOdXpUUGRtNGdKbTNtcnRvdm0zcjVrdi94bVlRVlVxZlVMRG80dW1panRjd1hoMUNSV2YwUGptajNJMkpTTmdKdEdBekVqelJ1YnBXWEVCTTRrR1JEQjcrTlB2L2lKOCtLdWNUY2tJbUVrMElJUFpyOEt2TG56M1ovNzBacEFQV3J0b2Z2Ym9CemRTNTJmVHFnSHhsK25WdFZpT2NKckRDQVNsUDJ4S25UZExNZjV3U2FDajdsb29SeVQyZ3hHbzVWcWUwUGpKQjNaT0kzVUlrR0w4NFM5eElhREpjOC9jZnA3WDhmcUlyUmRrQmFKbHZtbzFBdUhWaDllMTN1dzNHNThDcEZVRG9pK21sK0pDUUs4YzhUcGVCaVFiUVI2TjY3VE1GNHhBRmNhclM2allFR0R6bndHa1ZRUGlpMmRVQ01od1pmNHoxME1id1ZhZ3ljS0VCaU5RRmZIcUVpbzJiOGJQbVZKN3N4VGpqelg0UklXQUxHWUdKQnZCVnFEYmpBdU1RSlhGcTB1b1dHKzIrZDRzcFJvUUczemlRa0J2VWlGR0xnTEVFYWRrQlJyUVdMSk9JNUNLc3lnWXJ5NmhZcjNaNW51ekxKcXNqenFyRTBhYTNpcDFRcVB3TTgzRnJGY2RBbWJlYWcwejM1NXBRajdJKzJlYWtBL3kvcG1taWp0Y3dYaDFDUlViQW14OHBybDdBVE9KQm1Rd1V5eGdKdEVBTUV2YnFPSXNDc2FyU3lnL1pnOS9tck1KV1dFSTRLMldNWHM2T1pWUnBjR01iV09kTTNhQzM2elJXc2dQOVBZQUFCMHNTVVJCVk1ic1YveXdLZnE3cGlvTlp1Yi8rVkh2akozZ04ydXkwdTdOUG5OOVdwVUdNN1psZEcxSnF2MFBnKzdJN01XSEhaenZEL2p4WndkK3MrYStydlptNFhldnhnOEJxalNZMmQ0c0trbDFjemo3Mk8zRVJpRDJETUZ2cHFJQmdTRUEyVE11eEo5VmFUQWpKMGJIbHFTYXYzSG4xdFY3OFdGUCtyZkc3TnFBMzB4RkF3S1lMWHNhcXpTWTBmK2hYYWd1SEYzNmxHN3Y3RTdoOUdmdjBiRU5VUENiYVdoQWZ0NnNPb09aK1lodTRiZ2tsZUhKWElxanc0NnB2elNCd1ZPSDhKdHBhRURsOUd3MUJyT3ZUWGQzYldzVVJwcmVxaVJtRlJuTVJ1NXZOYzhXTVBOVzNqOXNnbndRTUlNRTVEMW1LdTV3QmVQVkpTUXlCSkFVTUpOb0FKaWxiVlJ4RmdYajFTVUV6Sm9Zcnk2aHNwZ1ZOUUxGaTlIZFB3cWV2R2pkUGZRM3Z6QUN0VmRuOVdaRmpVRHhZblRtLzhqZEF5TlFxNVVKczV4R29OdlJZblNFbVhQM3dBalU2dGNzbU9VMUF0bkY2T2hxUjdZTDYrNnB6UWdFK2FDdG1CVXdBb1hSWW5UVW16bDNENHhBRmNXclM2ajBTTE9vRVNoZWpJNHhzKzRlR0lFcWlsZVhVUGtKaldKR0lBNjZFNDAwcmJ2SENFYWdTdUxWSlNReWI3WnpJNUNLc3lnWXJ5NGhDY3hnQklLeXlQdW5BSkFQQW1hUWdJQVpKQ0R2TVZOeGh5c1lyeTRoa1pHbXBJQ1pSQVBBTEcyamlyTW9HSzh1b2VveHkyd05tdHQxNWVZMFA3cy9Ebmw2dGlZamtJcXpLQml2THFFYWVyUE0xaUIrVU1SdW9EbDlkZzlHb0hhcklHYmJyRUVjeUE4MjUyOGJ1dTdCQ05UdTEyS1liYlVHY2VEMGdEQzdObnV4Znc5R29IYXJBR1packVHSjN1eGFPTDEwcXo0akVPU0Q4bUdXMlJxVXVEZTdaampjZ3hHb3FuaDFDZFV4b1pIZEd1Ukdtajgrb2d2cnpUdW9DRlJSdkxxRWRqUnZWc1FhQkNPUW5nYjh3S3lRTmFpRUVVakZXUlNNVjVkUU81NENRRDRJbUVFQ0FtYVFnSUFaSkNEdk1WTnhoeXNZcnk2aGRnd0JWSnhGd1hoMUNaWEZyS3Fsd2N6WGJuMUxnNms0aTRMeDZoSXEzWnRWdERUWXQ3UzZUbTFHSUJWblVUQmVYVUxWWVZaeWFiQncraDZXQm12M2F4Yk15aTROTmdnNjlTME5Cdm1nclpoVnNEU1laUXhHb0JickxNeXFXaG9zREcrTmF6TUNRVDdvekFtTmFwWUdHNWl0TXhpQktvcFhsNURJdkJrcUFnbkhxMHRJQXJQZFZ3UlNjUllGNDlVbGhLY0FUWXhYbDFBN01JTjhFRENEQkFUTUlBRUJNMGhBM21PbTRnNVhNRjVkUXUwWUFxZzRpNEx4NmhLcUVMTVU2OW4xb3pYL21Ic0tLYnNDbllxektCaXZMcUVxZTdNVTY1bGpLcW1STllhSnJrQ240aXdLeHF0THFCYk1GdFl6TWkrK0hMd2M5Q2JQSCs3ZFlhL1ovSGc4dmZqVXh4T3NRSWZYNWRlY21DV3NaN1BMcDRlZFNXZjZKMnc1WXhPUXdleHUvK3NoVnFDRFZwUUhzMlhyR2R0OXlCWEVsck1JTTNkdkpiY0NIZVNETW1LV1lqMUxZamJxc3RmczArUHh2YUZCVG5JRk9zZ0haWjNRV0xPZWZVcEZwZmJmRElLOTIzeHhKSy9aSk9qOTNuUkZXSUd1eG5oMUNVbk5tMVZnT1lQZlRFOERTakdyd25JR3Y1bWVCcFJpSmlkZ0p0RUFNTnQxQWxCUkFUTklRTUFNRWhBd2d3VGtQV1lxN25BRjQ5VWxWT3NRb0xRMUtOb3pjVVFZZ1RRMG9BcXo4dFlnR0lFS3hhdExTQWl6b3RhZ3NCb2owSmM1alNtK3g1c2RQSXd2alZsaGF4Q01RQzFTT2N6S1dJTmdCR3FSQ21OVzJob0VJMUNMVkh4Q282UTE2UHl6MVJpQklCOVV5N3haYm1zUWpFQjZHdEExMGp4RCthMUJNQUxwYWNBYnpPb1NNSk5vQUppbGJWUnhGZ1hqMVNYVURzd2dId1RNSUFFQk0waEF3QXdTMEJiTThxeENGOXFubHQzVkZlaG9mZ01yMEZVVnJ5NmhTb1lBT1ZhaEM5bE9NWDlqdUxJQ0hTOExob3BBRmNXclM2aGF6TGF0UW1jTlBSRm1TeXZRT2N6cXFRaWt6YWhUZDd3T1kwL2UrS3lZYlYyRmpnMDk1aEozM2o1UlQ2NUF0K2pOYXFnSXBPS1hWVEJlWFVMVjlXYVpWcUVqUXc5ZE5JOTZxeXZRTVdhb0NOUm1iY01zK3lwMFpPZ3htSmsrYkhVRnV1aWlpWXBBcmRYV0NZMk1xOUJ4bjJmOXNmZFhWcUJ6aTlQVlZCRUk4a0ZWekp1Vkx3bFV3Z2dFK2FBS01LdWdKQkNNUUhvYXdLUHp0STBxenFKZ3ZMcUVnRmtUNDlVbEJNeWFHSzh1b1haZ0J2a2dZQVlKQ0poQkFpcUVXUVhsZ0ViMjRTajljYWViekNob0JJSjhVTEhlckhRNUlINEdHbjdrRHZXQTU4eGdCRkxSZ0tJaFFPbHlRQ091ZG5DNFA3WU9qVGtiZjJBRThzYllremUrSEdhRnl3SGQ3WWZUcTkrU0xTM3lEcjBid2dpa29nRnR2Vm1aY2tEY201a1A3dmE1TitQbm9zV01RQ3JPb21DOHVvUnF4S3gwT1NCN2IrYXN0Z1pMTnY3QUNOUllGWnpRS0ZrT2FHODRNQmZTa1QyRzBTdEhiUHlCRWFpcHFuN2VySUtWd2pZSW1IbXJ5akdyWXFXd0RRSm0zc3I3cHdBcTduQUY0OVVsMUk1SDV5ck9vbUM4dW9TQVdSUGoxU1VFekpvWXJ5NmhkbUFHK1NCZ0JnbW9ER2FaeXdYTnJkdG5Udk96KytPUWRvRVJxRlVxMVp0bExoZkV6NDNZRFRTbnorNVZhQVNDZkZBMW1HMHJGOFNCL0dCei92WlJ6K3dDSTFEUmVCM0ducnp4bFdDV3BWeVFnZStBTUxzMmU3Ri9EMGFnd3ZIcUVxcC9wSm01WEZDaU43c1dUaS9kZ2hHb2NMeTZoT3JITEhPNW9NUzkyVFhENFY2RlJpQVZaMUV3WGwxQ0F2Tm1HY3NGM1k5SG1qOCtvZ3VyNlFCaEJHcVZhcDgzcTlBWEJNeThWZDJZVmVrTEFtYmVDazhCSUFGNWo1bUtPMXpCZUhVSnRlUFJ1WXF6S0JpdkxpRmcxc1I0ZFFrQnN5YkdxMHVvSFpoQlBnaVlRUUxLaDFsVkM5SlI3V3o0elZxa25MMVpWUXZTd1cvV0xoWEZyT1NDZFBDYkZZM1g0Ui9MRzE4UXM3SUwwc0Z2VmpSZVhVSjFqRFNyV3BBT2ZyT2k4ZW9TcWdPenFoYWtnOStzYUx5NmhHcVpONnRtUWJveC9HYnRVZzN6WnJWVm5nSm0zcXA2ek9xclBBWE12QldlQWtBQzhoNHpGWGU0Z3ZIcUVtckhvM01WWjFFd1hsMUN3S3lKOGVvU0FtWk5qRmVYVURzd2czeFFPY3pTakVHRElGaGRqTTZXMFBqai9tSkw3QWFhd3dqVUJwWHN6ZGFOUWRlUFR5L2Z2N1ljeFV2UmNVU3MrSWtUakVCdFVGV1lMWXhCdk0xMFV2dmoyQjAwUHg3YmlCbXZURGQ1N3BuaHdnMVUwZ2lFVng5ZUs4SXNhUXlpYllhZzBRdm0rc2Z1b0I1aFppTm95VEREMEhqaEJvSVJTRmtER29jQWFjWWcybWJ3bWg3RTdpREN6RWJ3eW5UMDBITzVONE1SU0U4REdqRkxNUWJaM3F5VGRBY1JaamFDVjZhNzNWMjVONE1SU0ZFREdqRkxNUWF4eDRmdnpXSjMwQmZCS3k3aWxGYW1HM0NRZFFPVk5nS3BPSXVDOGVvU3dyd1pwRVhBREJJUU1JTUVCTXdnQVhtUG1ZbzdYTUY0ZFFtMVl3aWc0aXdLeHF0TENKZzFNVjVkUXNDc2lmSHFFcW9Icyt6ZUgvcm8vVVArUTgwbkwxcVR6L2xuazNGTDFpQVlnWnFzL0wxWlp1OFBsd0dpYUVMT21YenNjMHIyWGF4YWcyQUVhckJLWUxiTis4TWZSWmc1azQ5NXl5RnM1ZUFEMk5KQnBzL3F3QWpVM05maW1HMzMvdEJIdHNEQk9ETDV6QzdmNTVBdkRrSjNBSFpvc0hHam1CRUk4a0VGTWN2ay9hR1BvdDRzTXZtWTNveENwZ2RoZEFBcUhjUlAwbUVFVXRHQWppRkFkdS9QeE5uSkxHYlc1SlBFekI2QVN3ZE5pRmNZZ1ZRMG9BU3pyTjZmSHBVQnVoT05OSzNKaDBhYUhESTdmTUVkWUV3OW96bGs4TlFoakVBYUd0Q0NXUTM2ZWhqT3IyMk5BbVlTRFRRWXM1SDdJN3F6aFNHQXQ5S0JXVFlCTTI4RnpDQUJBVE5JUU41anB1SU9WekJlWFVJZURRR3lDWmhKTkFETTBqYXFPSXVDOGVvU2tzR3NjRkdnaW94QUtzNmlZTHk2aElSNnM4SkZnV0FFYW84cXhDeHZVU0FZZ2RyeldoMW11WXNDd1FqVUhsV0VXWkdpUU5VWWdTQWZWQjZ6d2tXQllBUXFFcTh1SWFrSmpXSkZnVDZGRWFoUXZMcUVQSm8zZ3hGSVR3TU54cXlFRVVqRldSU01WNWVRUjVobEU0WUEzZ3FZUVFJQ1pwQ0FnQmtrSU84eFUzR0hLeGl2THFGMkRBRlVuRVhCZUhVSkFiTW14cXRMYURlWXBmalAzbWZuV0dnTlpyYW94dTh2OHVQTmdCNEdsRnVCVHNWWkZJeFhsOUNPZXJOMS8xay9LamZGVzJaWHd2bnhSN3pzM0VjdUhDdlFOVjAxWXJid24wV1k4WmJaRmZ0YzZSYlYyUnVIV0lHdURhLzFZWmJ3bnpuTW5NSE1Hc2htNzRUZmp0bm1XRzRGT3NnSDFZVFpzdi9NWVdhM3VON01YaWp2OXN1dVFBZjVvT294Uy9HZldlZVkyOEwxUU9tYUdmSTZkRmlCVGxrRG5nd0IxdjFuZDJpMGFPNjNlTXVURjhuRlRkZk1jR1Rqc0FLZHFnWjh3YXcyQVRPSkJvQloya1lWWjFFd1hsMUM3Y0FNOGtIQURCSVFNSU1FQk13Z0FYbVBtWW83WE1GNGRRbTFZd2lnNGl3S3hxdExxRDdNTWhlYnV1OXNQcE5nNzVOM0YwWWZWM0VLaGFjS3hLdExxTWJlTEhPeEtXdnptVjZpUWtBTG80K3JPRlZKNFNrVloxRXdYbDFDRXBodEt6WmxINHpmdFg0eVovUnhlMkVGdWhhOWxzTnNhN0VwYS9PNXlUMVViUFJ4ZTZId1ZIdFVBck1zeGFac2IzWmllek5uOUluMlF1R3A5cWdZWnBtTFRUbWJqd0ZsMG8yTVBsSEZxV29LVDBFK3FPQ0VSdlppVTdaMEh0MTZIY2FyME5GZVAvbzVDazhWaVZlWGtFZnpaaWc4cGFlQkJtT0d3bE42R21nd1p0a0V6Q1FhQUdhN1RnQXFLbUFHQ1FpWVFRSUNacENBdk1kTXhSMnVZTHk2aEhZekJNaFdFV2c4b1lnUlRiMmlJcEN1QnZ6QUxGdEZvREVWQTVvZWhQYVJVcG1LUUNyT29tQzh1b1IyamRsWkZZRzRHTkRJRlQ0b1ZSSG95NXpHRk4vanpRNGV4dGVIMlprVmdiZ1kwTjArUFJwSFJhQVdxQ2JNdGxjRUN1LzJGNzBaS2dJMVhOVmpsckVpMFB5TllYeHZWcVlpRU9TRGFwalF5RklSYU1Tank0RWJhWmFwQ0FUNUlNeWJlUmF2THFGMlBEcFhjUllGNDlVbEJNeWFHSzh1SVdEV3hIaDFDYlVETThnSEFUTklRTUFNRWhBd2d3UlVHV2JwQnFBZzJEOTF6ODNqT09zTXVuOFVQSG5SV1g4K1pmZlBpaTNJdk91Ry9GaDBPZGNWcWJqREZZeFhsNUR3RUNETkFFU2Vudy8zRjVqUms2UElHV1QrajYwLzh6ZUdhN2FnSzd4MVBkY1ZxVGlMZ3ZIcUV0b1ZaZ2tERUQwbG54K2ZIblluNTZtcVJuZGkvb3VjUVlSWlZDT0lnRnExQlYxeGE2QndnU0VZZ2VKWEZjYWV2UEhWWTVZMEFKR0paMzQ4NW9JL0JxUHdpNFA0ZzRDTHN6anJEMkcyYWd2aWR5TnpjYlVGaGtMMFpqSU4rTkNiclJpQWJHOW1NU01qbWJrd2hwRXppSHF6cUViUWNtOW1iVUdtTnp1aWFpOWMrU1dSSytTaHFzTXN6UUJFbmg5THltRHZyUjVqRmp1REdETlhJMmpwM3N6WmdzeStBMkRXRUZVNG9aRm1BT3JTUmJKSDEwajYwcGtkZGgvWUQreEkwMWwvaGx3WmFOVVdaUDh5cGNjRmhoSzVRaDRLODJhUWdMekhUTVVkcm1DOHVvVGE4ZWhjeFZrVWpGZVhFREJyWXJ5NmhJQlpFK1BWSmRRT3pDQWZCTXdnQVFFelNFQ0ZNZHRrL09tdEJrNnZrdG1IRFQ3bTVZV2pvRXNGTkVaMjVuYnYwN0lWZ1NBZlZMdzNTemYrVFBiSHkySHpvNjRMTmdIVFMyTXFWZkNnejArV3dvL2NKNmdJcEtnQlpVT0FWT01QUGM2a05TaGk3MC9RWVNNUEIvTVRkUHJ2MXRnK0o2ZXlRS2dJcE1Hb1UzZDhlY3hXalQrOFBsaVhrZUl2MDJlRzlwRTRQemp2emw3dnp0NnhyaDh1QzFTMklwQ0tYMWJCZUhVSlNmUm1xOFlmdWlUeSttQzI1NkpING5hbE1OZWJ6UzcvN3M1THYrMWIxMDhZMms5S1ZRUlNjUllGNDlVbFZETm02Y2FmVVRkZUgyeXdkNXZ3aXpIam9jS2dRLzlaMTAvby9MR29DTlI0bFpqUVNEWCt6SStvOUE5ZkM0TWVyZmpWSVNQUGorUHhwTUZ4K2w3SXhZQzRMQkFxQXJWQ3RjNmJaVnZ4SzdPQW1iZXFGYk5zSzM1bEZqRHpWdDQvQlZCeGh5c1lyeTZoZGp3NlYzRVdCZVBWSlFUTW1oaXZMaUZnMXNSNGRRbTFBelBJQndFelNFREFEQkpRNVpobFhJRnV3QS9aSzFpQkR2SkIxZmRtbVZhZys2SVhEbnBZZ2E1QXZMcUVkalFFeUxRQ0hSdUJzQUlkL0dhRmxXa0Z1bEhYWUZiSkNuUXFmbGtGNDlVbHRNdmViTnNLZEF4WEpTdlFxVGlMZ3ZIcUV0b1JaaGxYb0RNdldJR3VOYXBoUWlQYkNuUTBvTVFLZEcwUjVzMGdBUUV6U0VEZVk2YmlEbGN3WGwxQzdYaDBydUlzQ3NhclN3aVlOVEZlWFVMQXJJbng2aEpxQjJhUUR3Sm1rSUJLWXBhci9KVDFBUDMrWW1EaVVYaXFWU3JibStVclAyVTlRUFBYS3l3OEJmbWd5akRMVkg3cUN2OFIrcVFib3ZCVTBYZ2R4cDY4OFZWaGxxMzhGSDlDZ1NnOFZUUmVYVUlpSTgxODVhZTROeHYwUWhTZUtoeXZMaUVSelBLVm55SVBFRjFRcjFWWGVFckZXUlNNVjVlUXpMeFpqdkpUVDlHS2RPejg2YUx3Vkxza01HOVdXZmtwWU9hdEJEQ3JyUHdVTVBOV2VBb0FDY2g3ekZUYzRRckdxMHVvSFkvT1ZaeEZ3WGgxQ1FHekpzYXJTd2lZTlRGZVhVTHR3QXp5UVpWaHRza1N0SDk2ZWJ3Y1owc0UzVDhLbnJ3WVdYL1NiRUU4aThzUFNwZHpoVHhVZGIxWnVpVm9mdnhod2hSRVQ0NmlFa0htLzhqNmsyb0x1a0tQb2xKeWhUeFVEWmdsTFVIemF3YTAyQS9VblpqL29oSkJoRmxrL1VtekJWMXhUenpaUXJUWkNJUlhIMTZyeDJ6VkVqUS9Ick5SdzdBVWZuRVFmMEMxOUNMclQ2b3RpTitOek1WMWIzaGlIeUpnQ0NEUmdQSWhRS29saUhzeml4a1p5Y3pWTVl4S0JGRnY1cXcvcWJZZzA1c2Q5Y3pPN08xSTVGcmt1MnhRdkxxRWhERkx0d1NGb1NWbHNQZFd6NjZvR1pVSVlzeXM5U2ZWRm5TRm5HbkFUTHdCNVppbFc0TG9JdGxqUHhCZFFXZUgzUWYyQXp2U2ROYWZZYW90aUM2clptZXlFSFVTdVJiNUxoc1VyeTRoekp0QldnVE1JQUVCTTBoQXdBd1NrUGVZcWJqREZZeFhsMUE3aGdBcXpxSmd2THFFZ0ZrVDQ5VWxCTXlhR0s4dUlRSE1VdHcvL1VFUXhPVUlvakI2RHNVUnNWQVJxRlVxMlp1dHUzK3VINTlldnIveVo1a2pjbVZ3UkNSVUJHcVhxc0pzNGY3aGJWUVB5RnA0K0JuUzhkaEd6TmdTTkhudW1iY3Fxd2lFVng5ZUs4SXM0ZjdoYlZRUDZBVm40Wm5RQTNBWFFWNE53OUM0dW9wQWtBK3FBck5sOXc5djQzcEF0anpMWWNDWTJZaW9FaFVxQWhXTlY1ZVF4RWd6eGYxamV6TlhEK2h1bityN0VHWTJ3cFlJNm9hb0NGUTBYbDFDSWhNYWErNmZJUmY3NFhzenR2Q01nbUQvaStBVkYzRktscUNCQzZxa0lwQ0tzeWdZcnk0aHpKczFNVjVkUXUzQURQSkJ3QXdTRURDREJBVE1JQUY1ajVtS08xekJlSFVKdFdNSW9PSXNDc2FyU3dpWU5URmVYVUxBcklueDZoTGFEV2JwQmFpc2xZZTJ1UElaQTNvZ0RyOVpXMVI5YjVaV2dNcVZPT010YmhrNldsTUhmck8ycUViTUVnV29IR2E4aGV1M3NCRUlmclBXdk5hSFdiSUFsY1hNYm1FRDJhZ0x2MW1iVkJObUt3V29MR1oyQy9kbUZpNzR6VEFFS0txMEFsVHNISE5idUJwVmFGL2dOd05tUlpWV2dDcWcreTNlOHVSRk1uTHpVQlIrc3dMeDZoTEN2RmtUNDlVbDFBN01JQjhFekNBQkFUTklRTUFNRXBEM21LbTR3eFdNVjVkUU80WUFLczZpWUx5NmhJQlpFK1BWSlZRVFpwbUxUZDEzSHA5SnNQZkp1d3VYankxQVZWbmhLUlZuVVRCZVhVSjE5V2FaaTAxWmo4LzBFaFVDV3JoOGVDOFVubXFYeW1DMnJkaVVmU3B1VjhLSlhENXVyOVExNTJBRWF1eHJDY3kyRnB1eU5veWIzRDNGTGgrN0Z3cFB0VXRGTWN0U2JNcjJabmFWd3NqbDQvYXFydkFVNUlNS1lKYTUySlR6K0JoS3pBWFN1WHlpQWxRb1BGVXdYbDFDdFUxb1pDODJaVXZuQmJUMG5IWDVuSC9XN2pWRzRhbUM4ZW9Td3J4WkUrUFZKUVRNbWhpdkxxRjJZQWI1SUdBR0NRaVlRUUlDWnBDQXZNZE14UjJ1WUx5NmhOb3hCRkJ4RmdYajFTVWtnVmw2L1ovWXVyUFE5R3JvaWdIOS9tSkEvaC95KzR4bzZoVkdJRjBOYU1Rc3RmN1B3cm9UYTM1RUQ0eGNNU0I2V2pWL1kyaWZPSlUxQXFrNGk0THg2aEtTeFN4Ui80ZXRPL1RvNlpRWG5LTU9xY01HSVM2ZndZL0pHYk9SSzN3QUkxRGpYNnZDTEZuL2g2MDdaQXZxUml1Qm5mU256d3hQK3ZZVERpVE1YUFVwR0lHYXIwb3dXNm4vdzlZZHRnVXhZZnlvM0JxRXVEY2JVTnh5YndZalVNTlZGck8wK2o5czNZbHNRWU85MjRTVnc4eThvd3ZxdGVWN3N6SkdJTWdIbFo3UVNLdi9ROWFkNjJRTG90dXlub2tJT21RUWV1clEyb1VDODBJOUhObUhZQVRLR2E4dUlTM3pabDhQdy9tMTdXSGJCY3drR3ZBVnM1R2JHQ3N0WUNiUmdLK1lWU1pnSnRFQU1OdDFBbEJSQVROSVFNQU1FcER2bUgxUFBBdW9nTHpIVE1VZHJtQzh1b1RraGdDYjdFRDdwNWZIeTJHVkc0R0FtUmZ4MWZSbTZYYWcrZkdIQ1VPUTJWQ0RFUWlZZVJGZk1XWkpPeEE5dVR5T3ZVRGRTZEN0d1FoRW1PVXlwdmdlYjNid01MNWF6RmJ0UVBQak1aczBERkRoRndkaERVWWdEQUc4VUlXWXJkcUJ1RGV6bUJFNzVoSlpneEVJbUhtaGFqQkx0d09GaEJsN2dkN3FPY3pDcW8xQXdNd0xWVFNoa1dvSG9xdG5qNzFBZE9XYkhUNWZoeEVJOGtHK3o1dnBHRWdKeHF0THFCMlB6bFdjUmNGNGRRa0JzeWJHcTBzSW1EVXhYbDFDN2NBTThrSEFEQklRTUlNRTVEdG1tSjcxUXBWZ2x0OElOS3hxYVRBNE5MeUlyOWloa2RVSVZOblNZTURNaS9pS01jdHFCS3BzYVRBWWdieUlyeGF6ekVhZ3lwWUdRMi9tUlh5Rm1PVXhBbFcyTkJpR0FGNm9Hc3h5RzRFcVd4b01tSG1oaWlZMENoaUJLbG9hRFBKQnZzK2JRVjdJZTh4VTNPRUt4cXRMcUIyUHpsV2NSY0Y0ZFFrQnN5YkdxMHNJbURVeFhsMUN6Y01NOGxiOEEvUURzMVRWUGZ6MC9maWF2Z0ZnMXRqamEvb0dQTVlNOGtmQURCSVFNSU1FQk13Z0FmbUpHUnU5NDVlNmpqODdyUGY0N0YycHQ0RzZ6cEE5TGkxcE9kNGFTL0lTTTJjbWNpKzFIZi9la0syYXRSM2ZjTnpaR2x1cWdWRk52eWJSRCtBcTJRZXp5RXZNbkRVeWNraldkWHlqZWpDT2puL3prNXA2TTllQTZZNzNhdms5Y2NjM3ROM01kbnd2TVdPamQveFMyL0dOYm1XN0poUTdQbms0NnpoOG9vR2ErclBvQkUzV2w3WlBsNWVZaWZWbWs0eG5zZER4MmRkWnoxWFRmUU1tL1hwK0Q5M3g1OWV5M2xWNGlablF2Wm45dzZvYWoxL2JFR0J4Z3VyNVJYSEhONmhsUEw2WG1GbWpkNDlmYWp6K2FQSDN5TFVjdjhhUnBtdGdWRk52Nlk1dit1T005MzUrWWdaNUptQUdDUWlZUVFJQ1pwQ0FnQmtrSUdBR0NhaVptSDEyN3R3VGYvdmF5c2J2L3MxckQvK0FON3FYSmFWdGl6ZCs4OFBQTjRWczEvcHVCUS9FbWZ5ejdTRS8rQ0JYTnJuMG40cnQzVWpNYmp6MmVmalpJNnNuNUliZHNvYmYwcWVwZXZqMFk1OXZDVmxSM01pRzFqTHRteUxMKzVuNjd0Vkh6OEtzcEFwUzJrVE12dm5IZENxK3VyQ3kyZlJtOUxMaDk5Rjl1dUdJL05NOU0yUlpjU01GZnZ2UDJPVzdQOHRBME1PZjFJaForUEFQdDRLZW9pWmk5dGxqN2t6UXRkT2M5Zjl5em16NDZ0eTVSK2lpYVY0djBLOWs0ck9IVDU5NzlBTm02THRYenoxdWVvUC9SaHNlL3VTWGoveUhQM2lOUC96bWgzOSs3bkhHN01ZNVBqanRhUGJuZjFMZ3YvL2hYNTE3N08vT1BmYjNUei82Z2VuMHVCSGFNYVcxa0x1RWI5d09uMGRIY2hHL2ZPVGZSZnU2OE0vTTI2alpyeDRuNU4yZXR2RkVKSC9IMGI4U0g1anZ5cnkvRWJlOXlHTVJFemQyN2duN0hYOC9PZ3VyU2R4WS9mWE5vaVpqWnZxZ2I3Ny9MdzA1OUdQOXdRZW1rek1FL0c5aTVaSFhrcDk5OW9RQnlIWlYxQlA4QTIvNDlhdm14MjRDK2NOdnZuL2h1MWN2bURkZm1XMVBXQnhEczVIKytjOU5vUG0zK2VrOFRuZC9QeUZncVJIZU1hVzFrSzYrdjQ1MitMVTdVaFR4UkJqdCsyc2Jic2k2OFlScjFtd1BGMDN4eGtSa3lCamVvRS9kTitVKytPenhSZWEyYlJlK2lISGJPSXNMNWorNmRHOUk0ck1uQ3Z4SW1vd1puUkJ6MXZrSFR6OGdab2x3c3YrT1A2TWYzUVYzUlRRbjhqZWY4d1lpTHZxUUxwcU1qZmx0TjFpNEM5Tm5UL0EvNmIwOWtFSFJ2WEZkNDRXMDF1eGdKTEVESHltS0NPTjliUWgzSGxHekZCWHZhVGN1SWtQWDB5UytLZnYycThjVG1jZHQwM2U3aUluUEVwMEJjd0lmL25SVEVzRE15ZDZiZmZPWG4vRkoyWUJaNHJPdnpDOTRoTmszUC9pdmZ4bnlCdmNqNS9jTHpOd1ZJNExEL1ZqVE1JdVB1dEphbUk1WkZCSEcreVovd3E3WlpjeG9ZeUl5WE1JczhRSDN2ZEVoa3BnbFl0eFpldHoxbUJmK2RtTVN3Q3dTalRUTnJhckJMVDZCWDVtN3IxY2YvZXNZcytSbk45d1ZNZDZYTjdnZk9iODNtSmxMQjNjTUlmMmU4NERMWGt3ZS9uUVZzNGRQVXp0aGZOU1Yxc0lWek95UjRnaDdCM2doSnZZcjZsbWladW5lTE42VE55WWk2WE1LVG54VDdoQlAyRjM1RU1rOEVqSDJxODNDQko5TG5JV1ZKSEJ2RnVzRzNmTnlOMy9CdkgvOE0zUFd6S1p6Rit3YmZrbDg5bmZuSHZrbmovN1MzVVIvODBkMGxzMkdmOEZCOXNPL2ZwV2k3ZDQ4WFdCdWs4L1I5TVlOZDI5dERtUmUvb3JmUGZKUGFhUndnUS95d1hwcm4xTmVqLzE1dE1QZnV5TzVDTDZ6ditBU2NJay84bHJvbXFXUlpySXBHbU1zSXZrYmYrUzF4RGRsUC9oZjM2ZmhoVHVFYmR1R0ozWjIyemlMMExLVW5nUkdtb0txYnRJZzM1SE9ubnJkb0g4d0ZQOG1GeHpmL2R0TjRUa21kWklDWm9XMEs4eXlQQVZZRlpIeDhGZTVkbG1iYzR5RnB3Q0NNamZWanhXNWR0UjVwTTM2eXQ1Q1pOWU5IcEpXS21BR0NRaVlRUUlDWnBDQWdCa2tJR0FHQ2VqL0E5MWQ0c1lnRzVMNkFBQUFBRWxGVGtTdVFtQ0NcIiAvPlxuXG48IS0tIHJuYi1wbG90LWVuZCAtLT5cbiJ9 -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAANzCAMAAAA0niQkAAABv1BMVEUAAAAAADoAAGYAOpAAZrYAZv8zMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///39/f/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///9Nm9rGAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO2djZ8bVZaezcdkMskklJtpRuxsZmMvjGlQw8TBs15EdjPZyWZoIA3mw3Kyk2RRm7WHQIzYbLLIJjNpC1YGBQvVH5x7zr1VKkmlVn0enVv1vj9oyaVTdU9XP32r7q23zz0XQlDtOrfrBKA2CJhBAgJmkICAGSQgPzD7R5C34h+gJ5jtOgGoqIAZJCBgBgkImEEC8h6zL3MexPd4dQllivces+9ByrT5RyeJ2fSP+9HbSdd8mb00THw6Owz2xythkYCZF0r7Kclj9vW/7rp386PuymezK+Hs8nglLBYw80JpPyV5zD6amO5q9HLwctCbPHdxb2i4mh2e709/cbg3nATdCDMOow/CQfDce3Zu9ssv+Ubgy+Trrk8qtKrln499Fcds9rG5Ss4OO5PO9KohadId7Y/v9icvHO0NT/pfHES9GYeF5oOuubKOerwrejMvlPZTEsdsEgRBL5z0Jl2DWTecHsyPx4MgMNAZqKYxZjaMPjjpAzOvlPZTEsfsd+Nw0llgNuoazO6ZQUASM/PehtEHI/RmfintpySM2fyI+6gf/Xz/zSDYu206K9Nv9czwsjPYu3PYmR0+f2i6sfPXbdj+qfnAfBicgZmKaSHBeHUJNWfe7KzeTMVZFIxXl1BjMJua8Si9AjOJBlqLWSRgJtEAMNt1AlBRATNIQMAMEhAwgwTkPWa7noxsvdoxBNj1WW691GDGHrJRsDe0JrLZ4f7fvJ+0lc2PaOb/fXJjmPd7w8Re9DV6CADMVEoNZvZxOD2fZBPZqGfYWrKV0T8e9Gevd8Lw//2r4dJeZEGbWCKBmUopxIxNZEzNsq3s8vhBP5y9/dIw/N1/HI7omeb+m90FZp0QfjO1CtP8ZTvxm0WYWRNZOAm6y7Yyc2U0F8zZO4Pe/L/fpIDe7PK7UW92GHTcYdCbaVQmAuQwM/xMovusUW/JVuZ6s3eml/7v/7g5NGD16M8Eot5semmczHVFuz7LrVcmAkQwm7/eZ2gir5mBaMlWxv84mL0zf/1PxjeHN4eT3vTgpG9DzEVz1E3mCnkomQmN6UVzVXRes/3/82ywdydpK/vRz80/gj81ndikawakbwVmyytHT16048+gOz8631/kuiIVT4YF49UlpGcIUJGAmUQDwCxto4qzKBivLiFg1sR4dQm1AzPIBwEzSEDADBKQ95jtYK4Ryi1gtgUzFXfQkg00agiQYg66zn6gtXJTCwEziQYahdkmc9CDFcxmVxbvgZlEAw3FbMkcZCgbnO8P9k8TpaimF5/6WMoItH78LzMZXeTizQ4exu8cs6Q5yPqBCLZkKaq7/a+t1RFDAG+1W8zWzEF0zTzp31oqRRX7toGZt9oZZpvMQQfh9GfvhclSVPeG5ssi1xUBMx+0uwmNNXPQpzTSpJ7tJvtpo1JU3d8fnlV4CvJB3s+bqRhICcarS0j3SLOAgJlEA8AsbaOKsygYry4hYNbEeHUJtQMzyAcBM0hA3mOGCTMfBMyAmYDqxWyj3ed9+jvNzvQiLd9Ek7LR+kw7qwi08VtQcQct2YCPQ4CNdp/5G8P5UY/XoLs3dGUMdlkRaON3oOKnJNmA15it2n0MZrSQzttHvQVmu6wItHbc6BVGIA+MQBvtPq43uzZ7sR9jtsuKQBu/AxWdgWQD3vZmaXYfqtDYCefXwumlWzFmO6wIVNcJgFg1Y7bR7kMXzZAwC0e8civV/ilUEQiY+aC6JzQ22H3+9JCGn2a7IeimLQ/0frGKQJAP8n7eDPJB3mOm4g5XMF5dQhqGAJUKmEk0AMzSNqo4i4Lx6hICZk2MV5dQOzCDfBAwgwTkPWaYX/VBlWO2bR0wdvbs32e/z4imXqMyQCWNQNV9B1D1qr4327oO2JVwfjymh03Tg/AkUQaonBEoa3oq7ohLxKtLaEdDgK3rgF2hJ5lsBHKPOB/052z8KWUEWt2+6VWbsSdvvA5jT974+jA7Yx2wjsXsbp8ejbsyQO+WNAJlTU/FL3eJeHUJ7bI3O2sdsJTeLGTjTykjUNb0VJz1EvHqEtoRZlvXAeP6i0v3ZtMDNv6UMgJV+B1AlauGCY2z1wF78iKZf+ijsfliR5rBK0ds/IERqKnyft4M8kHADBKQ95ipuMMVjFeXUDsenas4i4Lx6hICZk2MV5cQMGtivLqE2oEZ5IO8xwxzsz4ImEECyoVZipesP6AKUssR/O4kWlBuEux98u7CSxZ7zjorB+dDJg8U0EP3l4aLbcDMW+Xrzda9ZNePTy/fv7YSETI01kk2vTSeHXYXXjLe0xZqWT42f5A40JXQFkBYzXVFeTFTcUdcIl5dQjUMAVK8ZLxtfmQ6MV4xzmJm/n2+b70Xd61l0XnJ3J6u7JTZ6/Rw/8OgOzLdHH/glp8zfZ3FzByDD7vFb6bID1Z3vA7/WN74YpglvGS8bdQLR3bFOIvZqEveC3aS3eQeKfaS2T1tb0Z7dSddEzL7ODKjEZqTxd4jtnOf2MspejOJBrT0ZsteMt5mOJge8FJeFrOTvn1rejOLSOQlc3vaslO81/yNO7eu3osPScvPsX2DerOj3vx4zIdN5LoiYOZDfD7MUrxktjcz/+jGmE2vmt5stH9qnWSXxuQ4c14yt6e96+K9wtGlT6k0qP2Al5+bEMFkSxtkwAzyQTknNNa8ZEMyjdl7M1ox7im2ltEVL3jFLSg3oRstV1Tq/LOR54xut3gv09GZy3B0yDH1laaRgA+0P54EPV6ILpEr5KE0zpt9PeT6emsCZt5KI2Yj95ebqwJm3kojZpuER+cSDSgYAuxWwEyiAWCWtlHFWRSMV5cQMGtivLqE2oEZHpz7IGAGCah2zLYVokoEFi08VV/yUEWqvzfbVohqEVi08FR9uUMVSRCzTYWoqBcbBM+9V7jwlCqjTt3xOow9eePlMNtUiOpuf0JuoFGvcOGpXOmoGHiViFeXkJKR5rZCVIMg6Jz0GbOChadypaPirJeIV5eQEsy2FaKi6+nI9mYFC0/lSkfFWS8Rry4hJZhtKURFlmwyCtGidCg81VSpmTcb9baGADNvpQWz6cW94bYYYOattGCWRcDMW3mPmYo7XMF4dQlpGQJUJmAm0QAwS9uo4iwKxqtLqB2Y5X2kqeKsl4hXlxAwg7QoP2ZnOXsSkqsIlCN3aEcq0Jud4exZSLAiUJ7cod2oDGarzh5b4ac74UdLchWBchpX8LqD1xKYrTl7ogo/J33RikB5cldyR1wiXl1CdQ0BNjp7uMIPMyJaEShP7krOeol4dQnVhdlGZ09UF2iw95ZcRSBg5kN8kQmNDc6ePlf4oSFiT7AikIqzKBivLiFv581QEahx0ogZKgI1Thox2yRg5q2AGSQg7zFTcYcrGK8uIW+HAJsEzCQaAGZpGzFv5kM8MPMsXl1C9WKWww/U4TXE7Kwufe3CCNQ2Fe/NcviB+MPpM8Nw9mL/27HZACNQy1QBZtv9QPwhlyigL9P3YARq22t5zLb6gcxG+nBAvdekEw6Czi6NQNAuVBKzbH4g/jDuzZgxGIEKxqtLqOaRZg4/EH9It/h0fxaGt8YwAhWOV5dQ3RMamf1AnQe8hpgdaQ7sdhiBCsarS8jbebNcRiAVZ1EwXl1C3mIGI1DjpBGzTQJm3gqYQQICZpCAvMdMxR2uYLy6hLwdAmwSMJNoAJilbcT0rA/x9WCW7hIKgs704v6YJiyCdctQ4aXB8qWm4qyXiFeX0C57sxSXkH1cPqcHS/eG65ah4kuDVZ07VL3qxmzhEnLmn7ePejFmo5eDl4NevBRYwaXBNBhd8Hr2a82YJVxCrje7Nnux7zCbHXYmnenVeCmwgkuDVZ07VL3qxGzZJWTNP/Nr4fTSLdebTXpk5YiXAiu4NFjVuUPVqybMUlxC1vxDz8RHe0NrGbKYxUuBFVwaLF9mKu6IS8SrS2inExppLiEzhjRbDDM3o8XB9t8MkkuBFVkaTMVZFIxXl1A75s1UnEXBeHUJAbMmxqtLqB2YQT4ImEECAmaQgIAZJCDvMVNxhysYry6hdgwBMD3rQzww8yxeXUK7weysglTx6nNUjaVLT9T3PnXr1MFvpqUBPzA7qyAVb6HiGMe3huTc+MiFP7AL7sBv1ljViNlqQSq3ZXbF/kk5Ff2hf1INoDn8Zs1+rQ+ztYJUUW0pZyC7Nf6WCp/ZAlOzy/CbNVk1YZZWkMptcb0Zl/2J16mD36zZqh6zjQWp3BaqKBXaC6Grx0jr1BX2m6m4wxWMV5fQriY0NhSkun4UrT7X5Wos/EcAFBdQdSr4zbQ04AtmtQmYSTQAzNI2qjiLgvHqEmoHZpAPAmaQgIAZJCBgBgnId8y+p+IOVzBeXUKtGAIAMy/ia8Ismx1ovLxLESMQMPMivq7eLJMdaLn4VCEjEDDzIr52zM6yA1VQeOp7K//Gq8rXujE7yw5UReEp+DO8UK2YbbMDVVB4Cph5obowy2QHqqDwFDDzQrVNaGSwA81ReApDAH0CZhINALO0jSrOomC8uoSAWRPj1SXUDswgHwTMIAEBM0hAvmOGeTMv5D1mKu5wBePVJVT7EGDTOnO91UB6bjl3pX8mwd4n7y48P7yndf+MaCJ2UR/IvOuG/EB0OddlATMv4kv1Zmlun4VvJxavOudK/0wvjWeH3YXnh/fkZcOmB6F9wOTqA10J7booq7kuC5h5EV8NZgm3D/t2TK+0f3rYnZzvU6/Umf7ikNfPMQDdtQw5z4/b065O5557RvWBrrjSB7zzZiPQlzmNKb7Hmx08jK8Es6Tbh307BplRd9I13RN/mT4zpDJTdDm8yR1U7PlxexJmBkB2a0T1gfjdaP++uaCeMJsYAvir8pituH3Yt2O4mB4wYfTgfGzuzaLSP5aYyPMT7bncm9n6QKY3O+rNj+3OiVyXBcy8UCnM0tw+7NsZmX91DR+DvduEX4QZlf4xEJoo5/lxey7fm7n6QFfCcADMGqJyExppbh/y7Vw392ZUIC/omYigMzDbf8ylf3rUf3XIuEien/PP2j3H9L95012qD0R/kzIJerRzJ5Er5KHqnjf7ehjaGqAVCI/OJRrQN9LMoJGbB6tCwEyiAS8xq1LATKIBYJa2UcVZFIxXl1A7MIN8EDCDBATMIAH5jhmmZ71QGcxSjED9QRDExQiiqj6kk+tnGIHIA7S2UBiMQLtpQN8QYN0IdP349PL9aysRIRebOsMIxM+ZVhcKgxFoNw0oxmxhBOJt5AMaR+6fkC2N5/tnGIHsU/OVhcJgBFJs7MkbXwlmCSMQbyMf0Ats4LGYjbrhmUYg9gCtLhSW0Qik4pdVMF5dQkK92bIRiLexDyi2ZdCahmcbgbg3C1cWCoMRqEEqhVmKEcj2Zs4H5Nw/V8katH+62Qhk781WFgqDEahBKjehsWYEGpKdx96bkYHnKa4CxE7tV842AhkQVxcKgxGoOfJ93gzyQt5jpuIOVzBeXULteHSu4iwKxqtLCJg1MV5dQsCsifHqEmoHZpAPAmaQgHzHDNOzXgiYQQIqj9mm8lP8dCkpfmRADwDmR/xAfK3UFFag09CA1iFAevmp+fGHiQJUZsP0mWE4e7E/PTDAvZdaagor0GloQD1myfJT82sGtLj2VHcSdHlJnFGXHrf/bpxaaqrQCnR5/Vq+x+vwj+WNrxCz1fJT8+MxFwUyNIVfHIQDuvSRkaM7eye91FShFehU/LIKxqtLSLQ3Wy0/xb2ZxYzAMddH15uFs5d+208vNYUV6BqrCjBLLz8VhtYrNth7q8eY0QCB7s/CQVSfcbXUVJEV6CAvVMWERmr5Kbp69rj2lF2htWvDwtAaZVNLTRVZgQ7yQb7Pm0FeyHvMVNzhCsarS6gdj85VnEXBeHUJAbMmxqtLCJg1MV5dQu3ADPJBvmOG6VkvBMwgAVWO2SZfUGd6kYqyBPxXvjQ9myxQZXcsZASqLnOoPlXfm6X4guZvDKkeBi1Ed88WCZqvFKjiHWEE0tCAJ0OAFF8QPyfvzt8+6kWYucpBLwcvB73Y+AMjkDfGnrzx9WGW8AW53uza7MV+ErPZYWfSoSVdnfEHRiANDfjUmy37guj5eIcW1ZleupXszSY9KhwUG38KGYFUnEXBeHUJ7QizFF+Qre5JazeNbAFH04UtMIuNP0WMQBgCeKEaJjTSfEFm+Gi2GFxu3rG1qKwJaP/NIGn8gRGoqfJ93gzyQsAMEpD3mKm4wxWMV5dQOx6dqziLgvHqEgJmTYxXlxAwa2K8uoTagRnkg4AZJKDymBWqCDROW3OuiBEI8kIV9GZFKgKlrjlXxAgEeaEqMctRESh1zbkiRiB1Rp2643UYe/LGV4hZnopAqWvOFTEC6RhICcarS0hqpFmkIlDqmnNFjEA6zqJgvLqEpDArUhEodc25QhWBVJxFwXh1CYnNmxWrCJSy5hyMQE0V5s0gAQEzSEDADBKQ95ipuMMVjFeXUDsenas4i4Lx6hICZk2MV5cQMGtivLqE2oEZ5INyYJbu+Nkfr4SdXD+i6dj9v+m7CVny9rCfp7MSyYdJHB5GoMYqT2+W5vi5vEqZ3cgfOusPV2qxZTSWQ/kwicPDCNRYFcIs4fhhFOZHwb41/Zh35wkz/jB6WO4wIxcQB+5/GHRHptPiwwzO9wdmm+nrihmB8OrDaxHMko4fRmHUMwhZ00/XrY9DH0bWn0VvFgXeHM4+dodhhwbvCyOQigZ2PgRIc/wwCifmNuyAUTHv7vYj9pZ6My4KxIHzN+7cunovPsxJ/9aY19aBEUhFAzvHLM3xw2adEZkVremnG47ojwD4w8j6E100DXMUGI4ufUqFG+1hwunP3qNjGaBgBNLQwM4xS3X8BHYT22Ct8+cVM9J88CyPSK31Z0A3ZPRvvokzo8d3zKU3OsyY+kcTGDx1WMgIpOIsCsarS8ijebOvh1z9bIsw0vRWOjAbuT+iO1vAzFvpwCybgJm3AmaQgLzHTMUdrmC8uoQ8GgJkEzCTaACYpW1UcRYF49UlBMyaGK8uoYoxS/EB9fkLrVOyoqTFZ77iCzJfyd+BikBtUo7eLMUHRF+uH3XXQpcsPiu+oG/HZgMqArVLRTBb+ID4y/QXh3vk3ulPnnvm9vOHey5ixs4gs+3Oii8onL4XVlcRCK8+vBbALOED4i+ml6J6GJNXjvbvm0seVWPhCLJsGF7Gq76gQdCpsCIQ5IPyYrbsA+Iv5t7sLldhNFyZ/8z10EawM2iy8KTFvdn8jSEqAhWNV5dQ1SPNFB+Q9fsQZuTesZgZkGwEO4NuMy5LvqAwvDVGRaCi8eoSqnxCY80HNGS/z2DvzmFnFAT7b+4NTT9mrpw2gpzXvQGNJZd8QQPuCyurCKTiLArGq0toF/Nmk/VRZ3UCZhINeIDZYtarDmEI4K28fwoA+SBgBgkImEEC8h4zFXe4gvHqEtrFSLNWATOJBoBZ2kYVZ1EwXl1CwKyJ8eoS2iVmZxWpWtjVVnaB36yxqqs3O6NI1WLLyi7wmzVWtWO2WqQquWX0cvBy0Iv9ZfCbNfa1bszWilQltswOO5MOWbydvwx+s8aqVszSilQlt5B3aHo19pfBb6ahAZ+GAJuLVC3b1Qiz2F8Gv5mGBrzCbFORquuJLZ+aO7Ag6S+D30xBA35hVoOAmUQDwGzXCUBFBcwgAQEzSEDADBKQ95ipuMMVjFeXUDuGACrOomC8uoSAWRPj1SW0Q8y2+YDY3rM/rqLwlIqzKBivLqFd9mbbfECzK+H8eIzCU21R3Zht8AHNrsyvhSg81ZrXmjHb5ANiew8KT7VGdWJ2hg+Ie7OwisJTkA+qCbNtPiBzKeQwFJ7CEKCMzvYBPenKHKPwFDBTJ2Am0QAwS9uo4iwKxqtLqB2YQT4ImEECAmaQgIAZJCDvMVNxhysYry6hdgwBVJxFwXh1CdWOWbrdJ/btLEQFDObO8TMJ9j55d+H5sQVb0tajM++6IT8RXc51RSrOomC8uoTq783S7D4L306sOa9RZx0/00u0ZtjC88N7pq5Hd4UeRaXkuiIVZ1EwXl1Cgpgl7D7s2zFd1/4pr0BHvVKH16izz8jvWoac58ftmboe3RX3xJN3hhHI79dKMEvafdi3Y7gZdaOlwU76vEaddfzc5A4q9vzYPVPXo+N3I17U7sRWQsNI01uVx2zF7sO+HcPF9IAJoyfnY7tGHfdmlpjI8+P2TF2PzvRmR735sd05kSvkoUphlmb3Yd/OqGNXphvs3Sb8IszI8WMgNFHO8xOtVZe2Ht2VMBwAs4ao3IRGmt2HfDvXzb0ZXQCDnokIOrRG3Y/Z8dOj/qtjF98cBeeftXuOU9ejs3+U0uMF7hK5rkjFHa5gvLqEVMybfT0MrU+2AgEziQa8xGzk5sGqEDCTaMBLzKoUMJNoAJjtOgGoqIAZJCBgBgkImEEC8h4zFXe4gvHqEqp3CFDEBWReXjii1U34SSX7f+aoCKSsAV2Y5XcBmYDppTE9bXrQZ5MPP2MqWxFIxVkUjFeXkBRmGV1A/ED8hB+e3xozZiNX86BURaAvcxpTfI83O3gYXx6zbC4gCja9l8Hq9e7sHX5Mbv0/qAjUBpXELIcLyNp7Lv/uzku/tW6MRG+GikANV3HM8ruAaKgw6NB/4fK9WZmKQJAPKjGhkdcFxONJg+P0PfNK/Zz50i1dEQjyQbXOm1XpAgox0pRpQNlIM4OqdAGFwEymAf8wq1jATKIBYJa2UcVZFIxXl1A7MIN8EDCDBATMIAEBM0hA3mOm4g5XMF5dQhUPAVIMZn3+QoayFdlyUvGOdv25+0fBkxcjT1laqSn4zTQ0sOuRZorBjL5cP+quhXJEpHj9OfN/5ClLLTUFv5mGBtRgtjCY8Rc2lFFpgslzz9x+nqtEfcTFfchyRtui9ecIs8hTllZqCn4zb/xjeeMLYJYwmPEXNpSZt68csfd61HUR5AUyvIwjKxrVxIg8ZamlpuA3a6zyYrZsMOMv1unD1VcILTIv2qIsztkYRuvPUW/mPGWppabgN2uscmCWYjDjL4wZmcQsZqY3c+Wk2HLWXaw/x5hZT1lqqSn4zRqrPBMaawaz4QP6wpWhRuaS+Obe0PRjNKLkiFOynA1s0J1opOk8ZcPUUlPwmzVVFc+bTdZHndUJI02JBnY90sygxaxXHQJmEg14gFm9AmYSDQCztI0qzqJgvLqE2oEZ5IOAGSQgYAYJCJhBAqoZsxT30PXY+rMaGcRPL2NT0B2sQCfdgJdDgLTyVLH1JxHGC4HNj6LqaKumoESuK1JxFgXj1SWkC7NEeSp+WD443x/sn5pei31Ek6DLxVu61I9NnnvmjjMFbV+BTptRp+54HcaevPFSmC2Xp2Lrj4Htbn/yAq8w98WB6814y8IwtH0FOhW/rILx6hLS05utlKey1p+T/q3xgMrskcFjesCFQzshbUmYgrA0WDNUN2Zp5anY+hNOf/YeX01jzHgtYNrCmFlTEDBrhmqf0FhzD33qlqKjPo6ssewjmh0+f0jj0XiLMwXd3roCHeSDMG8GCch7zFTc4QrGq0tIxRCgSgEziQaAWdpGFWdRMF5dQsCsifHqEmoHZpAPAmaQgIAZJKB8mKVVBRokDDxR2OVxShmg888m4iqrCAT5oJy92bqv5/rx6eX7K8X/R4bFlDJAtloBu35QEahovLqE6hgCpPh6eButOjeOSwPNj8eTlDJAkatnEnRREahovA5jT974gpglqwLRNlp17gVn2Zn0DGZpZYBml+9Hrp/qKgKp+GUVjFeXUG292UpVINrGq87FpYEIs5QyQNSbOTtGdRWBVJxFwXh1CdWBWYqvx/ZmnWRpILpoppQBSmCGikDtUt4JjfWqQLSOnL03i0sDfRH0UsoA0UjTuX66ISoCtUqYN4MEBMwgAXmPmYo7XMF4dQm149G5irMoGK8uIWDWxHh1CQGzJsarS6gYZl+de+Kb7z+RsykZYQjgrVYxe/jTh78KH/7kg13lc5aAmbdaxey7vzCYffXY59v3TDEFvc/enWWdXD8KOuwYslO7zuoDI1CrlHLRPHfu0Uyd2YZiP8uyG/nD6TPDcPZin/+8vDojEOSD0ocA/zMLZ+nFfsKQnzyd8sJg5t15wow/5EeT5guX/oERqL1GoIdPn7PK1J2lFfu5bK0ZhiZesWlEX2gjfTiga59BhjCDEahovLqECow0f+PuybL3ZmvFfsLQuoIYM/Pubj9ib603C2EEaidmubSp2M/VyBU02HurG472Ty9bWxCNFOj+bHFvVoURSMVZFIxXl1AxzOjC+Xi2BtZMQXcOedjIriAaIvboyytmpMlLiLmRJgWPYQRql9YmNF59wow2MT0LVaq16dk/pNuzTPdm4gJm3mrtovm3r5kv/xmYQVUqfULDo4umijtcwXh1CRWf0Pjmj3I2JSNgJtGAzEjzRubpWXEBM4kGRDB7+NPv/iJ8+KucTckImEk0IIPZr8KvLnz3Z/70ZpAPWrtofvboBzdS52fTqgHxl+nVtViOcJrDCASlP2xKnTdLMf5wSaCj7looRyT2gxGo5Vqe0PjJB3ZOI3UIkGL84S9xIaDJc8/cfp7X8fqIrRdkBaJlvmo1AuHVh9e13uw3G58CpFUDoi+ml+JCQK8c8TpeBiQbQR6N67TMF4xAFcarS6jYEGDznwGkVQPii2dUCMhwZf4z10MbwVagycKEBiNQFfHqEio2b8bPmVJ7sxTjjzX4RIWALGYGJBvBVqDbjAuMQJXFq0uoWG+2+d4spRoQG3ziQkBvUiFGLgLEEadkBRrQWLJOI5CKsygYry6hYr3Z5nuzLJqsjzqrE0aa3ip1QqPwM83FrFcdAmbeag0z355pQj7I+2eakA/y/pmmijtcwXh1CRUbAmx8prl7ATOJBmQwUyxgJtEAMEvbqOIsCsarSyg/Zg9/mrMJWWEI4K2WMXs6OZVRpcGMbWOdM3aC36zRWsgP9PYAAB0sSURBVMbsV/ywKfq7pioNZub/+VHvjJ3gN2uy0u7NPnN9WpUGM7ZldG1Jqv0Pg+7I7MWHHZzvD/jxZwd+s+a+rvZm4Xevxg8BqjSY2d4sKkl1czj72O3ERiD2DMFvpqIBgSEA2TMuxJ9VaTAjJ0bHlqSav3Hn1tV78WFP+rfG7NqA30xFAwKYLXsaqzSY0f+hXaguHF36lG7v7E7h9Gfv0bENUPCbaWhAft6sOoOZ+Yhu4bgkleHJXIqjw46pvzSBwVOH8JtpaEDl9Gw1BrOvTXd3bWsURpreqiRmFRnMRu5vNc8WMPNW3j9sgnwQMIME5D1mKu5wBePVJSQyBJAUMJNoAJilbVRxFgXj1SUEzJoYry6hspgVNQLFi9HdPwqevGjdPfQ3vzACtVdn9WZFjUDxYnTm/8jdAyNQq5UJs5xGoNvRYnSEmXP3wAjU6tcsmOU1AtnF6OhqR7YL6+6pzQgE+aCtmBUwAoXRYnTUmzl3D4xAFcWrS6j0SLOoEShejI4xs+4eGIEqileXUPkJjWJGIA66E400rbvHCEagSuLVJSQyb7ZzI5CKsygYry4hCcxgBIKyyPunAJAPAmaQgIAZJCDvMVNxhysYry4hkZGmpICZRAPALG2jirMoGK8uoeoxy2wNmtt15eY0P7s/Dnl6tiYjkIqzKBivLqEaerPM1iB+UMRuoDl9dg9GoHarIGbbrEEcyA82528buu7BCNTu12KYbbUGceD0gDC7Nnuxfw9GoHarAGZZrEGJ3uxaOL10qz4jEOSD8mGW2RqUuDe7ZjjcgxGoqnh1CdUxoZHdGuRGmj8+ogvrzTuoCFRRvLqEdjRvVsQaBCOQngb8wKyQNaiEEUjFWRSMV5dQO54CQD4ImEECAmaQgIAZJCDvMVNxhysYry6hdgwBVJxFwXh1CZXFrKqlwczXbn1Lg6k4i4Lx6hIq3ZtVtDTYt7S6Tm1GIBVnUTBeXULVYVZyabBw+h6WBmv3axbMyi4NNgg69S0NBvmgrZhVsDSYZQxGoBbrLMyqWhosDG+NazMCQT7ozAmNapYGG5itMxiBKopXl5DIvBkqAgnHq0tIArPdVwRScRYF49UlhKcATYxXl1A7MIN8EDCDBATMIAEBM0hA3mOm4g5XMF5dQu0YAqg4i4Lx6hKqELMU69n1ozX/mHsKKbsCnYqzKBivLqEqe7MU65ljKqmRNYaJrkCn4iwKxqtLqBbMFtYzMi++HLwc9CbPH+7dYa/Z/Hg8vfjUxxOsQIfX5decmCWsZ7PLp4edSWf6J2w5YxOQwexu/+shVqCDVpQHs2XrGdt9yBXElrMIM3dvJbcCHeSDMmKWYj1LYjbqstfs0+PxvaFBTnIFOsgHZZ3QWLOefUpFpfbfDIK923xxJK/ZJOj93nRFWIGuxnh1CUnNm1VgOYPfTE8DSjGrwnIGv5meBpRiJidgJtEAMNt1AlBRATNIQMAMEhAwgwTkPWYq7nAF49UlVOsQoLQ1KNozcUQYgTQ0oAqz8tYgGIEKxatLSAizotagsBoj0Jc5jSm+x5sdPIwvjVlhaxCMQC1SOczKWINgBGqRCmNW2hoEI1CLVHxCo6Q16Pyz1RiBIB9Uy7xZbmsQjEB6GtA10jxD+a1BMALpacAbzOoSMJNoAJilbVRxFgXj1SXUDswgHwTMIAEBM0hAwAwS0BbM8qxCF9qnlt3VFehofgMr0FUVry6hSoYAOVahC9lOMX9juLICHS8LhopAFcWrS6hazLatQmcNPRFmSyvQOczqqQikzahTd7wOY0/e+KyYbV2Fjg095hJ33j5RT65At+jNaqgIpOKXVTBeXULV9WaZVqEjQw9dNI96qyvQMWaoCNRmbcMs+yp0ZOgxmJk+bHUFuuiiiYpArdXWCY2Mq9Bxn2f9sfdXVqBzi9PVVBEI8kFVzJuVLwlUwggE+aAKMKugJBCMQHoawKPztI0qzqJgvLqEgFkT49UlBMyaGK8uoXZgBvkgYAYJCJhBAiqEWQXlgEb24Sj9caebzChoBIJ8ULHerHQ5IH4GGn7kDvWA58xgBFLRgKIhQOlyQCOudnC4P7YOjTkbf2AE8sbYkze+HGaFywHd7YfTq9+SLS3yDr0bwgikogFtvVmZckDcm5kP7va5N+PnosWMQCrOomC8uoRqxKx0OSB7b+astgZLNv7ACNRYFZzQKFkOaG84MBfSkT2G0StHbPyBEaipqn7erIKVwjYImHmryjGrYqWwDQJm3sr7pwAq7nAF49Ul1I5H5yrOomC8uoSAWRPj1SUEzJoYry6hdmAG+SBgBgmoDGaZywXNrdtnTvOz++OQdoERqFUq1ZtlLhfEz43YDTSnz+5VaASCfFA1mG0rF8SB/GBz/vZRz+wCI1DReB3GnrzxlWCWpVyQge+AMLs2e7F/D0agwvHqEqp/pJm5XFCiN7sWTi/dghGocLy6hOrHLHO5oMS92TXD4V6FRiAVZ1EwXl1CAvNmGcsF3Y9Hmj8+ogur6QBhBGqVap83q9AXBMy8Vd2YVekLAmbeCk8BIAF5j5mKO1zBeHUJtePRuYqzKBivLiFg1sR4dQkBsybGq0uoHZhBPgiYQQLKh1lVC9JR7Wz4zVqknL1ZVQvSwW/WLhXFrOSCdPCbFY3X4R/LG18Qs7IL0sFvVjReXUJ1jDSrWpAOfrOi8eoSqgOzqhakg9+saLy6hGqZN6tmQbox/GbtUg3zZrVVngJm3qp6zOqrPAXMvBWeAkAC8h4zFXe4gvHqEmrHo3MVZ1EwXl1CwKyJ8eoSAmZNjFeXUDswg3xQOczSjEGDIFhdjM6W0Pjj/mJL7AaawwjUBpXszdaNQdePTy/fv7YcxUvRcUSs+IkTjEBtUFWYLYxBvM10Uvvj2B00Px7biBmvTDd57pnhwg1U0giEVx9eK8IsaQyibYag0Qvm+sfuoB5hZiNoyTDD0HjhBoIRSFkDGocAacYg2mbwmh7E7iDCzEbwynT00HO5N4MRSE8DGjFLMQbZ3qyTdAcRZjaCV6a73V25N4MRSFEDGjFLMQaxx4fvzWJ30BfBKy7ilFamG3CQdQOVNgKpOIuC8eoSwrwZpEXADBIQMIMEBMwgAXmPmYo7XMF4dQm1Ywig4iwKxqtLCJg1MV5dQsCsifHqEqoHs+zeH/ro/UP+Q80nL1qTz/lnk3FL1iAYgZqs/L1ZZu8PlwGiaELOmXzsc0r2Xaxag2AEarBKYLbN+8MfRZg5k495yyFs5eAD2NJBps/qwAjU3NfimG33/tBHtsDBODL5zC7f55AvDkJ3AHZosHGjmBEI8kEFMcvk/aGPot4sMvmY3oxCpgdhdAAqHcRP0mEEUtGAjiFAdu/PxNnJLGbW5JPEzB6ASwdNiFcYgVQ0oASzrN6fHpUBuhONNK3Jh0aaHDI7fMEdYEw9ozlk8NQhjEAaGtCCWQ36ehjOr22NAmYSDTQYs5H7I7qzhSGAt9KBWTYBM28FzCABATNIQN5jpuIOVzBeXUIeDQGyCZhJNADM0jaqOIuC8eoSksGscFGgioxAKs6iYLy6hIR6s8JFgWAEao8qxCxvUSAYgdrzWh1muYsCwQjUHlWEWZGiQNUYgSAfVB6zwkWBYAQqEq8uIakJjWJFgT6FEahQvLqEPJo3gxFITwMNxqyEEUjFWRSMV5eQR5hlE4YA3gqYQQICZpCAgBkkIO8xU3GHKxivLqF2DAFUnEXBeHUJAbMmxqtLaDeYpfjP3mfnWGgNZraoxu8v8uPNgB4GlFuBTsVZFIxXl9COerN1/1k/KjfFW2ZXwvnxR7zs3EcuHCvQNV01Yrbwn0WY8ZbZFftc6RbV2RuHWIGuDa/1YZbwnznMnMHMGshm74TfjtnmWG4FOsgH1YTZsv/MYWa3uN7MXijv9suuQAf5oOoxS/GfWeeY28L1QOmaGfI6dFiBTlkDngwB1v1nd2i0aO63eMuTF8nFTdfMcGTjsAKdqgZ8waw2ATOJBoBZ2kYVZ1EwXl1C7cAM8kHADBIQMIMEBMwgAXmPmYo7XMF4dQm1Ywig4iwKxqtLqD7MMhebuu9sPpNg75N3F0YfV3EKhacKxKtLqMbeLHOxKWvzmV6iQkALo4+rOFVJ4SkVZ1EwXl1CEphtKzZlH4zftX4yZ/Rxe2EFuha9lsNsa7Epa/O5yT1UbPRxe6HwVHtUArMsxaZsb3ZiezNn9In2QuGp9qgYZpmLTTmbjwFl0o2MPlHFqWoKT0E+qOCERvZiU7Z0Ht16Hcar0NFeP/o5Ck8ViVeXkEfzZig8paeBBmOGwlN6GmgwZtkEzCQaAGa7TgAqKmAGCQiYQQICZpCAvMdMxR2uYLy6hHYzBMhWEWg8oYgRTb2iIpCuBvzALFtFoDEVA5oehPaRUpmKQCrOomC8uoR2jdlZFYG4GNDIFT4oVRHoy5zGFN/jzQ4exteH2ZkVgbgY0N0+PRpHRaAWqCbMtlcECu/2F70ZKgI1XNVjlrEi0PyNYXxvVqYiEOSDapjQyFIRaMSjy4EbaZapCAT5IMybeRavLqF2PDpXcRYF49UlBMyaGK8uIWDWxHh1CbUDM8gHATNIQMAMEhAwgwRUGWbpBqAg2D91z83jOOsMun8UPHnRWX8+ZffPii3IvOuG/Fh0OdcVqbjDFYxXl5DwECDNAESenw/3F5jRk6PIGWT+j60/8zeGa7agK7x1PdcVqTiLgvHqEtoVZgkDED0lnx+fHnYn56mqRndi/oucQYRZVCOIgFq1BV1xa6BwgSEYgeJXFcaevPHVY5Y0AJGJZ3485oI/BqPwi4P4g4CLszjrD2G2agvidyNzcbUFhkL0ZjIN+NCbrRiAbG9mMSMjmbkwhpEziHqzqEbQcm9mbUGmNzuiai9c+SWRK+ShqsMszQBEnh9LymDvrR5jFjuDGDNXI2jp3szZgsy+A2DWEFU4oZFmAOrSRbJH10j60pkddh/YD+xI01l/hlwZaNUWZP8ypccFhhK5Qh4K82aQgLzHTMUdrmC8uoTa8ehcxVkUjFeXEDBrYry6hIBZE+PVJdQOzCAfBMwgAQEzSECFMdtk/OmtBk6vktmHDT7m5YWjoEsFNEZ25nbv07IVgSAfVLw3Szf+TPbHy2Hzo64LNgHTS2MqVfCgz0+Wwo/cJ6gIpKgBZUOAVOMPPc6kNShi70/QYSMPB/MTdPrv1tg+J6eyQKgIpMGoU3d8ecxWjT+8PliXkeIv02eG9pE4Pzjvzl7vzt6xrh8uC1S2IpCKX1bBeHUJSfRmq8YfuiTy+mC256JH4nalMNebzS7/7s5Lv+1b108Y2k9KVQRScRYF49UlVDNm6cafUTdeH2ywd5vwizHjocKgQ/9Z10/o/LGoCNR4lZjQSDX+zI+o9A9fC4MerfjVISPPj+PxpMFx+l7IxYC4LBAqArVCtc6bZVvxK7OAmbeqFbNsK35lFjDzVt4/BVBxhysYry6hdjw6V3EWBePVJQTMmhivLiFg1sR4dQm1AzPIBwEzSEDADBJQ5ZhlXIFuwA/ZK1iBDvJB1fdmmVag+6IXDnpYga5AvLqEdjQEyLQCHRuBsAId/GaFlWkFulHXYFbJCnQqflkF49UltMvebNsKdAxXJSvQqTiLgvHqEtoRZhlXoDMvWIGuNaphQiPbCnQ0oMQKdG0R5s0gAQEzSEDeY6biDlcwXl1C7Xh0ruIsCsarSwiYNTFeXULArInx6hJqB2aQDwJmkIBKYpar/JT1AP3+YmDiUXiqVSrbm+UrP2U9QPPXKyw8BfmgyjDLVH7qCv8R+qQbovBU0Xgdxp688VVhlq38FH9CgSg8VTReXUIiI8185ae4Nxv0QhSeKhyvLiERzPKVnyIPEF1Qr1VXeErFWRSMV5eQzLxZjvJTT9GKdOz86aLwVLskMG9WWfkpYOatBDCrrPwUMPNWeAoACch7zFTc4QrGq0uoHY/OVZxFwXh1CQGzJsarSwiYNTFeXULtwAzyQZVhtskStH96ebwcZ0sE3T8KnrwYWX/SbEE8i8sPSpdzhTxUdb1ZuiVofvxhwhRET46iEkHm/8j6k2oLukKPolJyhTxUDZglLUHzawa02A/UnZj/ohJBhFlk/UmzBV1xTzzZQrTZCIRXH16rx2zVEjQ/HrNRw7AUfnEQf0C19CLrT6otiN+NzMV1b3hiHyJgCCDRgPIhQKoliHszixkZyczVMYxKBFFv5qw/qbYg05sd9czO7O1I5Frku2xQvLqEhDFLtwSFoSVlsPdWz66oGZUIYsys9SfVFnSFnGnATLwB5ZilW4LoItljPxBdQWeH3Qf2AzvSdNafYaotiC6rZmeyEHUSuRb5LhsUry4hzJtBWgTMIAEBM0hAwAwSkPeYqbjDFYxXl1A7hgAqzqJgvLqEgFkT49UlBMyaGK8uIQHMUtw//UEQxOUIojB6DsURsVARqFUq2Zutu3+uH59evr/yZ5kjcmVwRCRUBGqXqsJs4f7hbVQPyFp4+BnS8dhGzNgSNHnumbcqqwiEVx9eK8Is4f7hbVQP6AVn4ZnQA3AXQV4Nw9C4uopAkA+qArNl9w9v43pAtjzLYcCY2YioEhUqAhWNV5eQxEgzxf1jezNXD+hun+r7EGY2wpYI6oaoCFQ0Xl1CIhMaa+6fIRf74XsztvCMgmD/i+AVF3FKlqCBC6qkIpCKsygYry4hzJs1MV5dQu3ADPJBwAwSEDCDBATMIAF5j5mKO1zBeHUJtWMIoOIsCsarSwiYNTFeXULArInx6hLaDWbpBaislYe2uPIZA3ogDr9ZW1R9b5ZWgMqVOOMtbhk6WlMHfrO2qEbMEgWoHGa8heu3sBEIfrPWvNaHWbIAlcXMbmED2agLv1mbVBNmKwWoLGZ2C/dmFi74zTAEKKq0AlTsHHNbuBpVaF/gNwNmRZVWgCqg+y3e8uRFMnLzUBR+swLx6hLCvFkT49Ul1A7MIB8EzCABATNIQMAMEpD3mKm4wxWMV5dQO4YAKs6iYLy6hIBZE+PVJVQTZpmLTd13Hp9JsPfJuwuXjy1AVVnhKRVnUTBeXUJ19WaZi01Zj8/0EhUCWrh8eC8UnmqXymC2rdiUfSpuV8KJXD5ur9Q152AEauxrCcy2FpuyNoyb3D3FLh+7FwpPtUtFMctSbMr2ZnaVwsjl4/aqrvAU5IMKYJa52JTz+BhKzAXSuXyiAlQoPFUwXl1CtU1oZC82ZUvnBbT0nHX5nH/W7jVG4amC8eoSwrxZE+PVJQTMmhivLqF2YAb5IGAGCQiYQQICZpCAvMdMxR2uYLy6hNoxBFBxFgXj1SUkgVl6/Z/YurPQ9GroigH9/mJA/h/y+4xo6hVGIF0NaMQstf7PwroTa35ED4xcMSB6WjV/Y2ifOJU1Aqk4i4Lx6hKSxSxR/4etO/To6ZQXnKMOqcMGIS6fwY/JGbORK3wAI1DjX6vCLFn/h607ZAvqRiuBnfSnzwxP+vYTDiTMXPUpGIGar0owW6n/w9YdtgUxYfyo3BqEuDcbUNxybwYjUMNVFrO0+j9s3YlsQYO924SVw8y8owvqteV7szJGIMgHlZ7QSKv/Q9ad62QLotuynokIOmQQeurQ2oUC80I9HNmHYATKGa8uIS3zZl8Pw/m17WHbBcwkGvAVs5GbGCstYCbRgK+YVSZgJtEAMNt1AlBRATNIQMAMEpDvmH1PPAuogLzHTMUdrmC8uoTkhgCb7ED7p5fHy2GVG4GAmRfx1fRm6Xag+fGHCUOQ2VCDEQiYeRFfMWZJOxA9uTyOvUDdSdCtwQhEmOUypvgeb3bwML5azFbtQPPjMZs0DFDhFwdhDUYgDAG8UIWYrdqBuDezmBE75hJZgxEImHmhajBLtwOFhBl7gd7qOczCqo1AwMwLVTShkWoHoqtnj71AdOWbHT5fhxEI8kG+z5vpGEgJxqtLqB2PzlWcRcF4dQkBsybGq0sImDUxXl1C7cAM8kHADBIQMIME5DtmmJ71QpVglt8INKxqaTA4NLyIr9ihkdUIVNnSYMDMi/iKMctqBKpsaTAYgbyIrxazzEagypYGQ2/mRXyFmOUxAlW2NBiGAF6oGsxyG4EqWxoMmHmhiiY0ChiBKloaDPJBvs+bQV7Ie8xU3OEKxqtLqB2PzlWcRcF4dQkBsybGq0sImDUxXl1CzcMM8lb8A/QDs1TVPfz0/fiavgFg1tjja/oGPMYM8kfADBIQMIMEBMwgAfmJGRu945e6jj87rPf47F2pt4G6zpA9Li1pOd4aS/ISM2cmci+1Hf/ekK2atR3fcNzZGluqgVFNvybRD+Aq2QezyEvMnDUyckjWdXyjejCOjn/zk5p6M9eA6Y73avk9ccc3tN3MdnwvMWOjd/xS2/GNbmW7JhQ7Pnk46zh8ooGa+rPoBE3Wl7ZPl5eYifVmk4xnsdDx2ddZz1XTfQMm/Xp+D93x59ey3lV4iZnQvZn9w6oaj1/bEGBxgur5RXHHN6hlPL6XmFmjd49fajz+aPH3yLUcv8aRpmtgVFNv6Y5v+uOM935+YgZ5JmAGCQiYQQICZpCAgBkkIGAGCaiZmH127twTf/vaysbv/s1rD/+AN7qXJaVtizd+88PPN4Vs1/puBQ/Emfyz7SE/+CBXNrn0n4rt3UjMbjz2efjZI6sn5Ibdsobf0qepevj0Y59vCVlR3MiG1jLtmyLL+5n67tVHz8KspApS2kTMvvnHdCq+urCy2fRm9LLh99F9uuGI/NM9M2RZcSMFfvvP2OW7P8tA0MOf1IhZ+PAPt4KeoiZi9tlj7kzQtdOc9f9yzmz46ty5R+iiaV4v0K9k4rOHT5979ANm6LtXzz1ueoP/Rhse/uSXj/yHP3iNP/zmh39+7nHG7MY5PjjtaPbnf1Lgv//hX5177O/OPfb3Tz/6gen0uBHaMaW1kLuEb9wOn0dHchG/fOTfRfu68M/M26jZrx4n5N2etvFEJH/H0b8SH5jvyry/Ebe9yGMREzd27gn7HX8/OgurSdxY/fXNoiZjZvqgb77/Lw059GP9wQemkzME/G9i5ZHXkp999oQByHZV1BP8A2/49avmx24C+cNvvn/hu1cvmDdfmW1PWBxDs5H++c9NoPm3+ek8Tnd/PyFgqRHeMaW1kK6+v452+LU7UhTxRBjt+2sbbsi68YRr1mwPF03xxkRkyBjeoE/dN+U++OzxRea2bRe+iHHbOIsL5j+6dG9I4rMnCvxImowZnRBz1vkHTz8gZolwsv+OP6Mf3QV3RTQn8jef8wYiLvqQLpqMjfltN1i4C9NnT/A/6b09kEHRvXFd44W01uxgJLEDHymKCON9bQh3HlGzFBXvaTcuIkPX0yS+Kfv2q8cTmcdt03e7iInPEp0BcwIf/nRTEsDMyd6bffOXn/FJ2YBZ4rOvzC94hNk3P/ivfxnyBvcj5/cLzNwVI4LD/VjTMIuPutJamI5ZFBHG+yZ/wq7ZZcxoYyIyXMIs8QH3vdEhkpglYtxZetz1mBf+dmMSwCwSjTTNrarBLT6BX5m7r1cf/esYs+RnN9wVMd6XN7gfOb83mJlLB3cMIf2e84DLXkwe/nQVs4dPUzthfNSV1sIVzOyR4gh7B3ghJvYr6lmiZuneLN6TNyYi6XMKTnxT7hBP2F35EMk8EjH2q83CBJ9LnIWVJHBvFusG3fNyN3/BvH/8M3PWzKZzF+wbfkl89nfnHvknj/7S3UR/80d0ls2Gf8FB9sO/fpWi7d48XWBuk8/R9MYNd29tDmRe/orfPfJPaaRwgQ/ywXprn1Nej/15tMPfuyO5CL6zv+AScIk/8lromqWRZrIpGmMsIvkbf+S1xDdlP/hf36fhhTuEbduGJ3Z22ziL0LKUngRGmoKqbtIg35HOnnrdoH8wFP8mFxzf/dtN4TkmdZICZoW0K8yyPAVYFZHx8Fe5dlmbc4yFpwCCMjfVjxW5dtR5pM36yt5CZNYNHpJWKmAGCQiYQQICZpCAgBkkIGAGCej/A91d4sYgG5L6AAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrRmljMVpoY25ORGIyNVFaWEp0YVcxd0xuTjJaMXdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TVRFdU5Td2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p6ZG1kY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNaRUZ1Ym05NVRXNUJZbk5XWVhKelEyOXVVR1Z5YldsdGNDNXpkbWRjSWlsY2JpQWdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjSWxCMGMwRkNaRUZ1Ym05NVRXNUJZbk5XWVhKelEyOXVVR1Z5YldsdGNDNXdaR1pjSWl3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRFeExqVXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpY0dSbVhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJCYm01dmVVMXVRV0p6Vm1GeWMwTnZibEJsY20xcGJYQXVjR1JtWENJcFhHNTlYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BYnNWYXJzQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTExLjUsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0xMS41LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFic1ZhcnNDb25QZXJtaW1wLnBkZlxcKVxufVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAbsVarsConPermimp.svg\, width=8, height=11.5, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAbsVarsConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnAbsVarsConPermimp.pdf\, width=8, height=11.5, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAbsVarsConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtGaWMxWmhjbk5EYjI1UVpYSnRhVzF3TG5OMloxeGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNVEV1TlN3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHpkbWRjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1pFRnVibTk1VFc1QlluTldZWEp6UTI5dVVHVnliV2x0Y0M1emRtZGNYQ2xjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNYRkIwYzBGQ1pFRnVibTk1VFc1QlluTldZWEp6UTI5dVVHVnliV2x0Y0M1d1pHWmNYQ3dnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVEV4TGpVc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjR1JtWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUkJibTV2ZVUxdVFXSnpWbUZ5YzBOdmJsQmxjbTFwYlhBdWNHUm1YRndwWEc1OVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BYnNWYXJzQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTExLjUsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0xMS41LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFic1ZhcnNDb25QZXJtaW1wLnBkZlxcKVxufVxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFic1ZhcnNDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MTEuNSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BYnNWYXJzQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BYnNWYXJzQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTExLjUsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXAucGRmXFwpXG59XG5gYGBcbmBgYCJ9 -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAbsVarsConPermimp.svg\, width=8, height=11.5, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAbsVarsConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnAbsVarsConPermimp.pdf\, width=8, height=11.5, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAbsVarsConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZCc2IzUWdiMjVzZVNCd2IzTnBkR2wyWlNCMllXeDFaWE5jYmx4dWNtVnpkV3gwYzA5MWRFRmljeTVqYjI1cGJYQlFkSFlnUEMwZ2NtVnpkV3gwYzA5MWRFRmljeTVqYjI1cGJYQWdmRDVjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJSEp2ZDI1aGJXVnpYM1J2WDJOdmJIVnRiaWduVFdWMGNtbGpKeWtnZkQ1Y2JpQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJR1pwYkhSbGNsOXBaaWhwY3k1dWRXMWxjbWxqTENCaGJHeGZkbUZ5Y3lndUlENGdNQ2twSUh3K1hHNGdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQmpiMngxYlc1ZmRHOWZjbTkzYm1GdFpYTW9KMDFsZEhKcFl5Y3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJCWW5NdVkyOXVhVzF3VUhSMktTQXJJR2RsYjIxZlkyOXNLR0ZsY3loNFBXWmhZM1J2Y2loeWIzZHVZVzFsY3loeVpYTjFiSFJ6VDNWMFFXSnpMbU52Ym1sdGNGQjBkaWtzSUd4bGRtVnNjejF5YjNkdVlXMWxjeWh5WlhOMWJIUnpUM1YwUVdKekxtTnZibWx0Y0ZCMGRpa3BMQ0I1UFVOdmJtUlFaWEp0U1cxd0tTd2dabWxzYkQxdGVXTnZiRzkxY25OYk1WMHNJSGRwWkhSb1BUQXVOU2tnS3lCc1lXSnpLSGc5WENKV1lYSnBZV0pzWlZ3aUxDQjVQVndpUTI5dVpHbDBhVzl1WVd3Z2RtRnlhV0ZpYkdVZ2NHVnliWFYwWVhScGIyNGdhVzF3YjNKMFlXNWpaU0FvYldWaGJpQmphR0Z1WjJVZ2FXNGdZVzV1YjNsaGJtTmxLVndpS1NBcklIUm9aVzFsS0hSbGVIUWdQU0JsYkdWdFpXNTBYM1JsZUhRb1ptRnRhV3g1SUQwZ1hDSnpaWEpwWmx3aUtTd2djR0Z1Wld3dVozSnBaRDFsYkdWdFpXNTBYMnhwYm1Vb1kyOXNiM0lnUFNCeVoySW9Nak0xTENBeU16VXNJREl6TlN3Z01UQXdMQ0J0WVhoRGIyeHZjbFpoYkhWbElEMGdNalUxS1N3Z2JHbHVaWGRwWkhSb0lEMGdNQzR5TlN3Z2JHbHVaWFI1Y0dVZ1BTQXlLU2tnS3lCamIyOXlaRjltYkdsd0tDbGNibkJDWVhKY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbiMgUGxvdCBvbmx5IHBvc2l0aXZlIHZhbHVlc1xuXG5yZXN1bHRzT3V0QWJzLmNvbmltcFB0diA8LSByZXN1bHRzT3V0QWJzLmNvbmltcCB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXNfdG9fY29sdW1uKCdNZXRyaWMnKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyX2lmKGlzLm51bWVyaWMsIGFsbF92YXJzKC4gPiAwKSkgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbl90b19yb3duYW1lcygnTWV0cmljJylcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEFicy5jb25pbXBQdHYpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wUHR2KSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wUHR2KSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1sxXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Plot only positive values
resultsOutAbs.conimpPtv <- resultsOutAbs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > 0)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbs.conimpPtv) + geom_col(aes(x=factor(rownames(resultsOutAbs.conimpPtv), levels=rownames(resultsOutAbs.conimpPtv)), y=CondPermImp), fill=mycolours[1], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkJzYjNRZ2IyNXNlU0J3YjNOcGRHbDJaU0IyWVd4MVpYTmNibHh1Y21WemRXeDBjMDkxZEVGaWN5NWpiMjVwYlhCUWRIWWdQQzBnY21WemRXeDBjMDkxZEVGaWN5NWpiMjVwYlhBZ2ZENWNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lISnZkMjVoYldWelgzUnZYMk52YkhWdGJpZ25UV1YwY21sakp5a2dmRDVjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lHWnBiSFJsY2w5cFppaHBjeTV1ZFcxbGNtbGpMQ0JoYkd4ZmRtRnljeWd1SUQ0Z01Da3BJSHcrWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCamIyeDFiVzVmZEc5ZmNtOTNibUZ0WlhNb0owMWxkSEpwWXljcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUkJZbk11WTI5dWFXMXdVSFIyS1NBcklHZGxiMjFmWTI5c0tHRmxjeWg0UFdaaFkzUnZjaWh5YjNkdVlXMWxjeWh5WlhOMWJIUnpUM1YwUVdKekxtTnZibWx0Y0ZCMGRpa3NJR3hsZG1Wc2N6MXliM2R1WVcxbGN5aHlaWE4xYkhSelQzVjBRV0p6TG1OdmJtbHRjRkIwZGlrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTVYwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYRnhXWVhKcFlXSnNaVnhjTENCNVBWeGNRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9iV1ZoYmlCamFHRnVaMlVnYVc0Z1lXNXViM2xoYm1ObEtWeGNLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWEZ4elpYSnBabHhjS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLeUJqYjI5eVpGOW1iR2x3S0NsY2JuQkNZWEpjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSBwb3NpdGl2ZSB2YWx1ZXNcblxucmVzdWx0c091dEFicy5jb25pbXBQdHYgPC0gcmVzdWx0c091dEFicy5jb25pbXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJvd25hbWVzX3RvX2NvbHVtbignTWV0cmljJykgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlcl9pZihpcy5udW1lcmljLCBhbGxfdmFycyguID4gMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW5fdG9fcm93bmFtZXMoJ01ldHJpYycpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRBYnMuY29uaW1wUHR2KSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0QWJzLmNvbmltcFB0diksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0QWJzLmNvbmltcFB0dikpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbMV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSBwb3NpdGl2ZSB2YWx1ZXNcblxucmVzdWx0c091dEFicy5jb25pbXBQdHYgPC0gcmVzdWx0c091dEFicy5jb25pbXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJvd25hbWVzX3RvX2NvbHVtbignTWV0cmljJykgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlcl9pZihpcy5udW1lcmljLCBhbGxfdmFycyguID4gMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW5fdG9fcm93bmFtZXMoJ01ldHJpYycpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRBYnMuY29uaW1wUHR2KSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0QWJzLmNvbmltcFB0diksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0QWJzLmNvbmltcFB0dikpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbMV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuYGBgIn0= -->
```r
```r
# Plot only positive values
resultsOutAbs.conimpPtv <- resultsOutAbs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > 0)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbs.conimpPtv) + geom_col(aes(x=factor(rownames(resultsOutAbs.conimpPtv), levels=rownames(resultsOutAbs.conimpPtv)), y=CondPermImp), fill=mycolours[1], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qZ3NJbmRwWkhSb0lqbzRMQ0p6YVhwbFgySmxhR0YyYVc5eUlqb3hMQ0pqYjI1a2FYUnBiMjV6SWpwYlhYMD0gLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjgsIndpZHRoIjo4LCJzaXplX2JlaGF2aW9yIjoxLCJjb25kaXRpb25zIjpbXX0= -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFKbUNBTUFBQURCOHJ5NEFBQUJ2MUJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacllBWnY4ek16TTZBQUE2QURvNkFHWTZPZ0E2T2pvNk9wQTZaclk2a0xZNmtOdE5UVTFOVFc1TlRZNU5ibTVOYm81TmJxdE5qbzVOanF0TmpzaG1BQUJtQURwbUFHWm1PcEJtWmdCbVpyWm1rTnRtdHR0bXR2OXVUVTF1VFc1dVRZNXViazF1Ym01dWJxdHVqbzV1anNodXE2dHVxOGh1cStTT1RVMk9UVzZPVFk2T2JrMk9ibzZPYnF1T2prMk9qbzZPanNpT3E2dU9xOGlPcStTT3lNaU95T1NPeVArUU9nQ1FPanFRT21hUVpnQ1FacENRa0RxUWtHYVFrTGFRa051UXRwQ1F0ditRMjdhUTI5dVEyLytyYmsycmJtNnJibzZyamsycmpvNnJqcXVycTI2cnE2dXJxOGlycStTcnlNaXJ5UCtyNU1pcjVPU3I1UCsyWmdDMlpqcTJabWEya0RxMmtKQzJ0bWEyMjVDMi83YTIvOXUyLy8vSWprM0lqbTdJam83SXEyN0lxNDdJcTZ2SXlJN0l5S3ZJeU1qSXlPVEl5UC9JNUt2STVQL0kvOGpJLytUSS8vL2JrRHJia0diYmtKRGJ0bWJiMjVEYjI3YmIvN2JiLy8va3EyN2txNDdrcTZ2a3lJN2t5S3ZreU1qazVLdms1TWprLzhqay8rVGsvLy8zOS9mL3RtYi90cEQveUk3L3lLdi95TWovMjVELzVLdi81TWovNU9ULy83Yi8vOGovLzl2Ly8rVC8vLzlObTlyR0FBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzJkajUvYlJucmVWN1phNTlwcmhWMW5mWFNjT3BWcW43dzIxMDVWNmFLSWJ0SnIzT1M4WjBkbjJiS29OdGNrNXVxeXl0VlhpYnFtalNsZEw1VW9oYktZRTBYOHdaMzNIUUFFUWZBSFFNendmY0huK2Rna0YzZ0J2QXQrTlJnTW5uMW5KNFFnNTlyWmRBTFFOZ2lZUVI0RXpDQVBBbWFRQituQTdKOURhc1Zmb0JMTWNwWTlMcnFUb2h0b2o1ZVJFRENyZWJ5TWhJQlp6ZU5sSktRZE0waUZnQm5rUWRveCsyZVFOTTMvNm9BWlZKbm1mM1UrTVJ2K3UzYjhjZEEwTDZNUHVxbTFvOE5ndjU4Sml3WE1WQ2p2Uy9lUDJiZi9vUmw5R2g4MU0rdEdsOExSaFg0bUxCRXdVNkc4TDkwL1pqOGZtT2FxZHpHNEdMUUc3NXpiNnhxdVJvZTc3ZUVQRHZlNmc2QVpZOFpodENMc0JPOWN0NDhBSGovbXUrZkhxZmRObjFOb1JsUGZUL1R1SGJQUjErWXFPVHBzREJyRHk0YWtRYk8zMzcvZkhyeDN0TmM5YnYvcUlHN05PQ3cwSzVybXl0cHI4YVpvelZRbzcxdjNqdGtnQ0lKV09HZ05tZ2F6WmpnOEdGL3RkNExBUUdlZ0dpYVkyVEJhY2R3R1pxcVU5NjE3eCt6WC9YRFFtR0RXYXhyTUhwaWJnRFJtNXJNTm94VTl0R2E2bFBldGU4WnNmTVJ0MUcvLy92Nm5RYkIzMnpSV3B0MXFtZHZMUm1mdnptRmpkUGp1b1duR2RtL1lzUDJIWm9WWkdjekhERkloRmVObUMxb3pTSVUwWURZMDk2UDBqa2ZuSmVKbEpLUUJzMWpBckVTOGpJU0FXYzNqWlNRRXpHb2VMeU1oN1poQktnVE1JQS9TanRtbXh5S2hBbDhkTUlQS3FzQlg1eFl6OXBEMWdyMnVOWkdORHZmLzVzdTByV3g4UkNQL1g1SWJ3M3plNjZhMm90ZjRJUUF3RXlrNXR3RDhPSnllVDdLSnJOY3liRTNaeXVpSHArM1JqeHRoK0UvL3ZqdTFGVm5RQnBaSVlDWlNBakZqRXhsVE0yMHJ1OUIvMmc1SG4zM1FEWC85NTkwZVBkUGMvN1E1d2F3UndtOG1Wby96L0dVYjhadkZtRmtUV1RnSW10TzJNbk5sTkJmTTBlZWQxdmgvM0tLQTF1akNGM0ZyZGhnMG90MmdOWk1vWWEyWjRXY1E5N042clNsYldkU2FmVDQ4Ly8vKzU2MnVBYXRGZnlZUXQyYkQ4LzEwcnRQYTlFbUdWaUxBQzJiakg3Y1ptdGhyWmlDYXNwWHhEd2VqejhjLy9vUCtyZTZ0N3FBMVBEaHUyeEJ6MGV3MTA3bE9hOU1uR1ZxSkFEOERHc056NXFvWWVjMzIvKy9id2Q2ZHRLM3N0My9mL0JEOG9XbkVCazF6US9xVHdDeTVjdlRxT1h2L0dUVEhSN3Z0U2E2UVFta2ZONE5VU0R0bU9wOGtlNHlYa1JBd3EzbThqSVNBV2MzalpTUUV6R29lTHlNaDdaaEJLZ1RNSUEvU2p0a0doaHFoNGdKbXdNeUROb1ZaamdmdEJ0dk9acXFhVGJRUnpFVDBvTmVJbDVIUXhscXpPUjYwcHhuTVJwY21uNEZaaVhnWkNXMGVzeWtQbXFHc3M5dnU3RDlNVlR3Ym5udnRhMDkrc3h5LzFPT0ZQaXI1OGVGS2ZqRFg4UnZITE8xQnM3WXpnaTFkOGV4KysxdnJxRVZyVmlKZVJrS2J4V3pHZzBiWHpPUDJ5VlRGcytUUEEzQUxvRllidzJ5ZUIrMGdISDcvZXBpdWVQYWdhMTRtdVU0TG1LblE1Z1kwWmp4b2QrbE9rMXEyVzJ6YmppdWVOZi9oY0VGOU0yQ21RdHJIelNBVjBvNlp6aDZ4eDNnWkNRR3ptc2ZMU0FpWTFUeGVSa0xBck9ieE1oTFNqaG1rUXNBTThpQmdCbm1RZHN3d01LdEN3R3dKWmlKNjBHdkV5MGpJTFdaenpZdGZVbkdEeHZBY3pYbElqNWppU1EwM1ZrWnY3cThnNGx0YUkxNUdRbzViczdubXhmRW4zZkZSaXlkdWZkQ05hdjlzc296ZTNOOUF4TGUwUnJ5TWhIeGhsalV2R3N4bzlyblBqbG9UekRaWlJpKzczK1M5cUkxUVd2eFcyQnJubWhlajF1emE2UDEyZ3RrbXkraTVPZ0VReXdkbWVlWkZLbXZjQ01mWHd1SDVrd1N6RFpiUmMzVUNJSlpqek9hYUYrbWlHUkptWVkrbk82ZUNlWnNzbytmcUJFQXMxd01hYzh5TGYzaEl0NTltdVNIb2xxMnA5eVhLNk5WWDJzZk5kTjU0ZVl5WGtSQXdxM204aklTQVdjM2paU1FFekdvZUx5TWg3WmhCS2dUTUlBOENacEFIYWNjTXc2c3F0SFdZaWVnUmU0eVhrVkRsbUMyYm81VU5aUHVQMkZiV294SCt1SGJlZW42emxmTVRjZFk5eHN0SXFQcldiT2tjclpmQzhkVStQZE1jSG9USHFkcDVhL25OVms1UHhGbjNHQzhqSVllWXpadWo5Ukk5TUdlL1dmUWsvV2w3elA2eWRmeG0yZVZ6MzEzN3U2VEYxOVZ2dHNJY3JRMkwyZjAyT1RDaTJubGZyT2MzcS9BWGdLcVhJOHdXemRHYTA1cUY3QzlieDI5VzRTOEFWYS9xTVZzNlJ5c1hMWjdxbXcwUDJGKzJqdCtzd2w4QXFsNE9CalFXejlINjZqbnltTkdxdm5teGQ1ckJsU1AybDhGdlZsZHBIemZUZWVQbE1WNUdRc0NzNXZFeUVnSm1OWStYa1JBd3EzbThqSVMwWXdhcEVEQ0RQQWlZUVI2a0hUTU16cXJRMW1FbW9rZnNNVjVHUW9Vd3kvR1N0VHRVcUd3NmdqOGR4N093RG9LOVgzd3g4WklsbnJOR1p1ZTh5L1NPQW5yby9rRjNzZ3lZbFlpWGtWQ3gxbXpXUzNiajZzTUxqNjVsSWtLR3hqckpodWY3bzhQbXhFdkdXOXA2UU5QNzVoV3BIVjBLYloyTmJLN1RBbWFiUG9CTHpDWmVNbDQyUGpLTkdFK3phakV6UCsrMnJmZml2clVzUmw2eWFNdW91cG5aNnVIaC9zK0NaczgwYzd3aW1yUFZ0SFVXTTdNUDN1MFN2NWtnZjVlMGVJMStzeHd2R1MvcnRjS2VuV2JWWXRacmt2ZUNuV1MzdUVWS3ZHUjJTOXVhMFZiTlFkT0VqTDZPeldpRTVtQ3lkWS90M01mMmNvcGJBTFVxZ2RtMGw0eVhHUTZHQnp6L3BjWHN1RzAvbXRiTUloSjd5YUl0YlhVejNtcjh5WjJUeXcrU1hkS2NyV3pmb05ic3FEVysydWZkcG5LZEZqQlRvV0tZNVhqSmJHdG1mbWdtbUEwdm05YXN0Ly9RT3NuTzk4bHhGbm5Kb2kxdHI0dTNDbnZuNzFJRldydUM1MndkRU1Ga1Mrc0FzNXFvNElER2pKZXNTNll4MnplamFWWmZZMnNaWGZHQ0s5RXNyQVBxYUVXMXkzYmZqajFuMU4zaXJVeERaeTdEOFM3NzFGYWFnd1M4by8zK0lHang3SzJwWENHRmtqaHU5bTJYeXpqT0NJL09TOFRMU0VnaVpyM29MemV6QW1ZbDRtVWtKQkd6ZVFKbUplSmxKQVRNYWg0dkl5SHRtRUVxQk13Z0R3Sm1rQWRweHd5RHN5cTBkWmlKNkJGN2pKZVJrSFBNbHRVN1N3V1dyVzlXS0I4Ulo5MWp2SXlFM0xkbXkrcWRUUUxMMWpjcmxJNklzKzR4WGtaQ0hqR2JWKytNV3JGTzhNNzEwdlhOUlBtN3BNVnI5SnVWMGJKNlovZmJBektkOVZxbDY1czVUQjZxUnA0d1cxRHZyQk1FamVNMlkxYXl2cG5ENUtGcTVCNnpaZlhPNkhyYXM2MVp5ZnBtRHBPSHFwR0hBWTNGOWM3SStVOStOSnBpRS9YTjZpb3g0MmE5MXRJUVBEb3ZFUzhqSVNtWURjL3RkWmZGQUxNUzhUSVNrb0xaS2dKbUplSmxKQVRNYWg0dkl5SHRtRUVxQk13Z0R3Sm1rQWNCTThpRHRHTlcrQ0dBaUI2eHgzZ1pDUUd6bXNmTFNLZzRab3Q4aWluNUs2TlhJUGRReUZuM0dDOGpvUkt0MlFLZjRrUWV5K2dWeVYzSVdmY1lMeU9oZFRETCtoUnRXYnptZ0IrVSt5dWpWOUNHaC9jTnZLK0IyWXhQTVM2TGQ5ejJXa2F2U083UVpsUVdzenlmSXBmRlkwYThsdEZiNTllSC9LZ0Vabk45aW5FeHZjN2VUM3lXMFZ2ekRFQWVWR1pBWTQ1UHNjMWw4ZWdXc2VXdmpKN09IckhIZUJrSlNSdzNReG05Q3VObEpDUVJNNVRScXpCZVJrSVNNWnNuWUZZaVhrWkMyakdEVkFpWVFSNEV6Q0FQQW1hUUIybkhESS9PTjMyQXJiZ0ZBR2FiUG9CYnpBcll6aG84djZ0OWVFQ3ZUZmpOL01YTFNLaDhhMWJBZHNZcmgyOTF3OUg3N2QvMHpRTDR6YnpGeTBpb0FzeVcyODU0SmRmMW9aZmhkZmpOdHUxOWZjeVcyczdNUWxyWm9kWnIwQWc3UVFOK3MyM1RtcGl0Wmp2amxVbHJ4b3pCYjdaVktvOVpBZHNacjZRdVB2WFB3dkNrRDcvWmxtbU5BWTJWYldlTnB6eS9xNzNUN05qbDhKdDVpcGVSa01SeE0vak5Lb3lYa1pCRXpPQTNxekJlUmtJU01ac25ZRllpWGtaQzJqR0RWQWlZUVI0RXpDQVBBbWFRQjJuSERJL09OMzJBcmJnRkFHYWJQc0FHTWNzM293VkJZM2h1djAvallzR3NNNjMwdEszRlVoTngxajNHeTBqSVVXdVdZMGF6cm93eFBiOTgwSjExcHBXZnRyVllaaUxPdXNkNEdRbTV4bXhpUm9zOFpwOGR0UkxNZWhlRGkwRXJtYWExNUxTdEV2eFVlRi84N2hpemxCa3RhczJ1amQ1dlI1aU5EaHVEeHZCeU1rMXJ5V2xicTg0ZHFsNHVNWnMybzFtUDJmaGFPRHgvRXJWbWd4WTVocEpwV2t0TzIxcDE3bEQxY29SWmpobk5lc3pJZXRIYjYxcG5tc1VzbWFhMTVMU3RWZWNPVlM5WEF4cDVaalJ6RDJtV0dHWnV4Uk8zN244YXBLZHBMVEZ0cTg0ZXNjZDRHUWxwSHpmVGVkWTl4c3RJQ0pqVlBGNUdRc0NzNXZFeUV0S09HYVJDd0F6eUlHQUdlUkF3Z3p4SU8yWjRkTDdwQTJ6RkxRQXcyL1FCTm9QWm9ycG55VnlhVlBTblNVL1U5KzVHczI3Q2IrWW9Ya1pDMWJkbUMrcWU4Uktxd1hMMXBFdk9qWjlINFUvdDlHSHdtem1JbDVHUVE4eXlkYytpSmFOTHRuSUIxWmFpSDZuVTFCaCtzM3EvdThOc3B1NVpYTUlzTXBDZDlIOUQ5ZlZzSGJQUkJmak42aXhIbU9YVlBZdVdSSzBaVjVkS1p0MkUzNnplcWg2enVYWFBvaVZVdUN5MEY4S283Q2ZOdWdtL1dhM2xZRUJqVHQyekcwZnhYSnBOTHZyRGZ3UkFjUUVWUVlQZnpGRzhqSVMwajV2cFBPc2U0MlVrQk14cUhpOGpJV0JXODNnWkNXbkhERkloWUFaNUVEQ0RQQWlZUVI2a0hUT2RQV0tQOFRJUzBvNVo0V2NBSXM2NngzZ1pDUUd6bXNmTFNNZ1JacXVaRy92VG01U3lOUmJOVE1SWjl4Z3ZJeUZYcmRsSzVzYnBVbnJsYkkyVlp3NDVrSFBNRnBrYnF5aWpsL2taN3lMZlhXTzJ5TnhZU1JtOXlqT0hITWdwWnN2TWpWV1UwYXM4YzhpQlhHRzJrcm14aWpKNlJSTVQwU1AyR0M4aklXY0RHaXVZRzhjb293Zk01QW1ZbFlpWGtSQXdxM204aklTMFl3YXBFRENEUEFpWVFSNEV6Q0FQMG82WnpoNnh4M2daQ1duSERNT3ptejRBTU11VGlMUHVNVjVHUXV0Z05tOXkxbFkya0I2UGo2TjZlWU5nN3hkZlRLeGx2S1UxbWZWb3ZIOVNWTTk4YW9iODNIMDYxMmtCczAwZndIMXJsbWNxbTlqREV2RlVyVkc5dk9INS91aXdPYkdXOFpZODErYndJTFRQTWFPaWVwZENPNWxZTnRkcDRkRzVDbFdEV2NwVXh2WXcweXJ0UHp4c0RuYmIxQ28xaGo4NDVFbm5ERUQzTFVPUnRTemEwazdwR2oxZWo0dnFYWXJxQmZIRzhKdnBmcThFczdTcGpPMWhCcGxlYzlBMHpSTy9ETi9xVW0xR3VoemU0Z1lxc1paRld4Sm1Ca0EyQmNWRjlmaFRiLytSdWFBZU01dG96ZlJxZmN3eXBqSzJoeGt1aGdkTUdQa3orcVp2RnRmTHM4VEUxcko0eStuV3pCYlZNNjNaVVd0ODFXNmN5blZhd0V5RjFzSXN6MVRHOXJDZSthbHArT2pzM1NiOFlzeW9YcDZCMEVSRjFySm95K20rV1ZSVTcxSVlkaHhnSnFKSDdERmVSa0xyRFdqa21jcklIbmJEOU0yb3FtelFNaEZCbzJPV2Y0L3I1YldvL1dxUVA1YXNaYnR2MnkzNzlMLzUwSndxcWtkLytqUUlXclJ4STVWcmlWOXluUTIweDh0SXlQVzQyYmZkMEJiT3JrREFyRVM4aklSY1k5YUx4c0dxRURBckVTOGpJZTFQQVNBVkFtYVFCd0V6eUlPQUdlUkIyakhUMlNQMkdDOGpJZTJZWVhoMjB3Y0FabmtTY2RZOXhzdElhQjNNY3Z4bTdVNFFKS1ZWNGhwbHBPTWJDL3htWkRXYm1jUVZmck5LNG1Va1ZJbERZK0kzdTNIMTRZVkgxeklSSVpmT1crQTM0OGVaMlVsYzRUZXJrYXJCYk9JMzQyVmtOK3ZISnJPUW5iTzc3UVYrTTJ2T3lFemlDcjlaamQ0cndTemxOK05sWkRkN2ozMWlGck5lTTF6b04yT3JXWFlTVi9qTmFxVDFNWnYybS9FeXRwc2w3aCthYjNxeDM0eGJzekF6aVN2OFpqWFNXcGpsK00xc2F4Ylp6U0tUMldWeW9PMC9uTzgzczMyenpDU3U4SnRWRWk4am9mVUdOR2I4WmwxeWpkbStHZm5FWHVPYVp2d0hBVmNXKzgwTWlObEpYT0UzcXlKZVJrTGF4ODEwbm5XUDhUSVNBbVkxajVlUmtIYk1JQlVDWnBBSEFUUElnNEFaNUVIYU1kUFpJL1lZTHlNaDdaaGhlSGJUQndCbWVSSngxajNHeTBob2Zjem1WVG5qcDB0cDhTTURlZ0F3UHVJSDRqTVZ6VENmcG9ONEdRbFYwSnJsVnprYlgvMVpxczZaV1RCOHF4dU8zbThQRHd4dzEzTXJtbUUremRxcVNzelNWYzdHMXd4b1NZbXo1aUJvOGdSZnZTWTlidjkxUDdlaUdlYlRyTzE3aFpobHE1eU5yL2E1OXBTaEtmelZRZGloU3g4Wk9acWp6L01ybW1FK3pkcXFLc3l5VmM2NE5iT1lFVGptK2hpMVp1SG9nNzl0NTFjMHczeWF0VlVGbU9WWE9RdEQ2eFhyN1Aya3haalJEUUwxejhKT1hBWTBXOUVNODJrNmlKZVJVQlVER3JsVnp1anEyZUlTWjNhKzZhWU5DME5ybE0ydGFJYjVOS3VQbDVHUTluRXpuV2ZkWTd5TWhJQlp6ZU5sSktRZE0waUZnQm5rUWNBTThpQmdCbm1RZHN4MDlvZzl4c3RJU0R0bUdKN2Q5QUdBV1o1RW5IV1A4VElTcWh5emVmYXp4dkFjMWY0SitJL0o2U2xBdWc2YTNSQitNd2Z4TWhLcXZqWExzWitOUCtsUzJSV2FWdk9CclVVMXp0UkI0dzNoTjZ1dEhHSTJzWit4SGFNNS91eW9GV01XRmFpNkdGd01Xb20vREg2ejJyNjd3eXhsUDR0YXMydWo5OXRwekVhSGpVR0RKcWlPL0dYd205VldqakNidHArUkRhTkJVNFFOejUra1c3TkJpK3BUSmY0eStNMXFxK294eTdHZjJTS3lOQk5kejlZSk5VM1lCTFBFWHdhL21ZTjRHUWs1R05ESXM1K1oyMGV6eE9CeTY0NHRlV2E5WnZ1ZkJtbC9XUW0vR1REYjlBRzJZdHhNNTFuM0dDOGpJV0JXODNnWkNXbkhERkloWUFaNUVEQ0RQQWlZUVI2a0hUT2RQV0tQOFRJU0FtWTFqNWVSa0hiTU1EeTc2UU9Vdyt6SnpwbG5yNXdwZUNnL0FtWWw0bVVrbE1YcytadlBQd3Fmdi9IVjZvY3BWVWF2bnpkUnF4ZGJJN1FKWlRGNzhTY0dzeWN2ZjFOZ0YyWEs2T1ZPMUFwYlkyMlZjOUhjMlhtcFFHTldyb3hlN2tTdHNEWFc5ajMvRnVCL0ZlR3NUQm05M0lsYVlXdXNyYVl3ZS83NmpsV2g1cXhNR2IzY2lWcTkyQnBGOUlnOXhzdElhTG8xKzJuVUp5dlVtcFVwbzVjN1VTdHNqUTdpWlNSVXhiaFp1VEo2T1JPMW9veGU5ZkV5RXByQmpDNmNwd3NleVpPQVdZbDRHUW5OREdoOGVNYmNiZW9abm9WVWFHWjQ5bmVwZTFhb2IrWk53RXl0Wmk2YXYvell2UHczWUFaVnFmd0JEVncwb1VxVk82RHg3UGMybE0xaTRSYWdSTHlNaEdZdW1qY0xEODk2RXpBckVTOGpvWmxiZ0RkZi9FbjQvS09DaC9JakRNK1dpSmVSMEF4bUg0VlB6cjc0SXpXdEdURGI5QUhLWFRUdnZmVFZ6Znp4Mlh4ajJYNC9FM1o4NDRoRy9mZi9waDJOKzVPRmpHMWpqVXdrN3lhMWUvak5hcXNpRG8wOFk5bUZMR1YySWErTUhHWmMzc3pXbnBvTzVkMmtkZysvV1cwMVBhRHh4bGQyVENQL0ZpRFBXTVlvakkrQ2Zlc3RNNTkyQ1ROZUdYc3lJc3pJYk1hQit6OExtajNUYVBGdU9ydnRqbGxtMmpyNHplcjdQdE9hL1hUK1U0QThZeG1qMEdzWmhLeTNyQm5OWFVnclk0ZlpwRFdMQTI5MVIxOUh1MkVqRUc4THYxbDlOWE1Mc09EUEFQS01aWXpDc2VtR0hUQXE1dFA5ZHN6ZVZHdkdsZlE0Y1B6Sm5aUExENUxkSExkUCtqenZJZnhtTHVKbEpEVFRtdkZ6cHZ6V0xNOVl4cDZ3SG5saXJiZXNHZmJvYjAxNFpld3dpeSthaGprS0RIdm43MUsxWTd1YmNQajk2N1F2QXhUOFpnN2laU1EwMDVvdDZKdmxHc3NDdTRqZDF0Wmdkc1hjYVQ1OW0rOUlyY09zUXgweStwazdjZWJ1OFhOejZZMTMwNmYyMFFRR3J4M0NiK1lnWGtaQ1JmcG03dlJ0bDB1R0xoRXdLeEV2STZIY0FRM3Z6elI3MGQ5cUxsWWVacEFLeldDbTdKa21wRUxhbjJsQ0txVDltU2FrUWdXZWFXNWN1QVVvRVM4am9meG5taklGekVyRXkwaElPMllZbnQzMEFZcGo5dnpOZ29md0syQldJbDVHUXRPWXZiNWdLQ1BIYnRibUY1cERMcU8wazJ5Y3NaK1pWN0lSb2I3Wk5ta2FzNC80WWRPY3YydktzWnZSeTQyajVrem9sSk1zWXovN1RkOHNRSDJ6N1ZKZTMreGVmcHVXWXpmamwrRVBEdmZJSk5ZZXZQUFc3WGNQOTZLSUVSdlF6TEk3R2Z0Wk9Md2VvcjdaZHIxblc3UHd4WWZMWEkwcHV4bS9tRmFLcXZzTXJoenRQektYUEtvdHhSSGtEREs4OUxQMnMwN1FRSDJ6TFZPMmI3YXpjM1plYUk3ZGpGOU0zK3crMTVRMVhKbi96UFhRUnJBQmJUQ3hQaWF0MmZpVEx1cWIrWXFYa2RBMFpndExHK2ZZemF5dGpEQWprNWpGeklCa0k5aUFkcHR4bWJLZmhlRkpIL1hOZk1YTFNLakl1Tm1NM2F6THRyTE8zcDNEUmk4STlqL2Q2NXAyekZ3NWJRUVovRnNkdXBlY3NwOTF1QzFFZlROUDhUSVNxbmg0ZGpCNzExbWRnRm1KZUJrSlZZdlpaTlRMaGZJd2cxUkkrOE1tU0lXQUdlUkJ3QXp5SU8yWTZld1JlNHlYa1JBd3EzbThqSVMwWTRiaDJVMGZBSmpsU2NSWjl4Z3ZJeUZIbUMycWhUYXhxMlUyZ2Qrc3RuTFZtaTJvaFRaWmt0a0VmclBheWpsbTJWcG82U1c5aThIRm9KWDR5K0EzcSsyN2E4eG1hcUdsbG93T0c0TUdXYndqZnhuOFpyV1ZVOHp5YXFHbGw1QjNhSGc1OFpmQmIrWWdYa1pDcmpDYld3dHQycTVHbUNYK012ak5ITVRMU01qWmdNYWNXbWczVWt2dW1oNVlrUGFYd1c5V2ZieU1oTFNQbStrODZ4N2paU1NrSFROSWhZQVo1RUhBRFBJZ1lBWjVrSGJNZFBhSVBjYkxTQWlZMVR4ZVJrTEFyT2J4TWhMU2pobWVBbXo2QU1BTWtpSTNtQzF6TmJKWmNiK1BNbnJiSWtldDJUSlg0K2hTT0w3YVJ4bTliWkZyek9hNEdrZVh4dGRDbE5IYm1uZkhtTTF6TmJKWmNTTmw5RVQwaUQzR3kwaklKV1lMWEkzY21vVW9vd2ZNMXRJeVY2TzVGSElZeXVnQnMzVzAyTlg0YWxTMEhXWDBnSms0NVdFR3FSQXdnendJbUVFZUJNd2dEOUtPbWM0ZXNjZDRHUWtCczVySHkwZ0ltTlU4WGtaQzJqSEQ4T3ltRHdETUlDbGFCN044VjFsaUQ1dUlxdjZNSTJQWklOajd4UmNUYTVtdGNwWTNpYXY1MUF6NXdmdDBydE1DWmlxMFZtdVc1eXFiMk1NU2pYbGlWMnNzRzU2bmlUWW4xakxlTW5jUzEwdjB4RE1uMTJrQk14V3FCck9VcTR6dFlhYnAybi9JMDdaU3E5VGdpVjJ0RmVPK1pTaXlsa1ZiNWs3aWVpbDZzTTRidzIrbSs3MFN6Tkt1TXJhSEdXNTZ6WGcremVNMlQreHFqV1czdUlGS3JHVjJ5OXhKWFBsVGoyZUNQYmJsUTNFTFVDSmVSa0xyWTVaeGxiRTl6SEF4UEdEQ3lLRFJ0eE83Y210bWlZbXRaZEdXdVpPNG10YnNxRFcrYWpkTzVUb3RZTGJwQTdqSExNOVZ4dmF3WHNOTzU5clp1MDM0eFppUnNjeEFhS0lpYTFrOHdXdmVKSzZYd3JBRHpOYU9sNUhRZWdNYWVhNHlzb2ZkTUgwenVnQUdMUk1STkdoaTErK3hzYXhGN1ZmRHpsamRDM2JmdGx2MmN5ZHh0WC83MU9KWllWTzVsdmdsMTlsQWU3eU1oRnlQbTMzYkRhMGR1d0xsWVFhcGtHdk1ldEU0V0JVQ1ptcWwvU2tBcEVMQURQSWc3WmpwN0JGN2pKZVJFRENyZWJ5TWhJQlp6ZU5sSktRZE13elBidm9Bd0F5U290S1lsVEdibWJmM2ptam1PWDRnemphek1lcWJiWVBLdDJhRnpXWW1ZSGkrVHc4MW43YlpTOGFQTWxIZmJCdFVBV1lybXMzWWQzSE1IbzJUUG1QV2l5cTRvTDVaN2QvWHgydzFzeGtGbTliTFlQWGo1dWh6ZG1OWW14bnFtN21ObDVIUW1wZ1ZNSnRaRjltRlg5LzU0Ryt0NlNmVm1xRyttYk40R1FtVng2eTQyWXh1RlRvTitpK2M3cHVodnBtN2VCa0pyVEdnVWRSc3h2ZVRCc2ZoZGZOTzdaeDVhYUsrbWVONEdRazVIVGVyMG13VzR0RzVZam5GckVxeldRak1GRXY3VXdCSWhZQVo1RUhhTWRQWkkvWVlMeU1oWUZiemVCa0pBYk9heDh0SVNEdG1HSjdkOUFHQUdTUkZxMk9XWXpCcjh3c1p5akt5VmN1U0RlMXNtbytPZ2xmUHhaNnl2SXBtOEp2VlZnVmFzeHlER2IzY09Hck9oSEpFckdRMlRmTi83Q25McldnR3YxbHRWUWF6aWNHTVg5aFFSaFV3QnUrOGRmdGRMa2IyYzY0aFJaWXpXaGJQcGttWXhaNnl2SXBtOEp2VjlyMEVaaW1ER2Ird29jeDh2SExFM3V0ZU00b2dMNURocFI5YjBhajBTdXdweTYxb0JyK1pnM2daQ1JYRmJOcGd4aS9XNmNORmZnZ3RNaS9hMmorUnN6R01aOU9rMWl6eWxPVldOSVBmekVHOGpJUUtZSlpqTU9NWHhveE1ZaFl6MDVwRlZjdlljdGFjektiSm1GbFBXVzVGTS9qTkhNVExTS2pJZ01hTXdhejdsRjY0QUZuUFhCSS8zZXVhZG96dUtEbmlJVm5PT2pib1RueW5HWG5LdXJrVnplQTNxejVlUmtJVmo1c05adTg2cTFNZVpwQUtWWXZaWk5UTGhZQ1pXbWwvQ2dDcEVEQ0RQRWc3WmpwN3hCN2paU1FFekdvZUx5TWhZRmJ6ZUJrSkFiT2F4OHRJU0R0bWNHaW9FRENEUE1neFpqbGV5QnVKa1RFYkdTUmVqTVRpZUFmVHR0WkNybHV6dkdKN2laRXhGY2F6WjQ2UDRscVBXWXRqS3RkcEFUTVY4b1pacXRnZVczODZ1KzNPL2tQVGFyRXJjaEEwdVJSVms5cXh3VHR2M1lrc2p0VlAyL3A0eStMTkJnTGlmV0UyWFd5UGpZd0d0dnZ0d1hzOExldXZEcUxXakpkTTdJK1l0blhkZUJrSmVjRXNVMnpQR2htUDJ5ZjlEaFVOSmJ2YThJRExJRGRDV3BLeU9HSSt6WFhqWlNUa0dyTzhZbnRzWkF5SDM3L09WOU1FczArb0owWkxHRE5yY1FSbTY4YkxTTWo1Z01hTUYvSnVOSDhydFhGazlHZFg1T2p3M1VPNkgwMldSQmJIMjh1bWJZVlVTUHU0R2FSQ3dBenlJR0FHZVpCMnpIVDJpRDNHeTBnSW1OVThYa1pDd0t6bThUSVNBbVkxajVlUmtIYk04T2hjaFlBWjVFSEZNTXNycGRkSitjVGlzQXY5bk5wNXUyK240bEJHYjZ0VXNEV2J0WS9kdVByd3dxUE1qRGs5dzJKTzdUeGI0b2ZOWlNpanQxMHFpOW5FUHNiTGFLcldmbEpQYjN5MVA4aXBuUmVieHdaQmMzTmw5Rno3dTZURnEvU2I1WlhTbzJVMFZldDdrVE5zMERLWTVkWE9HMTE0Rkp2TFVFYlBWN3lNaE1wZ2xpbWxSOHQ0cXRha25oNWhsbE03ajFxenlQV0RNbnErNG1Va1ZCQ3pIUHVZYmMwYTZYcDZkTkhNcVoyWHdneGw5SHpGeTBpbzZJREdiQ2s5bW56VjlzMlNlbnEvQ2xvNXRmUG9Uak15bHpYRHFzcm9RU3FrZmR3TVVpRmdCbmtRTUlNOFNEdG1PbnZFSHVObEpBVE1haDR2SXlGZ1Z2TjRHUWtCczVySHkwaElPMlo0ZEs1Q3dBenlvUEtZNVhqUHZtU0wyTFNPYnh3RkRUYW0yU2NJa2FNTWZyT3QwaHF0Mlp6U1pkT3lDM25sOEsxdU9IcS96Y1V5NERmYkxsV0IyVlRwc2pEa0I1d1BlZEpXODJtWE1PT1YvQVRjdkhBaE0vak40RGRiVFhtbHl5NVlCNUNoaVdmVDdORUxMYVNWSGJyMkdXUUlNL2pOZk1YTFNHaGR6R1pLbDRXaE5aOHhadWJUL1hiTTNreHJGc0p2QnN5V2FsN3Bzc3V4K2F5ejk1Tm0yTnQvZU1HNnoraE9nZnBuazc0Wi9HYkFiTGxtdkdkM0R2bTJrYzFuZEl2WW9wY3I1azZUcDNlTjdqUXB1QSsvMlhaSis3Z1pwRUxBRFBJZ1lBWjVrSGJNZFBhSVBjYkxTQWlZMVR4ZVJrTEFyT2J4TWhJQ1pqV1BsNUdRZHN6dzZGeUZnQm5rUWF0amxsZmJqRitHbDJkaU9TTFNHSDR6cUVCcmx1TXY0d0puUjgyWlVJNUliUWUvMlphckRHWVRmeG0vSkdYTkJ1KzhkZnRkbnZ6eTUrendJY2NaelkwSnZ4bjhaa3hRSWN6U3RjM294YlJTWE5ic3loRlBmbWxBc2hGa0JicEJjMlBDYjdiQmVCa0pGY1VzVTl1TUw1NXhXVFBEbGZuUFhBOXRCRHZPQmhPdkkveG1tNGlYa1ZBQnpITDhaZFpIRnBjMXM1Z1prR3dFTzg1dU15N3dtMjBzWGtaQ1JRWTBabXVic1k4c0tXdjJLWldWNVpKbUhQR1FIR2NkdXBlRTMyemJWZkc0MldEMnJyTTZBVE8xcWhhenlhaVhDd0V6dGRMK0ZBQlNJWTNYRG44QUFBdGZTVVJCVk8yWTZld1JlNHlYa1JBd3EzbThqSVNBV2MzalpTUUV6R29lTHlNaDdaamgwYmtLQVRQSWd4WmdWcVhCakcxampRVWJ3VzlXYXkxcXphbzBtSm4veDBldEJSdkJiMVpucllSWkJRWXp0bVUwYmVXei9aOEZ6WjdaaW5mYjJXMTMrUEZuQTM2ejdmU2JWV2t3czYxWlhQbnNWbmYwZGJRUkc0SFlNd1MvbVl0NEdRa3R4YXdpZ3hrNU1ScTI4dG40a3pzbmx4OGt1ejF1bi9UWnRRRy9tWXQ0R1FrdHdxeEtneG45SDlwcE44UGUrYnZVdmJNYmhjUHZYNmQ5RzZEZ04zTVFMeU9oaFFNYTFSbk16Q3Jxd25IbE04T1R1UlRIdSsxVGUya0NnOWNPeS9qTmNBdWdRdXVPbTFWak1QdldOSGZYbGtibFlRYXAwSnFZVldRdzYwVi9xN2xZd0V5dHREOEZnRlJJTzJZNmU4UWU0MlVrQk14cUhpOGpJV0JXODNnWkNRR3ptc2ZMU0VnN1pwQUthY2NNdzdNcUJNd2dEMXFBV1ZsYll6S0Q2Nk9qNE5WejFxdElGUXhnYTl4ZXJXSUVLbXByVEdad05mL0hYa1V4dGtZUlBXS1A4VElTV2dtemdyYkcyL0VNcm9SWjVGV0VyUkcyeG9wdGpYWUdWN3Jha1luTWVoVmhhOXhRdkl5RWxtSld3dFlZeGpPNFVtc1dlUlZoYTl4UXZJeUVGbUZXMXRhWXpPREttRm12b2hoYkk3UUpMUnpRS0dkcjVLQTc4WjJtOVNvYXViRTFRaXEwN3JnWmJJM1FDbG9UTTlnYW9WV2svU21Bemg2eHgzZ1pDUUd6bXNmTFNBaVkxVHhlUmtMQXJPYnhNaExTamhta1F0b3h3L0NzQ2dFenlJTUtZYmF5QTIxc0oyTWQwMk9BL1g3SVR3SGdOOXRpRld2TlZuYWc4Zk5JTnAyTmFkMEQrTTAyRlM4am9aS1lMWE9nY1NBL1B4OS9adWg2QUwvWnB1TGwrODFtdGJJRGpRT0hCNFRadGRINzdRZndtMjBxWGtaQ0pUQmJ4WUdXYXMydWhjUHpKL0NiYlNwZVJrTEZNRnZaZ1picW0xMHpITzdCYjdiZEtqaWdzYm9ETGJyVC9ONFJYVmh2M1hGVlJnOVNvZXJIemNvNDBPQTNxN2txeDZ5VUF3MStzNXBMKzFNQW5UMWlqL0V5RWdKbU5ZK1hrUkF3cTNtOGpJU0FXYzNqWlNTa0hUTkloWUFaNUVIQURQS2dCWmhWTlcycmVXMDZtN1lWVXFGRnJWbEYwN2IraG1ZK2RPVTMwOWtqOWhndkk2R1ZNRnR6MnRad2VOM1p0SzJQTXo4dmZTL3ExOUllTDk5dlZ0VzByWjJnNFd6YVZwMy91RDNHeTBob0tXWVZUTnRxR1hQak45TjUxajNHeTBob0VXWlZUZHNhaGlkOVYzNHpTSVVXRG1oVU0yMXJ4eXdkd1crMjFWcDMzQXoxemFBVnRDWm1xRzhHclNMdFR3RjA5b2c5eHN0SUNKalZQRjVHUXNDczV2RXlFZ0ptTlkrWGtaQjJ6Q0FWQW1hUUJ3RXp5SU5Xd3l6SGVuYmphTVkvRmoyRjlEcWZKcVJDSzdabU9kYXppS20wZXRZWTVuTStUWjA5WW8veE1oSXFpdG5FZWtibXhZdkJ4YUExZVBkdzd3NTd6Y1pYKzhOenIzMDk4RGlmNXVQTXowdmZpL3ExdE1mTDk1dmxZSmF5bm8wdVBEeHNEQnJEUDJETEdadUFER2IzMjk5MmZjNm5xZk1mdDhkNEdRa1Z3V3phZXNaMkgzSUZzZVVzeGl6cVczbWJUMVBuV2ZjWUx5T2hGVEhMc1o2bE1lczEyV3QyOTJyL1FkY2c1M0UrVFVpRlZoM1FtTEdlM2FYYVpmdWZCc0hlYmI0NGt0ZHNFTFQrd1RSRm1FOFR5cWlDY2JNS0xHZndtOVZjNjJOV2hlVU1mck9hUy90VEFKMDlZby94TWhJQ1pqV1BsNUVRTUt0NXZJeUVnRm5ONDJVa3BCMHpTSVdBR2VSQndBenlJR0FHZVZCWnpOWTJPc1picHZaWXh0YW9zMGZzTVY1R1FxVmJzN1dOanJBMWVvbVhrZEQ2bUpVMU9vYXdOY0xXdUZSckd4MWhhL1FTTHlPaDlUQmJ4K2hZamEwUlVxSFNtSzF0ZElTdGNZdFVma0JqVGFQajd0dXdOVzZQbkl5YkZUWTZ3dFpZYzduQXJMalJzYnl0VVdlUDJHTzhqSVMwUHdYUWVkWTl4c3RJQ0pqVlBGNUdRc0NzNXZFeUV0S09HYVJDd0F6eUlHQUdlUkF3Z3p4b0NXWkZwbTRON2NQeFpuYmFWaHBHY3padHE4NGVzY2Q0R1FrdGE4MEtUTjBhc210bi9FazNNMjByejZXSk1ub2JpcGVSME1xWUxadTYxZnJHWXN5bXBtMk5NRU1aUGZqTmxtRzJkT3BXOW8yWlM5eXVOVzZrcDIyZHRHWW9vK2M5WGtaQ0syRzIwdFN0NUJ1amkrWlJLenR0SzJQbXFJd2VwRUxMTUZ0OTZsYnlqUm5NVEJ1V25iWTF2bWlpak43V2F1bUF4b3BUdDNLYloyM1lqekxUdGtZenVxS00zaGFyaW5Hejlldm93VzlXYzFXQVdRVjE5T0EzY3hZdkl5SHRUd0Ywbm5XUDhUSVNBbVkxajVlUkVEQ3JlYnlNaEZSaEJxa1ZmNEU2TU11VDg3dFAxd2ZZcGw4QW1HM3NBTnYwQytqRkRGSWtZQVo1RURDRFBBaVlRUjZrRXJOZTBFeTlPVHZBNk5EVkFlTE1od2R1OXA4Y3dOVXBzdnUxZm9oVnBCRXp0cmdsYis0TzhLRExoazVuK3pjY3o1VHNyZllBUFVmL1RPSnY0TEkxSVM2WFJzeDY3SDJNMzl3ZElBd2RjUnp2LzlZdkhMVm0wUUZHMW9UbGJQK0d0bHVyN1Y4alp2ZmI5TzhvZm5OM0FLT1QxYTRKNWZaUEhrNFh1MDhkd0ZGN0ZwK2dRYkJhWTZZU00zK3QyV0RGczFocS8rUmVueTEwWCtFQktIMDMveENqL1krdnJkcXIwSWlacjc2Wi9jTXFoL3QzZGdzd09VTnUvcUZFK3llYmZuMzdabUhIM09mMFd2em04Z0M5eWQ4ak85bS93enZONkFBOVI2MWx0SC9USHEvWTkxT0pHYVJOd0F6eUlHQUdlUkF3Z3p3SW1FRWVCTXdnRDZvblp2ZDJkczc4OHVQTXdoZi84ZVBudjhNTG83Y3A1UzFMRmo3NzdqZnpRcFpyZHJPU08rSk0vdFh5a085OFZTaWJRdnF2NWJhdUpXWTNYLzRtdkhjcWUwSnUyaVV6K0UydHpkWHoxMS8rWmtsSVJzbEI1aHh0cFcxelpIbGZxQmNmdnJRSXN6VlZrdEk2WXZic3QraFVQRG1iV1d4YU0zcWI4Kzh4V2p0bmovenRMZ3laVm5LUUV2LzZGMnp5NG85V0lPajVHdzR4QzUvLzdsTFFjMVJIek82OUhKMEp1bmFhcy83ZmQ4eUNKenM3cCtpaWFkN1Awai9KMUxybnIrKzg5QlV6OU9MRG5kT21OZmdyV3ZEOGpSK2UrclBmK1poWFB2dnVIKytjWnN4dTd2RE9hVU96UGY5SWdmL2x1Myt4OC9MZjdiejg5NisvOUpWcDlQZ2d0R0hPMFVKdUVwNUZHM3dUN3ltSytPR3AveHh2RzRYZk14L2p3ejQ1VGNoSFc5cURweUw1TjQ1L1NxMHd2NVg1ZkRNNTlpU1BTVXh5c0owejlqZCtKVDRMMlNSdVp2LzVycUk2WTJiYW9HZXYvRnRERG4ydDMvbktOSEtHZ1A5RHJKejZPTDN1M2hrRGtHMnFxQ1g0UjE3d293L04xMjRDZWVXelY4NisrUENzK2ZERUxEdGpjUXpOUXZyeFg1dEE4N1A1ZGs1VDcrOE5BcFlPd2h2bUhDMmtxKytQNGcxK0ZPMHBqamdUeHR2K3lJWWJzbTZlaVE1cmxvZVRRL0hDVkdUSUdONmt0ZEV2RmEyNGQzcVN1VDEyRkQ2SmlaWnhGbWZOZjNUcG5wUEV2VE1sdnBJNlkwWW54SngxL3VMcEMyS1dDQ2Y3YzdLT3ZycXowUlhSbk1pZmZzTUxpTGg0SlYwMEdSdnpyOTFnRVYyWTdwM2hIK216M1pGQk1mb1FOWTFuODQ1bWIwWlNHL0NlNG9ndzJkYUdjT01SSDVhaWtpM3R3a2xrR0xVMHFWL0tmbnh5T3BWNWNtejZiU2N4eVZtaU0yQk80UE0zNXlVQnpDTFp2dG16UDczSEoyVU9acWwxVDh3LzhCaXpaOS81eXo4TmVVSDBsZlBuQ1diUkZTT0dJL3BhOHpCTDlwbzVXcGlQV1J3Ukp0dW12K0hvc05PWTBjSlVaRGlGV1dvRnQ3M3hMdEtZcFdLaXMzUTZhakhQL25KdUVzQXNGdDFwbXE2cXdTMDVnVTlNNyt2RGwvNDZ3U3k5N21aMFJVeTI1UVhSVjg2ZkRXYm0wc0VOUTBqL3p2bUd5MTVNbnIrWnhlejU2M1NjTU5scjVtaGhCak83cHlUQzlnRFBKc1Erb1pZbFBpejF6Wkl0ZVdFcWt0WlRjT3FYaW5aeHhtN0t1MGpua1lxeHJ6WUxFN3lUT2d1WkpOQTNTM1NUK3J6Y3pKODFuMC9mTTJmTkxObzVhei93VzJyZDMrMmMraGN2L1REcVJELzdQVHJMWnNHLzRTQzc4cTgvcEdpN05ROFhtRzd5RGcxdjNJejYxbVpINXUwditOT3BmMGwzQ21kNUoxL05IdTBieXV2bFA0NDMrUHRvVDFFRTkrelBSZ2xFaVovNk9Jd09TM2VhNlVQUlBjWWtrbi94VXgrbmZpbTc0bisvUXJjWDBTN3NzVzE0YXVOb0dXY1JXcGJ5azhDZHBrZFZOMmhRYkUrTGgxN242QjhOeFQ4dEJNZUwvelF2dk1DZ1RsckFySlEyaGRrcVR3R3lJaktlZjFSb2s1a3h4MFI0Q3VCUnBsUDljcGxyaDhzOXpkY1QyNFZZV1RmNWxyUlNBVFBJZzRBWjVFSEFEUElnWUFaNUVEQ0RQT2ovQTZlOWJPT0VlQUFNQUFBQUFFbEZUa1N1UW1DQ1wiIC8+XG5cbjwhLS0gcm5iLXBsb3QtZW5kIC0tPlxuIn0= -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAJmCAMAAADB8ry4AAABv1BMVEUAAAAAADoAAGYAOpAAZrYAZv8zMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///39/f/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///9Nm9rGAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO2dj5/bRnreV7Za59prhV1nfXScOpVqn7w2105V6aKIbtJr3OS8Z0dn2bKoNtck5uqyytVXibqmjSldL5UohbKYE0X8wZ33HQAEQfAHQMzwfcHn+dgkF3gBvAt+NRgMnn1nJ4Qg59rZdALQNgiYQR4EzCAPAmaQB+nA7J9DasVfoBLMcpY9LrqTohtoj5eREDCrebyMhIBZzeNlJKQdM0iFgBnkQdox+2eQNM3/6oAZVJnmf3U+MRv+u3b8cdA0L6MPuqm1o8Ngv58JiwXMVCjvS/eP2bf/oRl9Gh81M+tGl8LRhX4mLBEwU6G8L90/Zj8fmOaqdzG4GLQG75zb6xquRoe77eEPDve6g6AZY8ZhtCLsBO9ct48AHj/mu+fHqfdNn1NoRlPfT/TuHbPR1+YqOTpsDBrDy4akQbO337/fHrx3tNc9bv/qIG7NOCw0K5rmytpr8aZozVQo71v3jtkgCIJWOGgNmgazZjg8GF/td4LAQGegGiaY2TBacdwGZqqU9617x+zX/XDQmGDWaxrMHpibgDRm5rMNoxU9tGa6lPete8ZsfMRt1G///v6nQbB32zRWpt1qmdvLRmfvzmFjdPjuoWnGdm/YsP2HZoVZGczHDFIhFeNmC1ozSIU0YDY096P0jkfnJeJlJKQBs1jArES8jISAWc3jZSQEzGoeLyMh7ZhBKgTMIA/SjtmmxyKhAl8dMIPKqsBX5xYz9pD1gr2uNZGNDvf/5su0rWx8RCP/X5Ibw3ze66a2otf4IQAwEyk5twD8OJyeT7KJrNcybE3ZyuiHp+3Rjxth+E//vju1FVnQBpZIYCZSAjFjExlTM20ru9B/2g5Hn33QDX/9590ePdPc/7Q5wawRwm8mVo/z/GUb8ZvFmFkTWTgImtO2MnNlNBfM0eed1vh/3KKA1ujCF3Frdhg0ot2gNZMoYa2Z4WcQ97N6rSlbWdSafT48///+562uAatFfyYQt2bD8/10rtPa9EmGViLAC2bjH7cZmthrZiCaspXxDwejz8c//oP+re6t7qA1PDhu2xBz0ew107lOa9MnGVqJAD8DGsNz5qoYec32/+/bwd6dtK3st3/f/BD8oWnEBk1zQ/qTwCy5cvTqOXv/GTTHR7vtSa6QQmkfN4NUSDtmOp8ke4yXkRAwq3m8jISAWc3jZSQEzGoeLyMh7ZhBKgTMIA/SjtkGhhqh4gJmwMyDNoVZjgftBtvOZqqaTbQRzET0oNeIl5HQxlqzOR60pxnMRpcmn4FZiXgZCW0esykPmqGss9vu7D9MVTwbnnvta09+sxy/1OOFPir58eFKfjDX8RvHLO1Bs7Yzgi1d8ex++1vrqEVrViJeRkKbxWzGg0bXzOP2yVTFs+TPA3ALoFYbw2yeB+0gHH7/epiuePaga14muU4LmKnQ5gY0Zjxod+lOk1q2W2zbjiueNf/hcEF9M2CmQtrHzSAV0o6Zzh6xx3gZCQGzmsfLSAiY1TxeRkLArObxMhLSjhmkQsAM8iBgBnmQdswwMKtCwGwJZiJ60GvEy0jILWZzzYtfUnGDxvAczXlIj5jiSQ03VkZv7q8g4ltaI15GQo5bs7nmxfEn3fFRiydufdCNav9ssoze3N9AxLe0RryMhHxhljUvGsxo9rnPjloTzDZZRi+73+S9qI1QWvxW2Brnmhej1uza6P12gtkmy+i5OgEQywdmeeZFKmvcCMfXwuH5kwSzDZbRc3UCIJZjzOaaF+miGRJmYY+nO6eCeZsso+fqBEAs1wMac8yLf3hIt59muSHolq2p9yXK6NVX2sfNdN54eYyXkRAwq3m8jISAWc3jZSQEzGoeLyMh7ZhBKgTMIA8CZpAHaccMw6sqtHWYiegRe4yXkVDlmC2bo5UNZPuP2FbWoxH+uHbeen6zlfMTcdY9xstIqPrWbOkcrZfC8dU+PdMcHoTHqdp5a/nNVk5PxFn3GC8jIYeYzZuj9RI9MGe/WfQk/Wl7zP6ydfxm2eVz3137u6TF19VvtsIcrQ2L2f02OTCi2nlfrOc3q/AXgKqXI8wWzdGa05qF7C9bx29W4S8AVa/qMVs6RysXLZ7qmw0P2F+2jt+swl8Aql4OBjQWz9H66jnymNGqvnmxd5rBlSP2l8FvVldpHzfTeePlMV5GQsCs5vEyEgJmNY+XkRAwq3m8jIS0YwapEDCDPAiYQR6kHTMMzqrQ1mEmokfsMV5GQoUwy/GStTtUqGw6gj8dx7OwDoK9X3wx8ZIlnrNGZue8y/SOAnro/kF3sgyYlYiXkVCx1mzWS3bj6sMLj65lIkKGxjrJhuf7o8PmxEvGW9p6QNP75hWpHV0KbZ2NbK7TAmabPoBLzCZeMl42PjKNGE+zajEzP++2rffivrUsRl6yaMuoupnZ6uHh/s+CZs80c7wimrPVtHUWM7MP3u0Sv5kgf5e0eI1+sxwvGS/rtcKenWbVYtZrkveCnWS3uEVKvGR2S9ua0VbNQdOEjL6OzWiE5mCydY/t3Mf2copbALUqgdm0l4yXGQ6GBzz/pcXsuG0/mtbMIhJ7yaItbXUz3mr8yZ2Tyw+SXdKcrWzfoNbsqDW+2ufdpnKdFjBToWKY5XjJbGtmfmgmmA0vm9ast//QOsnO98lxFnnJoi1tr4u3Cnvn71IFWruC52wdEMFkS+sAs5qo4IDGjJesS6Yx2zejaVZfY2sZXfGCK9EsrAPqaEW1y3bfjj1n1N3irUxDZy7D8S771FaagwS8o/3+IGjx7K2pXCGFkjhu9m2XyzjOCI/OS8TLSEgiZr3oLzezAmYl4mUkJBGzeQJmJeJlJATMah4vIyHtmEEqBMwgDwJmkAdpxwyDsyq0dZiJ6BF7jJeRkHPMltU7SwWWrW9WKB8RZ91jvIyE3Ldmy+qdTQLL1jcrlI6Is+4xXkZCHjGbV++MWrFO8M710vXNRPm7pMVr9JuV0bJ6Z/fbAzKd9Vql65s5TB6qRp4wW1DvrBMEjeM2Y1ayvpnD5KFq5B6zZfXO6Hras61ZyfpmDpOHqpGHAY3F9c7I+U9+NJpiE/XN6iox42a91tIQPDovES8jISmYDc/tdZfFALMS8TISkoLZKgJmJeJlJATMah4vIyHtmEEqBMwgDwJmkAcBM8iDtGNW+CGAiB6xx3gZCQGzmsfLSKg4Zot8iin5K6NXIPdQyFn3GC8joRKt2QKf4kQey+gVyV3IWfcYLyOhdTDL+hRtWbzmgB+U+yujV9CGh/cNvK+B2YxPMS6Ld9z2WkavSO7QZlQWszyfIpfFY0a8ltFb59eH/KgEZnN9inExvc7eT3yW0VvzDEAeVGZAY45Psc1l8egWseWvjJ7OHrHHeBkJSRw3Qxm9CuNlJCQRM5TRqzBeRkISMZsnYFYiXkZC2jGDVAiYQR4EzCAPAmaQB2nHDI/ON32ArbgFAGabPoBbzArYzho8v6t9eECvTfjN/MXLSKh8a1bAdsYrh291w9H77d/0zQL4zbzFy0ioAsyW2854Jdf1oZfhdfjNtu19fcyW2s7MQlrZodZr0Ag7QQN+s23TmpitZjvjlUlrxozBb7ZVKo9ZAdsZr6QuPvXPwvCkD7/ZlmmNAY2VbWeNpzy/q73T7Njl8Jt5ipeRkMRxM/jNKoyXkZBEzOA3qzBeRkISMZsnYFYiXkZC2jGDVAiYQR4EzCAPAmaQB2nHDI/ON32ArbgFAGabPsAGMcs3owVBY3huv0/jYsGsM630tK3FUhNx1j3Gy0jIUWuWY0azrowxPb980J11ppWftrVYZiLOusd4GQm5xmxiRos8Zp8dtRLMeheDi0Ermaa15LStEvxUeF/87hizlBktas2ujd5vR5iNDhuDxvByMk1ryWlbq84dql4uMZs2o1mP2fhaODx/ErVmgxY5hpJpWktO21p17lD1coRZjhnNeszIetHb61pnmsUsmaa15LStVecOVS9XAxp5ZjRzD2mWGGZuxRO37n8apKdpLTFtq84escd4GQlpHzfTedY9xstICJjVPF5GQsCs5vEyEtKOGaRCwAzyIGAGeRAwgzxIO2Z4dL7pA2zFLQAw2/QBNoPZorpnyVyaVPSnSU/U9+5Gs27Cb+YoXkZC1bdmC+qe8RKqwXL1pEvOjZ9H4U/t9GHwmzmIl5GQQ8yydc+iJaNLtnIB1ZaiH6nU1Bh+s3q/u8Nspu5ZXMIsMpCd9H9D9fVsHbPRBfjN6ixHmOXVPYuWRK0ZV5dKZt2E36zeqh6zuXXPoiVUuCy0F8Ko7CfNugm/Wa3lYEBjTt2zG0fxXJpNLvrDfwRAcQEVQYPfzFG8jIS0j5vpPOse42UkBMxqHi8jIWBW83gZCWnHDFIhYAZ5EDCDPAiYQR6kHTOdPWKP8TIS0o5Z4WcAIs66x3gZCQGzmsfLSMgRZquZG/vTm5SyNRbNTMRZ9xgvIyFXrdlK5sbpUnrlbI2VZw45kHPMFpkbqyijl/kZ7yLfXWO2yNxYSRm9yjOHHMgpZsvMjVWU0as8c8iBXGG2krmxijJ6RRMT0SP2GC8jIWcDGiuYG8coowfM5AmYlYiXkRAwq3m8jIS0YwapEDCDPAiYQR4EzCAP0o6Zzh6xx3gZCWnHDMOzmz4AMMuTiLPuMV5GQutgNm9y1lY2kB6Pj6N6eYNg7xdfTKxlvKU1mfVovH9SVM98aob83H0612kBs00fwH1rlmcqm9jDEvFUrVG9vOH5/uiwObGW8ZY81+bwILTPMaOiepdCO5lYNtdp4dG5ClWDWcpUxvYw0yrtPzxsDnbb1Co1hj845EnnDED3LUORtSza0k7pGj1ej4vqXYrqBfHG8Jvpfq8Es7SpjO1hBplec9A0zRO/DN/qUm1Guhze4gYqsZZFWxJmBkA2BcVF9fhTb/+RuaAeM5tozfRqfcwypjK2hxkuhgdMGPkz+qZvFtfLs8TE1rJ4y+nWzBbVM63ZUWt81W6cynVawEyF1sIsz1TG9rCe+alp+Ojs3Sb8YsyoXp6B0ERF1rJoy+m+WVRU71IYdhxgJqJH7DFeRkLrDWjkmcrIHnbD9M2oqmzQMhFBo2OWf4/r5bWo/WqQP5asZbtv2y379L/50Jwqqkd/+jQIWrRxI5VriV9ynQ20x8tIyPW42bfd0BbOrkDArES8jIRcY9aLxsGqEDArES8jIe1PASAVAmaQBwEzyIOAGeRB2jHT2SP2GC8jIe2YYXh20wcAZnkScdY9xstIaB3Mcvxm7U4QJKVV4hplpOMbC/xmZDWbmcQVfrNK4mUkVIlDY+I3u3H14YVH1zIRIZfOW+A348eZ2Ulc4TerkarBbOI342VkN+vHJrOQnbO77QV+M2vOyEziCr9Zjd4rwSzlN+NlZDd7j31iFrNeM1zoN2OrWXYSV/jNaqT1MZv2m/Eytpsl7h+ab3qx34xbszAziSv8ZjXSWpjl+M1saxbZzSKT2WVyoO0/nO83s32zzCSu8JtVEi8jofUGNGb8Zl1yjdm+GfnEXuOaZvwHAVcW+80MiNlJXOE3qyJeRkLax810nnWP8TISAmY1j5eRkHbMIBUCZpAHATPIg4AZ5EHaMdPZI/YYLyMh7ZhheHbTBwBmeRJx1j3Gy0hofczmVTnjp0tp8SMDegAwPuIH4jMVzTCfpoN4GQlV0JrlVzkbX/1Zqs6ZWTB8qxuO3m8PDwxw13MrmmE+zdqqSszSVc7G1wxoSYmz5iBo8gRfvSY9bv91P7eiGebTrO17hZhlq5yNr/a59pShKfzVQdihSx8ZOZqjz/MrmmE+zdqqKsyyVc64NbOYETjm+hi1ZuHog79t51c0w3yatVUFmOVXOQtD6xXr7P2kxZjRDQL1z8JOXAY0W9EM82k6iJeRUBUDGrlVzujq2eISZ3a+6aYNC0NrlM2taIb5NKuPl5GQ9nEznWfdY7yMhIBZzeNlJKQdM0iFgBnkQcAM8iBgBnmQdsx09og9xstISDtmGJ7d9AGAWZ5EnHWP8TISqhyzefazxvAc1f4J+I/J6SlAug6a3RB+MwfxMhKqvjXLsZ+NP+lS2RWaVvOBrUU1ztRB4w3hN6utHGI2sZ+xHaM5/uyoFWMWFai6GFwMWom/DH6z2r67wyxlP4tas2uj99tpzEaHjUGDJqiO/GXwm9VWjjCbtp+RDaNBU4QNz5+kW7NBi+pTJf4y+M1qq+oxy7Gf2SKyNBNdz9YJNU3YBLPEXwa/mYN4GQk5GNDIs5+Z20ezxOBy644teWa9ZvufBml/WQm/GTDb9AG2YtxM51n3GC8jIWBW83gZCWnHDFIhYAZ5EDCDPAiYQR6kHTOdPWKP8TISAmY1j5eRkHbMMDy76QOUw+zJzplnr5wpeCg/AmYl4mUklMXs+ZvPPwqfv/HV6ocpVUavnzdRqxdbI7QJZTF78ScGsycvf1NgF2XK6OVO1ApbY22Vc9Hc2XmpQGNWroxe7kStsDXW9j3/FuB/FeGsTBm93IlaYWusraYwe/76jlWh5qxMGb3ciVq92BpF9Ig9xstIaLo1+2nUJyvUmpUpo5c7UStsjQ7iZSRUxbhZuTJ6ORO1ooxe9fEyEprBjC6cpwseyZOAWYl4GQnNDGh8eMbcbeoZnoVUaGZ49nepe1aob+ZNwEytZi6av/zYvPw3YAZVqfwBDVw0oUqVO6Dx7Pc2lM1i4RagRLyMhGYumjcLD896EzArES8joZlbgDdf/En4/KOCh/IjDM+WiJeR0AxmH4VPzr74IzWtGTDb9AHKXTTvvfTVzfzx2Xxj2X4/E3Z844hG/ff/ph2N+5OFjG1jjUwk7ya1e/jNaqsiDo08Y9mFLGV2Ia+MHGZc3szWnpoO5d2kdg+/WW01PaDxxld2TCP/FiDPWMYojI+CfestM592CTNeGXsyIszIbMaB+z8Lmj3TaPFuOrvtjllm2jr4zer7PtOa/XT+U4A8Yxmj0GsZhKy3rBnNXUgrY4fZpDWLA291R19Hu2EjEG8Lv1l9NXMLsODPAPKMZYzCsemGHTAq5tP9dszeVGvGlfQ4cPzJnZPLD5LdHLdP+jzvIfxmLuJlJDTTmvFzpvzWLM9Yxp6wHnlirbesGfbob014Zewwiy+ahjkKDHvn71K1Y7ubcPj967QvAxT8Zg7iZSQ005ot6JvlGssCu4jd1tZgdsXcaT59m+9IrcOsQx0y+pk7cebu8XNz6Y1306f20QQGrx3Cb+YgXkZCRfpm7vRtl0uGLhEwKxEvI6HcAQ3vzzR70d9qLlYeZpAKzWCm7JkmpELan2lCKqT9mSakQgWeaW5cuAUoES8jofxnmjIFzErEy0hIO2YYnt30AYpj9vzNgofwK2BWIl5GQtOYvb5gKCPHbtbmF5pDLqO0k2ycsZ+ZV7IRob7ZNmkas4/4YdOcv2vKsZvRy42j5kzolJMsYz/7Td8sQH2z7VJe3+xefpuWYzfjl+EPDvfIJNYevPPW7XcP96KIERvQzLI7GftZOLweor7Zdr1nW7PwxYfLXI0puxm/mFaKqvsMrhztPzKXPKotxRHkDDK89LP2s07QQH2zLVO2b7azc3ZeaI7djF9M3+w+15Q1XJn/zPXQRrABbTCxPiat2fiTLuqb+YqXkdA0ZgtLG+fYzaytjDAjk5jFzIBkI9iAdptxmbKfheFJH/XNfMXLSKjIuNmM3azLtrLO3p3DRi8I9j/d65p2zFw5bQQZ/Fsdupecsp91uC1EfTNP8TISqnh4djB711mdgFmJeBkJVYvZZNTLhfIwg1RI+8MmSIWAGeRBwAzyIO2Y6ewRe4yXkRAwq3m8jIS0Y4bh2U0fAJjlScRZ9xgvIyFHmC2qhTaxq2U2gd+stnLVmi2ohTZZktkEfrPayjlm2Vpo6SW9i8HFoJX4y+A3q+27a8xmaqGllowOG4MGWbwjfxn8ZrWVU8zyaqGll5B3aHg58ZfBb+YgXkZCrjCbWwtt2q5GmCX+MvjNHMTLSMjZgMacWmg3Ukvumh5YkPaXwW9WfbyMhLSPm+k86x7jZSSkHTNIhYAZ5EHADPIgYAZ5kHbMdPaIPcbLSAiY1TxeRkLArObxMhLSjhmeAmz6AMAMkiI3mC1zNbJZcb+PMnrbIket2TJX4+hSOL7aRxm9bZFrzOa4GkeXxtdClNHbmnfHmM1zNbJZcSNl9ET0iD3Gy0jIJWYLXI3cmoUoowfM1tIyV6O5FHIYyugBs3W02NX4alS0HWX0gJk45WEGqRAwgzwImEEeBMwgD9KOmc4escd4GQkBs5rHy0gImNU8XkZC2jHD8OymDwDMIClaB7N8V1liD5uIqv6MI2PZINj7xRcTa5mtcpY3iav51Az5wft0rtMCZiq0VmuW5yqb2MMSjXliV2ssG56niTYn1jLeMncS10v0xDMn12kBMxWqBrOUq4ztYabp2n/I07ZSq9TgiV2tFeO+ZSiylkVb5k7ieil6sM4bw2+m+70SzNKuMraHGW56zXg+zeM2T+xqjWW3uIFKrGV2y9xJXPlTj2eCPbblQ3ELUCJeRkLrY5ZxlbE9zHAxPGDCyKDRtxO7cmtmiYmtZdGWuZO4mtbsqDW+ajdO5TotYLbpA7jHLM9VxvawXsNO59rZu034xZiRscxAaKIia1k8wWveJK6XwrADzNaOl5HQegMaea4ysofdMH0zugAGLRMRNGhi1++xsaxF7VfDzljdC3bftlv2cydxtX/71OJZYVO5lvgl19lAe7yMhFyPm33bDa0duwLlYQapkGvMetE4WBUCZmql/SkApELADPIg7Zjp7BF7jJeREDCrebyMhIBZzeNlJKQdMwzPbvoAwAySotKYlTGbmbf3jmjmOX4gzjazMeqbbYPKt2aFzWYmYHi+Tw81n7bZS8aPMlHfbBtUAWYrms3Yd3HMHo2TPmPWiyq4oL5Z7d/Xx2w1sxkFm9bLYPXj5uhzdmNYmxnqm7mNl5HQmpgVMJtZF9mFX9/54G+t6SfVmqG+mbN4GQmVx6y42YxuFToN+i+c7puhvpm7eBkJrTGgUdRsxveTBsfhdfNO7Zx5aaK+meN4GQk5HTer0mwW4tG5YjnFrEqzWQjMFEv7UwBIhYAZ5EHaMdPZI/YYLyMhYFbzeBkJAbOax8tISDtmGJ7d9AGAGSRFq2OWYzBr8wsZyjKyVcuSDe1smo+OglfPxZ6yvIpm8JvVVgVasxyDGb3cOGrOhHJErGQ2TfN/7CnLrWgGv1ltVQazicGMX9hQRhUwBu+8dftdLkb2c64hRZYzWhbPpkmYxZ6yvIpm8JvV9r0EZimDGb+wocx8vHLE3uteM4ogL5DhpR9b0aj0Suwpy61oBr+Zg3gZCRXFbNpgxi/W6cNFfggtMi/a2j+RszGMZ9Ok1izylOVWNIPfzEG8jIQKYJZjMOMXxoxMYhYz05pFVcvYctaczKbJmFlPWW5FM/jNHMTLSKjIgMaMwaz7lF64AFnPXBI/3euadozuKDniIVnOOjboTnynGXnKurkVzeA3qz5eRkIVj5sNZu86q1MeZpAKVYvZZNTLhYCZWml/CgCpEDCDPEg7Zjp7xB7jZSQEzGoeLyMhYFbzeBkJAbOax8tISDtmcGioEDCDPMgxZjleyBuJkTEbGSRejMTieAfTttZCrluzvGJ7iZExFcazZ46P4lqPWYtjKtdpATMV8oZZqtgeW386u+3O/kPTarErchA0uRRVk9qxwTtv3YksjtVP2/p4y+LNBgLifWE2XWyPjYwGtvvtwXs8LeuvDqLWjJdM7I+YtnXdeBkJecEsU2zPGhmP2yf9DhUNJbva8IDLIDdCWpKyOGI+zXXjZSTkGrO8YntsZAyH37/OV9MEs0+oJ0ZLGDNrcQRm68bLSMj5gMaMF/JuNH8rtXFk9GdX5Ojw3UO6H02WRBbH28umbYVUSPu4GaRCwAzyIGAGeZB2zHT2iD3Gy0gImNU8XkZCwKzm8TISAmY1j5eRkHbM8OhchYAZ5EHFMMsrpddJ+cTisAv9nNp5u2+n4lBGb6tUsDWbtY/duPrwwqPMjDk9w2JO7Txb4ofNZSijt10qi9nEPsbLaKrWflJPb3y1P8ipnRebxwZBc3Nl9Fz7u6TFq/Sb5ZXSo2U0Vet7kTNs0DKY5dXOG114FJvLUEbPV7yMhMpglimlR8t4qtaknh5hllM7j1qzyPWDMnq+4mUkVBCzHPuYbc0a6Xp6dNHMqZ2Xwgxl9HzFy0io6IDGbCk9mnzV9s2Senq/Clo5tfPoTjMylzXDqsroQSqkfdwMUiFgBnkQMIM8SDtmOnvEHuNlJATMah4vIyFgVvN4GQkBs5rHy0hIO2Z4dK5CwAzyoPKY5XjPvmSL2LSObxwFDTam2ScIkaMMfrOt0hqt2ZzSZdOyC3nl8K1uOHq/zcUy4DfbLlWB2VTpsjDkB5wPedJW82mXMOOV/ATcvHAhM/jN4DdbTXmlyy5YB5ChiWfT7NELLaSVHbr2GWQIM/jNfMXLSGhdzGZKl4WhNZ8xZubT/XbM3kxrFsJvBsyWal7pssux+ayz95Nm2Nt/eMG6z+hOgfpnk74Z/GbAbLlmvGd3Dvm2kc1ndIvYopcr5k6Tp3eN7jQpuA+/2XZJ+7gZpELADPIgYAZ5kHbMdPaIPcbLSAiY1TxeRkLArObxMhICZjWPl5GQdszw6FyFgBnkQatjllfbjF+Gl2diOSLSGH4zqEBrluMv4wJnR82ZUI5IbQe/2ZarDGYTfxm/JGXNBu+8dftdnvzy5+zwIccZzY0Jvxn8ZkxQIczStc3oxbRSXNbsyhFPfmlAshFkBbpBc2PCb7bBeBkJFcUsU9uML55xWTPDlfnPXA9tBDvOBhOvI/xmm4iXkVABzHL8ZdZHFpc1s5gZkGwEO85uMy7wm20sXkZCRQY0ZmubsY8sKWv2KZWV5ZJmHPGQHGcdupeE32zbVfG42WD2rrM6ATO1qhazyaiXCwEztdL+FABSIY3XDn8AAAtfSURBVO2Y6ewRe4yXkRAwq3m8jISAWc3jZSQEzGoeLyMh7Zjh0bkKATPIgxZgVqXBjG1jjQUbwW9Way1qzao0mJn/x0etBRvBb1ZnrYRZBQYztmU0beWz/Z8FzZ7Zinfb2W13+PFnA36z7fSbVWkws61ZXPnsVnf0dbQRG4HYMwS/mYt4GQktxawigxk5MRq28tn4kzsnlx8kuz1un/TZtQG/mYt4GQktwqxKgxn9H9ppN8Pe+bvUvbMbhcPvX6d9G6DgN3MQLyOhhQMa1RnMzCrqwnHlM8OTuRTHu+1Te2kCg9cOy/jNcAugQuuOm1VjMPvWNHfXlkblYQap0JqYVWQw60V/q7lYwEyttD8FgFRIO2Y6e8Qe42UkBMxqHi8jIWBW83gZCQGzmsfLSEg7ZpAKaccMw7MqBMwgD1qAWVlbYzKD66Oj4NVz1qtIFQxga9xerWIEKmprTGZwNf/HXkUxtkYRPWKP8TISWgmzgrbG2/EMroRZ5FWErRG2xoptjXYGV7rakYnMehVha9xQvIyElmJWwtYYxjO4UmsWeRVha9xQvIyEFmFW1taYzODKmFmvohhbI7QJLRzQKGdr5KA78Z2m9SoaubE1Qiq07rgZbI3QCloTM9gaoVWk/SmAzh6xx3gZCQGzmsfLSAiY1TxeRkLArObxMhLSjhmkQtoxw/CsCgEzyIMKYbayA21sJ2Md02OA/X7ITwHgN9tiFWvNVnag8fNINp2Nad0D+M02FS8joZKYLXOgcSA/Px9/Zuh6AL/ZpuLl+81mtbIDjQOHB4TZtdH77Qfwm20qXkZCJTBbxYGWas2uhcPzJ/CbbSpeRkLFMFvZgZbqm10zHO7Bb7bdKjigsboDLbrT/N4RXVhv3XFVRg9SoerHzco40OA3q7kqx6yUAw1+s5pL+1MAnT1ij/EyEgJmNY+XkRAwq3m8jISAWc3jZSSkHTNIhYAZ5EHADPKgBZhVNW2reW06m7YVUqFFrVlF07b+hmY+dOU309kj9hgvI6GVMFtz2tZweN3ZtK2PMz8vfS/q19IeL99vVtW0rZ2g4WzaVp3/uD3Gy0hoKWYVTNtqGXPjN9N51j3Gy0hoEWZVTdsahid9V34zSIUWDmhUM21rxywdwW+21Vp33Az1zaAVtCZmqG8GrSLtTwF09og9xstICJjVPF5GQsCs5vEyEgJmNY+XkZB2zCAVAmaQBwEzyINWwyzHenbjaMY/Fj2F9DqfJqRCK7ZmOdaziKm0etYY5nM+TZ09Yo/xMhIqitnEekbmxYvBxaA1ePdw7w57zcZX+8Nzr3098Dif5uPMz0vfi/q1tMfL95vlYJayno0uPDxsDBrDP2DLGZuADGb32992fc6nqfMft8d4GQkVwWzaesZ2H3IFseUsxizqW3mbT1PnWfcYLyOhFTHLsZ6lMes12Wt292r/Qdcg53E+TUiFVh3QmLGe3aXaZfufBsHebb44ktdsELT+wTRFmE8TyqiCcbMKLGfwm9Vc62NWheUMfrOaS/tTAJ09Yo/xMhICZjWPl5EQMKt5vIyEgFnN42UkpB0zSIWAGeRBwAzyIGAGeVBZzNY2OsZbpvZYxtaos0fsMV5GQqVbs7WNjrA1eomXkdD6mJU1OoawNcLWuFRrGx1ha/QSLyOh9TBbx+hYja0RUqHSmK1tdIStcYtUfkBjTaPj7tuwNW6PnIybFTY6wtZYc7nArLjRsbytUWeP2GO8jIS0PwXQedY9xstICJjVPF5GQsCs5vEyEtKOGaRCwAzyIGAGeRAwgzxoCWZFpm4N7cPxZnbaVhpGczZtq84escd4GQkta80KTN0asmtn/Ek3M20rz6WJMnobipeR0MqYLZu61frGYsympm2NMEMZPfjNlmG2dOpW9o2ZS9yuNW6kp22dtGYoo+c9XkZCK2G20tSt5Buji+ZRKzttK2PmqIwepELLMFt96lbyjRnMTBuWnbY1vmiijN7WaumAxopTt3KbZ23YjzLTtkYzuqKM3harinGz9evowW9Wc1WAWQV19OA3cxYvIyHtTwF0nnWP8TISAmY1j5eREDCrebyMhFRhBqkVf4E6MMuT87tP1wfYpl8AmG3sANv0C+jFDFIkYAZ5EDCDPAiYQR6kErNe0Ey9OTvA6NDVAeLMhwdu9p8cwNUpsvu1fohVpBEztrglb+4O8KDLhk5n+zccz5TsrfYAPUf/TOJv4LI1IS6XRsx67H2M39wdIAwdcRzv/9YvHLVm0QFG1oTlbP+Gtlur7V8jZvfb9O8ofnN3AKOT1a4J5fZPHk4Xu08dwFF7Fp+gQbBaY6YSM3+t2WDFs1hq/+Reny10X+EBKH03/xCj/Y+vrdqr0IiZr76Z/cMqh/t3dgswOUNu/qFE+yebfn37ZmHH3Of0Wvzm8gC9yd8jO9m/wzvN6AA9R61ltH/THq/Y91OJGaRNwAzyIGAGeRAwgzwImEEeBMwgD6onZvd2ds788uPMwhf/8ePnv8MLo7cp5S1LFj777jfzQpZrdrOSO+JM/tXykO98VSibQvqv5bauJWY3X/4mvHcqe0Ju2iUz+E2tzdXz11/+ZklIRslB5hxtpW1zZHlfqBcfvrQIszVVktI6Yvbst+hUPDmbWWxaM3qb8+8xWjtnj/ztLgyZVnKQEv/6F2zy4o9WIOj5Gw4xC5//7lLQc1RHzO69HJ0Junaas/7fd8yCJzs7p+iiad7P0j/J1Lrnr++89BUz9OLDndOmNfgrWvD8jR+e+rPf+ZhXPvvuH++cZsxu7vDOaUOzPf9Igf/lu3+x8/Lf7bz896+/9JVp9PggtGHO0UJuEp5FG3wT7ymK+OGp/xxvG4XfMx/jwz45TchHW9qDpyL5N45/Sq0wv5X5fDM59iSPSUxysJ0z9jd+JT4L2SRuZv/5rqI6Y2baoGev/FtDDn2t3/nKNHKGgP9DrJz6OL3u3hkDkG2qqCX4R17wow/N124CeeWzV86++PCs+fDELDtjcQzNQvrxX5tA87P5dk5T7+8NApYOwhvmHC2kq++P4g1+FO0pjjgTxtv+yIYbsm6eiQ5rloeTQ/HCVGTIGN6ktdEvFa24d3qSuT12FD6JiZZxFmfNf3TpnpPEvTMlvpI6Y0YnxJx1/uLpC2KWCCf7c7KOvrqz0RXRnMiffsMLiLh4JV00GRvzr91gEV2Y7p3hH+mz3ZFBMfoQNY1n845mb0ZSG/Ce4ogw2daGcOMRH5aiki3twklkGLU0qV/KfnxyOpV5cmz6bScxyVmiM2BO4PM35yUBzCLZvtmzP73HJ2UOZql1T8w/8BizZ9/5yz8NeUH0lfPnCWbRFSOGI/pa8zBL9po5WpiPWRwRJtumv+HosNOY0cJUZDiFWWoFt73xLtKYpWKis3Q6ajHP/nJuEsAsFt1pmq6qwS05gU9M7+vDl/46wSy97mZ0RUy25QXRV86fDWbm0sENQ0j/zvmGy15Mnr+Zxez563ScMNlr5mhhBjO7pyTC9gDPJsQ+oZYlPiz1zZIteWEqktZTcOqXinZxxm7Ku0jnkYqxrzYLE7yTOguZJNA3S3ST+rzczJ81n0/fM2fNLNo5az/wW2rd3+2c+hcv/TDqRD/7PTrLZsG/4SC78q8/pGi7NQ8XmG7yDg1v3Iz61mZH5u0v+NOpf0l3Cmd5J1/NHu0byuvlP443+PtoT1EE9+zPRglEiZ/6OIwOS3ea6UPRPcYkkn/xUx+nfim74n+/QrcX0S7ssW14auNoGWcRWpbyk8CdpkdVN2hQbE+Lh17n6B8NxT8tBMeL/zQvvMCgTlrArJQ2hdkqTwGyIjKef1Rok5kxx0R4CuBRplP9cplrh8s9zdcT24VYWTf5lrRSATPIg4AZ5EHADPIgYAZ5EDCDPOj/A6e9bOOEeAAMAAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrRmljMVpoY25ORGIyNVFaWEp0YVcxd1VIUjJMbk4yWjF3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU9Dd2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p6ZG1kY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNaRUZ1Ym05NVRXNUJZbk5XWVhKelEyOXVVR1Z5YldsdGNGQjBkaTV6ZG1kY0lpbGNiaUFnWEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY0lsQjBjMEZDWkVGdWJtOTVUVzVCWW5OV1lYSnpRMjl1VUdWeWJXbHRjRkIwZGk1d1pHWmNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVGdzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ3aWNHUm1YQ0lwS1Z4dUlDQjFibXhwYm1zb1hDSlFkSE5CUW1SQmJtNXZlVTF1UVdKelZtRnljME52YmxCbGNtMXBiWEJRZEhZdWNHUm1YQ0lwWEc1OVhHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFic1ZhcnNDb25QZXJtaW1wUHR2LnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9OCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BYnNWYXJzQ29uUGVybWltcFB0di5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BYnNWYXJzQ29uUGVybWltcFB0di5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTgsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXBQdHYucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAbsVarsConPermimpPtv.svg\, width=8, height=8, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAbsVarsConPermimpPtv.svg\)
ggsave(filename=\PtsABdAnnoyMnAbsVarsConPermimpPtv.pdf\, width=8, height=8, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAbsVarsConPermimpPtv.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtGaWMxWmhjbk5EYjI1UVpYSnRhVzF3VUhSMkxuTjJaMXhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5T0N3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHpkbWRjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1pFRnVibTk1VFc1QlluTldZWEp6UTI5dVVHVnliV2x0Y0ZCMGRpNXpkbWRjWENsY2JpQWdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjWEZCMGMwRkNaRUZ1Ym05NVRXNUJZbk5XWVhKelEyOXVVR1Z5YldsdGNGQjBkaTV3WkdaY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUZ3NJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRnhjY0dSbVhGd3BLVnh1SUNCMWJteHBibXNvWEZ4UWRITkJRbVJCYm01dmVVMXVRV0p6Vm1GeWMwTnZibEJsY20xcGJYQlFkSFl1Y0dSbVhGd3BYRzU5WEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BYnNWYXJzQ29uUGVybWltcFB0di5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTgsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXBQdHYuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXBQdHYucGRmXFwsIHdpZHRoPTgsIGhlaWdodD04LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFic1ZhcnNDb25QZXJtaW1wUHR2LnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFic1ZhcnNDb25QZXJtaW1wUHR2LnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9OCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BYnNWYXJzQ29uUGVybWltcFB0di5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BYnNWYXJzQ29uUGVybWltcFB0di5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTgsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXBQdHYucGRmXFwpXG59XG5cbmBgYFxuYGBgIn0= -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAbsVarsConPermimpPtv.svg\, width=8, height=8, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAbsVarsConPermimpPtv.svg\)
ggsave(filename=\PtsABdAnnoyMnAbsVarsConPermimpPtv.pdf\, width=8, height=8, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAbsVarsConPermimpPtv.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZCc2IzUWdiMjVzZVNCMllXeDFaWE1nZDJsMGFHbHVJREVsSUc5bUlIUm9aU0J0WVhocGJYVnRYRzVjYm5KbGMzVnNkSE5QZFhSQlluTXVZMjl1YVcxd01YQmpJRHd0SUhKbGMzVnNkSE5QZFhSQlluTXVZMjl1YVcxd0lIdytYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQnliM2R1WVcxbGMxOTBiMTlqYjJ4MWJXNG9KMDFsZEhKcFl5Y3BJSHcrWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQm1hV3gwWlhKZmFXWW9hWE11Ym5WdFpYSnBZeXdnWVd4c1gzWmhjbk1vTGlBK0lHMWhlQ2h5WlhOMWJIUnpUM1YwUVdKekxtTnZibWx0Y0Nrdk1UQXdLU2tnZkQ1Y2JpQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lHTnZiSFZ0Ymw5MGIxOXliM2R1WVcxbGN5Z25UV1YwY21sakp5bGNibHh1Y0VKaGNpQThMU0JuWjNCc2IzUW9jbVZ6ZFd4MGMwOTFkRUZpY3k1amIyNXBiWEF4Y0dNcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSQlluTXVZMjl1YVcxd01YQmpLU3dnYkdWMlpXeHpQWEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJCWW5NdVkyOXVhVzF3TVhCaktTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzeFhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjSWxaaGNtbGhZbXhsWENJc0lIazlYQ0pEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxJQ2h0WldGdUlHTm9ZVzVuWlNCcGJpQmhibTV2ZVdGdVkyVXBYQ0lwSUNzZ2RHaGxiV1VvZEdWNGRDQTlJR1ZzWlcxbGJuUmZkR1Y0ZENobVlXMXBiSGtnUFNCY0luTmxjbWxtWENJcExDQndZVzVsYkM1bmNtbGtQV1ZzWlcxbGJuUmZiR2x1WlNoamIyeHZjaUE5SUhKbllpZ3lNelVzSURJek5Td2dNak0xTENBeE1EQXNJRzFoZUVOdmJHOXlWbUZzZFdVZ1BTQXlOVFVwTENCc2FXNWxkMmxrZEdnZ1BTQXdMakkxTENCc2FXNWxkSGx3WlNBOUlESXBLU0FySUdOdmIzSmtYMlpzYVhBb0tWeHVjRUpoY2x4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbiMgUGxvdCBvbmx5IHZhbHVlcyB3aXRoaW4gMSUgb2YgdGhlIG1heGltdW1cblxucmVzdWx0c091dEFicy5jb25pbXAxcGMgPC0gcmVzdWx0c091dEFicy5jb25pbXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJvd25hbWVzX3RvX2NvbHVtbignTWV0cmljJykgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlcl9pZihpcy5udW1lcmljLCBhbGxfdmFycyguID4gbWF4KHJlc3VsdHNPdXRBYnMuY29uaW1wKS8xMDApKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uX3RvX3Jvd25hbWVzKCdNZXRyaWMnKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0QWJzLmNvbmltcDFwYykgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dEFicy5jb25pbXAxcGMpLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEFicy5jb25pbXAxcGMpKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzFdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Plot only values within 1% of the maximum
resultsOutAbs.conimp1pc <- resultsOutAbs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > max(resultsOutAbs.conimp)/100)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbs.conimp1pc) + geom_col(aes(x=factor(rownames(resultsOutAbs.conimp1pc), levels=rownames(resultsOutAbs.conimp1pc)), y=CondPermImp), fill=mycolours[1], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkJzYjNRZ2IyNXNlU0IyWVd4MVpYTWdkMmwwYUdsdUlERWxJRzltSUhSb1pTQnRZWGhwYlhWdFhHNWNibkpsYzNWc2RITlBkWFJCWW5NdVkyOXVhVzF3TVhCaklEd3RJSEpsYzNWc2RITlBkWFJCWW5NdVkyOXVhVzF3SUh3K1hHNGdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCeWIzZHVZVzFsYzE5MGIxOWpiMngxYlc0b0owMWxkSEpwWXljcElIdytYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCbWFXeDBaWEpmYVdZb2FYTXViblZ0WlhKcFl5d2dZV3hzWDNaaGNuTW9MaUErSUcxaGVDaHlaWE4xYkhSelQzVjBRV0p6TG1OdmJtbHRjQ2t2TVRBd0tTa2dmRDVjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUdOdmJIVnRibDkwYjE5eWIzZHVZVzFsY3lnblRXVjBjbWxqSnlsY2JseHVjRUpoY2lBOExTQm5aM0JzYjNRb2NtVnpkV3gwYzA5MWRFRmljeTVqYjI1cGJYQXhjR01wSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJCWW5NdVkyOXVhVzF3TVhCaktTd2diR1YyWld4elBYSnZkMjVoYldWektISmxjM1ZzZEhOUGRYUkJZbk11WTI5dWFXMXdNWEJqS1Nrc0lIazlRMjl1WkZCbGNtMUpiWEFwTENCbWFXeHNQVzE1WTI5c2IzVnljMXN4WFN3Z2QybGtkR2c5TUM0MUtTQXJJR3hoWW5Nb2VEMWNYRlpoY21saFlteGxYRndzSUhrOVhGeERiMjVrYVhScGIyNWhiQ0IyWVhKcFlXSnNaU0J3WlhKdGRYUmhkR2x2YmlCcGJYQnZjblJoYm1ObElDaHRaV0Z1SUdOb1lXNW5aU0JwYmlCaGJtNXZlV0Z1WTJVcFhGd3BJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjWEhObGNtbG1YRndwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJJR052YjNKa1gyWnNhWEFvS1Z4dWNFSmhjbHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSB2YWx1ZXMgd2l0aGluIDElIG9mIHRoZSBtYXhpbXVtXG5cbnJlc3VsdHNPdXRBYnMuY29uaW1wMXBjIDwtIHJlc3VsdHNPdXRBYnMuY29uaW1wIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXJfaWYoaXMubnVtZXJpYywgYWxsX3ZhcnMoLiA+IG1heChyZXN1bHRzT3V0QWJzLmNvbmltcCkvMTAwKSkgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbl90b19yb3duYW1lcygnTWV0cmljJylcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEFicy5jb25pbXAxcGMpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wMXBjKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wMXBjKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1sxXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSB2YWx1ZXMgd2l0aGluIDElIG9mIHRoZSBtYXhpbXVtXG5cbnJlc3VsdHNPdXRBYnMuY29uaW1wMXBjIDwtIHJlc3VsdHNPdXRBYnMuY29uaW1wIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXJfaWYoaXMubnVtZXJpYywgYWxsX3ZhcnMoLiA+IG1heChyZXN1bHRzT3V0QWJzLmNvbmltcCkvMTAwKSkgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbl90b19yb3duYW1lcygnTWV0cmljJylcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEFicy5jb25pbXAxcGMpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wMXBjKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wMXBjKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1sxXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGAifQ== -->
```r
```r
# Plot only values within 1% of the maximum
resultsOutAbs.conimp1pc <- resultsOutAbs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > max(resultsOutAbs.conimp)/100)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbs.conimp1pc) + geom_col(aes(x=factor(rownames(resultsOutAbs.conimp1pc), levels=rownames(resultsOutAbs.conimp1pc)), y=CondPermImp), fill=mycolours[1], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qSXVOaXdpZDJsa2RHZ2lPamdzSW5OcGVtVmZZbVZvWVhacGIzSWlPakVzSW1OdmJtUnBkR2x2Ym5NaU9sdGRmUT09IC0tPlxuXG48aW1nIHNyYz1cXGRhdGE6aW1hZ2UvcG5nO2Jhc2U2NFxuIn0= -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjIuNiwid2lkdGgiOjgsInNpemVfYmVoYXZpb3IiOjEsImNvbmRpdGlvbnMiOltdfQ== -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFESENBTUFBQUNFTFcvYUFBQUJ0bEJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacllBWnY4ek16TTZBQUE2QURvNkFHWTZPZ0E2T2pvNk9wQTZaclk2a0xZNmtOdE5UVTFOVFc1TlRZNU5ibTVOYm81TmJxdE5qbzVOanNobUFBQm1BRHBtQUdabU9wQm1aZ0JtWnJabWtOdG10dHRtdHY5dVRVMXVUVzV1YmsxdWJtNXVicXR1am81dWpzaHVxNnR1cThodXErU09UVTJPVFc2T1RZNk9iazJPYm82T2JxdU9qazJPam82T2pzaU9xNnVPcThpT3ErU095TWlPeU9TT3lQK1FPZ0NRT2pxUU9tYVFaZ0NRWnBDUWtEcVFrR2FRa0xhUWtOdVF0cENRdHYrUTI3YVEyOXVRMi8rcmJrMnJibTZyYm82cmprMnJqbzZyanF1cnEyNnJxNnVycThpcnErU3J5TWlyeVArcjVNaXI1T1NyNVArMlpnQzJaanEyWm1hMmtEcTJrSkMydG1hMjI1QzIvN2EyLzl1Mi8vL0lqazNJam03SWpvN0lxMjdJcTQ3SXE2dkl5STdJeU1qSXlPVEl5UC9JNUt2STVQL0kvOGpJLytUSS8vL2JrRHJia0diYmtKRGJ0bWJiMjVEYjI3YmIvN2JiLy8va3EyN2txNDdrcTZ2a3lJN2t5S3ZreU1qazVLdms1TWprLzhqay8rVGsvLy95OHZMMzkvZi90bWIvdHBEL3lJNy95S3YveU1qLzI1RC81S3YvNU1qLy83Yi8vOGovLzl2Ly8rVC8vLzgvVWl0akFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFQMGtsRVFWUjRuTzJkalo4YlJSbkhjeTlhVWZUMkRzS1ZZakVWeWtraVdDa1djb0tWaXIwRHJMU2xUWlNxM0l0V0JVc09VVzViUlV1NEkrVmljcG4vMkdkZWRyUFpiTzZ5bSt6c3pQTDdmZnBwTnJQenpETzc4ODJ6czVzOE53VUdRYW1ya0hVSG9LK0NnQm1rUWNBTTBpQmdCbW1RaVpoOUhjcVJ4SkFhaVZsVTRWN3NadUpiYUhHU0Y0c3hUWUJaTms3eVlnSE1rbG9ZT3FCbVdnQ3pwQmFHRHFpWkZ2bkVETEpUd0F6U0lHQUdhUkF3Z3pUSU1zeStCcG11SXdZVG1FSFQwaEdEQ2N5Z2FlbUl3UVJtMExSMHhHQ21oMW43K3pWdnMxV20vN3JQTlFKN3V4V24yQXhWRyt4WlNGbWZRK2hZUldLUU5tWmYvcmlzdG5ycjVkQys3bm5XUGRjTVZRdjFMS1NzenlGMHJDSXhTQnV6djdRb1hMa3ZPQzg0MWRZelo1WWF4Rlczc2xocnYxaFphclNjc29lWnFNWjNzRTNubVhma3I0RDI5c1FYR1h2QjE2elBJWFNzOXFMR0xXWE11dS9UVmJKYldXNHR0eThRU2EyeVcyemVyYldlWFY5cWJOWCt0ZUpGTTFHTjBZNHlYVm5kcWpCRk5MTlRrUnlrakZuTGNad3FhMVZiWmNLc3pOb3J2U3ZOVGNjaDZBaXF0bytack1aM2JOV0FtZDJLNUNCbHpENXRzdFp5SHpPM1RKamRvNXVBSUdhMExhdnhIUzZpbWVXSzVDQlZ6SHJySWtZOStuenhMY2RaK2pNRks0cGJWYnE5WE41Y3VsTlo3bForVUtFd3RuaFRWaXZlcHgyMDB3Rm1Oa3MvWnNtRWFHYTFJc2ZVUE16YWREL0tYNEdabllvY1ZQTXc4NFJmYU9SSXdBelNJR0FHYVpCbG1CbVVSUUdMR0NiQUxCc25lYkVBWmtrdERCMVFNeTJBV1ZJTFF3ZlVUSXQ4WWdiWktXQUdhUkF3Z3pRSW1FRWFaQmxtQnMxcVlSSER4RExNc3Y1ZUdBb0xtRUVhQk13Z0RRSm1rQWJGR1V4Z0JpVlVuTUdjSm1ZaWs5eDFsaG95bGJ4YktmN3BSakM1dkxmT2YvOS9nK2RrMHZaU0kyREYvL2RTQVlDWkhSb1BpaFNpbVVpSzQxbEtJcFhjclJKYkE4bmwvTTJEV3ZlTlpjYis5NlBHZ0JWUFJHOUpJb0daSFJxUGlUUXhFNm5rZ3ByQjVQSnp6UWMxMW4zN3VRYjc5RmNObDJjMkZkOHE5ekZiWnNnNnQwZDdrVm5tNGRjVU1aT3A1S3psbEFlVHkrbktTQmZNN3JYTmF1K3YyN3hDdFh2dXVoZk5LczZ5YWdiUnpBcGxkcWNwZ0NGK1d0NDh5NjBPSkplcmFIYXRmZmEvZjl0dUVGaFYvc2VDdkdqV1B0c005aXlrckU4cUZGWm1tUFhlcUFsb3ZJeHpnbWdndVZ5OFdlbGU2NzN4aytaMlk3dlJxclpYdG1xeUNsMDAzWEt3WnlGbGZWS2hzTEo3YnRZK1ExZEZsWEZlL1BkVHp0S2RZSEw1bzgvVEcrY2xDbUt0TXQyUS90cWhrcGZYSHprajd6K2RjbTk5c2RidldVaFpuMVFvclBHUXdITXphQ0xGR1V4ck1JUHNGRENETk1neXpBejZDUlVzWXBnQXMyeWM1TVVDbUNXMU1IUkF6YlFBWmtrdERCMVFNeTN5aVJsa3A0QVpwRUhBRE5JZ1lBWnBrR1dZR1RTcmhVVU1FMkNXalpPOFdDVEZiTCt3Y0hCaUliNjdxUXVZMldDUkVMUE82YzRsMWptMUVkL2Z0S1huRnhwUlRzd2NVRE10RW1KMitCcGh0aiszRzkvZnRKVWRadERVRlhIUkxCUm1EUWhtd0N4UGlyNEYrTHNCbkFHekhHa0FzODdKZ3RTMHcxbEVpdkJOa1JVOHRQUjB1R2NoQVRNN05Sak5icWs1MmRTajJZZ1U0UWNoekxybnd6MExTUXRtWms2MnpiUXc2N2xaZElvd1ViYTVXTnNzM2c4c1M5MCs4OWo3R3RPQm85SlhQejgrdlRYMHVoZXpQaCtkZVBVWit6eG1mVDNINFp2RlRBZm1GODc1NDZpSnJhZ1VZWmtWekdFTExrdDl0L2FsL0lNSGlHWTJXQ1I5b0xHNlFIZWJVMzg4RzUwaXpLK1pXN1hiQTh0UyszKzlCWmpaWUpIMDhld1RmSG8yOWJuWnFCVGhGZForK2gwV1hKYjZYb1ArNi9jc0pDMllRVlBYMEVYem96WDY3N2RUZjZBeGxDTDhJYi9UNUpGdFcveFZEVzlaNnZKL0tsb1hvWjcyY1VLUmluNmdZZXgzbXNETVRrVSswRGg0TXFQZUJJWGZtK1ZJUXhmTmVocVBaNU1JdjlDd3dTTHhMelFPWDJPZFMvSGRUVjNBekFhTHBKaGRZdnVsdzFjUXpXQXhUWk9oaStiTzdFWTloZWV6OFFYTWJMQ1k2TXNtWTMraEFkbXB3UWNhcHpia013MWpid0VnT3pVVXpXNmw4aTFBQWdHekhHbm9Gc0NFTkFBaFlKWWpEVVV6OFQyVHNkSE1vRmt0TEdLWURFVXpzK2RtQnAwNVdNUXdzV3h1WnRDWmcwVU1rOGdIR3VaK3AyblFtWU5GREJQTHZ0UEVielBzbEdYZmFRSXpPMlhaZDVyQXpFNVo5cDBtTUxOVDAweWdHNW4wZTRPdjJiVGNQbE5zTXBmL05GdXNBNXoxNnNDamo4UE15YmFaRmxua2FZNU0rdTI5MmVpdFYzdnJaYjViTFdtWTllckFvdy9EekFFMTB5SUpacDNUOGQwRU5UTHBsekJqYnJuMzlucTFqMW5XcXdObm0wYjdWVTRIN3B5YzdGSEd5S1JmRmMydWRuOVk4ekhMZW5YZzBZZGhadHd3MHlKUk5Mc2t2bXhLbk5jME11bTNSMU8wWmRhN3l0cG5iL3VZWmJ3NmNOS0RoQklvYW02Mmt6U21qVXo2NVJkTnhqRmo3bEpEclFPYzllckFpWTRRU3Fad05HT0hxeE44Q1RBaTZmZWxDci85cEhJaWFGc3VGWHdqODlXQkV4NGlsRVRENmNDbERIc1RGRERMa2NJLzBzNndLeUhocTNNYkxNejYrMllKQk14c3NBQm1TUzBNSFZBekxZQlpVZ3REQjlSTWkzeGlCdGtwWUFacEVEQ0ROQWlZUVJwa0dXWUd6V3BoRWNNRW1HWGpKQzhXd0N5cGhhRURhcVlGTUV0cVllaUFtbW1SVDh3Z08yVVpadmg5aFowQ1pwQUdBVE5JZzNLUEdXNEJVclhRY3dzUWtRRjhReVQya25pSnlPOHRmaWF5ZmwzK0EyeHZTZUJKMDRISDdpRXdTOVZDMDUzbWlBeGdMbEhTUGM5NlY1bzg1YVM5d3JZQ1N3SlBtQTQ4ZGdlQldhb1d1akVieUFBV3UwUko5enpQWnhMcHdDclI2VUd0SjlKL0owc0hubks2NnNBcjBvRmoyQ1ZJQjA2Z3FBeGdpWmtza2ZtOUhMTzdOWjRncDVZRXZqNXBPbkRpRGtOWmFDcVlEV1VBOHcxWkVoWE5tRWovblN3ZE9IR0hvU3cwS1dhak1vQXZxQks2Q2pLSm1UODNhNitJOU4vSjBvRVRkeGpLUWhNLzBCaktBSmJwdmpkbHlTTm5lQW93MzlXay8rU2RwdlB5dWtqL25TZ2RPSG1Ib1F5RTUyYlRNUG5xV3VUenEzTmdacGhGUGpFejZNekJJb1lKTU12R1NWNHM4b2taWktlQUdhUkJ3QXpTSUdBR2FaQmxtQmswcTRWRkRCTmdsbzJUdkZnQXM2UVdoZzZvbVJiQUxLbUZvUU5xcGtVK01ZUHNGRENETk1neXpQQXJJRHNGekNBTnlqMW11QVZJMVNLZnR3REF6RENMeVRHTFNQV3RiZkpsZmdkcmlLMnRteXJSdCtVc2ZYQzluK3JycHdRdmh4b1hUUVliY25oTzFIT05maGt3czhGaUN0RnNPTlgzNXBYNzV6NjdHcXJCQkRReTBiZDl0dG10bFB1cHZzSlNycVk1MkxiWUVXam9QSk9yMUlWN0ZoSXdNOHhpbXBqMVUzMUZXVytkZ2xqN3hjcVNXaHFUM2kvV1pHcmNYWmxScmxKOWxhVmFHNWlzN2xlS2YzVEtMb1U1c1dOenNiWkpaUlRySkdiVWhtajJ1SFRnMkdtdWVNMzRkUnpNQXFtK29zeXRNdmRadWlSdXFiOWo0Slo1YXB4STlOMFdFY2xQOVpXV01wcHhxM0tyVEZXNjczdTV3aHpOVnQvYUZYOXRZMHRlVG5Hbm1TTWRpOWxncXE4b0l3N2FLKzBMRkxva1psczF1VW5SVENMaXBmb3FTN2syc0xEcXZYbm45b1Y3ZnBOYnRkdE5rVjNIbzlsNnRYZWxLWm9OOUN3a1lHYW5qc0lzSXRWWFJqTjZVL1l4YTErZ2FPWVc3OHRFMzdOTm5oQ3NVbjJWcFp4MUNTdm1udjF3bllLaTNNSGFUNy9EMnhWek03WUp6SEtySXg5b0RLWDZObmhPcjV5YmJTN2RxVHdtTW4vNUZjOTVXU1Q2Vm5tWVd1NnFsWDhYbi9KU2d2bDBTMWhSb0tQTHNOZGtrOGRLY3VLSWhvck5sbFBselM0SGVoWVNiZ0VNczdEbXVkbVhEYkVJK3BDQW1RMFcxbURtcWorc0Z4WXdzOEhDR3N4R0NiODNzOEVpbjVoQmRncVlRUm9FekNBTkFtYVFCbG1HbVVHeldsakVNQUZtMlRqSml3VXdTMnBoNklDYWFRSE1rbG9ZT3FCbVd0aVBHWlFqaVNFMUViTklhYm45MU9Fa0x6NWlPUUZtdXAza3hVYytNWU5zRmpDRE5BaVlRUm9FekNBTnNnRXpWNnorNUwyazZxUmJTZE9KZHdUdGxmUjlwSHEyWk9QeXgvZGp5UUxNeEFKMi9rdTZUdTQxQnZMZlUvRkJMSWN6OGFmdncwM3pJK21OeUFXZThUYVdMTUJNTE1mcHY2VHJoTEVVV2ZaOGJIK1FYalJUUGlncUw2WDJjZkdjRUczYll6cXhBRE94dUxEL2txNFQwdTB4cndPSmZmQlZSTk55MGZlUlpqenpUbGJMR1RPWTJZQ1ozbWpXR3ZmTUpmVWhWaFpON2FxcGpvT09Jc1hQcEhMU3V6cjJETU1DekhUT3pVU3FjdG8rMHJ3RjZKK3NGRDh2eWdtaE5xNFRDekFUaWNodVZieWs3Y1QxL3BwRGlqN1N2ZE5VUHR6MEFxYnZoT0x5dUJOQUd6Q0RyQmN3Z3pRSW1FRWFCTXdnRFFKbWtBWUJNMGlEY29YWlRxR3c4TkZhcVBEd3AydWR4MFdoZWhsUVZKbGZlUER3N3FncXgydllMR0ZEb2lmZlByN0tReHV4ZWhOTHY1bklPbCtZMWVkMjJjNU0rSVRVWmNrUWZnTjdJOVU1T2JkN1RKV1FmQ2NqdkkxbEd5SEorNUU2WEowOUNyTUpOU0dsZWNMczRCdjhWT3lYUXNVVXpmakxpTStqMmp1aVJURzZSMVlabE84a3dhZi9DSlBEVjhZZ3FITXFSY3hZNTRsalFUOUtPY0pzWjA2ZENYN3RwTFArdXdJVjdCY0tNL3lpU2E4bC9wRU03T3VjTE14dUNJWU9Wd3Z6RkEzK3dBczZweTdPL1BMeE5iSHo0T0ZYQy9NQ3MzcEJOTTROeVY2ODVSVi84ZkM3aGJtUEMzT2ZuSnpkb0tBbm5IRERDRzlNaElRRFpiRHJ0YVJxWEp6NXVXZXJxdS9RcHVkMmY1NGpyeXlsODBCTmNjVGV1OEFPT2lyYXJ2dSsrLzNvMS9HZEZSYmtFWi93emtLNEUvWHd4emVXY29nWnhhQ0RFOThqY3Zpd1ByUkJRWTRJK0NkblpXWXR1RzluZ1FDU29ZcEhnaTlFd2VWVkduYXFLSFllbkNnZHJwWm9ZNS9LRmlTT2pBcjUyKzlRUlhwUG96UFBaMytuT0xEY2lUQ004TWI0MWZleVozQlp0ZVRWV0dDZTdXVlpuY2lxTHlpM1ZNNzZya1Job0NZVEdOYjVYblZRYXNmT2ZML24wcmVxM3EranlrUXZTdlNQWDdwSGRHSm5ZWkt4eVNGbS9JVFFXUmNEendkSXNNUnhrdS85Zlh6b1N1cUtTQ2Z5MXE0bzRNUjVPL2xGVTJCRG4zYkNRbDJZZGhiRVc3NHRHeUlVMVlZS2phVW9iL0ptSkdBZ1d2SnFNTjlXVmhIQnczUExhL21Xc3JCZms2bElFemdvdWJrL0graTU3NXNmYmIrT2Y1YjRHYUFUMkRrOXFoUEFURW5PelE1ZTN4RW5aUVJtZ1gzNzlBSDNNRHQ0NlBldk0xR2dobHhzOXpGVFZ3d1BEaldzVVpqNXJZYThzV2pNdkJyTXR3Mk9zSEk3aUJrdkROUmtBNWdGZG9qWTZ6VVJ4Q3hRUjUybGVSVXhTeCtON0FRdzg4VHZOR21xU3JqNUozQ2ZabCtycysvNW1BWDMxZFVWMGJjVkJXckl4VFpoUnBjT0VSZ1kvNXlMR3k1NU1lbWNEbVBXT2NuOU1ML1ZrRGNXd2t5MjVOZVFNOENTVCt3K2p5eWVXejQzOHkxRllhQW0zODhyQnc1S05iRWdUVVVUd1g0RTZzai9aUytvY2lGd0ZrS2R3TnpNVjUzUGVVV1lMOUgyL0E2ZE5Tb3FsT1NHZUFucys3Z3c4ODNaaTJvU2ZmQWtQOHRVOEYxUlNlNThiNVhYbHRiaWNRRk5rd3Y4OFVaZHphMnBJWHA1VjJ6TmZJdmZLWlJFSXh2RDNuWjV2K1plOVF3K1VTMnBHbUptWDFJZFVCMmZXV1BLTGIvVERMcmk5eGo5bXVMQVo5WUNCeVYzL09NRXY3MVFUVWpmc25yQVdKV0pYakRKVW5RbmNLZXBVZE43YUJDdnBhTWZ2WTdRRjBUeHJWaHdIUDVzVlBVWUQzVWlCY3ppS0N2TXh2a1dJQ3hPUnVkU0xKT2haNDYrOEMyQVJ0R2tlbTZpYTBjS0xZM1d2cHhDaksyNnVDVk5SOEFNMGlCZ0Jta1FNSU0wQ0poQkdnVE1JQTM2UHpiNk1UM0pJbDBYQUFBQUFFbEZUa1N1UW1DQ1wiIC8+XG5cbjwhLS0gcm5iLXBsb3QtZW5kIC0tPlxuIn0= -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAADHCAMAAACELW/aAAABtlBMVEUAAAAAADoAAGYAOpAAZrYAZv8zMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjshmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj//7b//8j//9v//+T///8/UitjAAAACXBIWXMAAAuwAAALsAEaOBByAAAP0klEQVR4nO2djZ8bRRnHcy9aUfT2DsKVYjEVykkiWCkWcoKVir0DrLSlTZSq3ItWBUsOUW5bRUu4I+Vicpn/2GdedrPZbO6ym+zszPL7ffppNrPzzDO7882zs5s8NwUGQamrkHUHoK+CgBmkQcAM0iBgBmmQiZh9HcqRxJAaiVlU4V7sZuJbaHGSF4sxTYBZNk7yYgHMkloYOqBmWgCzpBaGDqiZFvnEDLJTwAzSIGAGaRAwgzTIMsy+BpmuIwYTmEHT0hGDCcygaemIwQRm0LR0xGCmh1n7+zVvs1Wm/7rPNQJ7uxWn2AxVG+xZSFmfQ+hYRWKQNmZf/ristnrr5dC+7nnWPdcMVQv1LKSszyF0rCIxSBuzv7QoXLkvOC841dYzZ5YaxFW3slhrv1hZarScsoeZqMZ3sE3nmXfkr4D29sQXGXvB16zPIXSs9qLGLWXMuu/TVbJbWW4tty8QSa2yW2zerbWeXV9qbNX+teJFM1GN0Y4yXVndqjBFNLNTkRykjFnLcZwqa1VbZcKszNorvSvNTcch6Aiqto+ZrMZ3bNWAmd2K5CBlzD5tstZyHzO3TJjdo5uAIGa0LavxHS6imeWK5CBVzHrrIkY9+nzxLcdZ+jMFK4pbVbq9XN5culNZ7lZ+UKEwtnhTVivepx200wFmNks/ZsmEaGa1IsfUPMzadD/KX4GZnYocVPMw84RfaORIwAzSIGAGaZBlmBmURQGLGCbALBsnebEAZkktDB1QMy2AWVILQwfUTIt8YgbZKWAGaRAwgzQImEEaZBlmBs1qYRHDxDLMsv5eGAoLmEEaBMwgDQJmkAbFGUxgBiVUnMGcJmYik9x1lhoylbxbKf7pRjC5vLfOf/9/g+dk0vZSI2DF//dSAYCZHRoPihSimUiK41lKIpXcrRJbA8nl/M2DWveNZcb+96PGgBVPRG9JIoGZHRqPiTQxE6nkgprB5PJzzQc11n37uQb79FcNl2c2Fd8q9zFbZsg6t0d7kVnm4dcUMZOp5KzllAeTy+nKSBfM7rXNau+v27xCtXvuuhfNKs6yagbRzApldqcpgCF+Wt48y60OJJeraHatffa/f9tuEFhV/seCvGjWPtsM9iykrE8qFFZmmPXeqAlovIxzgmgguVy8Wele673xk+Z2Y7vRqrZXtmqyCl003XKwZyFlfVKhsLJ7btY+Q1dFlXFe/PdTztKdYHL5o8/TG+clCmKtMt2Q/tqhkpfXHzkj7z+dcm99sdbvWUhZn1QorPGQwHMzaCLFGUxrMIPsFDCDNMgyzAz6CRUsYpgAs2yc5MUCmCW1MHRAzbQAZkktDB1QMy3yiRlkp4AZpEHADNIgYAZpkGWYGTSrhUUME2CWjZO8WCTFbL+wcHBiIb67qQuY2WCRELPO6c4l1jm1Ed/ftKXnFxpRTswcUDMtEmJ2+Bphtj+3G9/ftJUdZtDUFXHRLBRmDQhmwCxPir4F+LsBnAGzHGkAs87JgtS0w1lEivBNkRU8tPR0uGchATM7NRjNbqk52dSj2YgU4QchzLrnwz0LSQtmZk62zbQw67lZdIowUba5WNss3g8sS90+89j7GtOBo9JXPz8+vTX0uhezPh+dePUZ+zxmfT3H4ZvFTAfmF87546iJragUYZkVzGELLkt9t/al/IMHiGY2WCR9oLG6QHebU388G50izK+ZW7XbA8tS+3+9BZjZYJH08ewTfHo29bnZqBThFdZ++h0WXJb6XoP+6/csJC2YQVPX0EXzozX677dTf6AxlCL8Ib/T5JFtW/xVDW9Z6vJ/KloXoZ72cUKRin6gYex3msDMTkU+0Dh4MqPeBIXfm+VIQxfNehqPZ5MIv9CwwSLxLzQOX2OdS/HdTV3AzAaLpJhdYvulw1cQzWAxTZOhi+bO7EY9heez8QXMbLCY6MsmY3+hAdmpwQcapzbkMw1jbwEgOzUUzW6l8i1AAgGzHGnoFsCENAAhYJYjDUUz8T2TsdHMoFktLGKYDEUzs+dmBp05WMQwsWxuZtCZg0UMk8gHGuZ+p2nQmYNFDBPLvtPEbzPslGXfaQIzO2XZd5rAzE5Z9p0mMLNT00ygG5n0e4Ov2bTcPlNsMpf/NFusA5z16sCjj8PMybaZFlnkaY5M+u292eitV3vrZb5bLWmY9erAow/DzAE10yIJZp3T8d0ENTLplzBjbrn39nq1j1nWqwNnm0b7VU4H7pyc7FHGyKRfFc2udn9Y8zHLenXg0YdhZtww0yJRNLskvmxKnNc0Mum3R1O0Zda7ytpnb/uYZbw6cNKDhBIoam62kzSmjUz65RdNxjFj7lJDrQOc9erAiY4QSqZwNGOHqxN8CTAi6felCr/9pHIiaFsuFXwj89WBEx4ilETD6cClDHsTFDDLkcI/0s6wKyHhq3MbLMz6+2YJBMxssABmSS0MHVAzLYBZUgtDB9RMi3xiBtkpYAZpEDCDNAiYQRpkGWYGzWphEcMEmGXjJC8WwCyphaEDaqYFMEtqYeiAmmmRT8wgO2UZZvh9hZ0CZpAGATNIg3KPGW4BUrXQcwsQkQF8QyT2kniJyO8tfiayfl3+A2xvSeBJ04HH7iEwS9VC053miAxgLlHSPc96V5o85aS9wrYCSwJPmA48dgeBWaoWujEbyAAWu0RJ9zzPZxLpwCrR6UGtJ9J/J0sHnnK66sAr0oFj2CVIB06gqAxgiZkskfm9HLO7NZ4gp5YEvj5pOnDiDkNZaCqYDWUA8w1ZEhXNmEj/nSwdOHGHoSw0KWajMoAvqBK6CjKJmT83a6+I9N/J0oETdxjKQhM/0BjKAJbpvjdlySNneAow39Wk/+SdpvPyukj/nSgdOHmHoQyE52bTMPnqWuTzq3NgZphFPjEz6MzBIoYJMMvGSV4s8okZZKeAGaRBwAzSIGAGaZBlmBk0q4VFDBNglo2TvFgAs6QWhg6omRbALKmFoQNqpkU+MYPsFDCDNMgyzPArIDsFzCANyj1muAVI1SKftwDAzDCLyTGLSPWtbfJlfgdriK2tmyrRt+UsfXC9n+rrpwQvhxoXTQYbcnhO1HONfhkws8FiCtFsONX35pX75z67GqrBBDQy0bd9ttmtlPupvsJSrqY52LbYEWjoPJOr1IV7FhIwM8ximpj1U31FWW+dglj7xcqSWhqT3i/WZGrcXZlRrlJ9laVaG5is7leKf3TKLoU5sWNzsbZJZRTrJGbUhmj2uHTg2GmueM34dRzMAqm+osytMvdZuiRuqb9j4JZ5apxI9N0WEclP9ZWWMppxq3KrTFW673u5whzNVt/aFX9tY0teTnGnmSMdi9lgqq8oIw7aK+0LFLokZls1uUnRTCLipfoqS7k2sLDqvXnn9oV7fpNbtdtNkV3Ho9l6tXelKZoN9CwkYGanjsIsItVXRjN6U/Yxa1+gaOYW78tE37NNnhCsUn2VpZx1CSvmnv1wnYKi3MHaT7/D2xVzM7YJzHKrIx9oDKX6NnhOr5ybbS7dqTwmMn/5Fc95WST6VnmYWu6qlX8Xn/JSgvl0S1hRoKPLsNdkk8dKcuKIhorNllPlzS4HehYSbgEMs7DmudmXDbEI+pCAmQ0W1mDmqj+sFxYws8HCGsxGCb83s8Ein5hBdgqYQRoEzCANAmaQBlmGmUGzWljEMAFm2TjJiwUwS2ph6ICaaQHMkloYOqBmWtiPGZQjiSE1EbNIabn91OEkLz5iOQFmup3kxUc+MYNsFjCDNAiYQRoEzCANsgEzV6z+5L2k6qRbSdOJdwTtlfR9pHq2ZOPyx/djyQLMxAJ2/ku6Tu41BvLfU/FBLIcz8afvw03zI+mNyAWe8TaWLMBMLMfpv6TrhLEUWfZ8bH+QXjRTPigqL6X2cfGcEG3bYzqxADOxuLD/kq4T0u0xrwOJffBVRNNy0feRZjzzTlbLGTOY2YCZ3mjWGvfMJfUhVhZN7aqpjoOOIsXPpHLSuzr2DMMCzHTOzUSqcto+0rwF6J+sFD8vygmhNq4TCzATichuVbyk7cT1/ppDij7SvdNUPtz0AqbvhOLyuBNAGzCDrBcwgzQImEEaBMwgDQJmkAYBM0iDcoXZTqGw8NFaqPDwp2udx0WhehlQVJlfePDw7qgqx2vYLGFDoiffPr7KQxuxehNLv5nIOl+Y1ed22c5M+ITUZckQfgN7I9U5Obd7TJWQfCcjvI1lGyHJ+5E6XJ09CrMJNSGlecLs4Bv8VOyXQsUUzfjLiM+j2juiRTG6R1YZlO8kwaf/CJPDV8YgqHMqRcxY54ljQT9KOcJsZ06dCX7tpLP+uwIV7BcKM/yiSa8l/pEM7OucLMxuCIYOVwvzFA3+wAs6py7O/PLxNbHz4OFXC/MCs3pBNM4NyV685RV/8fC7hbmPC3OfnJzdoKAnnHDDCG9MhIQDZbDrtaRqXJz5uWerqu/Qpud2f54jryyl80BNccTeu8AOOirarvu++/3o1/GdFRbkEZ/wzkK4E/XwxzeWcogZxaCDE98jcviwPrRBQY4I+CdnZWYtuG9ngQCSoYpHgi9EweVVGnaqKHYenCgdrpZoY5/KFiSOjAr52+9QRXpPozPPZ3+nOLDciTCM8Mb41feyZ3BZteTVWGCe7WVZnciqLyi3VM76rkRhoCYTGNb5XnVQasfOfL/n0req3q+jykQvSvSPX7pHdGJnYZKxySFm/ITQWRcDzwdIsMRxku/9fXzoSuqKSCfy1q4o4MR5O/lFU2BDn3bCQl2YdhbEW74tGyIU1YYKjaUob/JmJGAgWvJqMN9WVhHBw3PLa/mWsrBfk6lIEzgoubk/H+i575sfbb+Of5b4GaAT2Dk9qhPATEnOzQ5e3xEnZQRmgX379AH3MDt46PevM1Gghlxs9zFTVwwPDjWsUZj5rYa8sWjMvBrMtw2OsHI7iBkvDNRkA5gFdojY6zURxCxQR52leRUxSx+N7AQw88TvNGmqSrj5J3CfZl+rs+/5mAX31dUV0bcVBWrIxTZhRpcOERgY/5yLGy55MemcDmPWOcn9ML/VkDcWwky25NeQM8CST+w+jyyeWz438y1FYaAm388rBw5KNbEgTUUTwX4E6sj/ZS+ociFwFkKdwNzMV53PeUWYL9H2/A6dNSoqlOSGeAns+7gw883Zi2oSffAkP8tU8F1RSe58b5XXltbicQFNkwv88UZdza2pIXp5V2zNfIvfKZREIxvD3nZ5v+Ze9Qw+US2pGmJmX1IdUB2fWWPKLb/TDLri9xj9muLAZ9YCByV3/OMEv71QTUjfsnrAWJWJXjDJUnQncKepUdN7aBCvpaMfvY7QF0TxrVhwHP5sVPUYD3UiBcziKCvMxvkWICxORudSLJOhZ46+8C2ARtGkem6ia0cKLY3WvpxCjK26uCVNR8AM0iBgBmkQMIM0CJhBGgTMIA36Pzb6MT3JIl0XAAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrRmljMVpoY25ORGIyNVFaWEp0YVcxd01YQmpMbk4yWjF3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pNDJMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjSW5OMloxd2lLU2xjYmlBZ2RXNXNhVzVyS0Z3aVVIUnpRVUprUVc1dWIzbE5ia0ZpYzFaaGNuTkRiMjVRWlhKdGFXMXdNWEJqTG5OMloxd2lLVnh1SUNCY2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWd2lVSFJ6UVVKa1FXNXViM2xOYmtGaWMxWmhjbk5EYjI1UVpYSnRhVzF3TVhCakxuQmtabHdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWk0MkxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNJbkJrWmx3aUtTbGNiaUFnZFc1c2FXNXJLRndpVUhSelFVSmtRVzV1YjNsTmJrRmljMVpoY25ORGIyNVFaWEp0YVcxd01YQmpMbkJrWmx3aUtWeHVmVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXAxcGMuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjYsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXAxcGMuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXAxcGMucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjYsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXAxcGMucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAbsVarsConPermimp1pc.svg\, width=8, height=2.6, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAbsVarsConPermimp1pc.svg\)
ggsave(filename=\PtsABdAnnoyMnAbsVarsConPermimp1pc.pdf\, width=8, height=2.6, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAbsVarsConPermimp1pc.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtGaWMxWmhjbk5EYjI1UVpYSnRhVzF3TVhCakxuTjJaMXhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWk0MkxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNYSE4yWjF4Y0tTbGNiaUFnZFc1c2FXNXJLRnhjVUhSelFVSmtRVzV1YjNsTmJrRmljMVpoY25ORGIyNVFaWEp0YVcxd01YQmpMbk4yWjF4Y0tWeHVJQ0JjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ4Y1VIUnpRVUprUVc1dWIzbE5ia0ZpYzFaaGNuTkRiMjVRWlhKdGFXMXdNWEJqTG5Ca1pseGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNaTQyTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY1hIQmtabHhjS1NsY2JpQWdkVzVzYVc1cktGeGNVSFJ6UVVKa1FXNXViM2xOYmtGaWMxWmhjbk5EYjI1UVpYSnRhVzF3TVhCakxuQmtabHhjS1Z4dWZWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXAxcGMuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjYsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXAxcGMuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXAxcGMucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjYsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzVmFyc0NvblBlcm1pbXAxcGMucGRmXFwpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFic1ZhcnNDb25QZXJtaW1wMXBjLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi42LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFic1ZhcnNDb25QZXJtaW1wMXBjLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFic1ZhcnNDb25QZXJtaW1wMXBjLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi42LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFic1ZhcnNDb25QZXJtaW1wMXBjLnBkZlxcKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAbsVarsConPermimp1pc.svg\, width=8, height=2.6, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAbsVarsConPermimp1pc.svg\)
ggsave(filename=\PtsABdAnnoyMnAbsVarsConPermimp1pc.pdf\, width=8, height=2.6, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAbsVarsConPermimp1pc.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVoWW5OV1lYSWdQQzBnWENKVlFWTk1RVVZOWVhoTVVsd2lYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuYWJzVmFyIDwtIFxcVUFTTEFFTWF4TFJcXFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
absVar <- \UASLAEMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWhZbk5XWVhJZ1BDMGdYRnhWUVZOTVFVVk5ZWGhNVWx4Y1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbmFic1ZhciA8LSBcXFVBU0xBRU1heExSXFxcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5hYnNWYXIgPC0gXFxVQVNMQUVNYXhMUlxcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
absVar <- \UASLAEMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
### SQM analysis
#### Replace ambient only stimuli
The ambient-only stimuli are NOT replaced here, as the analysis cannot handle missing values for dB metrics.
#### Individual SQMs
##### Sharpness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dGaWMxWmhjaXdnWlhabGJuUldZWElzSUdGdFlsWmhjaXdnWENKVlFWTlRhR0Z5Y0VGMWNrbFRUek5RYjNkQmRtZE5ZWGhNVWx3aUxDQmNJbFZCVTFOb1lYSndRWFZ5U1ZOUE16QTFSWGhOWVhoTVVsd2lMQ0JjSWxWQlUxTm9ZWEp3UVhWeVUwaE5VRzkzUVhablRXRjRURkpjSWl3Z1hDSlZRVk5UYUdGeWNFRjFjbE5JVFRBMVJYaE5ZWGhNVWx3aUxDQmNJbFZCVTFOb1lYSndRWFZ5U1ZOUE1WQnZkMEYyWjAxaGVFeFNYQ0lzSUZ3aVZVRlRVMmhoY25CQmRYSkpVMDh4TURWRmVFMWhlRXhTWENJc0lGd2lWVUZUVTJoaGNuQjJRa2xUVHpGUWIzZEJkbWROWVhoTVVsd2lMQ0JjSWxWQlUxTm9ZWEp3ZGtKSlUwOHhNRFZGZUUxaGVFeFNYQ0lzSUZ3aVZVRlRVMmhoY25CRVNVNVFiM2RCZG1kTllYaE1VbHdpTENCY0lsVkJVMU5vWVhKd1JFbE9NRFZGZUUxaGVFeFNYQ0lwWEc1a1ZtRnlJRHd0SUZ3aVpFRnVibTk1VFdWaGJsd2lYRzVjYm5ObFpXUnpJRHd0SUdNb056QTBNU3dnT1RBMUxDQTBPVGcwTmpVeExDQTJOVEV6TWpFekxDQXhNakEyTlRFcFhHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNTaGFycEF1cklTTzNQb3dBdmdNYXhMUlxcLCBcXFVBU1NoYXJwQXVySVNPMzA1RXhNYXhMUlxcLCBcXFVBU1NoYXJwQXVyU0hNUG93QXZnTWF4TFJcXCwgXFxVQVNTaGFycEF1clNITTA1RXhNYXhMUlxcLCBcXFVBU1NoYXJwQXVySVNPMVBvd0F2Z01heExSXFwsIFxcVUFTU2hhcnBBdXJJU08xMDVFeE1heExSXFwsIFxcVUFTU2hhcnB2QklTTzFQb3dBdmdNYXhMUlxcLCBcXFVBU1NoYXJwdkJJU08xMDVFeE1heExSXFwsIFxcVUFTU2hhcnBESU5Qb3dBdmdNYXhMUlxcLCBcXFVBU1NoYXJwRElOMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoNzA0MSwgOTA1LCA0OTg0NjUxLCA2NTEzMjEzLCAxMjA2NTEpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
iVars <- c(absVar, eventVar, ambVar, \UASSharpAurISO3PowAvgMaxLR\, \UASSharpAurISO305ExMaxLR\, \UASSharpAurSHMPowAvgMaxLR\, \UASSharpAurSHM05ExMaxLR\, \UASSharpAurISO1PowAvgMaxLR\, \UASSharpAurISO105ExMaxLR\, \UASSharpvBISO1PowAvgMaxLR\, \UASSharpvBISO105ExMaxLR\, \UASSharpDINPowAvgMaxLR\, \UASSharpDIN05ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(7041, 905, 4984651, 6513213, 120651)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR0ZpYzFaaGNpd2daWFpsYm5SV1lYSXNJR0Z0WWxaaGNpd2dYRnhWUVZOVGFHRnljRUYxY2tsVFR6TlFiM2RCZG1kTllYaE1VbHhjTENCY1hGVkJVMU5vWVhKd1FYVnlTVk5QTXpBMVJYaE5ZWGhNVWx4Y0xDQmNYRlZCVTFOb1lYSndRWFZ5VTBoTlVHOTNRWFpuVFdGNFRGSmNYQ3dnWEZ4VlFWTlRhR0Z5Y0VGMWNsTklUVEExUlhoTllYaE1VbHhjTENCY1hGVkJVMU5vWVhKd1FYVnlTVk5QTVZCdmQwRjJaMDFoZUV4U1hGd3NJRnhjVlVGVFUyaGhjbkJCZFhKSlUwOHhNRFZGZUUxaGVFeFNYRndzSUZ4Y1ZVRlRVMmhoY25CMlFrbFRUekZRYjNkQmRtZE5ZWGhNVWx4Y0xDQmNYRlZCVTFOb1lYSndka0pKVTA4eE1EVkZlRTFoZUV4U1hGd3NJRnhjVlVGVFUyaGhjbkJFU1U1UWIzZEJkbWROWVhoTVVseGNMQ0JjWEZWQlUxTm9ZWEp3UkVsT01EVkZlRTFoZUV4U1hGd3BYRzVrVm1GeUlEd3RJRnhjWkVGdWJtOTVUV1ZoYmx4Y1hHNWNibk5sWldSeklEd3RJR01vTnpBME1Td2dPVEExTENBME9UZzBOalV4TENBMk5URXpNakV6TENBeE1qQTJOVEVwWEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxuaVZhcnMgPC0gYyhhYnNWYXIsIGV2ZW50VmFyLCBhbWJWYXIsIFxcVUFTU2hhcnBBdXJJU08zUG93QXZnTWF4TFJcXCwgXFxVQVNTaGFycEF1cklTTzMwNUV4TWF4TFJcXCwgXFxVQVNTaGFycEF1clNITVBvd0F2Z01heExSXFwsIFxcVUFTU2hhcnBBdXJTSE0wNUV4TWF4TFJcXCwgXFxVQVNTaGFycEF1cklTTzFQb3dBdmdNYXhMUlxcLCBcXFVBU1NoYXJwQXVySVNPMTA1RXhNYXhMUlxcLCBcXFVBU1NoYXJwdkJJU08xUG93QXZnTWF4TFJcXCwgXFxVQVNTaGFycHZCSVNPMTA1RXhNYXhMUlxcLCBcXFVBU1NoYXJwRElOUG93QXZnTWF4TFJcXCwgXFxVQVNTaGFycERJTjA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDcwNDEsIDkwNSwgNDk4NDY1MSwgNjUxMzIxMywgMTIwNjUxKVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNTaGFycEF1cklTTzNQb3dBdmdNYXhMUlxcLCBcXFVBU1NoYXJwQXVySVNPMzA1RXhNYXhMUlxcLCBcXFVBU1NoYXJwQXVyU0hNUG93QXZnTWF4TFJcXCwgXFxVQVNTaGFycEF1clNITTA1RXhNYXhMUlxcLCBcXFVBU1NoYXJwQXVySVNPMVBvd0F2Z01heExSXFwsIFxcVUFTU2hhcnBBdXJJU08xMDVFeE1heExSXFwsIFxcVUFTU2hhcnB2QklTTzFQb3dBdmdNYXhMUlxcLCBcXFVBU1NoYXJwdkJJU08xMDVFeE1heExSXFwsIFxcVUFTU2hhcnBESU5Qb3dBdmdNYXhMUlxcLCBcXFVBU1NoYXJwRElOMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoNzA0MSwgOTA1LCA0OTg0NjUxLCA2NTEzMjEzLCAxMjA2NTEpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
iVars <- c(absVar, eventVar, ambVar, \UASSharpAurISO3PowAvgMaxLR\, \UASSharpAurISO305ExMaxLR\, \UASSharpAurSHMPowAvgMaxLR\, \UASSharpAurSHM05ExMaxLR\, \UASSharpAurISO1PowAvgMaxLR\, \UASSharpAurISO105ExMaxLR\, \UASSharpvBISO1PowAvgMaxLR\, \UASSharpvBISO105ExMaxLR\, \UASSharpDINPowAvgMaxLR\, \UASSharpDIN05ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(7041, 905, 4984651, 6513213, 120651)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbnAgPC0gbXRyeVR1bmUoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkPXNlZWRzWzE6Ml0sXG4gICAgICAgICAgICAgbnRyZWVzPW50cmVlcywgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuYGBgXG5gYGAifQ== -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOeXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk55RERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlluWXJNbmgyTjB4MkwyTmxPWEU1UmpsSWFEQXZaMkppZGpWRFpGQm1Na1ExTTFnM1dqZGxiamhITVdjdmJXSXZlRTV6TVRVcmNpdG1MMXBRVUhFeFVuTTFjV1ppWmpock4xQmFOM00zZG5oalVETlFLekpaZFRGbVoyaGFVQ3Q1WlZaWVZrdFVSVFVyTVdSbVRrMDJaVXRUZFhwbWVqRjRUSFZsVEhSRWNqZE9NRFJPUmxvM2JsaGxlR1l6THpKUmJHTTRXVmxRT1Radk0wUlNkSFE0WTJOUU1IWkJOMWxrVUVKaWNsbG1MM05TWkZjd2FGbDJUekpFT1hoeFp6bHdiaTl5U1M5eVJ6UXdZemRUYXpjek1rUTVZamxhZWpSa01FZFVMMDFIUzFoNVNYcFVNQ3QzWm5WUWVqWk5NSFpqUkV0cFdFWTJVV1pwU201QlVHZG1Oa1pQYjNaclFtcEpaa00yV1VoUk5tbEVSMFJuZDBGUGJESmhRVEJGTkZNeUwzZFBiR1l3UkhCTWQzaFJaMEpLTkhKSWJVcDFZVzVHVVVsWlFUSkRTMGxKUlhWUllqZEJjbXhOTUZKV1JuaFpiV3hwVlcxblRHeE5MM00yZDNGU1dXTnJkVXRMY1VaemNuTjVkM2hMVEdsbFRFRkpjV2N5WTFKbWJteGxha0ppVVU0MWFtRnZRelJuZUROa1MyTnJOV2xqVlhkd09FRkZkVlpKVTFONFRERXdiM0ZCSzI5SE9HWXlhR0V5VUUxTVUycE1lamcwUTJGdFJVRktaMEpOWVZGSmVGRnFSM2RSV1hoRk1EVkNaMlJPUjBGb1FXVlZUSGRRYmtsSFoxSkxPREJEZFZSMFJrNTZhV3BPZVRsWk1VNXJTMVJhZVRkSlV6QmxlV3AzU0hGUE1GcHZXazFJV1hKQ1FXNU5MekpJWVhWbFJVSldOWEZqYTFrcmJFMHlWMjF3WldWdFdtTkxRemRETUhwSVV6azRjM2xWYTJkNFdVZEpRVVZOYkVsNk1IcE9TMWxGUjFack5XbFZiV2RPZWxORmNIRkhXbFJLUW5kNGNtTkdSSEpHVWxKc05YTkdWV04zUmtacEwxWkxPR3R6VTFsV2NUUnJkazU2V1VOTVoxVkhXRFJDZDBSbE4wbEJWR05SVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjkyMTQxNzJcXCxcXDJcXDpcXDAuNzM2MTU3MlxcLFxcM1xcOlxcMC43OTExMDI4XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDAuODQ2MjEzNFxcLFxcMlxcOlxcMC43OTczMjI1XFwsXFwzXFw6XFwwLjcxNTg3ODhcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43NTM2MTQyXFwsXFwyXFw6XFwwLjg0MjMwNDZcXCxcXDNcXDpcXDAuNjMzMTE3NFxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjcxNDMwNDBcXCxcXDJcXDpcXDAuODYxNTI1MVxcLFxcM1xcOlxcMC41OTY1ODE4XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNjM0MTg4NFxcLFxcMlxcOlxcMC44ODMxMTc5XFwsXFwzXFw6XFwwLjUyMTM2MThcXCxcXDRcXDpcXDdcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42NTQ2MjMxXFwsXFwyXFw6XFwwLjg3MDg0MjJcXCxcXDNcXDpcXDAuNTQyMDgwOVxcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjYzNTYwMjlcXCxcXDJcXDpcXDAuODY1MzY1N1xcLFxcM1xcOlxcMC41MDg0MjA1XFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzddfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cblxuPCEtLSBybmItZnJhbWUtYmVnaW4gZXlKdFpYUmhaR0YwWVNJNmV5SmpiR0Z6YzJWeklqcGJJbVJoZEdFdVpuSmhiV1VpWFN3aWJuSnZkeUk2Tnl3aWJtTnZiQ0k2TlN3aWMzVnRiV0Z5ZVNJNmV5SkVaWE5qY21sd2RHbHZiaUk2V3lKa1ppQmJOeUREbHlBMVhTSmRmWDBzSW5Ka1ppSTZJa2cwYzBsQlFVRkJRVUZCUVVKbmRIbHBWRVJ0YVhWQ2FWbEhRbWRhYlVKb1dWZEtaMXBuVlhsSFZtaEVVVGw0TUV4U1oxbG5RVWxOUkVsM1RVeEJlV05KVEc5RGNVVm5XVXBCZGtWbVJVUk5Zbll2TWk5aWJuWmllVGhLTW1Jdk5rMVRMeXN5TmxScU9YTTRkaTgwYjFJeE1XaG5MM2w0VjBsaFkyZzRjSEk1YXpFeEwzWjJTbmRoVG1zdlQxaEJlVFJtY2tkQmRuTnVVMlV2VnpOUFp5OUNPV1l2TTBSV1ZrdFZhSGRuWmpOTWNIWjNNVGxwVjJJM1JqaHllV293SzJRd04wTXZkbFphTldScVZqaFdMM016TUdwdGNsUXdaR1pqWmlzNVpuTklVSFowWlVkMGJTOVlja3R1YzJaeWMxUmlhaXRzTVhWMGRVRXJUR3hPWnk5bE5qUmxLMDlMTVhGMk0yb3plV1owUm1zNUsxcFFPVzlyVldGeWNtNURTaTlWVHpGUVQwZE9OeXN5UVU1UFprNW1OMVoyTjBJNFJYTlFkM2hQUmxWRk1VMXpUREJuTDBWVVIwTm1RVE13U3psU1pFbHFRVTlKZFZkQ01rOUpaM2xuU1VWRVJEVlNiV2M1U2sxRlRuSXJSRFZVSzBGaFZ5OU5SVUZDVTNWRGVEVnBXRzF3YUZsRVIxRktaMmw1UTBOTVJVY3JkMkUxVVU1clpGRmpWMFp3V1d4R2NVTndWRkEzVDNOSmF6Sk1Ta3hUYlhGb1RFczFUWE5OVTJrMGNtcDNVMHR2VG01QlZ6VmFabkozVjNkQ1pWa3JjRUZsU1U5a2JsTnVTazlqYTBaelQyTkJhRkJyVTJ0cmMxTmtVa3hMZDB4eFFpOU1LMjlYYkdoNmVUaHZlV042VUVFeWNHbEJhVlZCVkcxblFVMVZTWGh6YTBkTlVtUkRVVmt6VkZGblNWVkZiRU00UVRWNVRuSkZRMnBPUVRkck5sSlVZelZ2ZWxGMlZ6bG1XVU5GTW1WMVUwRjJTR05ySzBKeGFuWkhTMGRTUWxkUGVsRndlazA1UWl0eGJsSk5WMlZMYmtwSFpteFJUbXgwY1ZodWNHMVlhVzl6ZDA1SmVUQXZXRXROTVU1TFRXMUNhRUZDVEVsVFRURk5lbmxwUWtKV1ZrOVpiRXB4UkhOM2FFdGhiR3hWUTFsbVRVdDZRbEZoTVZoVlNsTmFRakZRVGtKU1VYUXhhWFpLVERCdFJXRmxSa3Q2Y3l0Q2FWbENSR3hsUldaQlF6RXdTQzh4ZUVGM1FVRWlmUT09IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjkzNTUyMzVcXCxcXDJcXDpcXDAuNzI3MjIxMVxcLFxcM1xcOlxcMC44MDMzNzI0XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDAuODQyODQ5MFxcLFxcMlxcOlxcMC43OTcxNzI0XFwsXFwzXFw6XFwwLjcxNTcxNzBcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43NDQ2MjYyXFwsXFwyXFw6XFwwLjg0Nzc5MzBcXCxcXDNcXDpcXDAuNjI0NDg1NlxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjY5ODg2ODBcXCxcXDJcXDpcXDAuODY4NzkxM1xcLFxcM1xcOlxcMC41ODIyOTQ3XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNjQ3ODI1N1xcLFxcMlxcOlxcMC44NzgxMDQ1XFwsXFwzXFw6XFwwLjUzNTk0MTJcXCxcXDRcXDpcXDdcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42NDg1MzM1XFwsXFwyXFw6XFwwLjg3MzAzMThcXCxcXDNcXDpcXDAuNTM1ODkzNFxcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjYzNzA3NjdcXCxcXDJcXDpcXDAuODYzODU5NFxcLFxcM1xcOlxcMC41MDk3NjgwXFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzddfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NywibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNyDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNYnYrMnh2N0x2L2NlOXE5RjlIaDAvZ2JidjVDZFBmMkQ1M1g3WjdlbjhHMWcvbWIveE5zMTUrcitmL1pQUHExUnM1cWZiZjhrN1BaN3M3dnhjUDNQKzJZdTFmZ2haUCt5ZVZYVktURTUrMWRmTk02ZUtTdXpmejF4THVlTHREcjdOMDRORlo3blhleGYzLzJRbGM4WVlQOTZvM0RSdHQ4Y2NQMHZBN1lkUEJicllmL3NSZFcwaFl2TzJEOXhxZzlwbi9ySS9yRzQwYzdTazczMkQ5YjlaejRkMEdUL01HS1h5SXpUMCt3ZnVQejZNMHZjREtpWEY2UWZpSm5BUGdmNkZPb3ZrQmpJZkM2WUhRNmlER0Rnd0FPbDJhQTBFNFMyL3dPbGYwRHBMd3hRZ0JKNHJIbUp1YW5GUUlZQTJDS0lJRXVRYjdBcmxNMFJWRnhZbWxpVW1nTGxNL3M2d3FSWWNrdUtLcUZzcnN5d3hLTGllTEFJcWcyY1JmbmxlakJiUU41amFvQzRneDNkS2NrNWljVXdwOEFFdVZJU1N4TDEwb3FBK29HOGYyaGEyUE1MU2pMejg0Q2FtRUFKZ0JNYVFJeFFqR3dRWXhFMDVCZ2ROR0FoQWVVTHdQbklHZ1JLODBDdVR0Rk56aWpOeTlZMU5rS1RaeTdJUzBleWp3SHFPMFpvWk1IWXJCQW5NLzJIYXVlRUJWNXFja1krbE0yV21wZWVtWmNLQzdDMHpIUzk4c3lVa2d4WUdJQUVNbEl6MHpOS1lFR1ZrNWlVbWdOelNFcHFHWlRKQnd4cmNGRHJGUlJsNXNGVWN3RkZpL1ZLOGtzU1lWcTRrdk56WUNMZ1VHWDRCd0RlN0lBVGNRTUFBQT09In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9214172\,\2\:\0.7361572\,\3\:\0.7911028\,\4\:\2\,\5\:\5.25\},{\1\:\0.8462134\,\2\:\0.7973225\,\3\:\0.7158788\,\4\:\3\,\5\:\3.50\},{\1\:\0.7536142\,\2\:\0.8423046\,\3\:\0.6331174\,\4\:\4\,\5\:\2.75\},{\1\:\0.7143040\,\2\:\0.8615251\,\3\:\0.5965818\,\4\:\5\,\5\:\2.25\},{\1\:\0.6341884\,\2\:\0.8831179\,\3\:\0.5213618\,\4\:\7\,\5\:\1.75\},{\1\:\0.6546231\,\2\:\0.8708422\,\3\:\0.5420809\,\4\:\8\,\5\:\1.50\},{\1\:\0.6356029\,\2\:\0.8653657\,\3\:\0.5084205\,\4\:\10\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[7]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NywibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNyDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNYnYvMi9ibnZieThKMmIvNk1TLysyNlRqOXM4di80b1IxMWhnL3l4V0lhY2g4cHI5azExL3Z2SndhTmsvT1hBeTRmckdBdnNuU2UvVzNPZy9COWYvM0RWVktVaHdnZjNMcHZ3MTlpV2I3RjhyeWowK2QwN0MvdlZaNWRqVjhWL3MzMGptclQwZGZjZis5ZnNIUHZ0ZUd0bS9Ycktuc2Zyc1RiaitsMXV0dUErTGxOZy9lNjRlK09LMXF2M2ozeWZ0Rms5K1pQOW9rVWFycm5DSi9VTzFQT0dONysyQU5PZk5mN1Z2N0I4RXNQd3hPRlVFMU1zTDBnL0VUR0NmQTMwSzlSZElqQU9JdVdCMk9JZ3lnSUVERDVSbWc5Sk1FTnIrRDVUK0FhVy9NRUFCU3VDeDVpWG1waFlER1FKZ2l5Q0NMRUcrd2E1UU5rZFFjV0ZwWWxGcUNwVFA3T3NJazJMSkxTbXFoTEs1TXNNU2k0cmp3U0tvTm5BVzVaZnJ3V3dCZVkrcEFlSU9kblNuSk9ja0ZzT2NBaFBrU2trc1NkUkxLd0xxQi9MK29XbGh6eThveWN6UEEycGlBaVVBVG1nQU1VSXhza0dNUmRDUVkzVFFnSVVFbEM4QTV5TnJFQ2pOQTdrNlJUYzVvelF2VzlmWUNFMmV1U0F2SGNrK0JxanZHS0dSQldPelFwek05QitxblJNV2VLbkpHZmxRTmx0cVhucG1YaW9zd05JeTAvWEtNMU5LTW1CaEFCTElTTTFNenlpQkJWVk9ZbEpxRHN3aEthbGxVQ1lmTUt6QlFhMVhVSlNaQjFQTkJSUXQxaXZKTDBtRWFlRkt6cytCaVlCRGxlRWZBQzEwSC8xeEF3QUEifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9355235\,\2\:\0.7272211\,\3\:\0.8033724\,\4\:\2\,\5\:\5.25\},{\1\:\0.8428490\,\2\:\0.7971724\,\3\:\0.7157170\,\4\:\3\,\5\:\3.50\},{\1\:\0.7446262\,\2\:\0.8477930\,\3\:\0.6244856\,\4\:\4\,\5\:\2.75\},{\1\:\0.6988680\,\2\:\0.8687913\,\3\:\0.5822947\,\4\:\5\,\5\:\2.25\},{\1\:\0.6478257\,\2\:\0.8781045\,\3\:\0.5359412\,\4\:\7\,\5\:\1.75\},{\1\:\0.6485335\,\2\:\0.8730318\,\3\:\0.5358934\,\4\:\8\,\5\:\1.50\},{\1\:\0.6370767\,\2\:\0.8638594\,\3\:\0.5097680\,\4\:\10\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[7]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qY3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTnlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFpZGlzeWVIWTNUSFl2WTJVNWNUbEdPVWhvTUM5blltSjJOVU5rVUdZeVJEVXpXRGRhTjJWdU9FY3haeTl0WWk5NFRuTXhOU3R5SzJZdldsQlFjVEZTY3pWeFptSm1PR3MzVUZvM2N6ZDJlR05RTTFBck1sbDFNV1puYUZwUUszbGxWbGhXUzFSRk5Tc3haR1pPVFRabFMxTjFlbVo2TVhoTWRXVk1kRVJ5TjA0d05FNUdXamR1V0dWNFpqTXZNbEZzWXpoWldWQTVObTh6UkZKMGREaGpZMUF3ZGtFM1dXUlFRbUp5V1dZdmMxSmtWekJvV1haUE1rUTVlSEZuT1hCdUwzSkpMM0pITkRCak4xTnJOek15UkRsaU9WcDZOR1F3UjFRdlRVZExXSGxKZWxRd0szZG1kVkI2Tmswd2RtTkVTMmxZUmpaUlptbEtia0ZRWjJZMlJrOXZkbXRDYWtsbVF6WlpTRkUyYVVSSFJHZDNRVTlzTW1GQk1FVTBVekl2ZDA5c1pqQkVjRXgzZUZGblFrbzBja2h0U25WaGJrWlJTVmxCTWtOTFNVbEZkVkZpTjBGeWJFMHdVbFpHZUZsdGJHbFZiV2RNYkUwdmN6WjNjVkpaWTJ0MVMwdHhSbk55YzNsM2VFdE1hV1ZNUVVseFp6SmpVbVp1YkdWcVFtSlJUalZxWVc5RE5HZDRNMlJMWTJzMWFXTlZkM0E0UVVWMVZrbFRVM2hNTVRCdmNVRXJiMGM0WmpKb1lUSlFUVXhUYWt4Nk9EUkRZVzFGUVVwblFrMWhVVWw0VVdwSGQxRlplRVV3TlVKblpFNUhRV2hCWlZWTWQxQnVTVWRuVWtzNE1FTjFWSFJHVG5wcGFrNTVPVmt4VG10TFZGcDVOMGxUTUdWNWFuZEljVTh3V205YVRVaFpja0pCYmswdk1raGhkV1ZGUWxZMWNXTnJXU3RzVFRKWGJYQmxaVzFhWTB0RE4wTXdla2hUT1RoemVWVnJaM2haUjBsQlJVMXNTWG93ZWs1TFdVVkhWbXMxYVZWdFowNTZVMFZ3Y1VkYVZFcENkM2h5WTBaRWNrWlNVbXcxYzBaVlkzZEdSbWt2VmtzNGEzTlRXVlp4Tkd0MlRucFpRMHhuVlVkWU5FSjNSR1UzU1VGVVkxRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuOTIxNDE3MlwiLFwiMlwiOlwiMC43MzYxNTcyXCIsXCIzXCI6XCIwLjc5MTEwMjhcIixcIjRcIjpcIjJcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiMC44NDYyMTM0XCIsXCIyXCI6XCIwLjc5NzMyMjVcIixcIjNcIjpcIjAuNzE1ODc4OFwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjc1MzYxNDJcIixcIjJcIjpcIjAuODQyMzA0NlwiLFwiM1wiOlwiMC42MzMxMTc0XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNzE0MzA0MFwiLFwiMlwiOlwiMC44NjE1MjUxXCIsXCIzXCI6XCIwLjU5NjU4MThcIixcIjRcIjpcIjVcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC42MzQxODg0XCIsXCIyXCI6XCIwLjg4MzExNzlcIixcIjNcIjpcIjAuNTIxMzYxOFwiLFwiNFwiOlwiN1wiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjY1NDYyMzFcIixcIjJcIjpcIjAuODcwODQyMlwiLFwiM1wiOlwiMC41NDIwODA5XCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNjM1NjAyOVwiLFwiMlwiOlwiMC44NjUzNjU3XCIsXCIzXCI6XCIwLjUwODQyMDVcIixcIjRcIjpcIjEwXCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbN119LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjcsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNyDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1idisyeHY3THYvY2U5cTlGOUhoMC9nYmJ2NUNkUGYyRDUzWDdaN2VuOEcxZy9tYi94TnMxNStyK2YvWlBQcTFSczVxZmJmOGs3UFo3czd2eGNQM1ArMll1MWZnaFpQK3llVlhWS1RFNSsxZGZOTTZlS1N1emZ6MXhMdWVMdERyN04wNE5GWjduWGV4ZjMvMlFsYzhZWVA5Nm8zRFJ0dDhjY1AwdkE3WWRQQmJyWWYvc1JkVzBoWXZPMkQ5eHFnOXBuL3JJL3JHNDBjN1NrNzMyRDliOVp6NGQwR1QvTUdLWHlJelQwK3dmdVB6Nk0wdmNES2lYRjZRZmlKbkFQZ2Y2Rk9vdmtCaklmQzZZSFE2aURHRGd3QU9sMmFBMEU0UzIvd09sZjBEcEx3eFFnQko0ckhtSnVhbkZRSVlBMkNLSUlFdVFiN0FybE0wUlZGeFltbGlVbWdMbE0vczZ3cVJZY2t1S0txRnNyc3l3eEtMaWVMQUlxZzJjUmZubGVqQmJRTjVqYW9DNGd4M2RLY2s1aWNVd3A4QUV1VklTU3hMMTBvcUErb0c4ZjJoYTJQTUxTakx6ODRDYW1FQUpnQk1hUUl4UWpHd1FZeEUwNUJnZE5HQWhBZVVMd1BuSUdnUks4MEN1VHRGTnppak55OVkxTmtLVFp5N0lTMGV5andIcU8wWm9aTUhZckJBbk0vMkhhdWVFQlY1cWNrWStsTTJXbXBlZW1aY0tDN0MwekhTOThzeVVrZ3hZR0lBRU1sSXowek5LWUVHVms1aVVtZ056U0VwcUdaVEpCd3hyY0ZEckZSUmw1c0ZVY3dGRmkvVks4a3NTWVZxNGt2TnpZQ0xnVUdYNEJ3RGU3SUFUY1FNQUFBPT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9214172","2":"0.7361572","3":"0.7911028","4":"2","5":"5.25"},{"1":"0.8462134","2":"0.7973225","3":"0.7158788","4":"3","5":"3.50"},{"1":"0.7536142","2":"0.8423046","3":"0.6331174","4":"4","5":"2.75"},{"1":"0.7143040","2":"0.8615251","3":"0.5965818","4":"5","5":"2.25"},{"1":"0.6341884","2":"0.8831179","3":"0.5213618","4":"7","5":"1.75"},{"1":"0.6546231","2":"0.8708422","3":"0.5420809","4":"8","5":"1.50"},{"1":"0.6356029","2":"0.8653657","3":"0.5084205","4":"10","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[7]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOeXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk55RERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlluWXJUMVkyWmtsM1NDdGFMMkYxYkRVclZTdEdkaXQ2WmpNMGFsVmhVR3hSV1VRNWN6aFJMeXRWYzFCVVRFb3ZZMjAzUTNCdWJFcGhabHBRZEc5elpVVnZiSHAwV0N0VE5EZHlSekp1UlZSWVVEbDZlamc1T1UwMldtWnpiaXMxVHpRMlZsTlVWRWd2Y2xobGNXZGljbFptVUhOWU1pOXNia3hTY0ZoaE16bEhlalZRYUdKQ1JscDJZWFl6TURrMmNuVXllSGQyTnpGSVN6RnVOMDkxVjNkbVZ5OW1UbEptVEhKQkx6QjJOMXBPVGtWVGIxUXJjamRDTHk5WmFYWnZMMnBpU2k5MFNHbHdkWFZwTnk5MmMwZzFjRlZXU0RsaFpUZ3ZLMjloUW1OYU5sYzRkbVl5UkhOR1EyeFpOR3hXVVV3eU9FbFFNVUY2UVZReVQyUkRibFZJSzBKNFJHbEJiVUYwYldnMFRXOUJlR2MwT0VWQ2NFNXBhazVDUzBoMEx6QkVjRWd4UkRaRGQwMVZiMEZSWldFeE5XbGliVzk0YTBORlFYUm5aMmw1UWt4clJ5dDNTMXBZVFVWR1VtVlhTbWhoYkhCclJEVjZURFpQVFVOdFZ6TktTMmxUYVdsaVMzcE5jM05oWnpSSWFYbERZV2RPYmxWWU5qVkljM2RYYTFCbFdVZHBSSFZaUldRelUyNUtUMWxxU0UxTFZFSkNjbkJVUld0clV6bDBRMHRuWm1sRWRrZzFiMWM1ZG5sRGEzTjZPRkJMUVcxS2JFRkRORWxSUjBWRFRWVkplSFpGVjBGUlRrOVZXVWhFVm1oSlVWQnJRMk5FTm5sQ2IwaFRVRXBEY2xVelUxUk5NSEo2YzI1WFRtcGtSR3R0VVhaNU1IQkljMWswUkRacWFFVmhWMVJCTWtzNFZFcFVVQ3RvTW1wc2FHZGFaV0Z1U2tWUVdtSlBiRFZ4Vm00MWNWaERRV2wzZEUweE1uWlFSRTlzU2tGTlYwSnBRMEpxVGxSTk9VbDNVMWRHUkd4S1EyRnNOWE5CWTJ0d1NtRkNiVmg1UVdOTllVaE9ValpDVlZkYVpWUkVWbGhGUkZKWmNqSlRMMHBLUlcxQ1lYVTFVSGRqYlVGbk5GWkNiaXRCVVVKaFF5OVllV05SVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjkzOTEwODFcXCxcXDJcXDpcXDAuNzI3Nzc3M1xcLFxcM1xcOlxcMC44MDg5MDYzXFwsXFw0XFw6XFwyXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDAuODMyNzQwNFxcLFxcMlxcOlxcMC44MDQxMjIwXFwsXFwzXFw6XFwwLjcwNTgyMDhcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43NDUxNjM1XFwsXFwyXFw6XFwwLjg0OTQ0NjVcXCxcXDNcXDpcXDAuNjI0MjcwNlxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjY5OTQ2MTJcXCxcXDJcXDpcXDAuODY1ODQ5M1xcLFxcM1xcOlxcMC41ODI0NTk5XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNjUwMjE1NVxcLFxcMlxcOlxcMC44NzY3NDM5XFwsXFwzXFw6XFwwLjUzNzY1NTFcXCxcXDRcXDpcXDdcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42NDczNDkyXFwsXFwyXFw6XFwwLjg3Mjk5NDlcXCxcXDNcXDpcXDAuNTMzMzM5OFxcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjYzODIxNjhcXCxcXDJcXDpcXDAuODYyODEzNFxcLFxcM1xcOlxcMC41MTA1Mzg2XFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzddfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NywibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNyDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNYnYrT1Y2Zkl3SCtaL2F1bDUrVStGdit6ZjM0alVhUGxRWUQ5czhRLytVc1BUTEovY203Q3BubEphZlpQdG9zZUVvbHp0WCtTNDdyRzJuRVRYUDl6ejg5OU02WmZzbis1TzQ2VlNUVEgvclhlcWdiclZmUHNYMi9sbkxScFhhMzlHejVQaGJCRlp2YXYzMDk2cnUyeHd2NzFISzFuN091V3dmVy9mTlJmTHJBLzB2N1pOTkVTb1QrcjdCLy9ZaXZvL2piSi90SGlwdXVpNy92c0g1cFVWSDlhZTgvK29hQmNaNlc4dmYyRHNGQ2xZNGxWUUwyOElQMUF6QVQyT2RDblVIK0J4RGlBbUF0bWg0TW9BeGc0OEVCcE5pak5CS0h0LzBEcEgxRDZDd01Vb0FRZWExNWlibW94a0NFQXRnZ2l5QkxrRyt3S1pYTUVGUmVXSmhhbHBrRDV6TDZPTUNtVzNKS2lTaWliS3pNc3NhZzRIaXlDYWdOblVYNjVIc3dXa1BlWUdpRHVZRWQzU25KT1lqSE1LVEJCcnBURWtrUzl0Q0tnZmlEdkg1b1c5dnlDa3N6OFBLQW1KbEFDNElRR0VDTVVJeHZFV0FRTk9VWUhEVmhJUVBrQ2NENnlCb0hTUEpDclUzU1RNMHJ6c25XTmpkRGttUXZ5MHBIc1k0RDZqaEVhV1RBMks4VEpUUCtoMmpsaGdaZWFuSkVQWmJPbDVxVm41cVhDQWl3dE0xMnZQRE9sSkFNV0JpQ0JqTlRNOUl3U1dGRGxKQ2FsNXNBY2twSmFCbVh5QWNNYUhOUjZCVVdaZVREVlhFRFJZcjJTL0pKRW1CYXU1UHdjbUFnNFZCbitBUUJhQy9YeWNRTUFBQT09In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9391081\,\2\:\0.7277773\,\3\:\0.8089063\,\4\:\2\,\5\:\5.25\},{\1\:\0.8327404\,\2\:\0.8041220\,\3\:\0.7058208\,\4\:\3\,\5\:\3.50\},{\1\:\0.7451635\,\2\:\0.8494465\,\3\:\0.6242706\,\4\:\4\,\5\:\2.75\},{\1\:\0.6994612\,\2\:\0.8658493\,\3\:\0.5824599\,\4\:\5\,\5\:\2.25\},{\1\:\0.6502155\,\2\:\0.8767439\,\3\:\0.5376551\,\4\:\7\,\5\:\1.75\},{\1\:\0.6473492\,\2\:\0.8729949\,\3\:\0.5333398\,\4\:\8\,\5\:\1.50\},{\1\:\0.6382168\,\2\:\0.8628134\,\3\:\0.5105386\,\4\:\10\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[7]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qY3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTnlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFpZGk4eUwySnVkbUo1T0VveVlpODJUVk12S3pJMlZHbzVjemgyTHpSdlVqRXhhR2N2ZVhoWFNXRmphRGh3Y2psck1URXZkblpLZDJGT2F5OVBXRUY1TkdaeVIwRjJjMjVUWlM5WE0wOW5MMEk1Wmk4elJGWldTMVZvZDJkbU0weHdkbmN4T1dsWFlqZEdPSEo1YWpBclpEQTNReTkyVmxvMVpHcFdPRll2Y3pNd2FtMXlWREJrWm1ObUt6bG1jMGhRZG5SbFIzUnRMMWh5UzI1elpuSnpWR0pxSzJ3eGRYUjFRU3RNYkU1bkwyVTJOR1VyVDBzeGNYWXphak41Wm5SR2F6a3JXbEE1YjJ0VllYSnlia05LTDFWUE1WQlBSMDQzS3pKQlRrOW1UbVkzVm5ZM1FqaEZjMUIzZUU5R1ZVVXhUWE5NTUdjdlJWUkhRMlpCTXpCTE9WSmtTV3BCVDBsMVYwSXlUMGxuZVdkSlJVUkVOVkp0WnpsS1RVVk9jaXRFTlZRclFXRlhMMDFGUVVKVGRVTjROV2xZYlhCb1dVUkhVVXBuYVhsRFEweEZSeXQzWVRWUlRtdGtVV05YUm5CWmJFWnhRM0JVVURkUGMwbHJNa3hLVEZOdGNXaE1TelZOYzAxVGFUUnlhbmRUUzI5T2JrRlhOVnBtY25kWGQwSmxXU3R3UVdWSlQyUnVVMjVLVDJOclJuTlBZMEZvVUd0VGEydHpVMlJTVEV0M1RIRkNMMHdyYjFkc2FIcDVPRzk1WTNwUVFUSndhVUZwVlVGVWJXZEJUVlZKZUhOclIwMVNaRU5SV1ROVVVXZEpWVVZzUXpoQk5YbE9ja1ZEYWs1Qk4yczJVbFJqTlc5NlVYWlhPV1paUTBVeVpYVlRRWFpJWTJzclFuRnFka2RMUjFKQ1YwOTZVWEI2VFRsQ0szRnVVazFYWlV0dVNrZG1iRkZPYkhSeFdHNXdiVmhwYjNOM1RrbDVNQzlZUzAweFRrdE5iVUpvUVVKTVNWTk5NVTE2ZVdsQ1FsWldUMWxzU25GRWMzZG9TMkZzYkZWRFdXWk5TM3BDVVdFeFdGVktVMXBDTVZCT1FsSlJkREZwZGtwTU1HMUZZV1ZHUzNwekswSnBXVUpFYkdWRlprRkRNVEJJTHpGNFFYZEJRU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjkzNTUyMzVcIixcIjJcIjpcIjAuNzI3MjIxMVwiLFwiM1wiOlwiMC44MDMzNzI0XCIsXCI0XCI6XCIyXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjAuODQyODQ5MFwiLFwiMlwiOlwiMC43OTcxNzI0XCIsXCIzXCI6XCIwLjcxNTcxNzBcIixcIjRcIjpcIjNcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43NDQ2MjYyXCIsXCIyXCI6XCIwLjg0Nzc5MzBcIixcIjNcIjpcIjAuNjI0NDg1NlwiLFwiNFwiOlwiNFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjY5ODg2ODBcIixcIjJcIjpcIjAuODY4NzkxM1wiLFwiM1wiOlwiMC41ODIyOTQ3XCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjQ3ODI1N1wiLFwiMlwiOlwiMC44NzgxMDQ1XCIsXCIzXCI6XCIwLjUzNTk0MTJcIixcIjRcIjpcIjdcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NDg1MzM1XCIsXCIyXCI6XCIwLjg3MzAzMThcIixcIjNcIjpcIjAuNTM1ODkzNFwiLFwiNFwiOlwiOFwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjYzNzA3NjdcIixcIjJcIjpcIjAuODYzODU5NFwiLFwiM1wiOlwiMC41MDk3NjgwXCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzddfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjcsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNyDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1idi8yL2JudmJ5OEoyYi82TVMvKzI2VGo5czh2LzRvUjExaGcveXhXSWFjaDhwcjlrMTEvdnZKd2FOay9PWEF5NGZyR0F2c25TZS9XM09nL0I5Zi8zRFZWS1Vod2dmM0xwdncxOWlXYjdGOHJ5ajArZDA3Qy92Vlo1ZGpWOFYvczMwam1yVDBkZmNmKzlmc0hQdnRlR3RtL1hyS25zZnJzVGJqK2wxdXR1QStMbE5nL2U2NGUrT0sxcXYzajN5ZnRGazkrWlA5b2tVYXJybkNKL1VPMVBPR043KzJBTk9mTmY3VnY3QjhFc1B3eE9GVUUxTXNMMGcvRVRHQ2ZBMzBLOVJkSWpBT0l1V0IyT0lneWdJRURENVJtZzlKTUVOcitENVQrQWFXL01FQUJTdUN4NWlYbXBoWURHUUpnaXlDQ0xFRyt3YTVRTmtkUWNXRnBZbEZxQ3BUUDdPc0lrMkxKTFNtcWhMSzVNc01TaTRyandTS29ObkFXNVpmcndXd0JlWStwQWVJT2RuU25KT2NrRnNPY0FoUGtTa2tzU2RSTEt3THFCL0wrb1dsaHp5OG95Y3pQQTJwaUFpVUFUbWdBTVVJeHNrR01SZENRWTNUUWdJVUVsQzhBNXlOckVDak5BN2s2UlRjNW96UXZXOWZZQ0UyZXVTQXZIY2srQnFqdkdLR1JCV096UXB6TTlCK3FuUk1XZUtuSkdmbFFObHRxWG5wbVhpb3N3Tkl5MC9YS00xTktNbUJoQUJMSVNNMU16eWlCQlZWT1lsSnFEc3doS2FsbFVDWWZNS3pCUWExWFVKU1pCMVBOQlJRdDFpdkpMMG1FYWVGS3pzK0JpWUJEbGVFZkFDMTBILzF4QXdBQSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9355235","2":"0.7272211","3":"0.8033724","4":"2","5":"5.25"},{"1":"0.8428490","2":"0.7971724","3":"0.7157170","4":"3","5":"3.50"},{"1":"0.7446262","2":"0.8477930","3":"0.6244856","4":"4","5":"2.75"},{"1":"0.6988680","2":"0.8687913","3":"0.5822947","4":"5","5":"2.25"},{"1":"0.6478257","2":"0.8781045","3":"0.5359412","4":"7","5":"1.75"},{"1":"0.6485335","2":"0.8730318","3":"0.5358934","4":"8","5":"1.50"},{"1":"0.6370767","2":"0.8638594","3":"0.5097680","4":"10","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[7]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOeXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk55RERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlluWXZNbVk0WW1Wd2NtcGtPWEU0UzNJMk0yYzBkMjE0WmpNMU1UUjJMek5qSzNKMGJqVlZOVk5LWVhReWJVZ3ZOVWx1WjNvMFptNU5LekptVEVkNVNXcFFjV0paZGl0clVXMU1SR2hFWTFnMFVIRm1RbnBzUlZKc2Mxa3lUQ3M0YzI1aWRtdHJNa3czUmk5eU9UTllPRVkzYUd3dk0zSkdiRVJ0WmxNckwySjJLMGRQWVdReUt6TmpOeXM1Vm1SMEx6VTVOa04yWVhZMU4yOXNXbGhqTm5kUVZ5OVFUQzlTVmpWQ0wzUXZNbm81VGpkWFl5czRkakpFTHl0bVRUSnNUbU16U3k5MFIyVnFOR1p6YXpaeWMwaDZiMjVJWkhZMEsyOU1PV2Q0TDJRNFltSXhWMlpaVURCeU9YVmxURlowUm14QmRrd3daeTlGUkU5Q1psRTNNRXRrVW1aSlJFVlBTVTloUXpKbFJXZDVaMEZIUkdwNFVXMW5NVXROTUVadkszbzVVU3RuWlZVdmMwbEJRbE5wUW5nMWNWaHRTblJoUkVkUlNXZERNa05EVEVsRksxRmhOMUYwYTJOUlkxZEdjRmxzUm5GVGJGRlFjazkyU1RCNVMwcGlaV3R4UWt4TE5YTnZUVk41ZDNGcVoyVk1iMDV5UVZkYVVtWnlaMlY2UW1WUk9YQm5ZVWxQT1dwU2JscExZMnN4WjAxamQzQk5hME56YkhOVFVsSk1OakJKY1VJdlNTczBaVzFvVkRJdmIwTlJlbEIzSzI5cFVXMVZRVVJwYUVGalVVbDRZMmRIVFZKYVFsRTBOMUpSVVUxWFJXeERLMEZLZVZCeVJVZG5Ua0V2YXpab1ZHUTFTWHBUZGtkNFpGbDVUVEJsWldGRGRraFJheXQ0YVdkMmJVOUZVbWhoVFhwUmNIaE5kRTR2Y1VoYVQxZFBRMnhLYldaclVUbHNjM0ZZYm5CdFdHMXdjMEZDVEhrd2VsaExPRGxOUzJOdFFXaFJSa2xKUTAweFRYb3lha0pDV2xWUFdXeEtjVlJyZDJnMlUydHNhMGRhWmsxRGQwSm5aVEZZYTBaU1dtZzFUVTVTWkZGMFJtbDJTa3c0YTBWaFlVWkxlbXN2UW5sWlEwUnNWMGRtZDBGeFRsQXlSR05SVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjkzNzQyNzlcXCxcXDJcXDpcXDAuNzI4NzkwNFxcLFxcM1xcOlxcMC44MDY2MDMxXFwsXFw0XFw6XFwyXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDAuODI2Mzk2M1xcLFxcMlxcOlxcMC44MDcyMTE4XFwsXFwzXFw6XFwwLjcwMDE0MDdcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43NDQ4MjA2XFwsXFwyXFw6XFwwLjg0OTU1NTNcXCxcXDNcXDpcXDAuNjIzNTE1M1xcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjcwMTkzNDlcXCxcXDJcXDpcXDAuODY0MzI4N1xcLFxcM1xcOlxcMC41ODU1NjQ1XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNjUyODQwNlxcLFxcMlxcOlxcMC44NzYzODY5XFwsXFwzXFw6XFwwLjUzOTQ3NThcXCxcXDRcXDpcXDdcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42NDQ3MTQ1XFwsXFwyXFw6XFwwLjg3MzY3NzlcXCxcXDNcXDpcXDAuNTMwMzM5OVxcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjYzOTY2MDJcXCxcXDJcXDpcXDAuODYyOTQ4NlxcLFxcM1xcOlxcMC41MTI2OTA0XFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzddfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NywibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNyDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNYnYvMmY4YmVwcmpkOXE4S3I2M2c0d214ZjM1MTR2LzNjK3J0bjVVNVNKYXQybUgvNUluZ3o0Zm5NKzJmTEd5SWpQcWJZditrUW1MRGhEY1g0UHFmQnpsRVJsc1kyTCs4c25idmtrMkw3Ri9yOTNYOEY3aGwvM3JGbERtZlMrL2J2K0dPYWQyKzNjNys5VmR0LzU5NkN2YXY1N29sWlhjNndQVy9QTC9SVjVCL3QvMno5TjdXYys4djJELytmTTJsTmMzSy90R2VqNGZzazZyc0h6b25IZHY0K29MOWd4L2Q4YmIxV2ZZUDByOXVlTFZ0RmxBdkwwZy9FRE9CZlE3MEtkUmZJREVPSU9hQzJlRWd5Z0FHRGp4UW1nMUtNMEZvK3o5UStnZVUvc0lBQlNpQng1cVhtSnRhREdRSWdDMkNDTElFK1FhN1F0a2NRY1dGcFlsRnFTbFFQck92STB5S0piZWtxQkxLNXNvTVN5d3FqZ2VMb05yQVdaUmZyZ2V6QmVROXBnYUlPOWpSblpLY2sxZ01jd3BNa0NzbHNTUlJMNjBJcUIvSSs0ZW1oVDIvb0NRelB3K29pUW1VQURpaEFjUUl4Y2dHTVJaQlE0N1JRUU1XRWxDK0FKeVByRUdnTkEvazZoVGQ1SXpTdkd4ZFl5TTBlZWFDdkhRayt4aWd2bU9FUmhhTXpRcHhNdE4vcUhaT1dPQ2xKbWZrUTlsc3FYbnBtWG1wc0FCTHkwelhLODlNS2NtQWhRRklJQ00xTXoyakJCWlVPWWxKcVRrd2g2U2tsa0daZk1Dd0JnZTFYa0ZSWmg1TU5SZFF0Rml2Skw4a0VhYUZLemsvQnlZQ0RsV0dmd0FxTlAyRGNRTUFBQT09In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9374279\,\2\:\0.7287904\,\3\:\0.8066031\,\4\:\2\,\5\:\5.25\},{\1\:\0.8263963\,\2\:\0.8072118\,\3\:\0.7001407\,\4\:\3\,\5\:\3.50\},{\1\:\0.7448206\,\2\:\0.8495553\,\3\:\0.6235153\,\4\:\4\,\5\:\2.75\},{\1\:\0.7019349\,\2\:\0.8643287\,\3\:\0.5855645\,\4\:\5\,\5\:\2.25\},{\1\:\0.6528406\,\2\:\0.8763869\,\3\:\0.5394758\,\4\:\7\,\5\:\1.75\},{\1\:\0.6447145\,\2\:\0.8736779\,\3\:\0.5303399\,\4\:\8\,\5\:\1.50\},{\1\:\0.6396602\,\2\:\0.8629486\,\3\:\0.5126904\,\4\:\10\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[7]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qY3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTnlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFpZGl0UFZqWm1TWGRJSzFvdllYVnNOU3RWSzBaMkszcG1NelJxVldGUWJGRlpSRGx6T0ZFdksxVnpVRlJNU2k5amJUZERjRzVzU21GbVdsQjBiM05sUlc5c2VuUllLMU0wTjNKSE1tNUZWRmhRT1hwNk9EazVUVFphWm5OdUt6VlBORFpXVTFSVVNDOXlXR1Z4WjJKeVZtWlFjMWd5TDJ4dVRGSndXR0V6T1VkNk5WQm9Za0pHV25aaGRqTXdPVFp5ZFRKNGQzWTNNVWhMTVc0M1QzVlhkMlpYTDJaT1VtWk1ja0V2TUhZM1drNU9SVk52VkN0eU4wSXZMMWxwZG04dmFtSktMM1JJYVhCMWRXazNMM1p6U0RWd1ZWWklPV0ZsT0M4cmIyRkNZMW8yVnpoMlpqSkVjMFpEYkZrMGJGWlJUREk0U1ZBeFFYcEJWREpQWkVOdVZVZ3JRbmhFYVVGdFFYUnRhRFJOYjBGNFp6UTRSVUp3VG1scVRrSkxTSFF2TUVSd1NERkVOa04zVFZWdlFWRmxZVEUxYVdKdGIzaHJRMFZCZEdkbmFYbENUR3RISzNkTFdsaE5SVVpTWlZkS2FHRnNjR3RFTlhwTU5rOU5RMjFYTTBwTGFWTnBhV0pMZWsxemMyRm5ORWhwZVVOaFowNXVWVmcyTlVoemQxZHJVR1ZaUjJsRWRWbEZaRE5UYmtwUFdXcElUVXRVUWtKeWNGUkZhMnRUT1hSRFMyZG1hVVIyU0RWdlZ6bDJlVU5yYzNvNFVFdEJiVXBzUVVNMFNWRkhSVU5OVlVsNGRrVlhRVkZPVDFWWlNFUldhRWxSVUd0RFkwUTJlVUp2U0ZOUVNrTnlWVE5UVkUwd2NucHpibGRPYW1SRWEyMVJkbmt3Y0VoeldUUkVObXBvUldGWFZFRXlTemhVU2xSUUsyZ3lhbXhvWjFwbFlXNUtSVkJhWWs5c05YRldialZ4V0VOQmFYZDBUVEV5ZGxCRVQyeEtRVTFYUW1sRFFtcE9WRTA1U1hkVFYwWkViRXBEWVd3MWMwRmphM0JLWVVKdFdIbEJZMDFoU0U1U05rSlZWMXBsVkVSV1dFVkVVbGx5TWxNdlNrcEZiVUpoZFRWUWQyTnRRV2MwVmtKdUswRlJRbUZETDFoNVkxRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuOTM5MTA4MVwiLFwiMlwiOlwiMC43Mjc3NzczXCIsXCIzXCI6XCIwLjgwODkwNjNcIixcIjRcIjpcIjJcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiMC44MzI3NDA0XCIsXCIyXCI6XCIwLjgwNDEyMjBcIixcIjNcIjpcIjAuNzA1ODIwOFwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjc0NTE2MzVcIixcIjJcIjpcIjAuODQ5NDQ2NVwiLFwiM1wiOlwiMC42MjQyNzA2XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNjk5NDYxMlwiLFwiMlwiOlwiMC44NjU4NDkzXCIsXCIzXCI6XCIwLjU4MjQ1OTlcIixcIjRcIjpcIjVcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC42NTAyMTU1XCIsXCIyXCI6XCIwLjg3Njc0MzlcIixcIjNcIjpcIjAuNTM3NjU1MVwiLFwiNFwiOlwiN1wiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjY0NzM0OTJcIixcIjJcIjpcIjAuODcyOTk0OVwiLFwiM1wiOlwiMC41MzMzMzk4XCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNjM4MjE2OFwiLFwiMlwiOlwiMC44NjI4MTM0XCIsXCIzXCI6XCIwLjUxMDUzODZcIixcIjRcIjpcIjEwXCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbN119LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjcsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNyDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1iditPVjZmSXdIK1ovYXVsNStVK0Z2K3pmMzRqVWFQbFFZRDlzOFEvK1VzUFRMSi9jbTdDcG5sSmFmWlB0b3NlRW9senRYK1M0N3JHMm5FVFhQOXp6ODk5TTZaZnNuKzVPNDZWU1RUSC9yWGVxZ2JyVmZQc1gyL2xuTFJwWGEzOUd6NVBoYkJGWnZhdjMwOTZydTJ4d3Y3MUhLMW43T3VXd2ZXL2ZOUmZMckEvMHY3Wk5ORVNvVCtyN0IvL1lpdm8vamJKL3RIaXB1dWk3L3ZzSDVwVVZIOWFlOC8rb2FCY1o2Vzh2ZjJEc0ZDbFk0bFZRTDI4SVAxQXpBVDJPZENuVUgrQnhEaUFtQXRtaDRNb0F4ZzQ4RUJwTmlqTkJLSHQvMERwSDFENkN3TVVvQVFlYTE1aWJtb3hrQ0VBdGdnaXlCTGtHK3dLWlhNRUZSZVdKaGFscGtENXpMNk9NQ21XM0pLaVNpaWJLek1zc2FnNEhpeUNhZ05uVVg2NUhzd1drUGVZR2lEdVlFZDNTbkpPWWpITUtUQkJycFRFa2tTOXRDS2dmaUR2SDVvVzl2eUNrc3o4UEtBbUpsQUM0SVFHRUNNVUl4dkVXQVFOT1VZSERWaElRUGtDY0Q2eUJvSFNQSkNyVTNTVE0wcnpzbldOamREa21RdnkwcEhzWTRENmpoRWFXVEEySzhUSlRQK2gyamxoZ1plYW5KRVBaYk9sNXFWbjVxWENBaXd0TTEydlBET2xKQU1XQmlDQmpOVE05SXdTV0ZEbEpDYWw1c0Fja3BKYUJtWHlBY01hSE5SNkJVV1plVERWWEVEUllyMlMvSkpFbUJhdTVQd2NtQWc0VkJuK0FRQmFDL1h5Y1FNQUFBPT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9391081","2":"0.7277773","3":"0.8089063","4":"2","5":"5.25"},{"1":"0.8327404","2":"0.8041220","3":"0.7058208","4":"3","5":"3.50"},{"1":"0.7451635","2":"0.8494465","3":"0.6242706","4":"4","5":"2.75"},{"1":"0.6994612","2":"0.8658493","3":"0.5824599","4":"5","5":"2.25"},{"1":"0.6502155","2":"0.8767439","3":"0.5376551","4":"7","5":"1.75"},{"1":"0.6473492","2":"0.8729949","3":"0.5333398","4":"8","5":"1.50"},{"1":"0.6382168","2":"0.8628134","3":"0.5105386","4":"10","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[7]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOeXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk55RERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlluWXZNbWRaV2pnek5ESTFPWEU1ZVdwaWVuVnRURWhhVURNdlRVaFRjVFU1TkM4NWN6UnJibEZvYzB4WVR6Sm1VRWcxWnpZMlpHNWlVRGxyZDJSVmNsZDRaM0UzU2pscmVqTTVabTkxYjBVeEx5czRObkJ5ZUZkME9FOHJOV05ZZG1nMldtMWlOMlF2Y2xWR2JucGtZakZSZGpjeE4wNXBNVW8xYTNJM1JpOTNNbG9yTUVOaWJtNHZNM0pRTVdGb01UZDZNRGRHT0hZeVV5OHpLMGgzUVZoUUwweEdVVGhGY0RsUkszTXpLMWQxUTJadk15dGtaRGx2T1M5Q2VUVTVkazFFUlM5MFJ6RnlNV00xUkhGeVdsQTNVVGxKYkRsbWRtTjZLM2RVZG5aS05tWTFWM1YzWmxKSGJrOTBUR3BxUW5SVVRFTTVTVkI0UlhobmJuZE9PVU4yVlZoVFNYZEVhVXhzWjJScWFVbE5iME5DUVhjclZWcHZVRk5VUWtSaEwyY3JWUzluUjJ4MmVrSkJRVlZ5WjNObFdXdzFjVmxYUVhoclExbEpjMmRuYVhoQ2RuTkhkVlZFV2toVlNFWm9ZVmRLVW1GbmNWVjZLM3B5UTBwT2FYbFRNSEJ4YjFONWRWUk1SRVZ2ZFVzME9FVnBjVVJhZDBaMVYxZzJPRVp6UVZodFVIRlJTR2xFYmxvd2NIbFVia3BDWWtSdVFVbFVOVVZ3U2t4RmJsVlRlWE5ETm1kbWVTOXhSbkJaWXpoMlMwMXVUWHAzVG5GWlowbHNRVVUxYjBGRVJrTk5Za3BDYWtWWVVXdEhUakF3U1VOR1FrcFJka0ZQWTJwaGVFRnZlbEZQTlU5clZUTlBZVTB3VERGMldESkJhRTV1Y210blRIZ3pTbEJuWVc4M2VHbG9hMUZXYW5Nd1MyTjZVRkZtY1hBd1ZFWnVhWEI1VW00MVZVUmFZbUZzTlRaYWJEUnhURTFFVTAxMFVERjVhazVVVTJwS1oxbFJRVk41UldwT1ZFMDRiMmRSVmxaVWJVcFRZV2MzVFVsVGJYQmFWa0Z0U0hwRGMzZFZSM1JXTVVOVmJWRmtWSHBSVlZWTVpGbHllVk01U21oSGJtaFRjemRRWjFsdFFWRTFXR2hJZDBKWFl6ZFpNbU5SVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjkzMzYxMjlcXCxcXDJcXDpcXDAuNzMzNzQ0N1xcLFxcM1xcOlxcMC44MDE4NjQ3XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDAuODI1ODI5NlxcLFxcMlxcOlxcMC44MDY3NTc4XFwsXFwzXFw6XFwwLjY5OTQzMDZcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43NDY0NjU0XFwsXFwyXFw6XFwwLjg1MDU5MjhcXCxcXDNcXDpcXDAuNjI0NDI4NlxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjcwNTI5NTdcXCxcXDJcXDpcXDAuODYyNTkyOFxcLFxcM1xcOlxcMC41ODg3NDAzXFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNjUyODE2OVxcLFxcMlxcOlxcMC44NzU3NTkwXFwsXFwzXFw6XFwwLjUzODc4OThcXCxcXDRcXDpcXDdcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42NDQ2MzMyXFwsXFwyXFw6XFwwLjg3NDUzOTVcXCxcXDNcXDpcXDAuNTI5MDg4OVxcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjYzODEzNzhcXCxcXDJcXDpcXDAuODYzODYwN1xcLFxcM1xcOlxcMC41MTEwMDYyXFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzddfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NywibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNyDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNYnYvMmdZWjgzNDI1OXE5eWpienVtTEhaUDMvTUhTcTU5NC85czRrblFoc0xYTzJmUEg1ZzY2ZG5iUDlrd2RVcld4Z3E3SjlrejM5Zm91b0UxLys4NnByeFd0OE8rNWNYdmg2Wm1iN2QvclVGbnpkYjFRdjcxN05pMUo1a3I3Ri93MlorMENibm4vM3JQMWFoMTd6MDdGOHYyUy8zK0h3QVhQL0xGUThFcDlRK3MzK1d1Q2ZvMytkZDlvOS9CeTU5dk1ERS90RzFyMWM1RHFyWlA3UTlJbDlmdmN6K3dUdnZKNmY1V3V3ZlJHbk90TGpqQnRUTEM5SVB4RXhnbndOOUN2VVhTSXdEaUxsZ2RqaUlNb0NCQXcrVVpvUFNUQkRhL2crVS9nR2x2ekJBQVVyZ3NlWWw1cVlXQXhrQ1lJc2dnaXhCdnNHdVVEWkhVSEZoYVdKUmFncVV6K3pyQ0pOaXlTMHBxb1N5dVRMREVvdUs0OEVpcURad0Z1V1g2OEZzQVhtUHFRSGlEblowcHlUbkpCYkRuQUlUNUVwSkxFblVTeXNDNmdmeS9xRnBZYzh2S01uTXp3TnFZZ0lsQUU1b0FERkNNYkpCakVYUWtHTjAwSUNGQkpRdkFPY2pheEFvelFPNU9rVTNPYU0wTDF2WDJBaE5ucmtnTHgzSlBnYW83eGloa1FWanMwS2N6UFFmcXAwVEZuaXB5Um41VURaYmFsNTZabDRxTE1EU010UDF5ak5UU2pKZ1lRQVN5RWpOVE04b2dRVlZUbUpTYWc3TUlTbXBaVkFtSHpDc3dVR3RWMUNVbVFkVHpRVVVMZFlyeVM5SmhHbmhTczdQZ1ltQVE1WGhId0JXYzdZMmNRTUFBQT09In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9336129\,\2\:\0.7337447\,\3\:\0.8018647\,\4\:\2\,\5\:\5.25\},{\1\:\0.8258296\,\2\:\0.8067578\,\3\:\0.6994306\,\4\:\3\,\5\:\3.50\},{\1\:\0.7464654\,\2\:\0.8505928\,\3\:\0.6244286\,\4\:\4\,\5\:\2.75\},{\1\:\0.7052957\,\2\:\0.8625928\,\3\:\0.5887403\,\4\:\5\,\5\:\2.25\},{\1\:\0.6528169\,\2\:\0.8757590\,\3\:\0.5387898\,\4\:\7\,\5\:\1.75\},{\1\:\0.6446332\,\2\:\0.8745395\,\3\:\0.5290889\,\4\:\8\,\5\:\1.50\},{\1\:\0.6381378\,\2\:\0.8638607\,\3\:\0.5110062\,\4\:\10\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[7]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qY3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTnlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFpZGk4eVpqaGlaWEJ5YW1RNWNUaExjall6WnpSM2JYaG1NelV4TkhZdk0yTXJjblJ1TlZVMVUwcGhkREp0U0M4MVNXNW5lalJtYmswck1tWk1SM2xKYWxCeFlsbDJLMnRSYlV4RWFFUmpXRFJRY1daQ2VteEZVbXh6V1RKTUt6aHpibUoyYTJzeVREZEdMM0k1TTFnNFJqZG9iQzh6Y2tac1JHMW1VeXN2WW5ZclIwOWhaRElyTTJNM0t6bFdaSFF2TlRrMlEzWmhkalUzYjJ4YVdHTTJkMUJYTDFCTUwxSldOVUl2ZEM4eWVqbE9OMWRqS3poMk1rUXZLMlpOTW14T1l6TkxMM1JIWldvMFpuTnJObkp6U0hwdmJraGtkalFyYjB3NVozZ3ZaRGhpWWpGWFpsbFFNSEk1ZFdWTVZuUkdiRUYyVERCbkwwVkVUMEptVVRjd1MyUlNaa2xFUlU5SlQyRkRNbVZGWjNsblFVZEVhbmhSYldjeFMwMHdSbThyZWpsUksyZGxWUzl6U1VGQ1UybENlRFZ4V0cxS2RHRkVSMUZKWjBNeVEwTk1TVVVyVVdFM1VYUnJZMUZqVjBad1dXeEdjVk5zVVZCeVQzWkpNSGxMU21KbGEzRkNURXMxYzI5TlUzbDNjV3BuWlV4dlRuSkJWMXBTWm5KblpYcENaVkU1Y0dkaFNVODVhbEp1V2t0amF6Rm5UV04zY0UxclEzTnNjMU5TVWt3Mk1FbHhRaTlKS3pSbGJXaFVNaTl2UTFGNlVIY3JiMmxSYlZWQlJHbG9RV05SU1hoalowZE5VbHBDVVRRM1VsRlJUVmRGYkVNclFVcDVVSEpGUjJkT1FTOXJObWhVWkRWSmVsTjJSM2hrV1hsTk1HVmxZVU4yU0ZGckszaHBaM1p0VDBWU2FHRk5lbEZ3ZUUxMFRpOXhTRnBQVjA5RGJFcHRabXRST1d4emNWaHVjRzFZYlhCelFVSk1lVEI2V0VzNE9VMUxZMjFCYUZGR1NVbERUVEZOZWpKcVFrSmFWVTlaYkVweFZHdDNhRFpUYTJ4clIxcG1UVU4zUW1kbE1WaHJSbEphYURWTlRsSmtVWFJHYVhaS1REaHJSV0ZoUmt0NmF5OUNlVmxEUkd4WFIyWjNRWEZPVURKRVkxRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuOTM3NDI3OVwiLFwiMlwiOlwiMC43Mjg3OTA0XCIsXCIzXCI6XCIwLjgwNjYwMzFcIixcIjRcIjpcIjJcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiMC44MjYzOTYzXCIsXCIyXCI6XCIwLjgwNzIxMThcIixcIjNcIjpcIjAuNzAwMTQwN1wiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjc0NDgyMDZcIixcIjJcIjpcIjAuODQ5NTU1M1wiLFwiM1wiOlwiMC42MjM1MTUzXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNzAxOTM0OVwiLFwiMlwiOlwiMC44NjQzMjg3XCIsXCIzXCI6XCIwLjU4NTU2NDVcIixcIjRcIjpcIjVcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC42NTI4NDA2XCIsXCIyXCI6XCIwLjg3NjM4NjlcIixcIjNcIjpcIjAuNTM5NDc1OFwiLFwiNFwiOlwiN1wiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjY0NDcxNDVcIixcIjJcIjpcIjAuODczNjc3OVwiLFwiM1wiOlwiMC41MzAzMzk5XCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNjM5NjYwMlwiLFwiMlwiOlwiMC44NjI5NDg2XCIsXCIzXCI6XCIwLjUxMjY5MDRcIixcIjRcIjpcIjEwXCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbN119LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjcsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNyDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1idi8yZjhiZXByamQ5cThLcjYzZzR3bXhmMzUxNHYvM2MrcnRuNVU1U0phdDJtSC81SW5nejRmbk0rMmZMR3lJalBxYll2K2tRbUxEaERjWDRQcWZCemxFUmxzWTJMKzhzbmJ2a2syTDdGL3I5M1g4RjdobC8zckZsRG1mUysvYnYrR09hZDIrM2M3KzlWZHQvNTk2Q3ZhdjU3b2xaWGM2d1BXL1BML1JWNUIvdC8yejlON1djKzh2MkQvK2ZNMmxOYzNLL3RHZWo0ZnNrNnJzSHpvbkhkdjQrb0w5Z3gvZDhiYjFXZllQMHI5dWVMVnRGbEF2TDBnL0VET0JmUTcwS2RSZklERU9JT2FDMmVFZ3lnQUdEanhRbWcxS00wRm8rejlRK2dlVS9zSUFCU2lCeDVxWG1KdGFER1FJZ0MyQ0NMSUUrUWE3UXRrY1FjV0ZwWWxGcVNsUVByT3ZJMHlLSmJla3FCTEs1c29NU3l3cWpnZUxvTnJBV1pSZnJnZXpCZVE5cGdhSU85alJuWktjazFnTWN3cE1rQ3Nsc1NSUkw2MElxQi9JKzRlbWhUMi9vQ1F6UHcrb2lRbVVBRGloQWNRSXhjZ0dNUlpCUTQ3UlFRTVdFbEMrQUp5UHJFR2dOQS9rNmhUZDVJelN2R3hkWXlNMGVlYUN2SFFrK3hpZ3ZtT0VSaGFNelFweE10Ti9xSFpPV09DbEptZmtROWxzcVhucG1YbXBzQUJMeTB6WEs4OU1LY21BaFFGSUlDTTFNejJqQkJaVU9ZbEpxVGt3aDZTa2xrR1pmTUN3QmdlMVhrRlJaaDVNTlJkUXRGaXZKTDhrRWFhRkt6ay9CeVlDRGxXR2Z3QXFOUDJEY1FNQUFBPT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9374279","2":"0.7287904","3":"0.8066031","4":"2","5":"5.25"},{"1":"0.8263963","2":"0.8072118","3":"0.7001407","4":"3","5":"3.50"},{"1":"0.7448206","2":"0.8495553","3":"0.6235153","4":"4","5":"2.75"},{"1":"0.7019349","2":"0.8643287","3":"0.5855645","4":"5","5":"2.25"},{"1":"0.6528406","2":"0.8763869","3":"0.5394758","4":"7","5":"1.75"},{"1":"0.6447145","2":"0.8736779","3":"0.5303399","4":"8","5":"1.50"},{"1":"0.6396602","2":"0.8629486","3":"0.5126904","4":"10","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[7]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOeXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk55RERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlluWXZNbFYwZG1GMVdHTXlNbUk0Y1RGbFJIZHRWbkJwTHk5NVJsUTVVWEJaZWxBM1dqZ3dZWEl3Tml0dVIzWXZiRTlzVEdwMU1qQklMMXBRTVdwUU5IcGtRMWxhZGl0cmFuSldaM016VFhGWVVDOTZSM0pPYW5Oek1VdzNSamhsVkhSeWVpdE1TMUV2VjNOcU9WZ3dPVVp6TDNOWU5qbHZUek54YnpSaFZEazJlQ3Q1VFZST0x6TnlSaTh2VjJ4TGEyRXpiRU12ZGxnNE0wNVRaamd5TVdkMWRDOVBWUzlyVTJONkwwNVFkRzVQWkdKbFozQjJlVGRLT1hkQ2F5dFRSVzQ1YWk4cmFYTlJVV1oyUjJnM04yZzJSa05SWkdReFRuUm5MeXROY1M4dlJISnlXSFp6U0hWalNpOTNMM1pQUVhaWWVXZDJVVVJOVWxCWk5UQkRabEYyTUVaRmRVMUJXV2syV1VoUk5tbEVSMFJuZDBGUGJESmhRVEJGTkZNeUwzZFBiR1l3UkhCTWQzaFJaMEpLTkhKSWJVcDFZVzVHVVVsWlFUSkRTMGxKUlhWUllqZEJjbXhOTUZKV1JuaFpiV3hwVlcxblRHeE5MM00yZDNGU1dXTnJkVXRMY1VaemNuTjVkM2hMVEdsbFRFRkpjV2N5WTFKbWJteGxha0ppVVU0MWFtRnZRelJuZUROa1MyTnJOV2xqVlhkd09FRkZkVlpKVTFONFRERXdiM0ZCSzI5SE9HWXlhR0V5VUUxTVUycE1lamcwUTJGdFJVRktaMEpOWVZGSmVGRnFSM2RSV1hoRk1EVkNaMlJPUjBGb1FXVlZUSGRRYmtsSFoxSkxPREJEZFZSMFJrNTZhV3BPZVRsWk1VNXJTMVJhZVRkSlV6QmxlV3AzU0hGUE1GcHZXazFJV1hKQ1FXNU5MekpJWVhWbFJVSldOWEZqYTFrcmJFMHlWMjF3WldWdFdtTkxRemRETUhwSVV6azRjM2xWYTJkNFdVZEpRVVZOYkVsNk1IcE9TMWxGUjFack5XbFZiV2RPZWxORmNIRkhXbFJLUW5kNGNtTkdSSEpHVWxKc05YTkdWV04zUmtacEwxWkxPR3R6VTFsV2NUUnJkazU2V1VOTVoxVkhXRFJDZDBGeVZVZHBOMk5SVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjkzMTk0OTBcXCxcXDJcXDpcXDAuNzMzOTEyOFxcLFxcM1xcOlxcMC44MDA1NDcxXFwsXFw0XFw6XFwyXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDAuODI2ODAxM1xcLFxcMlxcOlxcMC44MDUxMDA4XFwsXFwzXFw6XFwwLjcwMDcxMTlcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43NDcxMDY3XFwsXFwyXFw6XFwwLjg0OTg3MjVcXCxcXDNcXDpcXDAuNjI2MTM4NVxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjcwMzUxMDdcXCxcXDJcXDpcXDAuODY0MzIyMVxcLFxcM1xcOlxcMC41ODc1NDc2XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNjU2NjEwN1xcLFxcMlxcOlxcMC44NzQwMzc0XFwsXFwzXFw6XFwwLjU0MTYzNDdcXCxcXDRcXDpcXDdcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42NDYzNjI1XFwsXFwyXFw6XFwwLjg3MzM2MThcXCxcXDNcXDpcXDAuNTI5OTE0N1xcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjY0MDM4MzVcXCxcXDJcXDpcXDAuODYzMjEwOVxcLFxcM1xcOlxcMC41MTMzMTUyXFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzddfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NywibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNyDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNYnYvMlV0dmF1WGMyMmI4cTFlRHdtVnBpLy95RlQ5UXBZelA3WjgwYXIwNituR3YvbE9sTGp1MjBIL1pQMWpQNHpkQ1laditranJWZ3MzTXFYUC96R3JOanNzMUw3RjhlVHRyeitMS1EvV3NqOVgwOUZzL3NYNjlvTzNxbzRhVDk2eCt5TVROLzNyRi8vV2xLa2EzbEMvdlg4M05TZjgyMWd1dC9PVS9rU2N6L05QdG5PZGJlZ3B2eTdKOXdCaytTRW45ai8raXNRUWZ2R2g3N2g2RkNRZGQxTnRnLytNcS8vRHJyWHZzSHVjSi93L3ZPQXZYeWd2UURNUlBZNTBDZlF2MEZFdU1BWWk2WUhRNmlER0Rnd0FPbDJhQTBFNFMyL3dPbGYwRHBMd3hRZ0JKNHJIbUp1YW5GUUlZQTJDS0lJRXVRYjdBcmxNMFJWRnhZbWxpVW1nTGxNL3M2d3FSWWNrdUtLcUZzcnN5d3hLTGllTEFJcWcyY1JmbmxlakJiUU41amFvQzRneDNkS2NrNWljVXdwOEFFdVZJU1N4TDEwb3FBK29HOGYyaGEyUE1MU2pMejg0Q2FtRUFKZ0JNYVFJeFFqR3dRWXhFMDVCZ2ROR0FoQWVVTHdQbklHZ1JLODBDdVR0Rk56aWpOeTlZMU5rS1RaeTdJUzBleWp3SHFPMFpvWk1IWXJCQW5NLzJIYXVlRUJWNXFja1krbE0yV21wZWVtWmNLQzdDMHpIUzk4c3lVa2d4WUdJQUVNbEl6MHpOS1lFR1ZrNWlVbWdOelNFcHFHWlRKQnd4cmNGRHJGUlJsNXNGVWN3RkZpL1ZLOGtzU1lWcTRrdk56WUNMZ1VHWDRCd0FyVUdpN2NRTUFBQT09In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9319490\,\2\:\0.7339128\,\3\:\0.8005471\,\4\:\2\,\5\:\5.25\},{\1\:\0.8268013\,\2\:\0.8051008\,\3\:\0.7007119\,\4\:\3\,\5\:\3.50\},{\1\:\0.7471067\,\2\:\0.8498725\,\3\:\0.6261385\,\4\:\4\,\5\:\2.75\},{\1\:\0.7035107\,\2\:\0.8643221\,\3\:\0.5875476\,\4\:\5\,\5\:\2.25\},{\1\:\0.6566107\,\2\:\0.8740374\,\3\:\0.5416347\,\4\:\7\,\5\:\1.75\},{\1\:\0.6463625\,\2\:\0.8733618\,\3\:\0.5299147\,\4\:\8\,\5\:\1.50\},{\1\:\0.6403835\,\2\:\0.8632109\,\3\:\0.5133152\,\4\:\10\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[7]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qY3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTnlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFpZGk4eVoxbGFPRE0wTWpVNWNUbDVhbUo2ZFcxTVNGcFFNeTlOU0ZOeE5UazBMemx6Tkd0dVVXaHpURmhQTW1aUVNEVm5OalprYm1KUU9XdDNaRlZ5VjNobmNUZEtPV3Q2TXpsbWIzVnZSVEV2S3pnMmNISjRWM1E0VHlzMVkxaDJhRFphYldJM1pDOXlWVVp1ZW1SaU1WRjJOekUzVG1reFNqVnJjamRHTDNjeVdpc3dRMkp1Ymk4emNsQXhZV2d4TjNvd04wWTRkakpUTHpNclNIZEJXRkF2VEVaUk9FVndPVkVyY3pNclYzVkRabTh6SzJSa09XODVMMEo1TlRsMlRVUkZMM1JITVhJeFl6VkVjWEphVURkUk9VbHNPV1oyWTNvcmQxUjJka28yWmpWWGRYZG1Va2R1VDNSTWFtcENkRlJNUXpsSlVIaEZlR2R1ZDA0NVEzWlZXRk5KZDBScFRHeG5aR3BwU1UxdlEwSkJkeXRWV205UVUxUkNSR0V2Wnl0VkwyZEhiSFo2UWtGQlZYSm5jMlZaYkRWeFdWZEJlR3REV1VseloyZHBlRUoyYzBkMVZVUmFTRlZJUm1oaFYwcFNZV2R4VlhvcmVuSkRTazVwZVZNd2NIRnZVM2wxVkV4RVJXOTFTelE0UldseFJGcDNSblZYV0RZNFJuTkJXRzFRY1ZGSWFVUnVXakJ3ZVZSdVNrSmlSRzVCU1ZRMVJYQktURVZ1VlZONWMwTTJaMlo1TDNGR2NGbGpPSFpMVFc1TmVuZE9jVmxuU1d4QlJUVnZRVVJHUTAxaVNrSnFSVmhSYTBkT01EQkpRMFpDU2xGMlFVOWphbUY0UVc5NlVVODFUMnRWTTA5aFRUQk1NWFpZTWtGb1RtNXlhMmRNZUROS1VHZGhiemQ0YVdoclVWWnFjekJMWTNwUVVXWnhjREJVUm01cGNIbFNialZWUkZwaVlXdzFObHBzTkhGTVRVUlRUWFJRTVhscVRsUlRha3BuV1ZGQlUzbEZhazVVVFRodloxRldWbFJ0U2xOaFp6ZE5TVk50Y0ZwV1FXMUlla056ZDFWSGRGWXhRMVZ0VVdSVWVsRlZWVXhrV1hKNVV6bEthRWR1YUZOek4xQm5XVzFCVVRWWWFFaDNRbGRqTjFreVkxRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuOTMzNjEyOVwiLFwiMlwiOlwiMC43MzM3NDQ3XCIsXCIzXCI6XCIwLjgwMTg2NDdcIixcIjRcIjpcIjJcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiMC44MjU4Mjk2XCIsXCIyXCI6XCIwLjgwNjc1NzhcIixcIjNcIjpcIjAuNjk5NDMwNlwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjc0NjQ2NTRcIixcIjJcIjpcIjAuODUwNTkyOFwiLFwiM1wiOlwiMC42MjQ0Mjg2XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNzA1Mjk1N1wiLFwiMlwiOlwiMC44NjI1OTI4XCIsXCIzXCI6XCIwLjU4ODc0MDNcIixcIjRcIjpcIjVcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC42NTI4MTY5XCIsXCIyXCI6XCIwLjg3NTc1OTBcIixcIjNcIjpcIjAuNTM4Nzg5OFwiLFwiNFwiOlwiN1wiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjY0NDYzMzJcIixcIjJcIjpcIjAuODc0NTM5NVwiLFwiM1wiOlwiMC41MjkwODg5XCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNjM4MTM3OFwiLFwiMlwiOlwiMC44NjM4NjA3XCIsXCIzXCI6XCIwLjUxMTAwNjJcIixcIjRcIjpcIjEwXCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbN119LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjcsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNyDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1idi8yZ1laODM0MjU5cTl5amJ6dW1MSFpQMy9NSFNxNTk0LzlzNGtuUWhzTFhPMmZQSDVnNjZkbmJQOWt3ZFVyV3hncTdKOWt6Mzlmb3VvRTEvKzg2cHJ4V3Q4Tys1Y1h2aDZabWI3ZC9yVUZuemRiMVF2NzE3TmkxSjVrcjdGL3cyWiswQ2Jubi8zclAxYWgxN3owN0Y4djJTLzMrSHdBWFAvTEZROEVwOVErczMrV3VDZm8zK2RkOW85L0J5NTl2TURFL3RHMXIxYzVEcXJaUDdROUlsOWZ2Y3ord1R2dko2ZjVXdXdmUkduT3RMampCdFRMQzlJUHhFeGdud045Q3ZVWFNJd0RpTGxnZGppSU1vQ0JBdytVWm9QU1RCRGEvZytVL2dHbHZ6QkFBVXJnc2VZbDVxWVdBeGtDWUlzZ2dpeEJ2c0d1VURaSFVIRmhhV0pSYWdxVXorenJDSk5peVMwcHFvU3l1VExERW91SzQ4RWlxRFp3RnVXWDY4RnNBWG1QcVFIaURuWjBweVRuSkJiRG5BSVQ1RXBKTEVuVVN5c0M2Z2Z5L3FGcFljOHZLTW5NendOcVlnSWxBRTVvQURGQ01iSkJqRVhRa0dOMDBJQ0ZCSlF2QU9jamF4QW96UU81T2tVM09hTTBMMXZYMkFoTm5ya2dMeDNKUGdhbzd4aWhrUVZqczBLY3pQUWZxcDBURm5pcHlSbjVVRFpiYWw1NlpsNHFMTURTTXRQMXlqTlRTakpnWVFBU3lFak5UTThvZ1FWVlRtSlNhZzdNSVNtcFpWQW1IekNzd1VHdFYxQ1VtUWRUelFVVUxkWXJ5UzlKaEduaFNzN1BnWW1BUTVYaEh3QldjN1kyY1FNQUFBPT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9336129","2":"0.7337447","3":"0.8018647","4":"2","5":"5.25"},{"1":"0.8258296","2":"0.8067578","3":"0.6994306","4":"3","5":"3.50"},{"1":"0.7464654","2":"0.8505928","3":"0.6244286","4":"4","5":"2.75"},{"1":"0.7052957","2":"0.8625928","3":"0.5887403","4":"5","5":"2.25"},{"1":"0.6528169","2":"0.8757590","3":"0.5387898","4":"7","5":"1.75"},{"1":"0.6446332","2":"0.8745395","3":"0.5290889","4":"8","5":"1.50"},{"1":"0.6381378","2":"0.8638607","3":"0.5110062","4":"10","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[7]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOeXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk55RERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlluWXZNamh4V0c1Rk1qWkdNamM1UzJWbU5rTnVNVkJKTDNadE4zSnJUa3AzV2k5MGJpOVZZeko0UzFSd1YwZ3ZOVVl6TTI0emMySldkR3N2VjFKSlUwdE1aaXR3THpKVWNuRTNiVW80T0haM2RsVXZjakV4Tmk4MGNFUm5kak5NY1RkWlRtUnlkVzR5VEM5WGJqZG9hVFZoVjFnNWNTOVlNbGx4VEZCWFZ6Sm1PRTlUUmk5a1IwcGtNeXM1VW1aVWFHeFFVa2dyZUdaNk1uQnRSWEl6TkVoTE55ODFZVWxXVFRGblUzcDBieTlwTVZreVRWSmxZbHAySzBWWU1IcDRORTFLT0Nzd1l6Tk5lSE42ZWtkbVlWQXZVMHN2TVc5M2NtTk1LM2RWZFV4c1VXdHlWMlYzWm14UGNYQmlibGRMUVdWeWJFSmxhMGhaYVdGM2VqUkZLMmhtYjB4S1RWbENlRVozZDA5NGVFVkhZMFJCWjFGa1MzTXdSbkJLWjJoMEwzZGtTeTgwUkZOWWVHbG5RVU5ZZDFkUVRWTmpNVTlNWjFGM1FuTkZWVkZSV2xsbk16SkNXRXRLYzJweFRHbDNUa3hGYjA1UldFdGFMMW94YUVWdGVEVktXVlZXVlV4YVdFcHNhR2xWV0VZNFYwRlNWa0p6TkdrdlRFdzVWME15WjB4NlNERkJRbmhDZW5VMlZUVktla1Z2ZEdoVWIwVktZM0ZWYTJ4cFZIRndVbFZDT1ZGT05TODVRekJ6VDJOWWJFZFViVFYzUlRGTldVVlRRVU5qTUdkQ2FXaEhUbXRuZUdsS2IzbEVSVFpoVFVKRFFYTnZXR2RRVDFKT1VXbFZOVzlHWTI1aFMySnVSa2RoYkRZeGNtSkpVVzE2TVhsUmJEUTFhMGgzVUZWa05IcFJlVWxMZUZkVFJrOWFkbTlRTVdNMFNrTTNlbFUxU1hnNFMwcHpkRTVUT0RsTmVUaFdSbTFDY0cxbGJEWTFXbXR3U2xKdGQwMUJRVXBhUzFKdGNHMWxWWGRKU1hGS2VrVndUbEZtYld0S1ZGVk5hV2xVUkhocVZ6UkxSRmRMZVdwTGVrbFBjRFZuUzB0R2RYVldOVXBqYTNkeVVuZEtaV1p1ZDBWVVFXOWpjbmRFZDBFNVRGcEtUbU5SVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjkzMjEwNzRcXCxcXDJcXDpcXDAuNzM0MDg3OVxcLFxcM1xcOlxcMC44MDExMDU4XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDAuODI0ODE3NlxcLFxcMlxcOlxcMC44MDcyODAzXFwsXFwzXFw6XFwwLjY5ODYyNTJcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43NDc4Njg5XFwsXFwyXFw6XFwwLjg0OTU1NjhcXCxcXDNcXDpcXDAuNjI2ODQxNlxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjcwNDY4NDZcXCxcXDJcXDpcXDAuODY1MDE5NFxcLFxcM1xcOlxcMC41ODkwMzk2XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNjU0MTE5NVxcLFxcMlxcOlxcMC44NzU1NDA5XFwsXFwzXFw6XFwwLjU0MDMyOTBcXCxcXDRcXDpcXDdcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42NDUwNTk3XFwsXFwyXFw6XFwwLjg3MzU2MDdcXCxcXDNcXDpcXDAuNTI4NDY5NFxcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjY0MTkxMThcXCxcXDJcXDpcXDAuODYyNjExM1xcLFxcM1xcOlxcMC41MTQzMDQyXFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzddfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NywibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNyDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNYnYvMjhxWG5FMjZGMjc5S2VmNkNuMVBJL3ZtN3JrTkp3Wi90bi9VYzJ4S1RwV0gvNUYzM24zc2JWdGsvV1JJU0tMZitwLzJUcnE3bUo4OHZ3dlUvcjExNi80cERndjNMcTdZTmRydW4yTC9XbjdoaTVhV1g5cS9YMllxTFBXVzJmOE9TRi9kR0pkMys5UmZUaGxQUkgreGZ6MnBtRXIzNEhLNy81YUlWTTFnU3p0by9pMVkyTVJlYlp2K0VYMHp4NE1KOCswYzNNeHN6ekdmYVAvU0svMW93cmNMK3dVdUxsUWtyV2V3ZmxPcXBibldLQWVybEJla0hZaWF3ejRFK2hmb0xKTVlCeEZ3d094eEVHY0RBZ1FkS3MwRnBKZ2h0L3dkSy80RFNYeGlnQUNYd1dQTVNjMU9MZ1F3QnNFVVFRWllnMzJCWEtKc2pxTGl3TkxFb05RWEtaL1oxaEVteDVKWVVWVUxaWEpsaGlVWEY4V0FSVkJzNGkvTEw5V0MyZ0x6SDFBQnhCenU2VTVKekVvdGhUb0VKY3FVa2xpVHFwUlVCOVFONS85QzBzT2NYbEdUbTV3RTFNWUVTQUNjMGdCaWhHTmtneGlKb3lERTZhTUJDQXNvWGdQT1JOUWlVNW9GY25hS2JuRkdhbDYxcmJJUW16MXlRbDQ1a0h3UFVkNHpReUlLeFdTRk9adm9QMWM0SkM3elU1SXg4S0pzdE5TODlNeThWRm1CcG1lbDY1WmtwSlJtd01BQUpaS1JtcG1lVXdJSXFKekVwTlFmbWtKVFVNaWlURHhqVzRLRFdLeWpLeklPcDVnS0tGdXVWNUpja3dyUndKZWZud0VUQW9jcndEd0E5TFpKTmNRTUFBQT09In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9321074\,\2\:\0.7340879\,\3\:\0.8011058\,\4\:\2\,\5\:\5.25\},{\1\:\0.8248176\,\2\:\0.8072803\,\3\:\0.6986252\,\4\:\3\,\5\:\3.50\},{\1\:\0.7478689\,\2\:\0.8495568\,\3\:\0.6268416\,\4\:\4\,\5\:\2.75\},{\1\:\0.7046846\,\2\:\0.8650194\,\3\:\0.5890396\,\4\:\5\,\5\:\2.25\},{\1\:\0.6541195\,\2\:\0.8755409\,\3\:\0.5403290\,\4\:\7\,\5\:\1.75\},{\1\:\0.6450597\,\2\:\0.8735607\,\3\:\0.5284694\,\4\:\8\,\5\:\1.50\},{\1\:\0.6419118\,\2\:\0.8626113\,\3\:\0.5143042\,\4\:\10\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[7]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qY3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTnlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFpZGk4eVZYUjJZWFZZWXpJeVlqaHhNV1ZFZDIxV2NHa3ZMM2xHVkRsUmNGbDZVRGRhT0RCaGNqQTJLMjVIZGk5c1QyeE1hblV5TUVndldsQXhhbEEwZW1SRFdWcDJLMnRxY2xabmN6Tk5jVmhRTDNwSGNrNXFjM014VERkR09HVlVkSEo2SzB4TFVTOVhjMm81V0RBNVJuTXZjMWcyT1c5UE0zRnZOR0ZVT1RaNEszbE5WRTR2TTNKR0x5OVhiRXRyWVROc1F5OTJXRGd6VGxObU9ESXhaM1YwTDA5VkwydFRZM292VGxCMGJrOWtZbVZuY0haNU4wbzVkMEpySzFORmJqbHFMeXRwYzFGUlpuWkhhRGMzYURaR1ExRmtaREZPZEdjdkswMXhMeTlFY25KWWRuTklkV05LTDNjdmRrOUJkbGg1WjNaUlJFMVNVRmsxTUVObVVYWXdSa1YxVFVGWmFUWlpTRkUyYVVSSFJHZDNRVTlzTW1GQk1FVTBVekl2ZDA5c1pqQkVjRXgzZUZGblFrbzBja2h0U25WaGJrWlJTVmxCTWtOTFNVbEZkVkZpTjBGeWJFMHdVbFpHZUZsdGJHbFZiV2RNYkUwdmN6WjNjVkpaWTJ0MVMwdHhSbk55YzNsM2VFdE1hV1ZNUVVseFp6SmpVbVp1YkdWcVFtSlJUalZxWVc5RE5HZDRNMlJMWTJzMWFXTlZkM0E0UVVWMVZrbFRVM2hNTVRCdmNVRXJiMGM0WmpKb1lUSlFUVXhUYWt4Nk9EUkRZVzFGUVVwblFrMWhVVWw0VVdwSGQxRlplRVV3TlVKblpFNUhRV2hCWlZWTWQxQnVTVWRuVWtzNE1FTjFWSFJHVG5wcGFrNTVPVmt4VG10TFZGcDVOMGxUTUdWNWFuZEljVTh3V205YVRVaFpja0pCYmswdk1raGhkV1ZGUWxZMWNXTnJXU3RzVFRKWGJYQmxaVzFhWTB0RE4wTXdla2hUT1RoemVWVnJaM2haUjBsQlJVMXNTWG93ZWs1TFdVVkhWbXMxYVZWdFowNTZVMFZ3Y1VkYVZFcENkM2h5WTBaRWNrWlNVbXcxYzBaVlkzZEdSbWt2VmtzNGEzTlRXVlp4Tkd0MlRucFpRMHhuVlVkWU5FSjNRWEpWUjJrM1kxRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuOTMxOTQ5MFwiLFwiMlwiOlwiMC43MzM5MTI4XCIsXCIzXCI6XCIwLjgwMDU0NzFcIixcIjRcIjpcIjJcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiMC44MjY4MDEzXCIsXCIyXCI6XCIwLjgwNTEwMDhcIixcIjNcIjpcIjAuNzAwNzExOVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjc0NzEwNjdcIixcIjJcIjpcIjAuODQ5ODcyNVwiLFwiM1wiOlwiMC42MjYxMzg1XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNzAzNTEwN1wiLFwiMlwiOlwiMC44NjQzMjIxXCIsXCIzXCI6XCIwLjU4NzU0NzZcIixcIjRcIjpcIjVcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC42NTY2MTA3XCIsXCIyXCI6XCIwLjg3NDAzNzRcIixcIjNcIjpcIjAuNTQxNjM0N1wiLFwiNFwiOlwiN1wiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjY0NjM2MjVcIixcIjJcIjpcIjAuODczMzYxOFwiLFwiM1wiOlwiMC41Mjk5MTQ3XCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNjQwMzgzNVwiLFwiMlwiOlwiMC44NjMyMTA5XCIsXCIzXCI6XCIwLjUxMzMxNTJcIixcIjRcIjpcIjEwXCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbN119LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjcsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNyDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1idi8yVXR2YXVYYzIyYjhxMWVEd21WcGkvL3lGVDlRcFl6UDdaODBhcjA2K25Hdi9sT2xManUyMEgvWlAxalA0emRDWVp2K2tqclZnczNNcVhQL3pHck5qc3MxTDdGOGVUdHJ6K0xLUS9Xc2o5WDA5RnMvc1g2OW9PM3FvNGFUOTZ4K3lNVE4vM3JGLy9XbEtrYTNsQy92WDgzTlNmODIxZ3V0L09VL2tTY3ovTlB0bk9kYmVncHZ5N0o5d0JrK1NFbjlqLytpc1FRZnZHaDc3aDZGQ1FkZDFOdGcvK01xLy9EcnJYdnNIdWNKL3cvdk9Bdlh5Z3ZRRE1SUFk1MENmUXYwRkV1TUFZaTZZSFE2aURHRGd3QU9sMmFBMEU0UzIvd09sZjBEcEx3eFFnQko0ckhtSnVhbkZRSVlBMkNLSUlFdVFiN0FybE0wUlZGeFltbGlVbWdMbE0vczZ3cVJZY2t1S0txRnNyc3l3eEtMaWVMQUlxZzJjUmZubGVqQmJRTjVqYW9DNGd4M2RLY2s1aWNVd3A4QUV1VklTU3hMMTBvcUErb0c4ZjJoYTJQTUxTakx6ODRDYW1FQUpnQk1hUUl4UWpHd1FZeEUwNUJnZE5HQWhBZVVMd1BuSUdnUks4MEN1VHRGTnppak55OVkxTmtLVFp5N0lTMGV5andIcU8wWm9aTUhZckJBbk0vMkhhdWVFQlY1cWNrWStsTTJXbXBlZW1aY0tDN0MwekhTOThzeVVrZ3hZR0lBRU1sSXowek5LWUVHVms1aVVtZ056U0VwcUdaVEpCd3hyY0ZEckZSUmw1c0ZVY3dGRmkvVks4a3NTWVZxNGt2TnpZQ0xnVUdYNEJ3QXJVR2k3Y1FNQUFBPT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9319490","2":"0.7339128","3":"0.8005471","4":"2","5":"5.25"},{"1":"0.8268013","2":"0.8051008","3":"0.7007119","4":"3","5":"3.50"},{"1":"0.7471067","2":"0.8498725","3":"0.6261385","4":"4","5":"2.75"},{"1":"0.7035107","2":"0.8643221","3":"0.5875476","4":"5","5":"2.25"},{"1":"0.6566107","2":"0.8740374","3":"0.5416347","4":"7","5":"1.75"},{"1":"0.6463625","2":"0.8733618","3":"0.5299147","4":"8","5":"1.50"},{"1":"0.6403835","2":"0.8632109","3":"0.5133152","4":"10","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[7]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjRnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqb3hNaXdpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjoxMiwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qY3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTnlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFpZGk4eU9IRllia1V5TmtZeU56bExaV1kyUTI0eFVFa3ZkbTAzY210T1NuZGFMM1J1TDFWak1uaExWSEJYU0M4MVJqTXpiak56WWxaMGF5OVhVa2xUUzB4bUszQXZNbFJ5Y1RkdFNqZzRkbmQyVlM5eU1URTJMelJ3UkdkMk0weHhOMWxPWkhKMWJqSk1MMWR1TjJocE5XRlhXRGx4TDFneVdYRk1VRmRYTW1ZNFQxTkdMMlJIU21Rekt6bFNabFJvYkZCU1NDdDRabm95Y0cxRmNqTTBTRXMzTHpWaFNWWk5NV2RUZW5Sdkwya3hXVEpOVW1WaVduWXJSVmd3ZW5nMFRVbzRLekJqTTAxNGMzcDZSMlpoVUM5VFN5OHhiM2R5WTB3cmQxVjFUR3hSYTNKWFpYZG1iRTl4Y0dKdVYwdEJaWEpzUW1WclNGbHBZWGQ2TkVVcmFHWnZURXBOV1VKNFJuZDNUM2g0UlVkalJFRm5VV1JMY3pCR2NFcG5hSFF2ZDJSTEx6UkVVMWg0YVdkQlExaDNWMUJOVTJNeFQweG5VWGRDYzBWVlVWRmFXV2N6TWtKWVMwcHphbkZNYVhkT1RFVnZUbEZZUzFvdldqRm9SVzE0TlVwWlZWWlZURnBZU214b2FWVllSamhYUVZKV1FuTTBhUzlNVERsWFF6Sm5USHBJTVVGQ2VFSjZkVFpWTlVwNlJXOTBhRlJ2UlVwamNWVnJiR2xVY1hCU1ZVSTVVVTQxTHpsRE1ITlBZMWhzUjFSdE5YZEZNVTFaUlZOQlEyTXdaMEpwYUVkT2EyZDRhVXB2ZVVSRk5tRk5Ra05CYzI5WVoxQlBVazVSYVZVMWIwWmpibUZMWW01R1IyRnNOakZ5WWtsUmJYb3hlVkZzTkRWclNIZFFWV1EwZWxGNVNVdDRWMU5HVDFwMmIxQXhZelJLUXpkNlZUVkplRGhMU25OMFRsTTRPVTE1T0ZaR2JVSndiV1ZzTmpWYWEzQktVbTEzVFVGQlNscExVbTF3YldWVmQwbEpjVXA2UlhCT1VXWnRhMHBVVlUxcGFWUkVlR3BYTkV0RVYwdDVha3Q2U1U5d05XZExTMFoxZFZZMVNtTnJkM0pTZDBwbFptNTNSVlJCYjJOeWQwUjNRVGxNV2twT1kxRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuOTMyMTA3NFwiLFwiMlwiOlwiMC43MzQwODc5XCIsXCIzXCI6XCIwLjgwMTEwNThcIixcIjRcIjpcIjJcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiMC44MjQ4MTc2XCIsXCIyXCI6XCIwLjgwNzI4MDNcIixcIjNcIjpcIjAuNjk4NjI1MlwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjc0Nzg2ODlcIixcIjJcIjpcIjAuODQ5NTU2OFwiLFwiM1wiOlwiMC42MjY4NDE2XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNzA0Njg0NlwiLFwiMlwiOlwiMC44NjUwMTk0XCIsXCIzXCI6XCIwLjU4OTAzOTZcIixcIjRcIjpcIjVcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC42NTQxMTk1XCIsXCIyXCI6XCIwLjg3NTU0MDlcIixcIjNcIjpcIjAuNTQwMzI5MFwiLFwiNFwiOlwiN1wiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjY0NTA1OTdcIixcIjJcIjpcIjAuODczNTYwN1wiLFwiM1wiOlwiMC41Mjg0Njk0XCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNjQxOTExOFwiLFwiMlwiOlwiMC44NjI2MTEzXCIsXCIzXCI6XCIwLjUxNDMwNDJcIixcIjRcIjpcIjEwXCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbN119LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjcsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNyDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1idi8yOHFYbkUyNkYyNzlLZWY2Q24xUEkvdm03cmtOSndaL3RuL1VjMnhLVHBXSC81RjMzbjNzYlZ0ay9XUklTS0xmK3AvMlRycTdtSjg4dnd2VS9yMTE2LzRwRGd2M0xxN1lOZHJ1bjJML1duN2hpNWFXWDlxL1gyWXFMUFdXMmY4T1NGL2RHSmQzKzlSZlRobFBSSCt4ZnoycG1FcjM0SEs3LzVhSVZNMWdTenRvL2kxWTJNUmViWnYrRVgweng0TUo4KzBjM014c3p6R2ZhUC9TSy8xb3dyY0wrd1V1TGxRa3JXZXdmbE9xcGJuV0tBZXJsQmVrSFlpYXd6NEUraGZvTEpNWUJ4Rnd3T3h4RUdjREFnUWRLczBGcEpnaHQvd2RLLzREU1h4aWdBQ1h3V1BNU2MxT0xnUXdCc0VVUVFaWWczMkJYS0pzanFMaXdOTEVvTlFYS1ovWjFoRW14NUpZVVZVTFpYSmxoaVVYRjhXQVJWQnM0aS9MTDlXQzJnTHpIMUFCeEJ6dTZVNUp6RW90aFRvRUpjcVVrbGlUcXBSVUI5UU41LzlDMHNPY1hsR1RtNXdFMU1ZRVNBQ2MwZ0JpaEdOa2d4aUpveURFNmFNQkNBc29YZ1BPUk5RaVU1b0ZjbmFLYm5GR2FsNjFyYklRbXoxeVFsNDVrSHdQVWQ0elF5SUt4V1NGT1p2b1AxYzRKQzd6VTVJeDhLSnN0TlM4OU15OFZGbUJwbWVsNjVaa3BKUm13TUFBSlpLUm1wbWVVd0lJcUp6RXBOUWZta0pUVU1paVREeGpXNEtEV0t5akt6SU9wNWdLS0Z1dVY1SmNrd3JSd0plZm53RVRBb2Nyd0R3QTlMWkpOY1FNQUFBPT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9321074","2":"0.7340879","3":"0.8011058","4":"2","5":"5.25"},{"1":"0.8248176","2":"0.8072803","3":"0.6986252","4":"3","5":"3.50"},{"1":"0.7478689","2":"0.8495568","3":"0.6268416","4":"4","5":"2.75"},{"1":"0.7046846","2":"0.8650194","3":"0.5890396","4":"5","5":"2.25"},{"1":"0.6541195","2":"0.8755409","3":"0.5403290","4":"7","5":"1.75"},{"1":"0.6450597","2":"0.8735607","3":"0.5284694","4":"8","5":"1.50"},{"1":"0.6419118","2":"0.8626113","3":"0.5143042","4":"10","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[7]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBNWtBQUFFekNBSUFBQUEwTEZEUUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzNkZjJ3ajZYblk4ZWVWdEx0bjQrTDhzSXJhMW02d2g1SXFvQ3B4Z0NPaUh0VUZla1VMaHhJc0tLaWkxb2ZtTmdVS0VZY1dwdGJCR2tWdi9WZDIwZFNMM21wYXRGc0tMZEM5R0dkQTNnS0NBbkhTdFBBVnZZcTNDdFNtQVZRaEZTZTViYlN5RDYzUXhPZkV2VDFKZlB2SGtCSkZVZFNJZkllY2wvUDlZSURsajFjUFgybjU4SDFtK000N1Ntc3RBQUFBZ0lYNnV0MEJBQUFBb0VYVXNnQUFBTEFWdFN3QUFBQnNSUzBMQUFBQVd3MTA3SlZTcVZUSFhnc3h0TEd4MGUwdVdJbkVSQmpJeHphUm1PZ2syeE8yYzdXc1hQeVB0YmUzTnpnNGFMWVB4T3pKbUh6dXQ2UHJpUm1SZDFIblkvWnFKOGxISTFvb0w2eDRSMWtYdHVlNzJnTUp5eHdEQUFBQTJJcGFGZ0FBQUxicTZCd0QzLzZIaVlBdGYxeGsvOE5BTFE5MU9XRE1GMFUrL242Z2xtVUpHdlBUSWo4S0ZqTjRQNitJL1BCN2dWcjJxNkE3Sk1IN2VSQzRuNWRGUGdyV3owTUplbFdPZnBFL0RoYnpKNyt3RXpBbXp2V2JmL2l6RjJqOVVhQlduK2pBbnpBL0NOUnFYL2NIRFNnaWZ4S29sYnBBeEVBeEI5VGhCUUlHKzhVUDlVV09Pd1RvNU9HRkRtUUUrMHQrSmZFN0Y0aUpZTW9mRGdkdi9GTWk1V0NEWnZBQjdpZEVEb0xGRkpGeTRMSGpNeUtmQkJ5UEFuZFZMakxNOVFkT2dSOFRlUjRzcG9nY1NORDAvNVRJbndXdEhJS09uc0ZIWkJINXpCZitLR2pUeU9PNExBQUFBR3hGTFFzQUFBQmJVY3NDQUFEQVZ0U3lBQUFBc0JXMUxBQUFBR3hGTFFzQUFBQmJVY3NDQUFEQVZ0U3lBQUFBc0JXMUxBQUFBR3hGTFFzQUFBQmJVY3NDQUFEQVZ0U3lBQUFBc0JXMUxBQUFBR3hGTFFzQUFBQmJVY3NDQUFEQVZtM1dzcnVQYzFOVFV3L1dUOTdQUGQ1dHQxOEFXa2RpQWhFVWJtTDJmYjdrYjBhaUFSWnBzNVlkbW5FZXZ2NVM5ZDd1NDIvdXZMYXlzdkxhempjWk5JSHVJVEdCQ0FveE1XdExXTXBaeE0yQXdWaTc3NzkzUGUySXlGajYranZ2Nzg3TURQbVBwMUlwLzhiZTNwNkkvTGpCbDBTOCtlOG9OQmN3TVlFMjhVYTZrSUNKK1ZQZDZoOTZYUzhsck1sYVZ1VDZ0YXNpSW5MMTJ2V2Q0MGMzTmpaRUpKVktEUTRPaXNqK2gwWmZFekhtdjZOd25rQ0pLUjkxbzJ2b0llVGpCUVZLekRJakpzTFJTd2xyOXR5dnB6dlBSRVRrMmM1VG8zRUJ0SUhFQkNMSVpHS1d2NTlzZUJ1SUE1TzE3TkFyTjU0VzEwVmt2ZmoweGl0REJpTURhQm1KQ1VTUThjUXNmei9wYisySEF1elM3aHlEOVFkdnZQMkJTTzdhUTJkbWFHam1OWm1hbXBLWFhuL29NR0lDM1VOaUFoRkVZZ0poVUZycnpyeFNLcFh5cHdIdGY1Z3dIdnhRbDQzSExJdjVtR0gwczErWlh5VDRJSVIrSG9yNWQ5cFBmcUV5eSt6bzNZV0xPdnJUL2VZZi9xeng0Sjlvc3pQeVpWLzNtdzBvSXNwMHdBRjFhRHFrSEdyRGFYNFl3dUxpWDBuOGpuK0RmR3pmMGQrdy9PRndHUEhER09CRXBCekMySEVRVGxmN3cxbGYvMERDU1A5UTZyVFBmT0dQL0JzOWtMQmNLd0VBQUFDMm9wWUZBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaUtXaFlBQUFDMm9wWUZBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaUtXaFlBQUFDMm9wWUZBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaUtXaFlBQUFDMkd1ajhTLzcrL3NmR1kvNllPalFlczE4WkR5bVhKWVNnMm56SUEvTWhwVCtFbUREb2N3TWZHWS81YVdYNHJSVENtMTBHcEd3MllCZ2ZIZnZhY05BUStvaFFGSDUwSll5d24ra3pQeENMeUJWbFBrY3ZLOE1aNnVzWDgyV0RpT2xQRXhFUjZRL2hyeW9pUHhORzBDN2h1Q3dBQUFCc1JTMExBQUFBVzFITEFnQUF3RmJVc2dBQUFMQVZ0U3dBQUFCc1JTMExBQUFBVzFITEFnQUF3RmJVc2dBQUFMQVZ0U3dBQUFCc1JTMExBQUFBVzFITEFnQUF3RmJVc2dBQUFMQVZ0U3dBQUFCc1JTMExBQUFBVzFITEFnQUF3RlptYTluZHg3bXBxYW1wcWR6alhhTnhBYlNCeEFRaWlNUUV6REJheSs2K3YzUGo0Y3JLeXNNYjd5MnRtd3dNb0hVa0poQkJKQ1pneUlEWmNFOTNub2tNUGR1NW5wNDVmakNWU3ZrMzl2YjJ6TDRjWW81M1ZFQWtKanFBTjlKRmtaam9vbDU2Z3hrOUxqczA0NlNMVTFOVHhmU3RzWnFITnpZMk5qWTJSR1J3Y0hCd2NORGtLeUxlQnF1NjNaRm9JekhSRWVUanhaQ1k2S3BlU2xqVDgyVjMwaXNyYjhxOUIzeGhBa1FHaVFsRUVJa0ptR0cwbGwxZmVrK3Vpb3pkZWxPS3BDWVFFU1FtRUVFa0ptQ0kwZm15WTdNMzNubGo2bTBSZWZYTkZaT0JBYlNPeEFRaWlNUUVEREY3N3RmUWpMTXljMzR6QUoxRVlnSVJSR0lDWm5DdEJBQUFBTmlLV2hZQUFBQzJvcFlGQUFDQXJhaGxBUUFBWUN0cVdRQUFBTmlLV2hZQUFBQzJvcFlGQUFDQXJhaGxBUUFBWUN0cVdRQUFBTmlLV2hZQUFBQzJvcFlGQUFDQXJhaGxBUUFBWUN0cVdRQUFBTmhxb1BNditaY3VmZHA0ekdlSFB6UWU4eE50UEtUOHFWYm1nNGJnWTkxdlBPWWxWVFllODNQR0k4Yll5NWN2RzQrNVY5NDNHM0JmbTAvTHNoaU9lUmpDUjRmeDVMbXNRdWdsUXZERkszdGhoUDFnLzhVd3d2NUltLzhZK1VFNWxJTnVJUjNKZXk3bVI4OEI4eDhBSWlJL0UwYlFMdUc0TEFBQUFHeEZMUXNBQUFCYlVjc0NBQURBVnRTeWlDZlBHVmUxeGgzdnhPTlo5L1RQdU5uanB2N3RjY2R6SGNlclBsT2owYzhEYU95c2ZPeGtCenIrbW9DdGdnNlVOUS9WTmpVL1lsTExJcDRTdWJYU1Fscm1DbHByclF0enhmbGsxdlVmMTZXRnRDemVyUi9ZUE9mdW9xUVhTbm90bDNDekU1c0xKYTBmeWMySkpSSEo1SFZwSVoxZUtHbGZhV0drRzc4VVlLbXo4ckZEM0d4eXZ0aTVsd01zRjJ5Z3JEN21Mc3ZjM09MeWNVYWJIekdwWlFHUnpPMkZ0R3h1SHlYbDdNS0N6TjgvTVpaNnF6SzdrRDYrUHpxY0VFbmsxZ3F6RGVJbGNybE1hSjBGZWx4OVBvYi9ndmxTYlhJRENDREFRQ2tpNGk3TGRINzZSREZicC8wUmsxb1dFTSs1T1Y5TXowNGU3VWJLY083T3ljeHo3MjhOVHg3ZHkwelBMVTc0MzRwa2NzZDduOVZvRGhNTWdKYWR6TWZLdDVsWngzWDk0cmJ5L1dUV2NiS081OS9KdXBXSC9lODFqNzdCOUkvdHVsbVZkWnh4LzluNkwwQXI5emt1QzF6WU9RT2x6OXNlbWM1STVzeGkxc2lJU1MyTFdGdWNVRXFwNU5Mc2lXOUVSRVF5dHhjMmo3NCs4Wnpsa2R1MSs0Mlp2QzdNTFU2Y25CTlVuRS82bytKV0o3b085SndHK2VqZVg1b3RhYTJudCs1dWk0am5qTjhkS1dtdDlmVFcvR1lsRTBXazV0aXE1OXpkWENocFhWcEliMjU3bmpNK3NTaUxTL0pJNjdWY0tldi9kR0YwL3FiamllZU1UMGhCYTgxaFdhQVZ6UWRLRVJGdlZZWXpJZzJLV1pNakpyVXNZbTJ1b0hWaHpwOHdVQ2VSdXpOYStmckVXNVhwK3FPdmtzbHJYVnFRK2VSUk9WdVovY05rV2FBMURmSXhPU0x6U1RYdUpQTnJ1WVI0cTB0U09XQ2JIRG1qL0V6azF0Wnk0b3duNTR2RnJWSWl0MWFZazdrN3VZU0llTnViL3ZnNXNTakZyWkszdWlRTHR6TWlrcGljcFpnRkx1NjhnZEpiWFpxZlVNcFB1cFBGck1rUmsxb1dzWmZKRjJTaTBZa21tZW01eGJ1T0orNzlyZUdUKzVwdTFtK2Z5SzBWNW9wYnBSTlBNbGtXYUYxZFBpWnlhMXFYWnBlU3dVOTFkck5LM1pSSGpZKzFWazR2MDFyblNWT2dmV2NQbENMaXJjcWRhc2JwVXMweDNHTkdSa3hxV2VETWFqWnplMEhtYjQ0MytOcms2UFJOYjN1elVVVFB5YkxBRDlDU0Uvbm9PbzRuaWR5YUxzeHRibnVKNGRIaTB1b1pxVlhhS2hibms5bnM4dUpjWWUzVThTRVJrY1R3YVBYSWtKdk51b25oMGVMeHFTc2RYanNCNkJGTkJzcnFCQU5mWW5KV0dxZHYyeVBtUURzL0RGakxjOGFUODBXUkNTVUZuYzlrOG9WbHBaUklPcDB1Rm9zaTgwc0xwYlZjSW5kbmJuNTVlaTF4MUY2U2FtbWhkR2RrNFk3Y1ZLb29Jbk1GblhHemFtSlJSSkpxdmhJL3ZWREtkZSszQSt4eVZqN09GUW9qU3pmVmZDWFRFaUw1d3JLcTVsbDZRVVFrTXowM01hRVdSZExwZEhyaFVUNVhFaldoRmlXZFRrdHhJaXR6aTRzaWkrTWpwYlZjNGlpd3pCVjBYaVJUbUZNVGF0SHZ4RnlCUTdWQUVOV0ViVFpRenMzSjRtSlJaRWxLL3E2bDU5eWNMeFlscVpZcXc2ekJFVk5wcmR2OXBZSkpwVkliR3hzaVV2NXcySGp3WjRjL05CNXpQNFEvekNmYWpnUGhIK3QrNHpFdnFiTHhtS1BYbnZrM2p0NWR1S2hRRTNPdi9HZG1BKzZIOEhsVkZzTXhEMFA0NkhpdWxkbUFsNVg1WHI1MDlmditqWTdrbytlTTM1UkhqWSsvOW9DanYrSE83dWZEaVAvQi9vdGhoRDBNNGN2ZS9YREd6WkFHNCtkaWZ2UWNFUE9qcDRoODZhWEtTVmM5TUlEYVVWb0JBQUFBcHpISEFBQmdtY3FWdXBMWlljN2hBbUxQYUMyNyt6ajN4dHNmaUlqSXEyK3UzQnBySzFqZjV5c25oNWUvbjJ5M1kwQ2NrWmpvT1ptODF2bHVkNkpOUmhNVGlET1R0ZXp1czJ0Zlgxa1pFcEgxeDQrdnRoWHFhTHowYnpOcUFpMGpNWUVJTXBpWVFNeVpuQzg3TkRZMkpDSWk2enZ5eXREeDQ2bFVLcFZLaWNqZTN0N2UzcDdCVjBUTTdWVjF1eU9SUm1LaU15S1NqLzVGYjhkUExQRlR1UkJ1OWRHNnU5MUJZcUs3SXBLd1JvUXhYM1o5UjE2cC9iYkVQejh1bFVvTkRnNktTUG5ERUY0VHNlUy9vMXIyTi9wK3FZV2YrZy9sNzdUem90MURZaUpjYmVaamF5dHA5SDF1KzhSOXo3bTVkVWZyakpzZGQ3enFLZ2ZlNnRac1NhOGxQR2Y4dnB2TEowL2U3Zko4MjNNU2MyZTNTLzFDcjR2SUFPcXY0NVZlS05Vc1NsSmQyK3ZrbzAyRXNJNUIzVDVtUzJxL3UrUjdUSVJFRFF5MHNIVzcxNjBpTVJGdGZaL2I5cmQ5ZmRCOHEyMVpGOFJiWFJxZDlxLytQbHE3S3Z2bVZrbEVTbHYray9WM3U4bEVZZ0tkWjJZQXJleDg2anRiTjQrL0pmRjNQclV1elM3ZEQzYjlFdk1EYy8wK1pxc1lLUkUyMVc5dFlYcHhKQ1lpN3FQdi9YVEFsczlyV2w2cGYzSjB4SCtISmtkR2o0N1lKbkpyMDFtbEp2d0xKTlRmN1NwVGlRbDAyRzkvOG0zL3hwYys5Y3ZOVy83Ny8vY2JaN1gwVnBkR3A5ZEVKRE05ZW5mVnkxVVB3bTV1bFVRU3BhM1I2V0NYVURBK2xwT1lzSWE2Rko5YWxzUkUxRDJYUXhOaC9FRlFwTFMxS1pQVkJ6MW5lMXJyNmF6S3VqcWZxYi9iUlNRbWJQVUxuL203L28xelI5S21MUVBzZkFaZ2ZJN0IyTXdNWDVmQUVnTURyV3hXSWpFUmRjOTF1WVd0TGtoaWNuWnoyUlVSZDNsemRySTYwYzY5dnlSSmtVeStJTXZ1cWJ2ZFJHTENXbVlHVUgrK2o3L3plY1RmMnl6SVJEWmdnbkxkTDhSWHZPYkxBdEgyc1ZZdGJQVlJFcms3TXFHVXVqdnlLSmNRenhuUHVpS1oyN05MU2FXVW1wRHB6S203QUM3T3lBQWFhT2N6QUFabXhOaUErUXRuQTJqTjg5T0ZhVXRxTDZPUXlLM2xLLy9xbW5sM2RYY0JYSnlSQVRTUnV5TktLVWt2bE5ZUzRqbmo5NGZYOHBuYnMzZVRhbDVFNWdvNldGOE1kQVd3RkFkWmdjajRXSk9QZ0QwTURhQUJkajREOU1WSVZ3QXI5VFBIQm9pSzU1cnZTUUI3UkdrQWpWQlhnRTR6ZE81WG8rc01pWnRWU2lsVm5ibmVzQTJBSTgvMXBSYTJidmNhaUtzb25UeE5MWXNZNis5clphdlRjS2xuTjdzOHJmWFJlWmdOMndDbzhiRWVhR0hyZHErQnVESXlnQnJDQndIaXkvMzlYL2R2L01Mb204MWIvdGJtdmJPZWFyalVzN2N0STVNaUlwbmJDOHVybnJmZGVEbG9BRWVlbHk5M3V3c0FndEpST25tYVdoYng5UXRmL0VibDFuazdpOGN0Ulg3cjkzN3Q1Sk9ObG5xV3phVVROV3ZETmdDT2ZjeUVBY0FpVVpvdlN5MkwrTklEUmxLeHdYV0dFcms3bzhwZlVpUzlVTXJKYXNOckVRRTR4b1FCd0NLR0JsQXorT3hBZk9sK0ExK1JKQ1puTisrN2tzbTR5NXV6dDQ4T3hQckxqTGpack9RU0lvM2JBRGoydk14eFdjQWFSZ1pRVTZobEVWOW1kaXNiTGZWOGUzczhPVjhVcVY1TittUWJBS2V4S0FGZ0VZN0xBdEhRSDlwMWhqTDFDejNYdGdGdzJuUG1HQUFXTVRTQUdzRm5CK0tySEtYZFNpRG1tR01BV0NSU0EyZ1hhdG12ZlBEWGpNZTg5dWsvTmg2emJPamk0TFVPeXViLzc4TTRtTkd2eXNaamh2SDMvRmZYMnZweEhhWGR5cTc3MWc4L2F6em05VXZCcnFVZDJBLzFDMllEaXNnblpjTVpGTWI1K0Mrb2ZiTUJ3OGp4bDlyNzhlZW0veU42dzkvei9sWVlZVC8vcVkvQ0NLdkYvSWZxdmc2bFp0by9ET1g5MXFjTWYraUp5R0VJbzZlSWZLbTlqSTNVQU1wbkIrSXJVcWtJeEJ5MUxHQ1JTQTJnZkhZZ3ZuUmZoRklSaURubXl3SVdpZFFBeW1jSDRxdDhLVUtwQ01UY0orRjg1d3NnREpFYVFDTTBkUmZvTU4zWHlnWWdESi9vL2hhMjAzRThaMXdwTmU1NHB4NDcrYWpuakdmZDhIOHRvRGRGYWdCbFpFWjg2WDdWd3RidFhnTzk2Zm5oUUF0YmZSVFB1YmwxUjJ0OVordm1jZDNxclc3TmxyVFdwZG1sKzVYeTFjMG01NHVkKytXQVhoT3BBWlJhRnZGVjdsY3RiS2ZqQkRvTzVHYVZVa3B4SUFobzdGdGovOXJmOXNzRHpiZmFsblZCdk5XbDBlbU1pR1NtUjVkV2oxTnljNnNrSXFVdC8wbHhzOHZUcFlWMDUzNDVvTmVZR2tDTllINFM0c3ZNcVNhVjQwQVpOenZ1ZUdzNS83SmUvbkdndFlUbmpOOTNjL21NdURMTnhSS0FKbjV4N2U5WGI1NXpiY3ltTFVkSGtpSWlraHdaM2E0K2xzaXRUV2VWbXFoY2lNL05May9uOCtMY2JidlBRR3hGNmx6TjVuMXhzK3J1U0trNlBBTzk1ZjEzZnRXLzhaZi96bHZOV3o3NTF0Zk9lc3BiWFJxZFhoT1J6UFRvM1ZVdlY4Mld6YTJTU0tLME5UcWRFeEYzZVdKaUlyMWdLSmxJVFBTZ2ZUUExiL3VaSjFMYTJwVEo2b09lc3oydDlYUldaVjE5ZS92dTRtSnhjVkZFUkpRVWRENWo0bldGeEVTc1JHb2RnK2FmSFptOGZpUTMrV29VdmVubmYrVXRmeXNQU1BQdHFPWFAvOHJwcXJmbU9ORFJZNG5jMnZTeVVtcDVPcDhSRVM5NVcydDlaeXQ1Y2lKQ3EwaE05S0JQeWdNdGJIVkJFcE96bTh1dWlMakxtN09UMWFMU3ZiOGtTWkZNdmlETGJpSzNwclhXdXJTUW5qTll5QXFKaVZnNWQ5eHN1SVhrM1AzZ2F0cFBMNTg2Q3hTd202SFRNUDJaZVA1eG9DUCtjYUNDVEdSZEVVa2tFaUtTeVpkbXQxYk5aQkNKaVY2emY5alh3bFlmSlpHN0l4TktxYnNqajNLSjZsb0ZtZHV6UzBtbGxKcVFhWU8xYXdNa0p1TEN2blVNUEdkY1RTeW1GMHE2c3ROSmZxSVhHSm02SHVBNDBGRmJiM1ZKaHMxOS8waGlvcGZzbC90YjJFN0h5ZVMxMXRyL3BqK1JXOHRuNUxqRXJEME1XMzNPT0JJVGNSQ3BjNythMTdLVlU2OXZ5cVBxUjRQL2lmQkk3cE9ic0o3dWIyV3JGK0E0VUhWUmc1dnl5TWpnU1dLaUJ4MGM5cmV3ZGJ2WHRVaE14SWlaQWJUaFFrRFZJVFA0Ykozempzdk9GWTUyY0d1VXRoWXJYNnNDOWpLVml1Y2VCNnJlTVhkU0NJbUpubk5RN210aDYzYXZUeUl4RVJ0bUJ0QkdDMEo3cGVGSC92aFpXS2ljam5LZTh5YmlMaTY3K2N5cEkwbVp2QTUzemhIUUFZMituN1FFaVltZTAyRHlxM1ZJVE1URzcvNkxXLzZOTDM3MVFmT1d2L2ZQem16WmNDR2dSRFdIM0cyWkRKWTZ6V3ZaelBUYzhvbFhkWnhTTGtkU29rZllPblNTbU9oQjVhZ2RaTDB3RWhNeDhzWDVhbUY2WHVJMmJkbG9RZWlLNEtYc2VmTmxseGNYSjlTeDVQeFdzTENBQmNyOXJXd1JRR0tpQiswZjlMZXdkYnZYdFVoTXhJaWhBYlRoUWtBaTRwZXlRYWZsbmJPKzdQVENRa2tmS3kyTW5CTnYvY0hVMU5UVTFJUDFnSzhQZEUra2xoUzVDQklUUGFpc1ZRdGJ0M3RkaThSRWpCZ1pRQnN2QkNRaUZ5dGx6N3Z1MTRrRHZKNXpjMnQ0cmVrUHJFdDZaZVZXMEJjSHVxcmhpVncySURIUmc4cUhrU3BNVzBCaUlrYk1ES0NKM0IxUlNrbDZvYlNXRU04WnZ6L3Nuejk5Z1FrR2NuWXQ2em5qeWZtaWlNajhmTTNENlFWUE1tY1h5dXZGZS9mdXZmVDZRMmRtcU9iUlZDcmwzOWpiMnd2Y01lQjhiYjZqb25HUTlVSklURVJYdS9sbzhYeFpFaFAyaWNnQW1zbHJuYS9jVHVUV3FqY3p1ZHdGZ3B6VkYzOFJvY0xKTDB6T1cxTm85K3JzeXNyS2F6dHY1Qjd2MWp5OHNiR3hzYkVoSW9PRGc0T0RneGZvSGREVVlGVnJQNjRIV3RtNmlzUkVkTFdaaitVRDFjSm05bGRvRllrSisvVFNBSHJPZk5uY3lVejBIS2Zac3JWRFEwTWlNbmJyNFkyZDkzZWJ0QU1pd2RSODJRWkxQUit0OVZ4OXRGR2JscEdZNkVHNnJGcll1dDNyV2lRbVlpUlNKNXljRTdoeUdaT0xuWlc1Ky81N2NtM28vSFpBZDRXMzFMTjRxMXV6SmExMWFYYnB2bnRHbXphUW1PaEJaZFhLRmlVa0p1TEQxTVdHakRqbjNLOWxLZWpBaXp6dlBzNjk4ZllISWkrOS90QVphNzlyUU1qKzV6Y3FaMTBNM3p0bnFlZnROODg4UDZQaFVzOVNXV2drVWRvYW5jNko1elJ1MHlvU0V6MUkyMy91RjRtSitJalVDU2ZuWEN2aDlvamp5dkZWVEpxdi9EdzA0NnpNbU93Y0VLcmtyMWRMMlBOMkZvOWJpcFQrWVYxZDIyaXA1MFJ1YlRxcjFNUmNRZWRGdkdiTFFiZUF4RVFQVXRiWHNpUW1ZaVJTQ3dHZFUxZVh0dVpaK1JtOXl0QjBuNFpMUFh2TzlyVFdCWm5JdW1lMmFSMkppUjVrL3h3REVoUHhZZEY4V1hkNXMrNjB6RHlYNDBQUDBBTzZoYTB1U09PbG50MzdTNUlVeWVRTHN1dzJXdzY2SlNRbWVwQTZWQzFzM2U1MUxSSVRNV0prQURYbG5IVU04bmVHU3pYM3p6a3JFN0NLbWQzS1JPNk9UQ2lsN280OHlpWEVjOGF6cmtqbTl1eFNVaW1sSm1RNlU5K21iU1FtZWxHNXBTMUNTRXpFaUUzSFpiTVRFM3hqZ2w2bCszVUwyK2s0bWZ6eFVwS0puSC9ORW4rOXllTURNN1Z0MmtaaW9nZVpPaTdiOFRYeWpwQ1lpQkZUQTZnUjV4eVh2ZkRWcFFHTHFKYTI3aU14MFlOVXVaV3RYamZXeUtzaU1SRW5VUnBBejdrSVE5MUZ4Qkp0THlZRVJFZDRjM2ZDUm1LaTkvekIxNzdtMzBoODg1dzE4cnl2M3pxclpUZld5RHRHWWlJK0lqV0Fkdm1LbkVBMzlVVW9GWUdZTzFyNTd0eGpOMDFiZG42TlBDQ1dvalNBUm1tdFc2Q3pJalhkQjRnNWRkaktka29YMXNnRFlpaFNBeWkxTE9KTDllc1d0bTczR3VoTlJ1YkxkbU9OUENDT0lqV0FNc2NBTVJhbHIwaUFtR3Qwa1BYaUVyazdvcFNTOUVKcExTR2VNMzUvZUMyZnVUMTdONm5tUldTdW9FWGtSQnNBcllqU0FNcHhXY1NYNnRNdGJLZmpORmpmcDdvRWtGTEsvMUpUM0d6dFBRQjF6S3hqMElVMThvQTRNaldBR3NGeFdjUlhuNUhUTUN2cisyVGM3TGpqVlFaSHJ6VDhTT3VFaUxpT2t4UVJjV1ZhNjd5Qmx3TjZsSm5qc2dBNndzd0Fha2dYYXRuLzl1eXE4WmovNDhxZk54NVRhL01yb1lXeHRsbzVRbStuWnNMNGU4ckxiZjMwSC96dGYrVGZTQ3pkYmQ3U203MXo1bE9OMWdCS1pDcVhyblMzWlRJakl1N3l4TVJFZXFFVTRRTkJxM3RmTkI1ejhNcWZtZzE0dWUvQWJNQXdYQXFoS0RzMC9SMWFPWVI4bkdydng2bGxHOXArWm41MEU1RVBYdmhzR0dHaHk1RlloTHdEVkYrRUxydkhjVm5FMS9DLyt6WC9SbDkvMEpZaXN2MDN2M0h5eVNicisxUkxXUzk1Vyt1OG0xWGpUcFRMV2FDTHFHVUJpL1JGNlV4bzVzc2l2dnFVYm1FN0ZlYnM5WDNjYmZIUGtrNGtFaUtTeVpkbXQxYk5YalVUNkJXbTVzc0M2QUJEQTZnWkhKZEZmQTBNR0RnUWxKaWMzYnp2U2liakxtL08zajV4eUxWNlZQYUl0N29rd3prQmNGb2Z4MlVCZXhnWlFFMmhsa1Y4OVJ1Wjd0TjREU0NwTFdVOVp6dzVYeFJKTDVUV01zMmpBYkhGUVZiQUhtWUdVRU9ZWTRENHV0UmZibUU3SGFmUkdrQWlram02R0h0MVFTQ215Z0puNmp0c1pRUFFGYVlHMEFhTFdqWjl2Q0dPeXlLK0JxSzBXd25FSE9kK0FSWXhNNEEyV3RSU1JEeG4vS1pVVnJZTTFCa0RYUUhzTk5EUDRBbEVCYlVzWUpFblgvckgvbzIvOGgrLzNyemxmL25yM3p5clpjTkZMVVhjKy9QRm9pVFYvRnloZW4yVDVxaGxFVitYK0lZU2lJeSt3d2d0OFFPZ3VWZS8rNnYralV2blRWWnQyckxSb3BidXNoUzB6b2puak45MHZFeUF5WG5Vc29pdlM4d3hBQ0tEQmJZQWl4Z2FRRGUzU2lJSmYxSEx5YnJuRXBPem82dUJvbERMSXI0dTkxdHdFU2tnSm15NHBodUFDaU1EYU9ORkxaTWovb05TMmdxNGpDVzFMT0tMNDdKQWRDaGJyc2NOd05RQTJuaFJ5OXlqa1hHbEptU3VvUE9Cd2xETElyNHVNMThXaUF6RmNWbkFIcVlHMEV4ZUh4V3NpZHhhdm5wRFgrUzZRcXd2aS9pNjFIZlF3blk2VG9ObDhQeUhsRkpLWmQwejJnQ28wWGVvVzlpNjNXc2dwa3dOb0VaUXl5SytydlFmdExEVlI2a3NqNmZ2Yk4wOHFsUzkwdkFqcmJYV3VyQXdrbXpjQmtBdGRhaGIyRTdIQ2JKdjJiZ1pnTURNREtDR01NY0E4ZlZ2VXYvV3YvSEdmLzNsNWkwZnZ2d2JaejNWY0htOFJLYXlJcDUvSFZ2UGFiaUVIb0JqWnRZeGFMVDB1cjl2bVJBUjEzR1NmcXVMcmNRT29NN2xLSzBJVFMyTCtNcjk5Ni80Tnk3M0IyMHBJczdQZmZ2a2s0Mld4NnZ3UzFueG1yVUJJQ0x5bjFkdSt6ZithdWFielZ2K0ovZnJaN1VNc20vWndrcnNBT3BFYWlHZ0VHclozY2U1cFd2T3JUSHprUUdqcnBnNTJlVHM1ZkdxSTJmekpmUTZoTVJFdEwzNnBYL2kzMUJ0dFR4LzM3S0ZsZGhEUkdMQ1RvWUdVRE9NejVkZGYvREcyeCtZRGdxRTRYTGZRUXRiWFpERTVPem1zaXNpN3ZMbTdPU0pRZEhkRnYrQkptMDZoY1JFMUJtYUw3dTVWUklSZjcveHBLT0VyRXBNem82Rzl1c0VRMkxDVmtZR1VGTU1INWRkZjFCTVAzejk2ZEtKQjFPcGxIOWpiMi9QN01zaDV0cDhSNzFnWkxleThmSjRVbnRVdHE1TjU1R1k2SUEyMzBnTlQrUzZxTVpMcjR0SWJVSmVmQ1gya0pDWTZLSklES0NHR0sxbDF4OFUwN2R1eWVOM1RqNjhzYkVoSXFsVWFuQncwT1RMSWZiYWZFZGQ2ZDgzMG8yR3krT0paSEs1eG0wNkxXQmlscnJRTmZTU052T3g3eUM4cGRlbGJ0L3lvaXV4aDRJUkUxMFZrUUhVQ0lPMTdPN2pkOTU5OTROMzN4VVJrU2w1YzRVSlFJaTJTRTMzQ1EySkNVc1lXaXcyeUw3bFJWZGlEd0dKQ2J0RmFnQTFXTXNPelRnck04Sk1kbGpqaW9yUWJtVm9TRXpZUVJrNUxtc05FaE4yaTlRQXlwcGNpSzhyZlJGS1JTRG0xR0dFbHFzRTBGeWtCdEFRYXRtaEdlZVcrYWlBY1pHYXVoNDZFaFBSRnJQanNsVWtKdXdVcVFHVTQ3S0lyMGg5UlFMRTNXRXNhMW5BVHBFYVFLbGxFVjh2Uk9rckVpRG1GTFVzWUk5SURhRFVzb2l2U08xV0FuRjN3SHhad0JxUkdrQ05YL2NMc01ZVnRkL0NkanFPNTR3cnBjWWRyOW5qYmxZcHBWVFc3Y0F2QnRqbzRLQ1ZEVUEzbUJwQWplQzRMT0xyQldYaU9KRG4zTnk2bzNYR3pZNDczdHJScGQwOVoveW1QTks2Y3QrVjZlNWRMQUd3QVhNTUFIdVlHVUFOb1paRmZMMzgwLy9MdjdHNU05Uzg1ZWkxM2JPZThsYVhScWZYUkNRelBYcDMxY3RWaWxuMy9ueXhLRWsxUDFmUStZeTR5eE1URSttRjBuR3RDK0FrRHJJQzl1alZheVVBbHZHZWZjRy84WUlLMmxKRUVsZS9kL0xKMFpHa2lJZ2tSMGEzcTQrNXkxTFFPaU9lTTM3VDhUS1R5ZHRhNTkyc0duY29aNEhHbUM4TDJPTUZaZVpDZlVaUXl5SytES1hpNWxaSkpDRlMydHFVeWJybkVwT3pvNnNpaVVSQ1JETDUwbloyMVJPS1dlQTB6WEZad0I2UnFtVTU5d3Z4ZFVYMXRiRFZCVWxNem00dXV5TGlMbS9PVGxhcjFPU0kvNkNVdG1UNHFIVDFWcGRxN2dHb3hibGZnRDJNREtDbWNGd1c4WFZGK2cxRVNlVHVpRkpLMGd1bHRZUjR6dmo5NGJWOEp2ZG9aRnlwQ1prcjZMeDR6bmh5dmlpU1hpaXRaUXk4Sk5DRDlENkZLV0FOTXdPb0lkU3lpSFJMRGhBQUFBbE1TVVJCVksvTHlrd3FadkxIU3hRa2NtdjU2ZzJkTzM3dzZEYUFodlFodFN4Z0RWTURxQkhVc29pdkZ6Ny9RYmU3QUtEaXR6LzVkcmU3QUNDb1NBMmdYYWhsZjhMOXRQR1lPb1RkZzROelQyNi91UElsNHlIRmZDL0RpYW5EQ1BxTEljU01xOS85N2w4MEg5VDB1UUVITDVvLzIwQVBtSTRad2hrUnFtdzRmM1MvK1Y0KytEbmpJU0dmL2U2VmNBS0hFdmJRa25GVFFocVNSTUk0SVVxSE5NdjBsOElKMncyYyt3VUFBQUJiVWNzQ0FBREFWdFN5QUFBQXNCVzFMQUFBQUd4RkxRc0FBQUJiVWNzQ0FBREFWdFN5QUFBQXNCVzFMQUFBQUd4RkxRc0FBQUJiVWNzQ0FBREFWdFN5QUFBQXNCVzFMQUFBQUd4RkxRc0FBQUJiVWNzQ0FBREFWdFN5QUFBQXNCVzFMQUFBQUd4bHRKYmRmWnlibXBxYW1zbzkzalVaRmtBN1NFd2dna2hNd0JDengyVmYrZnJLeXNyS205ZmZlNS9VQkNLRHhBUWlpTVFFekJnd0dXeG9hRWhFZG5ldXZUWXpWUE53S3BYeWIrenQ3Wmw4T2NRZTc2aEFTRXgwQkcra2l5RXgwVlc5OUFZeldzdUtyRCtZdXZldXlLdlhac2JHamg3YzJOZ1FrVlFxTlRnNGFQYmxFSE84b3dJaU1kRUJ2SkV1aXNSRUYvWFNHOHp3dVY5anQxWldWaDYrL3JTNGJqWXVnRGFRbUVBRWtaaUFFV0dzWXpCMDdjYTFxeUhFQmRBR0VoT0lJQklUYUpmSk9RYVZyMHRFWG4xejVaYkJ1QURhUUdJQ0VVUmlBcWFZckdYSGJxMlFrVURVa0poQUJKR1lnQ2xjS3dFQUFBQzJvcFlGQUFDQXJhaGxBUUFBWUN0cVdRQUFBTmlLV2hZQUFBQzJvcFlGQUFDQXJhaGxBUUFBWUN0cVdRQUFBTmlLV2hZQUFBQzJvcFlGQUFDQXJhaGxBUUFBWUN0cVdRQUFBTmhxb1BNdk9WandqTWM4L0w5L1lqeW1QdGczSGxQNnpPODg5RjI2WkR4bUdQME14VC90ZGdkNnlGLzQ1eVhqTVEvKzkvOHhIRkdaZjJlcWZzTXgrMTU4MFd4QWEveURibmVnRi8yNVZmTWpwb2lVZi9CUktHR2ZQemNlVS9YM0c0OHBJdXJ5NVREQ2lsS2hoQTNEVzkzdWdEbVdsQ3dBQUFEQUtkU3lBQUFBc0JXMUxBQUFBR3hGTFFzQUFBQmJVY3NDQUFEQVZ0U3lBQUFBc0JXMUxBQUFBR3hGTFFzQUFBQmJVY3NDQUFEQVZ0U3lBQUFBc0JXMUxBQUFBR3hGTFFzQUFBQmJVY3NDQUFEQVZ0U3lBQUFBc0JXMUxBQUFBR3hGTFFzQUFBQmJtYTFsMXg5TVRVMU5UZVVlN3hvTkM2QWRKQ1lRUVNRbVlJYkpXbmIzOFU1NlpXVmw1YzNyYnkrdEc0d0xvQTBrSmhCQkpDWmd5b0RCV0VNek0wTWlJbVBwVjkvWjJaV3hvY3JqcVZUS3Y3RzN0MmZ3NVFEZVVVR1FtT2dNM2tnWFFtS2l1M3JwRFdheWxqMTI3Y1lyUThmM05qWTJSQ1NWU2cwT0RvYnljb2dyM2xFWFEySWlUTHlSV2tSaW9odDY2UTBXd3JsZjZ3K0sxMmFHem04SG9JTklUQ0NDU0V5Z2JhWnIyZlVIVThYMHJUSERVUUcwaGNRRUlvakVCRXd3ZSs1WGJ1cmV1L0x1dmFtcHFRZE1aUWVpZ2NRRUlvakVCRXd4ZSs2WHN6SmpNQjRBQTBoTUlJSklUTUFVcnBVQUFBQUFXMUhMQWdBQXdGYlVzZ0FBQUxBVnRTd0FBQUJzUlMwTEFBQUFXMUhMQWdBQXdGYlVzZ0FBQUxBVnRTd0FBQUJzUlMwTEFBQUFXMUhMQWdBQXdGYlVzZ0FBQUxBVnRTd0FBQUJzTmRENWwzUS8vSmNCVys3dDdRME9EcHA5ZFdMR015Yk8xY1hFdE9WZEZNOWZuSHpzcnVDSktaYThvNndMUzFlamorT3lBQUFBc0JXMUxBQUFBR3hGTFFzQUFBQmJkWFMrYkNxVjZ1VExBUWlDeEFRaWlNUUVndElSOXZMTEx4T1RtSWdhNC85QnRyeUw0dm1MazQ4V3NlSWRaVjFZdWhwOXpERUFBQUNBclpUV3V0dDlBQUFBQUZyQmNWa0FBQURZaWxvV0FBQUF0cUtXQlFBQWdLMGlVc3V1UDVpYW1wcWF5ajNlUGZuQWczVVJrZDNIdWFQYkxVU3QvS0FmcGZvU0Y0MVozLzVrdE5hQ24ycG1vTVBOLzVKdC9CRjJIK2VxRFUzODd2VWRNL3FmQlZOQ1NNellaYVVsS1VrK1dpYjZnMmFESHpFemR0ZzFkQXFqWjBkMGV5RUZyYlYrOXAzdlBORmE2eWR2ZmZtdEoxcHJyWjg4ZVZMZjVLdHZQVG4xZzgyZENGSU44T1N0cjM3bldXc3hhOXJYUldzOStJbG03WGY0bkw5azYvMTg4dGFYdjF3SmFlaDNyL3N2TnYyZkJRUENTTXk0WmFVdEtVaysyc1dTUVZPSGs2SDFMU004ZEdwR3o4Nkl4SEhab1ptWk1SR1JzZlNyVDNkMlJXUzllTzllemY1UmEwNEUyWDMvdmV2cE1SRVpTMTkvNy8zMkFwK0taaWk0Z1E0My8wdTIzTS8xQjhYMHc5ZGZhaFNrMVpoMS84VWgvbWVoWlNFa1p1eXkwcEtVSkI4dFk5MmdlVHFndWZqUkhUcUYwYk5USWxITEhydDI0NVVoa2QycnN5c3JLNi90dk5GT1p0WUh1WDd0cW9pSVhMMTIzVUJINjZLWkNHNjJ3NDMva2kzRlhIOVFUTjhhTzc1djRuZXY2MWk0LzFsb202bkVqSE5XUmprbHlVZDdXVE5vbmc1b0tINWtoMDVoOU95Y0tOV3k2dytLMTJhR1JHUm9hRWhFeG00OXZMSFQrbjVGZlpDbk84OUVST1RaemxNRGZhMkxaaUs0d1E2ZitaZHNJZWJ1NDNmZWZmZmUxTlFiYjMvdzdyMnBCK3RtZnZlNmpvWDduNFgyR0V6TTJHWmx4Rk9TZkxTVVRZUG02WUNHNGtkMDZCUkd6MDZLVEMyNy9tRHE1UDZMeU83Nzc4bTFvVGJqVm9JTXZYTGphWEZkUk5hTFQyKzgwbTdRdW1oR2c3ZmQ0YlAva2kzRkhKcHhWbFpXVmxZZXZ2N1NxMit1M0JveitydlgvUmVIOHArRnRvU1NtREhMU210U2tueTBpbFdEcG9TYm9SSzlvVk1ZUFR1cTJ4TjJ0ZGI2MlhlKyt1V3F0NTRjM1QyYXVlelBuYTU5SUhqTStpQkg5eThhczY1OXcyZ1hEVjdiekVpSEEvNGxXL2tqMUV3ZmIvOTNyK3VZOGY4c0dHRThNV09ZbFZha0pQbG9IU3NHemRNL1lpUkR0ZWtrMWFIbXFXYjA3QVN1WVFzQUFBQmJSV2FPQVFBQUFIQkIxTElBQUFDd0ZiVXNBQUFBYkVVdEN3QUFBRnRSeTBhRjUyUWRyOXVkQUZDRHJBUWlqaVNGVU10R1IybHJzOXRkQUhBQ1dRbEVIRWtLb1pidEVqZXJzcTZiVlVxcGNjY1RFVGM3c1ZpY1Q2cXNXM25XY2NiOTUveFdsV1pTZnhlQUlXUWxFSEVrS2M3UTdRVnVZNmkwa0JZUmtibUMxb1U1U1MrVWRLbFVXRWluRjBySHovcDNkR0hPdjFGcFYzY1hnQmxrSlJCeEpDbk9OTkNGOGpudUVybTF3cFphbnM1blJMeVJ0SWhJSXBHc2Z6YVhFQkZ2ZTdNNG4xVHpJaUl5Vi9Ma3hGMlJSQmU2RC9RZ3NoS0lPSklVWjJLT1FkVE5GYXI3SGZuTTZic0FPbytzQkNLT0pJMFZhdGxJU3d5UExpNjdJaUxpWnJOdTNkMXU5Z3lJSzdJU2lEaVNOSGJDbmNLQVJncHpJaUl5VjZpZDRPTS9PRmVvUGx1ZDFGTzVXOTJyckxzTHdBaXlFb2c0a2hSblVWcHJrNlV4QUFBQTBDbk1NUUFBQUlDdHFHVUJBQUJnSzJwWkFBQUEySXBhRmdBQUFMYWlsZ1VBQUlDdHFHVUJBQUJnSzJwWkFBQUEyT3IvQTgzNTg2M1dPNE8yQUFBQUFFbEZUa1N1UW1DQ1wiIC8+XG5cbjwhLS0gcm5iLXBsb3QtZW5kIC0tPlxuIn0= -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA5kAAAEzCAIAAAA0LFDQAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO3df2wj6XnY8eeVtLtn4+L8sIra1m6wh5IqoCpxgCOiHtUFekULhxIsKKii1ofmNgUKEYcWptbBGkVv/Vd20dSL3mpatFsKLdC9GGdA3gKCAnHStPAVvYq3CtSmAVQhFSe5bbSyD63QxOfEvT1JfPvHkBJFUdSIfIecl/P9YIDlj1cPX2n58H1m+M47SmstAAAAgIX6ut0BAAAAoEXUsgAAALAVtSwAAABsRS0LAAAAWw107JVSqVTHXgsxtLGx0e0uWInERBjIxzaRmOgk2xO2c7WsXPyPtbe3Nzg4aLYPxOzJmHzut6PriRmRd1HnY/ZqJ8lHI1ooL6x4R1kXtue72gMJyxwDAAAA2IpaFgAAALbq6BwD3/6HiYAtf1xk/8NALQ91OWDMF0U+/n6glmUJGvPTIj8KFjN4P6+I/PB7gVr2q6A7JMH7eRC4n5dFPgrWz0MJelWOfpE/DhbzJ7+wEzAmzvWbf/izF2j9UaBWn+jAnzA/CNRqX/cHDSgifxKolbpAxEAxB9ThBQIG+8UP9UWOOwTo5OGFDmQE+0t+JfE7F4iJYMofDgdv/FMi5WCDZvAB7idEDoLFFJFy4LHjMyKfBByPAndVLjLM9QdOgR8TeR4spogcSND0/5TInwWtHIKOnsFHZBH5zBf+KGjTyOO4LAAAAGxFLQsAAABbUcsCAADAVtSyAAAAsBW1LAAAAGxFLQsAAABbUcsCAADAVtSyAAAAsBW1LAAAAGxFLQsAAABbUcsCAADAVtSyAAAAsBW1LAAAAGxFLQsAAABbUcsCAADAVm3WsruPc1NTUw/WT97PPd5tt18AWkdiAhEUbmL2fb7kb0aiARZps5YdmnEevv5S9d7u42/uvLaysvLazjcZNIHuITGBCAoxMWtLWMpZxM2AwVi77793Pe2IyFj6+jvv787MDPmPp1Ip/8be3p6I/LjBl0S8+e8oNBcwMYE28Ua6kICJ+VPd6h96XS8lrMlaVuT6tasiInL12vWd40c3NjZEJJVKDQ4Oisj+h0ZfEzHmv6NwnkCJKR91o2voIeTjBQVKzDIjJsLRSwlr9tyvpzvPRETk2c5To3EBtIHEBCLIZGKWv59seBuIA5O17NArN54W10Vkvfj0xitDBiMDaBmJCUSQ8cQsfz/pb+2HAuzS7hyD9QdvvP2BSO7aQ2dmaGjmNZmampKXXn/oMGIC3UNiAhFEYgJhUFrrzrxSKpXypwHtf5gwHvxQl43HLIv5mGH0s1+ZXyT4IIR+Hor5d9pPfqEyy+zo3YWLOvrT/eYf/qzx4J9oszPyZV/3mw0oIsp0wAF1aDqkHGrDaX4YwuLiX0n8jn+DfGzf0d+w/OFwGPHDGOBEpBzC2HEQTlf7w1lf/0DCSP9Q6rTPfOGP/Bs9kLBcKwEAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2Guj8S/7+/sfGY/6YOjQes18ZDymXJYSg2nzIA/MhpT+EmDDocwMfGY/5aWX4rRTCm10GpGw2YBgfHfvacNAQ+ohQFH50JYywn+kzPxCLyBVlPkcvK8MZ6usX82WDiOlPExER6Q/hryoiPxNG0C7huCwAAABsRS0LAAAAW1HLAgAAwFbUsgAAALAVtSwAAABsRS0LAAAAW1HLAgAAwFbUsgAAALAVtSwAAABsRS0LAAAAW1HLAgAAwFbUsgAAALAVtSwAAABsRS0LAAAAW1HLAgAAwFZma9ndx7mpqampqdzjXaNxAbSBxAQiiMQEzDBay+6+v3Pj4crKysMb7y2tmwwMoHUkJhBBJCZgyIDZcE93nokMPdu5np45fjCVSvk39vb2zL4cYo53VEAkJjqAN9JFkZjool56gxk9Ljs046SLU1NTxfStsZqHNzY2NjY2RGRwcHBwcNDkKyLeBqu63ZFoIzHREeTjxZCY6KpeSljT82V30isrb8q9B3xhAkQGiQlEEIkJmGG0ll1fek+uiozdelOKpCYQESQmEEEkJmCI0fmyY7M33nlj6m0RefXNFZOBAbSOxAQiiMQEDDF77tfQjLMyc34zAJ1EYgIRRGICZnCtBAAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANhqoPMv+Zcufdp4zGeHPzQe8xNtPKT8qVbmg4bgY91vPOYlVTYe83PGI8bYy5cvG4+5V943G3Bfm0/LshiOeRjCR4fx5LmsQuglQvDFK3thhP1g/8Uwwv5Im/8Y+UE5lINuIR3Jey7mR88B8x8AIiI/E0bQLuG4LAAAAGxFLQsAAABbUcsCAADAVtSyiCfPGVe1xh3vxONZ9/TPuNnjpv7tccdzHcerPlOj0c8DaOysfOxkBzr+moCtgg6UNQ/VNjU/YlLLIp4SubXSQlrmClprrQtzxflk1vUf16WFtCzerR/YPOfuoqQXSnotl3CzE5sLJa0fyc2JJRHJ5HVpIZ1eKGlfaWGkG78UYKmz8rFD3Gxyvti5lwMsF2ygrD7mLsvc3OLycUabHzGpZQGRzO2FtGxuHyXl7MKCzN8/MZZ6qzK7kD6+PzqcEEnk1gqzDeIlcrlMaJ0Felx9Pob/gvlSbXIDCCDAQCki4i7LdH76RDFbp/0Rk1oWEM+5OV9Mz04e7UbKcO7Oycxz728NTx7dy0zPLU7434pkcsd7n9VoDhMMgJadzMfKt5lZx3X94rby/WTWcbKO59/JupWH/e81j77B9I/tulmVdZxx/9n6L0Ar9zkuC1zYOQOlz9semc5I5sxi1siISS2LWFucUEqp5NLsiW9EREQytxc2j74+8Zzlkdu1+42ZvC7MLU6cnBNUnE/6o+JWJ7oO9JwG+ejeX5otaa2nt+5ui4jnjN8dKWmt9fTW/GYlE0Wk5tiq59zdXChpXVpIb257njM+sSiLS/JI67VcKev/dGF0/qbjieeMT0hBa81hWaAVzQdKERFvVYYzIg2KWZMjJrUsYm2uoHVhzp8wUCeRuzNa+frEW5Xp+qOvkslrXVqQ+eRROVuZ/cNkWaA1DfIxOSLzSTXuJPNruYR4q0tSOWCbHDmj/Ezk1tZy4own54vFrVIit1aYk7k7uYSIeNub/vg5sSjFrZK3uiQLtzMikpicpZgFLu68gdJbXZqfUMpPupPFrMkRk1oWsZfJF2Si0Ykmmem5xbuOJ+79reGT+5pu1m+fyK0V5opbpRNPMlkWaF1dPiZya1qXZpeSwU91drNK3ZRHjY+1Vk4v01rnSVOgfWcPlCLircqdasbpUs0x3GNGRkxqWeDMajZze0Hmb443+Nrk6PRNb3uzUUTPybLAD9CSE/noOo4nidyaLsxtbnuJ4dHi0uoZqVXaKhbnk9ns8uJcYe3U8SERkcTwaPXIkJvNuonh0eLxqSsdXjsB6BFNBsrqBANfYnJWGqdv2yPmQDs/DFjLc8aT80WRCSUFnc9k8oVlpZRIOp0uFosi80sLpbVcIndnbn55ei1x1F6SammhdGdk4Y7cVKooInMFnXGzamJRRJJqvhI/vVDKde+3A+xyVj7OFQojSzfVfCXTEiL5wrKq5ll6QUQkMz03MaEWRdLpdHrhUT5XEjWhFiWdTktxIitzi4sii+MjpbVc4iiwzBV0XiRTmFMTatHvxFyBQ7VAENWEbTZQzs3J4mJRZElK/q6l59ycLxYlqZYqw6zBEVNprdv9pYJJpVIbGxsiUv5w2HjwZ4c/NB5zP4Q/zCfajgPhH+t+4zEvqbLxmKPXnvk3jt5duKhQE3Ov/GdmA+6H8HlVFsMxD0P46HiuldmAl5X5Xr509fv+jY7ko+eM35RHjY+/9oCjv+HO7ufDiP/B/othhD0M4cve/XDGzZAG4+difvQcEPOjp4h86aXKSVc9MIDaUVoBAAAApzHHAABgmcqVupLZYc7hAmLPaC27+zj3xtsfiIjIq2+u3BprK1jf5ysnh5e/n2y3Y0CckZjoOZm81vlud6JNRhMTiDOTtezus2tfX1kZEpH1x4+vthXqaLz0bzNqAi0jMYEIMpiYQMyZnC87NDY2JCIi6zvyytDx46lUKpVKicje3t7e3p7BV0TM7VV1uyORRmKiMyKSj/5Fb8dPLPFTuRBu9dG6u91BYqK7IpKwRoQxX3Z9R16p/bbEPz8ulUoNDg6KSPnDEF4TseS/o1r2N/p+qYWf+g/l77Tzot1DYiJcbeZjaytp9H1u+8R9z7m5dUfrjJsdd7zqKgfe6tZsSa8lPGf8vpvLJ0/e7fJ823MSc2e3S/1Cr4vIAOqv45VeKNUsSlJd2+vko02EsI5B3T5mS2q/u+R7TIREDQy0sHW7160iMRFtfZ/b9rd9fdB8q21ZF8RbXRqd9q/+Plq7KvvmVklESlv+k/V3u8lEYgKdZ2YArex86jtbN4+/JfF3PrUuzS7dD3b9EvMDc/0+ZqsYKRE21W9tYXpxJCYi7qPv/XTAls9rWl6pf3J0xH+HJkdGj47YJnJr01mlJvwLJNTf7SpTiQl02G9/8m3/xpc+9cvNW/77//cbZ7X0VpdGp9dEJDM9enfVy1UPwm5ulUQSpa3R6WCXUDA+lpOYsIa6FJ9alsRE1D2XQxNh/EFQpLS1KZPVBz1ne1rr6azKujqfqb/bRSQmbPULn/m7/o1zR9KmLQPsfAZgfI7B2MwMX5fAEgMDrWxWIjERdc91uYWtLkhicnZz2RURd3lzdrI60c69vyRJkUy+IMvuqbvdRGLCWmYGUH++j7/zecTf2yzIRDZggnLdL8RXvObLAtH2sVYtbPVRErk7MqGUujvyKJcQzxnPuiKZ27NLSaWUmpDpzKm7AC7OyAAaaOczAAZmxNiA+QtnA2jN89OFaUtqL6OQyK3lK//qmnl3dXcBXJyRATSRuyNKKUkvlNYS4jnj94fX8pnbs3eTal5E5go6WF8MdAWwFAdZgcj4WJOPgD0MDaABdj4D9MVIVwAr9TPHBoiK55rvSQB7RGkAjVBXgE4zdO5Xo+sMiZtVSilVnbnesA2AI8/1pRa2bvcaiKsonTxNLYsY6+9rZavTcKlnN7s8rfXReZgN2wCo8bEeaGHrdq+BuDIygBrCBwHiy/39X/dv/MLom81b/tbmvbOearjUs7ctI5MiIpnbC8urnrfdeDloAEeely93uwsAgtJROnmaWhbx9Qtf/Ebl1nk7i8ctRX7r937t5JONlnqWzaUTNWvDNgCOfcyEAcAiUZovSy2L+NIDRlKxwXWGErk7o8pfUiS9UMrJasNrEQE4xoQBwCKGBlAz+OxAfOl+A1+RJCZnN++7ksm4y5uzt48OxPrLjLjZrOQSIo3bADj2vMxxWcAaRgZQU6hlEV9mdisbLfV8e3s8OV8UqV5N+mQbAKexKAFgEY7LAtHQH9p1hjL1Cz3XtgFw2nPmGAAWMTSAGsFnB+KrHKXdSiDmmGMAWCRSA2gXatmvfPDXjMe89uk/Nh6zbOji4LUOyub/78M4mNGvysZjhvH3/FfX2vpxHaXdyq771g8/azzm9UvBrqUd2A/1C2YDisgnZcMZFMb5+C+ofbMBw8jxl9r78eem/yN6w9/z/lYYYT//qY/CCKvF/Ifqvg6lZto/DOX91qcMf+iJyGEIo6eIfKm9jI3UAMpnB+IrUqkIxBy1LGCRSA2gfHYgvnRfhFIRiDnmywIWidQAymcH4qt8KUKpCMTcJ+F85wsgDJEaQCM0dRfoMN3XygYgDJ/o/ha203E8Z1wpNe54px47+ajnjGfd8H8toDdFagBlZEZ86X7VwtbtXgO96fnhQAtbfRTPubl1R2t9Z+vmcd3qrW7NlrTWpdml+5Xy1c0m54ud++WAXhOpAZRaFvFV7lctbKfjBDoO5GaVUkpxIAho7Ftj/9rf9ssDzbfalnVBvNWl0emMiGSmR5dWj1Nyc6skIqUt/0lxs8vTpYV05345oNeYGkCNYH4S4svMqSaV40AZNzvueGs5/7Je/nGgtYTnjN93c/mMuDLNxRKAJn5x7e9Xb55zbcymLUdHkiIikhwZ3a4+lsitTWeVmqhciM/NLk/n8+LcbbvPQGxF6lzN5n1xs+ruSKk6PAO95f13ftW/8Zf/zlvNWz751tfOespbXRqdXhORzPTo3VUvV82Wza2SSKK0NTqdExF3eWJiIr1gKJlITPSgfTPLb/uZJ1La2pTJ6oOesz2t9XRWZV19e/vu4mJxcVFERJQUdD5j4nWFxESsRGodg+afHZm8fiQ3+WoUvennf+UtfysPSPPtqOXP/8rpqrfmONDRY4nc2vSyUmp5Op8RES95W2t9Zyt5ciJCq0hM9KBPygMtbHVBEpOzm8uuiLjLm7OT1aLSvb8kSZFMviDLbiK3prXWurSQnjNYyAqJiVg5d9xsuIXk3P3gatpPL586CxSwm6HTMP2ZeP5xoCP+caCCTGRdEUkkEiKSyZdmt1bNZBCJiV6zf9jXwlYfJZG7IxNKqbsjj3KJ6loFmduzS0mllJqQaYO1awMkJuLCvnUMPGdcTSymF0q6stNJfqIXGJm6HuA40FFbb3VJhs19/0hiopfsl/tb2E7HyeS11tr/pj+RW8tn5LjErD0MW33OOBITcRCpc7+a17KVU69vyqPqR4P/ifBI7pObsJ7ub2WrF+A4UHVRg5vyyMjgSWKiBx0c9rewdbvXtUhMxIiZAbThQkDVITP4bJ3zjsvOFY52cGuUthYrX6sC9jKViuceB6reMXdSCImJnnNQ7mth63avTyIxERtmBtBGC0J7peFH/vhZWKicjnKe8ybiLi67+cypI0mZvA53zhHQAY2+n7QEiYme02Dyq3VITMTG7/6LW/6NL371QfOWv/fPzmzZcCGgRDWH3G2ZDJY6zWvZzPTc8olXdZxSLkdSokfYOnSSmOhB5agdZL0wEhMx8sX5amF6XuI2bdloQeiK4KXsefNllxcXJ9Sx5PxWsLCABcr9rWwRQGKiB+0f9LewdbvXtUhMxIihAbThQkAi4peyQaflnbO+7PTCQkkfKy2MnBNv/cHU1NTU1IP1gK8PdE+klhS5CBITPaisVQtbt3tdi8REjBgZQBsvBCQiFytlz7vu14kDvJ5zc2t4rekPrEt6ZeVW0BcHuqrhiVw2IDHRg8qHkSpMW0BiIkbMDKCJ3B1RSkl6obSWEM8Zvz/snz99gQkGcnYt6znjyfmiiMj8fM3D6QVPMmcXyuvFe/fuvfT6Q2dmqObRVCrl39jb2wvcMeB8bb6jonGQ9UJITERXu/lo8XxZEhP2icgAmslrna/cTuTWqjczudwFgpzVF38RocLJL0zOW1No9+rsysrKaztv5B7v1jy8sbGxsbEhIoODg4ODgxfoHdDUYFVrP64HWtm6isREdLWZj+UD1cJm9ldoFYkJ+/TSAHrOfNncyUz0HKfZsrVDQ0MiMnbr4Y2d93ebtAMiwdR82QZLPR+t9Vx9tFGblpGY6EG6rFrYut3rWiQmYiRSJ5ycE7hyGZOLnZW5+/57cm3o/HZAd4W31LN4q1uzJa11aXbpvntGmzaQmOhBZdXKFiUkJuLD1MWGjDjn3K9lKejAizzvPs698fYHIi+9/tAZa79rQMj+5zcqZ10M3ztnqeftN888P6PhUs9SWWgkUdoanc6J5zRu0yoSEz1I23/uF4mJ+IjUCSfnXCvh9ojjyvFVTJqv/Dw046zMmOwcEKrkr1dL2PN2Fo9bipT+YV1d22ip50RubTqr1MRcQedFvGbLQbeAxEQPUtbXsiQmYiRSCwGdU1eXtuZZ+Rm9ytB0n4ZLPXvO9rTWBZnIume2aR2JiR5k/xwDEhPxYdF8WXd5s+60zDyX40PP0AO6ha0uSOOlnt37S5IUyeQLsuw2Ww66JSQmepA6VC1s3e51LRITMWJkADXlnHUM8neGSzX3zzkrE7CKmd3KRO6OTCil7o48yiXEc8azrkjm9uxSUimlJmQ6U9+mbSQmelG5pS1CSEzEiE3HZbMTE3xjgl6l+3UL2+k4mfzxUpKJnH/NEn+9yeMDM7Vt2kZiogeZOi7b8TXyjpCYiBFTA6gR5xyXvfDVpQGLqJa27iMx0YNUuZWtXjfWyKsiMREnURpAz7kIQ91FxBJtLyYEREd4c3fCRmKi9/zB177m30h885w18ryv3zqrZTfWyDtGYiI+IjWAdvmKnEA39UUoFYGYO1r57txjN01bdn6NPCCWojSARmmtW6CzIjXdB4g5ddjKdkoX1sgDYihSAyi1LOJL9esWtm73GuhNRubLdmONPCCOIjWAMscAMRalr0iAmGt0kPXiErk7opSS9EJpLSGeM35/eC2fuT17N6nmRWSuoEXkRBsArYjSAMpxWcSX6tMtbKfjNFjfp7oEkFLK/1JT3GztPQB1zKxj0IU18oA4MjWAGsFxWcRXn5HTMCvr+2Tc7LjjVQZHrzT8SOuEiLiOkxQRcWVa67yBlwN6lJnjsgA6wswAakgXatn/9uyq8Zj/48qfNx5Ta/MroYWxtlo5Qm+nZsL4e8rLbf30H/ztf+TfSCzdbd7Sm71z5lON1gBKZCqXrnS3ZTIjIu7yxMREeqEU4QNBq3tfNB5z8Mqfmg14ue/AbMAwXAqhKDs0/R1aOYR8nGrvx6llG9p+Zn50E5EPXvhsGGGhy5FYhLwDVF+ELrvHcVnE1/C/+zX/Rl9/0JYisv03v3HyySbr+1RLWS95W+u8m1XjTpTLWaCLqGUBi/RF6Uxo5ssivvqUbmE7Febs9X3cbfHPkk4kEiKSyZdmt1bNXjUT6BWm5ssC6ABDA6gZHJdFfA0MGDgQlJic3bzvSibjLm/O3j5xyLV6VPaIt7okwzkBcFofx2UBexgZQE2hlkV89RuZ7tN4DSCpLWU9Zzw5XxRJL5TWMs2jAbHFQVbAHmYGUEOYY4D4utRfbmE7HafRGkAikjm6GHt1QSCmygJn6jtsZQPQFaYG0AaLWjZ9vCGOyyK+BqK0WwnEHOd+ARYxM4A2WtRSRDxn/KZUVrYM1BkDXQHsNNDP4AlEBbUsYJEnX/rH/o2/8h+/3rzlf/nr3zyrZcNFLUXc+/PFoiTV/Fyhen2T5qhlEV+X+IYSiIy+wwgt8QOguVe/+6v+jUvnTVZt2rLRopbushS0zojnjN90vEyAyXnUsoivS8wxACKDBbYAixgaQDe3SiIJf1HLybrnEpOzo6uBolDLIr4u91twESkgJmy4phuACiMDaONFLZMj/oNS2gq4jCW1LOKL47JAdChbrscNwNQA2nhRy9yjkXGlJmSuoPOBwlDLIr4uM18WiAzFcVnAHqYG0ExeHxWsidxavnpDX+S6Qqwvi/i61HfQwnY6ToNl8PyHlFJKZd0z2gCo0XeoW9i63WsgpkwNoEZQyyK+rvQftLDVR6ksj6fvbN08qlS90vAjrbXWurAwkmzcBkAtdahb2E7HCbJv2bgZgMDMDKCGMMcA8fVvUv/Wv/HGf/3l5i0fvvwbZz3VcHm8RKayIp5/HVvPabiEHoBjZtYxaLT0ur9vmRAR13GSfquLrcQOoM7lKK0ITS2L+Mr996/4Ny73B20pIs7Pffvkk42Wx6vwS1nxmrUBICLyn1du+zf+auabzVv+J/frZ7UMsm/ZwkrsAOpEaiGgEGrZ3ce5pWvOrTHzkQGjrpg52eTs5fGqI2fzJfQ6hMREtL36pX/i31BttTx/37KFldhDRGLCToYGUDOMz5ddf/DG2x+YDgqE4XLfQQtbXZDE5Ozmsisi7vLm7OSJQdHdFv+BJm06hcRE1BmaL7u5VRIRf7/xpKOErEpMzo6G9usEQ2LCVkYGUFMMH5ddf1BMP3z96dKJB1OplH9jb2/P7Msh5tp8R71gZLey8fJ4UntUtq5N55GY6IA230gNT+S6qMZLr4tIbUJefCX2kJCY6KJIDKCGGK1l1x8U07duyeN3Tj68sbEhIqlUanBw0OTLIfbafEdd6d830o2Gy+OJZHK5xm06LWBilrrQNfSSNvOx7yC8pdelbt/yoiuxh4IRE10VkQHUCIO17O7jd95994N33xURkSl5c4UJQIi2SE33CQ2JCUsYWiw2yL7lRVdiDwGJCbtFagA1WMsOzTgrM8JMdljjiorQbmVoSEzYQRk5LmsNEhN2i9QAyppciK8rfRFKRSDm1GGElqsE0FykBtAQatmhGeeW+aiAcZGauh46EhPRFrPjslUkJuwUqQGU47KIr0h9RQLE3WEsa1nATpEaQKllEV8vROkrEiDmFLUsYI9IDaDUsoivSO1WAnF3wHxZwBqRGkCNX/cLsMYVtd/CdjqO54wrpcYdr9njblYppVTW7cAvBtjo4KCVDUA3mBpAjeC4LOLrBWXiOJDn3Ny6o3XGzY473trRpd09Z/ymPNK6ct+V6e5dLAGwAXMMAHuYGUANoZZFfL380//Lv7G5M9S85ei13bOe8laXRqfXRCQzPXp31ctViln3/nyxKEk1P1fQ+Yy4yxMTE+mF0nGtC+AkDrIC9ujVayUAlvGefcG/8YIK2lJEEle/d/LJ0ZGkiIgkR0a3q4+5y1LQOiOeM37T8TKTydta592sGncoZ4HGmC8L2OMFZeZCfUZQyyK+DKXi5lZJJCFS2tqUybrnEpOzo6siiURCRDL50nZ21ROKWeA0zXFZwB6RqmU59wvxdUX1tbDVBUlMzm4uuyLiLm/OTlar1OSI/6CUtmT4qHT1Vpdq7gGoxblfgD2MDKCmcFwW8XVF+g1ESeTuiFJK0gultYR4zvj94bV8JvdoZFypCZkr6Lx4znhyviiSXiitZQy8JNCD9D6FKWANMwOoIdSyiHRLDhAAAAlMSURBVK/LykwqZvLHSxQkcmv56g2dO37w6DaAhvQhtSxgDVMDqBHUsoivFz7/Qbe7AKDitz/5dre7ACCoSA2gXahlf8L9tPGYOoTdg4NzT26/uPIl4yHFfC/DianDCPqLIcSMq9/97l80H9T0uQEHL5o/20APmI4ZwhkRqmw4f3S/+V4++DnjISGf/e6VcAKHEvbQknFTQhqSRMI4IUqHNMv0l8IJ2w2c+wUAAABbUcsCAADAVtSyAAAAsBW1LAAAAGxFLQsAAABbUcsCAADAVtSyAAAAsBW1LAAAAGxFLQsAAABbUcsCAADAVtSyAAAAsBW1LAAAAGxFLQsAAABbUcsCAADAVtSyAAAAsBW1LAAAAGxltJbdfZybmpqamso93jUZFkA7SEwggkhMwBCzx2Vf+frKysrKm9ffe5/UBCKDxAQiiMQEzBgwGWxoaEhEdneuvTYzVPNwKpXyb+zt7Zl8OcQe76hASEx0BG+kiyEx0VW99AYzWsuKrD+YuveuyKvXZsbGjh7c2NgQkVQqNTg4aPblEHO8owIiMdEBvJEuisREF/XSG8zwuV9jt1ZWVh6+/rS4bjYugDaQmEAEkZiAEWGsYzB07ca1qyHEBdAGEhOIIBITaJfJOQaVr0tEXn1z5ZbBuADaQGICEURiAqaYrGXHbq2QkUDUkJhABJGYgClcKwEAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANhqoPMvOVjwjMc8/L9/YjymPtg3HlP6zO889F26ZDxmGP0MxT/tdgd6yF/45yXjMQ/+9/8xHFGZf2eqfsMx+1580WxAa/yDbnegF/25VfMjpoiUf/BRKGGfPzceU/X3G48pIury5TDCilKhhA3DW93ugDmWlCwAAADAKdSyAAAAsBW1LAAAAGxFLQsAAABbUcsCAADAVtSyAAAAsBW1LAAAAGxFLQsAAABbUcsCAADAVtSyAAAAsBW1LAAAAGxFLQsAAABbUcsCAADAVtSyAAAAsBW1LAAAAGxFLQsAAABbma1l1x9MTU1NTeUe7xoNC6AdJCYQQSQmYIbJWnb38U56ZWVl5c3rby+tG4wLoA0kJhBBJCZgyoDBWEMzM0MiImPpV9/Z2ZWxocrjqVTKv7G3t2fw5QDeUUGQmOgM3kgXQmKiu3rpDWaylj127cYrQ8f3NjY2RCSVSg0ODobycogr3lEXQ2IiTLyRWkRioht66Q0Wwrlf6w+K12aGzm8HoINITCCCSEygbaZr2fUHU8X0rTHDUQG0hcQEIojEBEwwe+5Xbureu/LuvampqQdMZQeigcQEIojEBEwxe+6XszJjMB4AA0hMIIJITMAUrpUAAAAAW1HLAgAAwFbUsgAAALAVtSwAAABsRS0LAAAAW1HLAgAAwFbUsgAAALAVtSwAAABsRS0LAAAAW1HLAgAAwFbUsgAAALAVtSwAAABsNdD5l3Q//JcBW+7t7Q0ODpp9dWLGMybO1cXEtOVdFM9fnHzsruCJKZa8o6wLS1ejj+OyAAAAsBW1LAAAAGxFLQsAAABbdXS+bCqV6uTLAQiCxAQiiMQEgtIR9vLLLxOTmIga4/9BtryL4vmLk48WseIdZV1Yuhp9zDEAAACArZTWutt9AAAAAFrBcVkAAADYiloWAAAAtqKWBQAAgK0iUsuuP5iampqayj3ePfnAg3URkd3HuaPbLUSt/KAfpfoSF41Z3/5ktNaCn2pmoMPN/5Jt/BF2H+eqDU387vUdM/qfBVNCSMzYZaUlKUk+Wib6g2aDHzEzdtg1dAqjZ0d0eyEFrbV+9p3vPNFa6ydvffmtJ1prrZ88eVLf5KtvPTn1g82dCFIN8OStr37nWWsxa9rXRWs9+Ilm7Xf4nL9k6/188taXv1wJaeh3r/svNv2fBQPCSMy4ZaUtKUk+2sWSQVOHk6H1LSM8dGpGz86IxHHZoZmZMRGRsfSrT3d2RWS9eO9ezf5Ra04E2X3/vevpMREZS19/7/32Ap+KZii4gQ43/0u23M/1B8X0w9dfahSk1Zh1/8Uh/mehZSEkZuyy0pKUJB8tY92geTqgufjRHTqF0bNTIlHLHrt245Uhkd2rsysrK6/tvNFOZtYHuX7tqoiIXL123UBH66KZCG62w43/ki3FXH9QTN8aO75v4nev61i4/1lom6nEjHNWRjklyUd7WTNong5oKH5kh05h9OycKNWy6w+K12aGRGRoaEhExm49vLHT+n5FfZCnO89EROTZzlMDfa2LZiK4wQ6f+ZdsIebu43fefffe1NQbb3/w7r2pB+tmfve6joX7n4X2GEzM2GZlxFOSfLSUTYPm6YCG4kd06BRGz06KTC27/mDq5P6LyO7778m1oTbjVoIMvXLjaXFdRNaLT2+80m7QumhGg7fd4bP/ki3FHJpxVlZWVlYevv7Sq2+u3Boz+rvX/ReH8p+FtoSSmDHLSmtSkny0ilWDpoSboRK9oVMYPTuq2xN2tdb62Xe++uWqt54c3T2auezPna59IHjM+iBH9y8as659w2gXDV7bzEiHA/4lW/kj1Ewfb/93r+uY8f8sGGE8MWOYlVakJPloHSsGzdM/YiRDtekk1aHmqWb07ASuYQsAAABbRWaOAQAAAHBB1LIAAACwFbUsAAAAbEUtCwAAAFtRy0aF52Qdr9udAFCDrAQijiSFUMtGR2lrs9tdAHACWQlEHEkKoZbtEjersq6bVUqpcccTETc7sVicT6qsW3nWccb95/xWlWZSfxeAIWQlEHEkKc7Q7QVuY6i0kBYRkbmC1oU5SS+UdKlUWEinF0rHz/p3dGHOv1FpV3cXgBlkJRBxJCnONNCF8jnuErm1wpZans5nRLyRtIhIIpGsfzaXEBFve7M4n1TzIiIyV/LkxF2RRBe6D/QgshKIOJIUZ2KOQdTNFar7HfnM6bsAOo+sBCKOJI0VatlISwyPLi67IiLiZrNu3d1u9gyIK7ISiDiSNHbCncKARgpzIiIyV6id4OM/OFeoPlud1FO5W92rrLsLwAiyEog4khRnUVprk6UxAAAA0CnMMQAAAICtqGUBAABgK2pZAAAA2IpaFgAAALailgUAAICtqGUBAABgK2pZAAAA2Or/A835863WO4O2AAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F5TlRGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU1qVXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gMjUxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 251
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXlOVEZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TWpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDI1MVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS4yNSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAyNTFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 251
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlRhR0Z5Y0NBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJUYUdGeWNDUlBUMEpmVWsxVFJWeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTaGFycCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
nperm <- 5
resultsOutSharp <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSVGFHRnljQ0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSUFQwSmZVazFUUlZ4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0U2hhcnAgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U2hhcnAkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTaGFycCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxuYGBgXG5gYGAifQ== -->
```r
```r
nperm <- 5
resultsOutSharp <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjg1ODQ5MlxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRk5vWVhKd0pFOVBRbDlOUVVWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0U2hhcnAkT09CX01BRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.6858492
resultsOutSharp$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3SkU5UFFsOU5RVVZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSharp$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTI4MDc1N1xuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRk5vWVhKd0pGSnpjWFZoY21Wa1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dFNoYXJwJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.5280757
resultsOutSharp$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3SkZKemNYVmhjbVZrWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFNoYXJwJFJzcXVhcmVkXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFNoYXJwJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutSharp$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODI1OTgyOFxuIn0= -->
```
[1] 0.8259828
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVTJoaGNuQWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3SkU5UFFsOVNUVk5GWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbnJlc3VsdHNPdXRTaGFycCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U2hhcnAkT09CX1JNU0VcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
resultsOutSharp <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVMmhoY25BZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZOb1lYSndKRTlQUWw5U1RWTkZYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRTaGFycCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U2hhcnAkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0U2hhcnAgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFNoYXJwJE9PQl9STVNFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutSharp <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjcxMzQ4OFxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRk5vWVhKd0pFOVBRbDlOUVVWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0U2hhcnAkT09CX01BRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.6713488
resultsOutSharp$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3SkU5UFFsOU5RVVZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSharp$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTE4NjI2MVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRk5vWVhKd0pGSnpjWFZoY21Wa1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dFNoYXJwJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.5186261
resultsOutSharp$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3SkZKemNYVmhjbVZrWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFNoYXJwJFJzcXVhcmVkXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFNoYXJwJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutSharp$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODM1NTc2XG4ifQ== -->
```
[1] 0.835576
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEc5eVpTQnlaWE4xYkhSelhHNXlaWE5rUVc1dWIzbE5ia1pwZEVGQ1d5ZEJZbk1nYzJoaGNuQW5MQ0FuVWsxVFJTZGRJRHd0SUhKbGMzVnNkSE5QZFhSVGFHRnljQ1JQVDBKZlVrMVRSVnh1Y21WelpFRnVibTk1VFc1R2FYUkJRbHNuUVdKeklITm9ZWEp3Snl3Z0owMUJSU2RkSUR3dElISmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSUFQwSmZUVUZGWEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkQlluTWdjMmhoY25BbkxDQW5Vbk54ZFdGeVpXUW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFUyaGhjbkFrVW5OeGRXRnlaV1JjYm5KbGMyUkJibTV2ZVUxdVVHVnliVWx0Y0VGQ0pFRmljMU5vWVhKd0lEd3RJSEpsYzNWc2RITlBkWFJUYUdGeWNDUmpiMjVrYVhScGIyNWhiRjl3WlhKdGFXMXdYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbiMgc3RvcmUgcmVzdWx0c1xucmVzZEFubm95TW5GaXRBQlsnQWJzIHNoYXJwJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U2hhcnAkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBzaGFycCcsICdNQUUnXSA8LSByZXN1bHRzT3V0U2hhcnAkT09CX01BRVxucmVzZEFubm95TW5GaXRBQlsnQWJzIHNoYXJwJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFNoYXJwJFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiRBYnNTaGFycCA8LSByZXN1bHRzT3V0U2hhcnAkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdAnnoyMnFitAB['Abs sharp', 'RMSE'] <- resultsOutSharp$OOB_RMSE
resdAnnoyMnFitAB['Abs sharp', 'MAE'] <- resultsOutSharp$OOB_MAE
resdAnnoyMnFitAB['Abs sharp', 'Rsquared'] <- resultsOutSharp$Rsquared
resdAnnoyMnPermImpAB$AbsSharp <- resultsOutSharp$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkRzl5WlNCeVpYTjFiSFJ6WEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkQlluTWdjMmhoY25BbkxDQW5VazFUUlNkZElEd3RJSEpsYzNWc2RITlBkWFJUYUdGeWNDUlBUMEpmVWsxVFJWeHVjbVZ6WkVGdWJtOTVUVzVHYVhSQlFsc25RV0p6SUhOb1lYSndKeXdnSjAxQlJTZGRJRHd0SUhKbGMzVnNkSE5QZFhSVGFHRnljQ1JQVDBKZlRVRkZYRzV5WlhOa1FXNXViM2xOYmtacGRFRkNXeWRCWW5NZ2MyaGhjbkFuTENBblVuTnhkV0Z5WldRblhTQThMU0J5WlhOMWJIUnpUM1YwVTJoaGNuQWtVbk54ZFdGeVpXUmNibkpsYzJSQmJtNXZlVTF1VUdWeWJVbHRjRUZDSkVGaWMxTm9ZWEp3SUR3dElISmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBzaGFycCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFNoYXJwJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgc2hhcnAnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBzaGFycCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRTaGFycCRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkQWJzU2hhcnAgPC0gcmVzdWx0c091dFNoYXJwJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgc2hhcnAnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnQWJzIHNoYXJwJywgJ01BRSddIDwtIHJlc3VsdHNPdXRTaGFycCRPT0JfTUFFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgc2hhcnAnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U2hhcnAkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJEFic1NoYXJwIDwtIHJlc3VsdHNPdXRTaGFycCRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# store results
resdAnnoyMnFitAB['Abs sharp', 'RMSE'] <- resultsOutSharp$OOB_RMSE
resdAnnoyMnFitAB['Abs sharp', 'MAE'] <- resultsOutSharp$OOB_MAE
resdAnnoyMnFitAB['Abs sharp', 'Rsquared'] <- resultsOutSharp$Rsquared
resdAnnoyMnPermImpAB$AbsSharp <- resultsOutSharp$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRk5vWVhKd0xtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJUYUdGeWNDNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVGFHRnljQzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRk5vWVhKd0xtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTWwwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9iV1ZoYmlCamFHRnVaMlVnYVc0Z1lXNXViM2xoYm1ObEtWd2lLU0FySUdkbmRHbDBiR1VvWENKVGFHRnljRzVsYzNOY0lpa2dLeUIwYUdWdFpTaDBaWGgwSUQwZ1pXeGxiV1Z1ZEY5MFpYaDBLR1poYldsc2VTQTlJRndpYzJWeWFXWmNJaWtzSUhCaGJtVnNMbWR5YVdROVpXeGxiV1Z1ZEY5c2FXNWxLR052Ykc5eUlEMGdjbWRpS0RJek5Td2dNak0xTENBeU16VXNJREV3TUN3Z2JXRjRRMjlzYjNKV1lXeDFaU0E5SURJMU5Ta3NJR3hwYm1WM2FXUjBhQ0E5SURBdU1qVXNJR3hwYm1WMGVYQmxJRDBnTWlrcElDc2dZMjl2Y21SZlpteHBjQ2dwWEc1d1FtRnlYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRTaGFycC5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0U2hhcnAkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0U2hhcnAuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0U2hhcnAuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRTaGFycC5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzJdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyBnZ3RpdGxlKFxcU2hhcnBuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSharp.conimp <- arrange(resultsOutSharp$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSharp.conimp) + geom_col(aes(x=factor(rownames(resultsOutSharp.conimp), levels=rownames(resultsOutSharp.conimp)), y=CondPermImp), fill=mycolours[2], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\Sharpness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3TG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSVGFHRnljQ1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlRhR0Z5Y0M1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJUYUdGeWNDNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGTm9ZWEp3TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJNbDBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb2JXVmhiaUJqYUdGdVoyVWdhVzRnWVc1dWIzbGhibU5sS1Z4Y0tTQXJJR2RuZEdsMGJHVW9YRnhUYUdGeWNHNWxjM05jWENrZ0t5QjBhR1Z0WlNoMFpYaDBJRDBnWld4bGJXVnVkRjkwWlhoMEtHWmhiV2xzZVNBOUlGeGNjMlZ5YVdaY1hDa3NJSEJoYm1Wc0xtZHlhV1E5Wld4bGJXVnVkRjlzYVc1bEtHTnZiRzl5SUQwZ2NtZGlLREl6TlN3Z01qTTFMQ0F5TXpVc0lERXdNQ3dnYldGNFEyOXNiM0pXWVd4MVpTQTlJREkxTlNrc0lHeHBibVYzYVdSMGFDQTlJREF1TWpVc0lHeHBibVYwZVhCbElEMGdNaWtwSUNzZ1kyOXZjbVJmWm14cGNDZ3BYRzV3UW1GeVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRTaGFycC5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0U2hhcnAkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0U2hhcnAuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0U2hhcnAuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRTaGFycC5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzJdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyBnZ3RpdGxlKFxcU2hhcnBuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNoYXJwLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTaGFycCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTaGFycC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTaGFycC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNoYXJwLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbMl0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxTaGFycG5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcbmBgYCJ9 -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSharp.conimp <- arrange(resultsOutSharp$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSharp.conimp) + geom_col(aes(x=factor(rownames(resultsOutSharp.conimp), levels=rownames(resultsOutSharp.conimp)), y=CondPermImp), fill=mycolours[2], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\Sharpness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXVPU3dpZDJsa2RHZ2lPamdzSW5OcGVtVmZZbVZvWVhacGIzSWlPakVzSW1OdmJtUnBkR2x2Ym5NaU9sdGRmUT09IC0tPlxuXG48aW1nIHNyYz1cXGRhdGE6aW1hZ2UvcG5nO2Jhc2U2NFxuIn0= -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQuOSwid2lkdGgiOjgsInNpemVfYmVoYXZpb3IiOjEsImNvbmRpdGlvbnMiOltdfQ== -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFGNENBTUFBQURKeHNYT0FBQUJ5MUJNVkVVQUFBQUFBRG9BQUdZQU9qb0FPcEFBWnJZQXpKa3pNek02QUFBNkFEbzZBR1k2T2dBNk9qbzZPcEE2WnJZNmtMWTZrTnROVFUxTlRXNU5UWTVOYm01TmJvNU5icXROam81TmpxdE5qc2htQUFCbUFEcG1BR1ptT3BCbVpnQm1aclpta050bXRyWm10dHRtdHY5dVRVMXVUVzV1VFk1dWJrMXVibTV1YnF0dWpvNXVqc2h1cTZ0dXE4aHVxK1NPVFUyT1RXNk9UWTZPYmsyT2JvNk9icXVPamsyT2pvNk9qc2lPcTZ1T3E4aU9xK1NPeU1pT3lPU095UCtRT2dDUU9qcVFPbWFRWmdDUVpqcVFacENRa0RxUWtHYVFrSkNRa0xhUWtOdVF0cENRdHYrUTI3YVEyOXVRMi8rcmJrMnJibTZyYm82cmprMnJqbzZyanF1cnEyNnJxNnVycThpcnErU3J5TWlyeVArcjVNaXI1T1NyNVArMlpnQzJaanEyWm1hMmtEcTJrSkMydG1hMjI1QzIvN2EyLzl1Mi8vL0lqazNJam03SWpvN0lxMjdJcTQ3SXE2dkl5STdJeU1qSXlPVEl5UC9JNVAvSS84akkvK1RJLy8vYmtEcmJrR2Jia0pEYnRtYmIyNURiMjdiYi83YmIvLy9rcTI3a3E0N2txNnZreUk3a3lLdmt5TWprNUt2azVNamsvOGprLytUay8vL3k4dkwzOS9mL3RtYi90cEQveUk3L3lLdi95TWovMjVELzI3Yi81S3YvNU1qLzVPVC8vN2IvLzhqLy85di8vK1QvLy8vZHhySmpBQUFBQ1hCSVdYTUFBQXV3QUFBTHNBRWFPQkJ5QUFBWG4wbEVRVlI0bk8yZGozL2J4bm5HS1UzSzFHelpSTXRWSjhlcHM4cnQ2cWlqK2lOclZzL1UyaTFidmRhU2s2NkpZNGZhNm0yUnJNMTJVNGZLMmtWMHRxd0phNVdPeHBvVTc4L2RlejhBZ2hRb2djRGhCUTU0dmgrYkVJSERpeVBlUjRjN0VJK3VJZ0JJblVyV0ZRQmxBRElEREVCbWdBSElEREFBbVFFR0lEUEFnQ015NjEyb3pIMTBpUmFyV2RjRXhNRU5tUjF2TElxamhmbmpqUXBrNWlSdXlLejM0aWE5WENLNVFXWk80b2JNampkbWQvVHlLeHVWUlZwVUt2UDArcWNYNWo1NjhjY1hhRTN2Z3RwQVRSNXRFTnVWMmIvZk1hOGdEN2doTXltZnVRTXBzNW5OdzdrRCtXLzJ2WTNLN0E3MTJXWjNEbWR1YkZSb0E3MTk2WUFhdktPWFJlL2lqbjdOdXVKQTRZak1oTml2VUw5TVhqU1BucGZhT2ZyQ3BycUN5c3NwOWR6TUJpcEU3ZHpSd3FJc29WNUJMbkJHWm5RcG5OM3haYlpQclZlWXpMU3lxTzFiOUY1QkhuQkRadFQ3VjRveWFxS0dhclExVy9Wa05tL0tIcW9oNlNFR3BqbkJFWm5KKzJYVUl4dXF5WmZaaFVWeDZEZHpSd3VyNHNOTjZwV0ovVlg5bW5YTmdjSVJtVjNhcmxCZm53YVBNelN3blB2VlF1WDNGbWEvTEh0ck5BYWc2NmUzNGVDd1FoZksvL3NiT1JEVnJ5QVh1Q0d6eWFnN2FpRHZRR2FBQWNkbGRpeHZtR1ZkQ1hBbWpzc011QUZrQmhpQXpBQURrQmxnQURJRERMZ2hzOThIenFJUzZJak13bFkrc1JiZVhpUlVhaHpuWlFaY0FESURERUJtZ0FISURERGd2TXpRMitZUFZjSWhBRExLSDZxRU1uc081SXpKcVlQTWdEVW1wdzR5QTlhWW5EcklERmhqY3VyU2xWbC92YnJjYmxXWG1xTDcxWVo4dS93ZmQrUXF1VTJ1R1d4VnE5VnpkOWJQMGNiQkZoVWI3aVZmcTlWNnNLNWpaSDFTd1RoaFdXSnB6ZnF2a3FRK0p2bDgvaGMxSVZwMTBwWmFKY3dhK2VacG8zOXpSWWpmZmFjNXNwZm92eVk2V3BHUW1SdUVaWWxYWmcrbFlwUnFQSm1wTmZUbWFVUDAzL3BXVTN6eWsyYXJldTdkcmVVM2EwT1pyUWo5ZU1hVEoyb28vU1M0elBxa2duRkc4Nk9YckRMcnY5OG5KWWxPdGViSlRLK2hLeU5kTVB1M2R1dURuKy9KQXZYK3ErOTRyZGw2ZGNXRVFXdm1CR0ZaNHBNWjZhZmo5Yk5hZFNNenZjYTBacmU2VjM3OWk3MG1DYXN1T2pYL290bTkwZzdXZFl5c1R5b1lKeXhMTERJYjNHd28wWHpTbGhmQWpoU1JmTnU5YXRhb04ydjlXNE9iMzJ2dk5mZWFuWHAzN1Y1REY2R0xacXNXck9zWVdaOVVNRTVZbG5odWFIUXYwMVdSQnBSMXNWdGQvcDgvcXk0OWtnTkk2b0twTlYvOE5yMnAvaFUxWXAwYURVaC9XcVUxMTdiT1g5Ymp6MnB0c0NYSG9KQ1pJNFJsQ2ZmTmdHVW1wODVobVFFWGdNd0FBODdMRE0vYzhJY3E0WU5BeUNoL0tNZ3NBUVhKS0VNb3lDd0JCY2tvUTZnU3lneTRBR1FHR0lETUFBT1FHV0RBZVptaHQ4MGZxb1JEQUdTVVAxUUpaWmIxRjhXNVkrTHBnOHlpQVpsRlllTHBnOHlpQVpsRmdUc3JrWURNaWdaM1ZpTEJMelBsMWRSMDVOUFh5b1hpMHc4YU9NZUF6S0pnTzE5VzRKZVpjbVlxQmx1MXNXMzkxOFNJZ1hNVXlDd0tWcE5sQzM2WktXZG02N3ZWNzFicm5WY3VMelZKVi8zMWM0M3VYNjR2TlR2VjJxaUJVenJSZDZ1djNJWlBNeklpekNmNXhDekMxaysvL00zVSs3SExURGt6Kytzcm5aWHVWVkpTcDlaYWJqOXVkUDU4YTZsNXIvSGZhNk1HVHRwUW95dHJTLzkxQTdSbVVaaDQ1a3MxMHRUT3pFNjlVeU9aMVVSM2JmQ1A3ZDFxbFVSSG91cjZNdFBGNUlaN0RjaHNHaWFlK1ZMSnpQTnFHcG0xYWlReitYY1Bnakx6RFp4eVF3dXQyVlJNUFBNbGt0bkFjMll1djFtdExqMmd4b3JhcmJyOEF3YTdTNC9XVi9ycjN3Z2FPSmMvcFEzeWJ3SkJadEhoU3VWVU9ISGZESzNaRkxCbUppb3V5S3g3V2YvTk16d0k1Q3d1eU13RE1uTVc1MldHWjI3NFErVitDSkFJeUN3bm9TQ3pCQlFrb3d5aElMTUVGQ1NqREtGS0tEUGdBcEFaWUFBeUF3eEFab0FCNTJXRzNqWi9xQklPQVpCUi9sQWxsSm05TDVjTGtsR0dVSkFaWk1ZUUNqSkxJRE9RSHBBWllDQXJtWVhNc2ZtdW1sYnpoRHR6Q0dUbUxKbTFaaFBtMkh3NkpyUCthOE9mSVRObnlWNW1JM05za3NwMnp6VjJsejhOT0RlN2w3LzB2bFdmWnVvK3hpZS9zUlJuV0RFTDhVcmwwL1FJbTJOVFQ2c3B4UlowYmo1dWZLNy8vQUZHbWprSjVkQklNM3lPVFhuTnZOZTRQK0xjOUtjL2g4eHlFc29obVUyYVkzTk5kTDkrV3dTZG14ODM2V1ZZMXpFZ00vNVFEc25zNUJ5Ykg4aVJwbXpaOXRTMDFKNXpzL2EvNjVaOW1xd2ZFMGh3M3d3dzRMek1nQXRBWm9BQjUyV0czalovS0plR0FOTURtZVVrRkdTV2dJSmtsQ0VVWkphQWdtU1VJVlFKWlFaY0FESURERUJtZ0FISURERGd2TXpRMitZUFZjSWhBRExLSDZxRU1yUDNaWGhCTXNvUUNqSkxRRUV5eWhBS01nTzVCRElEREVTWFdZaXpzcUZldWxkUGxBMU9oam5Za2pPVlVEbjl2S3g4bFk0NStkSXhqOHdxYzZhYWJXNzQ0TCtaV1ZQT2NXSWVub1hNM0dXSzFpekVXU2xmM2oweEsrYllaSmkwbnlyYy9WcFQ5TC9aZU5hbUZkMDFjYThoSHBxbzJwelp2N2tpeE8rKzB4dzVualJxZHZSRXJwQ1p1OFNSMmRCWnFWNlVuN0pGVFZMbmxhODkrTWI2a2luUlg2OTExTHBIcjdaVnVaYVVubnpwM3BiVDQzUnExTWExdFY5dXNMWDhacTMvMXJlYTRwT2Z5RkR2cXZlK3pGYkVHVDdOblBrWTRkTk00Tk1NY1ZhcUYycWxxR1VTbld0Ynk1L1JKWStFcEV0MGF1SWU2VVUyWHFyY3JyejJrV1IycXl2aU1WMDhyejVyS3pWcWMrWTdvbjlydHo3NCtaNE1YVmZ2dGN6V3F5dW1BaGhwNWlSVXFpUE5FR2VsZWxGR04xSkRuWFNsWnNqMDVzd2ttVFhvUmN1bFZmZGJzOEViVGRXYTBkdkhEV1BPbE9WdWRhLzgraGQ3VFJsSytQdjFYK3RlYVFmck9nWmt4aDhxVlptRk9DdlZpNUxaWHJOalpFWkMwaVZvL2U3U0F5VVhYWTdHQmJKL0pzUjkwemVUZ3RQbXpPN2F2VWIvMXVEbTk5cDdUUmxLdlZjemE5SkZzMVVMMW5VTXlJdy9WTHIzelU0NEs1dFA1WXZ5VTdhcTFlVTM1Wis4cU5LVjA1OE1zMXJmbFdQSkZWWE9qRFIzVlZ1NFMxZlJsZzVIWE51NnRuWCtzbXdQYVNqNzAycjFpOTlXNzJrTWVtZTlXaHRzNmI4VGhDR0FzMWkrYjlZNU9lcTBCMlRtTEhabE5yenJsUVo0RU1oWm5QOFdBTGlBOHpKRGI1cy9WQW0vT2tkRytVTkJaZ2tvU0VZWlFrRm1DU2hJUmhsQ2xWQm13QVVnTThBQVpBWVlnTXdBQTg3TERMMXQvbEFsSEFMWSswS3pJQmxsQ0FXWkphQWdHV1VJQlprbG9DQVpaUWdGbVlGY3dtK2cwdzhMV1RUUVRmVjVRU2J3Rytqa2s5bkNwb0V1NGljRkdaS0JnVTdLekthQnpwYkJETXYwbGhrWTZLVE1iQnJvb3RROUNnWHBiVE9FY3NKQTU3ZG13bzZCYnVyUFBJR0NaSlFobEJNR3VtSGZ6STZCYnVyUFBJR0NaSlFobEFzR09ybXBiZE5BTi9Wbm5rQkJNc29RS3ZQN1psa1k2Rkk4SXJBRURIU0FBZWUvQlFBdUFKa0JCcHlYR1hyYi9LRXlId0trQ21TV2sxQ1FXUUlLa2xHR1VKQlpBZ3FTVVlaUUpaUVpjQUhJRERBQW1RRUdJRFBBZ1BNeVEyK2JQMVFKaHdEMnZqa3ZTRVlaUWtGbUNTaElSaGxDUVdZSktFaEdHVUpCWmlDWHBPL1RWQ1h2ckt1bmFzOWY5cnlZOW55YTAzeGFrQkVNUGsxVlV1NU0vejB2cGtXZlpzUVBDcktFd2FmNVFCYnlaT1o1TWUzNU5IUGhROFR5OUNXRFQxTVZVaGMvMHA3eFlscjBhVWFwZWlRSzB0dG1DSlZMbjZZcTVMVm14b3RwMGFjNTlVZWVSRUV5eWhBcWx6NU5WY2lYbWZaaVd2UnBUdjJSSjFHUWpES0V5cU5QVXhWNjVJMDBqUmV6YWMrbk9mVkhua1JCTXNvUXlvTE1EaXVMUnd1TGNTdVFnVTh6eFFNQ1c0ekxySGVwZDEzMEx1N0Vpd2FmSmdobFhHYkhQeVNaSGM0ZFpGV2YwNERNbkNYa29sbXB6TVpzekZJR01uT1c4Q0hBZitaU1ozamVMQ2VoRWc0QmVoY3FtbncyWjVCWlRrSWxIV25lTlgweXRHWjVDVldRU2puL0lCQXl5aC9LZ3N6a2hYUGVWbjNzZ2lHQXM1eTRvYkd4U0tQTjJMZG5Vd1V5YzVZVHQyZGZrdDB6aC9wbXdBVk9YRFEvM0tTWGY0Yk1nRTNDYjJnNGRORkViNXMvbEtVYkdrY3YyNnFRVmNKazlod3l5aC9Ld2toejI2M2JzNUJaQnFHU3k2eDM2ZmlIb25mZFdvMXNBcG5sSkpRRm1WMFhoNnZIMzNlbk5XT3ZCWWpCaVl2bS91ek90cjQvYTNNQ1RlVTRXVGxscDdnK1Rjak1DVTU3UXNQbUJKcjBmN0JWUDJXbm1ENU55TXdKUm05b1hOelI5elJtUjJWbVlRSk5OZTFjalJxNjVVL1hsLys5V212UlhpcnM3cm5HcnJJTnJNVHlhVDQzOWg3TFhDNVB0R1ozaDk4QzJKeEFVN2RtclRwcGpZcnROZnZ2bTUyVWdVNTU3V0w1TkRFRXlDQ1VoU0ZBd0FaZ2N3Sk42V0Jha2FhNTd0cmdqVWYzcjM3c2g3M1h1TjlXczlMRjhtbENaaG1Fc25EZlRIM1BwRnN6bXhOb3l2K2t1UlcxdzVVUFpQZE83eVM2WDc4dFk1T2c0dmcwSWJNTVFsbG96UUo5TTRzVGFOSW0yWVdUZlRNYVBkNmlTN0VYdGkzYlN5cFkvZEo2SEo4bVpKWkJLQXV0MmQzcG50Q3dZOHo4bkpxN3Q4OHNoWkdtczRUZTBJaituYVlsWTJiTC9JMnowOEVUR3M3aStuZWF3QWxjLzA0VE9JSHIzMm1pdDUxQktBdERnT0YzbXJrRE1zdEpLQmpvRWxDUWpES0Vnc3dTVUpDTU1vUktLTFBlSldzMVNRTU1BWnhsM0hLU3oxc1pHc2pNV1VabGRsMTkyWlJQWHhOazVqQmhmYlA5bkxacGtKbXpqTGRtNG5nanIxOENZQWlRbDFCSmh3RHk4WXhWYTdXeERXU1drMUJKWlJiM1R4dnpBSm5sSkJUdW15V2dJQmxsQ0ZWQ21RRVhPRVZtdG55YTlGcEx6YWNKbk9DMDFzeVNUL09adERxbDVkTUVUaEJKWmdsOW1xSjdPeldmSnBaT0xLUElMS2xQYzdlNmtwcFBFNzN0REVMWkhRTFk4bWxxamFYajAwUkdNd2hsVjJhMmZKcEMzRytuNWRORVJqTUlaZm1HaGgyZjVpNnQ3YWZsMDBSR013akZmOThzYTU4bWNJS0VNb05QRTBRQjN3SUFCaUF6d0lEek1rTnZtejlVQ2I4NlIwYjVRMEZtQ1NoSVJobENRV1lKS0VoR0dVS1ZVR2JBQlNBendBQmtCaGlBekFBRHpzc012VzMrVUNVY0FpQ2ovS0Vnc3dRVUpLTU1vU0N6QkJRa293eWhyTW9zcm9GT2xieXpyaDUzUEg5WnUrS3FWUmpveWt3YUJqcFZVdTVNL3oxWEhBeDBwU1lOQTkwRFdjaVRtWEhGd1VCWDZtVWFCanBWU0YzdHBGMUp1K0pTTTlBQkYwakRRS2NLZWEyWmNjWEJRSmQxcEx3T0FXSWI2RlFoWDJiYUZRY0RYZGFSY2l1em1BWTZWZWlSTjlMVXJqZ0NCcnBzSStWWFpoSEkzRUNIalBLSFlwY1pESFFnQ3M1L0N3QmNBRElEREVCbWdBSG5aWWJlTm44b1BLR1JnSUprbENFVVpKYUFnbVNVSVJSa2xvQ0NaSlFoVkFsbEJsd0FNZ01NUUdhQUFjZ01NT0M4ek5EYjVnOVZ3aUVBTXNvZkNqSkxRRUV5eWhBS01rdEFRVExLRUNwdG1VMWozUlRhZFZJYm4vZFFQNkxXMHY0Vk9WZUZlZFlNUHMwQ00yVnJOb1YxVXlqejIrQ041dGk4aDJveXV1NmF0Sjg4TkJHZnFrY2E0ZE1zTG5GbGRwWjFVOXN2UFptTnpIdW9MSnZLbGJLKzNOWUd1b0h5WmNLbldkaGxUSm1kYWQxVTZxRXIzamx0amdyT2V5aGw5cGd1b1ZlZnRaV0pXSmQ1UjhDbldWeml5Q3lTZFZQYUwrVkZjNnMrUHUraDM1clIyOGNOcFVkbFhZRlBNOVZJRGcwQnByQnVTdnNseVl6YXNQRjVENGQ5TTNOSnBYZktsd21mWnBxUlhKSlpWT3VtYXZQMDN6ZjRiR3plUTIzTzNLV3JhRXVISXE1dEtWOG1mSm9wUm5KS1poR3dZOTBNQVRMTFNhZzh5TXlTZFRNRURBR2N4Zmx2QVlBTFFHYUFBY2dNTU9DOHpORGI1ZytWaHlGQWVrQm1PUWtGbVNXZ0lCbGxDQVdaSmFBZ0dXVUlWVUtaQVJlQXpBQURrQmxnQURJREREZ3ZNL1MyK1VPVmNBaUFqUEtIZ3N3U1VKQ01Nb1NDekJKUWtJd3loTEl1TTF2R1RMVUY4Mm1XbHJOYU0xdkdUTXluV1dvaXl5eWhNUlB6YVpaNkdWVm1TWTJabUUrejFFU1NtUVZqSnViVHpEcFNub2NBMW95Wm1FOHo2MGk1bHBrbFl5WjF2akNmWnJhUjhpMnpDQ1EzWm1JK3pmUWp1UzR6QzhaTXpLZFpjSnovRmdDNEFHUUdHSURNQUFQT3l3eTliZjVRZUVJakFRWEpLRU1veUN3QkJja29ReWpJTEFFRnlTaERxQkxLRExnQVpBWVlnTXdBQTVBWllNQjVtYUczelIrcWhFTUFaSlEvRkdTV2dJSmtsQ0VVWkphQWdtU1VJVlRLTW92czJoem9XVEpwY2Y3eWNscytUbGFGVDdQTVREbHRhMVRYcG5xTy82dnljZjZCM1BaeEV6N05VaE5UWm1lNU5sWEJqblRWRGQ0aWRTbVp3YWRaM21VOG1VVnhiWkw0MXFUTTN1NS9zK0cxWnZCcGxwUVlNb3ZpMmd5MFptK0w3cFg3VGZnMHM0N2t6aEFndW1zejBEZDdtM1M0MUlSUE0rdElEc2tzcW12ek0zK2srU2RiOHNLNjl3Zyt6YXdqdVNTekNNUnhiY0tubVg2a1lza3NsbXNUUHMyQzQveTNBTUFGSURQQUFHUUdHSEJlWnVodDg0Zkt3UkFnUlNDem5JU0N6QkpRa0l3eWhJTE1FbENRakRLRUtxSE1nQXRBWm9BQnlBd3c0THJNbm1PdkJZaUI4ekpEYjVzL1ZQbUdBSkJaQnFFZ3N3UVVKS01Nb1hobEZ0OVBKLzBweWthdzlJSGVKT0lhNkNDekRFSXh0MmJ4L1hScWppZngwR3g2cXA0MWkyV2d3eERBQ2V6SWJHby9YVXM2Q0tqbGEydG4wMEFaNXVJWTZKNGJlNDlsTHBkV1pEYTluKzV4UTNTdlBwUFRibnB6STc0allobm8wSm81UVhLWnhmTFRxZGFNeWo1dXFOWk1PUWhpR2VnZ015ZElKTFA0ZmpyZE56TlRDWk1PbFdFdWpvRU9RNEFNUW5IZjBJanJwMnRTZVpLZlhrZGMyMUtHdVJnR09zZ3NnMUE1dkcrV2ZCWkVIOGdzSjZIeUp6TUxzeUQ2NEhtem5JVEtuOHhzZ2ljMG5BVXlBd3hBWm9BQnlBd3c0THpNME52bUQxWENJUUF5eWg4S01rdEFRVExLRUFveVMwQkJNc29RcXVBeUE4NmlFdWlHekVMSjVmQVRsUW9GTXJNTEtoV0t3eklEN2dDWkFRWWdNOEFBWkFZWWNGTm15dXZwTDNLQ3FVMm5hdTg1dThSNEQvMWxmYWFjbEpueEU1aEZUdkJxOHpEcmlveWdwekxLL0V3NUtUUGpqdkpNVXZuQTFFWlpVUE9EbVRFcjZ6UGxwTXlVMTlOZjVBUlRHMlZCemJvdVE3VE1NajlUVHNvc3o2MlpVRW5ORFdqTjRwUHJ2cG5KYkU1QTN5d0J5dXRaVjR2OG9DdlZpakxWR1I5eVFza2NuQ2szWlFZY0F6SURERUJtZ0FISUREQUFtUUVHSURQQVFERmx0bCtwTEg2NE9iYnkrSzgzZXkrcWxXWXhRdGc2ZitYUkN3ZVRpcHpOeWQxaUJsSTErYU96aXp5L00xVnRwdUtmNHUxZFNKbHR6eDJJL1pueEU3S3QxNXlRMzhqV1VIb1g1ZzdPS0RLR2Y1QUpSNHUwYndoYTc2ZHl2REY3bXN3U0VsT2xSWlRaMFJma3FUaGNIVnROclpsY1RQaDlORnNuUkZUWlBiWElLUDVCWXZ6Mm43TEw4ZmNqS0toM01VV1ppZDVMWndvOWhDTEtiSC9PbkFsNTdhU3ovaThWV25GWXFjeklpeVl0VitXdlpHQmI3MEpsZGtkcDZIaWpNayt0d2IvSkZiMkxyOC84K01WTnRmSG9oUjlVNXBYTXRpc3F1TnlSOWxkdlpjRi9lT0ZubGJsZlZ1WSt1akM3UTQyZU9vamNNZVJvUWpVSlIyYUhBeStTS2ZINnpOOTUrNXJpKy9TamQ5akRlU2w1czZjK2VLQ2src1RldThBRytsVDA4N1ovN0dFOWhtWDhnMVVXOVNkZThNN0NlQ1cyeDM5OW8xQmttVkViZExUd0ZWS09UT3Z6TzlUSWtRTCtTMnBsWmpPNGJYK1JCS1NiS3RrUy9GYXR1TEZCYWFlQ2F1UFJ3dXJ4eGlyOWNFanJGclVjQmEyVWIvK1lDdEo3eXM2ODdQMWRsSUtWQjFFN2hoeE55S3Z2RFcrSEd5YVNWMkpSZVB2ZTBNVkpXZHVMNXJDMFhnd1BwVllHU2dvbHcyMjUxWHdvczJGL2ZsaHpmV3hUZkZqR3JGTzFXS1YvOHRJOW9STDdpekZTVW1TWnlSTkNaMTBsWGlaSWFVbktTYi8zdDhuVXJab3JJcDNJdXdkcWhWU2N0MUZlTkpWczZMZWRaR0V1VFB1TDZxMzhXUWNpS1pvZlROTzRHblkwUFJnSjdLQWllU1dFdjY4dW9ob1A3N0N5bEwrblhqa3NLVXhMRS9oUStzZkQrVUROL1dQTFR6c3M0NThsZVFib0JQWXVUYW9FWkdiUWZiT2pIKzJya3pKQlpvRnRoL1FMN3NuczZQbC8vWkZRSzB6SzFjOURtWmtyaGljT2s5WXdtZmxSeDQ0bXdtWG1sUkQrdnNFTW04T095a3l1REpRVUl6SUxiRkJ0cnhjaUtMTkFHWE9XNWsyTHVmcmh4RXBBWmg1eXBFbGRWWktiZndJUHFmZTFNZnVlTDdQZ3RtMXpSZlQzVlN0TXl0WFBKRE82ZEtpR1FjamZjelhnMGhlVDNxVnhtZlV1eU9NSVArclkwY1NZekhRa3Y0VHVBYTc2aWoyVUxZdDNXTmszOC9kVUt3TWw1WFpaT1BDaFRJaEZ2YXNLRWF4SG9JeCsxYldnd3BYQVdSaXJCUHBtUHR1eXo2dWErVlg2ZVg2ZnpocXRxcXpxSDlRaXNPMlhsWmsvbUgzZGRLS1BYcFpubVZaOFdSWFNHOS9ia0tYMTN1cDJBWFdUSy9MMnhyYnBXMU1nV3Z4TS9UVHpoM0trc0txQzdKdzgyb0dzMTl3UHZCMCtNcEZNQ2RXelh6VVZNQldmMlJUbXNIS2tHVHlVSEdNTVM2b1BQck1aK0ZCNnc2OFc1UERDaE5ESDFzVURPNXQxcWhaQ2F5bThFaGhwTW1MdnBzRjBrVTYvOVRxQjM1S0s3MDRsanVPL25WUjhpcHM2UVNDeldHUWxzeWpmQW93amxkRzdQdFV1Sis0NSt1QmJBRWFvVXowWDU5cVJacVRKSE9vdVJHUzIxWkRVS3BBWllBQXlBd3hBWm9BQnlBd3dBSmtCQnY0ZldPTGdidU9penA0QUFBQUFTVVZPUks1Q1lJST1cIiAvPlxuXG48IS0tIHJuYi1wbG90LWVuZCAtLT5cbiJ9 -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAF4CAMAAADJxsXOAAABy1BMVEUAAAAAADoAAGYAOjoAOpAAZrYAzJkzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshmAABmADpmAGZmOpBmZgBmZrZmkNtmtrZmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZjqQZpCQkDqQkGaQkJCQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyMjIyOTIyP/I5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/tmb/tpD/yI7/yKv/yMj/25D/27b/5Kv/5Mj/5OT//7b//8j//9v//+T////dxrJjAAAACXBIWXMAAAuwAAALsAEaOBByAAAXn0lEQVR4nO2dj3/bxnnGKU3K1GzZRMtVJ8eps8rt6qij+iNrVs/U2i1bvdaSk66JY4fa6m2RrM12U4fK2kV0tqwJa5WOxpoU78/dez8AghQogcDhBQ54vh+bEIHDiyPeR4c7EI+uIgBInUrWFQBlADIDDEBmgAHIDDAAmQEGIDPAgCMy612ozH10iRarWdcExMENmR1vLIqjhfnjjQpk5iRuyKz34ia9XCK5QWZO4obMjjdmd/TyKxuVRVpUKvP0+qcX5j568ccXaE3vgtpATR5tENuV2b/fMa8gD7ghMymfuQMps5nNw7kD+W/2vY3K7A712WZ3DmdubFRoA7196YAavKOXRe/ijn7NuuJA4YjMhNivUL9MXjSPnpfaOfrCprqCyssp9dzMBipE7dzRwqIsoV5BLnBGZnQpnN3xZbZPrVeYzLSyqO1b9F5BHnBDZtT7V4oyaqKGarQ1W/VkNm/KHqoh6SEGpjnBEZnJ+2XUIxuqyZfZhUVx6DdzRwur4sNN6pWJ/VX9mnXNgcIRmV3arlBfnwaPMzSwnPvVQuX3Fma/LHtrNAag66e34eCwQhfK//sbORDVryAXuCGzyag7aiDvQGaAAcdldixvmGVdCXAmjssMuAFkBhiAzAADkBlgADIDDLghs98HzqIS6IjMwlY+sRbeXiRUahznZQZcADIDDEBmgAHIDDDgvMzQ2+YPVcIhADLKH6qEMnsO5IzJqYPMgDUmpw4yA9aYnDrIDFhjcurSlVl/vbrcblWXmqL71YZ8u/wfd+QquU2uGWxVq9Vzd9bP0cbBFhUb7iVfq9V6sK5jZH1SwThhWWJpzfqvkqQ+Jvl8/hc1IVp10pZaJcwa+eZpo39zRYjffac5spfovyY6WpGQmRuEZYlXZg+lYpRqPJmpNfTmaUP03/pWU3zyk2areu7dreU3a0OZrQj9eMaTJ2oo/SS4zPqkgnFG86OXrDLrv98nJYlOtebJTK+hKyNdMPu3duuDn+/JAvX+q+94rdl6dcWEQWvmBGFZ4pMZ6afj9bNadSMzvca0Zre6V379i70mCasuOjX/otm90g7WdYysTyoYJyxLLDIb3Gwo0XzSlhfAjhSRfNu9ataoN2v9W4Ob32vvNfeanXp37V5DF6GLZqsWrOsYWZ9UME5YlnhuaHQv01WRBpR1sVtd/p8/qy49kgNI6oKpNV/8Nr2p/hU1Yp0aDUh/WqU117bOX9bjz2ptsCXHoJCZI4RlCffNgGUmp85hmQEXgMwAA87LDM/c8Icq4YNAyCh/KMgsAQXJKEMoyCwBBckoQ6gSygy4AGQGGIDMAAOQGWDAeZmht80fqoRDAGSUP1QJZZb1F8W5Y+Lpg8yiAZlFYeLpg8yiAZlFgTsrkYDMigZ3ViLBLzPl1dR05NPXyoXi0w8aOMeAzKJgO19W4JeZcmYqBlu1sW3918SIgXMUyCwKVpNlC36ZKWdm67vV71brnVcuLzVJV/31c43uX64vNTvV2qiBUzrRd6uv3IZPMzIizCf5xCzC1k+//M3U+7HLTDkz++srnZXuVVJSp9Zabj9udP58a6l5r/Hfa6MGTtpQoytrS/91A7RmUZh45ks10tTOzE69UyOZ1UR3bfCP7d1qlURHour6MtPF5IZ7DchsGiae+VLJzPNqGpm1aiQz+XcPgjLzDZxyQwut2VRMPPMlktnAc2Yuv1mtLj2gxorarbr8Awa7S4/WV/rr3wgaOJc/pQ3ybwJBZtHhSuVUOHHfDK3ZFLBmJiouyKx7Wf/NMzwI5CwuyMwDMnMW52WGZ274Q+V+CJAIyCwnoSCzBBQkowyhILMEFCSjDKFKKDPgApAZYAAyAwxAZoAB52WG3jZ/qBIOAZBR/lAllJm9L5cLklGGUJAZZMYQCjJLIDOQHpAZYCArmYXMsfmumlbzhDtzCGTmLJm1ZhPm2Hw6JrP+a8OfITNnyV5mI3Nsksp2zzV2lz8NODe7l7/0vlWfZuo+xie/sRRnWDEL8Url0/QIm2NTT6spxRZ0bj5ufK7//AFGmjkJ5dBIM3yOTXnNvNe4P+Lc9Kc/h8xyEsohmU2aY3NNdL9+WwSdmx836WVY1zEgM/5QDsns5BybH8iRpmzZ9tS01J5zs/a/65Z9mqwfE0hw3www4LzMgAtAZoAB52WG3jZ/KJeGANMDmeUkFGSWgIJklCEUZJaAgmSUIVQJZQZcADIDDEBmgAHIDDDgvMzQ2+YPVcIhADLKH6qEMrP3ZXhBMsoQCjJLQEEyyhAKMgO5BDIDDESXWYizsqFeuldPlA1OhjnYkjOVUDn9vKx8lY45+dIxj8wqc6aabW744L+ZWVPOcWIenoXM3GWK1izEWSlf3j0xK+bYZJi0nyrc/VpT9L/ZeNamFd01ca8hHpqo2pzZv7kixO++0xw5njRqdvRErpCZu8SR2dBZqV6Un7JFTVLnla89+Mb6kinRX6911LpHr7ZVuZaUnnzp3pbT43Rq1Ma1tV9usLX8Zq3/1rea4pOfyFDvqve+zFbEGT7NnPkY4dNM4NMMcVaqF2qlqGUSnWtby5/RJY+EpEt0auIe6UU2Xqrcrrz2kWR2qyviMV08rz5rKzVqc+Y7on9rtz74+Z4MXVfvtczWqyumAhhp5iRUqiPNEGelelFGN1JDnXSlZsj05swkmTXoRculVfdbs8EbTdWa0dvHDWPOlOVuda/8+hd7TRlK+Pv1X+teaQfrOgZkxh8qVZmFOCvVi5LZXrNjZEZC0iVo/e7SAyUXXY7GBbJ/JsR90zeTgtPmzO7avUb/1uDm99p7TRlKvVcza9JFs1UL1nUMyIw/VLr3zU44K5tP5YvyU7aq1eU35Z+8qNKV058Ms1rflWPJFVXOjDR3VVu4S1fRlg5HXNu6tnX+smwPaSj702r1i99W72kMeme9Whts6b8ThCGAs1i+b9Y5Oeq0B2TmLHZlNrzrlQZ4EMhZnP8WALiA8zJDb5s/VAm/OkdG+UNBZgkoSEYZQkFmCShIRhlClVBmwAUgM8AAZAYYgMwAA87LDL1t/lAlHALY+0KzIBllCAWZJaAgGWUIBZkloCAZZQgFmYFcwm+g0w8LWTTQTfV5QSbwG+jkk9nCpoEu4icFGZKBgU7KzKaBzpbBDMv0lhkY6KTMbBrootQ9CgXpbTOEcsJA57dmwo6BburPPIGCZJQhlBMGumHfzI6BburPPIGCZJQhlAsGOrmpbdNAN/VnnkBBMsoQKvP7ZlkY6FI8IrAEDHSAAee/BQAuAJkBBpyXGXrb/KEyHwKkCmSWk1CQWQIKklGGUJBZAgqSUYZQJZQZcAHIDDAAmQEGIDPAgPMyQ2+bP1QJhwD2vjkvSEYZQkFmCShIRhlCQWYJKEhGGUJBZiCXpO/TVCXvrKunas9f9ryY9nya03xakBEMPk1VUu5M/z0vpkWfZsQPCrKEwaf5QBbyZOZ5Me35NHPhQ8Ty9CWDT1MVUhc/0p7xYlr0aUapeiQK0ttmCJVLn6Yq5LVmxotp0ac59UeeREEyyhAqlz5NVciXmfZiWvRpTv2RJ1GQjDKEyqNPUxV65I00jRezac+nOfVHnkRBMsoQyoLMDiuLRwuLcSuQgU8zxQMCW4zLrHepd130Lu7EiwafJghlXGbHPySZHc4dZFWf04DMnCXkolmpzMZszFIGMnOW8CHAf+ZSZ3jeLCehEg4Behcqmnw2Z5BZTkIlHWneNX0ytGZ5CVWQSjn/IBAyyh/KgszkhXPeVn3sgiGAs5y4obGxSKPN2LdnUwUyc5YTt2dfkt0zh/pmwAVOXDQ/3KSXf4bMgE3Cb2g4dNFEb5s/lKUbGkcv26qQVcJk9hwyyh/Kwkhz263bs5BZBqGSy6x36fiHonfdWo1sApnlJJQFmV0Xh6vH33enNWOvBYjBiYvm/uzOtr4/a3MCTeU4WTllp7g+TcjMCU57QsPmBJr0f7BVP2WnmD5NyMwJRm9oXNzR9zRmR2VmYQJNNe1cjRq65U/Xl/+9WmvRXirs7rnGrrINrMTyaT439h7LXC5PtGZ3h98C2JxAU7dmrTppjYrtNfvvm52UgU557WL5NDEEyCCUhSFAwAZgcwJN6WBakaa57trgjUf3r37sh73XuN9Ws9LF8mlCZhmEsnDfTH3PpFszmxNoyv+kuRW1w5UPZPdO7yS6X78tY5Og4vg0IbMMQllozQJ9M4sTaNIm2YWTfTMaPd6iS7EXti3bSypY/dJ6HJ8mZJZBKAut2d3pntCwY8z8nJq7t88shZGms4Te0Ij+naYlY2bL/I2z08ETGs7i+neawAlc/04TOIHr32mit51BKAtDgOF3mrkDMstJKBjoElCQjDKEgswSUJCMMoRKKLPeJWs1SQMMAZxl3HKSz1sZGsjMWUZldl192ZRPXxNk5jBhfbP9nLZpkJmzjLdm4ngjr18CYAiQl1BJhwDy8YxVa7WxDWSWk1BJZRb3TxvzAJnlJBTumyWgIBllCFVCmQEXOEVmtnya9FpLzacJnOC01syST/OZtDql5dMEThBJZgl9mqJ7OzWfJpZOLKPILKlPc7e6kppPE73tDELZHQLY8mlqjaXj00RGMwhlV2a2fJpC3G+n5dNERjMIZfmGhh2f5i6t7afl00RGMwjFf98sa58mcIKEMoNPE0QB3wIABiAzwIDzMkNvmz9UCb86R0b5Q0FmCShIRhlCQWYJKEhGGUKVUGbABSAzwABkBhiAzAADzssMvW3+UCUcAiCj/KEgswQUJKMMoSCzBBQkowyhrMosroFOlbyzrh53PH9Zu+KqVRjoykwaBjpVUu5M/z1XHAx0pSYNA90DWciTmXHFwUBX6mUaBjpVSF3tpF1Ju+JSM9ABF0jDQKcKea2ZccXBQJd1pLwOAWIb6FQhX2baFQcDXdaRciuzmAY6VeiRN9LUrjgCBrpsI+VXZhHI3ECHjPKHYpcZDHQgCs5/CwBcADIDDEBmgAHnZYbeNn8oPKGRgIJklCEUZJaAgmSUIRRkloCCZJQhVAllBlwAMgMMQGaAAcgMMOC8zNDb5g9VwiEAMsofCjJLQEEyyhAKMktAQTLKECptmU1j3RTadVIbn/dQP6LW0v4VOVeFedYMPs0CM2VrNoV1Uyjz2+CN5ti8h2oyuu6atJ88NBGfqkca4dMsLnFldpZ1U9svPZmNzHuoLJvKlbK+3NYGuoHyZcKnWdhlTJmdad1U6qEr3jltjgrOeyhl9pguoVeftZWJWJd5R8CnWVziyCySdVPaL+VFc6s+Pu+h35rR28cNpUdlXYFPM9VIDg0BprBuSvslyYzasPF5D4d9M3NJpXfKlwmfZpqRXJJZVOumavP03zf4bGzeQ23O3KWraEuHIq5tKV8mfJopRnJKZhGwY90MATLLSag8yMySdTMEDAGcxflvAYALQGaAAcgMMOC8zNDb5g+VhyFAekBmOQkFmSWgIBllCAWZJaAgGWUIVUKZAReAzAADkBlgADIDDDgvM/S2+UOVcAiAjPKHgswSUJCMMoSCzBJQkIwyhLIuM1vGTLUF82mWlrNaM1vGTMynWWoiyyyhMRPzaZZ6GVVmSY2ZmE+z1ESSmQVjJubTzDpSnocA1oyZmE8z60i5lpklYyZ1vjCfZraR8i2zCCQ3ZmI+zfQjuS4zC8ZMzKdZcJz/FgC4AGQGGIDMAAPOywy9bf5QeEIjAQXJKEMoyCwBBckoQyjILAEFyShDqBLKDLgAZAYYgMwAA5AZYMB5maG3zR+qhEMAZJQ/FGSWgIJklCEUZJaAgmSUIVTKMovs2hzoWTJpcf7ycls+TlaFT7PMTDlta1TXpnqO/6vycf6B3PZxEz7NUhNTZme5NlXBjnTVDd4idSmZwadZ3mU8mUVxbZL41qTM3u5/s+G1ZvBplpQYMovi2gy0Zm+L7pX7Tfg0s47kzhAgumsz0Dd7m3S41IRPM+tIDsksqmvzM3+k+Sdb8sK69wg+zawjuSSzCMRxbcKnmX6kYskslmsTPs2C4/y3AMAFIDPAAGQGGHBeZuht84fKwRAgRSCznISCzBJQkIwyhILMElCQjDKEKqHMgAtAZoAByAww4LrMnmOvBYiB8zJDb5s/VPmGAJBZBqEgswQUJKMMoXhlFt9PJ/0pykaw9IHeJOIa6CCzDEIxt2bx/XRqjifx0Gx6qp41i2WgwxDACezIbGo/XUs6CKjla2tn00AZ5uIY6J4be49lLpdWZDa9n+5xQ3SvPpPTbnpzI74jYhno0Jo5QXKZxfLTqdaMyj5uqNZMOQhiGeggMydIJLP4fjrdNzNTCZMOlWEujoEOQ4AMQnHf0Ijrp2tSeZKfXkdc21KGuRgGOsgsg1A5vG+WfBZEH8gsJ6HyJzMLsyD64HmznITKn8xsgic0nAUyAwxAZoAByAww4LzM0NvmD1XCIQAyyh8KMktAQTLKEAoyS0BBMsoQquAyA86iEuiGzELJ5fATlQoFMrMLKhWKwzID7gCZAQYgM8AAZAYYcFNmyuvpL3KCqU2nau85u8R4D/1lfaaclJnxE5hFTvBq8zDrioygpzLK/Ew5KTPjjvJMUvnA1EZZUPODmTEr6zPlpMyU19Nf5ARTG2VBzbouQ7TMMj9TTsosz62ZUEnNDWjN4pPrvpnJbE5A3ywByutZV4v8oCvVijLVGR9yQskcnCk3ZQYcAzIDDEBmgAHIDDAAmQEGIDPAQDFltl+pLH64Obby+K83ey+qlWYxQtg6f+XRCweTipzNyd1iBlI1+aOzizy/M1VtpuKf4u1dSJltzx2I/ZnxE7Kt15yQ38jWUHoX5g7OKDKGf5AJR4u0bwha76dyvDF7mswSElOlRZTZ0RfkqThcHVtNrZlcTPh9NFsnRFTZPbXIKP5BYvz2n7LL8fcjKKh3MUWZid5LZwo9hCLKbH/OnAl57aSz/i8VWnFYqczIiyYtV+WvZGBb70Jldkdp6HijMk+twb/JFb2Lr8/8+MVNtfHohR9U5pXMtisquNyR9ldvZcF/eOFnlblfVuY+ujC7Q42eOojcMeRoQjUJR2aHAy+SKfH6zN95+5ri+/Sjd9jDeSl5s6c+eKCk+sTeu8AG+lT087Z/7GE9hmX8g1UW9Sde8M7CeCW2x399o1BkmVEbdLTwFVKOTOvzO9TIkQL+S2plZjO4bX+RBKSbKtkS/FatuLFBaaeCauPRwurxxir9cEjrFrUcBa2Ub/+YCtJ7ys687P1dlIKVB1E7hhxNyKvvDW+HGyaSV2JRePve0MVJWduL5rC0XgwPpVYGSgolw2251Xwos2F/flhzfWxTfFjGrFO1WKV/8tI9oRL7izFSUmSZyRNCZ10lXiZIaUnKSb/3t8nUrZorIp3IuwdqhVSct1FeNJVs6LedZGEuTPuL6q38WQciKZofTNO4GnY0PRgJ7KAieSWEv68uohoP77CylL+nXjksKUxLE/hQ+sfD+UDN/WPLTzss458leQboBPYuTaoEZGbQfbOjH+2rkzJBZoFth/QL7sns6Pl//ZFQK0zK1c9DmZkrhicOk9YwmflRx44mwmXmlRD+vsEMm8OOykyuDJQUIzILbFBtrxciKLNAGXOW5k2LufrhxEpAZh5ypEldVZKbfwIPqfe1MfueL7Pgtm1zRfT3VStMytXPJDO6dKiGQcjfczXg0heT3qVxmfUuyOMIP+rY0cSYzHQkv4TuAa76ij2ULYt3WNk38/dUKwMl5XZZOPChTIhFvasKEaxHoIx+1bWgwpXAWRirBPpmPtuyz6ua+VX6eX6fzhqtqqzqH9QisO2XlZk/mH3ddKKPXpZnmVZ8WRXSG9/bkKX13up2AXWTK/L2xrbpW1MgWvxM/TTzh3KksKqC7Jw82oGs19wPvB0+MpFMCdWzXzUVMBWf2RTmsHKkGTyUHGMMS6oPPrMZ+FB6w68W5PDChNDH1sUDO5t1qhZCaym8EhhpMmLvpsF0kU6/9TqB35KK704ljuO/nVR8ips6QSCzWGQlsyjfAowjldG7PtUuJ+45+uBbAEaoUz0X59qRZqTJHOouRGS21ZDUKpAZYAAyAwxAZoAByAwwAJkBBv4fWOLgbuOizp4AAAAASUVORK5CYII=" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJsTm9ZWEp3UTI5dVVHVnliV2x0Y0M1emRtZGNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVFF1T1N3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSnpkbWRjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1pFRnVibTk1VFc1VGFHRnljRU52YmxCbGNtMXBiWEF1YzNablhDSXBYRzRnSUZ4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhDSlFkSE5CUW1SQmJtNXZlVTF1VTJoaGNuQkRiMjVRWlhKdGFXMXdMbkJrWmx3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU5DNDVMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjSW5Ca1psd2lLU2xjYmlBZ2RXNXNhVzVyS0Z3aVVIUnpRVUprUVc1dWIzbE5ibE5vWVhKd1EyOXVVR1Z5YldsdGNDNXdaR1pjSWlsY2JuMWNibHh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uU2hhcnBDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9NC45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNblNoYXJwQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5TaGFycENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD00LjksIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uU2hhcnBDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnSharpConPermimp.svg\, width=8, height=4.9, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnSharpConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnSharpConPermimp.pdf\, width=8, height=4.9, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnSharpConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmxOb1lYSndRMjl1VUdWeWJXbHRjQzV6ZG1kY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUUXVPU3dnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4emRtZGNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWkVGdWJtOTVUVzVUYUdGeWNFTnZibEJsY20xcGJYQXVjM1puWEZ3cFhHNGdJRnh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WEZ4UWRITkJRbVJCYm01dmVVMXVVMmhoY25CRGIyNVFaWEp0YVcxd0xuQmtabHhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TkM0NUxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNYSEJrWmx4Y0tTbGNiaUFnZFc1c2FXNXJLRnhjVUhSelFVSmtRVzV1YjNsTmJsTm9ZWEp3UTI5dVVHVnliV2x0Y0M1d1pHWmNYQ2xjYm4xY2JseHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uU2hhcnBDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9NC45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNblNoYXJwQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5TaGFycENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD00LjksIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uU2hhcnBDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNblNoYXJwQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTQuOSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5TaGFycENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uU2hhcnBDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9NC45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNblNoYXJwQ29uUGVybWltcC5wZGZcXClcbn1cblxuXG5gYGBcbmBgYCJ9 -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnSharpConPermimp.svg\, width=8, height=4.9, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnSharpConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnSharpConPermimp.pdf\, width=8, height=4.9, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnSharpConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV6YUdGeWNGWmhjaUE4TFNCY0lsVkJVMU5vWVhKd1FYVnlTVk5QTXpBMVJYaE5ZWGhNVWx3aVhHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG5zaGFycFZhciA8LSBcXFVBU1NoYXJwQXVySVNPMzA1RXhNYXhMUlxcXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
sharpVar <- \UASSharpAurISO305ExMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXphR0Z5Y0ZaaGNpQThMU0JjWEZWQlUxTm9ZWEp3UVhWeVNWTlBNekExUlhoTllYaE1VbHhjWEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxuc2hhcnBWYXIgPC0gXFxVQVNTaGFycEF1cklTTzMwNUV4TWF4TFJcXFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5zaGFycFZhciA8LSBcXFVBU1NoYXJwQXVySVNPMzA1RXhNYXhMUlxcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
sharpVar <- \UASSharpAurISO305ExMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### Tonal loudness and tonality
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dGaWMxWmhjaXdnWlhabGJuUldZWElzSUdGdFlsWmhjaXdnWENKVlFWTlViMjVoYkVWRFRVRkJkbWROWVhoTVVsd2lMQ0JjSWxWQlUxUnZibUZzVTBoTlNXNTBNRFZGZUUxaGVFeFNYQ0lzSUZ3aVZVRlRWRzl1WVd4VFNFMUpiblJCZG1kTllYaE1VbHdpTENCY0lsVkJVMVJ2Ym1Gc1JVTk5RVEExUlhoTllYaE1VbHdpTENCY0lsVkJVMVJ2Ymt4a1JVTk5RVkJ2ZDBGMlowSnBibHdpTENCY0lsVkJVMVJ2Ymt4a1JVTk5RVEExUlhoQ2FXNWNJaXdnWENKVlFWTlViMjVoYkVGMWNrRjJaMDFoZUV4U1hDSXNJRndpVlVGVFZHOXVZV3hCZFhJd05VVjRUV0Y0VEZKY0lpd2dYQ0pWUVZOVWIyNWhiRUYxY2pFd1JYaE5ZWGhNVWx3aUtWeHVaRlpoY2lBOExTQmNJbVJCYm01dmVVMWxZVzVjSWx4dVhHNXpaV1ZrY3lBOExTQmpLRFUwTUN3Z01UQTBOems0TENBME5UWTBOalFzSURnM016TXhMQ0E1TkRVMk5DbGNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuaVZhcnMgPC0gYyhhYnNWYXIsIGV2ZW50VmFyLCBhbWJWYXIsIFxcVUFTVG9uYWxFQ01BQXZnTWF4TFJcXCwgXFxVQVNUb25hbFNITUludDA1RXhNYXhMUlxcLCBcXFVBU1RvbmFsU0hNSW50QXZnTWF4TFJcXCwgXFxVQVNUb25hbEVDTUEwNUV4TWF4TFJcXCwgXFxVQVNUb25MZEVDTUFQb3dBdmdCaW5cXCwgXFxVQVNUb25MZEVDTUEwNUV4QmluXFwsIFxcVUFTVG9uYWxBdXJBdmdNYXhMUlxcLCBcXFVBU1RvbmFsQXVyMDVFeE1heExSXFwsIFxcVUFTVG9uYWxBdXIxMEV4TWF4TFJcXClcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYyg1NDAsIDEwNDc5OCwgNDU2NDY0LCA4NzMzMSwgOTQ1NjQpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
iVars <- c(absVar, eventVar, ambVar, \UASTonalECMAAvgMaxLR\, \UASTonalSHMInt05ExMaxLR\, \UASTonalSHMIntAvgMaxLR\, \UASTonalECMA05ExMaxLR\, \UASTonLdECMAPowAvgBin\, \UASTonLdECMA05ExBin\, \UASTonalAurAvgMaxLR\, \UASTonalAur05ExMaxLR\, \UASTonalAur10ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(540, 104798, 456464, 87331, 94564)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR0ZpYzFaaGNpd2daWFpsYm5SV1lYSXNJR0Z0WWxaaGNpd2dYRnhWUVZOVWIyNWhiRVZEVFVGQmRtZE5ZWGhNVWx4Y0xDQmNYRlZCVTFSdmJtRnNVMGhOU1c1ME1EVkZlRTFoZUV4U1hGd3NJRnhjVlVGVFZHOXVZV3hUU0UxSmJuUkJkbWROWVhoTVVseGNMQ0JjWEZWQlUxUnZibUZzUlVOTlFUQTFSWGhOWVhoTVVseGNMQ0JjWEZWQlUxUnZia3hrUlVOTlFWQnZkMEYyWjBKcGJseGNMQ0JjWEZWQlUxUnZia3hrUlVOTlFUQTFSWGhDYVc1Y1hDd2dYRnhWUVZOVWIyNWhiRUYxY2tGMlowMWhlRXhTWEZ3c0lGeGNWVUZUVkc5dVlXeEJkWEl3TlVWNFRXRjRURkpjWEN3Z1hGeFZRVk5VYjI1aGJFRjFjakV3UlhoTllYaE1VbHhjS1Z4dVpGWmhjaUE4TFNCY1hHUkJibTV2ZVUxbFlXNWNYRnh1WEc1elpXVmtjeUE4TFNCaktEVTBNQ3dnTVRBME56azRMQ0EwTlRZME5qUXNJRGczTXpNeExDQTVORFUyTkNsY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbmlWYXJzIDwtIGMoYWJzVmFyLCBldmVudFZhciwgYW1iVmFyLCBcXFVBU1RvbmFsRUNNQUF2Z01heExSXFwsIFxcVUFTVG9uYWxTSE1JbnQwNUV4TWF4TFJcXCwgXFxVQVNUb25hbFNITUludEF2Z01heExSXFwsIFxcVUFTVG9uYWxFQ01BMDVFeE1heExSXFwsIFxcVUFTVG9uTGRFQ01BUG93QXZnQmluXFwsIFxcVUFTVG9uTGRFQ01BMDVFeEJpblxcLCBcXFVBU1RvbmFsQXVyQXZnTWF4TFJcXCwgXFxVQVNUb25hbEF1cjA1RXhNYXhMUlxcLCBcXFVBU1RvbmFsQXVyMTBFeE1heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoNTQwLCAxMDQ3OTgsIDQ1NjQ2NCwgODczMzEsIDk0NTY0KVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNUb25hbEVDTUFBdmdNYXhMUlxcLCBcXFVBU1RvbmFsU0hNSW50MDVFeE1heExSXFwsIFxcVUFTVG9uYWxTSE1JbnRBdmdNYXhMUlxcLCBcXFVBU1RvbmFsRUNNQTA1RXhNYXhMUlxcLCBcXFVBU1RvbkxkRUNNQVBvd0F2Z0JpblxcLCBcXFVBU1RvbkxkRUNNQTA1RXhCaW5cXCwgXFxVQVNUb25hbEF1ckF2Z01heExSXFwsIFxcVUFTVG9uYWxBdXIwNUV4TWF4TFJcXCwgXFxVQVNUb25hbEF1cjEwRXhNYXhMUlxcKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDU0MCwgMTA0Nzk4LCA0NTY0NjQsIDg3MzMxLCA5NDU2NClcblxuYGBgXG5gYGAifQ== -->
```r
```r
iVars <- c(absVar, eventVar, ambVar, \UASTonalECMAAvgMaxLR\, \UASTonalSHMInt05ExMaxLR\, \UASTonalSHMIntAvgMaxLR\, \UASTonalECMA05ExMaxLR\, \UASTonLdECMAPowAvgBin\, \UASTonLdECMA05ExBin\, \UASTonalAurAvgMaxLR\, \UASTonalAur05ExMaxLR\, \UASTonalAur10ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(540, 104798, 456464, 87331, 94564)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbnAgPC0gbXRyeVR1bmUoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkPXNlZWRzWzE6Ml0sXG4gICAgICAgICAgICAgbnRyZWVzPW50cmVlcywgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuYGBgXG5gYGAifQ== -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOeXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk55RERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlluWTViVVZZVUhrM1NsZG9PV2s1YlhWVksyUjFhaTlGTDI5WWJscE5NR3AzYURjeWVqTjVablJSWlZkWU4wNHZaV2xJZUdvNFZrOUdkblZ1Y1dkbWRGaFlXRk0zV2pnNGNsRnFVeTlEYTBjeEx5OURWVTFYT0ZRMmNrZ3ZiRmMzVVhWRFZUQnFXREp5TDNsWFExVjZUUzh5V0M5UGRuQmthSFUzVkZSUWRsaExXREExTWpWS2RUSk1PVEkwYW5oU2F6bFNiQzk2YnpoMFl6UjFOWGN4UTNZNGEza3ZXa3d6UjJaYVVIZHdaalpTVGxkVk1ubzRlRmhVWWtKYU9VMXhLekJrV2twMlprNTBRMlphVUhoTVVtVnpjbXhtWTFBcmIxWk1UakJvVFZoT2RHc3ZkVWh2TVRWNEswaEZSa0YyVERCbkwwVkVUMEptVVRjd1MyUlNabUpGUkUxQlkxTmpUVVJ6WTFKQ2JrRjNTVVZJVTNKT1FtRlRXVWxpWmpoSVUzWXJRVEJzT0ZsdlFVRnNPRVpxZWtWdVRsUnBORVZOUVdKQ1JrVkZSMWRKVGpsblZubHBZa2syYVRSelJGTjRTMFJWUm5sdFpqSmtXVkpLYzJWVFYwWkdWa015Vm5sYVdWbHNSbmhtUm1kRlZsRmlUMGwyZVhrdlZtZDBiME00ZURsUlFXTlJZemQxYkU5VFkzaExURmxWTmtKRFdFdHNTa3BaYXpaeFZWWkJabFZFWldZdlVYUk1SRzVHTlZKck5YVmpRazVVUlVwUmQwOUlRM2wzVG5kalowZE5VbHBDVVRRM1VsRlJUVmRGYkVNclFVcDVVSEpGUjJkT1FTOXJObWhVWkRWSmVsTjJSM2hrUlhkTk1HVmxZVU4yU0ZGckszaHBaM1p0VDBWU2FVTk5lbEZ3ZUUxMFRpOXhTRnBQVjA5RGJFcHRabXRST1d4emNWaHVjRzFZYlhCelFVSk1lVEI2V0VzNE9VMUxZMjFCYUZGR1NVbERUVEZOZWpKcVFrSmFWVTlaYkVweFZHdDNhRFpUYTJ4clIxcG1UVU4zUW1kbE1WaHJSbEphYURWTlRsSmtVWFJHYVhaS1REaHJSV0ZoUmt0NmF5OUNlVmxEUkd4WFIyWjNSRmhyU1Zod1kxRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuODk0Nzc3MFxcLFxcMlxcOlxcMC43NTU5OTg3XFwsXFwzXFw6XFwwLjc1NjQyNjlcXCxcXDRcXDpcXDJcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcMC43Njg4MzMwXFwsXFwyXFw6XFwwLjgyODk5NDlcXCxcXDNcXDpcXDAuNjM1Njk4OVxcLFxcNFxcOlxcM1xcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFwwLjc1ODk4MTNcXCxcXDJcXDpcXDAuODIyMTAwN1xcLFxcM1xcOlxcMC42MzE1NDkyXFwsXFw0XFw6XFw0XFwsXFw1XFw6XFwyLjc1XFx9LHtcXDFcXDpcXDAuNjk3MDA5M1xcLFxcMlxcOlxcMC44NTQ5NzIxXFwsXFwzXFw6XFwwLjU3NTQ2NDdcXCxcXDRcXDpcXDVcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42ODE2ODczXFwsXFwyXFw6XFwwLjg1NjAyNDlcXCxcXDNcXDpcXDAuNTY0OTYxOVxcLFxcNFxcOlxcNlxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjY2MDg1ODdcXCxcXDJcXDpcXDAuODUxODExM1xcLFxcM1xcOlxcMC41MzU0NTk4XFwsXFw0XFw6XFw4XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjUzMDExNVxcLFxcMlxcOlxcMC44NTQ0MTg1XFwsXFwzXFw6XFwwLjUyNjEwMjdcXCxcXDRcXDpcXDlcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls3XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG5cbjwhLS0gcm5iLWZyYW1lLWJlZ2luIGV5SnRaWFJoWkdGMFlTSTZleUpqYkdGemMyVnpJanBiSW1SaGRHRXVabkpoYldVaVhTd2libkp2ZHlJNk55d2libU52YkNJNk5Td2ljM1Z0YldGeWVTSTZleUpFWlhOamNtbHdkR2x2YmlJNld5SmtaaUJiTnlERGx5QTFYU0pkZlgwc0luSmtaaUk2SWtnMGMwbEJRVUZCUVVGQlFVSm5kSGxwVkVSdGFYVkNhVmxIUW1kYWJVSm9XVmRLWjFwblZYbEhWbWhFVVRsNE1FeFNaMWxuUVVsTlJFbDNUVXhCZVdOSlRHOURjVVZuV1VwQmRrVm1SVVJOWW5ZNGJUVXJTMWRTT1ZoaU4wWTVjVWgxVnl0R1pqZFZMM1p1TUVKVlZtWlhTMlphVURGUUwzTXpkSEEwYVV3M2NETlBWWFFyTlRGYVlrNHZPSEZLUWlzelFUVndMekpVTTBNelJrbzVOMDFvSzNRdlJWTTNOVkprWlRkNFVEWldXR1V6Ym1sM0t5OHlZaXMyU1haTFJtTmpjRTRyT1daV1VWWXhXa2R0U0RKeU0zUnRlamd3VDBKT1RGcFNiRzU1TWpBemMxaDVMMUk1Wm0xcGFuUkVMeTlLT1VNeWIzRk1TaXN5WmpOS0wyaDFla1F2YWk4emFtbGtTbGRtS3pock1ub3JTMWR5ZGtrMWRsRlRLelJrZG5Cb09UaE9hVzVITDJsSWJuUnJMM1pDUkROelNEZFJPVEpDVFROSlVVZHZiSGhsYTBnMGFWcDNSRFJJSzJoVWNVeDZXV2MxWjBKcFZIQm5aRVJ4U1UxWlQwUkJRVFpZV205RVVWUm9UR0l2UVRaV0wxRlBhM1pFUmtOQlJXNXBjMlZaYlRWeFkxWkJhR2RFV1VsdloyZFROVUoyYzBOMVZYcFNSbFZZUm1saFYwcFRZVUYxVlhvcmVuSkRjRVpvZVZNMGIzRnZWM2wxZWt4RVJXOTFTalJ6UVdseFJGcDRSaXRsVmpaTlJuUkJNMjFPY1dkTWFVUklaREJ3ZVZSdFNuaFVRMjUzUVZNMVZXaEtURVYyV0ZOcGIwUTJaMko0TDJGR2NsazRkM1JMVFhaUWVtZEtjVmxvUzBkQ2QzZFhWMmh0UW10bmVHbE1iME5JU0RaTFFVSkRkMnR2V0hkRVQxSTVXV2RWU205SVkyNVhTMkp1U2tkaFZqWXljbTlyUW0xcWVIcFJWalEyYTI0d1RWVk9PSGhSYVUxUmVHMWhSazlLYm5CUU1WRTNTbmw2ZDFWd1RYbzRjVVp6ZEhSVE9EbE5lVGhXUm1sQmNGZFhiVFkxVm01d2NGSnJkMDFKUVVwS1ExSnRjRzFsVlZGSlRIRndla1Z3VGxGamJVVk9VMVZ6ZFdkVVJEVm5WMGxQUkZkeEsyZExSRTFRY0hCdlRFdEdjWE5XTlVwbWEyZHFWSGR3VjJOdWQwMVVRVmxqY1hkNk9FRjBRVGRZYXpORlJFRkJRVDBpZlE9PSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC44ODgyODM2XFwsXFwyXFw6XFwwLjc2MDYzMjVcXCxcXDNcXDpcXDAuNzQ5NzcxM1xcLFxcNFxcOlxcMlxcLFxcNVxcOlxcNS4yNVxcfSx7XFwxXFw6XFwwLjc4NjM0ODhcXCxcXDJcXDpcXDAuODIwMTI4NFxcLFxcM1xcOlxcMC42NTIyOTQzXFwsXFw0XFw6XFwzXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNzM3MjU5MVxcLFxcMlxcOlxcMC44MzgzODg5XFwsXFwzXFw6XFwwLjYxMTQ2MzJcXCxcXDRcXDpcXDRcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC42OTIzODEzXFwsXFwyXFw6XFwwLjg1ODgwNDBcXCxcXDNcXDpcXDAuNTczNTY5MVxcLFxcNFxcOlxcNVxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY3NTMxMDBcXCxcXDJcXDpcXDAuODYwOTE0MFxcLFxcM1xcOlxcMC41NjAxMzEwXFwsXFw0XFw6XFw2XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjUzMzgxNFxcLFxcMlxcOlxcMC44NTY4MzU2XFwsXFwzXFw6XFwwLjUzMjQzNTlcXCxcXDRcXDpcXDhcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42MzgzOTE3XFwsXFwyXFw6XFwwLjg2Mzc5MTFcXCxcXDNcXDpcXDAuNTE2NDY0NlxcLFxcNFxcOlxcOVxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzddfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NywibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNyDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNYnY5bUVYUHk3SldoOWk5bXVVK2R1ai9FL29YblpNMGp3aDcyejN5ZnRRZVdYN04vZWlIeGo4Vk9GdnVucWdmdFhYWFM3Wjg4clFqUy9Da0cxLy9DVU1XOFQ2ckgvbFc3UXVDVTBqWDJyL3lXQ1V6TS8yWC9PdnBkaHU3VFRQdlhLWDA1MjVKdTJMOTI0anhSazlSbC96bzh0YzR1NXcxQ3Y4a3kvWkwzR2ZaUHdwZjZSTldVMno4eFhUYkJaOU1xKzBkWkp2Zk50Q2ZaUHhMUmVzcmxmY1Arb1ZMTjBoTVhOdGsvdUhvMTV4K0hFRkF2TDBnL0VET0JmUTcwS2RSZmJFRE1BY1NjTURzY1JCbkF3SUVIU3JOQmFTWUliZjhIU3YrQTBsOFlvQUFsOEZqekVuTlRpNEVNQWJCRkVFR1dJTjlnVnlpYkk2aTRzRFN4S0RVRnltZjJkWVJKc2VTV0ZGVkMyVnlaWVlsRnhmRmdFVlFiT0l2eXkvVmd0b0M4eDlRQWNRYzd1bE9TY3hLTFlVNkJDWEtsSkpZazZxVVZBZlVEZWYvUXRMRG5GNVJrNXVjQk5URUpRd09IQ3l3TndjZ0dNUlpCUTQ3UlFRTVdFbEMrQUp5UHJFR2dOQS9rNmhUZDVJelN2R3hkRXdNMGVlYUN2SFFrK3hpZ3ZtT0VSaUNNelFweE10Ti9xSFpPV09DbEptZmtROWxzcVhucG1YbXBzQUJMeTB6WEs4OU1LY21BaFFGSUlDTTFNejJqQkJaVU9ZbEpxVGt3aDZTa2xrR1pmTUN3QmdlMVhrRlJaaDVNTlJkUXRGaXZKTDhrRWFhRkt6ay9CeVlDRGxXR2Z3RFhrSVhwY1FNQUFBPT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8947770\,\2\:\0.7559987\,\3\:\0.7564269\,\4\:\2\,\5\:\5.25\},{\1\:\0.7688330\,\2\:\0.8289949\,\3\:\0.6356989\,\4\:\3\,\5\:\3.50\},{\1\:\0.7589813\,\2\:\0.8221007\,\3\:\0.6315492\,\4\:\4\,\5\:\2.75\},{\1\:\0.6970093\,\2\:\0.8549721\,\3\:\0.5754647\,\4\:\5\,\5\:\2.25\},{\1\:\0.6816873\,\2\:\0.8560249\,\3\:\0.5649619\,\4\:\6\,\5\:\1.75\},{\1\:\0.6608587\,\2\:\0.8518113\,\3\:\0.5354598\,\4\:\8\,\5\:\1.50\},{\1\:\0.6530115\,\2\:\0.8544185\,\3\:\0.5261027\,\4\:\9\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[7]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NywibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNyDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNYnY4bTUrS1dSOVhiN0Y5cUh1VytGZjdVL3ZuMEJVVmZXS2ZaUDFQL3MzdHA0aUw3cDNPVXQrNTFaYk4vOHFKQiszQTVwLzJUM0MzRko5N01oK3QvRVM3NVJkZTd4UDZWWGUzbml3Ky8yYis2SXZLRmNjcE4rOWZWUVYxWkdtSDJyM3RtejgwT0JOTFpSbG55MjAzc1h5L1I5Zm1panRELy9KOUMyb3FMSisyZjNKL2h1ekQvai8zamlkSldmKzhrMnorS1dydkk1dlFTKzRkdnBoOThOaW5HL2lIbnRrL3ZCRDNzSDdROTJCTTNJUUdvbHhla0g0aVp3RDRIK2hUcUx6WWc1Z0JpVHBnZERxSU1ZT0RBQTZYWm9EUVRoTGIvQTZWL1FPa3ZERkNBRW5pc2VZbTVxY1ZBaGdEWUlvZ2dTNUJ2c0N1VXpSRlVYRmlhV0pTYUF1VXorenJDcEZoeVM0b3FvV3l1ekxERW91SjRzQWlxRFp4RitlVjZNRnRBM21OcWdMaURIZDBweVRtSnhUQ253QVM1VWhKTEV2WFNpb0Q2Z2J4L2FGclk4d3RLTXZQemdKcVloS0dCd3dXV2htQmtneGlMb0NISDZLQUJDd2tvWHdET1I5WWdVSm9IY25XS2JuSkdhVjYycm9rQm1qeHpRVjQ2a24wTVVOOHhRaU1ReG1hRk9KbnBQMVE3Snl6d1VwTXo4cUZzdHRTODlNeThWRmlBcFdXbTY1Vm5wcFJrd01JQUpKQ1JtcG1lVVFJTHFwekVwTlFjbUVOU1VzdWdURDVnV0lPRFdxK2dLRE1QcHBvTEtGcXNWNUpma2dqVHdwV2Nud01UQVljcXd6OEF0QTdYazNFREFBQT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8882836\,\2\:\0.7606325\,\3\:\0.7497713\,\4\:\2\,\5\:\5.25\},{\1\:\0.7863488\,\2\:\0.8201284\,\3\:\0.6522943\,\4\:\3\,\5\:\3.50\},{\1\:\0.7372591\,\2\:\0.8383889\,\3\:\0.6114632\,\4\:\4\,\5\:\2.75\},{\1\:\0.6923813\,\2\:\0.8588040\,\3\:\0.5735691\,\4\:\5\,\5\:\2.25\},{\1\:\0.6753100\,\2\:\0.8609140\,\3\:\0.5601310\,\4\:\6\,\5\:\1.75\},{\1\:\0.6533814\,\2\:\0.8568356\,\3\:\0.5324359\,\4\:\8\,\5\:\1.50\},{\1\:\0.6383917\,\2\:\0.8637911\,\3\:\0.5164646\,\4\:\9\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[7]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qY3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTnlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFpZGpsdFJWaFFlVGRLVjJnNWFUbHRkVlVyWkhWcUwwVXZiMWh1V2swd2FuZG9Oeko2TTNsbWRGRmxWMWczVGk5bGFVaDRhamhXVDBaMmRXNXhaMlowV0ZoWVV6ZGFPRGh5VVdwVEwwTnJSekV2TDBOVlRWYzRWRFp5U0M5c1Z6ZFJkVU5WTUdwWU1uSXZlVmREVlhwTkx6SllMMDkyY0dSb2RUZFVWRkIyV0V0WU1EVXlOVXAxTWt3NU1qUnFlRkpyT1ZKc0wzcHZPSFJqTkhVMWR6RkRkamhyZVM5YVRETkhabHBRZDNCbU5sSk9WMVV5ZWpoNFdGUmlRbG81VFhFck1HUmFTblptVG5SRFpscFFlRXhTWlhOeWJHWmpVQ3R2Vmt4T01HaE5XRTUwYXk5MVNHOHhOWGdyU0VWR1FYWk1NR2N2UlVSUFFtWlJOekJMWkZKbVlrVkVUVUZqVTJOTlJITmpVa0p1UVhkSlJVaFRjazVDWVZOWlNXSm1PRWhUZGl0Qk1HdzRXVzlCUVd3NFJtcDZSVzVPVkdrMFJVMUJZa0pHUlVWSFYwbE9PV2RXZVdsaVNUWnBOSE5FVTNoTFJGVkdlVzFtTW1SWlVrcHpaVk5YUmtaV1F6SldlVnBaV1d4R2VHWkdaMFZXVVdKUFNYWjVlUzlXWjNSdlF6aDRPVkZCWTFGak4zVnNUMU5qZUV0TVdWVTJRa05ZUzJ4S1NsbHJObkZWVmtGbVZVUmxaaTlSZEV4RWJrWTFVbXMxZFdOQ1RsUkZTbEYzVDBoRGVYZE9kMk5uUjAxU1drSlJORGRTVVZGTlYwVnNReXRCU25sUWNrVkhaMDVCTDJzMmFGUmtOVWw2VTNaSGVHUkZkMDB3WldWaFEzWklVV3NyZUdsbmRtMVBSVkpwUTAxNlVYQjRUWFJPTDNGSVdrOVhUME5zU20xbWExRTViSE54V0c1d2JWaHRjSE5CUWt4NU1IcFlTemc1VFV0amJVRm9VVVpKU1VOTk1VMTZNbXBDUWxwVlQxbHNTbkZVYTNkb05sTnJiR3RIV21aTlEzZENaMlV4V0d0R1VscG9OVTFPVW1SUmRFWnBka3BNT0d0RllXRkdTM3ByTDBKNVdVTkViRmRIWm5kRVdHdEpXSEJqVVUxQlFVRTlQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjg5NDc3NzBcIixcIjJcIjpcIjAuNzU1OTk4N1wiLFwiM1wiOlwiMC43NTY0MjY5XCIsXCI0XCI6XCIyXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjAuNzY4ODMzMFwiLFwiMlwiOlwiMC44Mjg5OTQ5XCIsXCIzXCI6XCIwLjYzNTY5ODlcIixcIjRcIjpcIjNcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43NTg5ODEzXCIsXCIyXCI6XCIwLjgyMjEwMDdcIixcIjNcIjpcIjAuNjMxNTQ5MlwiLFwiNFwiOlwiNFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjY5NzAwOTNcIixcIjJcIjpcIjAuODU0OTcyMVwiLFwiM1wiOlwiMC41NzU0NjQ3XCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjgxNjg3M1wiLFwiMlwiOlwiMC44NTYwMjQ5XCIsXCIzXCI6XCIwLjU2NDk2MTlcIixcIjRcIjpcIjZcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NjA4NTg3XCIsXCIyXCI6XCIwLjg1MTgxMTNcIixcIjNcIjpcIjAuNTM1NDU5OFwiLFwiNFwiOlwiOFwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY1MzAxMTVcIixcIjJcIjpcIjAuODU0NDE4NVwiLFwiM1wiOlwiMC41MjYxMDI3XCIsXCI0XCI6XCI5XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbN119LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjcsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNyDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1idjltRVhQeTdKV2g5aTltdVUrZHVqL0Uvb1huWk0wandoNzJ6M3lmdFFlV1g3Ti9laUh4ajhWT0Z2dW5xZ2Z0WFhYUzdaODhyUWpTL0NrRzEvL0NVTVc4VDZySC9sVzdRdUNVMGpYMnIveVdDVXpNLzJYL092cGRodTdUVFB2WEtYMDUyNUp1Mkw5MjRqeFJrOVJsL3pvOHRjNHU1dzFDdjhreS9aTDNHZlpQd3BmNlJOV1Uyejh4WFRiQlo5TXErMGRaSnZmTnRDZlpQeExSZXNybGZjUCtvVkxOMGhNWE50ay91SG8xNXgrSEVGQXZMMGcvRURPQmZRNzBLZFJmYkVETUFjU2NNRHNjUkJuQXdJRUhTck5CYVNZSWJmOEhTditBMGw4WW9BQWw4Rmp6RW5OVGk0RU1BYkJGRUVHV0lOOWdWeWliSTZpNHNEU3hLRFVGeW1mMmRZUkpzZVNXRkZWQzJWeVpZWWxGeGZGZ0VWUWJPSXZ5eS9WZ3RvQzh4OVFBY1FjN3VsT1NjeEtMWVU2QkNYS2xKSllrNnFVVkFmVURlZi9RdExEbkY1Ums1dWNCTlRFSlF3T0hDeXdOd2NnR01SWkJRNDdSUVFNV0VsQytBSnlQckVHZ05BL2s2aFRkNUl6U3ZHeGRFd00wZWVhQ3ZIUWsreGlndm1PRVJpQ016UXB4TXROL3FIWk9XT0NsSm1ma1E5bHNxWG5wbVhtcHNBQkx5MHpYSzg5TUtjbUFoUUZJSUNNMU16MmpCQlpVT1lsSnFUa3doNlNrbGtHWmZNQ3dCZ2UxWGtGUlpoNU1OUmRRdEZpdkpMOGtFYWFGS3prL0J5WUNEbFdHZndEWGtJWHBjUU1BQUE9PSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8947770","2":"0.7559987","3":"0.7564269","4":"2","5":"5.25"},{"1":"0.7688330","2":"0.8289949","3":"0.6356989","4":"3","5":"3.50"},{"1":"0.7589813","2":"0.8221007","3":"0.6315492","4":"4","5":"2.75"},{"1":"0.6970093","2":"0.8549721","3":"0.5754647","4":"5","5":"2.25"},{"1":"0.6816873","2":"0.8560249","3":"0.5649619","4":"6","5":"1.75"},{"1":"0.6608587","2":"0.8518113","3":"0.5354598","4":"8","5":"1.50"},{"1":"0.6530115","2":"0.8544185","3":"0.5261027","4":"9","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[7]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOeXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk55RERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlluWTVSMkU1Yld0bFltTk5OMFl2Tm1VMWVTOVZiSGh0THpONVpTdEpWMFpyTHk5WlVEbE5UVzFPTHpGbFNpODVNREZ0Wms1Tk1XTklkRzh2SzFocWVubDNlREpPTDNOdU5qWmxjbGd4Ym5ORFpHWXZiMjVtUWxONmJuVkRVSFJZUlhWNkwxUlFhRmN5WWpnMlJ6STFjV012SzFrdlpYWnJLMFp0VkZac2NsbDJLelZaSzBvdmVtODFhamsyT1VsdVFtVTBOelYwYlM4M2RUZG9SbVpsWWtKa1ppOHZUMnBTTjNaS2NIUXJlV1l2U0RKNVltTklUV1V2WVZCc04yNUxjbTVzTVhsbU5sSllLMk12ZGpWMGNEbG5PR1pYZVcxWU1tOVVXVkFyVkhWUUswY3djMDVpSzNkYVNEZERhemwwZFc5Q05tVlZTRFpuV21kS04waFBaMVEyU0N0WlowNXBSR2xFYldoT2JtaEpUVzlCUW1jME9GVktiMDVUYWs1Q1lWQnpMMVZRYjBoc1VEZERRVUZWYjJkalpXRnNOV2xpVjJkNGEwTkpRWFJuWjJsNVFsQnJSM1V3VEZwSVJVaEdhR0ZYU2xKaGEzQlZSRFo2Y25sT1RXbHBWek53UzJkVGVYVmlTMFJGYzNOTGJ6UklhVFpFWVhkR2JWVllOalJJYzNkWWExQmhXVWRwUkhaWk1Gb3lVMjVLVGxsRVNFMUxWRXBCY2twaVJXdFZVeXQwUTB0blpubFFkVWh3YjFVNWRqWkJhMDE2T0ZCeFNXeEtSMEp2TkZoSFFuQkRSVmt5YVV4RlNVZHVTMDFFYUhGM2EwbEVlVUpsUWpoYVFUQkRjRmhyWjFZMlptOUtiV1ZWTlcxWWNtMW9hV2Q1VkUxWU5VdFZhakpqWTBFNVVqQnFUa0ZLYUdKR1lVbHJOVzRyVVRkV2VuZG5TWFpPVkd0cVNEaHdiVk00TVV4Nk9IaE1hRkZXV1ZkdFlUWllibXh0VTJ0clIweEJlRUZCYUcxd2JXVnJXa3BpUTJkNWEyeE5VM015UWs5VFVXeDBVWHBMTlVGUFIwNVVhVzg1VVhGTFRYWk9aM0Z5YlVGdmMxWTJTbVpyYkdsVVFYUllUVzQxVDFSQlVtTkxaM2t2UVUxQmJpdE5XVGt6UlVSQlFVRTlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg4MDIwNjRcXCxcXDJcXDpcXDAuNzY3Mjg4NlxcLFxcM1xcOlxcMC43NDI4OTIwXFwsXFw0XFw6XFwyXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDAuNzkwOTI4M1xcLFxcMlxcOlxcMC44MTU0MzM1XFwsXFwzXFw6XFwwLjY1NTk5MjhcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43MzgwNDg1XFwsXFwyXFw6XFwwLjgzNzU2NjBcXCxcXDNcXDpcXDAuNjE0MDQ2NlxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjY5MjU0MzNcXCxcXDJcXDpcXDAuODU1ODgwNVxcLFxcM1xcOlxcMC41NzIwODczXFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNjc1MTY0M1xcLFxcMlxcOlxcMC44NjA0Mjg4XFwsXFwzXFw6XFwwLjU1ODk4NzdcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42NTQ1MjI5XFwsXFwyXFw6XFwwLjg1ODE0MTJcXCxcXDNcXDpcXDAuNTMyNjYxM1xcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjY0NjQzNDRcXCxcXDJcXDpcXDAuODYwNzg0NlxcLFxcM1xcOlxcMC41MjQwMzIyXFwsXFw0XFw6XFw5XFwsXFw1XFw6XFwxLjI1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbN119LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NywibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNyDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNYnY5R2E5bWtlYmNNN0YvNmU1eS9VbHhtLzN5ZStJV0ZrLy9ZUDlNTW1OLzFlSi85MDFtZk5NMWNIdG8vK1hqenl3eDJOL3NuNjZlclgxbnNDZGYvb25mQlN6bnVDUHRYRXV6L1RQaFcyYjg2RzI1cWMvK1kvZXZrK0ZtVFZscll2KzVZK0ovem81ajk2OUluQmU0NzV0bS83dTdoRmZlYkJkZi8vT2pSN3ZKcHQreWYvSDJ5YmNITWUvYVBsN25Lcm5sMXlmNlJYK2MvdjV0cDlnOGZXeW1YMm9UWVArVHVQK0cwc05iK3daSDdDazl0dW9CNmVVSDZnWmdKN0hPZ1Q2SCtZZ05pRGlEbWhObmhJTW9BQmc0OFVKb05Tak5CYVBzL1VQb0hsUDdDQUFVb2djZWFsNWliV2d4a0NJQXRnZ2l5QlBrR3UwTFpIRUhGaGFXSlJha3BVRDZ6cnlOTWlpVzNwS2dTeXViS0RFc3NLbzRIaTZEYXdGbVVYNjRIc3dYa1BhWUdpRHZZMFoyU25KTllESE1LVEpBckpiRWtVUyt0Q0tnZnlQdUhwb1U5djZBa016OFBxSWxKR0JvNFhHQnBDRVkyaUxFSUduS01EaHF3a0lEeUJlQjhaQTBDcFhrZ1Y2Zm9KbWVVNW1Ycm1oaWd5VE1YNUtVajJjY0E5UjBqTkFKaGJGYUlrNW4rUTdWendnSXZOVGtqSDhwbVM4MUx6OHhMaFFWWVdtYTZYbmxtU2trR0xBeEFBaG1wbWVrWkpiQ2d5a2xNU3MyQk9TUWx0UXpLNUFPR05UaW85UXFLTXZOZ3FybUFvc1Y2SmZrbGlUQXRYTW41T1RBUmNLZ3kvQU1BbitNWTkzRURBQUE9In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8802064\,\2\:\0.7672886\,\3\:\0.7428920\,\4\:\2\,\5\:\5.25\},{\1\:\0.7909283\,\2\:\0.8154335\,\3\:\0.6559928\,\4\:\3\,\5\:\3.50\},{\1\:\0.7380485\,\2\:\0.8375660\,\3\:\0.6140466\,\4\:\4\,\5\:\2.75\},{\1\:\0.6925433\,\2\:\0.8558805\,\3\:\0.5720873\,\4\:\5\,\5\:\2.25\},{\1\:\0.6751643\,\2\:\0.8604288\,\3\:\0.5589877\,\4\:\6\,\5\:\1.75\},{\1\:\0.6545229\,\2\:\0.8581412\,\3\:\0.5326613\,\4\:\8\,\5\:\1.50\},{\1\:\0.6464344\,\2\:\0.8607846\,\3\:\0.5240322\,\4\:\9\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[7]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qY3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTnlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFpZGpodE5TdExWMUk1V0dJM1JqbHhTSFZYSzBabU4xVXZkbTR3UWxWV1psZExabHBRTVZBdmN6TjBjRFJwVERkd00wOVZkQ3MxTVZwaVRpODRjVXBDS3pOQk5YQXZNbFF6UXpOR1NqazNUV2dyZEM5RlV6YzFVbVJsTjNoUU5sWllaVE51YVhjckx6SmlLelpKZGt0R1kyTndUaXM1WmxaUlZqRmFSMjFJTW5JemRHMTZPREJQUWs1TVdsSnNibmt5TUROeldIa3ZVamxtYldscWRFUXZMMG81UXpKdmNVeEtLekptTTBvdmFIVjZSQzlxTHpOcWFXUktWMllyT0dzeWVpdExWM0oyU1RWMlVWTXJOR1IyY0dnNU9FNXBia2N2YVVodWRHc3Zka0pFTTNOSU4xRTVNa0pOTTBsUlIyOXNlR1ZyU0RScFduZEVORWdyYUZSeFRIcFpaelZuUW1sVWNHZGtSSEZKVFZsUFJFRkJObGhhYjBSUlZHaE1ZaTlCTmxZdlVVOXJka1JHUTBGRmJtbHpaVmx0TlhGalZrRm9aMFJaU1c5bloxTTFRblp6UTNWVmVsSkdWVmhHYVdGWFNsTmhRWFZWZWl0NmNrTndSbWg1VXpSdmNXOVhlWFY2VEVSRmIzVktOSE5CYVhGRVduaEdLMlZXTmsxR2RFRXpiVTV4WjB4cFJFaGtNSEI1VkcxS2VGUkRibmRCVXpWVmFFcE1SWFpZVTJsdlJEWm5Zbmd2WVVaeVdUaDNkRXROZGxCNlowcHhXV2hMUjBKM2QxZFhhRzFDYTJkNGFVeHZRMGhJTmt0QlFrTjNhMjlZZDBSUFVqbFpaMVZLYjBoamJsZExZbTVLUjJGV05qSnliMnRDYldwNGVsRldORFpyYmpCTlZVNDRlRkZwVFZGNGJXRkdUMHB1Y0ZBeFVUZEtlWHAzVlhCTmVqaHhSbk4wZEZNNE9VMTVPRlpHYVVGd1YxZHROalZXYm5Cd1VtdDNUVWxCU2twRFVtMXdiV1ZWVVVsTWNYQjZSWEJPVVdOdFJVNVRWWE4xWjFSRU5XZFhTVTlFVjNFclowdEVUVkJ3Y0c5TVMwWnhjMVkxU21acloycFVkM0JYWTI1M1RWUkJXV054ZDNvNFFYUkJOMWhyTTBWRVFVRkJQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjg4ODI4MzZcIixcIjJcIjpcIjAuNzYwNjMyNVwiLFwiM1wiOlwiMC43NDk3NzEzXCIsXCI0XCI6XCIyXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjAuNzg2MzQ4OFwiLFwiMlwiOlwiMC44MjAxMjg0XCIsXCIzXCI6XCIwLjY1MjI5NDNcIixcIjRcIjpcIjNcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43MzcyNTkxXCIsXCIyXCI6XCIwLjgzODM4ODlcIixcIjNcIjpcIjAuNjExNDYzMlwiLFwiNFwiOlwiNFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjY5MjM4MTNcIixcIjJcIjpcIjAuODU4ODA0MFwiLFwiM1wiOlwiMC41NzM1NjkxXCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjc1MzEwMFwiLFwiMlwiOlwiMC44NjA5MTQwXCIsXCIzXCI6XCIwLjU2MDEzMTBcIixcIjRcIjpcIjZcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NTMzODE0XCIsXCIyXCI6XCIwLjg1NjgzNTZcIixcIjNcIjpcIjAuNTMyNDM1OVwiLFwiNFwiOlwiOFwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjYzODM5MTdcIixcIjJcIjpcIjAuODYzNzkxMVwiLFwiM1wiOlwiMC41MTY0NjQ2XCIsXCI0XCI6XCI5XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbN119LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjcsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNyDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1idjhtNStLV1I5WGI3RjlxSHVXK0ZmN1Uvdm4wQlVWZldLZlpQMVAvczN0cDRpTDdwM09VdCs1MVpiTi84cUpCKzNBNXAvMlQzQzNGSjk3TWgrdC9FUzc1UmRlN3hQNlZYZTNuaXcrLzJiKzZJdktGY2NwTis5ZlZRVjFaR21IMnIzdG16ODBPQk5MWlJsbnkyMDNzWHkvUjlmbWlqdEQvL0o5QzJvcUxKKzJmM0ovaHV6RC9qLzNqaWRKV2YrOGsyeitLV3J2STV2UVMrNGR2cGg5OE5pbkcvaUhudGsvdkJEM3NIN1E5MkJNM0lRR29seGVrSDRpWndENEgraFRxTHpZZzVnQmlUcGdkRHFJTVlPREFBNlhab0RRVGhMYi9BNlYvUU9rdkRGQ0FFbmlzZVltNXFjVkFoZ0RZSW9nZ1M1QnZzQ3VVelJGVVhGaWFXSlNhQXVVeit6ckNwRmh5UzRvcW9XeXV6TERFb3VKNHNBaXFEWnhGK2VWNk1GdEEzbU5xZ0xpREhkMHB5VG1KeFRDbndBUzVVaEpMRXZYU2lvRDZnYngvYUZyWTh3dEtNdlB6Z0pxWWhLR0J3d1dXaG1Ca2d4aUxvQ0hINktBQkN3a29Yd0RPUjlZZ1VKb0hjbldLYm5KR2FWNjJyb2tCbWp4elFWNDZrbjBNVU44eFFpTVF4bWFGT0pucFAxUTdKeXp3VXBNejhxRnN0dFM4OU15OFZGaUFwV1dtNjVWbnBwUmt3TUlBSkpDUm1wbWVVUUlMcXB6RXBOUWNtRU5TVXN1Z1RENWdXSU9EV3ErZ0tETVBwcG9MS0Zxc1Y1SmZrZ2pUd3BXY253TVRBWWNxd3o4QXRBN1hrM0VEQUFBPSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8882836","2":"0.7606325","3":"0.7497713","4":"2","5":"5.25"},{"1":"0.7863488","2":"0.8201284","3":"0.6522943","4":"3","5":"3.50"},{"1":"0.7372591","2":"0.8383889","3":"0.6114632","4":"4","5":"2.75"},{"1":"0.6923813","2":"0.8588040","3":"0.5735691","4":"5","5":"2.25"},{"1":"0.6753100","2":"0.8609140","3":"0.5601310","4":"6","5":"1.75"},{"1":"0.6533814","2":"0.8568356","3":"0.5324359","4":"8","5":"1.50"},{"1":"0.6383917","2":"0.8637911","3":"0.5164646","4":"9","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[7]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOeXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk55RERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlluWXZSM015TTFCMGNUVXZPV2t2VkV4eE5WSlpXVzE1WmprMFYzSjJUbmd3ZVZRM1dqQk1OazhyTW1zNU9YTXZibU16U2xZNVJuZDRkamRLYm1KWFRHUTRLMk5oTHpscmNsWjZiRE1yZDIxMVVEUllLMVJrYmpOS2FIcDVkalpXZVV0V1EwcFNWV0lyTVdZelpqbHNlamRYUXpObU1UTkhOemt5ZUUxemVpdGtWbVZMZWtkSVQxVjJkbGh1WkU1Mkx6VjFkbGxtT1RZMmRYVmxTVFZ6ZWpSUWNXWXpOSEl4VEU5WGMzUllMMHROTjJZNGMwdDFUQzlsVGpKdk5scDJZaXRNYzBnNWF6UjRSbms0WTNONkt6UlJUM1V6UVU1R1dIWlpVREpVV1dSMFptMVZXUzh2WnpoT2IweFFUVlo0VVV3eU9FbFFNVUY2UVZReVQyUkRibFZJSzNoQlZFVklSVWhRUXpkSVFWRmFVVUZFUW5nMGIzcFJZV3h0VTBNd0wxSTRieTlSVGt0bU1rZEJRWEJVUVZrNE1VeDZSVEIwUW1wSlJYZENXa0pDUm0xRFprbE9aRzlYZVU5dlQweERNSE5UYVRGQ1VXOXVPVzVZUlZOaVJtdHNkRk5XUVd4c1l6SlhSMHBTV1ZaNE5FNUdWVWN6WjB4TmIzWXhORkJhUVhaSlpWVjNVRVZJWlhwdlZHdHVUMU5UZVVkUFVWVnRlVXBYVTFkS1MyOXNNVmxGTVVFdmF5OVZVRlIzY0RWbVZVcExXbTUzWmxWNFExRk5SRkozZFhORVVVVkplSFpGVjBGUlRrOVZXVWhFVm1oSlVWQnJRMk5FTm5sQ2IwaFRVRXBEY2xVelUxUk5NSEo2YzI1V1RrUk9SR3R0VVhaNU1IQkljMWswUkRacWFFVmhaMVJCTWtzNFZFcFVVQ3RvTW1wc2FHZGFaV0Z1U2tWUVdtSlBiRFZ4Vm00MWNWaERRV2wzZEUweE1uWlFSRTlzU2tGTlYwSnBRMEpxVGxSTk9VbDNVMWRHUkd4S1EyRnNOWE5CWTJ0d1NtRkNiVmg1UVdOTllVaE9ValpDVlZkYVpWUkVWbGhGUkZKWmNqSlRMMHBLUlcxQ1lYVTFVSGRqYlVGbk5GWkNiaXRCVVVOQk9XUm1OMk5SVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg4Mzk3NTRcXCxcXDJcXDpcXDAuNzYzNjUzNlxcLFxcM1xcOlxcMC43NDU0MDU4XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDAuNzkzODAxMlxcLFxcMlxcOlxcMC44MTUwNDE4XFwsXFwzXFw6XFwwLjY1Nzc4OTlcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43MzUxNDkwXFwsXFwyXFw6XFwwLjgzOTg0MTBcXCxcXDNcXDpcXDAuNjEwMjUzNlxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjY4OTcyMDBcXCxcXDJcXDpcXDAuODU4MTYxNlxcLFxcM1xcOlxcMC41Njk4NTQ5XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNjc1MTc1MlxcLFxcMlxcOlxcMC44NjA2NDM0XFwsXFwzXFw6XFwwLjU1ODU5ODdcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42NTE5MzgzXFwsXFwyXFw6XFwwLjg2MDU0NjBcXCxcXDNcXDpcXDAuNTMyMDY3N1xcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjY0NjEzMjdcXCxcXDJcXDpcXDAuODYyMDUwOFxcLFxcM1xcOlxcMC41MjM4ODY2XFwsXFw0XFw6XFw5XFwsXFw1XFw6XFwxLjI1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbN119LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NywibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNyDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNYnYvR3MyM1B0cTUvOWkvVExxNVJZWW15Zjk0V3J2TngweVQ3WjBMNk8rMms5OXMvbmMzSlY5Rnd4djdKbmJXTGQ4K2NhLzlrclZ6bDMrd211UDRYK1RkbjNKaHp5djZWeUtWQ0pSVWIrMWYzZjlsejdXQzNmMTNHNzkyeE1zeitkVmVLekdIT1V2dlhuZE52LzV1dllmOTY2dXVlSTVzejRQcWYzNHIxTE9Xc3RYL0tNN2Y4c0t1TC9lTjJvNlp2YitMc0g5azR4Rnk4Y3N6KzRRT3UzQU5GWHZZUDJUWWR0Zm1VWS8vZzhOb0xQTVZ4UUwyOElQMUF6QVQyT2RDblVIK3hBVEVIRUhQQzdIQVFaUUFEQng0b3pRYWxtU0MwL1I4by9RTktmMkdBQXBUQVk4MUx6RTB0QmpJRXdCWkJCRm1DZklOZG9XeU9vT0xDMHNTaTFCUW9uOW5YRVNiRmtsdFNWQWxsYzJXR0pSWVZ4NE5GVUczZ0xNb3YxNFBaQXZJZVV3UEVIZXpvVGtuT1NTeUdPUVVteUpXU1dKS29sMVlFMUEvay9VUFR3cDVmVUpLWm53ZlV4Q1FNRFJ3dXNEUUVJeHZFV0FRTk9VWUhEVmhJUVBrQ2NENnlCb0hTUEpDclUzU1RNMHJ6c25WTkRORGttUXZ5MHBIc1k0RDZqaEVhZ1RBMks4VEpUUCtoMmpsaGdaZWFuSkVQWmJPbDVxVm41cVhDQWl3dE0xMnZQRE9sSkFNV0JpQ0JqTlRNOUl3U1dGRGxKQ2FsNXNBY2twSmFCbVh5QWNNYUhOUjZCVVdaZVREVlhFRFJZcjJTL0pKRW1CYXU1UHdjbUFnNFZCbitBUUNBOWRmN2NRTUFBQT09In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8839754\,\2\:\0.7636536\,\3\:\0.7454058\,\4\:\2\,\5\:\5.25\},{\1\:\0.7938012\,\2\:\0.8150418\,\3\:\0.6577899\,\4\:\3\,\5\:\3.50\},{\1\:\0.7351490\,\2\:\0.8398410\,\3\:\0.6102536\,\4\:\4\,\5\:\2.75\},{\1\:\0.6897200\,\2\:\0.8581616\,\3\:\0.5698549\,\4\:\5\,\5\:\2.25\},{\1\:\0.6751752\,\2\:\0.8606434\,\3\:\0.5585987\,\4\:\6\,\5\:\1.75\},{\1\:\0.6519383\,\2\:\0.8605460\,\3\:\0.5320677\,\4\:\8\,\5\:\1.50\},{\1\:\0.6461327\,\2\:\0.8620508\,\3\:\0.5238866\,\4\:\9\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[7]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qY3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTnlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFpZGpsSFlUbHRhMlZpWTAwM1JpODJaVFY1TDFWc2VHMHZNM2xsSzBsWFJtc3ZMMWxRT1UxTmJVNHZNV1ZLTHprd01XMW1UazB4WTBoMGJ5OHJXR3A2ZVhkNE1rNHZjMjQyTm1WeVdERnVjME5rWmk5dmJtWkNVM3B1ZFVOUWRGaEZkWG92VkZCb1Z6SmlPRFpITWpWeFl5OHJXUzlsZG1zclJtMVVWbXh5V1hZck5Wa3JTaTk2YnpWcU9UWTVTVzVDWlRRM05YUnRMemQxTjJoR1ptVmlRbVJtTHk5UGFsSTNka3B3ZEN0NVppOUlNbmxpWTBoTlpTOWhVR3czYmt0eWJtd3hlV1kyVWxncll5OTJOWFJ3T1djNFpsZDViVmd5YjFSWlVDdFVkVkFyUnpCelRtSXJkMXBJTjBOck9YUjFiMEkyWlZWSU5tZGFaMG8zU0U5blZEWklLMWxuVG1sRWFVUnRhRTV1YUVsTmIwRkNaelE0VlVwdlRsTnFUa0poVUhNdlZWQnZTR3hRTjBOQlFWVnZaMk5sWVd3MWFXSlhaM2hyUTBsQmRHZG5hWGxDVUd0SGRUQk1Xa2hGU0Vab1lWZEtVbUZyY0ZWRU5ucHllVTVOYVdsWE0zQkxaMU41ZFdKTFJFVnpjMHR2TkVocE5rUmhkMFp0VlZnMk5FaHpkMWhyVUdGWlIybEVkbGt3V2pKVGJrcE9XVVJJVFV0VVNrRnlTbUpGYTFWVEszUkRTMmRtZVZCMVNIQnZWVGwyTmtGclRYbzRVSEZKYkVwSFFtODBXRWRDY0VORldUSnBURVZKUjI1TFRVUm9jWGRyU1VSNVFtVkNPRnBCTUVOd1dHdG5WalptYjBwdFpWVTFiVmh5YldocFozbFVUVmcxUzFWcU1tTmpRVGxTTUdwT1FVcG9Za1poU1dzMWJpdFJOMVo2ZDJkSmRrNVVhMnBJT0hCdFV6Z3hUSG80ZUV4b1VWWlpWMjFoTmxodWJHMVRhMnRIVEVGNFFVRm9iWEJ0Wld0YVNtSkRaM2xyYkUxVGN6SkNUMU5SYkhSUmVrczFRVTlIVGxScGJ6bFJjVXROZGs1bmNYSnRRVzl6VmpaS1ptdHNhVlJCZEZoTmJqVlBWRUZTWTB0bmVTOUJUVUZ1SzAxWk9UTkZSRUZCUVQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuODgwMjA2NFwiLFwiMlwiOlwiMC43NjcyODg2XCIsXCIzXCI6XCIwLjc0Mjg5MjBcIixcIjRcIjpcIjJcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiMC43OTA5MjgzXCIsXCIyXCI6XCIwLjgxNTQzMzVcIixcIjNcIjpcIjAuNjU1OTkyOFwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjczODA0ODVcIixcIjJcIjpcIjAuODM3NTY2MFwiLFwiM1wiOlwiMC42MTQwNDY2XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNjkyNTQzM1wiLFwiMlwiOlwiMC44NTU4ODA1XCIsXCIzXCI6XCIwLjU3MjA4NzNcIixcIjRcIjpcIjVcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC42NzUxNjQzXCIsXCIyXCI6XCIwLjg2MDQyODhcIixcIjNcIjpcIjAuNTU4OTg3N1wiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjY1NDUyMjlcIixcIjJcIjpcIjAuODU4MTQxMlwiLFwiM1wiOlwiMC41MzI2NjEzXCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNjQ2NDM0NFwiLFwiMlwiOlwiMC44NjA3ODQ2XCIsXCIzXCI6XCIwLjUyNDAzMjJcIixcIjRcIjpcIjlcIixcIjVcIjpcIjEuMjVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls3XX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjcsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNyDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1idjlHYTlta2ViY003Ri82ZTV5L1VseG0vM3llK0lXRmsvL1lQOU1NbU4vMWVKLzkwMW1mTk0xY0h0by8rWGp6eXd4Mk4vc242NmVyWDFuc0NkZi9vbmZCU3pudUNQdFhFdXovVFBoVzJiODZHMjVxYy8rWS9ldmsrRm1UVmxyWXYrNVkrSi96bzVqOTY5SW5CZTQ3NXRtLzd1N2hGZmViQmRmLy9PalI3dkpwdCt5Zi9IMnliY0hNZS9hUGw3bktybmwxeWY2UlgrYy92NXRwOWc4Zld5bVgyb1RZUCtUdVArRzBzTmIrd1pIN0NrOXR1b0I2ZVVINmdaZ0o3SE9nVDZIK1lnTmlEaURtaE5uaElNb0FCZzQ4VUpvTlNqTkJhUHMvVVBvSGxQN0NBQVVvZ2NlYWw1aWJXZ3hrQ0lBdGdnaXlCUGtHdTBMWkhFSEZoYVdKUmFrcFVENnpyeU5NaWlXM3BLZ1N5dWJLREVzc0tvNEhpNkRhd0ZtVVg2NEhzd1hrUGFZR2lEdlkwWjJTbkpOWURITUtUSkFySmJFa1VTK3RDS2dmeVB1SHBvVTl2NkFrTXo4UHFJbEpHQm80WEdCcENFWTJpTEVJR25LTURocXdrSUR5QmVCOFpBMENwWGtnVjZmb0ptZVU1bVhybWhpZ3lUTVg1S1VqMmNjQTlSMGpOQUpoYkZhSWs1bitRN1Z6d2dJdk5Ua2pIOHBtUzgxTHo4eExoUVZZV21hNlhubG1Ta2tHTEF4QUFobXBtZWtaSmJDZ3lrbE1TczJCT1NRbHRReks1QU9HTlRpbzlRcUtNdk5ncXJtQW9zVjZKZmtsaVRBdFhNbjVPVEFSY0tneS9BTUFuK01ZOTNFREFBQT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8802064","2":"0.7672886","3":"0.7428920","4":"2","5":"5.25"},{"1":"0.7909283","2":"0.8154335","3":"0.6559928","4":"3","5":"3.50"},{"1":"0.7380485","2":"0.8375660","3":"0.6140466","4":"4","5":"2.75"},{"1":"0.6925433","2":"0.8558805","3":"0.5720873","4":"5","5":"2.25"},{"1":"0.6751643","2":"0.8604288","3":"0.5589877","4":"6","5":"1.75"},{"1":"0.6545229","2":"0.8581412","3":"0.5326613","4":"8","5":"1.50"},{"1":"0.6464344","2":"0.8607846","3":"0.5240322","4":"9","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[7]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOeXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk55RERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlluWTVSMDFUV25RdmJrNVVLelZrTldsMlR6aFhiVlIwYml0alJYRlZXRTR6TWtRdlRFMVNOVkpzTlZsclVETlVObVF2V2pGTmRFOHlWRGsxV1ZOMlluSkVSRWd2YzIxbGRGYzBUbWx5TDJjcmJEaHpNMHhUTm1GdkszVXZVM1oxZVZsRlNFNXBNbmxtTDFkc2JFUk5jMjUwTXl0MFZtWnljVmQyVjFRck1XWmtkM1V6VTNwMGNUSmlPWFZPSzJ4aVdqVnNhaTgzY1VST2VYWTVLME50TkM5MVpqZFdLeXRNV0VvNWJDOHhWSGs0WkRkQmFrVXpNbW92VFROVVpVZEpUekpJTDB0RVpTdHhTbUk1YzFBelJFc3JNalZsVmpCbE9XYzVOVkZxY3psYU4zSlpVSHBvY1VWRGJYSlBkMWR2YkhobGEwZzBhVnAzUkRSSUsyaFVjVXg2V1djMVowSnBWSEJuWkVSeFNVMVpUMFJCUVRaWVdtOUVVVlJvVEdJdlFUWldMMUZQYTNaRVJrTkJSVzVwYzJWWmJUVnhZMVpCYUdkRVdVbHZaMmRUTlVKMmMwTjFWWHBTUmxWWVJtbGhWMHBUWVVGMVZYb3JlbkpEY0Vab2VWTTBiM0Z2VjNsMWVreEVSVzkxU2pSelFXbHhSRnA0Uml0bFZqWk5SblJCTTIxT2NXZE1hVVJJWkRCd2VWUnRTbmhVUTI1M1FWTTFWV2hLVEVWMldGTnBiMFEyWjJKNEwyRkdjbGs0ZDNSTFRYWlFlbWRLY1Zsb1MwZENkM2RYVjJodFFtdG5lR2xNYjBOSVNEWkxRVUpEZDJ0dldIZEVUMUk1V1dkVlNtOUlZMjVYUzJKdVNrZGhWall5Y205clFtMXFlSHBSVmpRMmEyNHdUVlZPT0hoUmFVMVJlRzFoUms5S2JuQlFNVkUzU25sNmQxVndUWG80Y1VaemRIUlRPRGxOZVRoV1JtbEJjRmRYYlRZMVZtNXdjRkpyZDAxSlFVcEtRMUp0Y0cxbFZWRkpUSEZ3ZWtWd1RsRmpiVVZPVTFWemRXZFVSRFZuVjBsUFJGZHhLMmRMUkUxUWNIQnZURXRHY1hOV05VcG1hMmRxVkhkd1YyTnVkMDFVUVZsamNYZDZPRUZKU21oRFFWaEZSRUZCUVQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuODc5MDcyNFxcLFxcMlxcOlxcMC43Njk3Mzg1XFwsXFwzXFw6XFwwLjc0MjE0NzNcXCxcXDRcXDpcXDJcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcMC43OTQ2OTM4XFwsXFwyXFw6XFwwLjgxMzkxMzBcXCxcXDNcXDpcXDAuNjU5NDEwNFxcLFxcNFxcOlxcM1xcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFwwLjczMTk3MjhcXCxcXDJcXDpcXDAuODQyMzQxMFxcLFxcM1xcOlxcMC42MDczODUwXFwsXFw0XFw6XFw0XFwsXFw1XFw6XFwyLjc1XFx9LHtcXDFcXDpcXDAuNjk3Nzg2MVxcLFxcMlxcOlxcMC44NTI4NDcwXFwsXFwzXFw6XFwwLjU3NTg1MTJcXCxcXDRcXDpcXDVcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42NzQ4MDA0XFwsXFwyXFw6XFwwLjg2MDcyNzFcXCxcXDNcXDpcXDAuNTU3MTkzNVxcLFxcNFxcOlxcNlxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjY1MzM0OTVcXCxcXDJcXDpcXDAuODYwMjU0NlxcLFxcM1xcOlxcMC41MzI3NTU2XFwsXFw0XFw6XFw4XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjQ4MDMxOFxcLFxcMlxcOlxcMC44NjAzNTgwXFwsXFwzXFw6XFwwLjUyNDA3MDlcXCxcXDRcXDpcXDlcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls3XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NywibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNyDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNYnY5R01TWnQvbk5UKzVkNWl2TzhXbVR0bitjRXFVWE4zMkQvTE1SNVJsNVlrUDNUNmQvWjFNdE8yVDk1WVN2YnJEREgvc21ldFc0TmlyL2crbDhzM0xTNmFvK3UvU3Z1eVlFSE5pMnlmL1dsbERNc250Myt0VmZycVd2V1QrMWZkd3UzU3p0cTJiOXVOK2xiWjVsai83cUROeXY5K0NtNC91ZjdWKytMWEo5bC8xVHk4ZDdBakUzMmovTTNUZUdJTzJIL0tEZStxSmI5c1AzREsrMjVlVjBlOWc5NVFqczlaN3JZUHpocUVDbXJPd1dvbHhla0g0aVp3RDRIK2hUcUx6WWc1Z0JpVHBnZERxSU1ZT0RBQTZYWm9EUVRoTGIvQTZWL1FPa3ZERkNBRW5pc2VZbTVxY1ZBaGdEWUlvZ2dTNUJ2c0N1VXpSRlVYRmlhV0pTYUF1VXorenJDcEZoeVM0b3FvV3l1ekxERW91SjRzQWlxRFp4RitlVjZNRnRBM21OcWdMaURIZDBweVRtSnhUQ253QVM1VWhKTEV2WFNpb0Q2Z2J4L2FGclk4d3RLTXZQemdKcVloS0dCd3dXV2htQmtneGlMb0NISDZLQUJDd2tvWHdET1I5WWdVSm9IY25XS2JuSkdhVjYycm9rQm1qeHpRVjQ2a24wTVVOOHhRaU1ReG1hRk9KbnBQMVE3Snl6d1VwTXo4cUZzdHRTODlNeThWRmlBcFdXbTY1Vm5wcFJrd01JQUpKQ1JtcG1lVVFJTHFwekVwTlFjbUVOU1VzdWdURDVnV0lPRFdxK2dLRE1QcHBvTEtGcXNWNUpma2dqVHdwV2Nud01UQVljcXd6OEFJSmhDQVhFREFBQT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8790724\,\2\:\0.7697385\,\3\:\0.7421473\,\4\:\2\,\5\:\5.25\},{\1\:\0.7946938\,\2\:\0.8139130\,\3\:\0.6594104\,\4\:\3\,\5\:\3.50\},{\1\:\0.7319728\,\2\:\0.8423410\,\3\:\0.6073850\,\4\:\4\,\5\:\2.75\},{\1\:\0.6977861\,\2\:\0.8528470\,\3\:\0.5758512\,\4\:\5\,\5\:\2.25\},{\1\:\0.6748004\,\2\:\0.8607271\,\3\:\0.5571935\,\4\:\6\,\5\:\1.75\},{\1\:\0.6533495\,\2\:\0.8602546\,\3\:\0.5327556\,\4\:\8\,\5\:\1.50\},{\1\:\0.6480318\,\2\:\0.8603580\,\3\:\0.5240709\,\4\:\9\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[7]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qY3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTnlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFpZGk5SGN6SXpVSFJ4TlM4NWFTOVVUSEUxVWxsWmJYbG1PVFJYY25aT2VEQjVWRGRhTUV3MlR5c3lhems1Y3k5dVl6TktWamxHZDNoMk4wcHVZbGRNWkRnclkyRXZPV3R5Vm5wc015dDNiWFZRTkZnclZHUnVNMHBvZW5sMk5sWjVTMVpEU2xKVllpc3haak5tT1d4Nk4xZERNMll4TTBjM09USjRUWE42SzJSV1pVdDZSMGhQVlhaMldHNWtUbll2TlhWMldXWTVOaloxZFdWSk5YTjZORkJ4WmpNMGNqRk1UMWR6ZEZndlMwMDNaamh6UzNWTUwyVk9NbTgyV25aaUsweHpTRGxyTkhoR2VUaGpjM29yTkZGUGRUTkJUa1pZZGxsUU1sUlpaSFJtYlZWWkx5OW5PRTV2VEZCTlZuaFJUREk0U1ZBeFFYcEJWREpQWkVOdVZVZ3JlRUZVUlVoRlNGQkROMGhCVVZwUlFVUkNlRFJ2ZWxGaGJHMVRRekF2VWpodkwxRk9TMll5UjBGQmNGUkJXVGd4VEhwRk1IUkNha2xGZDBKYVFrSkdiVU5tU1U1a2IxZDVUMjlQVEVNd2MxTnBNVUpSYjI0NWJsaEZVMkpHYTJ4MFUxWkJiR3hqTWxkSFNsSlpWbmcwVGtaVlJ6Tm5URTF2ZGpFMFVGcEJka2xsVlhkUVJVaGxlbTlVYTI1UFUxTjVSMDlSVlcxNVNsZFRWMHBMYjJ3eFdVVXhRUzlyTDFWUVZIZHdOV1pWU2t0YWJuZG1WWGhEVVUxRVVuZDFjMFJSUlVsNGRrVlhRVkZPVDFWWlNFUldhRWxSVUd0RFkwUTJlVUp2U0ZOUVNrTnlWVE5UVkUwd2NucHpibFpPUkU1RWEyMVJkbmt3Y0VoeldUUkVObXBvUldGblZFRXlTemhVU2xSUUsyZ3lhbXhvWjFwbFlXNUtSVkJhWWs5c05YRldialZ4V0VOQmFYZDBUVEV5ZGxCRVQyeEtRVTFYUW1sRFFtcE9WRTA1U1hkVFYwWkViRXBEWVd3MWMwRmphM0JLWVVKdFdIbEJZMDFoU0U1U05rSlZWMXBsVkVSV1dFVkVVbGx5TWxNdlNrcEZiVUpoZFRWUWQyTnRRV2MwVmtKdUswRlJRMEU1WkdZM1kxRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuODgzOTc1NFwiLFwiMlwiOlwiMC43NjM2NTM2XCIsXCIzXCI6XCIwLjc0NTQwNThcIixcIjRcIjpcIjJcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiMC43OTM4MDEyXCIsXCIyXCI6XCIwLjgxNTA0MThcIixcIjNcIjpcIjAuNjU3Nzg5OVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjczNTE0OTBcIixcIjJcIjpcIjAuODM5ODQxMFwiLFwiM1wiOlwiMC42MTAyNTM2XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNjg5NzIwMFwiLFwiMlwiOlwiMC44NTgxNjE2XCIsXCIzXCI6XCIwLjU2OTg1NDlcIixcIjRcIjpcIjVcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC42NzUxNzUyXCIsXCIyXCI6XCIwLjg2MDY0MzRcIixcIjNcIjpcIjAuNTU4NTk4N1wiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjY1MTkzODNcIixcIjJcIjpcIjAuODYwNTQ2MFwiLFwiM1wiOlwiMC41MzIwNjc3XCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNjQ2MTMyN1wiLFwiMlwiOlwiMC44NjIwNTA4XCIsXCIzXCI6XCIwLjUyMzg4NjZcIixcIjRcIjpcIjlcIixcIjVcIjpcIjEuMjVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls3XX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjcsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNyDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1idi9HczIzUHRxNS85aS9UTHE1UllZbXlmOTRXcnZOeDB5VDdaMEw2Tysyazk5cy9uYzNKVjlGd3h2N0puYldMZDgrY2EvOWtyVnpsMyt3bXVQNFgrVGRuM0poenl2NlZ5S1ZDSlJVYisxZjNmOWx6N1dDM2YxM0c3OTJ4TXN6K2RWZUt6R0hPVXZ2WG5kTnYvNXV2WWY5NjZ1dWVJNXN6NFBxZjM0cjFMT1dzdFgvS003ZjhzS3VML2VOMm82WnZiK0xzSDlrNHhGeThjc3orNFFPdTNBTkZYdllQMlRZZHRmbVVZLy9nOE5vTFBNVnhRTDI4SVAxQXpBVDJPZENuVUgreEFURUhFSFBDN0hBUVpRQURCeDRvelFhbG1TQzAvUjhvL1FOS2YyR0FBcFRBWTgxTHpFMHRCaklFd0JaQkJGbUNmSU5kb1d5T29PTEMwc1NpMUJRb245blhFU2JGa2x0U1ZBbGxjMldHSlJZVng0TkZVRzNnTE1vdjE0UFpBdkllVXdQRUhlem9Ua25PU1N5R09RVW15SldTV0pLb2wxWUUxQS9rL1VQVHdwNWZVSktabndmVXhDUU1EUnd1c0RRRUl4dkVXQVFOT1VZSERWaElRUGtDY0Q2eUJvSFNQSkNyVTNTVE0wcnpzblZORE5Ea21RdnkwcEhzWTRENmpoRWFnVEEySzhUSlRQK2gyamxoZ1plYW5KRVBaYk9sNXFWbjVxWENBaXd0TTEydlBET2xKQU1XQmlDQmpOVE05SXdTV0ZEbEpDYWw1c0Fja3BKYUJtWHlBY01hSE5SNkJVV1plVERWWEVEUllyMlMvSkpFbUJhdTVQd2NtQWc0VkJuK0FRQ0E5ZGY3Y1FNQUFBPT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8839754","2":"0.7636536","3":"0.7454058","4":"2","5":"5.25"},{"1":"0.7938012","2":"0.8150418","3":"0.6577899","4":"3","5":"3.50"},{"1":"0.7351490","2":"0.8398410","3":"0.6102536","4":"4","5":"2.75"},{"1":"0.6897200","2":"0.8581616","3":"0.5698549","4":"5","5":"2.25"},{"1":"0.6751752","2":"0.8606434","3":"0.5585987","4":"6","5":"1.75"},{"1":"0.6519383","2":"0.8605460","3":"0.5320677","4":"8","5":"1.50"},{"1":"0.6461327","2":"0.8620508","3":"0.5238866","4":"9","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[7]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOeXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk55RERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlluWTVSMUZzWWxwYVIyVnBMMk4yZDBZd1YwdExjemN5ZWpkelkzSXlhR1ptVjJZdmNrZEVWbWx0TTFST09Xc3ZZbUpCTTJaaGJtWlpaaTlyYzFoRWVXWmFOSFE1YXpoUGRFUXZXamhWYjFSeWRpOUdjVzA0TTBFM1NXSTNSaXRLYm5reFYyWTRkR2d2SzNKbFFYcE5VSEpwV0RKeWVUQllaSHBOUmpkTVZpOVFWMDl0THpBNVFrcG1kbGhtVm1OclJ6TXdZemRHS3pNM1VtUjBNV1IzVURFdk9UaDBPVmw0WW1OclNEbHJLMXB5Vm5CWGVsWTVhUzgzYWpGU00zVkpPR2RZTjFJMk1WaGhkRGx5VDNSbkwxQk1WRGcxWVRWMFEzWlpVRzFtWTNkcFltWnpjMWc1ZHpoME56VnlTM2RKYjBZMVpXdElOR2RhWjB3M1NFOW9WSEZNTDFsblNtZEVhVVJzYUdScWFVbE5iME5DUVhjclZWcHZVRk5VUWtSaEwyY3JWUzluUjJ4MmVrSkJRVlZ5WjNObFdXdzFjVmxYUVhoclExbEpjMmRuYVhoQ2RuTkhkVlZFV2toVlNFWm9ZVmRLVW1GbmNWVjZLM3B5UTBwT2FYbFRNSEJ4YjFONWRWUk1SRVZ2ZFVzME9FVnBjVVJhZDBaMVYxZzJPRVp6UVZodFVIRlJTR2xFYmxvd2NIbFVia3BDWWtSdVFVbFVOVVZ3U2t4RmJsVlRlWE5ETm1kbWVTOXhSbkJaWXpoMlMwMXVUWHAzVG5GWmFFdEhRbWMwV0ZkQ2NVTnJVVEZwVEVsTFIwaExUMFJDYVhkcmIwaDNRazlDT1Zwbk1FSndTSE5xVmt0aWNrcEhZVlkxTW1KdmJVSnRhbmw2UVZZMU5sVnFNazFWUWpsNGQybE9VVUpwWWtabFNtdHdkamxSTjFwNWQzZEZkRTU2YzJsSWMzUnNVemc1U1hvNE1VcG9RVnBoVjIxaE5WaHVjR3hUYTJkRlRFRTFRa0ZTYlhCdFpXdFpTa3hMYUhsRmNFNVRZekpCVDFOVmEzUm5la3cxWjBkRlRrUnRjVGxuY1V4TlVFcG9jVXh4UW05elZqVktabXRyYVZSQmRGaGpialJQVkVGUlkzRm5laTlCU0VWRVdHeG9lRUYzUVVFaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuODc3OTQzNlxcLFxcMlxcOlxcMC43NzA4Njk3XFwsXFwzXFw6XFwwLjc0MTU5NzVcXCxcXDRcXDpcXDJcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcMC43OTE5ODEwXFwsXFwyXFw6XFwwLjgxNTQwNTZcXCxcXDNcXDpcXDAuNjU2NjQ0MVxcLFxcNFxcOlxcM1xcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFwwLjczNTYyNzFcXCxcXDJcXDpcXDAuODM5NzA2NVxcLFxcM1xcOlxcMC42MTAxMDM5XFwsXFw0XFw6XFw0XFwsXFw1XFw6XFwyLjc1XFx9LHtcXDFcXDpcXDAuNzAxMjUzM1xcLFxcMlxcOlxcMC44NTA3ODYwXFwsXFwzXFw6XFwwLjU3ODgzNjdcXCxcXDRcXDpcXDVcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42NzE5MDUxXFwsXFwyXFw6XFwwLjg2MjM3NzhcXCxcXDNcXDpcXDAuNTU1MDExN1xcLFxcNFxcOlxcNlxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjY1MjcxOTJcXCxcXDJcXDpcXDAuODYxMTg1MVxcLFxcM1xcOlxcMC41MzE3MDU5XFwsXFw0XFw6XFw4XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjQ4NTAyM1xcLFxcMlxcOlxcMC44NjAxOTg1XFwsXFwzXFw6XFwwLjUyNDY0MjRcXCxcXDRcXDpcXDlcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls3XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NywibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNyDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNYnY5R1FsYlpaR2VpL2N2d0YwV0tLczcyejdzY3IyaGZmV2YvckdEVmltM1ROOWsvYmJBM2ZhbmZZZi9rc1hEeWZaNHQ5azhPdEQvWjhVb1Rydi9GcW04M0E3SWI3RitKbnkxV2Y4dGgvK3JlQXpNUHJpWDJyeTBYZHpNRjdMVi9QV09tLzA5QkpmdlhmVmNrRzMwYzdGKzM3UmR0MWR3UDEvOTh0OVl4YmNrSDlrK1pyVnBXelY5aS83ajFSM3VJOGdYN1I2MVhhdDlyT3RnL1BMVDg1YTV0Q3ZZUG1mY3dpYmZzc1g5dzh0NzVyS3dJb0Y1ZWtINGdaZ0w3SE9oVHFML1lnSmdEaURsaGRqaUlNb0NCQXcrVVpvUFNUQkRhL2crVS9nR2x2ekJBQVVyZ3NlWWw1cVlXQXhrQ1lJc2dnaXhCdnNHdVVEWkhVSEZoYVdKUmFncVV6K3pyQ0pOaXlTMHBxb1N5dVRMREVvdUs0OEVpcURad0Z1V1g2OEZzQVhtUHFRSGlEblowcHlUbkpCYkRuQUlUNUVwSkxFblVTeXNDNmdmeS9xRnBZYzh2S01uTXp3TnFZaEtHQmc0WFdCcUNrUTFpTElLR0hLT0RCaXdrb0h3Qk9COVpnMEJwSHNqVktickpHYVY1MmJvbUJtanl6QVY1NlVqMk1VQjl4d2lOUUJpYkZlSmtwdjlRN1p5d3dFdE56c2lIc3RsUzg5SXo4MUpoQVphV21hNVhucGxTa2dFTEE1QkFSbXBtZWtZSkxLaHlFcE5TYzJBT1NVa3Rnekw1Z0dFTkRtcTlncUxNUEpocUxxQm9zVjVKZmtraVRBdFhjbjRPVEFRY3Fnei9BSEVEWGxoeEF3QUEifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8779436\,\2\:\0.7708697\,\3\:\0.7415975\,\4\:\2\,\5\:\5.25\},{\1\:\0.7919810\,\2\:\0.8154056\,\3\:\0.6566441\,\4\:\3\,\5\:\3.50\},{\1\:\0.7356271\,\2\:\0.8397065\,\3\:\0.6101039\,\4\:\4\,\5\:\2.75\},{\1\:\0.7012533\,\2\:\0.8507860\,\3\:\0.5788367\,\4\:\5\,\5\:\2.25\},{\1\:\0.6719051\,\2\:\0.8623778\,\3\:\0.5550117\,\4\:\6\,\5\:\1.75\},{\1\:\0.6527192\,\2\:\0.8611851\,\3\:\0.5317059\,\4\:\8\,\5\:\1.50\},{\1\:\0.6485023\,\2\:\0.8601985\,\3\:\0.5246424\,\4\:\9\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[7]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qY3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTnlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFpZGpsSFRWTmFkQzl1VGxRck5XUTFhWFpQT0ZkdFZIUnVLMk5GY1ZWWVRqTXlSQzlNVFZJMVVtdzFXV3RRTTFRMlpDOWFNVTEwVHpKVU9UVlpVM1ppY2tSRVNDOXpiV1YwVnpST2FYSXZaeXRzT0hNelRGTTJZVzhyZFM5VGRuVjVXVVZJVG1reWVXWXZWMnhzUkUxemJuUXpLM1JXWm5KeFYzWlhWQ3N4Wm1SM2RUTlRlblJ4TW1JNWRVNHJiR0phTld4cUx6ZHhSRTU1ZGprclEyMDBMM1ZtTjFZcksweFlTamxzTHpGVWVUaGtOMEZxUlRNeWFpOU5NMVJsUjBsUE1rZ3ZTMFJsSzNGS1lqbHpVRE5FU3lzeU5XVldNR1U1WnprMVVXcHpPVm8zY2xsUWVtaHhSVU50Y2s5M1YyOXNlR1ZyU0RScFduZEVORWdyYUZSeFRIcFpaelZuUW1sVWNHZGtSSEZKVFZsUFJFRkJObGhhYjBSUlZHaE1ZaTlCTmxZdlVVOXJka1JHUTBGRmJtbHpaVmx0TlhGalZrRm9aMFJaU1c5bloxTTFRblp6UTNWVmVsSkdWVmhHYVdGWFNsTmhRWFZWZWl0NmNrTndSbWg1VXpSdmNXOVhlWFY2VEVSRmIzVktOSE5CYVhGRVduaEdLMlZXTmsxR2RFRXpiVTV4WjB4cFJFaGtNSEI1VkcxS2VGUkRibmRCVXpWVmFFcE1SWFpZVTJsdlJEWm5Zbmd2WVVaeVdUaDNkRXROZGxCNlowcHhXV2hMUjBKM2QxZFhhRzFDYTJkNGFVeHZRMGhJTmt0QlFrTjNhMjlZZDBSUFVqbFpaMVZLYjBoamJsZExZbTVLUjJGV05qSnliMnRDYldwNGVsRldORFpyYmpCTlZVNDRlRkZwVFZGNGJXRkdUMHB1Y0ZBeFVUZEtlWHAzVlhCTmVqaHhSbk4wZEZNNE9VMTVPRlpHYVVGd1YxZHROalZXYm5Cd1VtdDNUVWxCU2twRFVtMXdiV1ZWVVVsTWNYQjZSWEJPVVdOdFJVNVRWWE4xWjFSRU5XZFhTVTlFVjNFclowdEVUVkJ3Y0c5TVMwWnhjMVkxU21acloycFVkM0JYWTI1M1RWUkJXV054ZDNvNFFVbEthRU5CV0VWRVFVRkJQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjg3OTA3MjRcIixcIjJcIjpcIjAuNzY5NzM4NVwiLFwiM1wiOlwiMC43NDIxNDczXCIsXCI0XCI6XCIyXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjAuNzk0NjkzOFwiLFwiMlwiOlwiMC44MTM5MTMwXCIsXCIzXCI6XCIwLjY1OTQxMDRcIixcIjRcIjpcIjNcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43MzE5NzI4XCIsXCIyXCI6XCIwLjg0MjM0MTBcIixcIjNcIjpcIjAuNjA3Mzg1MFwiLFwiNFwiOlwiNFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjY5Nzc4NjFcIixcIjJcIjpcIjAuODUyODQ3MFwiLFwiM1wiOlwiMC41NzU4NTEyXCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjc0ODAwNFwiLFwiMlwiOlwiMC44NjA3MjcxXCIsXCIzXCI6XCIwLjU1NzE5MzVcIixcIjRcIjpcIjZcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NTMzNDk1XCIsXCIyXCI6XCIwLjg2MDI1NDZcIixcIjNcIjpcIjAuNTMyNzU1NlwiLFwiNFwiOlwiOFwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY0ODAzMThcIixcIjJcIjpcIjAuODYwMzU4MFwiLFwiM1wiOlwiMC41MjQwNzA5XCIsXCI0XCI6XCI5XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbN119LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjcsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNyDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1idjlHTVNadC9uTlQrNWQ1aXZPOFdtVHRuK2NFcVVYTjMyRC9MTVI1Umw1WWtQM1Q2ZC9aMU10TzJUOTVZU3ZickRESC9zbWV0VzROaXIvZytsOHMzTFM2YW8rdS9TdnV5WUVITmkyeWYvV2xsRE1zbnQzK3RWZnJxV3ZXVCsxZmR3dTNTenRxMmI5dU4rbGJaNWxqLzdxRE55djkrQ200L3VmN1YrK0xYSjlsLzFUeThkN0FqRTMyai9NM1RlR0lPMkgvS0RlK3FKYjlzUDNESysyNWVWMGU5Zzk1UWpzOVo3cllQemhxRUNtck93V29seGVrSDRpWndENEgraFRxTHpZZzVnQmlUcGdkRHFJTVlPREFBNlhab0RRVGhMYi9BNlYvUU9rdkRGQ0FFbmlzZVltNXFjVkFoZ0RZSW9nZ1M1QnZzQ3VVelJGVVhGaWFXSlNhQXVVeit6ckNwRmh5UzRvcW9XeXV6TERFb3VKNHNBaXFEWnhGK2VWNk1GdEEzbU5xZ0xpREhkMHB5VG1KeFRDbndBUzVVaEpMRXZYU2lvRDZnYngvYUZyWTh3dEtNdlB6Z0pxWWhLR0J3d1dXaG1Ca2d4aUxvQ0hINktBQkN3a29Yd0RPUjlZZ1VKb0hjbldLYm5KR2FWNjJyb2tCbWp4elFWNDZrbjBNVU44eFFpTVF4bWFGT0pucFAxUTdKeXp3VXBNejhxRnN0dFM4OU15OFZGaUFwV1dtNjVWbnBwUmt3TUlBSkpDUm1wbWVVUUlMcXB6RXBOUWNtRU5TVXN1Z1RENWdXSU9EV3ErZ0tETVBwcG9MS0Zxc1Y1SmZrZ2pUd3BXY253TVRBWWNxd3o4QUlKaENBWEVEQUFBPSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8790724","2":"0.7697385","3":"0.7421473","4":"2","5":"5.25"},{"1":"0.7946938","2":"0.8139130","3":"0.6594104","4":"3","5":"3.50"},{"1":"0.7319728","2":"0.8423410","3":"0.6073850","4":"4","5":"2.75"},{"1":"0.6977861","2":"0.8528470","3":"0.5758512","4":"5","5":"2.25"},{"1":"0.6748004","2":"0.8607271","3":"0.5571935","4":"6","5":"1.75"},{"1":"0.6533495","2":"0.8602546","3":"0.5327556","4":"8","5":"1.50"},{"1":"0.6480318","2":"0.8603580","3":"0.5240709","4":"9","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[7]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOeXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk55RERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlluWXZOakkyZURFelduQlBPV2tyWkRWNWNXTlFXbkJ1THpkNWJHVXhNWFUzWnpNM1dqRllVa2N5Wkc5NllrSXZNbkp5U1RVd1VFOUxMM051TVRGUk1uSkNaVnBoVURsckwzZzRSMnh4VlM4MFVIQm1ia3BLTUdSNFdFeHpNeXRzVEVSeWRGUlFkMDByTVdWMlRHbGpWbE5FYmxsMk4xcDNNWFo2U1VsWFNDOWxja3RtWm5OelIxQm1kbGd3TmtzM1ZERXdWSE51TDJRcmNtUnBORFV5TVdOUU0xQmFOamRhT1c1T2FHdDJNbFI2TW5CNllqTkdkblF6T1dNNU5pdEplVGRtUVM5MFJXczVNa1JYZWpOaU1rUTBMMUJXZW1GUE16SkVMelJRWldORlJFVXhRV1p6U0hBMVZuWmtZbEp6UW5WeWJFSmxhMGhaYVdGM2VqUkZLMmhtY1V4RVdXYzFaMHBuVkZwdlpVUkxRVTFaVDFCQ1FXRlVXVzk2VVZOb04yWTVRVFpTT1ZFclozTkVSa3RCUlVodGRHVlpiVFZ4VFZwQmFFRk1XVWxKYzJkVE5VSjJjME50Vm5wQ1FsVlliR2xaVjNCaFdrRXJZM2tyYW1wQmNHeDBlVk52YTI5dmJYbHpla3hNUjI5UFFqUnpaMjF2UkZveFJpdDFVamROUm5CRU0yMUNiMmMzYlVKSVpEQndlVlJ0U1hoNlEydDNVV0UyVlhoS1NrVjJZbEZwYjBnMFp6ZDRLMkZHZG1JNFozQk1UUzlFZVdkS2FWcG9ZVTlDZDJkaFZXaEhUbXRuZUdsS2IzbEVSVFpoVFVKRFFYTnZXR2RRVDFKT1VXbFZOVzlHWTI1aFMySnVSa2RoYkRZeGNsbHZRVzE2TVhsUmJEUTFhMGgzVUZWa05IcFJRMGxUZUZkVFJrOWFkbTlRTVdNMFNrTTNlbFUxU1hnNFMwcHpkRTVUT0RsTmVUaFdSbTFDY0cxbGJEWTFXbXR3U2xKdGQwMUJRVXBhUzFKdGNHMWxWWGRKU1hGS2VrVndUbEZtYld0S1ZGVk5hV2xVUkhocVZ6UkxSRmRMZVdwTGVrbFBjRFZuUzB0R2RYVldOVXBqYTNkeVVuZEtaV1p1ZDBWVVFXOWpjbmRFZDBFdk5VaDZWbU5SVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg3Mzg1MzFcXCxcXDJcXDpcXDAuNzc0NjcwM1xcLFxcM1xcOlxcMC43Mzc1MDkxXFwsXFw0XFw6XFwyXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDAuNzg5NTAzNlxcLFxcMlxcOlxcMC44MTY3ODI4XFwsXFwzXFw6XFwwLjY1NDY4MTVcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43MzQ5Mjk5XFwsXFwyXFw6XFwwLjg0MTE2NTJcXCxcXDNcXDpcXDAuNjA5MjUyMlxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjcwMjQzNjNcXCxcXDJcXDpcXDAuODUwNjE4MFxcLFxcM1xcOlxcMC41ODAzNTYzXFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNjcyNTYyN1xcLFxcMlxcOlxcMC44NjE3MzE2XFwsXFwzXFw6XFwwLjU1NTYxNzlcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42NTExNDA1XFwsXFwyXFw6XFwwLjg2MjEwNDJcXCxcXDNcXDpcXDAuNTMwNzE0MlxcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjY0ODQzNTZcXCxcXDJcXDpcXDAuODYwMTA2MlxcLFxcM1xcOlxcMC41MjQ3OTc0XFwsXFw0XFw6XFw5XFwsXFw1XFw6XFwxLjI1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbN119LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NywibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNyDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNYnYvNjI2eDEzWnBPOWkrZDV5cWNQWnBuLzd5bGUxMXU3ZzM3WjFYUkcyZG96YkIvMnJySTUwUE9LL3NuMTFRMnJCZVphUDlrL3g4R2xxVS80UHBmbkpKMGR4WExzMytsTERydFRQd00rMWV2TGljVlNEbll2N1p3MXZ6SUlXSC9lcktmZnNzR1BmdlgwNks3VDEwVHNuL2QrcmRpNDUyMWNQM1BaNjdaOW5OaGt2MlR6MnB6YjNGdnQzOWM5NitJeTdmQS90RWs5MkRXejNiMkQ0L1BWemFPMzJELzRQZWNFREUxQWZzSHA1VnZkYlJzQnVybEJla0hZaWF3ejRFK2hmcUxEWWc1Z0pnVFpvZURLQU1ZT1BCQWFUWW96UVNoN2Y5QTZSOVErZ3NERktBRUhtdGVZbTVxTVpBaEFMWUlJc2dTNUJ2c0NtVnpCQlVYbGlZV3BhWkErY3krampBcGx0eVNva29vbXlzekxMR29PQjRzZ21vRFoxRit1UjdNRnBEM21Cb2c3bUJIZDBweVRtSXh6Q2t3UWE2VXhKSkV2YlFpb0g0Zzd4K2FGdmI4Z3BMTS9EeWdKaVpoYU9Cd2dhVWhHTmtneGlKb3lERTZhTUJDQXNvWGdQT1JOUWlVNW9GY25hS2JuRkdhbDYxcllvQW16MXlRbDQ1a0h3UFVkNHpRQ0lTeFdTRk9adm9QMWM0SkM3elU1SXg4S0pzdE5TODlNeThWRm1CcG1lbDY1WmtwSlJtd01BQUpaS1JtcG1lVXdJSXFKekVwTlFmbWtKVFVNaWlURHhqVzRLRFdLeWpLeklPcDVnS0tGdXVWNUpja3dyUndKZWZud0VUQW9jcndEd0EvNUh6VmNRTUFBQT09In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8738531\,\2\:\0.7746703\,\3\:\0.7375091\,\4\:\2\,\5\:\5.25\},{\1\:\0.7895036\,\2\:\0.8167828\,\3\:\0.6546815\,\4\:\3\,\5\:\3.50\},{\1\:\0.7349299\,\2\:\0.8411652\,\3\:\0.6092522\,\4\:\4\,\5\:\2.75\},{\1\:\0.7024363\,\2\:\0.8506180\,\3\:\0.5803563\,\4\:\5\,\5\:\2.25\},{\1\:\0.6725627\,\2\:\0.8617316\,\3\:\0.5556179\,\4\:\6\,\5\:\1.75\},{\1\:\0.6511405\,\2\:\0.8621042\,\3\:\0.5307142\,\4\:\8\,\5\:\1.50\},{\1\:\0.6484356\,\2\:\0.8601062\,\3\:\0.5247974\,\4\:\9\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[7]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qY3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTnlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFpZGpsSFVXeGlXbHBIWldrdlkzWjNSakJYUzB0ek56SjZOM05qY2pKb1ptWlhaaTl5UjBSV2FXMHpWRTQ1YXk5aVlrRXpabUZ1WmxsbUwydHpXRVI1WmxvMGREbHJPRTkwUkM5YU9GVnZWSEoyTDBaeGJUZ3pRVGRKWWpkR0swcHVlVEZYWmpoMGFDOHJjbVZCZWsxUWNtbFlNbko1TUZoa2VrMUdOMHhXTDFCWFQyMHZNRGxDU21aMldHWldZMnRITXpCak4wWXJNemRTWkhReFpIZFFNUzg1T0hRNVdYaGlZMnRJT1dzclduSldjRmQ2VmpscEx6ZHFNVkl6ZFVrNFoxZzNVall4V0dGME9YSlBkR2N2VUV4VU9EVmhOWFJEZGxsUWJXWmpkMmxpWm5OeldEbDNPSFEzTlhKTGQwbHZSalZsYTBnMFoxcG5URGRJVDJoVWNVd3ZXV2RLWjBScFJHeG9aR3BwU1UxdlEwSkJkeXRWV205UVUxUkNSR0V2Wnl0VkwyZEhiSFo2UWtGQlZYSm5jMlZaYkRWeFdWZEJlR3REV1VseloyZHBlRUoyYzBkMVZVUmFTRlZJUm1oaFYwcFNZV2R4VlhvcmVuSkRTazVwZVZNd2NIRnZVM2wxVkV4RVJXOTFTelE0UldseFJGcDNSblZYV0RZNFJuTkJXRzFRY1ZGSWFVUnVXakJ3ZVZSdVNrSmlSRzVCU1ZRMVJYQktURVZ1VlZONWMwTTJaMlo1TDNGR2NGbGpPSFpMVFc1TmVuZE9jVmxvUzBkQ1p6UllWMEp4UTJ0Uk1XbE1TVXRIU0V0UFJFSnBkMnR2U0hkQ1QwSTVXbWN3UW5CSWMycFdTMkp5U2tkaFZqVXlZbTl0UW0xcWVYcEJWalUyVldveVRWVkNPWGgzYVU1UlFtbGlSbVZLYTNCMk9WRTNXbmwzZDBWMFRucHphVWh6ZEd4VE9EbEplamd4U21oQldtRlhiV0UxV0c1d2JGTnJaMFZNUVRWQ1FWSnRjRzFsYTFsS1RFdG9lVVZ3VGxOak1rRlBVMVZyZEdkNlREVm5SMFZPUkcxeE9XZHhURTFRU21oeFRIRkNiM05XTlVwbWEydHBWRUYwV0dOdU5FOVVRVkZqY1dkNkwwRklSVVJZYkdoNFFYZEJRU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjg3Nzk0MzZcIixcIjJcIjpcIjAuNzcwODY5N1wiLFwiM1wiOlwiMC43NDE1OTc1XCIsXCI0XCI6XCIyXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjAuNzkxOTgxMFwiLFwiMlwiOlwiMC44MTU0MDU2XCIsXCIzXCI6XCIwLjY1NjY0NDFcIixcIjRcIjpcIjNcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43MzU2MjcxXCIsXCIyXCI6XCIwLjgzOTcwNjVcIixcIjNcIjpcIjAuNjEwMTAzOVwiLFwiNFwiOlwiNFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjcwMTI1MzNcIixcIjJcIjpcIjAuODUwNzg2MFwiLFwiM1wiOlwiMC41Nzg4MzY3XCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjcxOTA1MVwiLFwiMlwiOlwiMC44NjIzNzc4XCIsXCIzXCI6XCIwLjU1NTAxMTdcIixcIjRcIjpcIjZcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NTI3MTkyXCIsXCIyXCI6XCIwLjg2MTE4NTFcIixcIjNcIjpcIjAuNTMxNzA1OVwiLFwiNFwiOlwiOFwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY0ODUwMjNcIixcIjJcIjpcIjAuODYwMTk4NVwiLFwiM1wiOlwiMC41MjQ2NDI0XCIsXCI0XCI6XCI5XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbN119LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjcsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNyDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1idjlHUWxiWlpHZWkvY3Z3RjBXS0tzNzJ6N3NjcjJoZmZXZi9yR0RWaW0zVE45ay9iYkEzZmFuZllmL2tzWER5Zlo0dDlrOE90RC9aOFVvVHJ2L0ZxbTgzQTdJYjdGK0pueTFXZjh0aC8rcmVBek1QcmlYMnJ5MFhkek1GN0xWL1BXT20vMDlCSmZ2WGZWY2tHMzBjN0YrMzdSZHQxZHdQMS85OHQ5WXhiY2tIOWsrWnJWcFd6VjlpLzdqMVIzdUk4Z1g3UjYxWGF0OXJPdGcvUExUODVhNXRDdllQbWZjd2liZnNzWDl3OHQ3NXJLd0lvRjVla0g0Z1pnTDdIT2hUcUwvWWdKZ0RpRGxoZGppSU1vQ0JBdytVWm9QU1RCRGEvZytVL2dHbHZ6QkFBVXJnc2VZbDVxWVdBeGtDWUlzZ2dpeEJ2c0d1VURaSFVIRmhhV0pSYWdxVXorenJDSk5peVMwcHFvU3l1VExERW91SzQ4RWlxRFp3RnVXWDY4RnNBWG1QcVFIaURuWjBweVRuSkJiRG5BSVQ1RXBKTEVuVVN5c0M2Z2Z5L3FGcFljOHZLTW5NendOcVloS0dCZzRYV0JxQ2tRMWlMSUtHSEtPREJpd2tvSHdCT0I5WmcwQnBIc2pWS2JySkdhVjUyYm9tQm1qeXpBVjU2VWoyTVVCOXh3aU5RQmliRmVKa3B2OVE3Wnl3d0V0TnpzaUhzdGxTODlJejgxSmhBWmFXbWE1WG5wbFNrZ0VMQTVCQVJtcG1la1lKTEtoeUVwTlNjMkFPU1VrdGd6TDVnR0VORG1xOWdxTE1QSmhxTHFCb3NWNUpma2tpVEF0WGNuNE9UQVFjcWd6L0FIRURYbGh4QXdBQSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8779436","2":"0.7708697","3":"0.7415975","4":"2","5":"5.25"},{"1":"0.7919810","2":"0.8154056","3":"0.6566441","4":"3","5":"3.50"},{"1":"0.7356271","2":"0.8397065","3":"0.6101039","4":"4","5":"2.75"},{"1":"0.7012533","2":"0.8507860","3":"0.5788367","4":"5","5":"2.25"},{"1":"0.6719051","2":"0.8623778","3":"0.5550117","4":"6","5":"1.75"},{"1":"0.6527192","2":"0.8611851","3":"0.5317059","4":"8","5":"1.50"},{"1":"0.6485023","2":"0.8601985","3":"0.5246424","4":"9","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[7]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjRnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqb3hNaXdpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjoxMiwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qY3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTnlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFpZGk4Mk1qWjRNVE5hY0U4NWFTdGtOWGx4WTFCYWNHNHZOM2xzWlRFeGRUZG5NemRhTVZoU1J6SmtiM3BpUWk4eWNuSkpOVEJRVDBzdmMyNHhNVkV5Y2tKbFdtRlFPV3N2ZURoSGJIRlZMelJRY0dadVNrb3daSGhZVEhNeksyeE1SSEowVkZCM1RTc3haWFpNYVdOV1UwUnVXWFkzV25jeGRucEpTVmRJTDJWeVMyWm1jM05IVUdaMldEQTJTemRVTVRCVWMyNHZaQ3R5WkdrME5USXhZMUF6VUZvMk4xbzViazVvYTNZeVZIb3ljSHBpTTBaMmRETTVZemsySzBsNU4yWkJMM1JGYXpreVJGZDZNMkl5UkRRdlVGWjZZVTh6TWtRdk5GQmxZMFZFUlRGQlpuTkljRFZXZG1SaVVuTkNkWEpzUW1WclNGbHBZWGQ2TkVVcmFHWnhURVJaWnpWblNtZFVXbTlsUkV0QlRWbFBVRUpCWVZSWmIzcFJVMmczWmpsQk5sSTVVU3RuYzBSR1MwRkZTRzEwWlZsdE5YRk5Xa0ZvUVV4WlNVbHpaMU0xUW5aelEyMVdla0pDVlZoc2FWbFhjR0ZhUVN0amVTdHFha0Z3YkhSNVUyOXJiMjl0ZVhONlRFeEhiMDlDTkhObmJXOUVXakZHSzNWU04wMUdjRVF6YlVKdlp6ZHRRa2hrTUhCNVZHMUplSHBEYTNkUllUWlZlRXBLUlhaaVVXbHZTRFJuTjNncllVWjJZamhuY0V4TkwwUjVaMHBwV21oaFQwSjNaMkZWYUVkT2EyZDRhVXB2ZVVSRk5tRk5Ra05CYzI5WVoxQlBVazVSYVZVMWIwWmpibUZMWW01R1IyRnNOakZ5V1c5QmJYb3hlVkZzTkRWclNIZFFWV1EwZWxGRFNWTjRWMU5HVDFwMmIxQXhZelJLUXpkNlZUVkplRGhMU25OMFRsTTRPVTE1T0ZaR2JVSndiV1ZzTmpWYWEzQktVbTEzVFVGQlNscExVbTF3YldWVmQwbEpjVXA2UlhCT1VXWnRhMHBVVlUxcGFWUkVlR3BYTkV0RVYwdDVha3Q2U1U5d05XZExTMFoxZFZZMVNtTnJkM0pTZDBwbFptNTNSVlJCYjJOeWQwUjNRUzgxU0hwV1kxRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuODczODUzMVwiLFwiMlwiOlwiMC43NzQ2NzAzXCIsXCIzXCI6XCIwLjczNzUwOTFcIixcIjRcIjpcIjJcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiMC43ODk1MDM2XCIsXCIyXCI6XCIwLjgxNjc4MjhcIixcIjNcIjpcIjAuNjU0NjgxNVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjczNDkyOTlcIixcIjJcIjpcIjAuODQxMTY1MlwiLFwiM1wiOlwiMC42MDkyNTIyXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNzAyNDM2M1wiLFwiMlwiOlwiMC44NTA2MTgwXCIsXCIzXCI6XCIwLjU4MDM1NjNcIixcIjRcIjpcIjVcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC42NzI1NjI3XCIsXCIyXCI6XCIwLjg2MTczMTZcIixcIjNcIjpcIjAuNTU1NjE3OVwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjY1MTE0MDVcIixcIjJcIjpcIjAuODYyMTA0MlwiLFwiM1wiOlwiMC41MzA3MTQyXCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNjQ4NDM1NlwiLFwiMlwiOlwiMC44NjAxMDYyXCIsXCIzXCI6XCIwLjUyNDc5NzRcIixcIjRcIjpcIjlcIixcIjVcIjpcIjEuMjVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls3XX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjcsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNyDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1idi82MjZ4MTNacE85aStkNXlxY1BacG4vN3lsZTExdTdnMzdaMVhSRzJkb3piQi8ycnJJNTBQT0svc24xMVEyckJlWmFQOWsveDhHbHFVLzRQcGZuSkowZHhYTHMzK2xMRHJ0VFB3TSsxZXZMaWNWU0RuWXY3WncxdnpJSVdIL2VyS2Zmc3NHUGZ2WDA2SzdUMTBUc24vZCtyZGk0NTIxY1AzUFo2N1o5bk5oa3YyVHoycHpiM0Z2dDM5Yzk2K0l5N2ZBL3RFazkyRFd6M2IyRDQvUFZ6YU8zMkQvNFBlY0VERTFBZnNIcDVWdmRiUnNCdXJsQmVrSFlpYXd6NEUraGZxTERZZzVnSmdUWm9lREtBTVlPUEJBYVRZb3pRU2g3ZjlBNlI5UStnc0RGS0FFSG10ZVltNXFNWkFoQUxZSUlzZ1M1QnZzQ21WekJCVVhsaVlXcGFaQStjeStqakFwbHR5U29rb29teXN6TExHb09CNHNnbW9EWjFGK3VSN01GcEQzbUJvZzdtQkhkMHB5VG1JeHpDa3dRYTZVeEpKRXZiUWlvSDRnN3grYUZ2YjhncExNL0R5Z0ppWmhhT0J3Z2FVaEdOa2d4aUpveURFNmFNQkNBc29YZ1BPUk5RaVU1b0ZjbmFLYm5GR2FsNjFyWW9BbXoxeVFsNDVrSHdQVWQ0elFDSVN4V1NGT1p2b1AxYzRKQzd6VTVJeDhLSnN0TlM4OU15OFZGbUJwbWVsNjVaa3BKUm13TUFBSlpLUm1wbWVVd0lJcUp6RXBOUWZta0pUVU1paVREeGpXNEtEV0t5akt6SU9wNWdLS0Z1dVY1SmNrd3JSd0plZm53RVRBb2Nyd0R3QS81SHpWY1FNQUFBPT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8738531","2":"0.7746703","3":"0.7375091","4":"2","5":"5.25"},{"1":"0.7895036","2":"0.8167828","3":"0.6546815","4":"3","5":"3.50"},{"1":"0.7349299","2":"0.8411652","3":"0.6092522","4":"4","5":"2.75"},{"1":"0.7024363","2":"0.8506180","3":"0.5803563","4":"5","5":"2.25"},{"1":"0.6725627","2":"0.8617316","3":"0.5556179","4":"6","5":"1.75"},{"1":"0.6511405","2":"0.8621042","3":"0.5307142","4":"8","5":"1.50"},{"1":"0.6484356","2":"0.8601062","3":"0.5247974","4":"9","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[7]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBNWtBQUFFekNBSUFBQUEwTEZEUUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzNkYjJ3ajZYM1k4ZDlJMnQyN25QOGhVZG80dW0zUDlWQU9CQVVwWUFHTG8zQnA3a1dhREJVVGhLTVNxSUdjMGdZVmNXOU1MUUs1S0ZaSm0zaTNRQ3pBRXZQbVFoVUJySHZoTnJwRkt4QVZwNDBiWEpxRGVLZDBYeVNCUU1maUlIZnhudXcwVnR3RXlUbDNYa2xQWHd4SmtSUkZVdVF6NUR6azk0TUJqaHcrK3ZFNWliOTlmak44NWhsTEtTVUFBQUNBZ2NZRzNRRUFBQUNnUzlTeUFBQUFNQlcxTEFBQUFFeEZMUXNBQUFCVFRRUWFmVzV1THRENFFOV2pSNDhHM1FWamtKZ0lHdm5ZQlJJVGZUTmtHUnBzTFN2WC8zMmRuSnhNVGs1cTcwWVFZZWxxZU1JeUJseFhHQktUbUhwakJoU1dmT3luTUNSbVFHSHBhbmpDRGwrR01zY0FBQUFBcHFLV0JRQUFnS2tDbjJQZ08zcjhvNTAzL3U3ampwclpOejdVZWN3ZkZEbi9pNDVhL3RYNWU1MkgvYzYzT21wbWRSNVJSRVJPT2d2NzVEcjN1ZmoyY2FjdHIzWHpqRzkxSFBaYU9nejdvMU9kL2FiUXpQNmYvNU5ydGY5R1o1bngvSzFPLzFYcFBDdi8zL24zT294cGlmeFZaeCtLcDZ6eERtTStMZkxldHp0cStUMTEybUZNNmZoZmordmV6T1l2T3d4N25YODkvbTluK2ZnUHlVZE5qbyt2TVdJZWQvYlgrZmk0TVNQbWRRVVJ0dk9ZNXdHazBuV3ovaTg2Qy9zanc1dWhuSmNGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlxMTFyMllDTWVqOGZqR3dkYWVoT1FzWStYL0czUUhRSDZKUHlKU1ZaaUJJVS9NWVhjaElGNnEyVVBOZ3JSWEM2WHV5Y1BRcHVidFFsSmNtSWtoRDR4eVVxTW90QW5wcENiTU5ORUx6OTgvRmh1UHk4aWNpZjVVdUhOWTdrejVlK2ZtNXVydGprNU9lbmxMWUFXK0hRMVJXSmlJUGhRdFVaaVlyQ0crTlBWVXkwcjhzNGJieDR2TGs0MTdIMzA2SkgvWUc1dWJuSnlVa1MrKzdpMzl3R2E4VDlkdUtTanhQekdlMzN2RjRZYStkaE9weVBtOFhHL2U0WlJNTVFaMmxNdE83WDR1ZWZpTDhkZkZaRlB2UFRLb3FZdWFYYis3VWoxaTVMemIwY0cyeG1nRDhLZm1HUWxSbEQ0RTFQSVRaaXB4L095ZCs3bWNuZmxZR05ETGgxcWhnZ0ppUkZqUUdLU2xSZzlCaVNta0pzd1VHL3paUittWDM3MWJaRVg3K1h1NnVvUWdCNlJtRUFJa1poQVFIcWNZNURKaGZSN0VtQjBrWmhBQ0pHWVFFQzRWd0lBQUFCTVJTMExBQUFBVTFITEFnQUF3RlRVc2dBQUFEQVZ0U3dBQUFCTVJTMExBQUFBVTFITEFnQUF3RlRVc2dBQUFEQVZ0U3dBQUFCTVJTMExBQUFBVTFITEFnQUF3RlRVc2dBQUFEQVZ0U3dBQUFCTU5kR2Z0L25PK2RQYVk2b25mNmM5cG9pY2lhVTk1aTNyWEh0TUVUbFYrcnNxSWxZQVVXK0kwaDhVdmZucjgyZUNDUHYxSjkvVkh2T3BBRExvbzJQNlA1TkJmTXB2Qm5QRzRjWVlKekxDNjF0bk43WEgvTzc1OTdUSEZCRUpZTVFNWkdBVENXUVlGaGtQSU9aRU1DUG1qd1FSTkJ6NDV3d0FBQUNtb3BZRkFBQ0FxYWhsQVFBQVlDcHFXUUFBQUppS1doWUFBQUNtb3BZRkFBQ0FxYWhsQVFBQVlDcHFXUUFBQUppS1doWUFBQUNtb3BZRkFBQ0FxYWhsQVFBQVlDcHFXUUFBQUppS1doWUFBQUNtb3BZRkFBQ0FxYWhsQVFBQVlLb2VhOW5qaCtsNFBCNlBweDhlNitrUGdONlJtRUFJa1poQUlIcXJaWS9mZlB6Q0s3bGM3cFVYM3RnNTBOUWpBRDBpTVlFUUlqR0JZRXowK1BQdlBINVhaT3JkeDg5RkZ5OTJ6czNOVlIrZm5KejArQmJBVmZoMFhZWEVSUC94b1dxTHhNUUFEZkducTdkYWRtb3hFOTJJeHgrOGVDOTN0MmIzbzBlUC9BZHpjM09UazVNaThvMzNlbm9mb0NuLzA0VkdIU2JtM3c2a2N4aGE1R01iSFkrWWIzOXpFTjNEc0J2aURPMTV2dXpqYUM1M1R4NXM4SVVKRUJva0poQkNKQ1lRaU41cTJZT2ROK1Jaa1R0MzcwbUIxQVJDZ3NRRVFvakVCSUxSMnh5RE84a1h2dnB5L0ZVUmVmRmVUaytIQVBTS3hBUkNpTVFFZ3RIanRWOVRpNW5jWXZ0bUFQcUp4QVJDaU1RRUFzRzlFZ0FBQUdBcWFsa0FBQUNZaWxvV0FBQUFwcUtXQlFBQWdLbW9aUUVBQUdBcWFsa0FBQUNZaWxvV0FBQUFwcUtXQlFBQWdLbW9aUUVBQUdBcWFsa0FBQUNZaWxvV0FBQUFwcUtXQlFBQWdLbW9aUUVBQUdDcWlmNjh6UjkrNzVQYVkzNXMvRDN0TWMxaVdTcUlzRTlacDlwam5vdWxQYWFJZkNLSW9DTmphdnl2Z3dqNzhYSDlmK3V6UUk2NjlmZHpYSHRFa1p0V0VGSGxWSjBIRVJaYS9OZS8vclQybUIrZWVGOTdUQkVaRi8wZnBFQkdDNUVKNnl5SXNEZk5HVEUvRlVUUWNPQzhMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5R0UxZVp0NnFOWi94NnZhbjNNcy80Nll1bXZxUDV6T2VtOGw0bFZkcU5QdDVBTTFkbFkvOTdFRGYzeE13UnFjalk4MnUycWFCRDVIVXNoaE5kbnEvdEJtVjVieFNTcW44Y21FbGtuTDkvYXEwR1pXdCs0MERtNWU1dnlYUnpaTGFUOXR1S25hNFdWSnFXNVppT3lMaVpGVnBNeHJkTENsZmFYTm1FUDlUZ0tHdXlzYytjVk9SbFVMLzNnNHdUV2NqWTJXZnV5dkx5MXU3RnlrYytCQkpMUXVJT0t1YlVUazhxdVpvY25OVFZ0YnJ4bEp2VDVLYjBZdm5zOU8yaUozZXp5ZWJ4TFBUYVNld3pnSkRyakVmZzMvRGJLazJ1UUUwMDhISUtDTGk3a29pbTZnclpodG9IeUtwWlFIeE1rc3JoV2h5b1hwVUtkUHB0ZnBFZE5lTDB3dlZaMDVpZVN2bWYwbmlwQzhPUml2Uk1rd3dBTHBXbjQvbEx6ZFRHZGYxaTl2eTE1V3BUQ2FWOGZ3bktiZTgyLythcy9xRnBuOXUxMDFacVV4bTNuKzE4ZnZROG5QT3l3THR0UmtaZmQ3UlRNSVI1OHBpTm9naGtsb1dJMjByWmxtV0ZkbEoxbjFCSWlMaXJHNGVWcjlOOFRLN002dTFoNUZPVnVXWHQyTDFVNFFLS3hGL1ZDejJvK3ZBMEdtU2orNzZUcktrbEVvVTd4K0ppSmVadno5VFVrcXBSSEhsc0p5SklsSnpidFhMM0QvY0xDbFYyb3dlSG5sZVpqNjJKVnM3c3EzVWZycVU4bjg2UDd1eWxQSEV5OHpISksrVTRyUXMwSkhXSTZPSWlMY24wNDVJazJJMndDR1NXaFlqYlRtdlZIN1puekRRd0U2dnpaYS9UZkgySk5GNDlsV2NyRktsVFZtSlZNdlo4bVFnSnNzQzNXbVNqNUVaV1lsWTg1bElkajl0aTdlM0krVVR0cEdaSzhwUE83Mi9uNWJNZkdTbFVDaVc3UFIrZmxtVzE5SzJpSGhIaC81d0d0dVNRckhrN2UzSTVxb2pJdlpDa21JVzZFQzdrZEhiMjFtSldaYWZaZlhGYklCREpMVXNScDZUelV1czJZVW1UbUo1NjM3R0UzZTlPRjEvNk9tbS9QWjJlaisvWENpVzZsNWtzaXpRdllaOHROUDdTcFdTTzVIT3IzeDJVNWExSk52Tno3V1dMeTlUU21WSlU2QUxWNCtNSXVMdHlWb2x4VlNwNWh6dWhTQ0dTR3BaNE1wcTFsbmRsSldsK1NiZm9sU3Y1dlNPRHB0RjlESXBGdmdCdWxLWGoyNG00NG1kM2xmNTVjTWp6NTZlTGV6c1haRmFwV0toc0JKSnBYYTNsdlA3bDA0WGlZalkwN09WRTBWdUt1WGEwN09GaXl0WityeDJBbUNxRmlOalpZS0J6MTVJU3ZOODFUMUVUbWlNQlpqRHk4eEhWZ29pTVV2eUt1czQyZnl1WlZraTBXaTBVQ2lJck94c2x2YlRkbnB0ZVdVM3NXOVgyMHZFMnRrc3JjMXNyc21TWlJWRVpEbXZIRGRseGJaRUpHS3RsT05ITjB2cHdmM2ZBV2E1S2grWDgvbVpuU1ZycFp4cHRrZzJ2MnRWOGl5NktTTGlKSlpqTVd0TEpCcU5SamUzcyttU1dERnJTNkxScUJSaUtWbmUyaExabXA4cDdhZnRhbUJaenF1c2lKTmZ0bUxXbHQrSjVUeW5hb0dtS2huYWFtUmNYcGF0cllMSWpwVDhZMGt2czdSU0tFakUyaW1QcThFTmtaWlNTbU80Qm5OemM0OGVQUktSamEvL2MrM0JQemIrbnZhWVpyR3NRUDUyVDFtbjJtT2VpNlU5cG9oOHpqN3dIMVEvYWVpRS8rdjZvMi9lRGlMNFA1clEvN0U4RS8weHJRQStrMEY4eXArMkFqbmpjS3JPdGNmOHlJOSswMy9RbDN6ME12TkxzdDM4L0t1aHFyKzNmL2NuUDY4OStJY24zdGNlVTBUR1JmOEhLWkRSUW1UQ09nc2k3RTF6UnN6UC85anYrUStHYjhSa2pnRUFBQUJNeFJ3REFJQmh5bmZxaXFTbXVZWUxHSGthenNzZVAwekg0L0gwdytQZVF3SFFoY1RFRUhPeXBpNUdRR0lDMnZWNlh2YjRZZnBMOG9WY2JrcExid0JvUVdJQ0lVUmlBa0hvOGJ6c3djNnJiNy85NnN2eCtNWkJ6ZDY1Q2hFNU9UazVPVG5wN1YyQTVrNHFCdDJSc09rb01RZlZPUXdyOHJFZFJrd01Va2d5MUw4dGRlMDlNeXQzcXI2NDhYVDFWdFVkTHBQWDIzblpnNExjeStYdXlQSEQ5SmNlSHQ5WkxCOXJWcStQbTV1Ym01eWNGQkg1VGsvdkF6UlYvblIxNjZmSC9rVVhQL1cxODlkNmVkTis2Q3d4My8zbTRIcUlZZFJqUHA3L3hYUVhQelgySTBjTmUveFZncUticFpvMURpb3JCOVhzYmRZc1lKMlBtTi9xVTQ4d1VrSXhZbnFacGVLYVVvNmJtczk0NWVUelN0UGJTdGtpNG1ZeUVSRVJWeEpLWlR0L0Z6M3JHRXc5LzhKeldnSUJmV1JOVEhTeERiclgxMEJpd2lCUDFHa1hXMk9VOGtpcDFvcExGK2Q5dkwxaXNxU1VLaVYzeWpmZnpNd3Z5YlpTYWlCcmVwR1lNTkhYemwvenQ3YWpaTFhsNVZNLzN0N09iTUlSRVNjeFc3Mk5ndTA0Zmg2NlI3SmdpNGk3RzR2Vm43bHRvN2RhOXRuYjd4UU9SRVRlZlN5M21RQUV3MWpqRTExc2crNTFCMGhNR09qV3gvL00zejVRcDYyMzJwWU5RWnFPbENKeVdDeUpTS25vditpdXJ4UUtLOWU0TGE0ZUpDWk05ak5QLzRLL3RSMGxxeTEvNXVsZnVCUm1kaVlpSWlLUm1kbkdseXFsckJkWlZVcXRGU01kbDdPOTFiSlRpMSs0L2RWNFBCNHZSTy9lNlNrUzBIL1dqWWt1dGtIM3VnTWtKZ3owblc5Titkc0hjdFo2cTIxNUtVeXprZEpPN3lkMkxjdmFUV1FkRVhGM0pYLzEzZUtEUTJMQ1pKcEdUUCs0VXFSVWJMd0JmS1dVRmR1MlJjVEpscExGcSs1WTNhRFhnWGxxTVpOYjdERUdNQ0JHVFJpNEZoSVR4dmxBejYzSURvc2xFZHNmS1JjcU83M01VVUtwUk1wS3VUWExlTmtMeWRrOUhlL1pNUklUQnRNeFl0b0x5Y04xVnh6SDNUMU1ydGJOOEhHUFpLRnVqVDF2YjBlbU83dlRMZmY5d3VnYSt2bXlnRUhlVjFZWFcwTVFleUY1dU91S2lMdDdtRnlvakpUdStvNUVSSnhzWG5aZGtjaU0zMFpLUlprZW9udmdBa0hTTTJMYTZUV0pXWloxZjJZN2JZdVhtYTlNOUttZWxhMnVhckFrMjUwdUlNM0FqQkUyTVQ3b0hnQW8rK0JTWWRvTk83MG1sbVZKZExPMGI0dVhtVitmM3M4NnE4bjdFV3RGUkpielNrVFMyelB6bGhXVDVmeDFMcFVHUnB1bUVkUEpYaXhSWUtmM0t3K2RkUHBpcCtyc2RPeEYxN1QwRERBU0oxbUIwSGhmNmNuSFppTmw0K0RZeFdBSmpMb1FqNWpoN1JrUXVISG0yQUJoOFlIaWV4SWd4RUk4WWxMTFlvU0YrQ2dUR0RVZnFCdUQ3Z0tBcTRWNHhBeHZ6NERBaGZnb0V4ZzF1dVlZQUFoRWlFZE0vdTNBNkZKYyt3V0V4Z2ZuTndmZEJRQlhDdk9JU1MyTEVSYmlvMHhnMUx6UEhBTWd6RUk4WW9hM1owRFExTVJZRjl2bE9QNWllUFUzMjZzc2tGZmQ2NllzeStyM1BUTUJjN3l2SnJyWUJ0MXJZRlRvR2pHRFFDMkwwYVhHeDd2WUdxTjRtYVhpbWxKcXJiaDBVYzE2ZThWa1NTbFZTdTZzdXlJaXJpU1VVa3AxdXZJek1HbytPTC9SeFRib1hnT2pRcytJR1F3T2FqRzZmdmNQZjlWLzhOUFIrNjFiZnEyd2R0VkwzdDdPYkdKZlJKekU3UDA5TDUwdTMwYkl2NU5tcVRpYlNJdUl1eHVMeGFLYnBmMDBkeGtDbW1JZEF5RE0rbmFTdFF2VXNoaGRQLzNDZy9LajhUWTNITHBvS2ZLMU4rN1Z2emc3RXhFUmtjak03RkZsbjUzZVQ2UXNLMWErcjVBWFdWVXE2NmFzK1F6bExORFVCMHdZQU1LczNVQTVRT0d0c29HZ25VK01kYkZkQ25OWUxJbUlTS2w0ZUxIVHl4d2xsTXBMTE9XS2lHM2JJdUprUzhuaW5uY3BBQUI5Y3d3Nm1yL3U3MlA2T3RBeFRTTm1JUHAwSEh6MDkvOUFlOHdQalg5ZmUwd1JVYUwveU9PVzlVUjdUQkg1cXlmUEJCSDIvVFA5My9TZHEwQSswSi9yN1F5bjBuR1VhUzhrRDlkZGNSeDM5ekM1V3VtUXU3NGpxMm14cy9uZGxDdE9lWktzdDdjajA2RzVjMlpBcDhIKzl2eDk3VEcvRzhDMHlJK002Yy9LUDN2eU1lMHgvKzc4S2UweFJVUUZFUE96dmYzNEIrYzZQcERsK2V1T201clBlSlV2UWZ6NTYvdTJsNWxmZDlOWlIwVGNWR1Nsc0p6WDhJNEIrUGI3SDlVZTgyVHN3OXBqaXNpNGRhWTk1czBBWW9ySTM1dytIVVJZUFovYmVtZm5nWXlZbisvdHg3V01tQ0xpWmVZaks0VzZPWGYrTGhFUldjNnJyTk9zVFV1Y2w4WG9VdU5XRjF0akZEdTlKakhMc3U3UGJLZnR5cmtlWnpXNUU3RXN5NHBKd3FtZUZGcVNiYTc5QXByNzRvLy9OMy83NEh5aTlWYmJzaUdJdDdjem0zQkV4RW5NN3RSOENlSi9lMUlxK2krS205cE5sRGFqL2Z1ZkE0eW5aOFJzZHJXMFY1cmVWa29wcGZLYk01RXJycWh1aWZsSkdGMXFUTTlScHBOVktsdCtiS2YzcytYL3Fvc3pzSFZQQURTUi9xTi9XWG5ZWm1CcTJiS0QrZXR1YWplUnpVcW16U1dmQUdxOC9qLy9yZi9ncDV3dnRXNzUrKzRYcm5xcDZkWFNkdVc3Uy9kSUZoenhNczJ2cUc2QldoYWo2L3hHZUdleUE2UG0rMmRheGlOL0JSRi8vdnBDWmFjL2Z6MlJzbEt1V2oyNnY3VlYyTm9TRVJGTDhpeVVCM1RpSitQcjVVZnRoczZMbGlKL2tGdXRmN0haMFdhWlg4cUsxNnBOYzh3eHdPaFNZOTFzQUlMd2ZUWGV4ZFlReEY1SUh1NjZJdUx1SGlZWGF1ZXZSMFNjYkY1MlhUdTlyNVJTcXJRWlhhYVFCVHFsYWNSc2VyVzBpUGlsck4ybXpSVVltVEc2OU16K0FhRERCMmNUWFd5TlVUcVl2dzZnQzFwR3pPWkhteUpTVThxMmFITVY1aGhnZEoxVG1BS2g4VVRUOWVEdDU2L1h2d2FnRTNwR1REdTlKcFpsU1hTenRHK0xsNWxmbjk3M2x4YnhKeGhjYnRNSmFsbU1McFptQjhMaisrZDl1dDBsZ0M3b0dqR2JIVzJLaUpOT04yL1RpZFp6RE54VXc0TFR3QkJSWTFZWDI2QjdMU1FtaHRLVDg3RXV0a0gzdWhhSmlXRVc1aEd6OVQ4RVRsWnR5NUpsV1piRi9WRXdkTTRudXRsQ2dNVEVFUHIrK1VRWDI2QjdYWXZFeERBTDg0alo5cUMyY3Nsbll2ZlNIUUFCczVtOGpnR0ppV0h6NUd5c2kyM1F2VzVBWW1Kb2hYbkU3T2g5dk15OEZkdUticFpVK2FDVC9NUXdPQiszdXRnRzNlc0xKQ2FHeVpQejhTNjJRZmU2Q1JJVFF5bk1JMmJiK2JMbE8yOHFwZmJUZHVXZ2Mxdld5VTBZVDQxM3M0VUFpWWtoZEhvMjNzVTI2RjdYSWpFeHpNSThZclk3TDd1Y3IrUmtyVkp4cTd5UUxXQXVYWm5wWmVZdm5Ydng5MTNzYmRhbUJ5UW1oczdwK1ZnWDI2QjdYWS9FeFBBeXVaYmQybTAyZzkzSmNyTVVtTzk4dkp1dGtaZFpLcTRwcGRhS1N4ZVZxcmRYVEphVVVxWGt6cnA3Ulp0ZWtKZ1lPc013WDViRXhQRFNNMklHbzgwNkJvbmx1dWRlSnNQRm1SZ2FmL3liZC8xTnhxVDFWbTM1eDc5NXR5R0l0N2N6bTNCRXhFbk03dXhkRktyK1BmaEt4ZG1FYzJXYmJwR1lHRUxuNTJOZGJJUHVkUzBTRTBPdDNVRFpmT3RYMTFwd2Q3ZTJZdGFGeUVxeFQvMENndmZqdjd6aGIyMlBMS3N0Zi95WE55NkZtWjJKaUloSVpHYTJ1czlPN3lkMkxjdmFUZmpuWTVxMTZSNkppU0gwNUhTOGkrMXluQTdtL0pRbnR1cStKb3ZFeERBeitienM1bVpKWFNodHpqUTJPZGlJeCtQeCtNWkJZRjBFQXFKcGhaSEQ4bFM0VXZId1lxZVhPVW9vbFplWXY4NWswelpkSXpFeGhNNlYxY1hXR0tXRE9UOStjaXFWbjExWjEzcmVsTVRFTUF2em1seXQxN0d0dVQydStQOUdUTy9YdHppUWFDN1grSzByWUFRdDA5THRoZVRodWl1TzQrNGVKbGNyMTN5NDZ6dXltaFk3bTk5TnVaSnQycVo3SkNhRzBOSFAvNHIvd042NTM3cWxsMXk3cXFXM3R6T2IyQmNSSnpGN2Y4OUxWeTdET2l5V1JPeFNjVGFSRnR2eDl6cUo1ZnRIbmppOVoyUVppWWxoRm81bGZKcTdxcGIxTXZPUmxZS0l5TXBLemU3b1puM2lIeFFlUEhqd2laZGV5U3hPMWJTYW01dXJQajQ1T2RIWFc2Qk9qNTh1UFllTWRucE5MTXVTNkdacDN4WXZNNzgrdlo5MVZwUDNJOWFLaUN6bmxZalV0ZWtCaVludzZ2RkQ5Y24vOGg4ckQ5dGtac3VXTmZONWppcjc3UFIrSW1WWnNlVjgvVDNlWjVJTGVncFpFaE1HQ01XSVdjbVc2R2FwWWNXUHV2MXV5b3B0aVN6bk83dHU4cXF1K2F2aTVldS9NTG0wMXNqeHM4bGNMdmU1eHkrbkh4N1g3SDVVSVNLVGs1T1RrNVBYK3g4Rk9qTlowZDJQcTRsdXRzdWM3RVZ5Mk9uOXJDTVh0LytwNUdGdG14N29UTXplZWdJMDZqRWZ6MCt0THJaTFlUcVo4eU1pSW01cWQ3clhoS3hneElRQlFqRmlYckdxajVlWnIxbVlXVnhKMUE2Z2JiV1pMNXR1ckpycnI4cWNtcG9Ta1R0M1gzbmg4WnZIQXBnbHpMTi9XaUl4TVlUVXVkWEYxaERFWGtnZTdyb2k0dTRlWHB4MGRkZDNKQ0xpWlBOU1hqVExUVlV2ek5TSHhNUXcrL3F2My9XM3RxTmt0ZVhYZjczRGxYL2M5WlZDWVNWaVdmN1JwcnNiaTEzcjJzdzJJM1A1YXM4MlYyVWV2L21HM0o1cTlnb1FZbUZlK2JrMUVoTkQ2TnpxWm10Z3A5Y2tabG5XL1pudHRDMWVaajdsaWppcnlaMklaVmxXVEJKTytSNnpzaFd6S2lPbkxpUW1odGludnJqaGIyMUh5V3JMVDMyeHM1Vi8zRjNKKzVkTEh0N1BlT0pGVnBWU2E4Vkl4K1ZzbTJ1L2RpV3YxSldIcnNjUDB5Ky8rcmJJSjE1NkpYT25zL2NEd2lNY0oxbTdRR0ppQ0trelBiZHVkN0txT2l2V1R1OW55LzlWNldxTHVpY2FrWmdZWnBwR1RQODZUSDhXMEVMRGEvWkNjblpQeExadEVYR3lwYVBVbmllZHpBUnFNOGRnZGVhbzlxaTE0UnVUcWNWTUxwZkw1ZXJuc1FPR01QYThMSW1KSVdTZFdWMXNnKzUxTFJJVHcwekxpTmw4RmxCa3h0OHBwYUpNVjB0WGIyK241bGxMYmNyc1VuR0ZsWjh4ckl5ZEwwdGlZaGhwbVdNd1VDUW1ocGllRWJQcExDQTd2VDF6MzZyY1hxaHlhNU1sMmU1MFRudTdPUWFIbXlXbDYwcFBJRnpVaEJwMEY3cERZbUlJaGV3a2F4ZElUQXd6WFNObXMxbEFkZE9BN092UEFtb3p4eUM3TmwycWVjN2RwVEZNakQwdlMySmlHSjEzdFlVSWlZbGhGdVlScy9YN3VLbFlqRzlNTUt6VXVPcGlHM1N2aGNURVVESi92aXlKaVdFVzVoR3p6WG5aOW5lWEJzeGxkYlVOSG9tSklXU2RkN09GQ1ltSm9SYmlFYlBOK2QrR3BaL3RkRnJ6MnRMQTRLZ0oxY1YyT1k0L1VYMis0UjRtbFhNenFlcmE3RFhQZWtSaVl2aFlwMVlYMjZCN1hZZkV4QkRUTldJR0lSU3ovNERCR0ZQZGJBMmEzWkhQSzAxdisyZG04cHYrdXREWHZTTWZNR3JNUHk4TEREVXRJMll3V3E5akFBeXpkNVpYL1FmLytMZS8xTHJsbi8vU0Y2NTZ5ZHZibVUzc2k0aVRtTDIvNS9ublpXeW5YTEs2UjdMZ2lIOUh2bGgwczdUUE5jNUFjOWJab0hzQTRHcmh1RnlrT2M3TFluUTk5NVhmOERkclhMWGVxaTJmKzhwdlhBclQ3STU4WmU2UkxOZ2lYZHlSRHhnMXVzN0xOcG56VTUzMFU5bmJyQTJBVnRvT2xFMjMvdlNOV2hZalRNODNKb2RGZnhtZVV2R3c0WlZLS1h0eFI3NWtjWS9SRTJqR091dG1hOVJzem85NGU4VmtTU2xWU3U2c3UxZTBBZEJhaU9jWVVNdGlkRmxqcW91dElVanpPL0tKU0UwcFczR05PL0lCbytaUC84TmRmMnQ3THJhMlpRTnZiMmMyNFlpSWs1amRxVGx3OUk4NFM4WFpoSE5sR3dBdGFCa3hBOEo4V1l5dU1TMlhXTnJwTmJFc1M2S2JwWDFidk16OCt2UisxcEdMdWJJaVhtWStzbElRaVc2VzlybjJDMmhxNXQ2Ry82RHQyZ1F0VzliTStUbXE3TFBUKzRtVVpjV1c4eW9yNGpWdEE2QWxQU05tTVBwVXk3cC8rRSsxeDd6NXczK3ZQYWFJU0FCL3JMRmdEazNHeHdPNWlQZjBUUC9aK25BdG5GTmhqZW41QlRhOUk1K0lrKzdoam54OThBdi81MThIRWZhbm50Ti9vdXRKQUhlUCtmRDRCOXBqZm1UaWZlMHgvK2IwYWUweFJlU3A4U2ZhWTM2MnR4L1hkTzNYWWJFa1l2dHpmaFlxTzczTVVVS3BSTXBLdVNvYmFkNG1SSDcva2Y2RmFTY205WDg0UmVROGdQRmlmQ0tRb1cwc21CRlRCZkFiRUN1TVZhT3VFVE1JekRIQTZCb2JWMTFzZys0MU1KeTB6SmR0UHVmSFhkK1JpSWlUemN1dTIycGVFSUNyNkJveHI3cnlzbmIvZGEvT1pJNEJSdGRZS0k5OWdkR2taN0hZNW5OK1ZwUDNJOWFLaUN6bmxZalV0UUhRQ1Qwalp2bktTOGROeldlOGkxVXF2Y3o4a213clpiZG8wd0sxTEViWHhBUUxXZ0poTWFZcEhadk4rV21jNWxQYkJrQW4vdlN6ditvL21NMzkrOVl0RCtPL2R0VkxUVmRrRjNIWFZ3b0ZpVmdyeTNtVmpUUnYwd3ExTEViWGVJaG4vd0FqaDNRRVF1d24vdnV2K0EvRzI4MU9yYllVa1QvK3VTL1d2OWpzeWt0M1YvSktPZUpsNXBjeTN2YjFyODZrbHNYb3VoSE1wUUFBdXFEcnZDeUFJR2dhTVZ0ZGVXa3ZKR2YzMnJScGltdS9NTG9teHM2NzJBYmRhMkE0NmJsWEFvQmdhQmt4bTE5NUdabnhkMHFwS05OMkYxZG5jbDRXbzJ0aW5KRVFDQXNLVXlETTlJeVl6YS9PVEcvUHpGdFdUUHdsb0s5L2RTYTFMRWJYRGI3VUJFSmo3SXgxUllEdzBqVmlObDJSdmVIeXpPdGVuVWt0aTlGMWd3a0RRR2pvV1pNTFFERENQR0pTeTJKMDNSdy9IWFFYQUpTTmtZNUFpSVY1eE9UYUw0eXVHMlBuWFd5WDR6UzVRNG0veTdJc3kwcTVWN1FCVU1NNlYxMXNnKzQxTUNwMGpaaEJvSmJGNkxvNWR0YkYxaGlsZkljU3RWWmNxbGFxWG1sNld5bWxsTXB2emtTYXR3RlF5enJ0WmdQUUgzcEd6R0JReTJKMC9jN3p2K1Z2TjhaT1cyL1Zsci96L0c4MUJQSDJkbVlUam9nNGlkbWR2WEtoYWp0TytXWW1SN0pnTjI4RG9OYlltZXBpdXh5bmcrOUpLcy81b2dUb1dOdUJzdW5Xbjc0eFh4YWo2NWNlL2FMLzROWjRweTFGNUxmbnZsTC9Zb3M3bExoSHN1Q0llTmUvaXdrd2Fpd3Q2eGcwdTVPNy96MkpMU0p1SmhNUjhmYUt5WkxhdDczTS9McWJ6am9hM2hZWWVyZENQRitXV2hhajY2YWVCUzJ2dmtOSnVaUnQyUWFBaUlpOHNidnFQL2pKK0hycmxuK1F1N0psMDd1OTIwNjVYSzBlWFBvSldTck9KdElDb0JPYVJzeEFVTXRpZEdtNUt0TmVTQjZ1dStJNDd1NWhjclZ1V2VkcUtkdWlEUURmVHpsZjhoKzBuZnJXc21YNzcwbkVUdThuVXBZVks2L0xEcUFEdzc2T3dmSEQ5TWFCaGpoQWY5MnlUcnZZR3FQWTZUV0pXWloxZjJZN2JZdVhtZmNYTHFqTWxXM1NwazlJVEJoRjB6b0doOFdTaVBqZmdkUzd5RWd2YzVSUUtpK3hTckwyRTRrSk0ra1pNWVBSZXkxN3NQSHlxMjlyNkFuUWJ6ZkhUcnZZTHNkeHNrb3A1VS9OczlQN2xlbDNUcnFtYnExdDB4Y2tKZ3hqbmFrdXRvWWdMZTdrZmxIS3V1czdFaEZ4c25uWjdYY3hTMkxDVkxwR3pDRDBPc2ZnWUtNUWZlV2xkM2JxZHM3TnpWVWZuNXljOVBnV3dGVjYvSFE5TmJ3citwQ1k2TDhlUDFSNnJ2MXFmcmQzcVoyOUxzNXE4bjdFV2hHUjVYeC9GNmdsTVRGQVF6eGk5bGJMSG13VW9uZnZ5c092MXU5KzlPaVIvMkJ1Ym01eWNyS250d0N1MXVPbjY5YjRFMTA5Q1JjU0U0UFE0NGRxN0ZUUHN1cE43L1l1NHFRdkx2TnF1UGQ3djVDWUdLaVFqSmhlWmo2eVVvaHVsdXErcUhSVFZteExaRG12L0dQUCtxZnQ5RkxMSGovODZ1dXZ2LzM2NnlJaUVwZDd1YnQzZW9nRzlGdmZwdkwwRjRrSk0yazVMeHRlSkNiTXBtZkViTFpxbm9pNGtsQTFsMkkyUEcycmwxcDJhcldzOTdjQUFBeHFTVVJCVkRHVFd4U1I0NGZwbmRzWjBoS211V1VONVhsWkVoTkdzalNkbHcwckVoTm0rL3lQL1MvL1FmWWIvNngxeTlTbi92ZFZMelZkTlUvRTNZM0ZZaGVuYWh1ZXRzZWFYQmhkdDhhR3NwWUZqR1NkaFhmMVNnQmZLVVg5QjdmYXJScFFiU2tpdnhncDFML1liTlU4TDdLcVZOWk5XZk9aMG43YWJuamFRZDkwMUxKVGk1bTdHc0lBZlJibW1ld2FrSmd3eXJDZmw2MGdNV0VtVFNObXN6c0gyYll0SWs2MmRKVGE4eVRkK0xSOVVNN0xZblFONlJ3RHdFeG5vMUhMQW1iU01tSzJ2SE9RdDdjajArbXJuclpDTFl2UjlSUnpESURRc0tobGdSRFRNMkkyV3pWdjlXZytzbElRaVc2VzlwM0tRZ2ZWcDUyZ2xzWG80cndzRUNLbnpKY0Z3a3ZYaU5sazFUeW5icEc4THRiTW81YkY2S0tXQlVMa2RLam5yd09HQy9PSTJmczliQUZUUFdXZGRiRmRqdU5sNWkzTG1zOTRyZmE3S2N1eUxHc1E5MzhIakhCMjNzMEdvQzkwalpoQm9KYkY2THBsblhheE5VWXByL3lzMW9wTHRkV3NsNWxma20ybGxMK2lpQ3NKcFpUcTdCWW13Q2c2UGUxbXU2VEpzYVcvcS81bzhxcERVQUJONlJreGcwRXRpOUUxZS92WTM1NnlWT3V0Mm5MMjluRkRFRzl2WnpiaGlJaVRtTjNacTQ2TDd2cEtvYkFTcVF5ZDdtNHN4ckFKdEhKNjFzM1dvTm14cFZlYTNsWktLYVh5bS83YWxnMkhtZ0RhYWp0UU50MzYwemZteTJKMHZYdjhjZi9CVTFhbkxVWGsyYWx2MTcvWWJPVm5kMWZ5U2puaVplYVhNcDZ6Y08yVm40RlI0LzdsSy82RG4vM0JmOU82NWYvNDduKzZxbVhUdXdyWlR2bnJFUGRJRmh3cEgycEt4RnJwOUc3dkFQcFdtSGFCV2hhajY1YWw1WHVKWmlzL1Y5Z0x5ZG05eXd0QjYzaGJZTGo4N0VmK2xZNld6WTR0eTZxbGJQMmhKZ2tKZEVEVGlCbUk4UFlNQ05vdEdlOWlhd2hpTHlRUGQxMFJjWGNQa3d1VlFURXk0KytVVWxHbXF5T2x0N2RUOHd4QURmWGt0SXZ0VXBqRFlrbEUvR1BMZXU2UkxOU2xuNzJRbkEzc2Z3Y1lNbHBHeklCUXkySjAzYlRHdTlnYW85anBOWWxabG5WL1pqdHRpNWVaVDdraWRucDc1cjVsV2RadUl1dFVyenhaa20yKzBBU2FVMmVuWFd3TlFab2ZXNHBJYlNuYi9GQVRRQ3Q2UnN4Z01NY0FvK3VwajcrdEpVNlRsWi9yVjN2dVl1Vm5ZTlQ4N3ZmL3M0WW96ZTRxbEhYa1lvS0IrSWVhODVZVmsrVjhOWE1CdEtacnhBeENuMnJac2IvWGZ3SjQ3RTgrcEQybWlBUnhXOU4rcmJDbXgwUUFKK3RWUU1kbW53MG03R2lZL09qZkJSSDI5N3hQYVk5NStyMEEvcVVLNERJRzY2emRWWVRYcHlZQ3VkN0NHdGNmZHYwbnRJZnNSdE5qU3hFbjNkdU5oZnBwN0ZUL0IybjhUNS9SSGxORWJnU3c1cElWMEtyQndZUU5ZblJUQVgxbHZoaE0yQkJnamdFQUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREJWYjdYczhjTjBQQjZQeDlNUGp6WDFCMERQU0V3Z2hFaE1JQmc5bnBkOS9ndTVYQzUzNzdrMzNpUTFnZEFnTVlFUUlqR0JRRXowOU5OVFUxTWljdno0OXVjV3AycDJ6ODNOVlIrZm5KejA5QmJBMWZoME5VZGlZaEQ0VUxWQlltS2dodmpUMVZzdEszS3dFWC93dXNpTHR4ZnYzS251ZlBUb2tmOWdibTV1Y25LeXg3Y0Fyc0tuNnlva0p2cVBEMVZiSkNZR2FJZy9YYjFlKzNYbmJpNlhlK1dsZHdvSFdyb0RRQWNTRXdnaEVoTUlncFoxREtadXYzRDdXUjJCQU9oRFlnSWhSR0lDbXZVMHg2RDhkWW5JaS9keWQvWDBCMEN2U0V3Z2hFaE1JQ0E5MWJKMzd1YklTQ0JzU0V3Z2hFaE1JQ0RjS3dFQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmhxb2o5djg4bGZmbE43ekxHbm45WWVVMFRHUHZTTTlwanF5YW4ybUNKaTNib1pSRml4TFAweGI5N1FIMU5FN2djU2RVUTg4ek4vRmtUWXlNYytwajJtOWNNL3BEMm12UGM5N1NIVkQzMVVmOHl4UU00NG5EOFR3TDhlUy9wRGpxWlBycnlsUGViWUQveUE5cGdpTXZhTS9yRHE5RXg3VEJHeGJnUlQ4QVF4WXQ0SVpzVDh0VUNpaGdIblpRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0ttb1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0ttb1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0ttb1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0tsNnJHVVBOdUx4ZUR5ZWZuaXNwenNBTkNBeGdSQWlNWUZBOUZUTEhqOThITTNsY3JsN3o3MjZjNkNyUndCNlEySUNJVVJpQWdHWjZPV0hweFlYcDBSRTdrUmYvT3JqWTdrelZkNC9OemRYYlhOeWN0TExXd0F0OE9scWlzVEVRUENoYW8zRXhHQU44YWVycDFyMnd1MFhucCs2ZVBibzBTUC93ZHpjM09Ua3BKNjNBQzdoMDlVR2lZays0a1BWS1JJVGd6REVueTRkMTM0ZGJCUnVMMDYxYndlZ2owaE1JSVJJVEVDM25tdlpnNDE0SVhyM2pvNitBTkNGeEFSQ2lNUUVBdERqdFYvcCtJUFg1ZlVIOFhoOGc2bnNRRGlRbUVBSWtaaEFRSHE4OWl1VFc5VFZFd0I2a0poQUNKR1lRRUM0VndJQUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBRERWUkgvZTVtdm5yM1hZOHVUa1pISnlVbnNIZ2doTFY4MEtpd2FkWjZXWTg3RWM1WmdCaFNVZis0OFJjN0JoRGVwcWNHSE53bmxaQUFBQW1JcGFGZ0FBQUthaWxnVUFBSUNwQXA4dk96YzNGL1JiQUxndUVoTUlJUklUNklZS21VOS8rdE9taEtXclpvVkZMMHo1V0k1eXpJRENrbzloeGdkcHhMc2FYRml6TU1jQUFBQUFwcktVVW9QdUF3QUFBTkFOenNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV3MXdGcjJZQ01lajhmajZZZkg5VHMyRGtSRWpoK21xNCs3QzF6K1dUOVE1VjJ1RzdheGZYMjByb05mYXFtaHo2MS9uNzM5SG80ZnBpdHROZjBHR3J1bjlhK0dYZ1NUbUdIUHlwRlBTZkl4N0JneFJ6ZzlMM1dQREcwMHFBVVUzbjN0dGJlVVV1cXRMMy9teTI4cHBaUjY2NjIzR3B0OC9zdHZYZnJCdHVyaVZHSzg5ZVhQdi9adWQyRnIyamRFNnlsNFhjdmUrOXptOTlsVFY5LzY4bWMrVTQ2cTd6ZlE4T2ZXL1ZkRGx3SktUQk95Y3FSVGtud01PVWJNVVU3UHh1NlJvWmNNN0x6czFPTGlIUkdSTzlFWDMzbDhMQ0lIaFFjUGFnNlJ1bFlYNS9qTk41NkwzaEdSTzlIbjNuaXoxOWdOMGZRRjE5RG4xci9QWHJwNnNGR0l2dkxTSjVyRjZTRnN3NTg3d0w4YXJpV1l4RFF1SzBjdEpjbkhzR1BFMU50bm85S3pzWHRrNkdVaG1DOTcrNFhucDBTT24wM21jcm5QUFg2NXgrUnNqUFBjN1dkRlJPVFoyOC8xM3RYR2FKcUM2KzF6ODk5bnR6RVBOZ3JSdTNjdW5tdjZEVFIwTDlpL0dycWlNVEdOeThwUlMwbnkwU0NNbUtPV25rS0d0amZvV3ZaZ28zQjdjVXBFcHFhbVJPVE8zVmRlZU56VGNVVmpuSGNldnlzaUl1OCtmcWZuemw2S3BpbTR4ajVmK2Z2c0x1Ynh3NisrL3ZxRGVQemxWOTkrL1VGODQwRGJiNkNoZThIKzFYQjllaFBUdUt3Y3RaUWtIMDNCaUNtamw1Nlh1MGVHWGpMUVd2WmdJMTUvQ0NOeS9PWWJjbnVxOTlEbE9GUFB2L0JPNFVCRURncnZ2UEI4cjNFYm91a05ycUhQVi84K3U0MDV0WmpKNVhLNTNDc3ZmZUxGZTdtN2QzVC9CaHIrM0lIODFYQnRRU1dtY1ZrNWFpbEpQb1liSTZiZVBodVdua0tHdGpLb2licnZ2dmI1ejFSOCthM3EwK3JNWlgvNmRPMk9hNFZ0akZOOWZ0MndEZTJiUnVzaWVHMUxMWDN1OFBmWjVlK2haaDY1bHQ5QVEvZTAvOVhRdFNBUzA0aXNIT1dVSkIvRGp4RnpaTk5Ua2FFZDRCNjJBQUFBTU5XZzU4c0NBQUFBM2FLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlscDI4THhNS3VNTnVoTUFLa2hKSUxSSVQxeEdMVHQ0cGVMaG9Mc0E0QUlwQ1lRVzZZbkxxR1g3ekUxWktkZE5XWlpseldjOEVYRlRzYTNDU3NSS3VlVlhNNWw1L3pXL1ZibVpORDRGb0FNcENZUVc2WW5PREhxQjI1RlMyb3lLaU1oeVhxbjhza1EzUzZwVXltOUdvNXVsaTFmOUp5cS83RDhvdDJ0NENrQURVaElJTGRJVG5ab1lRUGs4dXV6MGZyNW83U2F5am9nM0V4VVJzZTFJNDZ0cFcwUzhvOFBDU3NSYUVSR1I1WkluZFU5RjdBRjBIeGcycENRUVdxUW5Pc1VjZy9CYXpsZU9PTExPNWFjQStveVVCRUtMOUJ4bDFMSWhaVS9QYnUyNklpTGlwbEp1dzlOQjlnd1lTYVFrRUZxazU2Z0xkZ29ENnVXWFJVUmtPVjg3MDhmZnVaeXZ2RnFaM1ZOK1dqbThiSGdLb0hla0pCQmFwQ2M2WkNtbGRKYkdBQUFBUUw4d3h3QUFBQUNtb3BZRkFBQ0FxYWhsQVFBQVlDcHFXUUFBQUppS1doWUFBQUNtb3BZRkFBQ0FxYWhsQVFBQVlLci9EN1hRR013LzhhdndBQUFBQUVsRlRrU3VRbUNDXCIgLz5cblxuPCEtLSBybmItcGxvdC1lbmQgLS0+XG4ifQ== -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA5kAAAEzCAIAAAA0LFDQAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO3db2wj6X3Y8d9I2t27nP8hUdo4um3P9VAOBAUpYAGLo3Bp7kWaDBUThKMSqIGc0gYVcW9MLQK5KFZJm3i3QCzAEvPmQhUBrHvhNrpFKxAVp40bXJqDeKd0XySBQMfiIHfxnuw0VtwEyTl3XklPXwxJkRRFUuQz5Dzk94MBjhw++vE5ib99fjN85hlLKSUAAACAgcYG3QEAAACgS9SyAAAAMBW1LAAAAExFLQsAAABTTQQafW5uLtD4QNWjR48G3QVjkJgIGvnYBRITfTNkGRpsLSvX/32dnJxMTk5q70YQYelqeMIyBlxXGBKTmHpjBhSWfOynMCRmQGHpanjCDl+GMscAAAAApqKWBQAAgKkCn2PgO3r8o503/u7jjprZNz7UecwfFDn/i45a/tX5e52H/c63OmpmdR5RREROOgv75Dr3ufj2cactr3XzjG91HPZaOgz7o1Od/abQzP6f/5Nrtf9GZ5nx/K1O/1XpPCv/3/n3OoxpifxVZx+Kp6zxDmM+LfLetztq+T112mFM6fhfj+vezOYvOwx7nX89/m9n+fgPyUdNjo+vMWIed/bX+fi4MSPmdQURtvOY5wGk0nWz/i86C/sjw5uhnJcFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiq11r2YCMej8fjGwdaehOQsY+X/G3QHQH6JPyJSVZiBIU/MYXchIF6q2UPNgrRXC6XuycPQpubtQlJcmIkhD4xyUqMotAnppCbMNNELz98/FhuPy8icif5UuHNY7kz5e+fm5urtjk5OenlLYAW+HQ1RWJiIPhQtUZiYrCG+NPVUy0r8s4bbx4vLk417H306JH/YG5ubnJyUkS++7i39wGa8T9duKSjxPzGe33vF4Ya+dhOpyPm8XG/e4ZRMMQZ2lMtO7X4uefiL8dfFZFPvPTKoqYuaXb+7Uj1i5Lzb0cG2xmgD8KfmGQlRlD4E1PITZipx/Oyd+7mcnflYGNDLh1qhggJiRFjQGKSlRg9BiSmkJswUG/zZR+mX371bZEX7+Xu6uoQgB6RmEAIkZhAQHqcY5DJhfR7EmB0kZhACJGYQEC4VwIAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMNdGft/nO+dPaY6onf6c9poiciaU95i3rXHtMETlV+rsqIlYAUW+I0h8Uvfnr82eCCPv1J9/VHvOpADLoo2P6P5NBfMpvBnPG4cYYJzLC61tnN7XH/O7597THFBEJYMQMZGATCWQYFhkPIOZEMCPmjwQRNBz45wwAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYKoea9njh+l4PB6Ppx8e6+kPgN6RmEAIkZhAIHqrZY/ffPzCK7lc7pUX3tg50NQjAD0iMYEQIjGBYEz0+PPvPH5XZOrdx89FFy92zs3NVR+fnJz0+BbAVfh0XYXERP/xoWqLxMQADfGnq7dadmoxE92Ixx+8eC93t2b3o0eP/Adzc3OTk5Mi8o33enofoCn/04VGHSbm3w6kcxha5GMbHY+Yb39zEN3DsBviDO15vuzjaC53Tx5s8IUJEBokJhBCJCYQiN5q2YOdN+RZkTt370mB1ARCgsQEQojEBILR2xyDO8kXvvpy/FURefFeTk+HAPSKxARCiMQEgtHjtV9Ti5ncYvtmAPqJxARCiMQEAsG9EgAAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGCqif68zR9+75PaY35s/D3tMc1iWSqIsE9Zp9pjnoulPaaIfCKIoCNjavyvgwj78XH9f+uzQI669fdzXHtEkZtWEFHlVJ0HERZa/Ne//rT2mB+eeF97TBEZF/0fpEBGC5EJ6yyIsDfNGTE/FUTQcOC8LAAAAExFLQsAAABTUcsCAADAVNSyGE1eZt6qNZ/x6van3Ms/46YumvqP5zOem8l4lVdqNPt5AM1dlY/97EDf3xMwRqcjY82u2qaBD5HUshhNdnq/tBmV5bxSSqn8cmElknL9/aq0GZWt+40Dm5e5vyXRzZLaT9tuKna4WVJqW5ZiOyLiZFVpMxrdLClfaXNmEP9TgKGuysc+cVORlUL/3g4wTWcjY2WfuyvLy1u7Fykc+BBJLQuIOKubUTk8quZocnNTVtbrxlJvT5Kb0Yvns9O2iJ3ezyebxLPTaSewzgJDrjEfg3/DbKk2uQE008HIKCLi7koim6grZhtoHyKpZQHxMksrhWhyoXpUKdPptfpEdNeL0wvVZ05ieSvmf0nipC8ORivRMkwwALpWn4/lLzdTGdf1i9vy15WpTCaV8fwnKbe82/+as/qFpn9u101ZqUxm3n+18fvQ8nPOywLttRkZfd7RTMIR58piNoghkloWI20rZlmWFdlJ1n1BIiLirG4eVr9N8TK7M6u1h5FOVuWXt2L1U4QKKxF/VCz2o+vA0GmSj+76TrKklEoU7x+JiJeZvz9TUkqpRHHlsJyJIlJzbtXL3D/cLClV2oweHnleZj62JVs7sq3UfrqU8n86P7uylPHEy8zHJK+U4rQs0JHWI6OIiLcn045Ik2I2wCGSWhYjbTmvVH7ZnzDQwE6vzZa/TfH2JNF49lWcrFKlTVmJVMvZ8mQgJssC3WmSj5EZWYlY85lIdj9ti7e3I+UTtpGZK8pPO72/n5bMfGSlUCiW7PR+flmW19K2iHhHh/5wGtuSQrHk7e3I5qojIvZCkmIW6EC7kdHb21mJWZafZfXFbIBDJLUsRp6TzUus2YUmTmJ5637GE3e9OF1/6Omm/PZ2ej+/XCiW6l5ksizQvYZ8tNP7SpWSO5HOr3x2U5a1JNvNz7WWLy9TSmVJU6ALV4+MIuLtyVolxVSp5hzuhSCGSGpZ4Mpq1lndlJWl+SbfolSv5vSODptF9DIpFvgBulKXj24m44md3lf55cMjz56eLezsXZFapWKhsBJJpXa3lvP7l04XiYjY07OVE0VuKuXa07OFiytZ+rx2AmCqFiNjZYKBz15ISvN81T1ETmiMBZjDy8xHVgoiMUvyKus42fyuZVki0Wi0UCiIrOxslvbTdnpteWU3sW9X20vE2tksrc1srsmSZRVEZDmvHDdlxbZEJGKtlONHN0vpwf3fAWa5Kh+X8/mZnSVrpZxptkg2v2tV8iy6KSLiJJZjMWtLJBqNRje3s+mSWDFrS6LRqBRiKVne2hLZmp8p7aftamBZzqusiJNftmLWlt+J5TynaoGmKhnaamRcXpatrYLIjpT8Y0kvs7RSKEjE2imPq8ENkZZSSmO4BnNzc48ePRKRja//c+3BPzb+nvaYZrGsQP52T1mn2mOei6U9poh8zj7wH1Q/aeiE/+v6o2/eDiL4P5rQ/7E8E/0xrQA+k0F8yp+2AjnjcKrOtcf8yI9+03/Ql3z0MvNLst38/Kuhqr+3f/cnP689+Icn3tceU0TGRf8HKZDRQmTCOgsi7E1zRszP/9jv+Q+Gb8RkjgEAAABMxRwDAIBhynfqiqSmuYYLGHkazsseP0zH4/H0w+PeQwHQhcTEEHOypi5GQGIC2vV6Xvb4YfpL8oVcbkpLbwBoQWICIURiAkHo8bzswc6rb7/96svx+MZBzd65ChE5OTk5OTnp7V2A5k4qBt2RsOkoMQfVOQwr8rEdRkwMUkgy1L8tde09Myt3qr648XT1VtUdLpPX23nZg4Lcy+XuyPHD9JceHt9ZLB9rVq+Pm5ubm5ycFBH5Tk/vAzRV/nR166fH/kUXP/W189d6edN+6Cwx3/3m4HqIYdRjPp7/xXQXPzX2I0cNe/xVgqKbpZo1DiorB9XsbdYsYJ2PmN/qU48wUkIxYnqZpeKaUo6bms945eTzStPbStki4mYyERERVxJKZTt/Fz3rGEw9/8JzWgIBfWRNTHSxDbrX10BiwiBP1GkXW2OU8kip1opLF+d9vL1isqSUKiV3yjffzMwvybZSaiBrepGYMNHXzl/zt7ajZLXl5VM/3t7ObMIREScxW72Ngu04fh66R7Jgi4i7G4vVn7lto7da9tnb7xQORETefSy3mQAEw1jjE11sg+51B0hMGOjWx//M3z5Qp6232pYNQZqOlCJyWCyJSKnov+iurxQKK9e4La4eJCZM9jNP/4K/tR0lqy1/5ulfuBRmdiYiIiKRmdnGlyqlrBdZVUqtFSMdl7O91bJTi1+4/dV4PB4vRO/e6SkS0H/WjYkutkH3ugMkJgz0nW9N+dsHctZ6q215KUyzkdJO7yd2LcvaTWQdEXF3JX/13eKDQ2LCZJpGTP+4UqRUbLwBfKWUFdu2RcTJlpLFq+5Y3aDXgXlqMZNb7DEGMCBGTRi4FhITxvlAz63IDoslEdsfKRcqO73MUUKpRMpKuTXLeNkLydk9He/ZMRITBtMxYtoLycN1VxzH3T1MrtbN8HGPZKFujT1vb0emO7vTLff9wuga+vmygEHeV1YXW0MQeyF5uOuKiLt7mFyojJTu+o5ERJxsXnZdkciM30ZKRZkeonvgAkHSM2La6TWJWZZ1f2Y7bYuXma9M9Kmela2uarAk250uIM3AjBE2MT7oHgAo++BSYdoNO70mlmVJdLO0b4uXmV+f3s86q8n7EWtFRJbzSkTS2zPzlhWT5fx1LpUGRpumEdPJXixRYKf3Kw+ddPpip+rsdOxF17T0DDASJ1mB0Hhf6cnHZiNl4+DYxWAJjLoQj5jh7RkQuHHm2ABh8YHiexIgxEI8YlLLYoSF+CgTGDUfqBuD7gKAq4V4xAxvz4DAhfgoExg1uuYYAAhEiEdM/u3A6FJc+wWExgfnNwfdBQBXCvOISS2LERbio0xg1LzPHAMgzEI8Yoa3Z0DQ1MRYF9vlOP5iePU326sskFfd66Ysy+r3PTMBc7yvJrrYBt1rYFToGjGDQC2L0aXGx7vYGqN4maXimlJqrbh0Uc16e8VkSSlVSu6suyIiriSUUkp1uvIzMGo+OL/RxTboXgOjQs+IGQwOajG6fvcPf9V/8NPR+61bfq2wdtVL3t7ObGJfRJzE7P09L50u30bIv5NmqTibSIuIuxuLxaKbpf00dxkCmmIdAyDM+naStQvUshhdP/3Cg/Kj8TY3HLpoKfK1N+7Vvzg7ExERkcjM7FFln53eT6QsK1a+r5AXWVUq66as+QzlLNDUB0wYAMKs3UA5QOGtsoGgnU+MdbFdCnNYLImISKl4eLHTyxwllMpLLOWKiG3bIuJkS8ninncpAAB9cww6mr/u72P6OtAxTSNmIPp0HHz09/9Ae8wPjX9fe0wRUaL/yOOW9UR7TBH5qyfPBBH2/TP93/Sdq0A+0J/r7Qyn0nGUaS8kD9ddcRx39zC5WumQu74jq2mxs/ndlCtOeZKst7cj06G5c2ZAp8H+9vx97TG/G8C0yI+M6c/KP3vyMe0x/+78Ke0xRUQFEPOzvf34B+c6PpDl+euOm5rPeJUvQfz56/u2l5lfd9NZR0TcVGSlsJzX8I4B+Pb7H9Ue82Tsw9pjisi4daY95s0AYorI35w+HURYPZ/bemfngYyYn+/tx7WMmCLiZeYjK4W6OXf+LhERWc6rrNOsTUucl8XoUuNWF1tjFDu9JjHLsu7PbKftyrkeZzW5E7Esy4pJwqmeFFqSba79Apr74o//N3/74Hyi9VbbsiGIt7czm3BExEnM7tR8CeJ/e1Iq+i+Km9pNlDaj/fufA4ynZ8RsdrW0V5reVkoppfKbM5ErrqhuiflJGF1qTM9RppNVKlt+bKf3s+X/qoszsHVPADSR/qN/WXnYZmBq2bKD+etuajeRzUqmzSWfAGq8/j//rf/gp5wvtW75++4Xrnqp6dXSduW7S/dIFhzxMs2vqG6BWhaj6/xGeGeyA6Pm+2daxiN/BRF//vpCZac/fz2RslKuWj26v7VV2NoSERFL8iyUB3TiJ+Pr5Ufths6LliJ/kFutf7HZ0WaZX8qK16pNc8wxwOhSY91sAILwfTXexdYQxF5IHu66IuLuHiYXauevR0ScbF52XTu9r5RSqrQZXaaQBTqlacRserW0iPilrN2mzRUYmTG69Mz+AaDDB2cTXWyNUTqYvw6gC1pGzOZHmyJSU8q2aHMV5hhgdJ1TmAKh8UTT9eDt56/XvwagE3pGTDu9JpZlSXSztG+Ll5lfn973lxbxJxhcbtMJalmMLpZmB8Lj++d9ut0lgC7oGjGbHW2KiJNON2/TidZzDNxUw4LTwBBRY1YX26B7LSQmhtKT87EutkH3uhaJiWEW5hGz9T8ETlZty5JlWZbF/VEwdM4nutlCgMTEEPr++UQX26B7XYvExDAL84jZ9qC2cslnYvfSHQABs5m8jgGJiWHz5Gysi23QvW5AYmJohXnE7Oh9vMy8FduKbpZU+aCT/MQwOB+3utgG3esLJCaGyZPz8S62Qfe6CRITQynMI2bb+bLlO28qpfbTduWgc1vWyU0YT413s4UAiYkhdHo23sU26F7XIjExzMI8YrY7L7ucr+RkrVJxq7yQLWAuXZnpZeYvnXvx913sbdamByQmhs7p+VgX26B7XY/ExPAyuZbd2m02g93JcrMUmO98vJutkZdZKq4ppdaKSxeVqrdXTJaUUqXkzrp7RZtekJgYOsMwX5bExPDSM2IGo806BonluudeJsPFmRgaf/ybd/1NxqT1Vm35x795tyGIt7czm3BExEnM7uxdFKr+PfhKxdmEc2WbbpGYGELn52NdbIPudS0SE0Ot3UDZfOtX11pwd7e2YtaFyEqxT/0Cgvfjv7zhb22PLKstf/yXNy6FmZ2JiIhIZGa2us9O7yd2LcvaTfjnY5q16R6JiSH05HS8i+1ynA7m/JQntuq+JovExDAz+bzs5mZJXShtzjQ2OdiIx+Px+MZBYF0EAqJphZHD8lS4UvHwYqeXOUoolZeYv85k0zZdIzExhM6V1cXWGKWDOT9+ciqVn11Z13relMTEMAvzmlyt17GtuT2u+P9GTO/XtziQaC7X+K0rYAQt09LtheThuiuO4+4eJlcr13y46zuymhY7m99NuZJt2qZ7JCaG0NHP/4r/wN6537qll1y7qqW3tzOb2BcRJzF7f89LVy7DOiyWROxScTaRFtvx9zqJ5ftHnji9Z2QZiYlhFo5lfJq7qpb1MvORlYKIyMpKze7oZn3iHxQePHjwiZdeySxO1bSam5urPj45OdHXW6BOj58uPYeMdnpNLMuS6GZp3xYvM78+vZ91VpP3I9aKiCznlYjUtekBiYnw6vFD9cn/8h8rD9tkZsuWNfN5jir77PR+ImVZseV8/T3eZ5ILegpZEhMGCMWIWcmW6GapYcWPuv1uyoptiSznO7tu8qqu+avi5eu/MLm01sjxs8lcLve5xy+nHx7X7H5UISKTk5OTk5PX+x8FOjNZ0d2Pq4lutsuc7EVy2On9rCMXt/+p5GFtmx7oTMzeegI06jEfz0+tLrZLYTqZ8yMiIm5qd7rXhKxgxIQBQjFiXrGqj5eZr1mYWVxJ1A6gbbWZL5turJrrr8qcmpoSkTt3X3nh8ZvHApglzLN/WiIxMYTUudXF1hDEXkge7roi4u4eXpx0ddd3JCLiZPNSXjTLTVUvzNSHxMQw+/qv3/W3tqNkteXXf73DlX/c9ZVCYSViWf7Rprsbi13r2sw2I3P5as82V2Uev/mG3J5q9goQYmFe+bk1EhND6NzqZmtgp9ckZlnW/ZnttC1eZj7lijiryZ2IZVlWTBJO+R6zshWzKiOnLiQmhtinvrjhb21HyWrLT32xs5V/3F3J+5dLHt7PeOJFVpVSa8VIx+Vsm2u/diWv1JWHrscP0y+/+rbIJ156JXOns/cDwiMcJ1m7QGJiCKkzPbdud7KqOivWTu9ny/9V6WqLuicakZgYZppGTP86TH8W0ELDa/ZCcnZPxLZtEXGypaPUniedzARqM8dgdeao9qi14RuTqcVMLpfL5ernsQOGMPa8LImJIWSdWV1sg+51LRITw0zLiNl8FlBkxt8ppaJMV0tXb2+n5llLbcrsUnGFlZ8xrIydL0tiYhhpmWMwUCQmhpieEbPpLCA7vT1z36rcXqhya5Ml2e50Tnu7OQaHmyWl60pPIFzUhBp0F7pDYmIIhewkaxdITAwzXSNms1lAddOA7OvPAmozxyC7Nl2qec7dpTFMjD0vS2JiGJ13tYUIiYlhFuYRs/X7uKlYjG9MMKzUuOpiG3SvhcTEUDJ/viyJiWEW5hGzzXnZ9neXBsxldbUNHomJIWSdd7OFCYmJoRbiEbPN+d+GpZ/tdFrz2tLA4KgJ1cV2OY4/UX2+4R4mlXMzqera7DXPekRiYvhYp1YX26B7XYfExBDTNWIGIRSz/4DBGFPdbA2a3ZHPK01v+2dm8pv+utDXvSMfMGrMPy8LDDUtI2YwWq9jAAyzd5ZX/Qf/+Le/1Lrln//SF656ydvbmU3si4iTmL2/5/nnZWynXLK6R7LgiH9Hvlh0s7TPNc5Ac9bZoHsA4GrhuFykOc7LYnQ995Xf8DdrXLXeqi2f+8pvXArT7I58Ze6RLNgiXdyRDxg1us7LNpnzU530U9nbrA2AVtoOlE23/vSNWhYjTM83JodFfxmeUvGw4ZVKKXtxR75kcY/RE2jGOutma9Rszo94e8VkSSlVSu6su1e0AdBaiOcYUMtidFljqoutIUjzO/KJSE0pW3GNO/IBo+ZP/8Ndf2t7Lra2ZQNvb2c24YiIk5jdqTlw9I84S8XZhHNlGwAtaBkxA8J8WYyuMS2XWNrpNbEsS6KbpX1bvMz8+vR+1pGLubIiXmY+slIQiW6W9rn2C2hq5t6G/6Dt2gQtW9bM+Tmq7LPT+4mUZcWW8yor4jVtA6AlPSNmMPpUy7p/+E+1x7z5w3+vPaaISAB/rLFgDk3GxwO5iPf0TP/Z+nAtnFNhjen5BTa9I5+Ik+7hjnx98Av/518HEfanntN/outJAHeP+fD4B9pjfmTife0x/+b0ae0xReSp8SfaY362tx/XdO3XYbEkYvtzfhYqO73MUUKpRMpKuSobad4mRH7/kf6FaScm9X84ReQ8gPFifCKQoW0smBFTBfAbECuMVaOuETMIzDHA6BobV11sg+41MJy0zJdtPufHXd+RiIiTzcuu22peEICr6Boxr7rysnb/da/OZI4BRtdYKI99gdGkZ7HY5nN+VpP3I9aKiCznlYjUtQHQCT0jZvnKS8dNzWe8i1Uqvcz8kmwrZbdo0wK1LEbXxAQLWgJhMaYpHZvN+Wmc5lPbBkAn/vSzv+o/mM39+9YtD+O/dtVLTVdkF3HXVwoFiVgry3mVjTRv0wq1LEbXeIhn/wAjh3QEQuwn/vuv+A/G281OrbYUkT/+uS/Wv9jsykt3V/JKOeJl5pcy3vb1r86klsXouhHMpQAAuqDrvCyAIGgaMVtdeWkvJGf32rRpimu/MLomxs672Abda2A46blXAoBgaBkxm195GZnxd0qpKNN2F1dncl4Wo2tinJEQCAsKUyDM9IyYza/OTG/PzFtWTPwloK9/dSa1LEbXDb7UBEJj7Ix1RYDw0jViNl2RveHyzOtenUkti9F1gwkDQGjoWZMLQDDCPGJSy2J03Rw/HXQXAJSNkY5AiIV5xOTaL4yuG2PnXWyX4zS5Q4m/y7Isy0q5V7QBUMM6V11sg+41MCp0jZhBoJbF6Lo5dtbF1hilfIcStVZcqlaqXml6WymllMpvzkSatwFQyzrtZgPQH3pGzGBQy2J0/c7zv+VvN8ZOW2/Vlr/z/G81BPH2dmYTjog4idmdvXKhajtO+WYmR7JgN28DoNbYmepiuxyng+9JKs/5ogToWNuBsunWn74xXxaj65ce/aL/4NZ4py1F5LfnvlL/Yos7lLhHsuCIeNe/iwkwaiwt6xg0u5O7/z2JLSJuJhMR8faKyZLat73M/Lqbzjoa3hYYerdCPF+WWhaj66aeBS2vvkNJuZRt2QaAiIi8sbvqP/jJ+Hrrln+Qu7Jl07u92065XK0eXPoJWSrOJtICoBOaRsxAUMtidGm5KtNeSB6uu+I47u5hcrVuWedqKduiDQDfTzlf8h+0nfrWsmX770nETu8nUpYVK6/LDqADw76OwfHD9MaBhjhAf92yTrvYGqPY6TWJWZZ1f2Y7bYuXmfcXLqjMlW3Spk9ITBhF0zoGh8WSiPjfgdS7yEgvc5RQKi+xSrL2E4kJM+kZMYPRey17sPHyq29r6AnQbzfHTrvYLsdxskop5U/Ns9P7lel3Trqmbq1t0xckJgxjnakutoYgLe7kflHKuus7EhFxsnnZ7XcxS2LCVLpGzCD0OsfgYKMQfeWld3bqds7NzVUfn5yc9PgWwFV6/HQ9Nbwr+pCY6L8eP1R6rv1qfrd3qZ29Ls5q8n7EWhGR5Xx/F6glMTFAQzxi9lbLHmwUonfvysOv1u9+9OiR/2Bubm5ycrKntwCu1uOn69b4E109CRcSE4PQ44dq7FTPsupN7/Yu4qQvLvNquPd7v5CYGKiQjJheZj6yUohuluq+qHRTVmxLZDmv/GPP+qft9FLLHj/86uuvv/366yIiEpd7ubt3eogG9FvfpvL0F4kJM2k5LxteJCbMpmfEbLZqnoi4klA1l2I2PG2rl1p2arWs97cAAAxqSURBVDGTWxSR44fpndsZ0hKmuWUN5XlZEhNGsjSdlw0rEhNm+/yP/S//QfYb/6x1y9Sn/vdVLzVdNU/E3Y3FYhenahuetseaXBhdt8aGspYFjGSdhXf1SgBfKUX9B7farRpQbSkivxgp1L/YbNU8L7KqVNZNWfOZ0n7abnjaQd901LJTi5m7GsIAfRbmmewakJgwyrCfl60gMWEmTSNmszsH2bYtIk62dJTa8yTd+LR9UM7LYnQN6RwDwExno1HLAmbSMmK2vHOQt7cj0+mrnrZCLYvR9RRzDIDQsKhlgRDTM2I2WzVv9Wg+slIQiW6W9p3KQgfVp52glsXo4rwsECKnzJcFwkvXiNlk1TynbpG8LtbMo5bF6KKWBULkdKjnrwOGC/OI2fs9bAFTPWWddbFdjuNl5i3Lms94rfa7KcuyLGsQ938HjHB23s0GoC90jZhBoJbF6LplnXaxNUYpr/ys1opLtdWsl5lfkm2llL+iiCsJpZTq7BYmwCg6Pe1mu6TJsaW/q/5o8qpDUABN6Rkxg0Eti9E1e/vY356yVOut2nL29nFDEG9vZzbhiIiTmN3Zq46L7vpKobASqQyd7m4sxrAJtHJ61s3WoNmxpVea3lZKKaXym/7alg2HmgDaajtQNt360zfmy2J0vXv8cf/BU1anLUXk2alv17/YbOVnd1fySjniZeaXMp6zcO2Vn4FR4/7lK/6Dn/3Bf9O65f/47n+6qmXTuwrZTvnrEPdIFhwpH2pKxFrp9G7vAPpWmHaBWhaj65al5XuJZis/V9gLydm9ywtB63hbYLj87Ef+lY6WzY4ty6qlbP2hJgkJdEDTiBmI8PYMCNotGe9iawhiLyQPd10RcXcPkwuVQTEy4++UUlGmqyOlt7dT8wxADfXktIvtUpjDYklE/GPLeu6RLNSln72QnA3sfwcYMlpGzIBQy2J03bTGu9gao9jpNYlZlnV/Zjtti5eZT7kidnp75r5lWdZuIutUrzxZkm2+0ASaU2enXWwNQZofW4pIbSnb/FATQCt6RsxgMMcAo+upj7+tJU6TlZ/rV3vuYuVnYNT87vf/s4Yoze4qlHXkYoKB+Iea85YVk+V8NXMBtKZrxAxCn2rZsb/XfwJ47E8+pD2miARxW9N+rbCmx0QAJ+tVQMdmnw0m7GiY/OjfBRH297xPaY95+r0A/qUK4DIG66zdVYTXpyYCud7CGtcfdv0ntIfsRtNjSxEn3duNhfpp7FT/B2n8T5/RHlNEbgSw5pIV0KrBwYQNYnRTAX1lvhhM2BBgjgEAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADBVb7Xs8cN0PB6Px9MPjzX1B0DPSEwghEhMIBg9npd9/gu5XC5377k33iQ1gdAgMYEQIjGBQEz09NNTU1Micvz49ucWp2p2z83NVR+fnJz09BbA1fh0NUdiYhD4ULVBYmKghvjT1VstK3KwEX/wusiLtxfv3KnufPTokf9gbm5ucnKyx7cArsKn6yokJvqPD1VbJCYGaIg/Xb1e+3Xnbi6Xe+WldwoHWroDQAcSEwghEhMIgpZ1DKZuv3D7WR2BAOhDYgIhRGICmvU0x6D8dYnIi/dyd/X0B0CvSEwghEhMICA91bJ37ubISCBsSEwghEhMICDcKwEAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJhqoj9v88lfflN7zLGnn9YeU0TGPvSM9pjqyan2mCJi3boZRFixLP0xb97QH1NE7gcSdUQ88zN/FkTYyMc+pj2m9cM/pD2mvPc97SHVD31Uf8yxQM44nD8TwL8eS/pDjqZPrrylPebYD/yA9pgiMvaM/rDq9Ex7TBGxbgRT8AQxYt4IZsT8tUCihgHnZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKl6rGUPNuLxeDyefnispzsANCAxgRAiMYFA9FTLHj98HM3lcrl7z726c6CrRwB6Q2ICIURiAgGZ6OWHpxYXp0RE7kRf/OrjY7kzVd4/NzdXbXNyctLLWwAt8OlqisTEQPChao3ExGAN8aerp1r2wu0Xnp+6ePbo0SP/wdzc3OTkpJ63AC7h09UGiYk+4kPVKRITgzDEny4d134dbBRuL061bwegj0hMIIRITEC3nmvZg414IXr3jo6+ANCFxARCiMQEAtDjtV/p+IPX5fUH8Xh8g6nsQDiQmEAIkZhAQHq89iuTW9TVEwB6kJhACJGYQEC4VwIAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADDVRH/e5mvnr3XY8uTkZHJyUnsHgghLV80KiwadZ6WY87Ec5ZgBhSUf+48Rc7BhDepqcGHNwnlZAAAAmIpaFgAAAKailgUAAICpAp8vOzc3F/RbALguEhMIIRIT6IYKmU9/+tOmhKWrZoVFL0z5WI5yzIDCko9hxgdpxLsaXFizMMcAAAAAprKUUoPuAwAAANANzssCAADAVNSyAAAAMBW1LAAAAEw1wFr2YCMej8fj6YfH9Ts2DkREjh+mq4+7C1z+WT9Q5V2uG7axfX20roNfaqmhz61/n739Ho4fpittNf0GGrun9a+GXgSTmGHPypFPSfIx7BgxRzg9L3WPDG00qAUU3n3ttbeUUuqtL3/my28ppZR66623Gpt8/stvXfrBturiVGK89eXPv/Zud2Fr2jdE6yl4Xcve+9zm99lTV9/68mc+U46q7zfQ8OfW/VdDlwJKTBOycqRTknwMOUbMUU7Pxu6RoZcM7Lzs1OLiHRGRO9EX33l8LCIHhQcPag6RulYX5/jNN56L3hGRO9Hn3niz19gN0fQF19Dn1r/PXrp6sFGIvvLSJ5rF6SFsw587wL8ariWYxDQuK0ctJcnHsGPE1Ntno9KzsXtk6GUhmC97+4Xnp0SOn03mcrnPPX65x+RsjPPc7WdFROTZ28/13tXGaJqC6+1z899ntzEPNgrRu3cunmv6DTR0L9i/GrqiMTGNy8pRS0ny0SCMmKOWnkKGtjfoWvZgo3B7cUpEpqamROTO3VdeeNzTcUVjnHcevysiIu8+fqfnzl6Kpim4xj5f+fvsLubxw6++/vqDePzlV99+/UF840Dbb6Che8H+1XB9ehPTuKwctZQkH03BiCmjl56Xu0eGXjLQWvZgI15/CCNy/OYbcnuq99DlOFPPv/BO4UBEDgrvvPB8r3EboukNrqHPV/8+u405tZjJ5XK53CsvfeLFe7m7d3T/Bhr+3IH81XBtQSWmcVk5ailJPoYbI6bePhuWnkKGtjKoibrvvvb5z1R8+a3q0+rMZX/6dO2Oa4VtjFN9ft2wDe2bRusieG1LLX3u8PfZ5e+hZh65lt9AQ/e0/9XQtSAS04isHOWUJB/DjxFzZNNTkaEd4B62AAAAMNWg58sCAAAA3aKWBQAAgKmoZQEAAGAqalkAAACYilp28LxMKuMNuhMAKkhJILRIT1xGLTt4peLhoLsA4AIpCYQW6YnLqGX7zE1ZKddNWZZlzWc8EXFTsa3CSsRKueVXM5l5/zW/VbmZND4FoAMpCYQW6YnODHqB25FS2oyKiMhyXqn8skQ3S6pUym9Go5uli1f9Jyq/7D8ot2t4CkADUhIILdITnZoYQPk8uuz0fr5o7Sayjog3ExURse1I46tpW0S8o8PCSsRaERGR5ZIndU9F7AF0Hxg2pCQQWqQnOsUcg/BazleOOLLO5acA+oyUBEKL9Bxl1LIhZU/Pbu26IiLiplJuw9NB9gwYSaQkEFqk56gLdgoD6uWXRURkOV8708ffuZyvvFqZ3VN+Wjm8bHgKoHekJBBapCc6ZCmldJbGAAAAQL8wxwAAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYKr/D7XQGMw/8avwAAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0ExTURGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU1qVXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 501
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTFNREZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TWpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDUwMVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS4yNSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 501
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlU0IzYVhSb0lIUnZibUZzSUd4dmRXUnVaWE56WEc1Y2JtNXdaWEp0SUR3dElEVmNibHh1Y21WemRXeDBjMDkxZEZSdmJtRnNNU0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRFa1QwOUNYMUpOVTBWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG4jIFRvbmFsaXR5IHdpdGggdG9uYWwgbG91ZG5lc3NcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0VG9uYWwxIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFRvbmFsMSRPT0JfUk1TRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Tonality with tonal loudness
nperm <- 5
resultsOutTonal1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVTQjNhWFJvSUhSdmJtRnNJR3h2ZFdSdVpYTnpYRzVjYm01d1pYSnRJRHd0SURWY2JseHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TQThMU0JqY21aU1pXY29aR0YwWVVsdVBYTjBhVzFFWVhSaFRuVnRMQ0JwVm1GeWN6MXBWbUZ5Y3l3Z1pGWmhjajFrVm1GeUxDQnpaV1ZrY3oxelpXVmtjMXN4T2pKZExDQnVkSEpsWlQxdWRISmxaU3dnYlhSeWVUMXRkSEo1TENCd1pYSnRTVzF3UTI5dVpGUm9jbVZ6UFhCbGNtMUpiWEJEYjI1a1ZHaHlaWE1zSUc1d1pYSnRQVzV3WlhKdExDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYmx4dUl5QndjbWx1ZENCdGIyUmxiQ0J3Y21Wa2FXTjBhVzl1SUhKbGMzVnNkSE5jYm5KbGMzVnNkSE5QZFhSVWIyNWhiREVrVDA5Q1gxSk5VMFZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuIyBUb25hbGl0eSB3aXRoIHRvbmFsIGxvdWRuZXNzXG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dFRvbmFsMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eSB3aXRoIHRvbmFsIGxvdWRuZXNzXG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dFRvbmFsMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbmBgYFxuYGBgIn0= -->
```r
```r
# Tonality with tonal loudness
nperm <- 5
resultsOutTonal1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjgxMTY2MVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TUlBUMEpmVFVGRlhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.6811661
resultsOutTonal1$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGUnZibUZzTVNSUFQwSmZUVUZGWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutTonal1$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTMzMTUxMVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TUlNjM0YxWVhKbFpGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxucmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.5331511
resultsOutTonal1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGUnZibUZzTVNSU2MzRjFZWEpsWkZ4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbnJlc3VsdHNPdXRUb25hbDEkUnNxdWFyZWRcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxuYGBgXG5gYGAifQ== -->
```r
```r
resultsOutTonal1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODMyNDcwNVxuIn0= -->
```
[1] 0.8324705
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlU0IzYVhSb0lIUnZibUZzSUd4dmRXUnVaWE56WEc1Y2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRFZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZSdmJtRnNNU1JQVDBKZlVrMVRSVnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbiMgVG9uYWxpdHkgd2l0aCB0b25hbCBsb3VkbmVzc1xuXG5yZXN1bHRzT3V0VG9uYWwxIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# Tonality with tonal loudness
resultsOutTonal1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVTQjNhWFJvSUhSdmJtRnNJR3h2ZFdSdVpYTnpYRzVjYm5KbGMzVnNkSE5QZFhSVWIyNWhiREVnUEMwZ2JYVnNkR2xmWTNKbVVtVm5LR1JoZEdGSmJqMXpkR2x0UkdGMFlVNTFiU3dnYVZaaGNuTTlhVlpoY25Nc0lHUldZWEk5WkZaaGNpd2djMlZsWkhNOWMyVmxaSE1zSUc1MGNtVmxQVzUwY21WbExDQnRkSEo1UFcxMGNua3NJSEJsY20xSmJYQkRiMjVrVkdoeVpYTTljR1Z5YlVsdGNFTnZibVJVYUhKbGN5d2dibkJsY20wOWJuQmxjbTBzSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVYRzRqSUhCeWFXNTBJRzF2WkdWc0lIQnlaV1JwWTNScGIyNGdjbVZ6ZFd4MGMxeHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TUlBUMEpmVWsxVFJWeHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG4jIFRvbmFsaXR5IHdpdGggdG9uYWwgbG91ZG5lc3NcblxucmVzdWx0c091dFRvbmFsMSA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwxJE9PQl9STVNFXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eSB3aXRoIHRvbmFsIGxvdWRuZXNzXG5cbnJlc3VsdHNPdXRUb25hbDEgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFRvbmFsMSRPT0JfUk1TRVxuYGBgXG5gYGAifQ== -->
```r
```r
# Tonality with tonal loudness
resultsOutTonal1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjcwNDE2OFxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TUlBUMEpmVFVGRlhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.6704168
resultsOutTonal1$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGUnZibUZzTVNSUFQwSmZUVUZGWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutTonal1$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTIzODAxN1xuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TUlNjM0YxWVhKbFpGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxucmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.5238017
resultsOutTonal1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGUnZibUZzTVNSU2MzRjFZWEpsWkZ4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbnJlc3VsdHNPdXRUb25hbDEkUnNxdWFyZWRcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxuYGBgXG5gYGAifQ== -->
```r
```r
resultsOutTonal1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODM3OTk2OVxuIn0= -->
```
[1] 0.8379969
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEc5eVpTQnlaWE4xYkhSelhHNXlaWE5rUVc1dWIzbE5ia1pwZEVGQ1d5ZEJZbk1nZEc5dVlXd2dhVzVqSUd4dmRXUW5MQ0FuVWsxVFJTZGRJRHd0SUhKbGMzVnNkSE5QZFhSVWIyNWhiREVrVDA5Q1gxSk5VMFZjYm5KbGMyUkJibTV2ZVUxdVJtbDBRVUpiSjBGaWN5QjBiMjVoYkNCcGJtTWdiRzkxWkNjc0lDZE5RVVVuWFNBOExTQnlaWE4xYkhSelQzVjBWRzl1WVd3eEpFOVBRbDlOUVVWY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowRmljeUIwYjI1aGJDQnBibU1nYkc5MVpDY3NJQ2RTYzNGMVlYSmxaQ2RkSUR3dElISmxjM1ZzZEhOUGRYUlViMjVoYkRFa1VuTnhkV0Z5WldSY2JuSmxjMlJCYm01dmVVMXVVR1Z5YlVsdGNFRkNKRUZpYzFSdmJtRnNNU0E4TFNCeVpYTjFiSFJ6VDNWMFZHOXVZV3d4SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhCY2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgdG9uYWwgaW5jIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0FicyB0b25hbCBpbmMgbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0VG9uYWwxJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyB0b25hbCBpbmMgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRUb25hbDEkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJEFic1RvbmFsMSA8LSByZXN1bHRzT3V0VG9uYWwxJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# store results
resdAnnoyMnFitAB['Abs tonal inc loud', 'RMSE'] <- resultsOutTonal1$OOB_RMSE
resdAnnoyMnFitAB['Abs tonal inc loud', 'MAE'] <- resultsOutTonal1$OOB_MAE
resdAnnoyMnFitAB['Abs tonal inc loud', 'Rsquared'] <- resultsOutTonal1$Rsquared
resdAnnoyMnPermImpAB$AbsTonal1 <- resultsOutTonal1$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkRzl5WlNCeVpYTjFiSFJ6WEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkQlluTWdkRzl1WVd3Z2FXNWpJR3h2ZFdRbkxDQW5VazFUUlNkZElEd3RJSEpsYzNWc2RITlBkWFJVYjI1aGJERWtUMDlDWDFKTlUwVmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMEZpY3lCMGIyNWhiQ0JwYm1NZ2JHOTFaQ2NzSUNkTlFVVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFZHOXVZV3d4SkU5UFFsOU5RVVZjYm5KbGMyUkJibTV2ZVUxdVJtbDBRVUpiSjBGaWN5QjBiMjVoYkNCcGJtTWdiRzkxWkNjc0lDZFNjM0YxWVhKbFpDZGRJRHd0SUhKbGMzVnNkSE5QZFhSVWIyNWhiREVrVW5OeGRXRnlaV1JjYm5KbGMyUkJibTV2ZVUxdVVHVnliVWx0Y0VGQ0pFRmljMVJ2Ym1Gc01TQThMU0J5WlhOMWJIUnpUM1YwVkc5dVlXd3hKR052Ym1ScGRHbHZibUZzWDNCbGNtMXBiWEJjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbiMgc3RvcmUgcmVzdWx0c1xucmVzZEFubm95TW5GaXRBQlsnQWJzIHRvbmFsIGluYyBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0VG9uYWwxJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgdG9uYWwgaW5jIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgdG9uYWwgaW5jIGxvdWQnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0VG9uYWwxJFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiRBYnNUb25hbDEgPC0gcmVzdWx0c091dFRvbmFsMSRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgdG9uYWwgaW5jIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0FicyB0b25hbCBpbmMgbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0VG9uYWwxJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyB0b25hbCBpbmMgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRUb25hbDEkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJEFic1RvbmFsMSA8LSByZXN1bHRzT3V0VG9uYWwxJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdAnnoyMnFitAB['Abs tonal inc loud', 'RMSE'] <- resultsOutTonal1$OOB_RMSE
resdAnnoyMnFitAB['Abs tonal inc loud', 'MAE'] <- resultsOutTonal1$OOB_MAE
resdAnnoyMnFitAB['Abs tonal inc loud', 'Rsquared'] <- resultsOutTonal1$Rsquared
resdAnnoyMnPermImpAB$AbsTonal1 <- resultsOutTonal1$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3WVhJb2JXRnBQV01vTUN3ekxEQXNNQ2twWEc1Y2JpTWdjR3h2ZENCamIyNWthWFJwYjI1aGJDQnBiWEJ2Y25SaGJtTmxYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3hMbU52Ym1sdGNDQThMU0JoY25KaGJtZGxLSEpsYzNWc2RITlBkWFJVYjI1aGJERWtZMjl1WkdsMGFXOXVZV3hmY0dWeWJXbHRjQ3dnWkdWell5aHliM2RmYm5WdFltVnlLQ2twS1Z4dVhHNXdRbUZ5SUR3dElHZG5jR3h2ZENoeVpYTjFiSFJ6VDNWMFZHOXVZV3d4TG1OdmJtbHRjQ2tnS3lCblpXOXRYMk52YkNoaFpYTW9lRDFtWVdOMGIzSW9jbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGUnZibUZzTVM1amIyNXBiWEFwS1N3Z2VUMURiMjVrVUdWeWJVbHRjQ2tzSUdacGJHdzliWGxqYjJ4dmRYSnpXek5kTENCM2FXUjBhRDB3TGpVcElDc2diR0ZpY3loNFBWd2lWbUZ5YVdGaWJHVmNJaXdnZVQxY0lrTnZibVJwZEdsdmJtRnNJSFpoY21saFlteGxJSEJsY20xMWRHRjBhVzl1SUdsdGNHOXlkR0Z1WTJVZ0tHMWxZVzRnWTJoaGJtZGxJR2x1SUdGdWJtOTVZVzVqWlNsY0lpa2dLeUJuWjNScGRHeGxLRndpVkc5dVlXeHBkSGtnYVc1akxpQjBiMjVoYkNCc2IzVmtibVZ6YzF3aUtTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYQ0p6WlhKcFpsd2lLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1NrZ0t5QmpiMjl5WkY5bWJHbHdLSGxzYVcwOVl5Z3dMQ0F4TGpRcEtWeHVjRUpoY2x4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRUb25hbDEuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFRvbmFsMSRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRUb25hbDEuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbM10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxUb25hbGl0eSBpbmMuIHRvbmFsIGxvdWRuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDEuNCkpXG5wQmFyXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal1.conimp <- arrange(resultsOutTonal1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal1.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal1.conimp), levels=rownames(resultsOutTonal1.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\Tonality inc. tonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 1.4))
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdZWElvYldGcFBXTW9NQ3d6TERBc01Da3BYRzVjYmlNZ2NHeHZkQ0JqYjI1a2FYUnBiMjVoYkNCcGJYQnZjblJoYm1ObFhHNXlaWE4xYkhSelQzVjBWRzl1WVd3eExtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlViMjVoYkRFa1kyOXVaR2wwYVc5dVlXeGZjR1Z5YldsdGNDd2daR1Z6WXloeWIzZGZiblZ0WW1WeUtDa3BLVnh1WEc1d1FtRnlJRHd0SUdkbmNHeHZkQ2h5WlhOMWJIUnpUM1YwVkc5dVlXd3hMbU52Ym1sdGNDa2dLeUJuWlc5dFgyTnZiQ2hoWlhNb2VEMW1ZV04wYjNJb2NtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGUnZibUZzTVM1amIyNXBiWEFwTENCc1pYWmxiSE05Y205M2JtRnRaWE1vY21WemRXeDBjMDkxZEZSdmJtRnNNUzVqYjI1cGJYQXBLU3dnZVQxRGIyNWtVR1Z5YlVsdGNDa3NJR1pwYkd3OWJYbGpiMnh2ZFhKeld6TmRMQ0IzYVdSMGFEMHdMalVwSUNzZ2JHRmljeWg0UFZ4Y1ZtRnlhV0ZpYkdWY1hDd2dlVDFjWEVOdmJtUnBkR2x2Ym1Gc0lIWmhjbWxoWW14bElIQmxjbTExZEdGMGFXOXVJR2x0Y0c5eWRHRnVZMlVnS0cxbFlXNGdZMmhoYm1kbElHbHVJR0Z1Ym05NVlXNWpaU2xjWENrZ0t5Qm5aM1JwZEd4bEtGeGNWRzl1WVd4cGRIa2dhVzVqTGlCMGIyNWhiQ0JzYjNWa2JtVnpjMXhjS1NBcklIUm9aVzFsS0hSbGVIUWdQU0JsYkdWdFpXNTBYM1JsZUhRb1ptRnRhV3g1SUQwZ1hGeHpaWEpwWmx4Y0tTd2djR0Z1Wld3dVozSnBaRDFsYkdWdFpXNTBYMnhwYm1Vb1kyOXNiM0lnUFNCeVoySW9Nak0xTENBeU16VXNJREl6TlN3Z01UQXdMQ0J0WVhoRGIyeHZjbFpoYkhWbElEMGdNalUxS1N3Z2JHbHVaWGRwWkhSb0lEMGdNQzR5TlN3Z2JHbHVaWFI1Y0dVZ1BTQXlLU2tnS3lCamIyOXlaRjltYkdsd0tIbHNhVzA5WXlnd0xDQXhMalFwS1Z4dWNFSmhjbHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0VG9uYWwxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRUb25hbDEkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dFRvbmFsMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFRvbmFsMS5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzNdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyBnZ3RpdGxlKFxcVG9uYWxpdHkgaW5jLiB0b25hbCBsb3VkbmVzc1xcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCAxLjQpKVxucEJhclxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0VG9uYWwxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRUb25hbDEkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dFRvbmFsMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFRvbmFsMS5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzNdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyBnZ3RpdGxlKFxcVG9uYWxpdHkgaW5jLiB0b25hbCBsb3VkbmVzc1xcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCAxLjQpKVxucEJhclxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal1.conimp <- arrange(resultsOutTonal1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal1.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal1.conimp), levels=rownames(resultsOutTonal1.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\Tonality inc. tonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 1.4))
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qTXVPQ3dpZDJsa2RHZ2lPamdzSW5OcGVtVmZZbVZvWVhacGIzSWlPakVzSW1OdmJtUnBkR2x2Ym5NaU9sdGRmUT09IC0tPlxuXG48aW1nIHNyYz1cXGRhdGE6aW1hZ2UvcG5nO2Jhc2U2NFxuIn0= -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjMuOCwid2lkdGgiOjgsInNpemVfYmVoYXZpb3IiOjEsImNvbmRpdGlvbnMiOltdfQ== -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFFakNBTUFBQUN2anozNkFBQUJ6bEJNVkVVQUFBQUFBRG9BQUdZQU9qb0FPbVlBT3BBQVpyWXpNek02QUFBNkFEbzZBR1k2T2dBNk9qbzZPcEE2WnJZNmtMWTZrTnROVFUxTlRXNU5UWTVOYm01TmJvNU5icXROam81TmpzaG1BQUJtQURwbUFHWm1PbVptT3BCbVpnQm1aclpta0pCbWtOdG10dHRtdHY5dVRVMXVUVzV1VFk1dWJrMXVibTV1YnF0dWpvNXVqc2h1cTZ0dXE4aHVxK1NPVFUyT1RZNk9iazJPYm82T2JxdU9qazJPam82T2pzaU9xNnVPcThpT3ErU095TWlPeU9TT3lQK1FPZ0NRT2pxUU9tYVFaZ0NRWmpxUVpwQ1FrRHFRa0dhUWtKQ1FrTGFRa051UXRwQ1F0ditRMjdhUTI5dVEyLytyYmsycmJtNnJibzZyamsycmpvNnJqcXVycTI2cnE2dXJxOGlycStTcnlNaXJ5UCtyNU1pcjVPU3I1UCsyWmdDMlpqcTJabWEya0RxMmtKQzJ0bWEyMjVDMi83YTIvOXUyLy8vSWprM0lqbTdJam83SXEyN0lxNDdJcTZ2SXlJN0l5TWpJeU9USXlQL0k1S3ZJNVAvSS84akkvK1RJLy8vYmtEcmJrR2Jia0pEYnRtYmIyNURiMjdiYi83YmIvLy9rcTI3a3E0N2txNnZreUk3a3lLdmt5TWprNUt2azVNamsvOGprLytUay8vL3k4dkwzOS9mL0FHYi90bWIvdHBEL3lJNy95S3YveU1qLzI1RC8yN2IvNUt2LzVNai81T1QvLzdiLy84ai8vOXYvLytULy8vOGlQZEEvQUFBQUNYQklXWE1BQUF1d0FBQUxzQUVhT0JCeUFBQVhLVWxFUVZSNG5PMmRqWC9ieG5uSEtYWFMxSFJaQlNsUnBIaUptOUpyNnFnbGwzcjE2cGxLdTJhTGwxcHkwcVN4azFCYnN5NlN0U1ZwMG9SMDMwUW56V3F6bmtxSFk4c1gvTGQ3bnJzRENJSWdDUkRBOFRuZytYMzhJVWpnN3NGRDRLdkRIZkRqdVdDeldLbXJzT2dFV0hrUVk4YlNJTWFNcFVHTUdVdURHRE9XQmpGbUxBMmlpRm05SUxVZXRMSDc1SDUzcCtoZk9iWm1oaUNLWnpHcTlpTkgwWUt4Wm9va1prVnhxcytDTU92dkxRa3l6a0p5RlZ4T1JYR0NqYWk5dHN5WUpTMkttUDN5U0dEV3ZSYTBzZitDSU9Nd0pHWVR5cWtvYWpFcWJzMlNGMFhNYlBkVWQzY0swTjUwZDc2K0IxZlEvbDZoc0lwa3dLVU9ycXRmV2lzc0g2bW1SMXhKUlNGVnloR1VXemtOam9LYmNTRzJkbmVXOWtVcytBUmhuV0R0Tll4MVdGaitseVAxeXBwTHBESERybE45K2QwOTRPQnMrZWhzNVJSZSt5OWNoMHZkYi9iZ3d2cGxRT1dPdXZoZFY0WDZzT0dzNERaaFdDNDRpb09aM0hxRUM5Z3BWaCtXN1Q1MUNpdmF6OWpkYzBmeWRWSEh3M1NSeGd5UXdONDlubnU1QXNpU1pPQXF1dzZ0MGc5UHNiaGFBNFhhajU1NjR3anFncU9JelMvc3E2MEtNL3lrYUlPRkdJdXN0dGV3a3loZldmT0pOR1oxT09uOXZYVVhrRG8wTWtBRy9rUE1BQTNWdzFkckZDY2VpZFlwT0lxcXA3WXF6T3FqbUVteTROSzU3cnl5NWhKcHpPQzZoYUE0RGRYYXVteUhITXpzK2wvOGpieU1lVEFiSFNhSzFpdzRpcXFudGdaakJoMno3bmxNUkZ5R1BSZGpWalNSeHF5N3N6cDYwbjJZZFhkVSt6TEVyTDhIYUxSZmR1TGcyZ2xSVkQzUFZ1amsvd3d1alRBVWVOZEJzZ2lkUCtpVjJmV2lmRjNFc2NpQ2FHSldWemRuMnppYWhOTy85S09kd3NxdjEyQjB1ZngwWWVrcnNQS3dnRmZITytwK0JBRHl0Q3lFdzBwNDdlK3BpeWVXQzQ2eUw3YmlBQk8zNGk2L2hqZnJZTTlMKzZyczZSbW04WC8vaEdOVCtjcWFUelF4QzZuK1M0dk9nQlZPUm1NVzlsRUFhOUV5R0xORHZvZ1pJNE14WTVranhveWxRWXdaUzRNWU01WUdNV1lzRGFLSTJWK3lNaVJ4U2tsaUZyVHlRWEx4U1lZaW1WUUNvUmd6VXFGSUpzV1l4UkRKVUNTVFlzeGlpR1Fva2tubER6T1dtV0xNV0Jwa0dHYi95OUtpZEU0bVk4WWFVVG9uTTBuTWVtVnJxOW13Tm10MjUyK3IrSEhydjkvQ1ZiZ04xd3dPTE12YWVLdThBUnNIQjFCc1dBdGZMYXZpemN5blJSLyt2R2owcUpNY0F2UXVBVktmQWo1Zi9IM0p0aHNWWUV1c3N0VWEvUEN3MnJ1eGJkdC8razV0cEpiZHUyeTNKSkdNMlNJMWV0UnBZL1lCRWlPb2NUQVRhK0REdzZyZCs4bmYxZXpQZjF4cldCdHZIMnk5V2hwaXRtM0xKMDBQSG9pdjk4QzdYUFRoejR0R2ovc2Z4czVEMUdXS21QVSs3QUZKZHNzcU9aakpOWEJsaEF0bTcrWnhaZkR6RXl4UTZWMjY1YlJtWld0YmhlSFdiSUVhUGVwMFd6UGdwK1gwc3hvVmhabGNvMXF6bTUyTHYvL0ZTUTNBcXRpdGtudlI3RnhzZWpQemFkR0hQeTlLa29maHlVd1VzOEdOcW9EbTh5WmVBRnNJRVg3c1hGRnJ4SWZkM3MzQmplODFUMm9udFZhbHMzdTdLb3ZBUmJOUjhtYm0wNklQZjE2VUpBL0RrNW5zRFkzT0JiZ3F3b0N5WWg5Ylc3OTcxdHI4R0FlUTBBVVRheDUvSGo1WS93aU5XS3NFQTlMWExWaHo5ZUN4QzNMOGFaVUdCemdHWmN3V3FrUjVzSTI3YjhZeVU0WmhSdXA1Y0FxaFNDWkZjd2lRa0JpekRJVml6RWlGSXBrVVl4WkRKRU9SVENwL21MSE1GR1BHMGlER2pLVkJqQmxMZ3d6RGJORjN4K2xwNHZIaklVQW9NV2FoTlBINE1XYWh4SmlGMHNUamx5dk1oRkZicW9YV0MyRkJjOVh6dXJjRE0vTnAwU2VWbmlZZStWeGhKbXpaUW9PRGttOWI3N0k5NHQ0T3lzeW5SWjlVZWtyMGJLV210REVUdHV6R2Q2M3ZXcFhXY3hjMmE4QlZyN3hSN2Z4RGViUFdza3FqN20zOEdjcXg5ZHliYk5JT3Izam1hVjNMbERFVHR1eGVlYnUxM2JrQ0pMVktqYTNtM1dycjJ3ZWJ0ZHZWejNaSDNkdXdvUVJYMW9iOGFSTzNacUdVMXBsTFZpbGpKbTNaclVxckJKaVY3TTd1NExYbXNXVUJkQUJWeDhWTUZzTU50NnVNV1NTbGRlYVNWY3FZT1VadGhWbWpCSmpoajU2OG1MbnViZHpRNE5Zc21pWWUrdndNQVFhT0xYdnJWY3ZhZkI4YUsyaTNLdmpycGVQTmo4dmJ2Zkszdk83dHJYdXdBWDhRekpoRjBNU0RueC9NNXRPMDFvelVzVXNoRk1ta01vbFo1NEtjOElBeHkxQW9lcGc1NGtmbkdSSmp4dElneG95bFFZd1pTNE1NdzR4VXZ6YUZVQ1NUeXQ4UWdOU3hTeUVVeWFRWXN4Z2lHWXBrVXZuRExKa2I1RUtrVGtQeWtXaUZ5aTltTEkxaXpGZ2FwQWV6Z05tMTN4WVRhbzlacy8yWitjU1ltU2xOcmRtRTJiVWYrakRyWGZabjVoTmpacVowWXpZeXV6WlFkcnhSUGQ2NjU3RnRkeTQ4OFdGQ0p1M3A1dUUvSkdkQ2pqL1R0TE44a0p3NW10VDMwNHlaZDNadE9hRTJ3dWExYmQrdGZpRi8rOFFqelF5RjBvbloyT3phZU0yOFhYMXZ4TGJ0L3NjbmpGbUdRbW5DYk5MczJydDI1NXR2Mmw3YjlxYzFlQmxtNWhOalptWW9YVGMweG1iWC9nUkhtdGl5bllqL2tNS3hiWmYrcHp6TnBNMHlVNGJkTjJPWktjYU1wVUdNR1V1RERNT01WTDgyaFZBa2t6Sm9DQkJkakZtR1FqRm1wRUtSVElveGl5R1NvVWdtbFQvTVdHYUtNV05wa0dHWXhYaTR4RnFnR0RPV0J1VVhNMUpkNU9RajBRbzFCYk1BWjNYMTJNSkp5a1pLaUhlM0hjOTF5OXI4NkJiT0lTc2RQVmdUcHl6elZKSWFuVHBiRkNtTlRyUE5tR1VvMUxUV2JOeFovZlpyOXk3ZGY4Tlh3aGJRU005MTUyS3pWeTcxYmdCVmYvcU9VM1B3U20xd1VCbU43WnM2dTNjWlN3Vms1aE5qWm1hb1VKZ05uZFZpM2VBQUdqRmhxcGFZd2VlTnFuUXAzaFZ0Vk84bjBDeDkvbU9uSmdMVUtHR3RlK1d0LzdKS0RXam14QWJsMElhMlRtSUdNVVRZT1UzYUJwdVluV1VlVGRvQnptcXhybEd4RzlKVUxURnJsR3g0S3p6WEo2SkY2dDA4cmd4K2Z1TFVsSzBaMXNLSnNrOXF2US9WQm9GbWExaTdzWFZmaEJWNzV5RkFoalFUczFGbnRWZ0hISFIyaGR0VlluYTdLdDlDYXlZUjZkM3NYUHo5TDl5YTBJNUIzMHpVR3J6eThYdFhQblZEb2tNYmZZNU5iTTBPS29QWG1pS3NKek9mR0RNek5RMnpBR2UxYk0zZ1E4bkZySE1GWjcvZXVpYzgxOUEzUS8vMXpjR043elVCTTFsVDlycEVMYnR4OFJQODMwN2tCdUhRYmlIQitNdTVZOFlzczVwNlEyUE1XVjJETnlYWk4wTlQ5Uk5pSW15ODRsbFhsZWU2WlluWnNDdXRVc1BhZUZiVWZPd0NWcFMxb0tHRHk3QVRzb2x0SmV6RUVvRzJtaTJySXJ6YW5zeFltZERpNzV0OUFaMjNOd0xXODZQekRJVmFQR2FOQ1hNY01HWVpDclY0ekNhSk1jdFFLTWFNVkNpU1NlVVBNNWFaWXN4WUdzU1lzVFNJTVdOcGtHR1lrZXJYcGhDS1pGTDVHd0lrK0ZTSjFHbElQaEt0VUl3WnFWQWtrOUtLV1ZKbVdyenZYMEpia1p4N1Nqd0JpT2llbmZmTGpvalVhVWcrRXExUUVWcXpwTXkwblYwMEJYMmd5c3RaanFPNVo2Ti9UZFppTlE5bU1jMjBEVEZYWXhudEdsaG9jTEQxYWltYWV6WXBWeWd2ZFMzbndDeXVtUmJZNjF6NWN4T0ljMlk1dm1WSGM4K0d5WlpGU1ZFeFM4Qk1LMW96V08wVUVtN0pTTzdaK0YrYnBWY1JNRXZLVEN2N1p1b2lpWVYyb2ZHTDVKNU41SnVUNmlJbkg0bFdxQ2czTkpJeDAwSlpxTlNRb1N3c2V2WGdzUXNoM2JPTW1abWhETHR2UnVyWXBSQ0taRktNV1F5UkRFVXlxZnhoeGpKVGpCbExnOFl3T3l1c3Q5ZldGNVNOVjR4Wmh1VEhySHUrZTgzdW5qdGFWRDVETVdZWmtoK3ova3VBMmRuSzZhTHlHWXFIQUJrS0ZYRFJMQlNXQ1RSbWpGbVdRZ1VQQVg1SmdEUEdMRU9oUmpEcjdoU2tLRFJud1U4QmtvdFA2alFrSDRsV3FOSFc3QjNWSnlQYm12RlRjek5sMkgwenhzeE1qV0dHRjg1VitYYTJMVnNXdTlURVRXOUI2ZnNIMW1NWHBDVjc0MWxQdVNCYnR1dmNIdTVMbXJVcjNzeDhZc3pNMU5nTmpiMTFHRzJxMjdPemJkbW9CckJZVWI1c1JFNVpzaDNIZHU5eXNDM2JkVzU3OW9XRlcrcjNCSXhaaGpSMmUvWXA3SjZwdnRsc1c3Ync4N3pXRkpzY3pKUWwyM0ZjdDZ4U29DMWJGWU1JYjR2UExtYllDRTQwYVNkbkhpWTFCYkN6ZkpEUjd6ZDIwYnl6RHkvL1BvclpaRnMyckVRem90alVrMU11T3BiczNpWHB1UDVzTjlpVzdUaTNJWUw0TERFcnU1ZGFIbWxtS0ZUd0RRM3ZSWE82TGJ0c0NjeHdrOU9hS1VzMnRtWllCSzZZZ2Jac3AxalpjbjI0MkpxaDRkYVRtVStNbVptaEFtOW90SitSSDJmYnNrOXFvalVUbTF6TXBDWGJnMW1nTFZzVnd3amlzekI0dzBXelVmSm01aE5qWm1hb3NZdm1vZmYyN0N4YjluWURMcE9mV1pXSHNPbGpaNlRwV3JLM1JaRmV1V1FIMnJKRnNjM1hMZXZ4NTVWTmV3TkdxeVVZcEZhSG1mbkVRd0F6TmU3UTZMOWtkNjh0S2gyUDJLR1JJWTFoZHMwK0svYS9UL1VwQU10TWpWMDA2OHRIaDg3OTJZV0tNY3VRMktGQktoVEpwQksvb1hIdVNON1RJT3ZRSUhYc1VnaEZNcWswUnBydmVKNENMRlNNV1laQ2pRMEJLUHdNUUlneHkxQ29zZFpNUEdjaTI1cXh6TlJZYTBhN2I4WXlVNGIxelZobUt2Q0dodk5NYzZGaXpES2s2YzgwRnlrZUFtUW9WSlJubXVGTjI3YWFNMXRKZXJFYitGZzhwa21iMUxGTElSVEpwTkxBYk5venpkQ21iVlhDRmM2U0xkeEFjVTNhcEk1ZENxRklKcFhHRFkxcHp6UkRtN1psaVY2NTFOcW90cDc3UmcweGF5aFBXaXlUZGxaTnpGbi9mcEYrUUJmZXRDMUx0RXI0SDFFQWpZaVpjR3JITldtenpGUjB6RUtadG1VSnhLeUs5dXpSMWl5R1NadGxwa1lmblorZlhqaTBhZHVaTS91S2ZiejVmc25YTjR0ajBtYVpLZjlQVHFiZnlnaHAycjZxU3R5RGdXUGxXQlNDSytleEdtbkdNV216ek5Rb1p0ZkV3eVlLY3pYeVNETlRvWUw2Wm5XK1BidW9VQ1NUU3R6V2VBMW5ONkR4RUlBeHkxS284WjhERjJQSFRFYU1XWVpDK1UzYXNRTW1KaDRDWkVpR3pXL0dNbE9NR1V1REdET1dCaG1HR2FsK2JRcWhTQ2FWdi84YWpOU3hTeUVVeWFRWXN4Z2lHWXBrVXVsamx0d3N4Nk4rV25iUHBoMkpWcWhaclZsU3N4ejcvYlJ6dW1kWlppbzBaakZuT1ZZQmpqZXF4OEs0c1QyZmU1YVhaaTdEWWhaM2xtTVZRTmdhaGR1UjNiTjVVaWpNRXBqbDJBbHd1L3BlVTlqUDJEMmJKODNDTEtsWmpsVUF1L1BOTnpFS0FEV1hlNVpVdnphRlVDU1QwbkZESTVsWmpyK3RBalN4WllTUTFoUGx1ZHl6cEk1ZENxRklKbVhvZmJNdmF2YmdqWm1sR0xNTWhWb0VaZzMxeS9QcFlzd3lGTXF3cHdBc004V1lzVFNJTVdOcEVHUEcwaURETUNQVnIwMGhGTW1rOGpjRUlIWHNVZ2hGTWluR0xJWkloaUtaRkdNV1F5UkRrVXdxZjVpeHpCUmp4dEtnRUppRk5tcmZWeE1ZdDZ6TmoyNE5UZGpLbloySVNadGxwc0swWnFHTjJuSUM0ODVGbkhWMmFNSlc3bXcyYWVkWWtUQ2JaZFNXVTM3ZWxUTmxLeE8ycXBXUVNmdEJjdVpoVWxNQVovMzdSY0ZzcGxGYlRtQjhJbG9vMTRTdGFpVmowaVkxZkVvaEZNbWtOSTAwUXh1MVpXdDJXN1pteW9UdDFFckdwRTNxMktVUWltUlNtakFMYmRSV0V4Z0RLSzJTWThKMjNObHMwdFliaVZhb1VEYzB3czlzTE9kcHg2NVgyVFZxWTYzSG4wL0dwTTB5VTRhWnRGbG15akNUTnN0TThWTUFsZ1laaGhtcGZtMEtvVWdtbGI5SDU2U09YUXFoU0NiRm1NVVF5VkFrazJMTVlvaGtLSkpKNVE4emxwbGl6RmdheEppeE5JZ3hZMm1RWVppUjZ0ZW1FSXBrVXZxSEFPRm4xdmE3c25rbWJiMlJhSVdLMnBxRk5teVB1YklUTVdtVE9uWXBoQ0taMUNJeG0yWFlsaVY2NVZKcm85cDY3aHMxTm1telNUczZack5uMXBZbDBKQU5HRFY1SnUxY2F5N01RczJzTFVzSXBPQ0ZaOUxPdGFKaUZ0cXdyVXJBcXVQTjkwdEptYlJaWmlyeURZM3dobTFSQXZ0aGxlUE5UeEthU1p0bHBnd3phWk1hUHFVUWltUlNoajQ2NTVtME5VU2lGWXFmQXBBS1JUSXB4aXlHU0lZaW1WVCtNR09aS2NhTXBVR01HVXVER0RPV0JobUdHYWwrYlFxaFNDYVZ2eUVBcVdPWFFpaVNTVEZtTVVReUZNbWtHTE1ZSWhtS1pGS2FNWnZmb2Qyd2hCVUluNkNyQjAwOGszYXVGS2sxbTllaDNkbEZQOW9IS3NKRE9Xa296NlNkSTgySFdVU0g5dXRvUzRQR3J5bmRzd05oeXA3THBNMUxNNWR6WVJiVm9YMjNhbmV1L0xrcHlNTnJwakJsczBrN1I0cU8yUndPN1laNGErTjJNZGUyc056eVROcXBScUlWS2hKbTh6cTBaZC9NSHJ4U1UzTnRveW1iWjlKT05SS3RVTkZ1YU16bjBKYUZHcklxNk9xQk1HWFBZOUltZGV4U0NFVXlLYjV2RmtNa1E1Rk1LbitZc2N3VVk4YlNJTWFNcFVHTUdVdURETU9NVkw4MmhWQWtrOHJmRUlEVXNVc2hGTW1rR0xNWUlobUtaRktNV1F5UkRFVXlxZnhoeGpKVGpCbExnMlpoRnRveGUxOFpZMXZXNWtlM2h0Wlk2YUpsOTJ6T05iTTFDKzJZbGNiWXprVjBNdzZ0c2FJV3UyZnpydkNZelhMTVNpdlpYY21Rc3NhcVdvM0UzTE1Qa25OMWtwb0NPT3ZmTHpSbU14MnowaGg3SXBvbjF4b3JheVhubmlVMWZFb2hGTW1rZEl3MFF6dG1aV3QyVzdabXlocXJhckY3Vm44a1dxRm1ZaGJhTWF1TXNVQUpYQ0NWTmRaeDBiSjdWbnNrV3FGbTM5QUk3NWlWL24vOHJ5WFUvTVViejZxSmpSTnp6N0xNRk44M1kya1FZOGJTSU1hTXBVR0dZVWFxWDV0Q0tKSko1ZS9ST2FsamwwSW9ra2t4WmpGRU1oVEpwQml6R0NJWmltUlMyY2FNbFNHSlUwb1JzMERSSEg2U3pJcGdVb3haTEpITWltQlN4bURHTWxtTUdVdURHRE9XQmpGbUxBMHlBVFB4c3hWM1FVVXFuWmExV1p0VlZKdWNIL0lRTzFSR1lLYXNrV3BCUlU0Nkh5dzZrUkVOWGtITWlCMHEyd2pNbE5IYjhYc1RrVXBIL0p5R2ppUm14QTZWYlFSbTRtY3I3b0tLVkRyaTV6U0x6bVVvaVJteFEyVWJnUm5wMXN5MjFTOEhhWWhiczdsRnUyK216aXdSY2Q5c2ZvbWZyVlRFZ3BCa1ZnMDVZd01WNGE5ODZCMHFNekJqR1MvR2pLVkJqQmxMZ3hnemxnWXhaaXdOWXN4WUdwUXB6T3FGd3ZxZGZkL0svZ3Y3M1NmRlNyVVlVZEE2ZDJYNzBkTkpSV1pydk5xY2dVUW1mejI3eUNOSGtiS0pwSCtMVlR0Ym1CMnVuTnIxSmY4Qk9aUnJ4dkFiMlJxbzdzN0s2WXdpUHJrN21iQzNVSFVESkhtZnF2N2U4alRNWWlvbXBWbkNyUDFsUEJSblJkOXFhTTF3TWVIdlVXMmRFRkdjM2FsRlJ1WHVaSTYvL2lsVit0OFBRVkQzWElxWTJkMm5ab0krVFJuQ3JMNmlqZ1JlTytHby8wY0JWcHdWQ2t0NDBZUmxFZjhrUGR1Nk80WGxJOEZRZjYrd0NxM0JmK0tLN3JrWGwzNzA1TDdZMkg3MEI0VlZnZGxoUVFUSGlsQmZmTVNDLy9yb1R3c3J2eXFzL0habitRZ2FQYkVUckJpd04xczBDVzFWNGRTSnBFcTh1UFRQVGwxVnZBNXZuZDJlclNMeXFxYmN1YWVrK01iT0o4OEcrRmJ3L3REZDl6Q1BZUmwzWjRWMStZM1huS1BnVCtMUS8rY2JTUm5FRE5xZzl0clhnUnc4clk4Y1FTTUhCUHdHV1ZuYTkyNnJyd05Bc3FuQ2x1Q1BZc1gxUFRqdFVGQnNiSzhWKzN0RmVITUc2OVlsamphc3hJOWZoWUx3R2M3T0t2Yit6aUd3dUJOUk1XQnZObDU5cnpzVnJxdElUb2wxMjZsN1hSWUhzZzdYMVc1aHZUM2NsVmpwS1drTERBOXhxL3BTYWtOOWRaaTUzTGNxUGl5ajFva3NpdkFQTDkwVGtxaXZ4emszR2NRTUR3Z2NkWEhpOFFRSmxoQW4rZG5kaHFldXFLNkljQ0RmT1JVcmtEaG5JMTQwQlRidzF3NVlxQXRUZlYxOHhQY3lFS0NvM3FpbXNSaTBOemtZOFZRUWtad1N0bHRYRmhHTmg3TmJMT1hXbEN1SEpXM1YwbmkrbEh4N3R1ckozTjAzZnR0aEdmY280UkdBQTlnOVB5a0p4a3hKOXMzYUw5ZkZRWm1BbVdmYkdmeUJPNWkxSC9uWnk3WllvVTY1ZUQvRVRGMHhIRGpVYVEzQ3pJM3EyNXNkakpsVHduYnJlcyt3MnUwb1pyalNVOUlld2N5elFiUzlUZ2d2WnA0eTZpaXRxaGF6ZUdkaUVveVpJeHhwUWxjVmNITVA0Qm4wdnZhVzMzVXg4MjQ3VkZkRXQ2NVlvVTY1ZUErWXdhVkROQXcyL3AyTEFaZThtSFRQK3pIcjd1QitiRGVxYjIrMkR6TVp5UzBoZTRCRmw5Z3piRm1jM1dMZnpLMHBWbnBLNG5ZczdQbFNLc1M2ckNwQ2VQUHdsSkd2TWdzb1hQQWNCVjhTM0RkemRZaDlYdEhNRitIOWFoMk9HcXdxRk9VYnNmQnMrMVZoNlN2TEw2cE9kUHNaUE1xdzRtbFJTRzU4ZHc5THk5cmlkZ0Ywa3d0NGUrTlE5YTBoRUN4K0t0NHQvUldPRklvaXlOSDQzazR4cjVVZk9CVitxeUtwRXFKblgxUUpxTVNYOW0yMVd4eHBlbmVGWTR4aFNmSEZsL1k5WDBwdStQVWFEaTlVQ0xsdldkeFRXYTBUV2RpU3BlQWtlS1NwVWNuZE5JZ1dhZnF0MXduNkkxRDhUaVE0K2orY1ZEekNUWjFBTVdaUnRDak13andGOEF2SjZGNkxWR1hzbnFNcmZncWdVZENwWG9sMTdVZ2gwbVNkeVM1RWFCMktJV2s2WXN4WUdzU1lzVFNJTVdOcEVHUEcwaURHaktWQi93LzY5YlNMc25PV0NnQUFBQUJKUlU1RXJrSmdnZz09XCIgLz5cblxuPCEtLSBybmItcGxvdC1lbmQgLS0+XG4ifQ== -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAEjCAMAAACvjz36AAABzlBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjshmAABmADpmAGZmOmZmOpBmZgBmZrZmkJBmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZjqQZpCQkDqQkGaQkJCQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/AGb/tmb/tpD/yI7/yKv/yMj/25D/27b/5Kv/5Mj/5OT//7b//8j//9v//+T///8iPdA/AAAACXBIWXMAAAuwAAALsAEaOBByAAAXKUlEQVR4nO2djX/bxnnHKXXS1HRZBSlRpHiJm9Jr6qgll3r16plKu2aLl1py0qSxk1Bbsy6StSVp0oR030QnzWqznkqHY8sX/Ld7nrsDCIIgCRDA8Tng+X38IUjg7sFD4KvDHfDjuWCzWKmrsOgEWHkQY8bSIMaMpUGMGUuDGDOWBjFmLA2iiFm9ILUetLH75H53p+hfObZmhiCKZzGq9iNH0YKxZookZkVxqs+CMOvvLQkyzkJyFVxORXGCjai9tsyYJS2KmP3ySGDWvRa0sf+CIOMwJGYTyqkoajEqbs2SF0XMbPdUd3cK0N50d76+B1fQ/l6hsIpkwKUOrqtfWissH6mmR1xJRSFVyhGUWzkNjoKbcSG2dneW9kUs+ARhnWDtNYx1WFj+lyP1yppLpDHDrlN9+d094OBs+ehs5RRe+y9ch0vdb/bgwvplQOWOuvhdV4X6sOGs4DZhWC44ioOZ3HqEC9gpVh+W7T51Civaz9jdc0fydVHHw3SRxgyQwN49nnu5AsiSZOAquw6t0g9PsbhaA4Xaj5564wjqgqOIzS/sq60KM/ykaIOFGIusttewkyhfWfOJNGZ1OOn9vXUXkDo0MkAG/kPMAA3Vw1drFCceidYpOIqqp7YqzOqjmEmy4NK57ryy5hJpzOC6haA4DdXaumyHHMzs+l/8jbyMeTAbHSaK1iw4iqqntgZjBh2z7nlMRFyGPRdjVjSRxqy7szp60n2YdXdU+zLErL8HaLRfduLg2glRVD3PVujk/wwujTAUeNdBsgidP+iV2fWifF3EsciCaGJWVzdn2ziahNO/9KOdwsqv12B0ufx0YekrsPKwgFfHO+p+BADytCyEw0p47e+piyeWC46yL7biABO34i6/hjfrYM9L+6rs6Rmm8X//hGNT+cqaTzQxC6n+S4vOgBVORmMW9lEAa9EyGLNDvogZI4MxY5kjxoylQYwZS4MYM5YGMWYsDaKI2V+yMiRxSkliFrTyQXLxSYYimVQCoRgzUqFIJsWYxRDJUCSTYsxiiGQokknlDzOWmWLMWBpkGGb/y9KidE4mY8YaUTonM0nMemVrq9mwNmt252+r+HHrv9/CVbgN1wwOLMvaeKu8ARsHB1BsWAtfLavizcynRR/+vGj0qJMcAvQuAVKfAj5f/H3JthsVYEusstUa/PCw2ruxbdt/+k5tpJbdu2y3JJGM2SI1etRpY/YBEiOocTATa+DDw6rd+8nf1ezPf1xrWBtvH2y9Whpitm3LJ00PHoiv98C7XPThz4tGj/sfxs5D1GWKmPU+7AFJdssqOZjJNXBlhAtm7+ZxZfDzEyxQ6V265bRmZWtbheHWbIEaPep0WzPgp+X0sxoVhZlco1qzm52Lv//FSQ3AqtitknvR7FxsejPzadGHPy9KkofhyUwUs8GNqoDm8yZeAFsIEX7sXFFrxIfd3s3Bje81T2ontVals3u7KovARbNR8mbm06IPf16UJA/Dk5nsDY3OBbgqwoCyYh9bW7971tr8GAeQ0AUTax5/Hj5Y/wiNWKsEA9LXLVhz9eCxC3L8aZUGBzgGZcwWqkR5sI27b8YyU4ZhRup5cAqhSCZFcwiQkBizDIVizEiFIpkUYxZDJEORTCp/mLHMFGPG0iDGjKVBjBlLgwzDbNF3x+lp4vHjIUAoMWahNPH4MWahxJiF0sTjlyvMhFFbqoXWC2FBc9XzurcDM/Np0SeVniYe+VxhJmzZQoODkm9b77I94t4OysynRZ9Uekr0bKWmtDETtuzGd63vWpXWcxc2a8BVr7xR7fxDebPWskqj7m38Gcqx9dybbNIOr3jmaV3LlDETtuxeebu13bkCJLVKja3m3Wrr2webtdvVz3ZH3duwoQRX1ob8aRO3ZqGU1plLViljJm3ZrUqrBJiV7M7u4LXmsWUBdABVx8VMFsMNt6uMWSSldeaSVcqYOUZthVmjBJjhj568mLnubdzQ4NYsmiYe+vwMAQaOLXvrVcvafB8aK2i3KvjrpePNj8vbvfK3vO7trXuwAX8QzJhF0MSDnx/M5tO01ozUsUshFMmkMolZ54Kc8IAxy1Aoepg54kfnGRJjxtIgxoylQYwZS4MMw4xUvzaFUCSTyt8QgNSxSyEUyaQYsxgiGYpkUvnDLJkb5EKkTkPykWiFyi9mLI1izFgapAezgNm13xYTao9Zs/2Z+cSYmSlNrdmE2bUf+jDrXfZn5hNjZqZ0YzYyuzZQdrxRPd6657Ftdy488WFCJu3p5uE/JGdCjj/TtLN8kJw5mtT304yZd3ZtOaE2wua1bd+tfiF/+8QjzQyF0onZ2OzaeM28XX1vxLbt/scnjFmGQmnCbNLs2rt255tv2l7b9qc1eBlm5hNjZmYoXTc0xmbX/gRHmtiynYj/kMKxbZf+pzzNpM0yU4bdN2OZKcaMpUGMGUuDDMOMVL82hVAkkzJoCBBdjFmGQjFmpEKRTIoxiyGSoUgmlT/MWGaKMWNpkGGYxXi4xFqgGDOWBuUXM1Jd5OQj0Qo1BbMAZ3X12MJJykZKiHe3Hc91y9r86BbOISsdPVgTpyzzVJIanTpbFCmNTrPNmGUo1LTWbNxZ/fZr9y7df8NXwhbQSM9152KzVy71bgBVf/qOU3PwSm1wUBmN7Zs6u3cZSwVk5hNjZmaoUJgNndVi3eAAGjFhqpaYweeNqnQp3hVtVO8n0Cx9/mOnJgLUKGGte+Wt/7JKDWjmxAbl0Ia2TmIGMUTYOU3aBpuYnWUeTdoBzmqxrlGxG9JULTFrlGx4KzzXJ6JF6t08rgx+fuLUlK0Z1sKJsk9qvQ/VBoFma1i7sXVfhBV75yFAhjQTs1FntVgHHHR2hdtVYna7Kt9CayYR6d3sXPz9L9ya0I5B30zUGrzy8XtXPnVDokMbfY5NbM0OKoPXmiKsJzOfGDMzNQ2zAGe1bM3gQ8nFrHMFZ7/euic819A3Q//1zcGN7zUBM1lT9rpELbtx8RP8307kBuHQbiHB+Mu5Y8Yss5p6Q2PMWV2DNyXZN0NT9RNiImy84llXlee6ZYnZsCutUsPaeFbUfOwCVpS1oKGDy7ATsoltJezEEoG2mi2rIrzansxYmdDi75t9AZ23NwLW86PzDIVaPGaNCXMcMGYZCrV4zCaJMctQKMaMVCiSSeUPM5aZYsxYGsSYsTSIMWNpkGGYkerXphCKZFL5GwIk+FSJ1GlIPhKtUIwZqVAkk9KKWVJmWrzvX0JbkZx7SjwBiOienffLjojUaUg+Eq1QEVqzpMy0nV00BX2gystZjqO5Z6N/TdZiNQ9mMc20DTFXYxntGlhocLD1aimaezYpVygvdS3nwCyumRbY61z5cxOIc2Y5vmVHc8+GyZZFSVExS8BMK1ozWO0UEm7JSO7Z+F+bpVcRMEvKTCv7ZuoiiYV2ofGL5J5N5JuT6iInH4lWqCg3NJIx00JZqNSQoSwsevXgsQsh3bOMmZmhDLtvRurYpRCKZFKMWQyRDEUyqfxhxjJTjBlLg8YwOyust9fWF5SNV4xZhuTHrHu+e83unjtaVD5DMWYZkh+z/kuA2dnK6aLyGYqHABkKFXDRLBSWCTRmjFmWQgUPAX5JgDPGLEOhRjDr7hSkKDRnwU8BkotP6jQkH4lWqNHW7B3VJyPbmvFTczNl2H0zxsxMjWGGF85V+Xa2LVsWu9TETW9B6fsH1mMXpCV741lPuSBbtuvcHu5LmrUr3sx8YszM1NgNjb11GG2q27OzbdmoBrBYUb5sRE5Zsh3Hdu9ysC3bdW579oWFW+r3BIxZhjR2e/Yp7J6pvtlsW7bw87zWFJsczJQl23Fct6xSoC1bFYMIb4vPLmbYCE40aSdnHiY1BbCzfJDR7zd20byzDy//PorZZFs2rEQzotjUk1MuOpbs3iXpuP5sN9iW7Ti3IYL4LDEru5daHmlmKFTwDQ3vRXO6LbtsCcxwk9OaKUs2tmZYBK6YgbZsp1jZcn242Jqh4daTmU+MmZmhAm9otJ+RH2fbsk9qojUTm1zMpCXbg1mgLVsVwwjiszB4w0WzUfJm5hNjZmaosYvmoff27Cxb9nYDLpOfWZWHsOljZ6TpWrK3RZFeuWQH2rJFsc3XLevx55VNewNGqyUYpFaHmfnEQwAzNe7Q6L9kd68tKh2P2KGRIY1hds0+K/a/T/UpAMtMjV0068tHh8792YWKMcuQ2KFBKhTJpBK/oXHuSN7TIOvQIHXsUghFMqk0RprveJ4CLFSMWYZCjQ0BKPwMQIgxy1CosdZMPGci25qxzNRYa0a7b8YyU4b1zVhmKvCGhvNMc6FizDKk6c80FykeAmQoVJRnmuFN27aaM1tJerEb+Fg8pkmb1LFLIRTJpNLAbNozzdCmbVXCFc6SLdxAcU3apI5dCqFIJpXGDY1pzzRDm7ZliV651Nqotp77Rg0xayhPWiyTdlZNzFn/fpF+QBfetC1LtEr4H1EAjYiZcGrHNWmzzFR0zEKZtmUJxKyK9uzR1iyGSZtlpkYfnZ+fXji0aduZM/uKfbz5fsnXN4tj0maZKf9PTqbfyghp2r6qStyDgWPlWBSCK+exGmnGMWmzzNQoZtfEwyYKczXySDNToYL6ZnW+PbuoUCSTStzWeA1nN6DxEIAxy1Ko8Z8DF2PHTEaMWYZC+U3asQMmJh4CZEiGzW/GMlOMGUuDGDOWBhmGGal+bQqhSCaVv/8ajNSxSyEUyaQYsxgiGYpkUuljltwsx6N+WnbPph2JVqhZrVlSsxz7/bRzumdZZio0ZjFnOVYBjjeqx8K4sT2fe5aXZi7DYhZ3lmMVQNgahduR3bN5UijMEpjl2Alwu/peU9jP2D2bJ83CLKlZjlUAu/PNNzEKADWXe5ZUvzaFUCST0nFDI5lZjr+tAjSxZYSQ1hPludyzpI5dCqFIJmXofbMvavbgjZmlGLMMhVoEZg31y/PpYswyFMqwpwAsM8WYsTSIMWNpEGPG0iDDMCPVr00hFMmk8jcEIHXsUghFMinGLIZIhiKZFGMWQyRDkUwqf5ixzBRjxtKgEJiFNmrfVxMYt6zNj24NTdjKnZ2ISZtlpsK0ZqGN2nIC485FnHV2aMJW7mw2aedYkTCbZdSWU37elTNlKxO2qpWQSftBcuZhUlMAZ/37RcFsplFbTmB8Iloo14StaiVj0iY1fEohFMmkNI00Qxu1ZWt2W7ZmyoTt1ErGpE3q2KUQimRSmjALbdRWExgDKK2SY8J23Nls0tYbiVaoUDc0ws9sLOdpx65X2TVqY63Hn0/GpM0yU4aZtFlmyjCTNstM8VMAlgYZhhmpfm0KoUgmlb9H56SOXQqhSCbFmMUQyVAkk2LMYohkKJJJ5Q8zlplizFgaxJixNIgxY2mQYZiR6temEIpkUvqHAOFn1va7snkmbb2RaIWK2pqFNmyPubITMWmTOnYphCKZ1CIxm2XYliV65VJro9p67hs1NmmzSTs6ZrNn1pYl0JANGDV5Ju1cay7MQs2sLUsIpOCFZ9LOtaJiFtqwrUrAquPN90tJmbRZZiryDY3whm1RAvthlePNTxKaSZtlpgwzaZMaPqUQimRShj4655m0NUSiFYqfApAKRTIpxiyGSIYimVT+MGOZKcaMpUGMGUuDGDOWBhmGGal+bQqhSCaVvyEAqWOXQiiSSTFmMUQyFMmkGLMYIhmKZFKaMZvfod2whBUIn6CrB008k3auFKk1m9eh3dlFP9oHKsJDOWkoz6SdI82HWUSH9utoS4PGryndswNhyp7LpM1LM5dzYRbVoX23aneu/LkpyMNrpjBls0k7R4qO2RwO7YZ4a+N2Mde2sNzyTNqpRqIVKhJm8zq0Zd/MHrxSU3NtoymbZ9JONRKtUNFuaMzn0JaFGrIq6OqBMGXPY9ImdexSCEUyKb5vFkMkQ5FMKn+YscwUY8bSIMaMpUGMGUuDDMOMVL82hVAkk8rfEIDUsUshFMmkGLMYIhmKZFKMWQyRDEUyqfxhxjJTjBlLg2ZhFtoxe18ZY1vW5ke3htZY6aJl92zONbM1C+2YlcbYzkV0Mw6tsaIWu2fzrvCYzXLMSivZXcmQssaqWo3E3LMPknN1kpoCOOvfLzRmMx2z0hh7Ipon1xorayXnniU1fEohFMmkdIw0QztmZWt2W7ZmyhqrarF7Vn8kWqFmYhbaMauMsUAJXCCVNdZx0bJ7VnskWqFm39AI75iV/n/8ryXU/MUbz6qJjRNzz7LMFN83Y2kQY8bSIMaMpUGGYUaqX5tCKJJJ5e/ROaljl0IokkkxZjFEMhTJpBizGCIZimRS2caMlSGJU0oRs0DRHH6SzIpgUoxZLJHMimBSxmDGMlmMGUuDGDOWBjFmLA0yATPxsxV3QUUqnZa1WZtVVJucH/IQO1RGYKaskWpBRU46Hyw6kRENXkHMiB0q2wjMlNHb8XsTkUpH/JyGjiRmxA6VbQRm4mcr7oKKVDri5zSLzmUoiRmxQ2UbgRnp1sy21S8HaYhbs7lFu2+mziwRcd9sfomfrVTEgpBkVg05YwMV4a986B0qMzBjGS/GjKVBjBlLgxgzlgYxZiwNYsxYGpQpzOqFwvqdfd/K/gv73SfFSrUYUdA6d2X70dNJRWZrvNqcgUQmfz27yCNHkbKJpH+LVTtbmB2unNr1Jf8BOZRrxvAb2Rqo7s7K6YwiPrk7mbC3UHUDJHmfqv7e8jTMYiompVnCrP1lPBRnRd9qaM1wMeHvUW2dEFGc3alFRuXuZI6//ilV+t8PQVD3XIqY2d2nZoI+TRnCrL6ijgReO+Go/0cBVpwVCkt40YRlEf8kPdu6O4XlI8FQf6+wCq3Bf+KK7rkXl3705L7Y2H70B4VVgdlhQQTHilBffMSC//roTwsrvyqs/HZn+QgaPbETrBiwN1s0CW1V4dSJpEq8uPTPTl1VvA5vnd2erSLyqqbcuaek+MbOJ88G+Fbw/tDd9zCPYRl3Z4V1+Y3XnKPgT+LQ/+cbSRnEDNqg9trXgRw8rY8cQSMHBPwGWVna926rrwNAsqnCluCPYsX1PTjtUFBsbK8V+3tFeHMG69YljjasxI9fhYLwGc7OKvb+ziGwuBNRMWBvNl59rzsVrqtITol126l7XRYHsg7X1W5hvT3clVjpKWkLDA9xq/pSakN9dZi53LcqPiyj1oksivAPL90Tkqivxzk3GcQMDwgcdXHi8QQJlhAn+dndhqeuqK6IcCDfORUrkDhnI140BTbw1w5YqAtTfV18xPcyEKCo3qimsRi0NzkY8VQQkZwStltXFhGNh7NbLOXWlCuHJW3V0ni+lHx7turJ3N03ftthGfco4RGAA9g9PykJxkxJ9s3aL9fFQZmAmWfbGfyBO5i1H/nZy7ZYoU65eD/ETF0xHDjUaQ3CzI3q25sdjJlTwnbres+w2u0oZrjSU9IewcyzQbS9TggvZp4y6iitqhazeGdiEoyZIxxpQlcVcHMP4Bn0vvaW33Ux8247VFdEt65YoU65eA+YwaVDNAw2/p2LAZe8mHTP+zHr7uB+bDeqb2+2DzMZyS0he4BFl9gzbFmc3WLfzK0pVnpK4nYs7PlSKsS6rCpCePPwlJGvMgsoXPAcBV8S3DdzdYh9XtHMF+H9ah2OGqwqFOUbsfBs+1Vh6SvLL6pOdPsZPMqw4mlRSG58dw9Ly9ridgF0kwt4e+NQ9a0hECx+Kt4t/RWOFIoiyNH43k4xr5UfOBV+qyKpEqJnX1QJqMSX9m21WxxpeneFY4xhSfHFl/Y9X0pu+PUaDi9UCLlvWdxTWa0TWdiSpeAkeKSpUcndNIgWafqt1wn6I1D8TiQ4+j+cVDzCTZ1AMWZRtCjMwjwF8AvJ6F6LVGXsnqMrfgqgUdCpXol17Ugh0mSdyS5EaB2KIWk6YsxYGsSYsTSIMWNpEGPG0iDGjKVB/w/69bSLsnOWCgAAAABJRU5ErkJggg==" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJsUnZibUZzVEdSRGIyNVFaWEp0YVcxd0xuTjJaMXdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TXk0NExDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNJbk4yWjF3aUtTbGNiaUFnZFc1c2FXNXJLRndpVUhSelFVSmtRVzV1YjNsTmJsUnZibUZzVEdSRGIyNVFaWEp0YVcxd0xuTjJaMXdpS1Z4dUlDQmNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJsUnZibUZzVEdSRGIyNVFaWEp0YVcxd0xuQmtabHdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TXk0NExDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNJbkJrWmx3aUtTbGNiaUFnZFc1c2FXNXJLRndpVUhSelFVSmtRVzV1YjNsTmJsUnZibUZzVEdSRGIyNVFaWEp0YVcxd0xuQmtabHdpS1Z4dWZWeHVYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5Ub25hbExkQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTMuOCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5Ub25hbExkQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5Ub25hbExkQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTMuOCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5Ub25hbExkQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnTonalLdConPermimp.svg\, width=8, height=3.8, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnTonalLdConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnTonalLdConPermimp.pdf\, width=8, height=3.8, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnTonalLdConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmxSdmJtRnNUR1JEYjI1UVpYSnRhVzF3TG5OMloxeGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNeTQ0TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY1hITjJaMXhjS1NsY2JpQWdkVzVzYVc1cktGeGNVSFJ6UVVKa1FXNXViM2xOYmxSdmJtRnNUR1JEYjI1UVpYSnRhVzF3TG5OMloxeGNLVnh1SUNCY2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmxSdmJtRnNUR1JEYjI1UVpYSnRhVzF3TG5Ca1pseGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNeTQ0TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY1hIQmtabHhjS1NsY2JpQWdkVzVzYVc1cktGeGNVSFJ6UVVKa1FXNXViM2xOYmxSdmJtRnNUR1JEYjI1UVpYSnRhVzF3TG5Ca1pseGNLVnh1ZlZ4dVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5Ub25hbExkQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTMuOCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5Ub25hbExkQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5Ub25hbExkQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTMuOCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5Ub25hbExkQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNblRvbmFsTGRDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9My44LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNblRvbmFsTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNblRvbmFsTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9My44LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNblRvbmFsTGRDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnTonalLdConPermimp.svg\, width=8, height=3.8, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnTonalLdConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnTonalLdConPermimp.pdf\, width=8, height=3.8, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnTonalLdConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzUwYjI1TVpGWmhjaUE4TFNCY0lsVkJVMVJ2Ymt4a1JVTk5RVkJ2ZDBGMlowSnBibHdpWEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbnRvbkxkVmFyIDwtIFxcVUFTVG9uTGRFQ01BUG93QXZnQmluXFxcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
tonLdVar <- \UASTonLdECMAPowAvgBin\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNTBiMjVNWkZaaGNpQThMU0JjWEZWQlUxUnZia3hrUlVOTlFWQnZkMEYyWjBKcGJseGNYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG50b25MZFZhciA8LSBcXFVBU1RvbkxkRUNNQVBvd0F2Z0JpblxcXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG50b25MZFZhciA8LSBcXFVBU1RvbkxkRUNNQVBvd0F2Z0JpblxcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
tonLdVar <- \UASTonLdECMAPowAvgBin\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### Tonality without tonal loudness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dGaWMxWmhjaXdnWlhabGJuUldZWElzSUdGdFlsWmhjaXdnWENKVlFWTlViMjVoYkVWRFRVRkJkbWROWVhoTVVsd2lMQ0JjSWxWQlUxUnZibUZzVTBoTlNXNTBNRFZGZUUxaGVFeFNYQ0lzSUZ3aVZVRlRWRzl1WVd4VFNFMUpiblJCZG1kTllYaE1VbHdpTENCY0lsVkJVMVJ2Ym1Gc1JVTk5RVEExUlhoTllYaE1VbHdpTENCY0lsVkJVMVJ2Ym1Gc1FYVnlRWFpuVFdGNFRGSmNJaXdnWENKVlFWTlViMjVoYkVGMWNqQTFSWGhOWVhoTVVsd2lMQ0JjSWxWQlUxUnZibUZzUVhWeU1UQkZlRTFoZUV4U1hDSXBYRzVrVm1GeUlEd3RJRndpWkVGdWJtOTVUV1ZoYmx3aVhHNWNibk5sWldSeklEd3RJR01vTVRVMk1EZzVMQ0ExT0RZd0xDQXhNRFV5T0N3Z09EazFOREVzSURRMk9EVXhORFlwWEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbmlWYXJzIDwtIGMoYWJzVmFyLCBldmVudFZhciwgYW1iVmFyLCBcXFVBU1RvbmFsRUNNQUF2Z01heExSXFwsIFxcVUFTVG9uYWxTSE1JbnQwNUV4TWF4TFJcXCwgXFxVQVNUb25hbFNITUludEF2Z01heExSXFwsIFxcVUFTVG9uYWxFQ01BMDVFeE1heExSXFwsIFxcVUFTVG9uYWxBdXJBdmdNYXhMUlxcLCBcXFVBU1RvbmFsQXVyMDVFeE1heExSXFwsIFxcVUFTVG9uYWxBdXIxMEV4TWF4TFJcXClcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYygxNTYwODksIDU4NjAsIDEwNTI4LCA4OTU0MSwgNDY4NTE0NilcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
iVars <- c(absVar, eventVar, ambVar, \UASTonalECMAAvgMaxLR\, \UASTonalSHMInt05ExMaxLR\, \UASTonalSHMIntAvgMaxLR\, \UASTonalECMA05ExMaxLR\, \UASTonalAurAvgMaxLR\, \UASTonalAur05ExMaxLR\, \UASTonalAur10ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(156089, 5860, 10528, 89541, 4685146)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR0ZpYzFaaGNpd2daWFpsYm5SV1lYSXNJR0Z0WWxaaGNpd2dYRnhWUVZOVWIyNWhiRVZEVFVGQmRtZE5ZWGhNVWx4Y0xDQmNYRlZCVTFSdmJtRnNVMGhOU1c1ME1EVkZlRTFoZUV4U1hGd3NJRnhjVlVGVFZHOXVZV3hUU0UxSmJuUkJkbWROWVhoTVVseGNMQ0JjWEZWQlUxUnZibUZzUlVOTlFUQTFSWGhOWVhoTVVseGNMQ0JjWEZWQlUxUnZibUZzUVhWeVFYWm5UV0Y0VEZKY1hDd2dYRnhWUVZOVWIyNWhiRUYxY2pBMVJYaE5ZWGhNVWx4Y0xDQmNYRlZCVTFSdmJtRnNRWFZ5TVRCRmVFMWhlRXhTWEZ3cFhHNWtWbUZ5SUR3dElGeGNaRUZ1Ym05NVRXVmhibHhjWEc1Y2JuTmxaV1J6SUR3dElHTW9NVFUyTURnNUxDQTFPRFl3TENBeE1EVXlPQ3dnT0RrMU5ERXNJRFEyT0RVeE5EWXBYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNUb25hbEVDTUFBdmdNYXhMUlxcLCBcXFVBU1RvbmFsU0hNSW50MDVFeE1heExSXFwsIFxcVUFTVG9uYWxTSE1JbnRBdmdNYXhMUlxcLCBcXFVBU1RvbmFsRUNNQTA1RXhNYXhMUlxcLCBcXFVBU1RvbmFsQXVyQXZnTWF4TFJcXCwgXFxVQVNUb25hbEF1cjA1RXhNYXhMUlxcLCBcXFVBU1RvbmFsQXVyMTBFeE1heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoMTU2MDg5LCA1ODYwLCAxMDUyOCwgODk1NDEsIDQ2ODUxNDYpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNUb25hbEVDTUFBdmdNYXhMUlxcLCBcXFVBU1RvbmFsU0hNSW50MDVFeE1heExSXFwsIFxcVUFTVG9uYWxTSE1JbnRBdmdNYXhMUlxcLCBcXFVBU1RvbmFsRUNNQTA1RXhNYXhMUlxcLCBcXFVBU1RvbmFsQXVyQXZnTWF4TFJcXCwgXFxVQVNUb25hbEF1cjA1RXhNYXhMUlxcLCBcXFVBU1RvbmFsQXVyMTBFeE1heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoMTU2MDg5LCA1ODYwLCAxMDUyOCwgODk1NDEsIDQ2ODUxNDYpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
iVars <- c(absVar, eventVar, ambVar, \UASTonalECMAAvgMaxLR\, \UASTonalSHMInt05ExMaxLR\, \UASTonalSHMIntAvgMaxLR\, \UASTonalECMA05ExMaxLR\, \UASTonalAurAvgMaxLR\, \UASTonalAur05ExMaxLR\, \UASTonalAur10ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(156089, 5860, 10528, 89541, 4685146)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbnAgPC0gbXRyeVR1bmUoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkPXNlZWRzWzE6Ml0sXG4gICAgICAgICAgICAgbnRyZWVzPW50cmVlcywgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuYGBgXG5gYGAifQ== -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWXZZVEl5VG5KcGNubEhMMVYyYlZKNVpsQjZaalZvTHpKNlRITlZWa3hZT1N0NFpubHdZbTVITVRkeFRXNHJZV1ZoWTJNemRtNVlja292WTNFM1VEWTVXakppTjJrclZqaFplWGdyT0RsRk4xWXZPVlpuWjFOcVNHbDBMek55U2xGWVRqVlVUeTh5Y2l0U2RuSXlaMVV2WlVvdlpYVk1VRmM0YmpnNGRsbDJNalJWWXpsR2VHWjNOMWc1TW5reE1ERjZWbGhuWWpkS09VMHlWMlY1TURGeVNpOHhTRmhNZDNabFVIRlFNVVJCZUhRdllqZGtOemxuSzJSVVozRXZNbll2WlM5elNFSlRNWGRRV25rMFFUWjFSVVkyVVU1cFNuSkJVR2RVTmtOMWFEaHJlR2RGZWpFMFIwaEJVWGRqTWt0Qk1FVTBVekl2ZDA5c1pqQkVjRXgzZUZGblFrbDNja2h0U25WaGJrWlJTVmxCTWtoRFNVbEZkVkZpTjBGeWJFMHdVbFpHZUZsdGJHbFZiV2RNYkUwdmN6WjNjVkpaWTJ0MVMwdHhSbk55YzNsM2VFdE1hV1ZNUVVseFp6SmpVbVp1YkdWcVFtSlJSalZwWVc5RE5HZDNNMlJMWTJzMWFXTlZkM0E0UVVWMVZrbFRVM2hNTVRCdmNVRXJiMGM0WmpKb1lUSlFUVXhUYWt4Nk9EUkRZVzFGUTFKRE9WbEJiRzlhWjFwSlRWbHBOa0ZvZUhWcFowRlJjMHBMUmpoQmVtdG1WMGxHUTJGQ00wb3hhVzAxZVZKdGJHVjBjVFpLUWxwdk9HTXdSbVZQY0VvNVJFWkVaazFWU1dwRFRWcHRhRlJwV2paVU9WVlBlV056T0VaTFZFMHZTMmhpVEdKVmRsQlVUWFpHVWxsblMxWnNjSFYxVmxvMllWVmFUVVJEUVVOVFVXdGFjVnB1YkVWRFF6WnhZM2hMVkZWSVNtaEVWV3hNVEc5RmR5dFpSbWxFWnpGeGRtOURaM3BFTm1GaFEzbG9ZWEpHWlZOWU5VbEpNRGhMVm01S09FUkZkMGRJUzNOTkwwRklXRGQwYjJ4T1FYZEJRU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg1MjkzOTlcXCxcXDJcXDpcXDAuODE4NzM5M1xcLFxcM1xcOlxcMC43MDg0MDU4XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNzgxNzI0NFxcLFxcMlxcOlxcMC44NDAyMTc4XFwsXFwzXFw6XFwwLjY0MzM5NTVcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43MDk1Njc0XFwsXFwyXFw6XFwwLjg2MzgyMzJcXCxcXDNcXDpcXDAuNTc5NDQ5OFxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY1OTg0NTFcXCxcXDJcXDpcXDAuODc4NDAwNlxcLFxcM1xcOlxcMC41MzcxMzgxXFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjY5MTQyMlxcLFxcMlxcOlxcMC44NjkzMjk5XFwsXFwzXFw6XFwwLjUzOTQwMjVcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NTAyMTQzXFwsXFwyXFw6XFwwLjg1OTUwNzdcXCxcXDNcXDpcXDAuNTIzNjU5N1xcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cblxuPCEtLSBybmItZnJhbWUtYmVnaW4gZXlKdFpYUmhaR0YwWVNJNmV5SmpiR0Z6YzJWeklqcGJJbVJoZEdFdVpuSmhiV1VpWFN3aWJuSnZkeUk2Tml3aWJtTnZiQ0k2TlN3aWMzVnRiV0Z5ZVNJNmV5SkVaWE5qY21sd2RHbHZiaUk2V3lKa1ppQmJOaUREbHlBMVhTSmRmWDBzSW5Ka1ppSTZJa2cwYzBsQlFVRkJRVUZCUVVKbmRIbHBWRVJ0YVhWQ2FWbEhRbWRhYlVKb1dWZEtaMXBuVlhsSFZtaEVVVGw0TUV4U1oxbG5RVWxOUkVsM1RVeEJlV05KVEc5RGNVVm5XVXBCZGtWbVJVUk5Xbll2WVN0UVF5OTZjbFoyTjFZNWMxYzRUbWhhUzA1c0x5dDZNRzlzVHk5VWNua3haakZ4TVV0cVZEQm1TVkE1VlRsWVNVWmpMMnRrVHpKbWNrUTVOR0oxTnpCSGNta3JWamh4ZGpVM1N6ZzFjazR2Y21aQ1FUYzNTSGxJVUhaWU5qTXpUVVkyWTNaemJqaHFZME5xZVN0RlVuZ3JPV1oyYUVaeVltUnhkbUoyS3pWaVpsTk5kRFJDYkdNek4wMXNNMjV2ZGxsdU4xbFFOMGRSVm05NU9ERXlkaTloVFcwMlMyWjBWbFE1Wnk5TVJDczVPRzVxZFZaMmRVaHNhbVZsVEcxeFRuTklMMUV2TDJKM2NqWnFPVkZFTWpoSlNERkJla0ZVTWtsa1FraFZVR1ZFZUVSb1p6VnFjbmROU1VOQ1FYaDFWVnB2VEZFNWJpdG5PVUU0Ynk5WlZVSkRiRUZEYUdwVmRrMVVaVEZIVFdkUlFVSnpUMFZYVVVvNFp6RXlhR0pKTldkdmIweFRlRTlNVld4UFoyWkhXbVpTTldkVlV6STFTbFZUVjFWNldsVmFiR3hvVlVoQk9GZFJZbGRDYzNscEwxaEJPVzFET0doTVZFRXdVV1EzUTJoUGVWVTFTamRGV1RWb1UxbEpSbVJMV1d0dGFWaHNiMUpWUkN0Uk9YYzVUa016ZEN0UlZXeHRabWcxVVVWNFRXOWpjMFZoZDA1SlVXcEhkMUZaZUVVd2VFSm5aRTVIUVdoQlpWVk1kMUJ1U1VkblVrczRNRU4xVkhSR1RucHBhazU1T1ZreGMxVkRWRnA1TjBsVE1HVjVhbmRJY1U4d1dtOUNUVWhaY2tKQmJrMHZNa2hoZFdWRlFsWTFjV05yV1N0c1RUSlhiWEJsWlcxYVkwdEROME13ZWtoVE9UaHplVlZyWjNoWlIwbEJSVTFzU1hvd2VrNUxXVVZIVm1zMWFWVnRaMDU2VTBWd2NVZGFWRXBDZDNoeVkwWkVja1pTVW13MWMwWlZZM2RHUm1rdlZrczRhM05UV1ZaeE5HdDJUbnBaUTB4blZVZFlORUozUkVScWJTOW9WRkZOUVVGQlBUMGlmUT09IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg1MDA2OTBcXCxcXDJcXDpcXDAuODE2ODg0OFxcLFxcM1xcOlxcMC43MDc1NTU0XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNzcyMjk4OFxcLFxcMlxcOlxcMC44NDc3NjMxXFwsXFwzXFw6XFwwLjYzMTg0ODlcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43MTIzNTc5XFwsXFwyXFw6XFwwLjg2NTE0ODZcXCxcXDNcXDpcXDAuNTgyNjAyOFxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY3MTIyMzhcXCxcXDJcXDpcXDAuODc3MDQ1OFxcLFxcM1xcOlxcMC41NDU4NzM1XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjYwODA5NFxcLFxcMlxcOlxcMC44NzI4MTE2XFwsXFwzXFw6XFwwLjUzODMxMTRcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NDY0NTQ3XFwsXFwyXFw6XFwwLjg2MTE2NTlcXCxcXDNcXDpcXDAuNTE3NTY5NFxcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnYvYTIyTnJpcnlHL1V2bVJ5ZlB6ZjVoLzJ6THNVVkxYOSt4ZnlwYm5HMTdxTW4rYWVhY2Mzdm5YckovY3E3UDY5WjJiN2krVjhZeXgrODlFN1YvOVZnZ1NqSGl0LzNySlFYTjVUTy8ycitSdnIyZ1UvZUovZXVMUFc4bjg4dll2MjRVYzlGeGZ3N1g5MnkxMDF6VlhnYjdKOU0yV2V5MDFySi8xSFhMd3ZlUHFQMURBeHQvYjdkNzlnK2RUZ3EvMnYvZS9zSEJTMXdQWnk0QTZ1RUY2UU5pSnJBUGdUNkN1aDhreGdFejE0R0hBUXdjMktBMEU0UzIvd09sZjBEcEx3eFFnQkl3ckhtSnVhbkZRSVlBMkhDSUlFdVFiN0FybE0wUlZGeFltbGlVbWdMbE0vczZ3cVJZY2t1S0txRnNyc3l3eEtMaWVMQUlxZzJjUmZubGVqQmJRRjVpYW9DNGd3M2RLY2s1aWNVd3A4QUV1VklTU3hMMTBvcUErb0c4ZjJoYTJQTUxTakx6ODRDYW1FQ1JDOVlBbG9aZ1pJTVlpNkFoeHVpZ0FRc0pLRjhBemtmV0lGQ2FCM0oxaW01eVJtbGV0cTZKQlpvOGMwRmVPcEo5REZEZk1VSWpDTVptaFRpWjZUOVVPeWNzOEZLVE0vS2hiTGJVdlBUTXZGUllnS1ZscHV1Vlo2YVVaTURDQUNTUWtacVpubEVDQzZxY3hLVFVISmhEVWxMTG9FdytZRmlEZzFxdm9DZ3pENmFhQ3loYXJGZVNYNUlJMDhLVm5KOERFd0dIS3NNL0FIWDd0b2xOQXdBQSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8529399\,\2\:\0.8187393\,\3\:\0.7084058\,\4\:\2\,\5\:\3.50\},{\1\:\0.7817244\,\2\:\0.8402178\,\3\:\0.6433955\,\4\:\3\,\5\:\2.75\},{\1\:\0.7095674\,\2\:\0.8638232\,\3\:\0.5794498\,\4\:\4\,\5\:\2.25\},{\1\:\0.6598451\,\2\:\0.8784006\,\3\:\0.5371381\,\4\:\5\,\5\:\1.75\},{\1\:\0.6691422\,\2\:\0.8693299\,\3\:\0.5394025\,\4\:\6\,\5\:\1.50\},{\1\:\0.6502143\,\2\:\0.8595077\,\3\:\0.5236597\,\4\:\8\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnYvYStQQy96clZ2N1Y5c1c4TmhaS05sLyt6MG9sTy9UcnkxZjFxMUtqVDBmSVA5VTlYSUZjL2tkTzJmckQ5NGJ1NzBHcmkrVjhxdjU3Szg1ck4vcmZCQTc3SHlIUHZYNjMzTUY2Y3ZzbjhqY0NqeStFUngrOWZ2aEZyYmRxdmJ2KzViZlNNdDRCbGMzN01sM25vdlluN1lQN0dRVm95ODEydi9hTW02S2Z0VlQ5Zy9MRCs5OG5qdVZ2dUhsamVlTG1xTnNIL1EvL2J3cjZqOVFEMjhJSDFBekFUMklkQkhVUGVEeERoZzVqcndNSUNCQXh1VVpvTFE5bitnOUE4by9ZVUJDbEFDaGpVdk1UZTFHTWdRQUJzT0VXUUo4ZzEyaGJJNWdvb0xTeE9MVWxPZ2ZHWmZSNWdVUzI1SlVTV1V6WlVabGxoVUhBOFdRYldCc3lpL1hBOW1DOGhMVEEwUWQ3Q2hPeVU1SjdFWTVoU1lJRmRLWWttaVhsb1JVRCtROXc5TkMzdCtRVWxtZmg1UUV4TW9jc0Vhd05JUWpHd1FZeEUweEJnZE5HQWhBZVVMd1BuSUdnUks4MEN1VHRGTnppak55OVkxc1VDVFp5N0lTMGV5andIcU8wWm9CTUhZckJBbk0vMkhhdWVFQlY1cWNrWStsTTJXbXBlZW1aY0tDN0MwekhTOThzeVVrZ3hZR0lBRU1sSXowek5LWUVHVms1aVVtZ056U0VwcUdaVEpCd3hyY0ZEckZSUmw1c0ZVY3dGRmkvVks4a3NTWVZxNGt2TnpZQ0xnVUdYNEJ3RERqbS9oVFFNQUFBPT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8500690\,\2\:\0.8168848\,\3\:\0.7075554\,\4\:\2\,\5\:\3.50\},{\1\:\0.7722988\,\2\:\0.8477631\,\3\:\0.6318489\,\4\:\3\,\5\:\2.75\},{\1\:\0.7123579\,\2\:\0.8651486\,\3\:\0.5826028\,\4\:\4\,\5\:\2.25\},{\1\:\0.6712238\,\2\:\0.8770458\,\3\:\0.5458735\,\4\:\5\,\5\:\1.75\},{\1\:\0.6608094\,\2\:\0.8728116\,\3\:\0.5383114\,\4\:\6\,\5\:\1.50\},{\1\:\0.6464547\,\2\:\0.8611659\,\3\:\0.5175694\,\4\:\8\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGk5aE1qSk9jbWx5ZVVjdlZYWnRVbmxtVUhwbU5XZ3ZNbnBNYzFWV1RGZzVLM2htZVhCaWJrY3hOM0ZOYml0aFpXRmpZek4yYmxoeVNpOWpjVGRRTmpsYU1tSTNhU3RXT0ZsNWVDczRPVVUzVmk4NVZtZG5VMnBJYVhRdk0zSktVVmhPTlZSUEx6SnlLMUoyY2pKblZTOWxTaTlsZFV4UVZ6aHVPRGgyV1hZeU5GVmpPVVo0Wm5jM1dEa3llVEV3TVhwV1dHZGlOMG81VFRKWFpYa3dNWEpLTHpGSVdFeDNkbVZRY1ZBeFJFRjRkQzlpTjJRM09XY3JaRlJuY1M4eWRpOWxMM05JUWxNeGQxQmFlVFJCTm5WRlJqWlJUbWxLY2tGUVoxUTJRM1ZvT0d0NFowVjZNVFJIU0VGUmQyTXlTMEV3UlRSVE1pOTNUMnhtTUVSd1RIZDRVV2RDU1hkeVNHMUtkV0Z1UmxGSldVRXlTRU5KU1VWMVVXSTNRWEpzVFRCU1ZrWjRXVzFzYVZWdFoweHNUUzl6Tm5keFVsbGphM1ZMUzNGR2MzSnplWGQ0UzB4cFpVeEJTWEZuTW1OU1ptNXNaV3BDWWxGR05XbGhiME0wWjNjelpFdGphelZwWTFWM2NEaEJSWFZXU1ZOVGVFd3hNRzl4UVN0dlJ6aG1NbWhoTWxCTlRGTnFUSG80TkVOaGJVVkRVa001V1VGc2IxcG5Xa2xOV1drMlFXaDRkV2xuUVZGelNrdEdPRUY2YTJaWFNVWkRZVUl6U2pGcGJUVjVVbTFzWlhSeE5rcENXbTg0WXpCR1pVOXdTamxFUmtSbVRWVkpha05OV20xb1ZHbGFObFE1VlU5NVkzTTRSa3RVVFM5TGFHSk1ZbFYyVUZSTmRrWlNXV2RMVm14d2RYVldXalpoVlZwTlJFTkJRMU5SYTFweFdtNXNSVU5ETm5GamVFdFVWVWhLYUVSVmJFeE1iMFYzSzFsR2FVUm5NWEYyYjBObmVrUTJZV0ZEZVdoaGNrWmxVMWcxU1Vrd09FdFdia280UkVWM1IwaExjMDB2UVVoWU4zUnZiRTVCZDBGQkluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuODUyOTM5OVwiLFwiMlwiOlwiMC44MTg3MzkzXCIsXCIzXCI6XCIwLjcwODQwNThcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43ODE3MjQ0XCIsXCIyXCI6XCIwLjg0MDIxNzhcIixcIjNcIjpcIjAuNjQzMzk1NVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjcwOTU2NzRcIixcIjJcIjpcIjAuODYzODIzMlwiLFwiM1wiOlwiMC41Nzk0NDk4XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjU5ODQ1MVwiLFwiMlwiOlwiMC44Nzg0MDA2XCIsXCIzXCI6XCIwLjUzNzEzODFcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NjkxNDIyXCIsXCIyXCI6XCIwLjg2OTMyOTlcIixcIjNcIjpcIjAuNTM5NDAyNVwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY1MDIxNDNcIixcIjJcIjpcIjAuODU5NTA3N1wiLFwiM1wiOlwiMC41MjM2NTk3XCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adi9hMjJOcmlyeUcvVXZtUnlmUHpmNWgvMnpMc1VWTFg5K3hmeXBibkcxN3FNbithZWFjYzN2blhySi9jcTdQNjlaMmI3aStWOFl5eCs4OUU3Vi85VmdnU2pIaXQvM3JKUVhONVRPLzJyK1J2cjJnVS9lSi9ldUxQVzhuODh2WXYyNFVjOUZ4Znc3WDkyeTEwMXpWWGdiN0o5TTJXZXkwMXJKLzFIWEx3dmVQcVAxREF4dC9iN2Q3OWcrZFRncS8ydi9lL3NIQlMxd1BaeTRBNnVFRjZRTmlKckFQZ1Q2Q3VoOGt4Z0V6MTRHSEFRd2MyS0EwRTRTMi93T2xmMERwTHd4UWdCSXdySG1KdWFuRlFJWUEySENJSUV1UWI3QXJsTTBSVkZ4WW1saVVtZ0xsTS9zNndxUllja3VLS3FGc3JzeXd4S0xpZUxBSXFnMmNSZm5sZWpCYlFGNWlhb0M0Z3czZEtjazVpY1V3cDhBRXVWSVNTeEwxMG9xQStvRzhmMmhhMlBNTFNqTHo4NENhbUVDUkM5WUFsb1pnWklNWWk2QWh4dWlnQVFzSktGOEF6a2ZXSUZDYUIzSjFpbTV5Um1sZXRxNkpCWm84YzBGZU9wSjlERkRmTVVJakNNWm1oVGlaNlQ5VU95Y3M4RktUTS9LaGJMYlV2UFRNdkZSWWdLVmxwdXVWWjZhVVpNRENBQ1NRa1pxWm5sRUNDNnFjeEtUVUhKaERVbExMb0V3K1lGaURnMXF2b0NnekQ2YWFDeWhhckZlU1g1SUkwOEtWbko4REV3R0hLc00vQUhYN3RvbE5Bd0FBIn0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8529399","2":"0.8187393","3":"0.7084058","4":"2","5":"3.50"},{"1":"0.7817244","2":"0.8402178","3":"0.6433955","4":"3","5":"2.75"},{"1":"0.7095674","2":"0.8638232","3":"0.5794498","4":"4","5":"2.25"},{"1":"0.6598451","2":"0.8784006","3":"0.5371381","4":"5","5":"1.75"},{"1":"0.6691422","2":"0.8693299","3":"0.5394025","4":"6","5":"1.50"},{"1":"0.6502143","2":"0.8595077","3":"0.5236597","4":"8","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWTROak5ZTlVJck5rWnFPV2t2ZVhKNmVXVmtTMkpYTDNScmNVcDRWWFV5TXk4eVZIaDBWM1J1UW5NemJVZ3ZOVTlGVEVGbEx6Vk1LM2xtVGtZd2IxQnRLMlZFT1dZemFYWldVbEpXYnpaMEx6RnljM2RNWkhWUEswODVjUzlRY1docWJIVlBObnBtT0U0ME9XNTRVREZWWmpkT2QwdGllbEFyZEV0TVVpOTJWWHA2YWpjeU5rTldlbVp6ZDAxRGRpczNORWczUmk5M2JscEpMMWw2VVVkMmRFaEdaRTA0ZEV4MGRUSlVMM050V2xCaVlqTXpRaTl6U0ROd1MwNHZSemszV1ZBMmFscHlUVFV6TlZGYVVVUjVPVWxJZUVGNloxZ3dTVGxDU0ZVdlUwRjRSSEJwTlVScWQwMVpUMFJCUW5GWFdrbE1WRGxJZVdvNVFUQndMMWxaUVVOc1NVSm9lbFYyVFZSVE1FZE5aMVJCYUd0TlJWZFpTamhuTVRKb1lrazJaelJ6VEZONFMweFZSa05wWmpKa1kxSktjMWRUVnpGS1ZVTlhWbnBhV1Zsc1JtaFlTR2N3VmxGaVpVRnplV2t2V0djNWEwTTRhRXBVUVRoUlpHSlBhRTlUWXpWS1RFbFpOVUpUWWtsc1drcFphM0ZwV0ZablZGVkVLMVE1VVRsUVEyNXNPVkZyY0cxbVFqbFVSVUpKY0dOelFXRjNUa0ZSYWtjNFVsbENRVEI0VW1kalRsZEZhRUVyVVVwM1VISkpSMmRrU1RoclMzUlVaRXBOZWxOMlQzbGtWVEJ6TUU5VFdrTXZURk5yWlhocVoxQnhUMFZTY0VKTlJGbHllRTFzVFM4MlNHRlBWMGRDYkRWeFkydFJPV3h6TmxodGNGZG1iWEJqU1VOTVF6QjZXR0U0T0UwMlZXdEJlRmxIU1VsSFRURk5lakJxUWtwWlZVOVZhMHB4V0cxM1FubFRhMnh2UjFwbVNVSjNlRzlqTVVodlJsSmFiRFZOVGxaalVVNUdhWFphVERocmExTlpSbkUzYXk5Q2VWbERSR2hWUjJZMFFrRkZPSEJxYms1T1FYZEJRU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg1NjM1MzZcXCxcXDJcXDpcXDAuODEzMjE4M1xcLFxcM1xcOlxcMC43MTA5NDU2XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNzYzNjUxM1xcLFxcMlxcOlxcMC44NTAzOTUzXFwsXFwzXFw6XFwwLjYyNTgyNTBcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43MDgyODM1XFwsXFwyXFw6XFwwLjg2ODc5MTdcXCxcXDNcXDpcXDAuNTc3MjIwMVxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY3MTk1NThcXCxcXDJcXDpcXDAuODc1MjIwMlxcLFxcM1xcOlxcMC41NDg0MTQ0XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjUyNTc2NVxcLFxcMlxcOlxcMC44NzcwMzgxXFwsXFwzXFw6XFwwLjUzMDE5ODVcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NDA5Njg1XFwsXFwyXFw6XFwwLjg2NDAzMzdcXCxcXDNcXDpcXDAuNTE1MjIyMVxcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnY4NjNYNUIrNkZqOWkveXJ6eWVkS2JXL3RrcUp4VXUyMy8yVHh0V3RuQnMzbUgvNU9FTEFlLzVMK3lmTkYwb1BtK2VEOWYzaXZWUlJWbzZ0LzFyc3dMZHVPK085cS9QcWhqbHVPNnpmOE40OW54UDFVZjdOd0tielArdEtMUi92VXp6ajcyNkNWemZzd01Ddis3NEg3Ri93blpJL1l6UUd2dEhGZE04dEx0dTJUL3NtWlBiYjMzQi9zSDNwS04vRzk3WVA2alpyTTUzNVFaUUR5OUlIeEF6Z1gwSTlCSFUvU0F4RHBpNURqd01ZT0RBQnFXWklMVDlIeWo5QTBwL1lZQUNsSUJoelV2TVRTMEdNZ1RBaGtNRVdZSjhnMTJoYkk2ZzRzTFN4S0xVRkNpZjJkY1JKc1dTVzFKVUNXVnpaWVlsRmhYSGcwVlFiZUFzeWkvWGc5a0M4aEpUQThRZGJPaE9TYzVKTElZNUJTYklsWkpZa3FpWFZnVFVEK1Q5UTlQQ25sOVFrcG1mQjlURUJJcGNzQWF3TkFRakc4UllCQTB4UmdjTldFaEErUUp3UHJJR2dkSThrS3RUZEpNelN2T3lkVTBzME9TWkMvTFNrZXhqZ1BxT0VScEJNRFlyeE1sTS82SGFPV0dCbDVxY2tROWxzNlhtcFdmbXBjSUNMQzB6WGE4OE02VWtBeFlHSUlHTTFNejBqQkpZVU9Va0pxWG13QnlTa2xvR1pmSUJ3eG9jMUhvRlJabDVNTlZjUU5GaXZaTDhra1NZRnE3ay9CeVlDRGhVR2Y0QkFFOHBqbk5OQXdBQSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8563536\,\2\:\0.8132183\,\3\:\0.7109456\,\4\:\2\,\5\:\3.50\},{\1\:\0.7636513\,\2\:\0.8503953\,\3\:\0.6258250\,\4\:\3\,\5\:\2.75\},{\1\:\0.7082835\,\2\:\0.8687917\,\3\:\0.5772201\,\4\:\4\,\5\:\2.25\},{\1\:\0.6719558\,\2\:\0.8752202\,\3\:\0.5484144\,\4\:\5\,\5\:\1.75\},{\1\:\0.6525765\,\2\:\0.8770381\,\3\:\0.5301985\,\4\:\6\,\5\:\1.50\},{\1\:\0.6409685\,\2\:\0.8640337\,\3\:\0.5152221\,\4\:\8\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGk5aEsxQkRMM3B5Vm5ZM1ZqbHpWemhPYUZwTFRtd3ZLM293YjJ4UEwxUnllVEZtTVhFeFMycFVNR1pKVURsVk9WaEpSbU12YTJSUE1tWnlSRGswWW5VM01FZHlhU3RXT0hGMk5UZExPRFZ5VGk5eVprSkJOemRJZVVoUWRsZzJNek5OUmpaamRuTnVPR3BqUTJwNUswVlNlQ3M1Wm5ab1JuSmlaSEYyWW5Zck5XSm1VMDEwTkVKc1l6TTNUV3d6Ym05MldXNDNXVkEzUjFGV2IzazRNVEoyTDJGTmJUWkxablJXVkRsbkwweEVLems0Ym1wMVZuWjFTR3hxWldWTWJYRk9jMGd2VVM4dlluZHlObW81VVVReU9FbElNVUY2UVZReVNXUkNTRlZRWlVSNFJHaG5OV3B5ZDAxSlEwSkJlSFZWV205TVVUbHVLMmM1UVRodkwxbFZRa05zUVVOb2FsVjJUVlJsTVVkTloxRkJRbk5QUlZkUlNqaG5NVEpvWWtrMVoyOXZURk40VDB4VmJFOW5aa2RhWmxJMVoxVlRNalZLVlZOWFZYcGFWVnBzYkdoVlNFRTRWMUZpVjBKemVXa3ZXRUU1YlVNNGFFeFVRVEJSWkRkRGFFOTVWVFZLTjBWWk5XaFRXVWxHWkV0WmEyMXBXR3h2VWxWRUsxRTVkemxPUXpOMEsxRlZiRzFtYURWUlJYaE5iMk56UldGM1RrbFJha2QzVVZsNFJUQjRRbWRrVGtkQmFFRmxWVXgzVUc1SlIyZFNTemd3UTNWVWRFWk9lbWxxVG5rNVdURnpWVU5VV25rM1NWTXdaWGxxZDBoeFR6QmFiMEpOU0ZseVFrRnVUUzh5U0dGMVpVVkNWalZ4WTJ0WksyeE5NbGR0Y0dWbGJWcGpTME0zUXpCNlNGTTVPSE41Vld0bmVGbEhTVUZGVFd4SmVqQjZUa3RaUlVkV2F6VnBWVzFuVG5wVFJYQnhSMXBVU2tKM2VISmpSa1J5UmxKU2JEVnpSbFZqZDBaR2FTOVdTemhyYzFOWlZuRTBhM1pPZWxsRFRHZFZSMWcwUW5kRVJHcHRMMmhVVVUxQlFVRTlQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjg1MDA2OTBcIixcIjJcIjpcIjAuODE2ODg0OFwiLFwiM1wiOlwiMC43MDc1NTU0XCIsXCI0XCI6XCIyXCIsXCI1XCI6XCIzLjUwXCJ9LHtcIjFcIjpcIjAuNzcyMjk4OFwiLFwiMlwiOlwiMC44NDc3NjMxXCIsXCIzXCI6XCIwLjYzMTg0ODlcIixcIjRcIjpcIjNcIixcIjVcIjpcIjIuNzVcIn0se1wiMVwiOlwiMC43MTIzNTc5XCIsXCIyXCI6XCIwLjg2NTE0ODZcIixcIjNcIjpcIjAuNTgyNjAyOFwiLFwiNFwiOlwiNFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY3MTIyMzhcIixcIjJcIjpcIjAuODc3MDQ1OFwiLFwiM1wiOlwiMC41NDU4NzM1XCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjYwODA5NFwiLFwiMlwiOlwiMC44NzI4MTE2XCIsXCIzXCI6XCIwLjUzODMxMTRcIixcIjRcIjpcIjZcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42NDY0NTQ3XCIsXCIyXCI6XCIwLjg2MTE2NTlcIixcIjNcIjpcIjAuNTE3NTY5NFwiLFwiNFwiOlwiOFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzZdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adi9hK1BDL3pyVnY3VjlzVzhOaFpLTmwvK3owb2xPL1RyeTFmMXExS2pUMGZJUDlVOVhJRmMva2RPMmZyRDk0YnU3MEdyaStWOHF2NTdLODVyTi9yZkJBNzdIeUhQdlg2MzNNRjZjdnNuOGpjQ2p5K0VSeCs5ZnZoRnJiZHF2YnYrNWJmU010NEJsYzM3TWwzbm92WW43WVA3R1FWb3k4MTJ2L2FNbTZLZnRWVDlnL0xEKzk4bmp1VnZ1SGxqZWVMbXFOc0gvUS8vYndyNmo5UUQyOElIMUF6QVQySWRCSFVQZUR4RGhnNWpyd01JQ0JBeHVVWm9MUTluK2c5QThvL1lVQkNsQUNoalV2TVRlMUdNZ1FBQnNPRVdRSjhnMTJoYkk1Z29vTFN4T0xVbE9nZkdaZlI1Z1VTMjVKVVNXVXpaVVpsbGhVSEE4V1FiV0JzeWkvWEE5bUM4aExUQTBRZDdDaE95VTVKN0VZNWhTWUlGZEtZa21pWGxvUlVEK1E5dzlOQzN0K1FVbG1maDVRRXhNb2NzRWF3TklRakd3UVl4RTB4QmdkTkdBaEFlVUx3UG5JR2dSSzgwQ3VUdEZOemlqTnk5WTFzVUNUWnk3SVMwZXlqd0hxTzBab0JNSFlyQkFuTS8ySGF1ZUVCVjVxY2tZK2xNMldtcGVlbVpjS0M3QzB6SFM5OHN5VWtneFlHSUFFTWxJejB6TktZRUdWazVpVW1nTnpTRXBxR1pUSkJ3eHJjRkRyRlJSbDVzRlVjd0ZGaS9WSzhrc1NZVnE0a3ZOellDTGdVR1g0QndERGptL2hUUU1BQUE9PSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8500690","2":"0.8168848","3":"0.7075554","4":"2","5":"3.50"},{"1":"0.7722988","2":"0.8477631","3":"0.6318489","4":"3","5":"2.75"},{"1":"0.7123579","2":"0.8651486","3":"0.5826028","4":"4","5":"2.25"},{"1":"0.6712238","2":"0.8770458","3":"0.5458735","4":"5","5":"1.75"},{"1":"0.6608094","2":"0.8728116","3":"0.5383114","4":"6","5":"1.50"},{"1":"0.6464547","2":"0.8611659","3":"0.5175694","4":"8","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWTRObTVVWmpjMlF6Uk9LM2htV2s0MmNXcFdkWGwzWmpkaE5DOUNSVXhtTlc0NU1DdHBlams1V2preFRHUXZPRzFVUWtvdlNIUlZabHBRU205U1lYcFBVMVJuVDNRM1NtUkdlbk12VlRKbkx6RnlkWGxQY0hReGN6TXlUQ3NyTW5adU9YSmxWVW9yZW1OamVUQldWSFF2Tm5obU9GQmhaRmxYYmpGellpczVWVXMzU3pSbVZVa3JSRFp1ZFRKa01sWXZUblpqYml0cFpta3lVVFEyUjNRcmQyWTFWRFUzU201c1JuY3ZOV2hpZFRSTFZ6TkZaQ3QzWXk5emRIRkVLMUJRYzBoNlVqZ3lOVnB0UW1KTFVFWTJVVkJwU201QlVHZFVOa05QY0N0clFtZElla1ozU0VobldYZGpSME5FTUd0M1VUSjJORkJzVURSQ2NHSTRkMUZCUmt0M1RFUnRTbVZoYlVablRWcEJiVVJFU1ZsSmMxRmlOMEp5YkVFeVVqRkNlRmxYYkdsVlYyOUxiRTB2Y3paM2FWUlpjMnQwUzJGeFJYTnlhM2wzZUV0TWFYVlFRa2x4WnpKalFtSnNiQ3QyUW1KQlJqVnBZV3RDTkdjME1tUkxZMnMxZVZGWGR6VjNRMFVyVWt0VFUzaEtNVVZ6Y2tGMWIwZzRkalpvWVZkSVVFeDVha3A2VFRoRVlXMUpRMUpUTlZsQk1XZGhaM0JGVGxscGVVTm9hR2xxWjNkWmMwcExRamhCVkdkbVYxbE9RV0ZTTjBreFUyMDJlVkp0YkdWa2JUWkthRnB2T0hOM1JtVmxiRWs1YWtaQlptTmpTV3BUUVZsdGVGaHBXa3RpTDFWUE1tTnpUVUpNVkdNM1NXZzNURnBWZGxCVFRTOU9VMWxSUjFkc2NHMTFWalUyV2xWd1NVSkRkMDlSVVVWYWNWcHVjRWREVTNsdlkyaExWRlZ1VG1kRWEyeEtURmxOZVN0WlFtaEVVVFZ4ZGxsTGFYcEVlVmxoYVRabllVeEdaVk5ZTlVwSmEzZE1Wak5LSzBScmQwVklTMjlOTDNkQ05UTjBTbGhVVVUxQlFVRTlQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg1NjMyOTZcXCxcXDJcXDpcXDAuODE1NDk2OFxcLFxcM1xcOlxcMC43MTA2NDQ1XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNzYzMTY0OFxcLFxcMlxcOlxcMC44NTE0MTIwXFwsXFwzXFw6XFwwLjYyNzg5NDhcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43MDc0NTQ2XFwsXFwyXFw6XFwwLjg2OTgxNjhcXCxcXDNcXDpcXDAuNTc1OTE1OFxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY2NzQ1NjZcXCxcXDJcXDpcXDAuODc2MDU2MlxcLFxcM1xcOlxcMC41NDQ2MDgwXFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjUyOTA4OFxcLFxcMlxcOlxcMC44NzU2NzY2XFwsXFwzXFw6XFwwLjUzMDMyNDJcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NDI2MTg4XFwsXFwyXFw6XFwwLjg2MzQzMzNcXCxcXDNcXDpcXDAuNTE1NzQyNlxcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnY4Nm5UZjc2QzROK3hmWk42cWpWdXl3ZjdhNC9CRUxmNW45MCtpejk5WjkxTGQvOG1UQkovSHRVZlpQSm9SYXpPU1RnT3Q3SmRGenMvVTJnLzFydXlPcHQxczMyTCsrMnZuOXJlVUoremNjeTBWVHQvNnhmOFBhZFlXbjFzYis5VUs3SzRmVUkrRDZudTJkMlYvTnZjbitpZmkyUTQ2R3Qrd2Y1VDU3Sm5sRncvNWhidTRLVzNFZCt3Yy9zdHFEK1BQc0h6UjgyNVptQmJLUEY2UVBpSm5BUGdUNkNPcCtrQmdIekZ3SEhnWXdjR0NEMGt3UTJ2NFBsUDRCcGI4d1FBRkt3TERtSmVhbUZnTVpBbURESVlJc1FiN0JybEEyUjFCeFlXbGlVV29LbE0vczZ3aVRZc2t0S2FxRXNya3l3eEtMaXVQQklxZzJjQmJsbCt2QmJBRjVpYWtCNGc0MmRLY2s1eVFXdzV3Q0UrUktTU3hKMUVzckF1b0g4djZoYVdIUEx5akp6TThEYW1JQ1JTNVlBMWdhZ3BFTllpeUNoaGlqZ3dZc0pLQjhBVGdmV1lOQWFSN0kxU202eVJtbGVkbTZKaFpvOHN3RmVlbEk5akZBZmNjSWpTQVlteFhpWktiL1VPMmNzTUJMVGM3SWg3TFpVdlBTTS9OU1lRR1dscG11VjU2WlVwSUJDd09RUUVacVpucEdDU3lvY2hLVFVuTmdEa2xKTFlNeStZQmhEUTVxdllLaXpEeVlhaTZnYUxGZVNYNUpJa3dMVjNKK0Rrd0VIS29NL3dCNTN0SlhUUU1BQUE9PSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8563296\,\2\:\0.8154968\,\3\:\0.7106445\,\4\:\2\,\5\:\3.50\},{\1\:\0.7631648\,\2\:\0.8514120\,\3\:\0.6278948\,\4\:\3\,\5\:\2.75\},{\1\:\0.7074546\,\2\:\0.8698168\,\3\:\0.5759158\,\4\:\4\,\5\:\2.25\},{\1\:\0.6674566\,\2\:\0.8760562\,\3\:\0.5446080\,\4\:\5\,\5\:\1.75\},{\1\:\0.6529088\,\2\:\0.8756766\,\3\:\0.5303242\,\4\:\6\,\5\:\1.50\},{\1\:\0.6426188\,\2\:\0.8634333\,\3\:\0.5157426\,\4\:\8\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGpnMk0xZzFRaXMyUm1vNWFTOTVjbnA1WldSTFlsY3ZkR3R4U25oVmRUSXpMekpVZUhSWGRHNUNjek50U0M4MVQwVk1RV1V2TlV3cmVXWk9SakJ2VUcwclpVUTVaak5wZGxaU1VsWnZOblF2TVhKemQweGtkVThyVHpseEwxQnhhR3BzZFU4MmVtWTRUalE1Ym5oUU1WVm1OMDUzUzJKNlVDdDBTMHhTTDNaVmVucHFOekkyUTFaNlpuTjNUVU4yS3pjMFNEZEdMM2R1V2trdldYcFJSM1owU0Vaa1RUaDBUSFIxTWxRdmMyMWFVR0ppTXpOQ0wzTklNM0JMVGk5SE9UZFpVRFpxV25KTk5UTTFVVnBSUkhrNVNVaDRRWHBuV0RCSk9VSklWUzlUUVhoRWNHazFSR3AzVFZsUFJFRkNjVmRhU1V4VU9VaDVhamxCTUhBdldWbEJRMnhKUW1oNlZYWk5WRk13UjAxblZFRm9hMDFGVjFsS09HY3hNbWhpU1Rabk5ITk1VM2hMVEZWR1EybG1NbVJqVWtwelYxTlhNVXBWUTFkV2VscFpXV3hHYUZoSVp6QldVV0psUVhONWFTOVlaemxyUXpob1NsUkJPRkZrWWs5b1QxTmpOVXBNU1ZrMVFsTmlTV3hhU2xscmNXbFlWbWRVVlVRclZEbFJPVkJEYm13NVVXdHdiV1pDT1ZSRlFrbHdZM05CWVhkT1FWRnFSemhTV1VKQk1IaFNaMk5PVjBWb1FTdFJTbmRRY2tsSFoyUkpPR3RMZEZSa1NrMTZVM1pQZVdSVk1ITXdUMU5hUXk5TVUydGxlR3BuVUhGUFJWSndRazFFV1hKNFRXeE5MelpJWVU5WFIwSnNOWEZqYTFFNWJITTJXRzF3VjJadGNHTkpRMHhETUhwWVlUZzRUVFpWYTBGNFdVZEpTVWROTVUxNk1HcENTbGxWVDFWclNuRlliWGRDZVZOcmJHOUhXbVpKUW5kNGIyTXhTRzlHVWxwc05VMU9WbU5SVGtacGRscE1PR3RyVTFsR2NUZHJMMEo1V1VORWFGVkhaalJDUVVVNGNHcHVUazVCZDBGQkluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuODU2MzUzNlwiLFwiMlwiOlwiMC44MTMyMTgzXCIsXCIzXCI6XCIwLjcxMDk0NTZcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43NjM2NTEzXCIsXCIyXCI6XCIwLjg1MDM5NTNcIixcIjNcIjpcIjAuNjI1ODI1MFwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjcwODI4MzVcIixcIjJcIjpcIjAuODY4NzkxN1wiLFwiM1wiOlwiMC41NzcyMjAxXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjcxOTU1OFwiLFwiMlwiOlwiMC44NzUyMjAyXCIsXCIzXCI6XCIwLjU0ODQxNDRcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NTI1NzY1XCIsXCIyXCI6XCIwLjg3NzAzODFcIixcIjNcIjpcIjAuNTMwMTk4NVwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY0MDk2ODVcIixcIjJcIjpcIjAuODY0MDMzN1wiLFwiM1wiOlwiMC41MTUyMjIxXCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adjg2M1g1Qis2Rmo5aS95cnp5ZWRLYlcvdGtxSnhVdTIzLzJUeHRXdG5CczNtSC81T0VMQWUvNUwreWZORjBvUG0rZUQ5ZjNpdlZSUlZvNnQvMXJzd0xkdU8rTzlxL1BxaGpsdU82emY4TjQ5bnhQMVVmN053S2J6UCt0S0xSL3ZVenpqNzI2Q1Z6ZnN3TUN2Kzc0SDdGL3duWkkvWXpRR3Z0SEZkTTh0THR1MlQvc21aUGJiMzNCL3NIM3BLTi9HOTdZUDZqWnJNNTM1UVpRRHk5SUh4QXpnWDBJOUJIVS9TQXhEcGk1RGp3TVlPREFCcVdaSUxUOUh5ajlBMHAvWVlBQ2xJQmh6VXZNVFMwR01nVEFoa01FV1lKOGcxMmhiSTZnNHNMU3hLTFVGQ2lmMmRjUkpzV1NXMUpVQ1dWelpZWWxGaFhIZzBWUWJlQXN5aS9YZzlrQzhoSlRBOFFkYk9oT1NjNUpMSVk1QlNiSWxaSllrcWlYVmdUVUQrVDlROVBDbmw5UWtwbWZCOVRFQklwY3NBYXdOQVFqRzhSWUJBMHhSZ2NOV0VoQStRSndQcklHZ2RJOGtLdFRkSk16U3ZPeWRVMHMwT1NaQy9MU2tleGpnUHFPRVJwQk1EWXJ4TWxNLzZIYU9XR0JsNXFja1E5bHM2WG1wV2ZtcGNJQ0xDMHpYYTg4TTZVa0F4WUdJSUdNMU16MGpCSllVT1VrSnFYbXdCeVNrbG9HWmZJQnd4b2MxSG9GUlpsNU1OVmNRTkZpdlpMOGtrU1lGcTdrL0J5WUNEaFVHZjRCQUU4cGpuTk5Bd0FBIn0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8563536","2":"0.8132183","3":"0.7109456","4":"2","5":"3.50"},{"1":"0.7636513","2":"0.8503953","3":"0.6258250","4":"3","5":"2.75"},{"1":"0.7082835","2":"0.8687917","3":"0.5772201","4":"4","5":"2.25"},{"1":"0.6719558","2":"0.8752202","3":"0.5484144","4":"5","5":"1.75"},{"1":"0.6525765","2":"0.8770381","3":"0.5301985","4":"6","5":"1.50"},{"1":"0.6409685","2":"0.8640337","3":"0.5152221","4":"8","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWXZZUzg0TDJ3NFRXTlNPV2tyYld4R2FVaHliVmQ1WmpOYWVYQlpOMUl2UW5vM2NETldiR0pDVFhwbU9YTXZNbGc1VWxwRWNETnZVREpVUjFwNGNuRnJiMncwVUhCbFMyUXdTMk42TUhCYWRqbGhWVmREWmxZM2VVY3ZaWE5xWkZaWGJWQllZakppZUdoMk5teDBiMGRPYVM5RldFdFRNM056WmxsMk9UWk1kWFZLZEZsaldUUlFjV1Z5WlcxMVZqSXdjbk51T1dsUVVFNVdOemxaTWlzd1kzcFFVaXRNU25saVdsQXlkMUk0V2poWmRUaFlLM2RVVDA1T09FWXZOaXN3WmpGSU5tWjFURlJ6Um14QlVFd3daMlpGUkU5Q1psRnFNRVZrVkRsSlJFVlBiVXhyVDFCQmVHYzBUVUZIY0ZwclozUlFNR1pMVURCRVUyNDVhR2RCUzFWblIwaE9Vemg0VGt4UldYbENUVU5IVVhkU1dtZHVlVVJZWVVaemFuRkVhWGQwVEVWdmRGRlZTMG92V2pGNFJXMTRXa3BpVld4UlNscFlUbXhvYVZWWFJtTmxSRkpXUW5RMFEzcExURGxsUkRKUlRIbEZiRTFFZUVJeGN6WkZOVXA2YTJ0emFHcHJSa3B6YVZacmJHbFRjVXBrVjBKT1VWQTFVREZFTURoTFpWZ3hRMU50V2poSU1VMVJSV2xzZVhkQ2NrRXdRa05OWW5oR1owVkVWRVpIUW5jeFdWTkZSRFZCYmtFcmMyZGhRakJxZVZGeE1VNHdhM3BPU3pnM1NqRlVVM3BSTlVwclREaDBTMUkzUjA5QksyODBVa2RyUlhkT2FYWkZlVlY2TDI5a2J6VlpXVWRZYlhCNVVrUXlWM3B3WldGc1dpdGhiSGRuU1hOTVZFNWtjbnAzZW5CVFVVUkdaMWxuWjFsNlZYcFFVMDFGYkdoUk5WTlJiWEJsWWtGSVNrdFRWMmRhYkRoblNFUkhhSHBWWldkV1JtMVlhM2N4Vm5oQk1GZExPV3QyZVZOU1NtZFhjblZVT0VoS1owbFBSbEZhTDJkRlFVMDVLMlJQTURCRVFVRkJQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg1MzUxNDFcXCxcXDJcXDpcXDAuODE2NzU0NVxcLFxcM1xcOlxcMC43MDg1NjI2XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNzY4MTIxOFxcLFxcMlxcOlxcMC44NDc3ODYzXFwsXFwzXFw6XFwwLjYzMTI5OTBcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43MTIxMTY4XFwsXFwyXFw6XFwwLjg2NzczNjFcXCxcXDNcXDpcXDAuNTgxMjEyMFxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY3MTY4NzFcXCxcXDJcXDpcXDAuODc1MjI1NlxcLFxcM1xcOlxcMC41NDczNzMwXFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjQ4NDE1MVxcLFxcMlxcOlxcMC44NzcyMjg4XFwsXFwzXFw6XFwwLjUyODA5NTdcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NDM1NTkzXFwsXFwyXFw6XFwwLjg2MjkxNzhcXCxcXDNcXDpcXDAuNTE1Mzc2OFxcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnYvYS84L2w4TWNSOWkrbWxGaUhybVd5ZjNaeXBZN1IvQno3cDNWbGJCTXpmOXMvMlg5UlpEcDNvUDJUR1p4cnFrb2w0UHBlS2QwS2N6MHBadjlhVVdDZlY3eUcvZXNqZFZXbVBYYjJieGh2Nmx0b0dOaS9FWEtTM3NzZll2OTZMdXVKdFljWTRQcWVyZW11VjIwcnNuOWlQUE5WNzlZMiswY3pQUitMSnliWlAyd1I4WjhZdThYK3dUT05OOEYvNiswZjFINmZ1TFRzRmxBUEwwZ2ZFRE9CZlFqMEVkVDlJREVPbUxrT1BBeGc0TUFHcFprZ3RQMGZLUDBEU245aGdBS1VnR0hOUzh4TkxRWXlCTUNHUXdSWmdueURYYUZzanFEaXd0TEVvdFFVS0ovWjF4RW14WkpiVWxRSlpYTmxoaVVXRmNlRFJWQnQ0Q3pLTDllRDJRTHlFbE1EeEIxczZFNUp6a2tzaGprRkpzaVZrbGlTcUpkV0JOUVA1UDFEMDhLZVgxQ1NtWjhIMU1RRWlseXdCckEwQkNNYnhGZ0VEVEZHQncxWVNFRDVBbkErc2dhQjBqeVFxMU4wa3pOSzg3SjFUU3pRNUprTDh0S1I3R09BK280UkdrRXdOaXZFeVV6L29kbzVZWUdYbXB5UkQyV3pwZWFsWithbHdnSXNMVE5kcnp3enBTUURGZ1lnZ1l6VXpQU01FbGhRNVNRbXBlYkFISktTV2dabDhnSERHaHpVZWdWRm1Ya3cxVnhBMFdLOWt2eVNSSmdXcnVUOEhKZ0lPRlFaL2dFQU05K2RPMDBEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8535141\,\2\:\0.8167545\,\3\:\0.7085626\,\4\:\2\,\5\:\3.50\},{\1\:\0.7681218\,\2\:\0.8477863\,\3\:\0.6312990\,\4\:\3\,\5\:\2.75\},{\1\:\0.7121168\,\2\:\0.8677361\,\3\:\0.5812120\,\4\:\4\,\5\:\2.25\},{\1\:\0.6716871\,\2\:\0.8752256\,\3\:\0.5473730\,\4\:\5\,\5\:\1.75\},{\1\:\0.6484151\,\2\:\0.8772288\,\3\:\0.5280957\,\4\:\6\,\5\:\1.50\},{\1\:\0.6435593\,\2\:\0.8629178\,\3\:\0.5153768\,\4\:\8\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGpnMmJsUm1OelpETkU0cmVHWmFUalp4YWxaMWVYZG1OMkUwTDBKRlRHWTFiamt3SzJsNk9UbGFPVEZNWkM4NGJWUkNTaTlJZEZWbVdsQktiMUpoZWs5VFZHZFBkRGRLWkVaNmN5OVZNbWN2TVhKMWVVOXdkREZ6TXpKTUt5c3lkbTQ1Y21WVlNpdDZZMk41TUZaVWRDODJlR1k0VUdGa1dWZHVNWE5pS3psVlN6ZExOR1pWU1N0RU5tNTFNbVF5Vmk5T2RtTnVLMmxtYVRKUk5EWkhkQ3QzWmpWVU5UZEtibXhHZHk4MWFHSjFORXRYTTBWa0szZGpMM04wY1VRclVGQnpTSHBTT0RJMVdtMUNZa3RRUmpaUlVHbEtia0ZRWjFRMlEwOXdLMnRDWjBoNlJuZElTR2RaZDJOSFEwUXdhM2RSTW5ZMFVHeFFORUp3WWpoM1VVRkdTM2RNUkcxS1pXRnRSbWROV2tGdFJFUkpXVWx6VVdJM1FuSnNRVEpTTVVKNFdWZHNhVlZYYjB0c1RTOXpObmRwVkZsemEzUkxZWEZGYzNKcmVYZDRTMHhwZFZCQ1NYRm5NbU5DWW14c0szWkNZa0ZHTldsaGEwSTBaelF5WkV0amF6VjVVVmQzTlhkRFJTdFNTMU5UZUVveFJYTnlRWFZ2U0RoMk5taGhWMGhRVEhscVNucE5PRVJoYlVsRFVsTTFXVUV4WjJGbmNFVk9XV2w1UTJob2FXcG5kMWx6U2t0Q09FRlVaMlpYV1U1QllWSTNTVEZUYlRaNVVtMXNaV1J0Tmtwb1dtODRjM2RHWldWc1NUbHFSa0ZtWTJOSmFsTkJXVzE0V0dsYVMySXZWVTh5WTNOTlFreFVZemRKYURkTVdsVjJVRk5OTDA1VFdWRkhWMnh3YlhWV05UWmFWWEJKUWtOM1QxRlJSVnB4V201d1IwTlRlVzlqYUV0VVZXNU9aMFJyYkVwTVdVMTVLMWxDYUVSUk5YRjJXVXRwZWtSNVdXRnBObWRoVEVabFUxZzFTa2xyZDB4V00wb3JSR3QzUlVoTGIwMHZkMEkxTTNSS1dGUlJUVUZCUVQwOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuODU2MzI5NlwiLFwiMlwiOlwiMC44MTU0OTY4XCIsXCIzXCI6XCIwLjcxMDY0NDVcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43NjMxNjQ4XCIsXCIyXCI6XCIwLjg1MTQxMjBcIixcIjNcIjpcIjAuNjI3ODk0OFwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjcwNzQ1NDZcIixcIjJcIjpcIjAuODY5ODE2OFwiLFwiM1wiOlwiMC41NzU5MTU4XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjY3NDU2NlwiLFwiMlwiOlwiMC44NzYwNTYyXCIsXCIzXCI6XCIwLjU0NDYwODBcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NTI5MDg4XCIsXCIyXCI6XCIwLjg3NTY3NjZcIixcIjNcIjpcIjAuNTMwMzI0MlwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY0MjYxODhcIixcIjJcIjpcIjAuODYzNDMzM1wiLFwiM1wiOlwiMC41MTU3NDI2XCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adjg2blRmNzZDNE4reGZaTjZxalZ1eXdmN2E0L0JFTGY1bjkwK2l6OTlaOTFMZC84bVRCSi9IdFVmWlBKb1Jhek9TVGdPdDdKZEZ6cy9VMmcvMXJ1eU9wdDFzMzJMKysydm45cmVVSit6Y2N5MFZUdC82eGY4UGFkWVduMXNiKzlVSzdLNGZVSStENm51MmQyVi9OdmNuK2lmaTJRNDZHdCt3ZjVUNTdKbmxGdy81aGJ1NEtXM0VkK3djL3N0cUQrUFBzSHpSODI1Wm1CYktQRjZRUGlKbkFQZ1Q2Q09wK2tCZ0h6RndISGdZd2NHQ0Qwa3dRMnY0UGxQNEJwYjh3UUFGS3dMRG1KZWFtRmdNWkFtRERJWUlzUWI3QnJsQTJSMUJ4WVdsaVVXb0tsTS9zNndpVFlza3RLYXFFc3JreXd4S0xpdVBCSXFnMmNCYmxsK3ZCYkFGNWlha0I0ZzQyZEtjazV5UVd3NXdDRStSS1NTeEoxRXNyQXVvSDh2NmhhV0hQTHlqSnpNOERhbUlDUlM1WUExZ2FncEVOWWl5Q2hoaWpnd1lzSktCOEFUZ2ZXWU5BYVI3STFTbTZ5Um1sZWRtNkpoWm84c3dGZWVsSTlqRkFmY2NJalNBWW14WGlaS2IvVU8yY3NNQkxUYzdJaDdMWlV2UFNNL05TWVFHV2xwbXVWNTZaVXBJQkN3T1FRRVpxWm5wR0NTeW9jaEtUVW5OZ0RrbEpMWU15K1lCaERRNXF2WUtpekR5WWFpNmdhTEZlU1g1Sklrd0xWM0orRGt3RUhLb00vd0I1M3RKWFRRTUFBQT09In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8563296","2":"0.8154968","3":"0.7106445","4":"2","5":"3.50"},{"1":"0.7631648","2":"0.8514120","3":"0.6278948","4":"3","5":"2.75"},{"1":"0.7074546","2":"0.8698168","3":"0.5759158","4":"4","5":"2.25"},{"1":"0.6674566","2":"0.8760562","3":"0.5446080","4":"5","5":"1.75"},{"1":"0.6529088","2":"0.8756766","3":"0.5303242","4":"6","5":"1.50"},{"1":"0.6426188","2":"0.8634333","3":"0.5157426","4":"8","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWXJObXRJVm5ScVJTdFBMMWx6Tm5adFdIaHJXR0l5ZWpsWldtSnplbE14TjBZdlYzSkNRbEZ0VW1sMlpqSlVjelE0ZWtKR1lXRXlSQzl3V0hoallpdFFiMEpZVGpoeWRXTllTRkZxY1U4eVREZ3lXRkIyYzI5cVpXNHZaWE55UkZjNU1WZFljbk16TDBKTlN6RjZjVTg0ZGl0RVZXWTRTalZzWlVndmRsaFRNV1psVDJ4MVkwSmtaak0zUjBwTGVraE1iV2N2V2xCR1JWQjJVRnA2YjFrdksyOUxlakEzU1d4RVdDOXRSa1poTW13eFZHSm1PV2N6Wm1KMVdVc3ZURGRTTDJ0T0t6VmtiVXhFVGpaQlpWaHdRU3RKUjFsREszaEViMGsyYWpkUlYwbGpUVWhOWkdWQ2FrRjNTVVZPVTJwT1FtRlFjeTlWVUc5SWJGQTNRMEZCVlc5QlkwOWhiRFZwWWxkbmVHdERTVUZPYUhkcGVVSlFhMGQxTUV4YVNFVklSbWhoVjBwU1lXdHdWVVEyZW5KNVRrMXBhVmN6Y0V0blUzbDFZa3RFUlhOelMyODBTR2syUkdGM1JtMVZXRFkwU0hOM1dHdEtZVmxIYVVSMldUQktNbE51U2s1WlJFaE5TMVJLUVhKS1lrVnJWVk1yZEVOTFoyWjVVSFZJY0c5Vk9YWTJRV3ROZWpoUWNVbHJTa1pNYkdkRVYwSndRMFZaTW1sTVJVbEhiVXROUkdoeGQydEpSSGxDWlVJNFdrRXdRM0JZYTJkV05tWnZTbTFsVlRWdFdISnRiR2xuZVZSTldEVkxWV295WTJOQk9WSXdhazVKU21kaVJtRkphelZ1SzFFM1ZucDNaMGwyVGxScmFrZzRjRzFUT0RGTWVqaDRUR2hSVmxsWGJXRTJXRzVzYlZOcmEwZE1RWGhCUVdodGNHMWxhMXBLWWtObmVXdHNUVk56TWtKUFUxRnNkRkY2U3pWQlQwZE9WR2x2T1ZGeFMwMTJUbWR4Y20xQmIzTldOa3BtYTJ4cFZFRjBXRTF1TlU5VVFWSmpTMmQ1TDBGTlFWbEZZalZwTURCRVFVRkJQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg1NzU0NjdcXCxcXDJcXDpcXDAuODE2MjQwMlxcLFxcM1xcOlxcMC43MTMwNjA2XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNzY1Mzg3OFxcLFxcMlxcOlxcMC44NDk4MTQ0XFwsXFwzXFw6XFwwLjYyOTA2OTNcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43MDg3NjM5XFwsXFwyXFw6XFwwLjg2OTY5MDRcXCxcXDNcXDpcXDAuNTc5Mzk1MFxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY3MDAwNThcXCxcXDJcXDpcXDAuODc2NTM2NlxcLFxcM1xcOlxcMC41NDU5NjIxXFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjUwMTMyOFxcLFxcMlxcOlxcMC44NzYwMjIzXFwsXFwzXFw6XFwwLjUyOTE0MDBcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NDI1MzkyXFwsXFwyXFw6XFwwLjg2Mzk3MjZcXCxcXDNcXDpcXDAuNTEzNjE1NVxcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnYrNmtIVnRqRStPL1lzNnZtWHhrWGIyejlZWmJzelMxN0YvV3JCQlFtUml2ZjJUczQ4ekJGYWEyRC9wWHhjYitQb0JYTjhydWNYSFFqcU8yTDgyWFB2c29qZW4vZXNyRFc5MVdYcnMzL0JNSzF6cU84ditEVWY4SjVsZUgvdlhTMWZlT2x1Y0JkZjM3R0pLekhMbWcvWlBGRVB2UFp6b1kvK29LejA3SWxEWC9tRkZhMmwxVGJmOWczZmJ1WUsvTDdSL2tOKzVkbUxETjZBZVhwQStJR1lDK3hEb0k2ajdRV0ljTUhNZGVCakF3SUVOU2pOQmFQcy9VUG9IbFA3Q0FBVW9BY09hbDVpYldneGtDSUFOaHdpeUJQa0d1MExaSEVIRmhhV0pSYWtwVUQ2enJ5Tk1paVczcEtnU3l1YktERXNzS280SGk2RGF3Rm1VWDY0SHN3WGtKYVlHaUR2WTBKMlNuSk5ZREhNS1RKQXJKYkVrVVMrdENLZ2Z5UHVIcG9VOXY2QWtNejhQcUlrSkZMbGdEV0JwQ0VZMmlMRUlHbUtNRGhxd2tJRHlCZUI4WkEwQ3BYa2dWNmZvSm1lVTVtWHJtbGlneVRNWDVLVWoyY2NBOVIwak5JSmdiRmFJazVuK1E3Vnp3Z0l2TlRrakg4cG1TODFMejh4TGhRVllXbWE2WG5sbVNra0dMQXhBQWhtcG1la1pKYkNneWtsTVNzMkJPU1FsdFF6SzVBT0dOVGlvOVFxS012Tmdxcm1Bb3NWNkpma2xpVEF0WE1uNU9UQVJjS2d5L0FNQVlFYjVpMDBEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8575467\,\2\:\0.8162402\,\3\:\0.7130606\,\4\:\2\,\5\:\3.50\},{\1\:\0.7653878\,\2\:\0.8498144\,\3\:\0.6290693\,\4\:\3\,\5\:\2.75\},{\1\:\0.7087639\,\2\:\0.8696904\,\3\:\0.5793950\,\4\:\4\,\5\:\2.25\},{\1\:\0.6700058\,\2\:\0.8765366\,\3\:\0.5459621\,\4\:\5\,\5\:\1.75\},{\1\:\0.6501328\,\2\:\0.8760223\,\3\:\0.5291400\,\4\:\6\,\5\:\1.50\},{\1\:\0.6425392\,\2\:\0.8639726\,\3\:\0.5136155\,\4\:\8\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGk5aEx6Z3ZiRGhOWTFJNWFTdHRiRVpwU0hKdFYzbG1NMXA1Y0ZrM1VpOUNlamR3TTFac1lrSk5lbVk1Y3k4eVdEbFNXa1J3TTI5UU1sUkhXbmh5Y1d0dmJEUlFjR1ZMWkRCTFkzb3djRnAyT1dGVlYwTm1WamQ1Unk5bGMycGtWbGR0VUZoaU1tSjRhSFkyYkhSdlIwNXBMMFZZUzFNemMzTm1XWFk1Tmt4MWRVcDBXV05aTkZCeFpYSmxiWFZXTWpCeWMyNDVhVkJRVGxZM09Wa3lLekJqZWxCU0sweEtlV0phVURKM1VqaGFPRmwxT0ZncmQxUlBUazQ0Umk4Mkt6Qm1NVWcyWm5WTVZITkdiRUZRVERCblprVkVUMEptVVdvd1JXUlVPVWxFUlU5dFRHdFBVRUY0WnpSTlFVZHdXbXRuZEZBd1prdFFNRVJUYmpsb1owRkxWV2RIU0U1VE9IaE9URkZaZVVKTlEwZFJkMUphWjI1NVJGaGhSbk5xY1VScGQzUk1SVzkwVVZWTFNpOWFNWGhGYlhoYVNtSlZiRkZLV2xoT2JHaHBWVmRHWTJWRVVsWkNkRFJEZWt0TU9XVkVNbEZNZVVWc1RVUjRRakZ6TmtVMVNucHJhM05vYW10R1NuTnBWbXRzYVZOeFNtUlhRazVSVURWUU1VUXdPRXRsV0RGRFUyMWFPRWd4VFZGRmFXeDVkMEp5UVRCQ1EwMWllRVpuUlVSVVJrZENkekZaVTBWRU5VRnVRU3R6WjJGQ01HcDVVWEV4VGpCcmVrNUxPRGRLTVZSVGVsRTFTbXRNT0hSTFVqZEhUMEVyYnpSU1IydEZkMDVwZGtWNVZYb3ZiMlJ2TlZsWlIxaHRjSGxTUkRKWGVuQmxZV3hhSzJGc2QyZEpjMHhVVG1SeWVuZDZjRk5SUkVabldXZG5XWHBWZWxCVFRVVnNhRkUxVTFGdGNHVmlRVWhLUzFOWFoxcHNPR2RJUkVkb2VsVmxaMVpHYlZocmR6RldlRUV3VjBzNWEzWjVVMUpLWjFkeWRWUTRTRXBuU1U5R1VWb3ZaMFZCVFRrclpFOHdNRVJCUVVFOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuODUzNTE0MVwiLFwiMlwiOlwiMC44MTY3NTQ1XCIsXCIzXCI6XCIwLjcwODU2MjZcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43NjgxMjE4XCIsXCIyXCI6XCIwLjg0Nzc4NjNcIixcIjNcIjpcIjAuNjMxMjk5MFwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjcxMjExNjhcIixcIjJcIjpcIjAuODY3NzM2MVwiLFwiM1wiOlwiMC41ODEyMTIwXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjcxNjg3MVwiLFwiMlwiOlwiMC44NzUyMjU2XCIsXCIzXCI6XCIwLjU0NzM3MzBcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NDg0MTUxXCIsXCIyXCI6XCIwLjg3NzIyODhcIixcIjNcIjpcIjAuNTI4MDk1N1wiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY0MzU1OTNcIixcIjJcIjpcIjAuODYyOTE3OFwiLFwiM1wiOlwiMC41MTUzNzY4XCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adi9hLzgvbDhNY1I5aSttbEZpSHJtV3lmM1p5cFk3Ui9CejdwM1ZsYkJNemY5cy8yWDlSWkRwM29QMlRHWnhycWtvbDRQcGVLZDBLY3owcFp2OWFVV0NmVjd5Ry9lc2pkVldtUFhiMmJ4aHY2bHRvR05pL0VYS1Mzc3NmWXY5Nkx1dUp0WWNZNFBxZXJlbXVWMjByc245aVBQTlY3OVkyKzBjelBSK0xKeWJaUDJ3UjhaOFl1OFgrd1RPTk44Ri82KzBmMUg2ZnVMVHNGbEFQTDBnZkVET0JmUWowRWRUOUlERU9tTGtPUEF4ZzRNQUdwWmtndFAwZktQMERTbjloZ0FLVWdHSE5TOHhOTFFZeUJNQ0dRd1JaZ255RFhhRnNqcURpd3RMRW90UVVLSi9aMXhFbXhaSmJVbFFKWlhObGhpVVdGY2VEUlZCdDRDektMOWVEMlFMeUVsTUR4QjFzNkU1Snpra3NoamtGSnNpVmtsaVNxSmRXQk5RUDVQMUQwOEtlWDFDU21aOEgxTVFFaWx5d0JyQTBCQ01ieEZnRURURkdCdzFZU0VENUFuQStzZ2FCMGp5UXExTjBrek5LODdKMVRTelE1SmtMOHRLUjdHT0ErbzRSR2tFd05pdkV5VXovb2RvNVlZR1htcHlSRDJXenBlYWxaK2Fsd2dJc0xUTmRyend6cFNRREZnWWdnWXpVelBTTUVsaFE1U1FtcGViQUhKS1NXZ1psOGdIREdoelVlZ1ZGbVhrdzFWeEEwV0s5a3Z5U1JKZ1dydVQ4SEpnSU9GUVovZ0VBTTkrZE8wMERBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8535141","2":"0.8167545","3":"0.7085626","4":"2","5":"3.50"},{"1":"0.7681218","2":"0.8477863","3":"0.6312990","4":"3","5":"2.75"},{"1":"0.7121168","2":"0.8677361","3":"0.5812120","4":"4","5":"2.25"},{"1":"0.6716871","2":"0.8752256","3":"0.5473730","4":"5","5":"1.75"},{"1":"0.6484151","2":"0.8772288","3":"0.5280957","4":"6","5":"1.50"},{"1":"0.6435593","2":"0.8629178","3":"0.5153768","4":"8","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWTROakl2VURJdmRVRkdPV2t2VTBvdlZuTkdVWFY1WmpkaU4ybE9jM1ZOVTJJM2NETnVjbXBaT0ZnNFRtc3ZkV1JXVldaWFFtUnVVREpVYUZnMk1WcFhjbVJqU0RKMk5VUnJVSFl6TVZWWlVDOWhOWFZYVERKMFVVOHJPV051V0RSdU9FUkthR2t2TkdKRWNYTkNPWHBvTXpkT01ubE1ibTVsT1hwTVNpOVFWaXRQWWxKdGRrbFdlbVp6TDFCa1ZIbHdWVWgwYXk5RlYwaDVLM1k1ZFd0Mk1tcGhaazlGWVRNemJUSkVLM05VUVhwamRVdDJSQzl6UmpObkwyRTFLMjkyYzBneFV6Sk1SR2MzVWxFcmIyaDRaV3RFTkdsYWQwUTBSU3RuYW5GbWNFRlpRamg0WTBKNE5FZE5TRUpuWnpsS1RVVk9jaXRFTlZRclFXRlhMMDFGUVVKVGMwTjNOV2xZYlhCb1dVUkhVVXBuZDNsSFEweEZSeXQzWVRWUlRtdGtVV05YUm5CWmJFWnhRM0JVVURkUGMwbHJNa3hLVEZOdGNXaE1TelZOYzAxVGFUUnlhbmRUUzI5T2JrRlhOVnBtY25kWGQwSmxXVzF3UVdWSlQwNXVVMjVLVDJOclJuTlBZMEZvVUd0VGEydHpVMlJTVEV0M1RIRkNMMHdyYjFkc2FIcDVPRzk1WTNwUVFUSndhVUZyVlhWWFFVNVpSMjlMVWtSWFNYTm5iMWxaYnpSTlIweERVMmRtUVVVMFNERnRSRkZIYTJWNVRsVndkWE5yV25CWWJscDFhVmxYWVZCTVRVSllibkJUVUZsNFVVZ3pTRU5KTUdkSFNuTldORzFUYlM4eFJIUnVURVJCVXpBelQzbEpaWGt5Vmt4Nk1HcFFlbFZ0UlVKc2NHRmFjbXhsWlcxV1MxTkJVWE5FYTBWQ1IyRnRXalpTWjJ0emNVaEpVMnN4U25wWlFUVktVMU15UkUxMmJVRlpVVEJQWVhJeVEyOXpkemh0UjI5MWIwZHBlRmhyYkN0VFUwcE5RekZrZVdabk5VMUNRbmx4UkZBNFFVdFNkbmg1YXpCRVFVRkJQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg1Njg0NjdcXCxcXDJcXDpcXDAuODE2Mjg4OFxcLFxcM1xcOlxcMC43MTI4MzUzXFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNzYyNjQzMVxcLFxcMlxcOlxcMC44NTExODU4XFwsXFwzXFw6XFwwLjYyNzQ0MjVcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43MTA0MjA3XFwsXFwyXFw6XFwwLjg2ODM5NzhcXCxcXDNcXDpcXDAuNTgwODg1OVxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY2OTc2MTNcXCxcXDJcXDpcXDAuODc2MDA0NFxcLFxcM1xcOlxcMC41NDYwNjY5XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjUxNjczNVxcLFxcMlxcOlxcMC44NzU4MTAxXFwsXFwzXFw6XFwwLjUzMDE3NDVcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NDQ2OTA3XFwsXFwyXFw6XFwwLjg2MzE3MzVcXCxcXDNcXDpcXDAuNTE0ODMzN1xcLFxcNFxcOlxcOFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnY4NjIvUDIvdUFGOWkvU0ovVnNGUXV5ZjdiN2lOc3VNU2I3cDNucmpZOFg4TmsvdWRWVWZXQmRuUDJUaFg2MVpXcmRjSDJ2NURrUHYzMVVZUC9hNXVXTDJ0UU8rOWNuWDRuOERKaGkvNGJEcXNCOXpoMzdOMnlMbm5lOXpMSi9QVitPYlJtdklWemZzL1BkVHlwVUh0ay9FV0h5K3Y5dWt2MmphZk9FYTMzbTJEK3NUQXpjdUt2RC9zRjNnL2E1K292c0gxUzJMRGc3UlErb2h4ZWtENGlad0Q0RStnanFmcEFZQjh4Y0J4NEdNSEJnZzlKTUVOcitENVQrQWFXL01FQUJTc0N3NWlYbXBoWURHUUpnd3lHQ0xFRyt3YTVRTmtkUWNXRnBZbEZxQ3BUUDdPc0lrMkxKTFNtcWhMSzVNc01TaTRyandTS29ObkFXNVpmcndXd0JlWW1wQWVJT05uU25KT2NrRnNPY0FoUGtTa2tzU2RSTEt3THFCL0wrb1dsaHp5OG95Y3pQQTJwaUFrVXVXQU5ZR29LUkRXSXNnb1lZbzRNR0xDU2dmQUU0SDFtRFFHa2V5TlVwdXNrWnBYblp1aVlXYVBMTUJYbnBTUFl4UUgzSENJMGdHSnNWNG1TbS8xRHRuTERBUzAzT3lJZXkyVkx6MGpQelVtRUJscGFacmxlZW1WS1NBUXNEa0VCR2FtWjZSZ2tzcUhJU2sxSnpZQTVKU1MyRE12bUFZUTBPYXIyQ29zdzhtR291b0dpeFhrbCtTU0pNQzFkeWZnNU1CQnlxRFA4QUtSdnh5azBEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8568467\,\2\:\0.8162888\,\3\:\0.7128353\,\4\:\2\,\5\:\3.50\},{\1\:\0.7626431\,\2\:\0.8511858\,\3\:\0.6274425\,\4\:\3\,\5\:\2.75\},{\1\:\0.7104207\,\2\:\0.8683978\,\3\:\0.5808859\,\4\:\4\,\5\:\2.25\},{\1\:\0.6697613\,\2\:\0.8760044\,\3\:\0.5460669\,\4\:\5\,\5\:\1.75\},{\1\:\0.6516735\,\2\:\0.8758101\,\3\:\0.5301745\,\4\:\6\,\5\:\1.50\},{\1\:\0.6446907\,\2\:\0.8631735\,\3\:\0.5148337\,\4\:\8\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGlzMmEwaFdkR3BGSzA4dldYTTJkbTFZZUd0WVlqSjZPVmxhWW5ONlV6RTNSaTlYY2tKQ1VXMVNhWFptTWxSek5EaDZRa1poWVRKRUwzQlllR05pSzFCdlFsaE9PSEoxWTFoSVVXcHhUekpNT0RKWVVIWnpiMnBsYmk5bGMzSkVWemt4VjFoeWN6TXZRazFMTVhweFR6aDJLMFJWWmpoS05XeGxTQzkyV0ZNeFptVlBiSFZqUW1SbU16ZEhTa3Q2U0V4dFp5OWFVRVpGVUhaUVducHZXUzhyYjB0Nk1EZEpiRVJZTDIxR1JtRXliREZVWW1ZNVp6Tm1ZblZaU3k5TU4xSXZhMDRyTldSdFRFUk9Oa0ZsV0hCQkswbEhXVU1yZUVSdlNUWnFOMUZYU1dOTlNFMWtaVUpxUVhkSlJVNVRhazVDWVZCekwxVlFiMGhzVURkRFFVRlZiMEZqVDJGc05XbGlWMmQ0YTBOSlFVNW9kMmw1UWxCclIzVXdURnBJUlVoR2FHRlhTbEpoYTNCVlJEWjZjbmxPVFdscFZ6TndTMmRUZVhWaVMwUkZjM05MYnpSSWFUWkVZWGRHYlZWWU5qUkljM2RZYTBwaFdVZHBSSFpaTUVveVUyNUtUbGxFU0UxTFZFcEJja3BpUld0VlV5dDBRMHRuWm5sUWRVaHdiMVU1ZGpaQmEwMTZPRkJ4U1d0S1JreHNaMFJYUW5CRFJWa3lhVXhGU1VkdFMwMUVhSEYzYTBsRWVVSmxRamhhUVRCRGNGaHJaMVkyWm05S2JXVlZOVzFZY20xc2FXZDVWRTFZTlV0VmFqSmpZMEU1VWpCcVRrbEtaMkpHWVVsck5XNHJVVGRXZW5kblNYWk9WR3RxU0Rod2JWTTRNVXg2T0hoTWFGRldXVmR0WVRaWWJteHRVMnRyUjB4QmVFRkJhRzF3YldWcldrcGlRMmQ1YTJ4TlUzTXlRazlUVVd4MFVYcExOVUZQUjA1VWFXODVVWEZMVFhaT1ozRnliVUZ2YzFZMlNtWnJiR2xVUVhSWVRXNDFUMVJCVW1OTFoza3ZRVTFCV1VWaU5Xa3dNRVJCUVVFOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuODU3NTQ2N1wiLFwiMlwiOlwiMC44MTYyNDAyXCIsXCIzXCI6XCIwLjcxMzA2MDZcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43NjUzODc4XCIsXCIyXCI6XCIwLjg0OTgxNDRcIixcIjNcIjpcIjAuNjI5MDY5M1wiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjcwODc2MzlcIixcIjJcIjpcIjAuODY5NjkwNFwiLFwiM1wiOlwiMC41NzkzOTUwXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjcwMDA1OFwiLFwiMlwiOlwiMC44NzY1MzY2XCIsXCIzXCI6XCIwLjU0NTk2MjFcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NTAxMzI4XCIsXCIyXCI6XCIwLjg3NjAyMjNcIixcIjNcIjpcIjAuNTI5MTQwMFwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY0MjUzOTJcIixcIjJcIjpcIjAuODYzOTcyNlwiLFwiM1wiOlwiMC41MTM2MTU1XCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adis2a0hWdGpFK08vWXM2dm1YeGtYYjJ6OVlaYnN6UzE3Ri9XckJCUW1SaXZmMlRzNDh6QkZhYTJEL3BYeGNiK1BvQlhOOHJ1Y1hIUWpxTzJMODJYUHZzb2plbi9lc3JEVzkxV1hyczMvQk1LMXpxTzh2K0RVZjhKNWxlSC92WFMxZmVPbHVjQmRmMzdHSkt6SExtZy9aUEZFUHZQWnpvWS8rb0t6MDdJbERYL21GRmEybDFUYmY5ZzNmYnVZSy9MN1Iva04rNWRtTERONkFlWHBBK0lHWUMreERvSTZqN1FXSWNNSE1kZUJqQXdJRU5Tak5CYVBzL1VQb0hsUDdDQUFVb0FjT2FsNWliV2d4a0NJQU5od2l5QlBrR3UwTFpIRUhGaGFXSlJha3BVRDZ6cnlOTWlpVzNwS2dTeXViS0RFc3NLbzRIaTZEYXdGbVVYNjRIc3dYa0phWUdpRHZZMEoyU25KTllESE1LVEpBckpiRWtVUyt0Q0tnZnlQdUhwb1U5djZBa016OFBxSWtKRkxsZ0RXQnBDRVkyaUxFSUdtS01EaHF3a0lEeUJlQjhaQTBDcFhrZ1Y2Zm9KbWVVNW1Ycm1saWd5VE1YNUtVajJjY0E5UjBqTklKZ2JGYUlrNW4rUTdWendnSXZOVGtqSDhwbVM4MUx6OHhMaFFWWVdtYTZYbmxtU2trR0xBeEFBaG1wbWVrWkpiQ2d5a2xNU3MyQk9TUWx0UXpLNUFPR05UaW85UXFLTXZOZ3FybUFvc1Y2SmZrbGlUQXRYTW41T1RBUmNLZ3kvQU1BWUViNWkwMERBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8575467","2":"0.8162402","3":"0.7130606","4":"2","5":"3.50"},{"1":"0.7653878","2":"0.8498144","3":"0.6290693","4":"3","5":"2.75"},{"1":"0.7087639","2":"0.8696904","3":"0.5793950","4":"4","5":"2.25"},{"1":"0.6700058","2":"0.8765366","3":"0.5459621","4":"5","5":"1.75"},{"1":"0.6501328","2":"0.8760223","3":"0.5291400","4":"6","5":"1.50"},{"1":"0.6425392","2":"0.8639726","3":"0.5136155","4":"8","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjRnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqb3hNaXdpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjoxMiwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGpnMk1pOVFNaTkxUVVZNWFTOVRTaTlXYzBaUmRYbG1OMkkzYVU1emRVMVRZamR3TTI1eWFsazRXRGhPYXk5MVpGWlZabGRDWkc1UU1sUm9XRFl4V2xkeVpHTklNblkxUkd0UWRqTXhWVmxRTDJFMWRWZE1NblJSVHlzNVkyNVlORzQ0UkVwb2FTODBZa1J4YzBJNWVtZ3pOMDR5ZVV4dWJtVTVla3hLTDFCV0swOWlVbTEyU1ZaNlpuTXZVR1JVZVhCVlNIUnJMMFZYU0hrcmRqbDFhM1l5YW1GbVQwVmhNek50TWtRcmMxUkJlbU4xUzNaRUwzTkdNMmN2WVRVcmIzWnpTREZUTWt4RVp6ZFNVU3R2YUhobGEwUTBhVnAzUkRSRksyZHFjV1p3UVZsQ09IaGpRbmcwUjAxSVFtZG5PVXBOUlU1eUswUTFWQ3RCWVZjdlRVVkJRbE56UTNjMWFWaHRjR2haUkVkUlNtZDNlVWREVEVWSEszZGhOVkZPYTJSUlkxZEdjRmxzUm5GRGNGUlFOMDl6U1dzeVRFcE1VMjF4YUV4TE5VMXpUVk5wTkhKcWQxTkxiMDV1UVZjMVdtWnlkMWQzUW1WWmJYQkJaVWxQVG01VGJrcFBZMnRHYzA5alFXaFFhMU5yYTNOVFpGSk1TM2RNY1VJdlRDdHZWMnhvZW5rNGIzbGplbEJCTW5CcFFXdFZkVmRCVGxsSGIwdFNSRmRKYzJkdldWbHZORTFIVEVOVFoyWkJSVFJJTVcxRVVVZHJaWGxPVlhCMWMydGFjRmh1V25WcFdWZGhVRXhOUWxodWNGTlFXWGhSU0ROSVEwa3daMGRLYzFZMGJWTnRMekZFZEc1TVJFRlRNRE5QZVVsbGVUSldUSG93YWxCNlZXMUZRbXh3WVZweWJHVmxiVlpMVTBGUmMwUnJSVUpIWVcxYU5sSm5hM054U0VsVGF6RktlbGxCTlVwVFV6SkVUWFp0UVZsUk1FOWhjakpEYjNOM09HMUhiM1Z2UjJsNFdHdHNLMU5UU2sxRE1XUjVabWMxVFVKQ2VYRkVVRGhCUzFKMmVIbHJNRVJCUVVFOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuODU2ODQ2N1wiLFwiMlwiOlwiMC44MTYyODg4XCIsXCIzXCI6XCIwLjcxMjgzNTNcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43NjI2NDMxXCIsXCIyXCI6XCIwLjg1MTE4NThcIixcIjNcIjpcIjAuNjI3NDQyNVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjcxMDQyMDdcIixcIjJcIjpcIjAuODY4Mzk3OFwiLFwiM1wiOlwiMC41ODA4ODU5XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjY5NzYxM1wiLFwiMlwiOlwiMC44NzYwMDQ0XCIsXCIzXCI6XCIwLjU0NjA2NjlcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NTE2NzM1XCIsXCIyXCI6XCIwLjg3NTgxMDFcIixcIjNcIjpcIjAuNTMwMTc0NVwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY0NDY5MDdcIixcIjJcIjpcIjAuODYzMTczNVwiLFwiM1wiOlwiMC41MTQ4MzM3XCIsXCI0XCI6XCI4XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adjg2Mi9QMi91QUY5aS9TSi9Wc0ZRdXlmN2I3aU5zdU1TYjdwM25yalk4WDhOay91ZFZVZldCZG5QMlRoWDYxWldyZGNIMnY1RGtQdjMxVVlQL2E1dVdMMnRRTys5Y25YNG44REpoaS80YkRxc0I5emgzN04yeUxubmU5ekxKL1BWK09iUm12SVZ6ZnMvUGRUeXBVSHRrL0VXSHkrdjl1a3YyamFmT0VhMzNtMkQrc1RBemN1S3ZEL3NGM2cvYTUrb3ZzSDFTMkxEZzdSUStvaHhla0Q0aVp3RDRFK2dqcWZwQVlCOHhjQng0R01IQmdnOUpNRU5yK0Q1VCtBYVcvTUVBQlNzQ3c1aVhtcGhZREdRSmd3eUdDTEVHK3dhNVFOa2RRY1dGcFlsRnFDcFRQN09zSWsyTEpMU21xaExLNU1zTVNpNHJqd1NLb05uQVc1WmZyd1d3QmVZbXBBZUlPTm5TbkpPY2tGc09jQWhQa1Nra3NTZFJMS3dMcUIvTCtvV2xoenk4b3ljelBBMnBpQWtVdVdBTllHb0tSRFdJc2dvWVlvNE1HTENTZ2ZBRTRIMW1EUUdrZXlOVXB1c2tacFhuWnVpWVdhUExNQlhucFNQWXhRSDNIQ0kwZ0dKc1Y0bVNtLzFEdG5MREFTMDNPeUlleTJWTHowalB6VW1FQmxwYVpybGVlbVZLU0FRc0RrRUJHYW1aNlJna3NxSElTazFKellBNUpTUzJETXZtQVlRME9hcjJDb3N3OG1Hb3VvR2l4WGtsK1NTSk1DMWR5Zmc1TUJCeXFEUDhBS1J2eHlrMERBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8568467","2":"0.8162888","3":"0.7128353","4":"2","5":"3.50"},{"1":"0.7626431","2":"0.8511858","3":"0.6274425","4":"3","5":"2.75"},{"1":"0.7104207","2":"0.8683978","3":"0.5808859","4":"4","5":"2.25"},{"1":"0.6697613","2":"0.8760044","3":"0.5460669","4":"5","5":"1.75"},{"1":"0.6516735","2":"0.8758101","3":"0.5301745","4":"6","5":"1.50"},{"1":"0.6446907","2":"0.8631735","3":"0.5148337","4":"8","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBNWtBQUFFekNBSUFBQUEwTEZEUUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzNkZjJnamFaclk4YWRzOTQvOU1YdXdtR3htUFEyemw1SnpjUndTV0lmT1NEUmsvaml5a20rTkRoeERObVRNY1p6RmtPekt2YUVuQ2UzQVFicEoyQ2JURWttWXlFZkM5VnlZSTU2RzlUbG5hWGVUTUpCQm12SEdKSVFZa1ZpMU43M1g3ZDA5enV4ZWRuZDJwbi9ZYi80b1NaWmx5WkpWYjFuMVZuMC9GTFJVZXYzb3RWcVAzMGV2M3FxeWxGSUNBQUFBR0doazJCMEFBQUFBQmtRdEN3QUFBRk5SeXdJQUFNQlUxTElBQUFBdzFaaXYwV2RtWm55TkR6UnRiMjhQdXd2R0lESGhOL0p4QUNRbXprM0lNdFRmV2xiTy9ucnQ3KytQajQ5cjc0WWZZZWxxY01JeUJweFZFQktUbUhwaitoU1dmRHhQUVVoTW44TFMxZUNFRFYrR3NzWUFBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXEzOWZMdWg3dVBYK1d4bjAxKzdSMWhzNlBpdnprQjMyMS9LV1JUL1FaODdNaWh6L3FxK1ZUOWF6UG1DTHluTWpqSC9iVjhsRDZ2V2JicDBRKzZpK21pSXlJMVdmTC9ydjZWQTc2ZlhxUnl5SS83eS9zcDUvL2Z2OWgwU2I1MzdKK2hIM3V3dU16dEs3MTFlcjV5Ly92RERFZjl0WHF5ZUZaL3ZyMTkwWjdwa2JQRVBOQlg2MCtNZnJrRERHbDMxLy84Y0ZaZnYwSGZiVXF6THg1aHBqbzdvOGVuV0hFL09tanZwcU5qMXpvUCtaRmtaLzJOMkplNm5zZzduKzhVSDBQYlNMeWFaR1AreDNkK2gzYXpoSlRMdmI5Q3ZSZk16eFRaeGd4UHlQeXBML2VYbnorZS8ySE5RdnpzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNNWJHVzNidWZuWnVibTV2TDN0L1QweDlqakR4ZmM3ZGhkd1E0S2JxSkNRUVlpUmxkMUF5KzhsYkw3cjMzOE5vYkd4c2JiMXg3ZDIxTFU0OU0wUHAyNUsySndJbHFZZ0tCUm1KR0ZUV0QzOFk4L3Z5RGg0OUVKaDQ5ZkRFK2Y3UnpabWFtZVh0L2Y5L2pVd0RkOE83cWhzVEUrZU5OMVJPSmlTRUs4YnZMV3kwN01aK1AzNTJidS8zeXpZM3JMYnUzdDdmZEd6TXpNK1BqNHlMeWtDOVU0QVAzM1lWMmZTY21vQkZ2cWg3NlRzeWZQaHBHOXhCMkljNVF6K3RsSDhZM05tN0s3YnVSK3NMazhJZXhqcmVCWUlob1lnTEJSbUpHRkRXRDM3elZzbHRyNzhvTElsZXYzNVJLeEZMejhJY3hkeHQyUjRBVElweVlRSENSbUJGR3plQXJiMnNNcmk1Y2UrdlZ1VGRGNU9XYkczbzZCTUFyRWhNSUlCSVQ4SWZIWTc4bTV2TWI4NzJiQVRoUEpDWVFRQ1FtNEF1dWxRQUFBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV3MWRqNVBVLzdvQmUweFB6LzJaOXBqaXNqbngzNnVQYWJTSGxGRVJENWorUkwycVEvOWZlclBTL0JwWDZKR3hkOTUvcnQraExVdi9vbjJtSC81d2pQdE1YK21ubXFQK1V2V0JlMHhmNjcwLys3aTJ4OGxhUEhmUDlZL1lvNWFCOXBqaXNnTFl6L3hJNndmTGxtK3BOSXpPZFFlODBENU1yci9EVCtDQmdQenNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1wYUdXM2J1Zm5adWJ5OTdmOHg0S2dDNGtKaEJBSkNhZzNaakhuOSs3bi8yR3ZMYXhNYUdsTndDMElER0JBQ0l4QVQ5NHJHVzMxdDc4NEFONWRlN05sMjl1WEwvYTJEc3pNOU5zc2IrLzcrMHBnSzU0ZDNWQlltSUllRlAxUW1KaW1FTDg3dkpXeTI1VjVPYkd4bFhadTUvOXh2MjlxL1AxejVyYjI5dnVqWm1abWZIeGNSR1JQL1AwUEVCSDlYY1gydlNabUQ4WlhnOFJSdVJqRDR5WUdLb1FaNmllWTc4bVhycjJvcFpBQVBRaE1ZRUFJakVCdmJ6VnNpOWNlVkRaRWhGNTlGQ3VzQUFJQ0FZU0V3Z2dFaFB3aDdkYWRtTCt0U3R2emMzTnpWWGlSMnQvQUF3WGlRa0VFSWtKK01QcmVRd201dk1iODFwNkFrQWJFaE1JSUJJVDhBUFhTZ0FBQUlDcHFHVUJBQUJnS21wWkFBQUFtSXBhRmdBQUFLYWlsZ1VBQUlDcHFHVUJBQUJnS21wWkFBQUFtSXBhRnRIazVCTldxMFRlT2JZL1V6cjVNNlhNVVZQM2RpTHZsUEo1cC9GSWkwNC9ENkN6YnZsNG5oMDQ5K2NFak5IdnlOaXlxN1dwNzBNa3RTeWl5YzZXYTdtNExCV1ZVa29WbHlyTHNVekozYTlxdWJpczNtb2YySno4clZXSjUycXFuTFZMbWRST3JxYlVQVmxNcllsSXNxQnF1WGc4VjFPdVdtNXFHTDhVWUtodStYaE9TcG5ZY3VYOG5nNHdUWDhqWTJOZmFWMldsbGJYajFMWTl5R1NXaFlRU2Q3SXhXVm50NW1qQzdtY0xOODVOcFk2bTdLUWl4L2RuNTYwUmV4c3VialFJWjZkelNaOTZ5d1FjdTM1NlA4VEZtcXR5UTJna3o1R1JoR1IwcnFrQytsanhXd2I3VU1rdFN3Z1RuNXh1UkpmbUcxK3FwVEo3TXJ4UkN6ZHFVN09OdThsMDB1cktmZExrbVQyNk1Ob0kxcWVCUWJBd0k3blkvM0x6VXkrVkhLTDIvclhsWmw4UHBOMzNEdVpVbjIzK3pWbjh3dE5kMjYzbExFeStYekNmYlQ5KzlENmZlWmxnZDU2akl3dVozY3FuWlJrMTJMV2p5R1NXaGFSdHBxeUxNdUtyUzBjKzRKRVJDUjVJN2ZUL0RiRnlhOVAzV2o5R0prc3FPTFNhdXI0RXFIS2Nzd2RGYXZuMFhVZ2REcmtZK25PMmtKTktaV3UzdG9WRVNlZnVEVlZVMHFwZEhWNXA1NkpJdEl5dCtya2IrM2tha3JWY3ZHZFhjZkpKMUtyc3JvbTk1UXFaMnNaOTZlTDA4dUxlVWVjZkNJbFJhVVUwN0pBWDA0ZkdVVkVuRTJaVElwMEtHWjlIQ0twWlJGcFMwV2xpa3Z1Z29FMmRuWmx1djV0aXJNcDZmYlpWMGtXbEtybFpEbldMR2ZyaTRGWUxBc01wa00reHFaa09XWWw4ckZDT1d1THM3a205UW5iMkZTWDh0UE9sc3RaeVNkaXk1Vkt0V1pueThVbFdWckoyaUxpN082NHcybHFWU3JWbXJPNUpya2JTUkd4Wnhjb1pvRSs5Qm9abmMyMTVaUmx1VmwydkpqMWNZaWtsa1hrSlF0RlNYVTYwQ1NaWGxxOWxYZWtkS2M2ZWZ5alp5bmp0cmV6NWVKU3BWbzc5aUNMWllIQnRlV2puUzByVlZ0WWkvVi81SE1wWTFtTGNxL3pYR3Y5OERLbFZJRTBCUWJRZldRVUVXZFRWaG9wcG1vdGM3aEgvQmdpcVdXQnJ0VnM4a1pPbGhjVEhiNUZhUjdONmV6dWRJcm81RE9jNEFjWXlMRjhMT1h6anRqWnNpb3U3ZXc2OXVSMFpXMnpTMnJWcXBYS2NpeVRXVjlkS3BaUFRCZUppTmlUMDQySm9sSW1VN0lucHl0SFI3S2M4N2tUQUZPZE1qSTJGaGk0N05rRjZaeXZ1b2ZJTVkyeEFITTQrVVJzdVNLU3NxU29Dc2xrb2JodVdaWklQQjZ2VkNvaXkydTVXamxyWjFlV2x0ZlRaYnZaWG1MV1dxNjJNcFZia1VYTHFvaklVbEVsU3hrcnRTb2lNV3U1SGorZXEyV0g5OXNCWnVtV2owdkY0dFRhb3JWY3p6UmJwRkJjdHhwNUZzK0ppQ1RUUzZtVXRTb1NqOGZqdVh1RmJFMnNsTFVxOFhoY0txbU1MSzJ1aXF3bXBtcmxyTjBNTEV0RlZSQkpGcGVzbExYcWRtS3B5RlF0MEZFalEwOGJHWmVXWkhXMUlySW1OZmV6cEpOZlhLNVVKR2F0MWNkVi80WklTeW1sTVZ5Ym1abVo3ZTF0RVNsLy81ZTFCLy9lazg5cGp5a2loejdNVlQ4MzhndnRNVVhrWjRlZjhDUHNCZXRBZTB4TGUwUVJFZm1LdmVYZWFMN1QwQS8zNVRyODBhUWZ3WDkyK0xIMm1EOCtmS285NWljcy9lL0tqM3o0Yy9yY3lLajJtQ0x5VkIxcWovbjh4QS9jRytlU2owNCtzU2ozT3MrL0dxcjV1djNCSC8wMTdjSC8rTWxudGNjVWtZL1ZSZTB4UHoyaS8yK0lpSHg4cUwrcklqTG13NGpwazYvK3luOTFiNFJ2eEdTTkFRQUFBRXpGR2dNQWdHSHFWK3FLWlNZNWhndUlQR3BaQUlCaGtnV2xDc1B1QklCZ1lJMEJBQUFBVEVVdEN3QUFBRk94eGdEUjlhc2pmM3VBbi9yUGgyKzM3WEhQU2hMUDFWcU9xVzZjcWFTNXQzN2FycVVpeS91QVRnWTdzY2JJbjkvVjNoTUFKK2thTWYzQXZDeWl5eG9iRzJCcmorTGtGNnNyU3FtVjZ1TFJ1WitkemVwQ1RTbFZXMWh6VDhWZWtqVFhHZ0pPOFZROUcyQWJkcStCcU5Bell2cURlVmxFMTNlZS9MNTc0Mjk5NHUrZDN2TGJILzFldDRlY3piWHBkRmxFa3VucFc1dE90akUxdTFPdGlkaTE2blE2S3lLbDlWUXFkWHptRmtDcnh3TVZwcGUwOXdOQUo5Wm9jQ3RHNW1VUlhWLzZ6Rys0bTNWaDdQU3QyZkpMbi9tTkUyR21wMklpSWhLYm1tN3VzN1BsOUxwbFdldnBRbEpFbk5nTnBkUktOWmJneXJaQVo0L2xZSUJ0MkwwR29xTG5RTmx4T3huSHlTY3N5em8yR0xxN0xNdXlMUGRDMGgzYW5JcGFGaEUyTmpiSTFtNm5XaE1Sa1ZwMTUyaW5rOTlOSzlXNHJMeHQyeUtTTE5RV3F0MnVKUTlFM0dOMU9NQTI3RjREa2FGbHhPeTBLcytwVGQ1VFNpbWxpcm1wV0plVmU2ZWlsa1YwYVZuOVk4OHU3S3lYUktTMHZyTXcyMWhCVUxxekpqR1JaS0VvNjZWbVcyZHpUU1paWkFCMDhyR3lCdGlHM1dzZ0tyNzE0OTl4dDU2alpMUGx0Mzc4TzIxQm5NMjE2WFJTUkpMcDZiWEcxSTZkVExvRFkybFhadTNPYlU0WDNOVVBnTy9HZEZ6cDNzNnVpR1ZaRXMvVnlyWTQrY1NkeVhJaGVXUGhWc3hhRnBHbG9qcDJVZ09PL1FJNmVreGhDZ1JZOHZQL29INnIxOUI1MUZLazlJTi9mZnpCbGxWNTdlY2dLZTNLYkZMRU9hMU5aOVN5aURCTmgxaTJYb0xJenBZTDlYOVZ0dG5pMkIwQUhYeXNHSStBQU5NellyckhSYnVyOG1hUFBWSXZaVTl0MHdWckRCQmhveU9EYkFCODhGaU5EckFOdTlkQVpPZ1lNVHV2eWhPUnhnS0QwOXQwdytkZ1JOaDVuZm9PUUUrUDFZVmhkd0ZBZDFwR3pNNnI4cVIxVnJhdFRWOWQwOUF6d0ZCTXNnS0J3Um9ESU5BMGpaaWRWdVdKU0RLYjdkeW1IL3p0UUhRcExjZCtBZERoOGVIRllYY0JRRmRCSGpHcFpSRmh6TXNDZ2ZFeGF3eUFJQXZ3aU9tNWx0MjZPM2Y3SFpHWGIyNWN2NnFqUThDNVVXUEJ6VXl2dENibXlQUHUxU0RrOEljeHo4R0F6aUt4eG9BUkU4WUs4b2pwOVcvSGxzUTNOcTVyNlFwd3p0Um9jTDh4OFVoallqWUxXZmMyNVN4ODh2Z3cvUE95akpnd1Y1QkhUSSsxN0ZibDl1M2JYM2psamZ6OFJNdmVtWm1aNXUzOS9YMXZUd0YwNWZIZEZlUlBtZDcwbFppZlBmOStJZFE4NW1NRXptUEFpSWxoQ3ZHSTZhMlczWHRoWVdQait0YmR1ZXo5MXVUYzN0NTJiOHpNekl5UGo0dkkvLzNRMC9NQUhibnZyc0dOaHZRNlEvMGw1dUdQaHRVL2hKUEhmSHdjK2pVR2ZZK1k4dFBoZEJEaEZ1SVIwMXVWUFRFeElTSlhyNzl4N2VGN2UzbzZCSnlidzdHUkFiWmg5N29QV2hPemRWRUJDd3pnbjhlSEZ3YllodDNyczJERWhNbUNQR0pxK1J5ODk5NjdjbVZlUnlUZ0hLa0FmOHJVUVZ0aVVzTGlIRHcrRFB1OGJCMGpKb3dVNUJIVDA5K092ZnZaVjkvOFFPUUxyN3lSNTVCTUdDZkltZWtGaVFrVGhiNldKVEZodENDUG1KNytka3pNNXpmNGNBbGpxWkhnWnFZWEpDWk1GUHIxc2lRbWpCYmtFZE9FeFgrQVB3NHZXQU5zSitNNCtZUmxXWW04YzJMZjBkNU9iUUFjZVhJd05zQTI3RjREVWFGcnhQUUR0U3lpUzQwTXNyVno4b3ZWRmFYVVNuWHhxRkoxTnFzTE5hVlViV0h0VHFsTEd3QXRucWpSQWJaaDl4cUlDajBqcGorb1pSRmQ3NjdmY0RjMWFwMitOVnUrdTM2akxZaXp1VGFkVG9wSU1qMjl0bmxVcU81VWF5SlNxMDZuazEzYkFHaDZmREEyd0hZeVRqL2ZrM1JwQnFDcm5nTmx4KzE4K3NZWE5JaXUrTUsvck4vcWxXOUhMVVVxYS8vdytJUFRVKzVSL3JHcDZkM0dQanRiVG1jc0s3VlVWQVVScDJNYkFDMmVham4ycS80ZFNMS1VTZVNkY3RaMmQyNVdGMnFxYkR2NXhKMVN0cEFVSjU5WWxIdEsyUnFlRVlpR3d3QWYrOFc4TEtKTGpRMnluZURPd0lyVXFqdEhPNTM4YmxxcG9xUXlwYTV0QUJ6NWp5LzlXM2Q3Y2poNit0YmFzaTFJUDkrVGlKVHVMRmNxeXpITGN0TVRRRythUmt4Zm5GN0xsako4QTRQd1VpUFdBRnRiRUh0MllXZTlKQ0tsOVoyRjJjWTBUK25PbXNSRWtvV2lySmU2dEJrY2lZa1ErclYzditwdVR3OUhUdDlhVzU0STAvSWRTSE9mblMybjF5M0xXazhYa2lKU1dwZWlVa3JWY2p1M2RDWVNpWWt3MHpKaVN2ZmxQY2YybHpLV1pmWC9hZlAwV2paWlVQZGs4VXdCQVdNY2pnMnl0Yk96SzVLeUxPdlcxTDJzTFU0K2tTbUpKRzhzck1Vc3k3SlNrazYydC9HTXhFUUlQVGtjRzJBN0VhYWY3MG5xN05tRmFkR0l4RVNZNlJreHV4d0ozVmoybzl5RlFTVkpLNldVS2lUNzYxdlBOUVoydHF5VVVpcTkzcjV5SGpDY3JxTXlrd1hWekVBN1d5NGs1U2h4R3FuWTJrWUhFaE5oOC9SZ1pJQ3RMVWcvMzVOSWJNcHRJN1dxVE9wZE1rdGlJclMrKzd0ZmQ3ZWVvMlN6NVhkLzkrdHRRYnFzQW1wYjlsTmFUNlhPbEQxOXJaZDE4Z2tydFJyUDFWVDlReWY1aVRBNEhMVUcySWJkNnlNa0pzTGs2ZUhvQUZ0N2xQNitKN2szZGNzNlduT2dHWW1KVVByaWI5MTF0NTZqWkxQbEYzL3I3b2t3blZZQnRTMzdjV0kzbEZJcjFWamZxZE56dmF4bFdWYkx4Sy83b2ZPZTNDRTNZVHcxT3NnV0FDUW1RdWpad2VnQTI4azQvWHhQVXIrdnVaSWxNUkZtbWtiTTA0NkVyaS83c1cxYlJKS0Yya0sxejVOWTlwcVhYU3AyK21LMFZsMnRkd1l3bDdHMUxJbUpFSHAyT0RMQU51eGVIMGRpSXJ5MGpKaWRWd0YxWHZiamJLNzF1d2lvMXgrQzFmVk9LOWlUQmQyZlo0SHpkemc2eUJZSUpDWkNSOHQ2MlNFak1SRmVla2JNanF1QWppLzdhVnphWkZIdTZUbjJLNWxlT25iZnllYzVPQlBoTVRMUU5ud2tKa0xvOEhCa2dHM1l2VzVGWWlMVU5JMlluVllCSFZ2MjAxZ1NkSWFEcFh1c2wxMWZYVTFaUjJMTDFiUDgza0NnR1RzdlMySWloSjQrR3gxZ0czYXZXNUdZQ0xNZ2o1aTk1bVZ6dVpvNlVzdE5uVk8vQVAvcE9pZlh1U014RVVLSHlocGdHM2F2VzVHWUNMTWdqNWluWDErc3RDdXpSNHNWblB4aWRiTHNkNCtBOHhLVUE3bk9qTVJFQ0IwZUJLb3dIUUNKaVRBTDhvalpyWloxOG9uWWNrVkVaSG01WlhjODUwaHlnRk5MLzZQYS9ObC9xSWVPWjJQeDd0TFlVKzB4Unl5bFBhYUlmUFQwb2g5aEw0NDkweDd6d0o5bGJWL3hkcHJ6WUV5eW5vbk94TXorNEsvcjY5aVJUNDA5MWg0emR2bFB0TWY4NUlqK2Z2N3BzK2UweHh3Zis3bjJtQ0x5czRQTDJtTm12UDI0Q3RiaTF6UFJQR0wrODVyK1E4V2UrRE5pZnZMaUUrMHhSLzBaTVQ5OGNzR1BzR01qK250N2NPakw1N3F2L29xbkh3L3lpTm10YSs3UzIrTHhMMHgwWHJZSUdEbzFOc2cyVkNRbVF1dndtVFhBTnV4ZXUwaE1oRitRUjh3ZTYyV3p4ek9Sb3pJUkprRmUvWE1xRWhNaHBBNnRBYlpoOTdvVmlZa3dDL0tJMmVONTZwY3g0YWhNaEpHNTEwb2dNUkZDaDlZZ1c1Q1FtQWl4SUkrWVBZNzlXcGVpVXB6akdlRVVqRW5XQVpDWUNDRmwvckZmSkNaQ0xNZ2pabzgxQmplbWRsdS9JdUViRTRTSnJrK1o3a1ZLRXExWFhHOWN0OFN5ckl5Yk0vVVptNHlPRENJeEVVTFdnVFhBTnV4ZXR5SXhFV1pCbnBmdFVXYlhxc3VjK1JsaHBXZjFqNU5mcks0b3BWYXFpODFxMXFsTjNuTVAvaWptcG1JaUlpVkpxK1pWVFR3ak1SRkM1cTh4SURFUllrRmVMOXRyamNGT3JxWTRFaFBoNUx4MjNiM3hGMTUvL2ZTVzMvdjYxN3NHMlZ5YlRwZEZKSm1ldnJYcHVBZC8yTWw2eWRvNDRXUnBQWlZLeFhNMVBjYzFrNWdJb1lCTnNnNkF4RVNZcVRGZnpwV21SWTgxQm9XVnlWckxmYjR4UVpqOGN1NTFkK3Y1eWJMWjhwZHpKNnZlYVhmbVZXSlQwKzBQbFhabDFoWVJKM1pES2JWU2pSMWJpREF3RWhOaGREalFGaUFrSnNJc3lQT3lwejlQS1pOSzhZMEp3a3FOcWdHMkUyRjJxdTd3VmF2dXREM1NLR1hGdG0wUlNSWnFDOVZORGNVc2lZa1FNbis5TEltSk1OTTBZdnFpeDd3c1Y1ZEdtRmtEYmNmWnN3czc2eVVSS2EzdkxNd2UrM2F4V2NvMk9KdHJNcW5oQzBnU0V5RmtIUTZ5QlFtSmlWRFRNV0w2cE1jMUdaTFpiT3RkTzh0S0lJU0hudFUvZG5aRkxNdVNlSzVXdHNYSkorNU1sZ3RKYWIwNGUrTUNsL0ZjcmF6bDJDOFNFK0ZqQmVVaVhvTWpNUkZpNXE2WEJVSnRSQTJ5blpBc0hGMnUwczZXRzZjcU9Mb0lrSHVCUzY1b0NaekMvSGxaSU5RMGpaZ2R6bUo1WW4rM05sMjc1dkZYQTh3VjVOVS9RTlJZQjROc0FNNkhuaEd6MDFrc1JjVEpKeGJsWG4zS3AwdWJVMURMSXJxc1VUWEFOdXhlQStHa2ExNjIwNHhPNCtJbHJYdWRmRUxMcFV1QWFQaitiNzdtYmoxSHlXYkw3Ly9tYTIxQm5NMjE2WFJTUkpMcDZiV2pRNkZMZDVZcmxlV1llem1oTG0xTzAyTzlMQkJtbmI3K0FEQVVlaVpaNnpNNnlWSW1rWGNhcTNxY3plcENUWlZ0SjUrNFU4cTZ5OWt6c2VYS1VsSEhVd0tSOE9LYi82SitxOWNzNkZGTGtRZXYvT1BqRDdhY3hYSzNzYTl4K1djbm4xak1PL2M2dGprVjg3S0lMbXRFRGJBTnU5ZEFPUDJmMzc3dWJqM25ZbHRidHVrMm8rT2VPYTlXZFIrVVVtWTlYY3ZGeisxM0E4eW5hY1RzZmhaTEVYdDJZYnBYbTQ2WWwwVjBqUVQ0cUV3Z2FxWnUzblZ2OUR5ZHdha3RPODNvMk5seU9tTlpxYVdpS29oYnlSWUtrci9sdWM5QWRHZ1pNZTNaaFowN0pVa21TK3M3Q3pjYVIwUEhwdHlkVXF2S1pOYU9kV3B6S21wWlJKYzF3bEhRUUZCb09wQnJwMW9Uc2QwWm5kbkdUaWUvbTFZcW5iRXlKWFZqOTlicWFtVjExWDFTS2FxQ2xoUGxBU0duWjhUc2ZCYkw3TDJwaEdXbHBQNXg4MWliZnVoWVk3QjNQM3QzUzBNYzRIeU5qS29CdG1IM3VtOGtKb3lpNVR3R25hOWRVcnF6SmpHUlpLRW82NlhHS2ZKcXVmalNNQXBaRWhObTBqVmlkanlMWlQwdG02ZTBMSnp0TkpiZWE5bXR1NisrK1lIbktNRDVHN0hVQU51d2U5MG5FaE9HMFhNZUF6dTdJaW5Mc201TjNjdmFqWE1WSkc4c3JNVXN5N0pTa2g3eUpDeUpDVk1GZWNUMHVzWmc2MjRsL3NZckQ5YU83WnlabVduZTN0L2Y5L2dVUURjZTMxMWpZNkU5T3lXSmlmUG44VTAxb2lrZGt3V2xDdlhiZHJaY3FQK3JzbTN0R28rZEp4SVRReFRpRWROYkxidDF0eEsvZmwzdXYzVjg5L2IydG50alptWm1mSHpjMDFNQTNYbDhkNDJHZGIxc240bjV4K2ZmTTRTWjE3LzJJVTNISTR5WUdLb1FqNWhlYXRtOSsyKzk4ODRINzd3aklpSnpjblBqK2xVOW5RTE94WVhSNEdhbUJ5UW1qS1JyWGphb1NFeVlMY2dqcHBkYWRtSSt2ekV2SW52M3MydFg4cVFsVERNVzRFK1pIcENZTUZMWUwwaExZc0pzUVI0eE9TY1hvbXRzTk9TREoyQ1FzTmV5Z05tQ1BHTHFPQ2ZYeER3Zk1XR2lDeU1IQTJ3bjQzUzQvbnZqOHUrV2UzbnB6dGVJOXhtSkNhT01IS2dCdG1IMyt1eElUSmhKMTRqcEI2NWhpK2k2TUhJNHdOWWVwWDc5ZDdWU1hXeFdxazV0OHA1U1NpbFZ6RTNGT3JjQjBFclBPYmtBK0VQUGlPa1AxaGdndXI3ek4rdFh3dnkxZDc5NmVzcy92UGF2dWoza2JLNU5wOHNpa2t4UDM5cDBzdTc1bjVQMWsxaVdkbVUyS1U2K1F4c0FyVWFlRGJzSEFMcTdPQnJjRktXV1JYVDlldm52dXpjdTlQcCtvdGxTUkw2WitEZkhIK3gwL2ZjNnQ1UVY1N1EyQUVSRXJFTURGd3dBa1hGdWs2d0RvSlpGZEYzVXM1U240L1hmUmFSWnlwN2FCb0NJaUZqQm5mUUJvR3ZFOUFYclpSRmRGMGFlRGJDMUJlbDgvWGNSY1V0WnUwY2JBSzZvSFBzRm1FbkxpT2tUNW1VUlhaZTByUDZ4c3l0aVdaYkVjN1d5TFU0K2NXZXlYRWhLNjZ4c1d4c0FKMWtVcGtDQTZSa3gvVUV0aStpNnFPbUVscDJ1L3k0aXlXeTJjeHNBSjNGU0FpRElkSTJZZm1DTkFhTHI0dWl6QWJaaDl4b0lwNUduYW9CdDJMMEdva0xYaU5uNWJPdWxUTXNKMlUvYzdZVjVXVVRYSlE0MkFRS0Q4eGdBUWFabnhLeWZiVDFaeWlUeVRybDVnc3FTcEZ1L3UyeTcyeE8xTEtMcklpZTBCQUtEOWJKQWtIM2pyNzd0M2xqNTM3OStlc3RiZitXYjNSN3FlRVoya2RKNktwV0s1MnIxNHJidGJtL1Vzb2l1eTh6TEFvRkJMUXNFMmEyZEw3czNMbHY5dGhTUmxlbi9kUHpCVG1kYmQySTNsQ3FVTWxZaVh5dG43YmE3ZmZTTldoYlJkV24wNmJDN0FLQnU1QmtIZndIQnBXbkU3SFMyZGR1MlJTUlpxTzFtTmgzSnR0L3RIWlJhRnRIRmVsa2dRSmlYQlFKTXk0aHB6eTdzM0NsSk1sbGEzMW00MFZhbE9wdHJNcG50ZHZjMDFMS0lya3NXODdKQVVGak15d0lCcG1mRTdIUkc5aHU3aWRoeVJTU2VxNVdUSWs3KzJOMStjRTR1Uk5lbGthY0RiTVB1TlJCTzFzSEJBTnZKT0ozTytPUHVhKzZ0bisrbi9heEFBTHJUTldJbUMwb3A1YTZEdGJQbFFsTHNiRmtkN1d1LzI0OXptcGY5K1I4OHJ6M20wMDlxRHlraThwTlArUkxXRDZOUGZBbDc2TU9iUW8zcWp5a2k4cXVlZmpyaXgzNzlsMi9PK0JIMm93a2Z6cWY5U2YweHJWSDlzNERxWnhlMHg1VEx2cHlmM0xxZy85ZlAvRVZQUDY1blhyYmpHWCtjemVwQ1RaVnRKNSs0VThyZTJOMU5LMVdRVXNhNlU4b1crcHo0T1U4Zi8rR2YweDd6eVdlMGh4UVIrZkN5L3BnK25aTGZwL1BXS0IrbUJQMklLU0xpN2IwZTVCR1ROUWFJTHRZWUFNSHhyZi8xejl3Ylg1cSsyYVBsenUxdUxidWM4YWQrdkVtdE9wM09pcDEwOXliVFM3ZDJIVWx5V1dtZ0QwRWVNYWxsRVYyWFdUQUFCRWJ5TC8wVDkwYXZFLzZjM3JMVEdYL3NiRG1kc2F6VVV2SDQ2ZGVuRm1ZcFpJSCtCSG5FcEpaRmRBWDVVeVlRT2MrMGZMWGM2WXcvNHVSMzAwcWxNMWFtcEJxTENrcVo5Y25DR2E0c0JFUmJrRWRNYWxsRVY1QXpFNGljWjc2ZDhhZDBaMDF1Wk1VdUZOY3pKVWttUlVvWmF6MTlsbXRrQWxFWDVCR1Q4eGdndWk1YkJ3TnNKK04wT203NnhQNzZrZE9aMGpuOFlvQ0pEZzRIMmRyWTJSVkpXWloxYStwZTFoWW5uOGlVUkpJM0Z0WmlsbVZaS1Vrbnhja25yTlNxcktaSVNLQi91a1pNUHpBdmkralNjNjJFanNkTml6ajV4S0xjVTZwK3Z5UnB4U3dRY0FvZDg3TGludkdua1dwMnRseW8vNnVPenJsKzdBNkF2Z1Q1NmtMVXNvaXU2U3Q3N2czbjBlZFBiMm0vOElOdUQzVTVicnAwWjdsU2taaTF2RlJVaGFTVTFsT3BWRHpYNTZXbGdTalNzMTRXZ0M4dVc4RzlNaCsxTEtMcjBWNzl0TWVYZXgwNDNXd3BJaTlNL1BENGc1Mk9teTZ0UzFHcHBEajV4R0xlU2M3R2JpaFZLR1dzUko1eUZ1aElhWnFYQmVBSGFsa2dpQzVaV3RhTGR6eHV1czZlWFpqZUZMRnRXMFNTaGRwdVp0TVJpbG1nQTJwWklNQTBqWmkrQ0c3UEFMOWRrdEVCdHJZZzl1ekN6bnBKUkVyck8wY25xNHhOdVR1bFZwWEpadW5xYks2MTNBUFFRajE5TnNBMjdGNERVYUZseFBRSjg3S0lyb3VXampTenN5dGlXWmJFYzdXeUxVNCtjV2V5WEVobTcwMGxMQ3NsUzBWVkVDZWZpQzFYUk9LNVdqbUFGOHdFZ2tBZFVKZ0N3YVZueFBRSHRTeWk2L0x6SDJpSjArbTQ2V01IVHRzY053MzA4cDBudnovc0xnRG9TdGVJNlFmV0dBQUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRPV3RsbndMWlY0QUFBaDFTVVJCVk4yN241MmJtNXVieTk3ZjA5UWZBSjZSbUVBQWtaaUFQenpPeTc3MDJzYkd4c2JORjk5OWo5UUVBb1BFQkFLSXhBUjg0ZTI2WHhNVEV5S3k5L0RLVitZblduYlB6TXcwYisvdjczdDZDcUE3M2wyZGtaZ1lCdDVVUFpDWUdLb1F2N3U4WHNOMjYrN2M3WGRFWHI0eWYvVnFjK2YyOXJaN1kyWm1abng4M09OVEFOM3c3dXFHeE1UNTQwM1ZFNG1KSVFyeHU4dnJzVjlYcjI5c2JMenh5b1BLbHBidUFOQ0J4QVFDaU1RRS9LRGxQQVlUVjY1ZGVVRkhJQUQ2a0poQUFKR1lnR2FlMWhqVXZ5NFJlZm5teG5VOS9RSGdGWWtKQkJDSkNmakVVeTE3OWZvR0dRa0VEWWtKQkJDSkNmaUVheVVBQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXcxZGo1UDg3bC85eisweDdRdVhOQWVVMFFPUHZ6UWo3QitHUEhuRlRoOC9GaC9VTXVmVDAzLzFKZW9FZkhpZjNqb1M5eGZmS1E5NUxNLzNkY2VjL1M1NTdUSHRDNWYwaDVUSFJ4b2orbVh2enZzRG9URjUvNzkvOVFmMUxMMHh4UlJUNTc0RU5XWHJscGp2aFE4aHgvci80dm4weXNndjMzZGw3QUJ3THdzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVSG12WnJidHpjM056YzluN2UzcTZBMEFERWhNSUlCSVQ4SVduV25idi9zUDR4c2JHeHMwWDMxemIwdFVqQU42UW1FQUFrWmlBVDhhOC9QREUvUHlFaU1qVitNdHZQZHlUcXhQMS9UTXpNODAyKy92N1hwNENPQVh2cm81SVRBd0ZiNnJUa1pnWXJoQy91enpWc2tldVhIdHA0dWplOXZhMmUyTm1abVo4ZkZ6UFV3QW44TzdxZ2NURU9lSk4xUzhTRThNUTRuZVhqbU8vdHU1V3JzeFA5RzRINEJ5Um1FQUFrWmlBYnA1cjJhMjdjNVg0OWFzNitnSkFGeElUQ0NBU0UvQ0J4Mk8vc25PMzM1RjNicy9OemQxbEtUc1FEQ1FtRUVBa0p1QVRqOGQrNVRmbWRmVUVnQjRrSmhCQUpDYmdFNjZWQUFBQUFGTlJ5d0lBQU1CVTFMSUFBQUF3RmJVc0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVTFMSUFBQUF3RmJVc0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVTFMSUFBQUF3RmJVc0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVTFMSUFBQUF3MWRqNVBNMjNmL0Y3ZmJiYzM5OGZIeC9YM2dFL3d0SlZzOEtpVGVtRDEvdHZiTXJiTXNveGZRcExQcDYvYjMvNFpwOHRlU05Gdkt2K2hUVUw4N0lBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk5SeXdJQUFNQlV2aC83TlRNejQvZFRBRGdyRWhNSUlCSVRHSVFLbUM5KzhZdW1oS1dyWm9XRkY2YThMYU1jMDZldzVHT1E4VWFLZUZmOUMyc1cxaGdBQUFEQVZKWlNhdGg5QUFBQUFBYkJ2Q3dBQUFCTVJTMExBQUFBVTFITEFnQUF3RlJEckdXMzdzN056YzNOWmUvdkhkOXhkMHRFWk85K3RubDdzTUQxbjNVRE5aN2xyR0hiMngrUE5uRHdFeTAxOVBuMDE5UGI2N0IzUDl0b3Era1ZhTytlMXY4MWVPRlBZZ1k5S3lPZmt1UmowREZpUmpnOVQzU1BERzAzckJNb1BIcjc3ZmVWVXVyOTE3LzgrdnRLS2FYZWYvLzk5aVpmZS8zOUV6L1kwN0U0alJqdnYvNjF0eDhORnJhbGZWczBUOEdQdGZUZTV4NnZwNmV1dnYvNmw3OWNqNnJ2RldqNzc5Yjl2NFlCK1pTWUptUmxwRk9TZkF3NFJzd29wMmQ3OThqUUU0WTJMenN4UDM5VlJPUnEvT1VIRC9kRVpLdHkrM2JMUjZTQkhZdXo5OTY3TDhhdmlzalYrSXZ2dnVjMWRsczBmY0UxOVBuMDE5TkxWN2Z1VnVKdnZQS0ZUbkU4aEczNzcvYnhmdzFuNGs5aUdwZVZVVXRKOGpIb0dESDE5dG1vOUd6dkhobDZVZ0RXeTE2NTl0S0V5TjRMQ3hzYkcxOTUrS3JINUd5UDgrS1ZGMFJFNUlVckwzcnZhbnMwVGNIMTlybno2emxveksyN2xmajFxMGYzTmIwQ2JkM3o5MzhOQTlHWW1NWmxaZFJTa253MENDTm0xTkpUeU5EZWhsM0xidDJ0WEptZkVKR0ppUWtSdVhyOWpXc1BQWDJ1YUkvejRPRWpFUkY1OVBDQjU4NmVpS1lwdU1ZK2QzMDlCNHU1ZC8rdGQ5NjVQVGYzNnBzZnZITjc3dTZXdGxlZ3JYdisvcS9oN1BRbXBuRlpHYldVSkI5TndZZ3AwVXZQazkwalEwOFlhaTI3ZFhmdStFY1lrYjMzM3BVckU5NUQxK05NdkhUdFFXVkxSTFlxRDY2OTVEVnVXelM5d1RYMHVmdnJPV2pNaWZuOHhzYkd4c1licjN6aDVac2IxNi9xZmdYYS9ydDkrVi9EbWZtVm1NWmxaZFJTa253TU5rWk12WDAyTEQyRkREM05zQmJxUG5yN2ExOXVlUDM5NXQzbXltVjMrWFRyampPRmJZL1R2SC9Xc0czdE8wWWJJSGhyU3kxOTd2UDFIUEIxYUZsSHJ1VVZhT3VlOXY4MURNeVB4RFFpSzZPY2t1Umo4REZpUmpZOUZSbmFCNjVoQ3dBQUFGTU5lNzBzQUFBQU1DaHFXUUFBQUppS1doWUFBQUNtb3BZRkFBQ0FxYWhsaDgvSlovTE9zRHNCb0lHVUJBS0w5TVJKMUxMRFY2dnVETHNMQUk2UWtrQmdrWjQ0aVZyMm5KVXlWcVpVeWxpV1pTWHlqb2lVTXFuVnluTE15cFRxaitiekNmY3h0MVc5bWJUZkJhQURLUWtFRnVtSi9nejdCTGVSVXN2RlJVUmtxYWhVY1VuaXVacXExWXE1ZUR4WE8zclV2YU9LUys2TmVydTJ1d0EwSUNXQndDSTkwYSt4SVpUUDBXVm55OFdxdFo0dUpFV2NxYmlJaUczSDJoL04yaUxpN081VWxtUFdzb2lJTE5VY09YWlh4QjVDOTRHd0lTV0J3Q0k5MFMvV0dBVFhVckh4aWFPUVBIa1h3RGtqSllIQUlqMmpqRm8yb096SjZkWDFrb2lJbERLWlV0dmRZZllNaUNSU0VnZ3MwalBxL0YzQ2dPT0tTeUlpc2xSc1hlbmo3bHdxTmg1dHJPNnAzMjE4dkd5N0M4QTdVaElJTE5JVGZiS1VVanBMWXdBQUFPQzhzTVlBQUFBQXBxS1dCUUFBZ0ttb1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0ttb1pRRUFBR0NxL3cvcHdId0xHckVEL3dBQUFBQkpSVTVFcmtKZ2dnPT1cIiAvPlxuXG48IS0tIHJuYi1wbG90LWVuZCAtLT5cbiJ9 -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA5kAAAEzCAIAAAA0LFDQAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO3df2gjaZrY8ads94/9MXuwmGxmPQ2zl5JzcRwSWIfOSDRk/jiykm+NDhxDNmTMcZzFkOzKvaEnCe3AQbpJ2CbTEkmYyEfC9VyYI56G9TlnaXeTMJBBmvHGJIQYkVi1N73X7d09zuxednd2pn/Yb/4oSZZlyZJVb1n1Vn0/FLRUev3otVqP30ev3qqylFICAAAAGGhk2B0AAAAABkQtCwAAAFNRywIAAMBU1LIAAAAw1Ziv0WdmZnyNDzRtb28PuwvGIDHhN/JxACQmzk3IMtTfWlbO/nrt7++Pj49r74YfYelqcMIyBpxVEBKTmHpj+hSWfDxPQUhMn8LS1eCEDV+GssYAAAAApqKWBQAAgKmoZQEAAGAq39fLuh7uPX+Wxn01+7R1hs6PivzkB321/KWRT/QZ87Mihz/qq+VT9azPmCLynMjjH/bV8lD6vWbbp0Q+6i+miIyI1WfL/rv6VA76fXqRyyI/7y/sp5//fv9h0Sb537J+hH3uwuMztK711er5y//vDDEf9tXqyeFZ/vr190Z7pkbPEPNBX60+MfrkDDGl31//8cFZfv0HfbUqzLx5hpjo7o8enWHE/OmjvpqNj1zoP+ZFkZ/2N2Je6nsg7n+8UH0PbSLyaZGP+x3d+h3azhJTLvb9CvRfMzxTZxgxPyPypL/eXnz+e/2HNQvzsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABM5bGW3bufnZubm5vL3t/T0x9jjDxfc7dhdwQ4KbqJCQQYiRld1Ay+8lbL7r338NobGxsbb1x7d21LU49M0Pp25K2JwIlqYgKBRmJGFTWD38Y8/vyDh49EJh49fDE+f7RzZmameXt/f9/jUwDd8O7qhsTE+eNN1ROJiSEK8bvLWy07MZ+P352bu/3yzY3rLbu3t7fdGzMzM+Pj4yLykC9U4AP33YV2fScmoBFvqh76TsyfPhpG9xB2Ic5Qz+tlH8Y3Nm7K7buR+sLk8IexjreBYIhoYgLBRmJGFDWD37zVsltr78oLIlev35RKxFLz8Icxdxt2R4ATIpyYQHCRmBFGzeArb2sMri5ce+vVuTdF5OWbG3o6BMArEhMIIBIT8IfHY78m5vMb872bAThPJCYQQCQm4AuulQAAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAEw1dj5PU/7oBe0xPz/2Z9pjisjnx36uPabSHlFERD5j+RL2qQ/9ferPS/BpX6JGxd95/rt+hLUv/on2mH/5wjPtMX+mnmqP+UvWBe0xf670/+7i2x8laPHfP9Y/Yo5aB9pjisgLYz/xI6wfLlm+pNIzOdQe80D5Mrr/DT+CBgPzsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMpaGW3bufnZuby97f8x4KgC4kJhBAJCag3ZjHn9+7n/2GvLaxMaGlNwC0IDGBACIxAT94rGW31t784AN5de7Nl29uXL/a2DszM9Nssb+/7+0pgK54d3VBYmIIeFP1QmJimEL87vJWy25V5ObGxlXZu5/9xv29q/P1z5rb29vujZmZmfHxcRGRP/P0PEBH9XcX2vSZmD8ZXg8RRuRjD4yYGKoQZ6ieY78mXrr2opZAAPQhMYEAIjEBvbzVsi9ceVDZEhF59FCusAAICAYSEwggEhPwh7dadmL+tStvzc3NzVXiR2t/AAwXiQkEEIkJ+MPreQwm5vMb81p6AkAbEhMIIBIT8APXSgAAAICpqGUBAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgKmpZAAAAmIpaFtHk5BNWq0TeObY/Uzr5M6XMUVP3diLvlPJ5p/FIi04/D6Czbvl4nh049+cEjNHvyNiyq7Wp70MktSyiyc6Wa7m4LBWVUkoVlyrLsUzJ3a9qubis3mof2Jz8rVWJ52qqnLVLmdROrqbUPVlMrYlIsqBquXg8V1OuWm5qGL8UYKhu+XhOSpnYcuX8ng4wTX8jY2NfaV2WllbXj1LY9yGSWhYQSd7IxWVnt5mjC7mcLN85NpY6m7KQix/dn560RexsubjQIZ6dzSZ96ywQcu356P8TFmqtyQ2gkz5GRhGR0rqkC+ljxWwb7UMktSwgTn5xuRJfmG1+qpTJ7MrxRCzdqU7ONu8l00urKfdLkmT26MNoI1qeBQbAwI7nY/3LzUy+VHKL2/rXlZl8PpN33DuZUn23+zVn8wtNd263lLEy+XzCfbT9+9D6feZlgd56jIwuZ3cqnZRk12LWjyGSWhaRtpqyLMuKrS0c+4JERCR5I7fT/DbFya9P3Wj9GJksqOLSaur4EqHKcswdFavn0XUgdDrkY+nO2kJNKZWu3toVESefuDVVU0qpdHV5p56JItIyt+rkb+3kakrVcvGdXcfJJ1Krsrom95QqZ2sZ96eL08uLeUecfCIlRaUU07JAX04fGUVEnE2ZTIp0KGZ9HCKpZRFpS0WlikvugoE2dnZluv5tirMp6fbZV0kWlKrlZDnWLGfri4FYLAsMpkM+xqZkOWYl8rFCOWuLs7km9Qnb2FSX8tPOlstZySdiy5VKtWZny8UlWVrJ2iLi7O64w2lqVSrVmrO5JrkbSRGxZxcoZoE+9BoZnc215ZRluVl2vJj1cYiklkXkJQtFSXU60CSZXlq9lXekdKc6efyjZynjtrez5eJSpVo79iCLZYHBteWjnS0rVVtYi/V/5HMpY1mLcq/zXGv98DKlVIE0BQbQfWQUEWdTVhoppmotc7hH/BgiqWWBrtVs8kZOlhcTHb5FaR7N6ezudIro5DOc4AcYyLF8LOXzjtjZsiou7ew69uR0ZW2zS2rVqpXKciyTWV9dKpZPTBeJiNiT042JolImU7InpytHR7Kc87kTAFOdMjI2Fhi47NkF6ZyvuofIMY2xAHM4+URsuSKSsqSoCslkobhuWZZIPB6vVCoiy2u5WjlrZ1eWltfTZbvZXmLWWq62MpVbkUXLqojIUlElSxkrtSoiMWu5Hj+eq2WH99sBZumWj0vF4tTaorVczzRbpFBctxp5Fs+JiCTTS6mUtSoSj8fjuXuFbE2slLUq8XhcKqmMLK2uiqwmpmrlrN0MLEtFVRBJFpeslLXqdmKpyFQt0FEjQ08bGZeWZHW1IrImNfezpJNfXK5UJGat1cdV/4ZISymlMVybmZmZ7e1tESl//5e1B//ek89pjykihz7MVT838gvtMUXkZ4ef8CPsBetAe0xLe0QREfmKveXeaL7T0A/35Tr80aQfwX92+LH2mD8+fKo95ics/e/Kj3z4c/rcyKj2mCLyVB1qj/n8xA/cG+eSj04+sSj3Os+/Gqr5uv3BH/017cH/+MlntccUkY/VRe0xPz2i/2+IiHx8qL+rIjLmw4jpk6/+yn91b4RvxGSNAQAAAEzFGgMAgGHqV+qKZSY5hguIPGpZAIBhkgWlCsPuBIBgYI0BAAAATEUtCwAAAFOxxgDR9asjf3uAn/rPh2+37XHPShLP1VqOqW6cqaS5t37arqUiy/uATgY7scbIn9/V3hMAJ+kaMf3AvCyiyxobG2Brj+LkF6srSqmV6uLRuZ+dzepCTSlVW1hzT8VekjTXGgJO8VQ9G2Abdq+BqNAzYvqDeVlE13ee/L5742994u+d3vLbH/1et4eczbXpdFlEkunpW5tOtjE1u1Otidi16nQ6KyKl9VQqdXzmFkCrxwMVppe09wNAJ9ZocCtG5mURXV/6zG+4m3Vh7PSt2fJLn/mNE2Gmp2IiIhKbmm7us7Pl9LplWevpQlJEnNgNpdRKNZbgyrZAZ4/lYIBt2L0GoqLnQNlxOxnHyScsyzo2GLq7LMuyLPdC0h3anIpaFhE2NjbI1m6nWhMRkVp152ink99NK9W4rLxt2yKSLNQWqt2uJQ9E3GN1OMA27F4DkaFlxOy0Ks+pTd5TSimlirmpWJeVe6eilkV0aVn9Y88u7KyXRKS0vrMw21hBULqzJjGRZKEo66VmW2dzTSZZZAB08rGyBtiG3WsgKr71499xt56jZLPlt378O21BnM216XRSRJLp6bXG1I6dTLoDY2lXZu3ObU4X3NUPgO/GdFzp3s6uiGVZEs/VyrY4+cSdyXIheWPhVsxaFpGlojp2UgOO/QI6ekxhCgRY8vP/oH6r19B51FKk9IN/ffzBllV57ecgKe3KbFLEOa1NZ9SyiDBNh1i2XoLIzpYL9X9Vttni2B0AHXysGI+AANMzYrrHRbur8maPPVIvZU9t0wVrDBBhoyODbAB88FiNDrANu9dAZOgYMTuvyhORxgKD09t0w+dgRNh5nfoOQE+P1YVhdwFAd1pGzM6r8qR1VratTV9d09AzwFBMsgKBwRoDINA0jZidVuWJSDKb7dymH/ztQHQpLcd+AdDh8eHFYXcBQFdBHjGpZRFhzMsCgfExawyAIAvwiOm5lt26O3f7HZGXb25cv6qjQ8C5UWPBzUyvtCbmyPPu1SDk8Icxz8GAziKxxoARE8YK8ojp9W/HlsQ3Nq5r6QpwztRocL8x8UhjYjYLWfc25Sx88vgw/POyjJgwV5BHTI+17Fbl9u3bX3jljfz8RMvemZmZ5u39/X1vTwF05fHdFeRPmd70lZifPf9+IdQ85mMEzmPAiIlhCvGI6a2W3XthYWPj+tbduez91uTc3t52b8zMzIyPj4vI//3Q0/MAHbnvrsGNhvQ6Q/0l5uGPhtU/hJPHfHwc+jUGfY+Y8tPhdBDhFuIR01uVPTExISJXr79x7eF7e3o6BJybw7GRAbZh97oPWhOzdVEBCwzgn8eHFwbYht3rs2DEhMmCPGJq+Ry89967cmVeRyTgHKkAf8rUQVtiUsLiHDw+DPu8bB0jJowU5BHT09+OvfvZV9/8QOQLr7yR55BMGCfImekFiQkThb6WJTFhtCCPmJ7+dkzM5zf4cAljqZHgZqYXJCZMFPr1siQmjBbkEdOExX+APw4vWANsJ+M4+YRlWYm8c2Lf0d5ObQAceXIwNsA27F4DUaFrxPQDtSyiS40MsrVz8ovVFaXUSnXxqFJ1NqsLNaVUbWHtTqlLGwAtnqjRAbZh9xqICj0jpj+oZRFd767fcDc1ap2+NVu+u36jLYizuTadTopIMj29tnlUqO5UayJSq06nk13bAGh6fDA2wHYyTj/fk3RpBqCrngNlx+18+sYXNIiu+MK/rN/qlW9HLUUqa//w+IPTU+5R/rGp6d3GPjtbTmcsK7VUVAURp2MbAC2eajn2q/4dSLKUSeSdctZ2d25WF2qqbDv5xJ1StpAUJ59YlHtK2RqeEYiGwwAf+8W8LKJLjQ2yneDOwIrUqjtHO538blqpoqQypa5tABz5jy/9W3d7cjh6+tbasi1IP9+TiJTuLFcqyzHLctMTQG+aRkxfnF7LljJ8A4PwUiPWAFtbEHt2YWe9JCKl9Z2F2cY0T+nOmsREkoWirJe6tBkciYkQ+rV3v+puTw9HTt9aW54I0/IdSHOfnS2n1y3LWk8XkiJSWpeiUkrVcju3dCYSiYkw0zJiSvflPcf2lzKWZfX/afP0WjZZUPdk8UwBAWMcjg2ytbOzK5KyLOvW1L2sLU4+kSmJJG8srMUsy7JSkk62t/GMxEQIPTkcG2A7Eaaf70nq7NmFadGIxESY6RkxuxwJ3Vj2o9yFQSVJK6WUKiT761vPNQZ2tqyUUiq93r5yHjCcrqMykwXVzEA7Wy4k5ShxGqnY2kYHEhNh8/RgZICtLUg/35NIbMptI7WqTOpdMktiIrS++7tfd7eeo2Sz5Xd/9+ttQbqsAmpb9lNaT6XOlD19rZd18gkrtRrP1VT9Qyf5iTA4HLUG2Ibd6yMkJsLk6eHoAFt7lP6+J7k3dcs6WnOgGYmJUPrib911t56jZLPlF3/r7okwnVYBtS37cWI3lFIr1VjfqdNzvaxlWVbLxK/7ofOe3CE3YTw1OsgWACQmQujZwegA28k4/XxPUr+vuZIlMRFmmkbM046Eri/7sW1bRJKF2kK1z5NY9pqXXSp2+mK0Vl2tdwYwl7G1LImJEHp2ODLANuxeH0diIry0jJidVwF1XvbjbK71uwio1x+C1fVOK9iTBd2fZ4Hzdzg6yBYIJCZCR8t62SEjMRFeekbMjquAji/7aVzaZFHu6Tn2K5leOnbfyec5OBPhMTLQNnwkJkLo8HBkgG3YvW5FYiLUNI2YnVYBHVv201gSdIaDpXusl11fXU1ZR2LL1bP83kCgGTsvS2IihJ4+Gx1gG3avW5GYCLMgj5i95mVzuZo6UstNnVO/AP/pOifXuSMxEUKHyhpgG3avW5GYCLMgj5inX1+stCuzR4sVnPxidbLsd4+A8xKUA7nOjMRECB0eBKowHQCJiTAL8ojZrZZ18onYckVEZHm5ZXc850hygFNL/6Pa/Nl/qIeOZ2Px7tLYU+0xRyylPaaIfPT0oh9hL4490x7zwJ9lbV/xdprzYEyynonOxMz+4K/r69iRT4091h4zdvlPtMf85Ij+fv7ps+e0xxwf+7n2mCLys4PL2mNmvP24Ctbi1zPRPGL+85r+Q8We+DNifvLiE+0xR/0ZMT98csGPsGMj+nt7cOjL57qv/oqnHw/yiNmta+7S2+LxL0x0XrYIGDo1Nsg2VCQmQuvwmTXANuxeu0hMhF+QR8we62WzxzORozIRJkFe/XMqEhMhpA6tAbZh97oViYkwC/KI2eN56pcx4ahMhJG510ogMRFCh9YgW5CQmAixII+YPY79WpeiUpzjGeEUjEnWAZCYCCFl/rFfJCZCLMgjZo81Bjemdlu/IuEbE4SJrk+Z7kVKEq1XXG9ct8SyrIybM/UZm4yODCIxEULWgTXANuxetyIxEWZBnpftUWbXqsuc+RlhpWf1j5NfrK4opVaqi81q1qlN3nMP/ijmpmIiIiVJq+ZVTTwjMRFC5q8xIDERYkFeL9trjcFOrqY4EhPh5Lx23b3xF15//fSW3/v617sG2VybTpdFJJmevrXpuAd/2Ml6ydo44WRpPZVKxXM1Pcc1k5gIoYBNsg6AxESYqTFfzpWmRY81BoWVyVrLfb4xQZj8cu51d+v5ybLZ8pdzJ6veaXfmVWJT0+0PlXZl1hYRJ3ZDKbVSjR1biDAwEhNhdDjQFiAkJsIsyPOypz9PKZNK8Y0JwkqNqgG2E2F2qu7wVavutD3SKGXFtm0RSRZqC9VNDcUsiYkQMn+9LImJMNM0Yvqix7wsV5dGmFkDbcfZsws76yURKa3vLMwe+3axWco2OJtrMqnhC0gSEyFkHQ6yBQmJiVDTMWL6pMc1GZLZbOtdO8tKIISHntU/dnZFLMuSeK5WtsXJJ+5MlgtJab04e+MCl/Fcrazl2C8SE+FjBeUiXoMjMRFi5q6XBUJtRA2ynZAsHF2u0s6WG6cqOLoIkHuBS65oCZzC/HlZINQ0jZgdzmJ5Yn+3Nl275vFXA8wV5NU/QNRYB4NsAM6HnhGz01ksRcTJJxblXn3Kp0ubU1DLIrqsUTXANuxeA+Gka16204xO4+IlrXudfELLpUuAaPj+b77mbj1HyWbL7//ma21BnM216XRSRJLp6bWjQ6FLd5YrleWYezmhLm1O02O9LBBmnb7+ADAUeiZZ6zM6yVImkXcaq3qczepCTZVtJ5+4U8q6y9kzseXKUlHHUwKR8OKb/6J+q9cs6FFLkQev/OPjD7acxXK3sa9x+Wcnn1jMO/c6tjkV87KILmtEDbANu9dAOP2f377ubj3nYltbtuk2o+OeOa9WdR+UUmY9XcvFz+13A8ynacTsfhZLEXt2YbpXm46Yl0V0jQT4qEwgaqZu3nVv9DydwaktO83o2NlyOmNZqaWiKohbyRYKkr/luc9AdGgZMe3ZhZ07JUkmS+s7CzcaR0PHptydUqvKZNaOdWpzKmpZRJc1wlHQQFBoOpBrp1oTsd0ZndnGTie/m1YqnbEyJXVj99bqamV11X1SKaqClhPlASGnZ8TsfBbL7L2phGWlpP5x81ibfuhYY7B3P3t3S0Mc4HyNjKoBtmH3um8kJoyi5TwGna9dUrqzJjGRZKEo66XGKfJqufjSMApZEhNm0jVidjyLZT0tm6e0LJztNJbea9mtu6+++YHnKMD5G7HUANuwe90nEhOG0XMeAzu7IinLsm5N3cvajXMVJG8srMUsy7JSkh7yJCyJCVMFecT0usZg624l/sYrD9aO7ZyZmWne3t/f9/gUQDce311jY6E9OyWJifPn8U01oikdkwWlCvXbdrZcqP+rsm3tGo+dJxITQxTiEdNbLbt1txK/fl3uv3V89/b2tntjZmZmfHzc01MA3Xl8d42Gdb1sn4n5x+ffM4SZ17/2IU3HI4yYGKoQj5heatm9+2+9884H77wjIiJzcnPj+lU9nQLOxYXR4GamByQmjKRrXjaoSEyYLcgjppdadmI+vzEvInv3s2tX8qQlTDMW4E+ZHpCYMFLYL0hLYsJsQR4xOScXomtsNOSDJ2CQsNeygNmCPGLqOCfXxDwfMWGiCyMHA2wn43S4/nvj8u+We3npzteI9xmJCaOMHKgBtmH3+uxITJhJ14jpB65hi+i6MHI4wNYepX79d7VSXWxWqk5t8p5SSilVzE3FOrcB0ErPObkA+EPPiOkP1hggur7zN+tXwvy1d796ess/vPavuj3kbK5Np8sikkxP39p0su75n5P1k1iWdmU2KU6+QxsArUaeDbsHALq7OBrcFKWWRXT9evnvuzcu9Pp+otlSRL6Z+DfHH+x0/fc6t5QV57Q2AERErEMDFwwAkXFuk6wDoJZFdF3Us5Sn4/XfRaRZyp7aBoCIiFjBnfQBoGvE9AXrZRFdF0aeDbC1Bel8/XcRcUtZu0cbAK6oHPsFmEnLiOkT5mURXZe0rP6xsytiWZbEc7WyLU4+cWeyXEhK66xsWxsAJ1kUpkCA6Rkx/UEti+i6qOmElp2u/y4iyWy2cxsAJ3FSAiDIdI2YfmCNAaLr4uizAbZh9xoIp5GnaoBt2L0GokLXiNn5bOulTMsJ2U/c7YV5WUTXJQ42AQKD8xgAQaZnxKyfbT1ZyiTyTrl5gsqSpFu/u2y72xO1LKLrIie0BAKD9bJAkH3jr77t3lj5379+estbf+Wb3R7qeEZ2kdJ6KpWK52r14rbtbm/Usoiuy8zLAoFBLQsE2a2dL7s3Llv9thSRlen/dPzBTmdbd2I3lCqUMlYiXytn7ba7ffSNWhbRdWn06bC7AKBu5BkHfwHBpWnE7HS2ddu2RSRZqO1mNh3Jtt/tHZRaFtHFelkgQJiXBQJMy4hpzy7s3ClJMlla31m40ValOptrMpntdvc01LKIrksW87JAUFjMywIBpmfE7HRG9hu7idhyRSSeq5WTIk7+2N1+cE4uRNelkacDbMPuNRBO1sHBANvJOJ3O+OPua+6tn++n/axAALrTNWImC0op5a6DtbPlQlLsbFkd7Wu/249zmpf9+R88rz3m009qDyki8pNP+RLWD6NPfAl76MObQo3qjyki8quefjrix379l2/O+BH2owkfzqf9Sf0xrVH9s4DqZxe0x5TLvpyf3Lqg/9fP/EVPP65nXrbjGX+czepCTZVtJ5+4U8re2N1NK1WQUsa6U8oW+pz4OU8f/+Gf0x7zyWe0hxQR+fCy/pg+nZLfp/PWKB+mBP2IKSLi7b0e5BGTNQaILtYYAMHxrf/1z9wbX5q+2aPlzu1uLbuc8ad+vEmtOp3Oip109ybTS7d2HUlyWWmgD0EeMallEV2XWTAABEbyL/0T90avE/6c3rLTGX/sbDmdsazUUvH46denFmYpZIH+BHnEpJZFdAX5UyYQOc+0fLXc6Yw/4uR300qlM1ampBqLCkqZ9cnCGa4sBERbkEdMallEV5AzE4icZ76d8ad0Z01uZMUuFNczJUkmRUoZaz19lmtkAlEX5BGT8xggui5bBwNsJ+N0Om76xP76kdOZ0jn8YoCJDg4H2drY2RVJWZZ1a+pe1hYnn8iURJI3FtZilmVZKUknxcknrNSqrKZISKB/ukZMPzAvi+jSc62EjsdNizj5xKLcU6p+vyRpxSwQcAod87LinvGnkWp2tlyo/6uOzrl+7A6AvgT56kLUsoiu6St77g3n0edPb2m/8INuD3U5brp0Z7lSkZi1vFRUhaSU1lOpVDzX56WlgSjSs14WgC8uW8G9Mh+1LKLr0V79tMeXex043WwpIi9M/PD4g52Omy6tS1GppDj5xGLeSc7GbihVKGWsRJ5yFuhIaZqXBeAHalkgiC5ZWtaLdzxuus6eXZjeFLFtW0SShdpuZtMRilmgA2pZIMA0jZi+CG7PAL9dktEBtrYg9uzCznpJRErrO0cnq4xNuTulVpXJZunqbK613APQQj19NsA27F4DUaFlxPQJ87KIrouWjjSzsytiWZbEc7WyLU4+cWeyXEhm700lLCslS0VVECefiC1XROK5WjmAF8wEgkAdUJgCwaVnxPQHtSyi6/LzH2iJ0+m46WMHTtscNw308p0nvz/sLgDoSteI6QfWGAAAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATOWtlnwLZV4AAAh1SURBVN27n52bm5uby97f09QfAJ6RmEAAkZiAPzzOy7702sbGxsbNF999j9QEAoPEBAKIxAR84e26XxMTEyKy9/DKV+YnWnbPzMw0b+/v73t6CqA73l2dkZgYBt5UPZCYGKoQv7u8XsN26+7c7XdEXr4yf/Vqc+f29rZ7Y2ZmZnx83ONTAN3w7uqGxMT5403VE4mJIQrxu8vrsV9Xr29sbLzxyoPKlpbuANCBxAQCiMQE/KDlPAYTV65deUFHIAD6kJhAAJGYgGae1hjUvy4RefnmxnU9/QHgFYkJBBCJCfjEUy179foGGQkEDYkJBBCJCfiEayUAAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAEw1dj5P87l/9z+0x7QuXNAeU0QOPvzQj7B+GPHnFTh8/Fh/UMufT03/1JeoEfHif3joS9xffKQ95LM/3dcec/S557THtC5f0h5THRxoj+mXvzvsDoTF5/79/9Qf1LL0xxRRT574ENWXrlpjvhQ8hx/r/4vn0ysgv33dl7ABwLwsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBUHmvZrbtzc3Nzc9n7e3q6A0ADEhMIIBIT8IWnWnbv/sP4xsbGxs0X31zb0tUjAN6QmEAAkZiAT8a8/PDE/PyEiMjV+MtvPdyTqxP1/TMzM802+/v7Xp4COAXvro5ITAwFb6rTkZgYrhC/uzzVskeuXHtp4uje9va2e2NmZmZ8fFzPUwAn8O7qgcTEOeJN1S8SE8MQ4neXjmO/tu5WrsxP9G4H4ByRmEAAkZiAbp5r2a27c5X49as6+gJAFxITCCASE/CBx2O/snO335F3bs/Nzd1lKTsQDCQmEEAkJuATj8d+5TfmdfUEgB4kJhBAJCbgE66VAAAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAw1dj5PM23f/F7fbbc398fHx/X3gE/wtJVs8KiTemD1/tvbMrbMsoxfQpLPp6/b3/4Zp8teSNFvKv+hTUL87IAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBUvh/7NTMz4/dTADgrEhMIIBITGIQKmC9+8YumhKWrZoWFF6a8LaMc06ew5GOQ8UaKeFf9C2sW1hgAAADAVJZSath9AAAAAAbBvCwAAABMRS0LAAAAU1HLAgAAwFRDrGW37s7Nzc3NZe/vHd9xd0tEZO9+tnl7sMD1n3UDNZ7lrGHb2x+PNnDwEy019Pn019Pb67B3P9toq+kVaO+e1v81eOFPYgY9KyOfkuRj0DFiRjg9T3SPDG03rBMoPHr77feVUur917/8+vtKKaXef//99iZfe/39Ez/Y07E4jRjvv/61tx8NFralfVs0T8GPtfTe5x6vp6euvv/6l79cj6rvFWj779b9v4YB+ZSYJmRlpFOSfAw4Rswop2d798jQE4Y2LzsxP39VRORq/OUHD/dEZKty+3bLR6SBHYuz9967L8avisjV+Ivvvuc1dls0fcE19Pn019NLV7fuVuJvvPKFTnE8hG377/bxfw1n4k9iGpeVUUtJ8jHoGDH19tmo9GzvHhl6UgDWy1659tKEyN4LCxsbG195+KrH5GyP8+KVF0RE5IUrL3rvans0TcH19rnz6zlozK27lfj1q0f3Nb0Cbd3z938NA9GYmMZlZdRSknw0CCNm1NJTyNDehl3Lbt2tXJmfEJGJiQkRuXr9jWsPPX2uaI/z4OEjERF59PCB586eiKYpuMY+d309B4u5d/+td965PTf36psfvHN77u6WtlegrXv+/q/h7PQmpnFZGbWUJB9NwYgp0UvPk90jQ08Yai27dXfu+EcYkb333pUrE95D1+NMvHTtQWVLRLYqD6695DVuWzS9wTX0ufvrOWjMifn8xsbGxsYbr3zh5Zsb16/qfgXa/rt9+V/DmfmVmMZlZdRSknwMNkZMvX02LD2FDD3NsBbqPnr7a19ueP395t3mymV3+XTrjjOFbY/TvH/WsG3tO0YbIHhrSy197vP1HPB1aFlHruUVaOue9v81DMyPxDQiK6OckuRj8DFiRjY9FRnaB65hCwAAAFMNe70sAAAAMChqWQAAAJiKWhYAAACmopYFAACAqahlh8/JZ/LOsDsBoIGUBAKL9MRJ1LLDV6vuDLsLAI6QkkBgkZ44iVr2nJUyVqZUyliWZSXyjoiUMqnVynLMypTqj+bzCfcxt1W9mbTfBaADKQkEFumJ/gz7BLeRUsvFRURkqahUcUniuZqq1Yq5eDxXO3rUvaOKS+6Neru2uwA0ICWBwCI90a+xIZTP0WVny8WqtZ4uJEWcqbiIiG3H2h/N2iLi7O5UlmPWsoiILNUcOXZXxB5C94GwISWBwCI90S/WGATXUrHxiaOQPHkXwDkjJYHAIj2jjFo2oOzJ6dX1koiIlDKZUtvdYfYMiCRSEggs0jPq/F3CgOOKSyIislRsXenj7lwqNh5trO6p3218vGy7C8A7UhIILNITfbKUUjpLYwAAAOC8sMYAAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGCq/w/pwHwLGrED/wAAAABJRU5ErkJggg==" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F4TURBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDEwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 1001
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXhNREF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDEwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAxMDAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 1001
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlVnh1WEc1dWNHVnliU0E4TFNBMVhHNWNibkpsYzNWc2RITlBkWFJVYjI1aGJESWdQQzBnWTNKbVVtVm5LR1JoZEdGSmJqMXpkR2x0UkdGMFlVNTFiU3dnYVZaaGNuTTlhVlpoY25Nc0lHUldZWEk5WkZaaGNpd2djMlZsWkhNOWMyVmxaSE5iTVRveVhTd2diblJ5WldVOWJuUnlaV1VzSUcxMGNuazliWFJ5ZVN3Z2NHVnliVWx0Y0VOdmJtUlVhSEpsY3oxd1pYSnRTVzF3UTI5dVpGUm9jbVZ6TENCdWNHVnliVDF1Y0dWeWJTd2diV2x1YzNCc2FYUTliV2x1YzNCc2FYUXNJRzFwYm1KMVkydGxkRDF0YVc1aWRXTnJaWFFwWEc1Y2JpTWdjSEpwYm5RZ2JXOWtaV3dnY0hKbFpHbGpkR2x2YmlCeVpYTjFiSFJ6WEc1eVpYTjFiSFJ6VDNWMFZHOXVZV3d5SkU5UFFsOVNUVk5GWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG4jIFRvbmFsaXR5XG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dFRvbmFsMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDIkT09CX1JNU0VcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# Tonality
nperm <- 5
resultsOutTonal2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVWeHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRJZ1BDMGdZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITmJNVG95WFN3Z2JuUnlaV1U5Ym5SeVpXVXNJRzEwY25rOWJYUnllU3dnY0dWeWJVbHRjRU52Ym1SVWFISmxjejF3WlhKdFNXMXdRMjl1WkZSb2NtVnpMQ0J1Y0dWeWJUMXVjR1Z5YlN3Z2JXbHVjM0JzYVhROWJXbHVjM0JzYVhRc0lHMXBibUoxWTJ0bGREMXRhVzVpZFdOclpYUXBYRzVjYmlNZ2NISnBiblFnYlc5a1pXd2djSEpsWkdsamRHbHZiaUJ5WlhOMWJIUnpYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3lKRTlQUWw5U1RWTkZYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG4jIFRvbmFsaXR5XG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dFRvbmFsMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDIkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eVxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRUb25hbDIgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5gYGBcbmBgYCJ9 -->
```r
```r
# Tonality
nperm <- 5
resultsOutTonal2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjc2NzU5NlxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pUlBUMEpmVFVGRlhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dFRvbmFsMiRPT0JfTUFFXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.6767596
resultsOutTonal2$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWlSUFQwSmZUVUZGWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFRvbmFsMiRPT0JfTUFFXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFRvbmFsMiRPT0JfTUFFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutTonal2$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTI0MzQ1MVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pUlNjM0YxWVhKbFpGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxucmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.5243451
resultsOutTonal2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWlSU2MzRjFZWEpsWkZ4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbnJlc3VsdHNPdXRUb25hbDIkUnNxdWFyZWRcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxuYGBgXG5gYGAifQ== -->
```r
```r
resultsOutTonal2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODMxMzI1M1xuIn0= -->
```
[1] 0.8313253
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlVnh1WEc1eVpYTjFiSFJ6VDNWMFZHOXVZV3d5SUR3dElHMTFiSFJwWDJOeVpsSmxaeWhrWVhSaFNXNDljM1JwYlVSaGRHRk9kVzBzSUdsV1lYSnpQV2xXWVhKekxDQmtWbUZ5UFdSV1lYSXNJSE5sWldSelBYTmxaV1J6TENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJVYjI1aGJESWtUMDlDWDFKTlUwVmNibUJnWUNKOSAtLT5cblxuYGBgclxuIyBUb25hbGl0eVxuXG5yZXN1bHRzT3V0VG9uYWwyIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDIkT09CX1JNU0VcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# Tonality
resultsOutTonal2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVWeHVYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3lJRHd0SUcxMWJIUnBYMk55WmxKbFp5aGtZWFJoU1c0OWMzUnBiVVJoZEdGT2RXMHNJR2xXWVhKelBXbFdZWEp6TENCa1ZtRnlQV1JXWVhJc0lITmxaV1J6UFhObFpXUnpMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRJa1QwOUNYMUpOVTBWY2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcbiMgVG9uYWxpdHlcblxucmVzdWx0c091dFRvbmFsMiA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eVxuXG5yZXN1bHRzT3V0VG9uYWwyIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDIkT09CX1JNU0VcbmBgYFxuYGBgIn0= -->
```r
```r
# Tonality
resultsOutTonal2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjc5NzEzNVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pUlBUMEpmVFVGRlhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dFRvbmFsMiRPT0JfTUFFXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.6797135
resultsOutTonal2$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWlSUFQwSmZUVUZGWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFRvbmFsMiRPT0JfTUFFXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFRvbmFsMiRPT0JfTUFFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutTonal2$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTI3MDA3XG5cbjwhLS0gcm5iLXNvdXJjZS1iZWdpbiBleUprWVhSaElqb2lZR0JnY2x4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWlSU2MzRjFZWEpsWkZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0VG9uYWwyJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.527007
resultsOutTonal2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWlSU2MzRjFZWEpsWkZ4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbnJlc3VsdHNPdXRUb25hbDIkUnNxdWFyZWRcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxuYGBgXG5gYGAifQ== -->
```r
```r
resultsOutTonal2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODMwMzMxOFxuIn0= -->
```
[1] 0.8303318
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMEZpY3lCMGIyNWhiQ0J1YnlCc2IzVmtKeXdnSjFKTlUwVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFZHOXVZV3d5SkU5UFFsOVNUVk5GWEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkQlluTWdkRzl1WVd3Z2JtOGdiRzkxWkNjc0lDZE5RVVVuWFNBOExTQnlaWE4xYkhSelQzVjBWRzl1WVd3eUpFOVBRbDlOUVVWY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowRmljeUIwYjI1aGJDQnVieUJzYjNWa0p5d2dKMUp6Y1hWaGNtVmtKMTBnUEMwZ2NtVnpkV3gwYzA5MWRGUnZibUZzTWlSU2MzRjFZWEpsWkZ4dWNtVnpaRUZ1Ym05NVRXNVFaWEp0U1cxd1FVSWtRV0p6Vkc5dVlXd3lJRHd0SUhKbGMzVnNkSE5QZFhSVWIyNWhiRElrWTI5dVpHbDBhVzl1WVd4ZmNHVnliV2x0Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0FicyB0b25hbCBubyBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgdG9uYWwgbm8gbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyB0b25hbCBubyBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkQWJzVG9uYWwyIDwtIHJlc3VsdHNPdXRUb25hbDIkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdAnnoyMnFitAB['Abs tonal no loud', 'RMSE'] <- resultsOutTonal2$OOB_RMSE
resdAnnoyMnFitAB['Abs tonal no loud', 'MAE'] <- resultsOutTonal2$OOB_MAE
resdAnnoyMnFitAB['Abs tonal no loud', 'Rsquared'] <- resultsOutTonal2$Rsquared
resdAnnoyMnPermImpAB$AbsTonal2 <- resultsOutTonal2$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowRmljeUIwYjI1aGJDQnVieUJzYjNWa0p5d2dKMUpOVTBVblhTQThMU0J5WlhOMWJIUnpUM1YwVkc5dVlXd3lKRTlQUWw5U1RWTkZYRzV5WlhOa1FXNXViM2xOYmtacGRFRkNXeWRCWW5NZ2RHOXVZV3dnYm04Z2JHOTFaQ2NzSUNkTlFVVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFZHOXVZV3d5SkU5UFFsOU5RVVZjYm5KbGMyUkJibTV2ZVUxdVJtbDBRVUpiSjBGaWN5QjBiMjVoYkNCdWJ5QnNiM1ZrSnl3Z0oxSnpjWFZoY21Wa0oxMGdQQzBnY21WemRXeDBjMDkxZEZSdmJtRnNNaVJTYzNGMVlYSmxaRnh1Y21WelpFRnVibTk1VFc1UVpYSnRTVzF3UVVJa1FXSnpWRzl1WVd3eUlEd3RJSEpsYzNWc2RITlBkWFJVYjI1aGJESWtZMjl1WkdsMGFXOXVZV3hmY0dWeWJXbHRjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0FicyB0b25hbCBubyBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgdG9uYWwgbm8gbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyB0b25hbCBubyBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkQWJzVG9uYWwyIDwtIHJlc3VsdHNPdXRUb25hbDIkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0FicyB0b25hbCBubyBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgdG9uYWwgbm8gbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyB0b25hbCBubyBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkQWJzVG9uYWwyIDwtIHJlc3VsdHNPdXRUb25hbDIkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# store results
resdAnnoyMnFitAB['Abs tonal no loud', 'RMSE'] <- resultsOutTonal2$OOB_RMSE
resdAnnoyMnFitAB['Abs tonal no loud', 'MAE'] <- resultsOutTonal2$OOB_MAE
resdAnnoyMnFitAB['Abs tonal no loud', 'Rsquared'] <- resultsOutTonal2$Rsquared
resdAnnoyMnPermImpAB$AbsTonal2 <- resultsOutTonal2$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pNWpiMjVwYlhBZ1BDMGdZWEp5WVc1blpTaHlaWE4xYkhSelQzVjBWRzl1WVd3eUpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQXNJR1JsYzJNb2NtOTNYMjUxYldKbGNpZ3BLU2xjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEZSdmJtRnNNaTVqYjI1cGJYQXBJQ3NnWjJWdmJWOWpiMndvWVdWektIZzlabUZqZEc5eUtISnZkMjVoYldWektISmxjM1ZzZEhOUGRYUlViMjVoYkRJdVkyOXVhVzF3S1N3Z2JHVjJaV3h6UFhKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVWIyNWhiREl1WTI5dWFXMXdLU2tzSUhrOVEyOXVaRkJsY20xSmJYQXBMQ0JtYVd4c1BXMTVZMjlzYjNWeWMxc3pYU3dnZDJsa2RHZzlNQzQxS1NBcklHeGhZbk1vZUQxY0lsWmhjbWxoWW14bFhDSXNJSGs5WENKRGIyNWthWFJwYjI1aGJDQjJZWEpwWVdKc1pTQndaWEp0ZFhSaGRHbHZiaUJwYlhCdmNuUmhibU5sSUNodFpXRnVJR05vWVc1blpTQnBiaUJoYm01dmVXRnVZMlVwWENJcElDc2daMmQwYVhSc1pTaGNJbFJ2Ym1Gc2FYUjVJSGN2YnlCMGIyNWhiQ0JzYjNWa2JtVnpjMXdpS1NBcklIUm9aVzFsS0hSbGVIUWdQU0JsYkdWdFpXNTBYM1JsZUhRb1ptRnRhV3g1SUQwZ1hDSnpaWEpwWmx3aUtTd2djR0Z1Wld3dVozSnBaRDFsYkdWdFpXNTBYMnhwYm1Vb1kyOXNiM0lnUFNCeVoySW9Nak0xTENBeU16VXNJREl6TlN3Z01UQXdMQ0J0WVhoRGIyeHZjbFpoYkhWbElEMGdNalUxS1N3Z2JHbHVaWGRwWkhSb0lEMGdNQzR5TlN3Z2JHbHVaWFI1Y0dVZ1BTQXlLU2tnS3lCamIyOXlaRjltYkdsd0tIbHNhVzA5WXlnd0xDQXhMalFwS1Z4dWNFSmhjbHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRUb25hbDIuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFRvbmFsMiRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwyLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwyLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbM10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxUb25hbGl0eSB3L28gdG9uYWwgbG91ZG5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgMS40KSlcbnBCYXJcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal2.conimp <- arrange(resultsOutTonal2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal2.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal2.conimp), levels=rownames(resultsOutTonal2.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\Tonality w/o tonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 1.4))
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWk1amIyNXBiWEFnUEMwZ1lYSnlZVzVuWlNoeVpYTjFiSFJ6VDNWMFZHOXVZV3d5SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhBc0lHUmxjMk1vY205M1gyNTFiV0psY2lncEtTbGNibHh1Y0VKaGNpQThMU0JuWjNCc2IzUW9jbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVWIyNWhiREl1WTI5dWFXMXdLU3dnYkdWMlpXeHpQWEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJVYjI1aGJESXVZMjl1YVcxd0tTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzelhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjWEZaaGNtbGhZbXhsWEZ3c0lIazlYRnhEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxJQ2h0WldGdUlHTm9ZVzVuWlNCcGJpQmhibTV2ZVdGdVkyVXBYRndwSUNzZ1oyZDBhWFJzWlNoY1hGUnZibUZzYVhSNUlIY3ZieUIwYjI1aGJDQnNiM1ZrYm1WemMxeGNLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWEZ4elpYSnBabHhjS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLeUJqYjI5eVpGOW1iR2x3S0hsc2FXMDlZeWd3TENBeExqUXBLVnh1Y0VKaGNseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0VG9uYWwyLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRUb25hbDIkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0VG9uYWwyLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dFRvbmFsMi5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFRvbmFsMi5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzNdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyBnZ3RpdGxlKFxcVG9uYWxpdHkgdy9vIHRvbmFsIGxvdWRuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDEuNCkpXG5wQmFyXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFRvbmFsMi5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0VG9uYWwyJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dFRvbmFsMi5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1szXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgZ2d0aXRsZShcXFRvbmFsaXR5IHcvbyB0b25hbCBsb3VkbmVzc1xcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCAxLjQpKVxucEJhclxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal2.conimp <- arrange(resultsOutTonal2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal2.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal2.conimp), levels=rownames(resultsOutTonal2.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\Tonality w/o tonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 1.4))
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qTXVNaXdpZDJsa2RHZ2lPamdzSW5OcGVtVmZZbVZvWVhacGIzSWlPakVzSW1OdmJtUnBkR2x2Ym5NaU9sdGRmUT09IC0tPlxuXG48aW1nIHNyYz1cXGRhdGE6aW1hZ2UvcG5nO2Jhc2U2NFxuIn0= -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjMuMiwid2lkdGgiOjgsInNpemVfYmVoYXZpb3IiOjEsImNvbmRpdGlvbnMiOltdfQ== -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFEMUNBTUFBQURObjhsOEFBQUIwVkJNVkVVQUFBQUFBRG9BQUdZQU9qb0FPbVlBT3BBQVpwQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qc2htQUFCbUFEcG1BR1ptT21abU9wQm1aZ0JtWnJabWtKQm1rTnRtdHJabXR0dG10djl1VFUxdVRXNXVUWTV1YmsxdWJtNXVicXR1am81dWpzaHVxNnR1cThodXErU09UVTJPVFk2T2JrMk9ibzZPYnF1T2prMk9qbzZPanNpT3E2dU9xOGlPcStTT3lNaU95T1NPeVArUU9nQ1FPanFRT21hUVpnQ1FaanFRWnBDUWtEcVFrR2FRa0pDUWtMYVFrTnVRdHBDUXR2K1EyN2FRMjl1UTIvK3JiazJyYm02cmJvNnJqazJyam82cmpxdXJxMjZycTZ1cnE4aXJxK1NyeU1pcnlQK3I1TWlyNU9TcjVQKzJaZ0MyWmpxMlptYTJrRHEya0pDMnRtYTIyNUMyLzdhMi85dTIvLy9JamszSWptN0lqbzdJcTQ3SXE2dkl5STdJeU1qSXlPVEl5UC9JNUt2STVQL0kvOGpJLytUSS8vL2JrRHJia0diYmtKRGJ0bWJiMjVEYjI3YmIvN2JiLy8va3EyN2txNDdrcTZ2a3lJN2t5S3ZreU1qazVLdms1TWprLzhqay8rVGsvLy95OHZMMzkvZi9BR2IvdG1iL3RwRC95STcveUt2L3lNai8yNUQvMjdiLzVLdi81TWovNU9ULy83Yi8vOGovLzl2Ly8rVC8vLy9VRUhXSUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFUamtsRVFWUjRuTzJkalgvalJwbkhuWEFoaEhLOWl4S2FicnBYOW5wNDc4cDJENGZTbzBkdms0VnJ1UzZ3eWJhMGRQdGlIK3hCa3cxUU9JcGQzdUlGZXJUWjRIcWJNOWp4L0xVOHo4eElsdVEzV1ZiR00vTHY5Mmt0YTE0ZXlkSTNNeVBwcDltQ2dLQnpWMkhXT3dETmc0QVpaRURBRERJZ1lBWVpFRENEREFpWVFRWmtJV2ExZ3RMcW9NejJZN3Z0emVMSStuZU94bStEd29RV1VaMCt0SjlnTDZGSlpDTm1SWG1tRzRNd085dFprR0EwaHBQV3ZoRmVHMXhRaC9HalJYUzZzZ2pNc3BhRm1QMXlYMklXeGNYWDJYVUpSbVU0Wmg5RnlCbFNVSWZSaTZqUW1tVXZDekVUd1psdWJ4YW91V2x2Zm42SGV0Q3puVUpobWNHZ25vNzYxVStzRkJiM1ZjdERPWXMvNUtLTnd0SVI5NW1xSG9zS0xoME5Ec1BadkpDNTdjMkZYUm1NMWlpdUxrc3RHNVVWbGNMaWYrM3JUeWlWYk1hTVIwNjF4YmQzR0tERi9jYlNFWDJlWGI5SlBkMXZkcWhqL1RTUjhwNGFZdEZvVFk3WXZrY040Uk82bmtTQ0N3NE80Mk9tQy9PQ3RucEc1WHRsMjQ4ZlVRSkh2TGl2UG1kNFRKeVd6WmdSRVV3UG4zcVZRR1FwTURoSjFLaFJlbDROOS9ucnpySm9YNUxnNlhxY3dRV0hoSkhaMTNkMXJzYU0xelJ0dEpBWEk4dW5LenhLVko5UU90bU1XWTNPK2RuT2FzQkhqZG9ZQW9QL1k4eUlESCtBVCtBMC91bXhYVUtNd2RQMU9FTzJUb1BEeU96cnV6cFhZMWFMWXFiSW9xNXoxZitFVXNsbXpLamJZazcwT2FmbVJEVkRQbWFpOWpmLzRQZGlsVTgrZjFUNTVJdUMrMHkvSHFmTDFteHdHSmw5ZlZmbkRzYU1CbWJjUW9wR29SaDhRaWxrTTJidHplWG9PWTloMXQ0TW1oY200SFNsS0M5VC9YcWN6Z1dIaEpIWjFBWDNjbW1RL3dQcUd1bFM0RzBmeVNKMXdreHVyYWcrWjNNNDNKZVZtTlgwemRsVHZwcWtzNy93N2MzQzBxOVg2T3B5OFhPRmhjOVFZb1d2S2ZVRkFJdjdTdm4vaXlLb0o4VUZCNGZabGJsOGdTa0wwemIva2UvVzBhWVhkblhab3didngvLy9KMSticWs4b25hekVMS0VVVTVBRGNobXpFWThDSUx2a0xtWVY5R0h1eUYzTUlJY0V6Q0FEQW1hUUFRRXp5SUNBR1dSQUZtTDJLU2hQa3VmVVJzeG12UU5RaGdKbWtBRzVoZGxKZHZFUnltUW9ZSVpRQmtJQk00UXlFTW90elA0RU9hYkkyUVJtMFBrb2NqYUJHWFEraXB6TkRESHJiSGtieDNWdnZTcGEvMXptMVkwZnZjbEpuTWNwM1QzUDg5YmUzRnFqek80ZUZldlY0ay9QMndabU9kSjVZU1k2enhCU3Z5TjhQdjYza2hEMWJXSkxKZ21kd2lzUHlwMWJGNFQ0ODVlcmtWcWk4NnhvS2lLQldUNTAvcGk5dzhSSWFuek1aQXF0UENpTHpuZS9WQlh2ZjZkYTk5YmUydHQ0dWRURDdJSlFUNXBPVHVRRnprbDRPZXVEQmswcWZmN09EN1BPenpwRWttaDZKUjh6bFVJOUkzV1luZHNIMjkyZkhuS0I3YzR6ci91dDJaWjNRWWRCYTVZTFJjNW01cGdSUDAxL25GWGYxcGlwRk4yYTNXNWQrZVBQRDZzRTFyWm9sb0pPczNYbEdKamxTT2VHV2ZkV1dVTHovakYzZ0UyR2lGZGJ6K2tVdVhLMWM3dDc2NnZIaDlYRGFuTzdkZlZ1V1JXaFRyTmVBbVk1MHJsaEpscVhxVmVrQzhwdGNlQnQvT0ZKYi8xZHZvQ2tJWmhNZWVScFd2SCtneHF4Wm9rdVNGLzFLT1hhM21jdnErdFByOVRkNDJ0UVBEclBsOXk2YndZNUttQUdHUkF3Z3d6SUxjeXNjaDBnVkhJQk00UXlFQXFZSVpTQlVNQU1vUXlFY2dzenlGRzVoZG1zNzJsYktOUG5KWjJBbWVNeWZWN1NDWmc1THRQbkpaM09HVFBwb0ZWcThqTng2UTBLMUFuYmFnZnVXRXl6UHFjV2F1aWhuNmRMQU9tWGxlcnVsV0o1bldkRnhGWTdhTWRpbXZVNXRWQkRELzA4WVNiOXN2V3ZlRi94dHB0UFhWNnZFbGVkcmJWeTY5KzMxcXROcnhTMTFmTDdBUWZlVTIvQVBUdUJUZ1lkSjE3ZUg1S2VZbmt5ZFp6enhVejZaVHRiRjVvWFdzOFJTYzFTZmVQNFhybjV4YjMxNnQzeTc2OUdiYldVVWFLZXRhN2VPVUZybGt4RGovMGN0V2JLTDl2Y2JwWUlzNUpvWGUyK2NuemdlUVFkUWRVS01GUEZPT051R1poTnBuTTZjeG5yZkRIekhiUWFzM3FKTU9PM1VjS1lCYlphenFpak5adFE1M1RtTXRaNVl0YjEvYkliTDN2ZStrK29zYUoyYTV0Zkt6bFlmM2ZyUW1mclg4TzIybzBQS0lQZjFCeUJHZVNvN0x0dk5xbzFneHlWZFppMUxxczMwZkhvUEUraHJNUE1GekRMVXloZ2hsQUdRZ0V6aERJUXlpM01JRWNGekNBREFtYVFBYm1GV1Q1dmtjK0I1aFl6cTBiSXVROEZ6S1lYUW8yVkVjd0d6RWY3bHB5Q3RzOHpHOSt4bUlDWm82SE10R1pENXFOOUVNT3M4Mng4eDJJQ1pvNkdNb3haWkQ1YW91eGdyWHl3OFVISVQ5dTYvT2pQc25QUHh1dGpPYU9sV2N6Qzg5R3FLV2dadHJDZjlsNzVZL1ZTQ3E0MDh5U0RtUFhOUjh0OTV0M3lqeU4rMnVDZkNnQm1lWklaekliTlIzdFZ0TDd3aGdqN2FYOVhwWS9lanNVRXpCeVZvUnNhZmZQUi9vS3ZOTGxsTzVSVHVQdCsydEwvYlkxeXoxbzFyRVdvNUhMcnZwbFZodzZoa2d1WUlaU0JVTUFNb1F5RWNnc3p5RkVCTThpQWdCbGtRTUFNTWlDM01MTnFXSXRReWVVV1pobmUycmZxTE9RK0ZEQkRLQU9oUm1BMndJeFlQdkM4NE4vdjlZdnh6SGdiUDNxVFNuKzQ1MzMyTW5zVnUzdHJUNGJLMWIwUzJ6TFVFeWJwWlpSVDV2V2VrK3ZwUVhtaUZ2MnNDWmpsS3RTbzFxemZqUGpXS3g4ODgrRnIwVkoxWXRIM0tUSnl0d2l2UDMrNTZrL0UySG1XbjVEZkxZdDNkRVRsWmZTTFJiWWwvNjF6TlJ2dHVXTUdtVlFpekhwbVJKblczYU9tUi9vUTYveEEvSlZqMzZjb01mdnVsNnJpL2U4d1pyNVZzUzRkR1ZzYng4cGUxdDNiZUxua0Y2dnp4Rk84SG1ER2plQklXNk1OTmowc3M3TTFEakFqeWpUQ3BxNThpSlM0VFpqNVBrV1A4T3ZjUHRqdS92U1FNUHV3WjFVVXJlZit3akQ2WHNiWGhWK01JOGgxaGRsVzBOV2lOY3VUeG1JV05TUEtOTUtyZFZVYXhBZ0xpWm4yS2NyVzdIYnJ5aDkvZmloYk0rMGhrNjBabGJsWDFsNUdXZ3VLc2ZHSDEzVnIxcnB5SE42eG1JQ1pveHFGMlFBem9tck5hS1VrR1Rxc3l0WXM4Q2xLekxxM3Zub2N3VXlOelVUM3BhcnlNcmF1M2kzN3hUaUNYSmZUZzFLbldTK0ZkeXdtWEFJNEdtcmtEWTArTTJLVnZwVFUyRXo2RU92VVRmN2UyMzVBV2UvNlY1cmVkck5FSTY0bmUxWkZXYW11UXBHdTdWM2I4NHV0ditwNWp6d3QxK2thbEs1V1MzU1JXdTd0V0V6QXpORlFidDAzcytyUUlWUnlBVE9FTWhES0xjd2dSOVdIV2FPd2VycXlPcU85Q1FtWTVVbHh6TnFYMmpkRSsrTCtyUFluRURETGsrS1luYjFJbURXV2ptYTFQNEdBV1o0MG9OTXNGQlpuMzVqaEVpQlhvUVpmQXZ4eTlwd0JzenlGaW1EVzNpd29XZENjQWJNOGhZcTJabmYwbU16VzFpekRKNXBXbllYY2gzTHJ2aGtlbkR1cVBzeTQ0MXoyVjdJejBLb0F2UnFwM2JQcGZ5bzBPL1hkME5oWnBhdk40UFpzVmdaYUhhQ24xTzdaYVg0c05DdjEzWjU5bklkbndkZ3NLd090RHFEbkFLWG1NTFY3MWc0M0tKWlR1bWZmMjZXUDc4VXhtOVpBcXdOSVcyT3pKTmh2bHRJOU95ZzVqYXdhSWVjKzFPQWJHdEZPTXdNRHJSK0E1d0JsODlweGF2ZnMxTDlZeTZxemtQdFFBMjlvbkQ3aFoyZGxvTlVCNUJ5Z1RlWTF0WHQyNmwrc1pkVlp5SDJvdms2ekVyMDltNDJCOW9zNndERzNqQlRTZTNRcnJYdDI2bCtzWmRWWnlIMm9mb2ZHMll1aWZXUHF1Q1AwY1ZWMFh4dGJDby9PODZRK3pHNklSdkhzYStmNUZLQSsrbC9SMFFKbWVWSmZwMWxiM0svMDdzL09Uc0FzVDNMTG9RRTVxdWdOall2NzZwNEdIQm9JbFdtb3Z0YnNUdVFwd093RXpQSVVxdThTd0lMWEFLU0FXWjVDOWJWbThqa1RXak9FeWpSVVgydG05ZGdNY2xSdWpjMGdSelh3aGtidm1lYnNCTXp5cEhIUE5FTkticVdOZTJVem0zc1djbFNUUE5OTWJLV05lV1d6bTN2V3FtRXRRaVhYSk04MEUxdHBWWW5PVnFtNVZtNCs5Uyt2WmpiMzdFbDJyczc3MmJsRDcyY1VoMzlkZHE3Vis5bTVYMCttampQSk04M2tWbHBWZ20yeXhOQnhkblBQV3ZVWGlsREpOY2tMZE1tdHRLcUVkR1BUUjNaenoxcDE2QkFxdVNiQkxMR1ZWcGVncElQMW41UXluSHNXY2xUUlIrZVhSaGRPYUtXOXBrdndLMHpiQjdwUUpuUFBRbzRxL3NxSkJmZi9sWUJabmhURjdJWjgyR1RCWEkzQUxGOGFORGFyMmRDbTRSSWdUNkhpclprNDI3SGl5VGt3eTFXby90ZUJpMVBIekVUQUxFK2g0aWJ0cVFObUpXQ1dwMUJ1elc4R09TcGdCaGtRTUlNTUNKaEJCdVFXWmxZTmF4RXF1U2JBTExWN1ZwbGs2L3k4Y2tyM3JGV0hEcUdTYTJJalVBcjNMSHN6bEUwRDd0azVEWlVLc3duZHMxWEdySzduMllON0Z1N1owVXJybnBXdG1iVFFUdXVlaFJ5VkNmZXNpTFptVTdobklVZGx3ajBiSFp2QlBUdUhtdWlHUm5yM0xQK2JBUHBLRSs3Wk9SVHVteUdVZ1ZEQURLRU1oQUptQ0dVZ0ZEQkRLQU9oM01JTWNsVEFERElnWUFZWkVEQ0RETWd0ekt3YTFpSlVjZ0V6aERJUUNwZ2hsSUZRazJHV2Z2cloyQ3Jjcy9NVmFzTFdMTFdCTnI2YXpqMExPYXEwbUUxcW9GVVZEdGJLQjlLNGNTR2RleFpMUjVjcE1adllRS3RXcGExUnVoM2hucDBycGNFc2pZRldWN2hiL3ZHeHRKL0JQVHRYbWhDejFBWmF0U3BhWDNpRGF4RlFxZHl6VmcxckVTcTVKcjJoa2M1QSt3dTllc3d0SVlYd0h0MUs1WjYxNnRBaFZITE40TDdaeDFYUmZXMXNLV0NXcDFBendLeXUzendmTFdDV3AxQnVQUVdBSEJVd2d3d0ltRUVHQk13Z0EzSUxNNnVHdFFpVlhNQU1vUXlFQW1ZSVpTQVVNRU1vQTZIY3dneHlWT014Uyt5WS9WRFBMTnYwMXYvMzlaNDdWdHRtTTNIUFFvNHFRV3VXMkRHclpwWnRYV0UzWTg4ZHEyMnpjTS9Pc3liQmJKeGpWczNGZUU5TllhemRzYnFXZ0h0MnJwY1RZRGJXTWF0bWxqMlVMVlRnanRXMXNuSFBXaldzUmFqa1NvcFpFc2VzYXMzdXF0Wk11MlA5V3RtNFo2MDZkQWlWWEFrd1MreVkxVFBMRWlqTmt1K085VzJ6Y00vT2RhZ2tOelNTTzJhVi81K0hYdG9kdS9ha3JQWEkwM0RQem5Vb3Q5eXprS055eXowTE9TbzhCWUFNQ0poQkJ1UVdabFlOYXhFcXVZQVpRaGtJQmN3UXlrQW9ZSVpRQmtLNWhSbmtxSUFaWkVEQURES2dNWmhsWTUydGUzS0dNNTRZU0Q4QmdIdDJ2alN1TmN2Q09pdi9ZV0R4am83MlFCbUZVcmxuclJyV0lsUnlKY1pzQ3V1cyttZk90N2k1NGtKZDZaWk41WjQ5eWM3VmVUODdkK2o5ak9Md3I4dk90WG8vTy9mcnlkUnhrbUkyalhXVzJHczk5NWRqT2VVeEY1SnVXYmhuNXlsVUlzeW10TTdLMW95Uzc1VlZJZW1MaEh0Mm5rS053eXdMNjZ3YW00bnVTMVZkaU4yeXFkeXprS01hZTBOamV1c3NsYU1LZFJXR2RHMVB1bVhUdUdjaFI0WDdacEFCQVRQSWdOekN6S3BoTFVJbEZ6QkRLQU9oZ0JsQ0dRZ0Z6QkRLUUNoN01ZUHlKSGxPTGNSc29PeTgvTVJlSlJRd20wYllxNFJ5QlRQSWFRRXp5SUNBR1dSQXdBd3lJQWN3ays4VEJBdGJwSGVuNmExWHh4VTFKLzhWQzh1T2xRdVlhYythWHRnaWYzZmVtZldPUk5WOWlUR3o3RmdKRnpEVERsemZpR3VKOU83STl4d3Nrc0xNc21NbFhNQk12azhRTEd5UjNoMzVuc09zOXlVa2habGx4MHE0Z0puVnJaa1ErcFV1UzRUV0xLM3NIcHZwRTJ1TE1EWkxMZmsrd2JaY1dDUzFWL1VraytrYUZMOS9ZZCt4Y2dJenlIMEJNOGlBZ0Jsa1FNQU1NaUJnQmhrUU1JTU1LRStZMVFxRjFmZDJZNGxuMTNmYmo4bEV2WWhvVUZxUWVQcncwYkFpNDlWZkxXVWd1U2QvTjc3SVEvc1Q3YzFFK3UrcGFvdGNZVlpaT2hLMWhmZ0JxYWlVUHZ3aXVRUFYzbHc2R2xNa3BtQWpRN2FXcU80QUtkNUg2bXhuY1JSbVUycEtTdk9FMmVtbitWQTBpckZrYXMxNE1lVHZVZWNPaVNqUDdzZ2lVUVViU2ZIWFA2TEsyZGNTRU5TK2VJNllpZmJqWTBFZnFmeGdWbHZTUjRMN1RqcnEvMU9naEVhaHNNQ2RKaTJML0NjWnltdHZGaGIzSlVObk80VmxhZzEreUFudGl5OHNmUHV4WFpsNSt2RFhDOHNTczBwQkJ1ZUtWRit1Y3NGdlB2ejl3dEt2Q2t1LzNWemNwMFpQYm9RckR0aWFrRTNDcWE1dzVFZlNKVjVZK0laZlZ4ZXYwVmQvczQxbFJsN1hWQnNQbFpTLzJGOExaZEN2b3UrVllOdTkvZWlWQ1RaV1dGVy9lTVUvQ3ZHZHFNVC9mQ2RUL2pDak51aDA1Zk5FRHAvV2gvYXBrU01DZnNPc0xPeUc4MnFyQkpCcXFyZ2wrRWdtM055aDAwNEZaZWJwU3ZGc3AwaGZHcFMycW5BVWxNaXJmMDhGYVozT3pqS1AvaTR5c0x3UldYSEExZ1QzdmpmOUNqZDFKTC9FcXZEcjNsVEZpYXpLcXQ0c3BZdmVwbVJpcUtTUUdGWTRWLzhvblZGYjd1MjUycll1M2l1ajArUmVGT2svN3JxSDdFUnRkYXFUa3ovTStJRFFVWmNubmsrUVpJbHhVdXRCSHArNm91NFI2VURlT1pJSlRKeWZ5WjJteEliKzJna0wzVEhWVnVVcWYxZUJDRVg5UlRlTnhVRmJVeGNqb1FveWtsOUNCSFZWRWRsNCtKdmxVa0ZObGRncktYUkxFL3BSNm10ak9iVG53YmI1MS9iS0JFZUpqd0Fkd1BhbFlUc0J6TFRVMk96MFd6VjVVSVpnRnNwcjBCKzRqOW5wUXovNGxwQUorcFRMN3ozTWRJL2h3NkZQNnlETWdxaXhyWW5CbVBrbFJGQTNmSWIxWnFPWWNXS29wSWhnRnNxUWJhOGZJb3hacUl3K1NzdTZ4U3krTjNRbmdKa3Z2dEtrb1NyaEZoekFCbzIrZGhiZkRqQUw1MVYwanhqVWxRbjZsTXZ2aEJsMUhiSmhFUHgzTGkrNFZHZlN2aFRIckwzSjJ4RkIxTmpXUkF3ekZTa29vVWFBeFlEWUJyY3MvbVo1YkJiVWxJbWhrcHpQaFVNL1NvZFlWVlZsaVBCK2hNcW9UN1VYVkxnUU9ncXhuY0RZTEZDRng3eXltUy9TOStVYUhUVktLaFRWRjdrSTVmMnFzUENaeFJmMElQcjBDVDdLbFBBNVdVaGx2cjNEcFZWdGVidUFoc2tGdnIxUjBXTnJDa1NMNzh0dkMzL0xWd3BGR1dTL2YydEh2RjlMWC9jci9GWkgwaVhreUw2b2QwRHYrTUt1MEp2bEs4M3dwdmdhbzFkUy92Q0YzZENQVWhtL1h1SExDeDFDYlZzVkQxWFdhWEl2aEdKcDhFN2dTdE9nc3J0cE1GbWswYmRlaCtnam92ak9SSENjUFQrcytBUTNkUVlMbUUyZ1dXR1c1Q2xBWEV4Rys4WkVWZnJ1T1FiQ1V3Q0Rva0gxMG5SOVIvYVJocXVoaGhDSlZaR1hwT2NrWUFZWkVEQ0REQWlZUVFZRXpDQURBbWFRQWYwVitzT1VrcjdsKzljQUFBQUFTVVZPUks1Q1lJST1cIiAvPlxuXG48IS0tIHJuYi1wbG90LWVuZCAtLT5cbiJ9 -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAD1CAMAAADNn8l8AAAB0VBMVEUAAAAAADoAAGYAOjoAOmYAOpAAZpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjshmAABmADpmAGZmOmZmOpBmZgBmZrZmkJBmkNtmtrZmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZjqQZpCQkDqQkGaQkJCQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq47Iq6vIyI7IyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/AGb/tmb/tpD/yI7/yKv/yMj/25D/27b/5Kv/5Mj/5OT//7b//8j//9v//+T////UEHWIAAAACXBIWXMAAAuwAAALsAEaOBByAAATjklEQVR4nO2djX/jRpnHnXAhhHK9ixKabrpX9np478p2D4fSo0dvk4VruS6wyba0dPtiH+xBkw1QOIpd3uIFerTZ4HqbM9jx/LU8z8xIluQ3WVbGM/Lv92kta14eydI3MyPpp9mCgKBzV2HWOwDNg4AZZEDADDIgYAYZEDCDDAiYQQZkIWa1gtLqoMz2Y7vtzeLI+neOxm+DwoQWUZ0+tJ9gL6FJZCNmRXmmG4MwO9tZkGA0hpPWvhFeG1xQh/GjRXS6sgjMspaFmP1yX2IWxcXX2XUJRmU4Zh9FyBlSUIfRi6jQmmUvCzETwZlubxaouWlvfn6HetCznUJhmcGgno761U+sFBb3VctDOYs/5KKNwtIR95mqHosKLh0NDsPZvJC57c2FXRmM1iiuLkstG5UVlcLif+3rTyiVbMaMR061xbd3GKDF/cbSEX2eXb9JPd1vdqhj/TSR8p4aYtFoTY7YvkcN4RO6nkSCCw4O42OmC/OCtnpG5Xtl248fUQJHvLivPmd4TJyWzZgREUwPn3qVQGQpMDhJ1KhRel4N9/nrzrJoX5Lg6XqcwQWHhJHZ13d1rsaM1zRttJAXI8unKzxKVJ9QOtmMWY3O+dnOasBHjdoYAoP/Y8yIDH+AT+A0/umxXUKMwdP1OEO2ToPDyOzruzpXY1aLYqbIoq5z1f+EUslmzKjbYk70OafmRDVDPmai9jf/4PdilU8+f1T55IuC+0y/HqfL1mxwGJl9fVfnDsaMBmbcQopGoRh8QilkM2btzeXoOY9h1t4Mmhcm4HSlKC9T/XqczgWHhJHZ1AX3cmmQ/wPqGulS4G0fySJ1wkxurag+Z3M43JeVmNX0zdlTvpqks7/w7c3C0q9X6Opy8XOFhc9QYoWvKfUFAIv7Svn/iyKoJ8UFB4fZlbl8gSkL0zb/ke/W0aYXdnXZowbvx///J1+bqk8onazELKEUU5ADchmzEY8CILvkLmYV9GHuyF3MIIcEzCADAmaQAQEzyICAGWRAFmL2KShPkufURsxmvQNQhgJmkAG5hdlJdvERymQoYIZQBkIBM4QyEMotzP4EOabI2QRm0PkocjaBGXQ+ipzNDDHrbHkbx3VvvSpa/1zm1Y0fvclJnMcp3T3P89be3FqjzO4eFevV4k/P2wZmOdJ5YSY6zxBSvyN8Pv63khD1bWJLJgmdwisPyp1bF4T485erkVqi86xoKiKBWT50/pi9w8RIanzMZAqtPCiLzne/VBXvf6da99be2tt4udTD7IJQT5pOTuQFzkl4OeuDBk0qff7OD7POzzpEkmh6JR8zlUI9I3WYndsH292fHnKB7c4zr/ut2ZZ3QYdBa5YLRc5m5pgRP01/nFXf1pipFN2a3W5d+ePPD6sE1rZoloJOs3XlGJjlSOeGWfdWWULz/jF3gE2GiFdbz+kUuXK1c7t766vHh9XDanO7dfVuWRWhTrNeAmY50rlhJlqXqVekC8ptceBt/OFJb/1dvoCkIZhMeeRpWvH+gxqxZokuSF/1KOXa3mcvq+tPr9Td42tQPDrPl9y6bwY5KmAGGRAwgwzILcysch0gVHIBM4QyEAqYIZSBUMAMoQyEcgszyFG5hdms72lbKNPnJZ2AmeMyfV7SCZg5LtPnJZ3OGTPpoFVq8jNx6Q0K1AnbagfuWEyzPqcWauihn6dLAOmXlerulWJ5nWdFxFY7aMdimvU5tVBDD/08YSb9svWveF/xtptPXV6vEledrbVy69+31qtNrxS11fL7AQfeU2/APTuBTgYdJ17eH5KeYnkydZzzxUz6ZTtbF5oXWs8RSc1SfeP4Xrn5xb316t3y769GbbWUUaKeta7eOUFrlkxDj/0ctWbKL9vcbpYIs5JoXe2+cnzgeQQdQdUKMFPFOONuGZhNpnM6cxnrfDHzHbQas3qJMOO3UcKYBbZazqijNZtQ53TmMtZ5Ytb1/bIbL3ve+k+osaJ2a5tfKzlYf3frQmfrX8O22o0PKIPf1ByBGeSo7LtvNqo1gxyVdZi1Lqs30fHoPE+hrMPMFzDLUyhghlAGQgEzhDIQyi3MIEcFzCADAmaQAbmFWT5vkc+B5hYzq0bIuQ8FzKYXQo2VEcwGzEf7lpyCts8zG9+xmICZo6HMtGZD5qN9EMOs82x8x2ICZo6GMoxZZD5aouxgrXyw8UHIT9u6/OjPsnPPxutjOaOlWczC89GqKWgZtrCf9l75Y/VSCq408ySDmPXNR8t95t3yjyN+2uCfCgBmeZIZzIbNR3tVtL7whgj7aX9XpY/ejsUEzByVoRsaffPR/oKvNLllO5RTuPt+2tL/bY1yz1o1rEWo5HLrvplVhw6hkguYIZSBUMAMoQyEcgszyFEBM8iAgBlkQMAMMiC3MLNqWItQyeUWZhne2rfqLOQ+FDBDKAOhRmA2wIxYPvC84N/v9YvxzHgbP3qTSn+45332MnsVu3trT4bK1b0S2zLUEybpZZRT5vWek+vpQXmiFv2sCZjlKtSo1qzfjPjWKx888+Fr0VJ1YtH3KTJytwivP3+56k/E2HmWn5DfLYt3dETlZfSLRbYl/61zNRvtuWMGmVQizHpmRJnW3aOmR/oQ6/xA/JVj36coMfvul6ri/e8wZr5VsS4dGVsbx8pe1t3beLnkF6vzxFO8HmDGjeBIW6MNNj0ss7M1DjAjyjTCpq58iJS4TZj5PkWP8OvcPtju/vSQMPuwZ1UUref+wjD6XsbXhV+MI8h1hdlW0NWiNcuTxmIWNSPKNMKrdVUaxAgLiZn2KcrW7Hbryh9/fihbM+0hk60ZlblX1l5GWguKsfGH13Vr1rpyHN6xmICZoxqF2QAzomrNaKUkGTqsytYs8ClKzLq3vnocwUyNzUT3paryMrau3i37xTiCXJfTg1KnWS+FdywmXAI4GmrkDY0+M2KVvpTU2Ez6EOvUTf7e235AWe/6V5redrNEI64ne1ZFWamuQpGu7V3b84utv+p5jzwt1+kalK5WS3SRWu7tWEzAzNFQbt03s+rQIVRyATOEMhDKLcwgR9WHWaOwerqyOqO9CQmY5UlxzNqX2jdE++L+rPYnEDDLk+KYnb1ImDWWjma1P4GAWZ40oNMsFBZn35jhEiBXoQZfAvxy9pwBszyFimDW3iwoWdCcAbM8hYq2Znf0mMzW1izDJ5pWnYXch3LrvhkenDuqPsy441z2V7Iz0KoAvRqp3bPpfyo0O/Xd0NhZpavN4PZsVgZaHaCn1O7ZaX4sNCv13Z59nIdnwdgsKwOtDqDnAKXmMLV71g43KJZTumff26WP78Uxm9ZAqwNIW2OzJNhvltI9Oyg5jawaIec+1OAbGtFOMwMDrR+A5wBl89pxavfs1L9Yy6qzkPtQA29onD7hZ2dloNUB5BygTeY1tXt26l+sZdVZyH2ovk6zEr09m42B9os6wDG3jBTSe3QrrXt26l+sZdVZyH2ofofG2YuifWPquCP0cVV0XxtbCo/O86Q+zG6IRvHsa+f5FKA++l/R0QJmeVJfp1lb3K/07s/OTsAsT3LLoQE5qugNjYv76p4GHBoIlWmovtbsTuQpwOwEzPIUqu8SwILXAKSAWZ5C9bVm8jkTWjOEyjRUX2tm9dgMclRujc0gRzXwhkbvmebsBMzypHHPNENKbqWNe2Uzm3sWclSTPNNMbKWNeWWzm3vWqmEtQiXXJM80E1tpVYnOVqm5Vm4+9S+vZjb37El2rs772blD72cUh39ddq7V+9m5X0+mjjPJM83kVlpVgm2yxNBxdnPPWvUXilDJNckLdMmttKqEdGPTR3Zzz1p16BAquSbBLLGVVpegpIP1n5QynHsWclTRR+eXRhdOaKW9pkvwK0zbB7pQJnPPQo4q/sqJBff/lYBZnhTF7IZ82GTBXI3ALF8aNDar2dCm4RIgT6HirZk427HiyTkwy1Wo/teBi1PHzETALE+h4ibtqQNmJWCWp1BuzW8GOSpgBhkQMIMMCJhBBuQWZlYNaxEquSbALLV7Vplk6/y8ckr3rFWHDqGSa2IjUAr3LHszlE0D7tk5DZUKswnds1XGrK7n2YN7Fu7Z0UrrnpWtmbTQTuuehRyVCfesiLZmU7hnIUdlwj0bHZvBPTuHmuiGRnr3LP+bAPpKE+7ZORTumyGUgVDADKEMhAJmCGUgFDBDKAOh3MIMclTADDIgYAYZEDCDDMgtzKwa1iJUcgEzhDIQCpghlIFQk2GWfvrZ2Crcs/MVasLWLLWBNr6azj0LOaq0mE1qoFUVDtbKB9K4cSGdexZLR5cpMZvYQKtWpa1Ruh3hnp0rpcEsjYFWV7hb/vGxtJ/BPTtXmhCz1AZatSpaX3iDaxFQqdyzVg1rESq5Jr2hkc5A+wu9eswtIYXwHt1K5Z616tAhVHLN4L7Zx1XRfW1sKWCWp1AzwKyu3zwfLWCWp1BuPQWAHBUwgwwImEEGBMwgA3ILM6uGtQiVXMAMoQyEAmYIZSAUMEMoA6HcwgxyVOMxS+yY/VDPLNv01v/39Z47VttmM3HPQo4qQWuW2DGrZpZtXWE3Y88dq22zcM/OsybBbJxjVs3FeE9NYazdsbqWgHt2rpcTYDbWMatmlj2ULVTgjtW1snHPWjWsRajkSopZEsesas3uqtZMu2P9Wtm4Z606dAiVXAkwS+yY1TPLEijNku+O9W2zcM/OdagkNzSSO2aV/5+HXtodu/akrPXI03DPznUot9yzkKNyyz0LOSo8BYAMCJhBBuQWZlYNaxEquYAZQhkIBcwQykAoYIZQBkK5hRnkqIAZZEDADDKgMZhlY52te3KGM54YSD8BgHt2vjSuNcvCOiv/YWDxjo72QBmFUrlnrRrWIlRyJcZsCuus+mfOt7i54kJd6ZZN5Z49yc7VeT87d+j9jOLwr8vOtXo/O/frydRxkmI2jXWW2Gs995djOeUxF5JuWbhn5ylUIsymtM7K1oyS75VVIemLhHt2nkKNwywL66wam4nuS1VdiN2yqdyzkKMae0NjeusslaMKdRWGdG1PumXTuGchR4X7ZpABATPIgNzCzKphLUIlFzBDKAOhgBlCGQgFzBDKQCh7MYPyJHlOLcRsoOy8/MReJRQwm0bYq4RyBTPIaQEzyICAGWRAwAwyIAcwk+8TBAtbpHen6a1XxxU1J/8VC8uOlQuYac+aXtgif3femfWORNV9iTGz7FgJFzDTDlzfiGuJ9O7I9xwsksLMsmMlXMBMvk8QLGyR3h35nsOs9yUkhZllx0q4gJnVrZkQ+pUuS4TWLK3sHpvpE2uLMDZLLfk+wbZcWCS1V/Ukk+kaFL9/Yd+xcgIzyH0BM8iAgBlkQMAMMiBgBhkQMIMMKE+Y1QqF1fd2Y4ln13fbj8lEvYhoUFqQePrw0bAi49VfLWUguSd/N77IQ/sT7c1E+u+paotcYVZZOhK1hfgBqaiUPvwiuQPV3lw6GlMkpmAjQ7aWqO4AKd5H6mxncRRmU2pKSvOE2emn+VA0irFkas14MeTvUecOiSjP7sgiUQUbSfHXP6LK2dcSENS+eI6YifbjY0EfqfxgVlvSR4L7Tjrq/1OghEahsMCdJi2L/CcZymtvFhb3JUNnO4Vlag1+yAntiy8sfPuxXZl5+vDXC8sSs0pBBueKVF+ucsFvPvz9wtKvCku/3Vzcp0ZPboQrDtiakE3Cqa5w5EfSJV5Y+IZfVxev0Vd/s41lRl7XVBsPlZS/2F8LZdCvou+VYNu9/eiVCTZWWFW/eMU/CvGdqMT/fCdT/jCjNuh05fNEDp/Wh/apkSMCfsOsLOyG82qrBJBqqrgl+Egm3Nyh004FZebpSvFsp0hfGpS2qnAUlMirf08FaZ3OzjKP/i4ysLwRWXHA1gT3vjf9Cjd1JL/EqvDr3lTFiazKqt4spYvepmRiqKSQGFY4V/8onVFb7u252rYu3iuj0+ReFOk/7rqH7ERtdaqTkz/M+IDQUZcnnk+QZIlxUutBHp+6ou4R6UDeOZIJTJyfyZ2mxIb+2gkL3THVVuUqf1eBCEX9RTeNxUFbUxcjoQoykl9CBHVVEdl4+JvlUkFNldgrKXRLE/pR6mtjObTnwbb51/bKBEeJjwAdwPalYTsBzLTU2Oz0WzV5UIZgFspr0B+4j9npQz/4lpAJ+pTL7z3MdI/hw6FP6yDMgqixrYnBmPklRFA3fIb1ZqOYcWKopIhgFsqQba8fIoxZqIw+Ssu6xSy+N3QngJkvvtKkoSrhFhzABo2+dhbfDjAL51V0jxjUlQn6lMvvhBl1HbJhEPx3Li+4VGfSvhTHrL3J2xFB1NjWRAwzFSkooUaAxYDYBrcs/mZ5bBbUlImhkpzPhUM/SodYVVVliPB+hMqoT7UXVLgQOgqxncDYLFCFx7yymS/S9+UaHTVKKhTVF7kI5f2qsPCZxRf0IPr0CT7KlPA5WUhlvr3DpVVtebuAhskFvr1R0WNrCkSL78tvC3/LVwpFGWS/f2tHvF9LX/cr/FZH0iXkyL6od0Dv+MKu0JvlK83wpvgao1dS/vCF3dCPUhm/XuHLCx1CbVsVD1XWaXIvhGJp8E7gStOgsrtpMFmk0bdeh+gjovjORHCcPT+s+AQ3dQYLmE2gWWGW5ClAXExG+8ZEVfruOQbCUwCDokH10nR9R/aRhquhhhCJVZGXpOckYAYZEDCDDAiYQQYEzCADAmaQAf0V+sOUkr7l+9cAAAAASUVORK5CYII=" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJsUnZibUZzUTI5dVVHVnliV2x0Y0M1emRtZGNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVE11TWl3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSnpkbWRjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1pFRnVibTk1VFc1VWIyNWhiRU52YmxCbGNtMXBiWEF1YzNablhDSXBYRzRnSUZ4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhDSlFkSE5CUW1SQmJtNXZlVTF1Vkc5dVlXeERiMjVRWlhKdGFXMXdMbkJrWmx3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU15NHlMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjSW5Ca1psd2lLU2xjYmlBZ2RXNXNhVzVyS0Z3aVVIUnpRVUprUVc1dWIzbE5ibFJ2Ym1Gc1EyOXVVR1Z5YldsdGNDNXdaR1pjSWlsY2JuMWNibHh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uVG9uYWxDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9My4yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNblRvbmFsQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5Ub25hbENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0zLjIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uVG9uYWxDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnTonalConPermimp.svg\, width=8, height=3.2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnTonalConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnTonalConPermimp.pdf\, width=8, height=3.2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnTonalConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmxSdmJtRnNRMjl1VUdWeWJXbHRjQzV6ZG1kY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUTXVNaXdnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4emRtZGNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWkVGdWJtOTVUVzVVYjI1aGJFTnZibEJsY20xcGJYQXVjM1puWEZ3cFhHNGdJRnh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WEZ4UWRITkJRbVJCYm01dmVVMXVWRzl1WVd4RGIyNVFaWEp0YVcxd0xuQmtabHhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TXk0eUxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNYSEJrWmx4Y0tTbGNiaUFnZFc1c2FXNXJLRnhjVUhSelFVSmtRVzV1YjNsTmJsUnZibUZzUTI5dVVHVnliV2x0Y0M1d1pHWmNYQ2xjYm4xY2JseHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uVG9uYWxDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9My4yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNblRvbmFsQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5Ub25hbENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0zLjIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uVG9uYWxDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNblRvbmFsQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTMuMiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5Ub25hbENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uVG9uYWxDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9My4yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNblRvbmFsQ29uUGVybWltcC5wZGZcXClcbn1cblxuXG5gYGBcbmBgYCJ9 -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnTonalConPermimp.svg\, width=8, height=3.2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnTonalConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnTonalConPermimp.pdf\, width=8, height=3.2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnTonalConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzUwYjI1aGJGWmhjaUE4TFNCY0lsVkJVMVJ2Ym1Gc1UwaE5TVzUwTURWRmVFMWhlRXhTWENKY2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG50b25hbFZhciA8LSBcXFVBU1RvbmFsU0hNSW50MDVFeE1heExSXFxcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
tonalVar <- \UASTonalSHMInt05ExMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNTBiMjVoYkZaaGNpQThMU0JjWEZWQlUxUnZibUZzVTBoTlNXNTBNRFZGZUUxaGVFeFNYRnhjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxudG9uYWxWYXIgPC0gXFxVQVNUb25hbFNITUludDA1RXhNYXhMUlxcXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG50b25hbFZhciA8LSBcXFVBU1RvbmFsU0hNSW50MDVFeE1heExSXFxcblxuYGBgXG5gYGAifQ== -->
```r
```r
tonalVar <- \UASTonalSHMInt05ExMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### Fluctuation strength
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUVac2RXTjBkV0YwYVc5dUlITjBjbVZ1WjNSb1hHNXBWbUZ5Y3lBOExTQmpLR0ZpYzFaaGNpd2daWFpsYm5SV1lYSXNJR0Z0WWxaaGNpd2dYQ0pWUVZOR2JIVmpkRk5JVFRFd1JYaENhVzVjSWl3Z1hDSlZRVk5HYkhWamRGTklUVEExUlhoQ2FXNWNJaXdnWENKVlFWTkdiSFZqZEVaYU1UQkZlRTFoZUV4U1hDSXNJRndpVlVGVFJteDFZM1JHV2pBMVJYaE5ZWGhNVWx3aUxDQmNJbFZCVTBac2RXTjBUMVl4TUVWNFRXRjRURkpjSWl3Z1hDSlZRVk5HYkhWamRFOVdNRFZGZUUxaGVFeFNYQ0lwWEc1a1ZtRnlJRHd0SUZ3aVpFRnVibTk1VFdWaGJsd2lYRzVjYm5ObFpXUnpJRHd0SUdNb01qVXhNRGNzSURVME5qQTVPQ3dnTVRrMUxDQTFPVE0zTENBeE1ESTJOVGdwWEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbiMgRmx1Y3R1YXRpb24gc3RyZW5ndGhcbmlWYXJzIDwtIGMoYWJzVmFyLCBldmVudFZhciwgYW1iVmFyLCBcXFVBU0ZsdWN0U0hNMTBFeEJpblxcLCBcXFVBU0ZsdWN0U0hNMDVFeEJpblxcLCBcXFVBU0ZsdWN0RloxMEV4TWF4TFJcXCwgXFxVQVNGbHVjdEZaMDVFeE1heExSXFwsIFxcVUFTRmx1Y3RPVjEwRXhNYXhMUlxcLCBcXFVBU0ZsdWN0T1YwNUV4TWF4TFJcXClcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYygyNTEwNywgNTQ2MDk4LCAxOTUsIDU5MzcsIDEwMjY1OClcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Fluctuation strength
iVars <- c(absVar, eventVar, ambVar, \UASFluctSHM10ExBin\, \UASFluctSHM05ExBin\, \UASFluctFZ10ExMaxLR\, \UASFluctFZ05ExMaxLR\, \UASFluctOV10ExMaxLR\, \UASFluctOV05ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(25107, 546098, 195, 5937, 102658)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRVpzZFdOMGRXRjBhVzl1SUhOMGNtVnVaM1JvWEc1cFZtRnljeUE4TFNCaktHRmljMVpoY2l3Z1pYWmxiblJXWVhJc0lHRnRZbFpoY2l3Z1hGeFZRVk5HYkhWamRGTklUVEV3UlhoQ2FXNWNYQ3dnWEZ4VlFWTkdiSFZqZEZOSVRUQTFSWGhDYVc1Y1hDd2dYRnhWUVZOR2JIVmpkRVphTVRCRmVFMWhlRXhTWEZ3c0lGeGNWVUZUUm14MVkzUkdXakExUlhoTllYaE1VbHhjTENCY1hGVkJVMFpzZFdOMFQxWXhNRVY0VFdGNFRGSmNYQ3dnWEZ4VlFWTkdiSFZqZEU5V01EVkZlRTFoZUV4U1hGd3BYRzVrVm1GeUlEd3RJRnhjWkVGdWJtOTVUV1ZoYmx4Y1hHNWNibk5sWldSeklEd3RJR01vTWpVeE1EY3NJRFUwTmpBNU9Dd2dNVGsxTENBMU9UTTNMQ0F4TURJMk5UZ3BYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG4jIEZsdWN0dWF0aW9uIHN0cmVuZ3RoXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNGbHVjdFNITTEwRXhCaW5cXCwgXFxVQVNGbHVjdFNITTA1RXhCaW5cXCwgXFxVQVNGbHVjdEZaMTBFeE1heExSXFwsIFxcVUFTRmx1Y3RGWjA1RXhNYXhMUlxcLCBcXFVBU0ZsdWN0T1YxMEV4TWF4TFJcXCwgXFxVQVNGbHVjdE9WMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoMjUxMDcsIDU0NjA5OCwgMTk1LCA1OTM3LCAxMDI2NTgpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIEZsdWN0dWF0aW9uIHN0cmVuZ3RoXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNGbHVjdFNITTEwRXhCaW5cXCwgXFxVQVNGbHVjdFNITTA1RXhCaW5cXCwgXFxVQVNGbHVjdEZaMTBFeE1heExSXFwsIFxcVUFTRmx1Y3RGWjA1RXhNYXhMUlxcLCBcXFVBU0ZsdWN0T1YxMEV4TWF4TFJcXCwgXFxVQVNGbHVjdE9WMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoMjUxMDcsIDU0NjA5OCwgMTk1LCA1OTM3LCAxMDI2NTgpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# Fluctuation strength
iVars <- c(absVar, eventVar, ambVar, \UASFluctSHM10ExBin\, \UASFluctSHM05ExBin\, \UASFluctFZ10ExMaxLR\, \UASFluctFZ05ExMaxLR\, \UASFluctOV10ExMaxLR\, \UASFluctOV05ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(25107, 546098, 195, 5937, 102658)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbnAgPC0gbXRyeVR1bmUoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkPXNlZWRzWzE6Ml0sXG4gICAgICAgICAgICAgbnRyZWVzPW50cmVlcywgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuYGBgXG5gYGAifQ== -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWTVSelE0ZVRKdmQyTnhOMW92ZGxvM2VqSTFPRFZyS3pKbUt6ZE1TRkJ3T0haWlVIcFZWVzFRYTNWbVRFZzVhemswTVdKS1RtWnNaRzh2ZVdacWFtWkhMMDlPVEdrclZqUkliRGQwYldWd0t6Rm1URGN5TVd3ek1WUnVVREJpYTNkc00xQkNOV1YwU0RscWVuSm9kR2szSzNRdlVuWkNjRlp4UWpVMEwyRjJOelJVWkU5MFNYSjRXbU16TDA5c2RYZDZMMmgyYWxwUU5UWTBXakJtTlRjeVJEZFNPRmxLUkhjdmRtRnlXaTgyUW1SdGMxWlVaMmxtTWtSNmFFNU9WREJOVURKMEx5OTVOM2hWZVZnNFpGVkJPSFpUUWpoUlRUUkdPVU5RVVZJeFVEQm5UVmhoV1hWUk5EaEVSMFJuZDBGaGJHMVRRekF2VWpodkwxRk9TMll5UjBGQmNGTkJXV014VEhwRk1IUkNha2xGZDBsYVJFSkdiVU5tU1U1a2IxZDVUMjlQVEVNd2MxTnBNVUpSYjI0NWJsaEZVMkpHYTJ4MFUxWkJiR3hqTWxkSFNsSlpWbmcwVGtaVlJ6Tm5URTF2ZGpFMFVGcEJka2xUVlhkUVJVaFhlbTlVYTI1UFUxTjVSMDlSVlcxNVNsZFRWMHBMYjJ3eFdVVXhRUzlyTDFWUVZIZHdOV1pWU2t0YWJuZG1WWGhCVTB0WVRFRkhjMFJSUlVsNGRrVlhRVkZPVFZWWlNFUldhRWxSVUd0RFkwUTJlVUp2U0ZOUVNrTnlWVE5UVkUwd2NucHpibFpPZW1SRWEyMVJkbmt3Y0VoeldUUkVObXBvUldGUlZFRXlTemhVU2xSUUsyZ3lhbXhvWjFwbFlXNUtSVkJhWWs5c05YRldialZ4V0VOQmFYZDBUVEV5ZGxCRVQyeEtRVTFYUW1sRFFtcE9WRTA1U1hkVFYwWkViRXBEWVd3MWMwRmphM0JLWVVKdFdIbEJZMDFoU0U1U05rSlZWMXBsVkVSV1dFVkVVbGx5TWxNdlNrcEZiVUpoZFRWUWQyTnRRV2MwVmtKdUswRlJRa0ZXUm1WRlZGRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuODc5OTgwNFxcLFxcMlxcOlxcMC44MjI0NDQ2XFwsXFwzXFw6XFwwLjczODk4MDRcXCxcXDRcXDpcXDJcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43NDIwNjYzXFwsXFwyXFw6XFwwLjg2Mzk5NTlcXCxcXDNcXDpcXDAuNjExNTQwMlxcLFxcNFxcOlxcM1xcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjY5NzE0NzFcXCxcXDJcXDpcXDAuODgxNDE2N1xcLFxcM1xcOlxcMC41Njg3NzE4XFwsXFw0XFw6XFw0XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNjYyMjM5NFxcLFxcMlxcOlxcMC44ODE3MTQ3XFwsXFwzXFw6XFwwLjU0MDgxMjZcXCxcXDRcXDpcXDVcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42NDIyOTM5XFwsXFwyXFw6XFwwLjg3NzE1NDBcXCxcXDNcXDpcXDAuNTE2ODE5MlxcLFxcNFxcOlxcNlxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjYzNzgxNTZcXCxcXDJcXDpcXDAuODcwNjQ1MFxcLFxcM1xcOlxcMC40OTk4MTc4XFwsXFw0XFw6XFw3XFwsXFw1XFw6XFwxLjI1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNl19LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWXZSMHM1VlRoMVdYcENMM1pzYldzMVFubDRWbTR5ZW5sUlVHUkJZbkIwZEdzdlZsUjNjbk5QY1dwMVVESlViVGNyYzNaS1kzTnpXRGhUTjI0M1YybGpWVVJ5ZFN0V0x6ZEZSazVpZGpBM1JpdG1XRWRRTDB0dmNrUXZiekI2U1hjNWRtWlpTRGx0TDJsd2IxaFBNazg1YVM5WlZsRlVjalJwWVdKMkx6WldZMjFXYzBGU1VIVk1OMjVLZUhwUU1rWmFUWFJJT0RnclprZ3dReTlQVmpkU0x5c3JkSEppWVVKa2J5OHhRWFp6Tnpsek5IZ3ZOMElyWlVaR1RGcGtabGRVTDJkSWRuWnVhSFEzYW5kUU1UaEpUREJCVkVWVU1rbGtRVWd3U0dSRWVFcHFhRFZ1Y25kTlRVRkNaelZ6VlVwdlNsRjBkaTluWkVrdmIxQlJXRUpwYUVGRFVtcFhkazFVWXpGSFNXZFJkMEp6VDBWVFVVcGpaek15UWxoTE5XZG5jVXhwZUU1TVJYQk9aMlpMV21aU01XaFZhWGsxU2xWWFZsVkVXbGhhYkdocFZWaEZPRmRCVkZaQ2N6WnBMMGhKT1cxRE1HZE1la1V4VVU1NlFtaDFObFUxU25wRldYQm9WRmxKU21OTFdXdHNhVmh3Y0ZKVlJEbFJUalF2VGtNemN5dFJWV3h0Wm13MVVVVXhUVzlOWjBaaGQwSk1VWHBEZVZGWmVFWXdRa0pxWkU1RFFXaFJVMVZNZDBSdVNUSnpVVXROTUVSMVZIQkdUbnB0YWs1RE9XSXhPVkZOVkZvMk5VbERPR1I1VkRSSGNVODRXVzlTUlVWWk4wNURiazE2TUVnMmNXUkZlRm8wY1dOcldpdFdRVEpYTW5CbFpXMWFaVXRwZWtFd2FreFVPV052ZWxVd2IzbFpSMFZCUlhOb1NYcFZlbEJMU1VWR1ZsVTFhVlZ0YjA5NlEwVndjVmRXVVVwb09IZHlUVVpDY2xaa1VXeEthMGhWT0RCR1JrTXpWMHM0YTNaVFdWSndORlZ5VDNvMFIwcG5SVTlXTkZJNFFVZ3pTVFp4YXpCRVFVRkJQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg4NDA4MTVcXCxcXDJcXDpcXDAuODIyMjM4M1xcLFxcM1xcOlxcMC43NDMxOTU0XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNzQwNjI1NVxcLFxcMlxcOlxcMC44NjgzNjgzXFwsXFwzXFw6XFwwLjYxMTgwMjlcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC42OTA2NDM2XFwsXFwyXFw6XFwwLjg4MzE3OTJcXCxcXDNcXDpcXDAuNTYxODg0N1xcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY2MDM3NjFcXCxcXDJcXDpcXDAuODg2NjY3OVxcLFxcM1xcOlxcMC41MzY5MTU2XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjUxNjA4NlxcLFxcMlxcOlxcMC44NzUxNDAyXFwsXFwzXFw6XFwwLjUyNTI3NzJcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42MzU2NTQ0XFwsXFwyXFw6XFwwLjg3MjM3MDJcXCxcXDNcXDpcXDAuNTAxNDMzMlxcLFxcNFxcOlxcN1xcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnY5RzQ4eTJvd2NxN1ovdlo3ejI1ODVrKzJmKzdMSFBwOHZZUHpVVW1Qa3VmTEg5azk0MWJKTmZsZG8veWZqamZHL09OTGkrVjRIbDd0bWVwKzFmTDcyMWwzMVRuUDBia3dsM1BCNWV0SDlqenJodGk3K3QvUnZCcFZxQjU0L2F2NzRUZE90SXJ4WmMzL09sdXd6L2h2alpQNTY0WjBmNTcyRDdSOFlKRHcvdmFyWi82QmRtc1ZUZ2lmMkR6aE5OVDBNUDJ0Ly95N3hVeVg4ZFVBOHZTQjhRTTRGOUNQUVIxUDBnTVhhWXVRNDhER0Rnd0FhbG1TQzAvUjhvL1FOS2YyR0FBcFNBWWMxTHpFMHRCaklFd0laREJGbUNmSU5kb1d5T29PTEMwc1NpMUJRb245blhFU2JGa2x0U1ZBbGxjMldHSlJZVng0TkZVRzNnTE1vdjE0UFpBdklTVXdQRUhXem9Ua25PU1N5R09RVW15SldTV0pLb2wxWUUxQS9rL1VQVHdwNWZVSktabndmVXhBU0tYTEFHc0RRRUl4dkVXQVFOTVVZSERWaElRUGtDY0Q2eUJvSFNQSkNyVTNTVE0wcnpzblZOemREa21RdnkwcEhzWTRENmpoRWFRVEEySzhUSlRQK2gyamxoZ1plYW5KRVBaYk9sNXFWbjVxWENBaXd0TTEydlBET2xKQU1XQmlDQmpOVE05SXdTV0ZEbEpDYWw1c0Fja3BKYUJtWHlBY01hSE5SNkJVV1plVERWWEVEUllyMlMvSkpFbUJhdTVQd2NtQWc0VkJuK0FRQkFWRmVFVFFNQUFBPT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8799804\,\2\:\0.8224446\,\3\:\0.7389804\,\4\:\2\,\5\:\3.50\},{\1\:\0.7420663\,\2\:\0.8639959\,\3\:\0.6115402\,\4\:\3\,\5\:\2.75\},{\1\:\0.6971471\,\2\:\0.8814167\,\3\:\0.5687718\,\4\:\4\,\5\:\2.25\},{\1\:\0.6622394\,\2\:\0.8817147\,\3\:\0.5408126\,\4\:\5\,\5\:\1.75\},{\1\:\0.6422939\,\2\:\0.8771540\,\3\:\0.5168192\,\4\:\6\,\5\:\1.50\},{\1\:\0.6378156\,\2\:\0.8706450\,\3\:\0.4998178\,\4\:\7\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnYvR0s5VTh1WXpCL3ZsbWs1Qnl4Vm4yenlRUGRBYnB0dGsvVlR3cnNPcWp1UDJUbTcrc3ZKY3NzWDhTN243V2ljVURydStWLzdFRk5idjA3RitmWEdQL0tvckQvbzB6SXc5dmZZSDltL2lwb1hPMk85aS9ZVlFUcjRpYWJ2LzZWY21Wc0FSUHVMN25KeHpQMkZaTXRIODgrZkgwQy9PVjdSLysrdHJiYUJkby8xQXZzNzlzNHgvN0IrZUZGTFpkZldUL2dIdnZuaHQ3andQMThJTDBBVEVUMklkQUgwSGREeEpqaDVucndNTUFCZzVzVUpvSlF0di9nZEkvb1BRWEJpaEFDUmpXdk1UYzFHSWdRd0JzT0VTUUpjZzMyQlhLNWdncUxpeE5MRXBOZ2ZLWmZSMWhVaXk1SlVXVlVEWlhabGhpVVhFOFdBVFZCczZpL0hJOW1DMGdMekUxUU56Qmh1NlU1SnpFWXBoVFlJSmNLWWtsaVhwcFJVRDlRTjQvTkMzcytRVWxtZmw1UUUxTW9NZ0Zhd0JMUXpDeVFZeEYwQkJqZE5DQWhRU1VMd0RuSTJzUUtNMER1VHBGTnptak5DOWIxOVFNVFo2NUlDOGR5VDRHcU84WW9SRUVZN05Dbk16MEg2cWRFeFo0cWNrWitWQTJXMnBlZW1aZUtpekEwakxUOWNvelUwb3lZR0VBRXNoSXpVelBLSUVGVlU1aVVtb096Q0VwcVdWUUpoOHdyTUZCclZkUWxKa0hVODBGRkMzV0s4a3ZTWVJwNFVyT3o0R0pnRU9WNFI4QUgzSTZxazBEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8840815\,\2\:\0.8222383\,\3\:\0.7431954\,\4\:\2\,\5\:\3.50\},{\1\:\0.7406255\,\2\:\0.8683683\,\3\:\0.6118029\,\4\:\3\,\5\:\2.75\},{\1\:\0.6906436\,\2\:\0.8831792\,\3\:\0.5618847\,\4\:\4\,\5\:\2.25\},{\1\:\0.6603761\,\2\:\0.8866679\,\3\:\0.5369156\,\4\:\5\,\5\:\1.75\},{\1\:\0.6516086\,\2\:\0.8751402\,\3\:\0.5252772\,\4\:\6\,\5\:\1.50\},{\1\:\0.6356544\,\2\:\0.8723702\,\3\:\0.5014332\,\4\:\7\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGpsSE5EaDVNbTkzWTNFM1dpOTJXamQ2TWpVNE5Xc3JNbVlyTjB4SVVIQTRkbGxRZWxWVmJWQnJkV1pNU0Rsck9UUXhZa3BPWm14a2J5OTVabXBxWmtjdlQwNU1hU3RXTkVoc04zUnRaWEFyTVdaTU56SXhiRE14Vkc1UU1HSnJkMnd6VUVJMVpYUklPV3A2Y21oMGFUY3JkQzlTZGtKd1ZuRkNOVFF2WVhZM05GUmtUM1JKY25oYVl6TXZUMngxZDNvdmFIWnFXbEExTmpSYU1HWTFOekpFTjFJNFdVcEVkeTkyWVhKYUx6WkNaRzF6VmxSbmFXWXlSSHBvVGs1VU1FMVFNblF2TDNrM2VGVjVXRGhrVlVFNGRsTkNPRkZOTkVZNVExQlJVakZRTUdkTldHRlpkVkUwT0VSSFJHZDNRV0ZzYlZORE1DOVNPRzh2VVU1TFpqSkhRVUZ3VTBGWll6Rk1la1V3ZEVKcVNVVjNTVnBFUWtadFEyWkpUbVJ2VjNsUGIwOU1RekJ6VTJreFFsRnZiamx1V0VWVFlrWnJiSFJUVmtGc2JHTXlWMGRLVWxsV2VEUk9SbFZITTJkTVRXOTJNVFJRV2tGMlNWTlZkMUJGU0ZkNmIxUnJiazlUVTNsSFQxRlZiWGxLVjFOWFNrdHZiREZaUlRGQkwyc3ZWVkJVZDNBMVpsVktTMXB1ZDJaVmVFRlRTMWhNUVVkelJGRkZTWGgyUlZkQlVVNU5WVmxJUkZab1NWRlFhME5qUkRaNVFtOUlVMUJLUTNKVk0xTlVUVEJ5ZW5OdVZrNTZaRVJyYlZGMmVUQndTSE5aTkVRMmFtaEZZVkZVUVRKTE9GUktWRkFyYURKcWJHaG5XbVZoYmtwRlVGcGlUMncxY1ZadU5YRllRMEZwZDNSTk1USjJVRVJQYkVwQlRWZENhVU5DYWs1VVRUbEpkMU5YUmtSc1NrTmhiRFZ6UVdOcmNFcGhRbTFZZVVGalRXRklUbEkyUWxWWFdtVlVSRlpZUlVSU1dYSXlVeTlLU2tWdFFtRjFOVkIzWTIxQlp6UldRbTRyUVZGQ1FWWkdaVVZVVVUxQlFVRTlQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjg3OTk4MDRcIixcIjJcIjpcIjAuODIyNDQ0NlwiLFwiM1wiOlwiMC43Mzg5ODA0XCIsXCI0XCI6XCIyXCIsXCI1XCI6XCIzLjUwXCJ9LHtcIjFcIjpcIjAuNzQyMDY2M1wiLFwiMlwiOlwiMC44NjM5OTU5XCIsXCIzXCI6XCIwLjYxMTU0MDJcIixcIjRcIjpcIjNcIixcIjVcIjpcIjIuNzVcIn0se1wiMVwiOlwiMC42OTcxNDcxXCIsXCIyXCI6XCIwLjg4MTQxNjdcIixcIjNcIjpcIjAuNTY4NzcxOFwiLFwiNFwiOlwiNFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY2MjIzOTRcIixcIjJcIjpcIjAuODgxNzE0N1wiLFwiM1wiOlwiMC41NDA4MTI2XCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjQyMjkzOVwiLFwiMlwiOlwiMC44NzcxNTQwXCIsXCIzXCI6XCIwLjUxNjgxOTJcIixcIjRcIjpcIjZcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42Mzc4MTU2XCIsXCIyXCI6XCIwLjg3MDY0NTBcIixcIjNcIjpcIjAuNDk5ODE3OFwiLFwiNFwiOlwiN1wiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzZdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adjlHNDh5Mm93Y3E3Wi92Wjd6MjU4NWsrMmYrN0xIUHA4dllQelVVbVBrdWZMSDlrOTQxYkpOZmxkby95ZmpqZkcvT05MaStWNEhsN3RtZXArMWZMNzIxbDMxVG5QMGJrd2wzUEI1ZXRIOWp6cmh0aTcrdC9SdkJwVnFCNTQvYXY3NFRkT3RJcnhaYzMvT2x1d3ovaHZqWlA1NjRaMGY1NzJEN1I4WUpEdy92YXJaLzZCZG1zVlRnaWYyRHpoTk5UME1QMnQvL3k3eFV5WDhkVUE4dlNCOFFNNEY5Q1BRUjFQMGdNWGFZdVE0OERHRGd3QWFsbVNDMC9SOG8vUU5LZjJHQUFwU0FZYzFMekUwdEJqSUV3SVpEQkZtQ2ZJTmRvV3lPb09MQzBzU2kxQlFvbjluWEVTYkZrbHRTVkFsbGMyV0dKUllWeDRORlVHM2dMTW92MTRQWkF2SVNVd1BFSFd6b1Rrbk9TU3lHT1FVbXlKV1NXSktvbDFZRTFBL2svVVBUd3A1ZlVKS1pud2ZVeEFTS1hMQUdzRFFFSXh2RVdBUU5NVVlIRFZoSVFQa0NjRDZ5Qm9IU1BKQ3JVM1NUTTByenNuVk56ZERrbVF2eTBwSHNZNEQ2amhFYVFUQTJLOFRKVFAraDJqbGhnWmVhbkpFUFpiT2w1cVZuNXFYQ0Fpd3RNMTJ2UERPbEpBTVdCaUNCak5UTTlJd1NXRkRsSkNhbDVzQWNrcEphQm1YeUFjTWFITlI2QlVXWmVURFZYRURSWXIyUy9KSkVtQmF1NVB3Y21BZzRWQm4rQVFCQVZGZUVUUU1BQUE9PSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8799804","2":"0.8224446","3":"0.7389804","4":"2","5":"3.50"},{"1":"0.7420663","2":"0.8639959","3":"0.6115402","4":"3","5":"2.75"},{"1":"0.6971471","2":"0.8814167","3":"0.5687718","4":"4","5":"2.25"},{"1":"0.6622394","2":"0.8817147","3":"0.5408126","4":"5","5":"1.75"},{"1":"0.6422939","2":"0.8771540","3":"0.5168192","4":"6","5":"1.50"},{"1":"0.6378156","2":"0.8706450","3":"0.4998178","4":"7","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWXZObXd5ZEhreWJYUTVLM2htVFZoV1NEVkVOMVIwYmpadU1sZ3plWHB3T1V3cmNXWXZZMlV5THl0eWNsb3ZZM1pwWldVeE5XZHRaakpVVVdnd2JVMWFNRk4xVERWWWVTOW1kWFZETUdsYVVDODJjRThyYXpkVFZVODViU3REZFRaa1pFODRTbWt2T0dKS1QyMVFjVmQ0U0RkT04zbGFSR1JOZVd4MGFTOW1hRVI1VmtwTGFFaExOM1psWkRKcVJtUk5jekoxTUdZek9YcE9aV05xYVhWMk1Hb3lWMFJFWmxJMk56ZENLelpHVlhaTE4xWkRlV1kzUW14M2Ntc3lNRkZZTWtSNlVVTm1LekpLVkZGRWNUUlJXSEJCTWtsdGMwRXJRbEJ2U3paSWVWUkhSR3BRV0dkWlkwSkVRbnBaYjBSUlZHaE1ZaTlCTmxZdlVVOXJka1JHUTBGRmFrTnpaVmx0TlhGalZrRm9aMFJaWTBsbloxTTFRblp6UTNWVmVsSkdWVmhHYVdGWFNsTmhRWFZWZWl0NmNrTndSbWg1VXpSdmNXOVhlWFY2VEVSRmIzVktOSE5CYVhGRVduaEdLMlZXTmsxR2RFRlliVXB4WjB4cFJFUmtNSEI1VkcxS2VGUkRibmRCVXpWVmFFcE1SWFpZVTJsdlJEWm5Zbmd2WVVaeVdUaDNkRXROZGxCNlowcHhXVkZLUlV3eFowTlhhRzFDYTJkNGFVeHZRMGhITmt0QlFrTjNhMjlZZDBSUFVqbFpaMVZLYjBoamJsZExZbTVLUjJGV05qSnljV3RhYldwNGVsRldORFpyYmpCTlZVNDRlRkZwVFVsNGJXRkdUMHB1Y0ZBeFVUZEtlWHAzVlhCTmVqaHhSbk4wZEZNNE9VMTVPRlpHYVVGd1YxZHROalZXYm5Cd1VtdDNUVWxCU2twRFVtMXdiV1ZWVVVsTWNYQjZSWEJPVVdOdFJVNVRWWE4xWjFSRU5XZFhTVTlFVjNFclowdEVUVkJ3Y0c5TVMwWnhjMVkxU21acloycFVkM0JYWTI1M1RWUkJXV054ZDNvNFFWaEhlVmRYUlRCRVFVRkJQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg3NDMwMDdcXCxcXDJcXDpcXDAuODMyOTc2MlxcLFxcM1xcOlxcMC43MzQyMzg5XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNzUwNDMyMlxcLFxcMlxcOlxcMC44NjgzMjMxXFwsXFwzXFw6XFwwLjYyMDMyODRcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC42OTIwODUyXFwsXFwyXFw6XFwwLjg4NTE5ODRcXCxcXDNcXDpcXDAuNTY2MDc5N1xcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY2NTk2ODhcXCxcXDJcXDpcXDAuODgzMDg1MFxcLFxcM1xcOlxcMC41Mzk4NDk4XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjQ4OTA5N1xcLFxcMlxcOlxcMC44NzY2MzcyXFwsXFwzXFw6XFwwLjUyMjA0MTdcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42Mzg4MTQ5XFwsXFwyXFw6XFwwLjg3MTEzNDJcXCxcXDNcXDpcXDAuNTA0OTIxOVxcLFxcNFxcOlxcN1xcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnYvNmwydHkybXQ5K3hmTVhWSDVEN1R0bjZuMlgzeXpwOUwrcWYvY2UyLytyclovY3ZpZWUxNWdtZjJUUWgwbU1aMFN1TDVYeS9mdXVDMGlaUC82cE8razdTVU85bStDdTZkZE84SmkvOGJKT21QcVd4SDdON3laRGRNeWx0aS9maER5VkpLaEhLN3ZlZDJqRmRNczJ1MGYzOXpOZWNqaXV2MGoyV0REZlI2NzdCKzZGVXZLN1ZDeWY3Qmx3cmsyMFFYMkR6UUNmKzJKVFFEcTRRWHBBMkltc0ErQlBvSzZIeVRHRGpQWGdZY0JEQnpZb0RRVGhMYi9BNlYvUU9rdkRGQ0FFakNzZVltNXFjVkFoZ0RZY0lnZ1M1QnZzQ3VVelJGVVhGaWFXSlNhQXVVeit6ckNwRmh5UzRvcW9XeXV6TERFb3VKNHNBaXFEWnhGK2VWNk1GdEFYbUpxZ0xpRERkMHB5VG1KeFRDbndBUzVVaEpMRXZYU2lvRDZnYngvYUZyWTh3dEtNdlB6Z0pxWVFKRUwxZ0NXaG1Ca2d4aUxvQ0hHNktBQkN3a29Yd0RPUjlZZ1VKb0hjbldLYm5KR2FWNjJycWtabWp4elFWNDZrbjBNVU44eFFpTUl4bWFGT0pucFAxUTdKeXp3VXBNejhxRnN0dFM4OU15OFZGaUFwV1dtNjVWbnBwUmt3TUlBSkpDUm1wbWVVUUlMcXB6RXBOUWNtRU5TVXN1Z1RENWdXSU9EV3ErZ0tETVBwcG9MS0Zxc1Y1SmZrZ2pUd3BXY253TVRBWWNxd3o4QVhHeVdXRTBEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8743007\,\2\:\0.8329762\,\3\:\0.7342389\,\4\:\2\,\5\:\3.50\},{\1\:\0.7504322\,\2\:\0.8683231\,\3\:\0.6203284\,\4\:\3\,\5\:\2.75\},{\1\:\0.6920852\,\2\:\0.8851984\,\3\:\0.5660797\,\4\:\4\,\5\:\2.25\},{\1\:\0.6659688\,\2\:\0.8830850\,\3\:\0.5398498\,\4\:\5\,\5\:\1.75\},{\1\:\0.6489097\,\2\:\0.8766372\,\3\:\0.5220417\,\4\:\6\,\5\:\1.50\},{\1\:\0.6388149\,\2\:\0.8711342\,\3\:\0.5049219\,\4\:\7\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGk5SFN6bFZPSFZaZWtJdmRteHRhelZDZVhoV2JqSjZlVkZRWkVGaWNIUjBheTlXVkhkeWMwOXhhblZRTWxSdE55dHpka3BqYzNOWU9GTTNiamRYYVdOVlJISjFLMVl2TjBWR1RtSjJNRGRHSzJaWVIxQXZTMjl5UkM5dk1IcEpkemwyWmxsSU9XMHZhWEJ2V0U4eVR6bHBMMWxXVVZSeU5HbGhZbll2TmxaamJWWnpRVkpRZFV3M2JrcDRlbEF5UmxwTmRFZzRPQ3RtU0RCREwwOVdOMUl2S3l0MGNtSmhRbVJ2THpGQmRuTTNPWE0wZUM4M1FpdGxSa1pNV21SbVYxUXZaMGgyZG01b2REZHFkMUF4T0VsTU1FRlVSVlF5U1dSQlNEQklaRVI0U21wb05XNXlkMDFOUVVKbk5YTlZTbTlLVVhSMkwyZGtTUzl2VUZGWVFtbG9RVU5TYWxkMlRWUmpNVWRKWjFGM1FuTlBSVk5SU21Obk16SkNXRXMxWjJkeFRHbDRUa3hGY0U1blprdGFabEl4YUZWcGVUVktWVmRXVlVSYVdGcHNhR2xWV0VVNFYwRlVWa0p6Tm1rdlNFazViVU13WjB4NlJURlJUbnBDYUhVMlZUVktla1ZaY0doVVdVbEtZMHRaYTJ4cFdIQndVbFZFT1ZGT05DOU9Rek56SzFGVmJHMW1iRFZSUlRGTmIwMW5SbUYzUWt4UmVrTjVVVmw0UmpCQ1FtcGtUa05CYUZGVFZVeDNSRzVKTW5OUlMwMHdSSFZVY0VaT2VtMXFUa001WWpFNVVVMVVXalkxU1VNNFpIbFVORWR4VHpoWmIxSkZSVmszVGtOdVRYb3dTRFp4WkVWNFdqUnhZMnRhSzFaQk1sY3ljR1ZsYlZwbFMybDZRVEJxVEZRNVkyOTZWVEJ2ZVZsSFJVRkZjMmhKZWxWNlVFdEpSVVpXVlRWcFZXMXZUM3BEUlhCeFYxWlJTbWc0ZDNKTlJrSnlWbVJSYkVwclNGVTRNRVpHUXpOWFN6aHJkbE5aVW5BMFZYSlBlalJIU21kRlQxWTBVamhCU0ROSk5uRnJNRVJCUVVFOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuODg0MDgxNVwiLFwiMlwiOlwiMC44MjIyMzgzXCIsXCIzXCI6XCIwLjc0MzE5NTRcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43NDA2MjU1XCIsXCIyXCI6XCIwLjg2ODM2ODNcIixcIjNcIjpcIjAuNjExODAyOVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjY5MDY0MzZcIixcIjJcIjpcIjAuODgzMTc5MlwiLFwiM1wiOlwiMC41NjE4ODQ3XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjYwMzc2MVwiLFwiMlwiOlwiMC44ODY2Njc5XCIsXCIzXCI6XCIwLjUzNjkxNTZcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NTE2MDg2XCIsXCIyXCI6XCIwLjg3NTE0MDJcIixcIjNcIjpcIjAuNTI1Mjc3MlwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjYzNTY1NDRcIixcIjJcIjpcIjAuODcyMzcwMlwiLFwiM1wiOlwiMC41MDE0MzMyXCIsXCI0XCI6XCI3XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adi9HSzlVOHVZekIvdmxtazVCeXhWbjJ6eVFQZEFicHR0ay9WVHdyc09xanVQMlRtNytzdkpjc3NYOFM3bjdXaWNVRHJ1K1YvN0VGTmJ2MDdGK2ZYR1AvS29yRC9vMHpJdzl2ZllIOW0vaXBvWE8yTzlpL1lWUVRyNGlhYnYvNlZjbVZzQVJQdUw3bkp4elAyRlpNdEg4OCtmSDBDL09WN1IvKyt0cmJhQmRvLzFBdnM3OXM0eC83QitlRkZMWmRmV1QvZ0h2dm5odDdqd1AxOElMMEFURVQySWRBSDBIZER4SmpoNW5yd01NQUJnNXNVSm9KUXR2L2dkSS9vUFFYQmloQUNSald2TVRjMUdJZ1F3QnNPRVNRSmNnMzJCWEs1Z2dxTGl4TkxFcE5nZktaZlIxaFVpeTVKVVdWVURaWFpsaGlVWEU4V0FUVkJzNmkvSEk5bUMwZ0x6RTFRTnpCaHU2VTVKekVZcGhUWUlKY0tZa2xpWHBwUlVEOVFONC9OQzNzK1FVbG1mbDVRRTFNb01nRmF3QkxRekN5UVl4RjBCQmpkTkNBaFFTVUx3RG5JMnNRS00wRHVUcEZOem1qTkM5YjE5UU1UWjY1SUM4ZHlUNEdxTzhZb1JFRVk3TkNuTXowSDZxZEV4WjRxY2taK1ZBMlcycGVlbVplS2l6QTBqTFQ5Y296VTBveVlHRUFFc2hJelV6UEtJRUZWVTVpVW1vT3pDRXBxV1ZRSmg4d3JNRkJyVmRRbEprSFU4MEZGQzNXSzhrdlNZUnA0VXJPejRHSmdFT1Y0UjhBSDNJNnFrMERBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8840815","2":"0.8222383","3":"0.7431954","4":"2","5":"3.50"},{"1":"0.7406255","2":"0.8683683","3":"0.6118029","4":"3","5":"2.75"},{"1":"0.6906436","2":"0.8831792","3":"0.5618847","4":"4","5":"2.25"},{"1":"0.6603761","2":"0.8866679","3":"0.5369156","4":"5","5":"1.75"},{"1":"0.6516086","2":"0.8751402","3":"0.5252772","4":"6","5":"1.50"},{"1":"0.6356544","2":"0.8723702","3":"0.5014332","4":"7","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWXZOa3R5Wmt3MmVWRjJLM2hqYVVSSFpHMVVRWFV4Wmk5d0wxRTFOMU52TVdZeVZEVXdXRGR1ZWtSM2JWZ3ZOVUZxTHpVMGVVaFlLekptYkV4S2J6ZHNVSGxuWlhRM2RGZEhlVFJLWVdWUVptRjJURGwxT1hSeVEzQnpNemhVU1V4VE9XVmxPRWNyZW1WUE1tbGtSWG9yY2xsMk5VWmljMlI2UTB0TlZDczVXVTk1V21adlQyVXJSRFp1YzJaT01VZFNjVE5IUkM4clQxaE1XR1p2TjNGMWQyWXZhRVZ4VTFoVFYzUllMMjl6Ymt3NVFuQllUamxuS3pKdU5IRllOWEZwZDJZeVFtbFFTeTlCVW5oUGIyaDRaV3RFTkdsYWQwUTBSU3RuYW5GbWNFRlpUemg0WTBKNE5FZE5TRUpuWnpsS1RVVk9jaXRFTlZRclFXRlhMMDFGUVVKVGMwTjNOV2xZYlhCb1dVUkhVVXBuZDNsSFEweEZSeXQzWVRWUlRtdGtVV05YUm5CWmJFWnhRM0JVVURkUGMwbHJNa3hLVEZOdGNXaE1TelZOYzAxVGFUUnlhbmRUUzI5T2JrRlhOVnBtY25kWGQwSmxXVzF3UVdWSlQwNXVVMjVLVDJOclJuTlBZMEZvVUd0VGEydHpVMlJTVEV0M1RIRkNMMHdyYjFkc2FIcDVPRzk1WTNwUVFUSndhVUZyVlhWWFFVNVpSMjlMVWtSWFNYTm5iMWxaYnpSTlIweERVMmRtUVVVMFNERnRSRkZIYTJWNVRsVndkWE5yV25CWWJscDFjVnB0WVZCTVRVSllibkJUVUZsNFVVZ3pTRU5KTUdkSFNuTldORzFUYlM4eFJIUnVURVJCVXpBelQzbEpaWGt5Vmt4Nk1HcFFlbFZ0UlVKc2NHRmFjbXhsWlcxV1MxTkJVWE5FYTBWQ1IyRnRXalpTWjJ0emNVaEpVMnN4U25wWlFUVktVMU15UkUxMmJVRlpVVEJQWVhJeVEyOXpkemh0UjI5MWIwZHBlRmhyYkN0VFUwcE5RekZrZVdabk5VMUNRbmx4UkZBNFFWWnVVSEZCUlRCRVFVRkJQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg2OTc1NjRcXCxcXDJcXDpcXDAuODM0MDU0NVxcLFxcM1xcOlxcMC43MzAyOTc2XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNzUyNDQxOFxcLFxcMlxcOlxcMC44Njk1MzY4XFwsXFwzXFw6XFwwLjYyMjMwMzhcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC42ODc0NjIxXFwsXFwyXFw6XFwwLjg4NDc3NDVcXCxcXDNcXDpcXDAuNTYyMDIwNVxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY2NDUwNThcXCxcXDJcXDpcXDAuODgyOTU1NFxcLFxcM1xcOlxcMC41Mzk2MzE3XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjQ4OTMzNFxcLFxcMlxcOlxcMC44Nzg3NDI1XFwsXFwzXFw6XFwwLjUyMjQzNTRcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42MzkyODQyXFwsXFwyXFw6XFwwLjg3MTE1MDNcXCxcXDNcXDpcXDAuNTA2MzcyM1xcLFxcNFxcOlxcN1xcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnYvNktyZkw2eVF2K3hjaURHZG1UQXUxZi9wL1E1N1NvMWYyVDUwWDduekR3bVgvNUFqLzU0eUhYKzJmbExKbzdsUHlnZXQ3dFdHeTRKYWVQZmF2TDl1OXRyQ3BzMzhUSUxTOWVlOEcremVPMmlkRXorcll2NUZic2R6Q0tNVCs5WU95WmZvT2UrRDZuc2ZOMUdScTNHRC8rT1hMWGZvN3F1d2YvaEVxU1hTV3RYL29zbkw5QnBYTjlnKzJuNHFYNXFpd2YyQmlQSy9BUnhPb2h4ZWtENGlad0Q0RStnanFmcEFZTzh4Y0J4NEdNSEJnZzlKTUVOcitENVQrQWFXL01FQUJTc0N3NWlYbXBoWURHUUpnd3lHQ0xFRyt3YTVRTmtkUWNXRnBZbEZxQ3BUUDdPc0lrMkxKTFNtcWhMSzVNc01TaTRyandTS29ObkFXNVpmcndXd0JlWW1wQWVJT05uU25KT2NrRnNPY0FoUGtTa2tzU2RSTEt3THFCL0wrb1dsaHp5OG95Y3pQQTJwaUFrVXVXQU5ZR29LUkRXSXNnb1lZbzRNR0xDU2dmQUU0SDFtRFFHa2V5TlVwdXNrWnBYblp1cVptYVBMTUJYbnBTUFl4UUgzSENJMGdHSnNWNG1TbS8xRHRuTERBUzAzT3lJZXkyVkx6MGpQelVtRUJscGFacmxlZW1WS1NBUXNEa0VCR2FtWjZSZ2tzcUhJU2sxSnpZQTVKU1MyRE12bUFZUTBPYXIyQ29zdzhtR291b0dpeFhrbCtTU0pNQzFkeWZnNU1CQnlxRFA4QVZuUHFBRTBEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8697564\,\2\:\0.8340545\,\3\:\0.7302976\,\4\:\2\,\5\:\3.50\},{\1\:\0.7524418\,\2\:\0.8695368\,\3\:\0.6223038\,\4\:\3\,\5\:\2.75\},{\1\:\0.6874621\,\2\:\0.8847745\,\3\:\0.5620205\,\4\:\4\,\5\:\2.25\},{\1\:\0.6645058\,\2\:\0.8829554\,\3\:\0.5396317\,\4\:\5\,\5\:\1.75\},{\1\:\0.6489334\,\2\:\0.8787425\,\3\:\0.5224354\,\4\:\6\,\5\:\1.50\},{\1\:\0.6392842\,\2\:\0.8711503\,\3\:\0.5063723\,\4\:\7\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGk4MmJESjBlVEp0ZERrcmVHWk5XRlpJTlVRM1ZIUnVObTR5V0RONWVuQTVUQ3R4Wmk5alpUSXZLM0p5V2k5amRtbGxaVEUxWjIxbU1sUlJhREJ0VFZvd1UzVk1OVmg1TDJaMWRVTXdhVnBRTHpad1R5dHJOMU5WVHpsdEswTjFObVJrVHpoS2FTODRZa3BQYlZCeFYzaElOMDQzZVZwRVpFMTViSFJwTDJab1JIbFdTa3RvU0VzM2RtVmtNbXBHWkUxek1uVXdaak01ZWs1bFkycHBkWFl3YWpKWFJFUm1ValkzTjBJck5rWlZka3MzVmtONVpqZENiSGR5YXpJd1VWZ3lSSHBSUTJZck1rcFVVVVJ4TkZGWWNFRXlTVzF6UVN0Q1VHOUxOa2g1VkVkRWFsQllaMWxqUWtSQ2VsbHZSRkZVYUV4aUwwRTJWaTlSVDJ0MlJFWkRRVVZxUTNObFdXMDFjV05XUVdoblJGbGpTV2RuVXpWQ2RuTkRkVlY2VWtaVldFWnBZVmRLVTJGQmRWVjZLM3B5UTNCR2FIbFRORzl4YjFkNWRYcE1SRVZ2ZFVvMGMwRnBjVVJhZUVZclpWWTJUVVowUVZodFNuRm5UR2xFUkdRd2NIbFViVXA0VkVOdWQwRlROVlZvU2t4RmRsaFRhVzlFTm1kaWVDOWhSbkpaT0hkMFMwMTJVSHBuU25GWlVVcEZUREZuUTFkb2JVSnJaM2hwVEc5RFNFYzJTMEZDUTNkcmIxaDNSRTlTT1ZsblZVcHZTR051VjB0aWJrcEhZVlkyTW5KeGExcHRhbmg2VVZZME5tdHVNRTFWVGpoNFVXbE5TWGh0WVVaUFNtNXdVREZSTjBwNWVuZFZjRTE2T0hGR2MzUjBVemc1VFhrNFZrWnBRWEJYVjIwMk5WWnVjSEJTYTNkTlNVRktTa05TYlhCdFpWVlJTVXh4Y0hwRmNFNVJZMjFGVGxOVmMzVm5WRVExWjFkSlQwUlhjU3RuUzBSTlVIQndiMHhMUm5GelZqVktabXRuYWxSM2NGZGpibmROVkVGWlkzRjNlamhCV0VkNVYxZEZNRVJCUVVFOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuODc0MzAwN1wiLFwiMlwiOlwiMC44MzI5NzYyXCIsXCIzXCI6XCIwLjczNDIzODlcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43NTA0MzIyXCIsXCIyXCI6XCIwLjg2ODMyMzFcIixcIjNcIjpcIjAuNjIwMzI4NFwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjY5MjA4NTJcIixcIjJcIjpcIjAuODg1MTk4NFwiLFwiM1wiOlwiMC41NjYwNzk3XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjY1OTY4OFwiLFwiMlwiOlwiMC44ODMwODUwXCIsXCIzXCI6XCIwLjUzOTg0OThcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NDg5MDk3XCIsXCIyXCI6XCIwLjg3NjYzNzJcIixcIjNcIjpcIjAuNTIyMDQxN1wiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjYzODgxNDlcIixcIjJcIjpcIjAuODcxMTM0MlwiLFwiM1wiOlwiMC41MDQ5MjE5XCIsXCI0XCI6XCI3XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adi82bDJ0eTJtdDkreGZNWFZINUQ3VHRuNm4yWDN5enA5TCtxZi9jZTIvK3JyWi9jdmllZTE1Z21mMlRRaDBtTVowU3VMNVh5L2Z1dUMwaVpQLzZwTytrN1NVTzltK0N1NmRkTzhKaS84YkpPbVBxV3hIN043eVpEZE15bHRpL2ZoRHlWSktoSEs3dmVkMmpGZE1zMnUwZjM5ek5lY2ppdXYwajJXRERmUjY3N0IrNkZVdks3VkN5ZjdCbHdyazIwUVgyRHpRQ2YrMkpUUURxNFFYcEEySW1zQStCUG9LNkh5VEdEalBYZ1ljQkRCellvRFFUaExiL0E2Vi9RT2t2REZDQUVqQ3NlWW01cWNWQWhnRFljSWdnUzVCdnNDdVV6UkZVWEZpYVdKU2FBdVV6K3pyQ3BGaHlTNG9xb1d5dXpMREVvdUo0c0FpcURaeEYrZVY2TUZ0QVhtSnFnTGlERGQwcHlUbUp4VENud0FTNVVoSkxFdlhTaW9ENmdieC9hRnJZOHd0S012UHpnSnFZUUpFTDFnQ1dobUJrZ3hpTG9DSEc2S0FCQ3drb1h3RE9SOVlnVUpvSGNuV0tibkpHYVY2MnJxa1ptanh6UVY0NmtuME1VTjh4UWlNSXhtYUZPSm5wUDFRN0p5endVcE16OHFGc3R0Uzg5TXk4VkZpQXBXV202NVZucHBSa3dNSUFKSkNSbXBtZVVRSUxxcHpFcE5RY21FTlNVc3VnVEQ1Z1dJT0RXcStnS0RNUHBwb0xLRnFzVjVKZmtnalR3cFdjbndNVEFZY3F3ejhBWEd5V1dFMERBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8743007","2":"0.8329762","3":"0.7342389","4":"2","5":"3.50"},{"1":"0.7504322","2":"0.8683231","3":"0.6203284","4":"3","5":"2.75"},{"1":"0.6920852","2":"0.8851984","3":"0.5660797","4":"4","5":"2.25"},{"1":"0.6659688","2":"0.8830850","3":"0.5398498","4":"5","5":"1.75"},{"1":"0.6489097","2":"0.8766372","3":"0.5220417","4":"6","5":"1.50"},{"1":"0.6388149","2":"0.8711342","3":"0.5049219","4":"7","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWTVOalUyV2xkV2J6QXJLM2hsUzJGaWMzVXZSbGQzWm5saFdrWXJMMHcwVjBRdk1VWjZWVXAxZEdSc1VESlVNMlZtYm1Rd056ZGFaaXRyWTJZelNrcE1jMXBqU0RKMk1YSXJTbmxVTW5SYVVDODJLMmw1TjFOdk5ESXJlbVZDVm5SdFZFeE9jblF6TTJrNWRXeENOMDQ0UkN0cVZYcFFjbmQwTmtOMllYWmlNWE5tSzBoeGRVRmhOM1oxWkdSVFVGRmtWRkZtZGtnek9XWlZhVEo2VG5OSU9Hc3ZjWEJPZUdaSFRTOVZUa3h4Wm5rM2F5czNXbEF4WjJKdlJGQnFXalYyT1VFMVkzRXpWVEJ4WlZWQk9YWkRRamxSVFhkRk9XbElVVkl4UkRObk9GUlpXV1ZaTmpoRVEwRm5VVTFpYkVkaFF6QlFXaTl2VUZGUVMxQXlSa0ZSY0ZGQmIxa3hUSHBGTTNSU2FrbEZRVUZpUkdoR2EwTm1TVTVrYjFkNVQxbExTME13YzFScE1VcFViMGg0YlZnd1pWbEdSWFIxVTFaRmJHeE5NbFpIV2xwWlZrSjNVRVpyUnpGbllrMXZkakYzVUZwbmRrbFRNSGRPUlVobGQyOVVjMnhQVTJWNFIwOVpWVzFEUWxoVGJVcEtiMncxWVVWV1FTOXJVR05RVkZGME4yWnJSa3BhYmpSbFZVSk5WRXRJVEVKSGMwUlRSVWw0YzBWSFRWSk9UVkZaU0ZSU1owbFJTR3hET0VRMWVVSnZSVk4yVGtGeWF6ZFNWR00wYjNwamRsZE9WRlpFYXpKamRYbEZkRWh6YnpoQ05tcDBSMkZCVkVJeVMzZFJTbnBRT1dneWNtNW9RVlpsWVc1S1IxQndWRTVzY0hGWWJuQnRXRU5uZFhkMFRYZ3dkbVpNVFd4S1NVMVhRbWxCUWtSS1UwMDVUWHBUYlVKQ2JGcFBXV3hLYjBSak1HaExZV2h0VlhsUlkwMWhNMEpSTm5oVlZWcGxZa0pXU0UxQ1VsbDJNVk4yU2t4RmJVWmhkVXBNZW1NeVFXazBSa0pzSzBGalFYUXhhREZ1TURCRVFVRkJQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg2NjQxODFcXCxcXDJcXDpcXDAuODMzOTc1MFxcLFxcM1xcOlxcMC43Mjc4NjIwXFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNzU0MDc3M1xcLFxcMlxcOlxcMC44NzAwNjg3XFwsXFwzXFw6XFwwLjYyMzk4MzZcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC42OTA2MDQ0XFwsXFwyXFw6XFwwLjg4NDkxNTZcXCxcXDNcXDpcXDAuNTY1NDE5NFxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY2Mjk3NDBcXCxcXDJcXDpcXDAuODg0MTQ1MlxcLFxcM1xcOlxcMC41MzgyMjA2XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjQ3OTI2MlxcLFxcMlxcOlxcMC44Nzg0ODUyXFwsXFwzXFw6XFwwLjUyMTE1NjRcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NDA4MzA5XFwsXFwyXFw6XFwwLjg3MDUxMTlcXCxcXDNcXDpcXDAuNTA4MzU5MFxcLFxcNFxcOlxcN1xcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnY5NjU2WldWbzArK3hlS2Fic3UvRld3ZnlhWkYrL0w0V0QvMUZ6VUp1dGRsUDJUM2VmbmQwNzdaZitrY2YzSkpMc1pjSDJ2MXIrSnlUMnRaUC82K2l5N1NvNDIremVCVnRtVExOcnQzM2k5dWxCN044RCtqVXpQcnd0NkN2YXZiMXNmK0hxdUFhN3Z1ZGRTUFFkVFFmdkgzOWZVaTJ6TnNIOGsvcXBOeGZHTS9VTkxxZnk3ays3WlAxZ2JvRFBqWjV2OUE1Y3EzVTBxZVVBOXZDQjlRTXdFOWlIUVIxRDNnOFRZWWVZNjhEQ0FnUU1ibEdhQzBQWi9vUFFQS1AyRkFRcFFBb1kxTHpFM3RSaklFQUFiRGhGa0NmSU5kb1d5T1lLS0Mwc1RpMUpUb0h4bVgwZVlGRXR1U1ZFbGxNMlZHWlpZVkJ3UEZrRzFnYk1vdjF3UFpndklTMHdORUhld29Uc2xPU2V4R09ZVW1DQlhTbUpKb2w1YUVWQS9rUGNQVFF0N2ZrRkpabjRlVUJNVEtITEJHc0RTRUl4c0VHTVJOTVFZSFRSZ0lRSGxDOEQ1eUJvRVN2TkFyazdSVGM0b3pjdldOVFZEazJjdXlFdEhzbzhCNmp0R2FBVEIyS3dRSnpQOWgycm5oQVZlYW5KR1BwVE5scHFYbnBtWENndXd0TXgwdmZMTWxKSU1XQmlBQkRKU005TXpTbUJCbFpPWWxKb0RjMGhLYWhtVXlRY01hM0JRNnhVVVplYkJWSE1CUll2MVN2SkxFbUZhdUpMemMyQWk0RkJsK0FjQXQxaDFuMDBEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8664181\,\2\:\0.8339750\,\3\:\0.7278620\,\4\:\2\,\5\:\3.50\},{\1\:\0.7540773\,\2\:\0.8700687\,\3\:\0.6239836\,\4\:\3\,\5\:\2.75\},{\1\:\0.6906044\,\2\:\0.8849156\,\3\:\0.5654194\,\4\:\4\,\5\:\2.25\},{\1\:\0.6629740\,\2\:\0.8841452\,\3\:\0.5382206\,\4\:\5\,\5\:\1.75\},{\1\:\0.6479262\,\2\:\0.8784852\,\3\:\0.5211564\,\4\:\6\,\5\:\1.50\},{\1\:\0.6408309\,\2\:\0.8705119\,\3\:\0.5083590\,\4\:\7\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGk4MlMzSm1URFo1VVhZcmVHTnBSRWRrYlZSQmRURm1MM0F2VVRVM1UyOHhaakpVTlRCWU4yNTZSSGR0V0M4MVFXb3ZOVFI1U0Znck1tWnNURXB2TjJ4UWVXZGxkRGQwVjBkNU5FcGhaVkJtWVhaTU9YVTVkSEpEY0hNek9GUkpURk01WldVNFJ5dDZaVTh5YVdSRmVpdHlXWFkxUm1KelpIcERTMDFVS3psWlQzbGFabTlQWlN0RU5tNXpaazR4UjFKeE0wZEVMeXRQV0V4WVptODNjWFYzWmk5b1JYRlRXRk5YZEZndmIzTnVURGxDY0ZoT09XY3JNbTQwY1ZnMWNXbDNaakpDYVZCTEwwRlNlRTl2YUhobGEwUTBhVnAzUkRSRksyZHFjV1p3UVZsUE9IaGpRbmcwUjAxSVFtZG5PVXBOUlU1eUswUTFWQ3RCWVZjdlRVVkJRbE56UTNjMWFWaHRjR2haUkVkUlNtZDNlVWREVEVWSEszZGhOVkZPYTJSUlkxZEdjRmxzUm5GRGNGUlFOMDl6U1dzeVRFcE1VMjF4YUV4TE5VMXpUVk5wTkhKcWQxTkxiMDV1UVZjMVdtWnlkMWQzUW1WWmJYQkJaVWxQVG01VGJrcFBZMnRHYzA5alFXaFFhMU5yYTNOVFpGSk1TM2RNY1VJdlRDdHZWMnhvZW5rNGIzbGplbEJCTW5CcFFXdFZkVmRCVGxsSGIwdFNSRmRKYzJkdldWbHZORTFIVEVOVFoyWkJSVFJJTVcxRVVVZHJaWGxPVlhCMWMydGFjRmh1V25WeFdtMWhVRXhOUWxodWNGTlFXWGhSU0ROSVEwa3daMGRLYzFZMGJWTnRMekZFZEc1TVJFRlRNRE5QZVVsbGVUSldUSG93YWxCNlZXMUZRbXh3WVZweWJHVmxiVlpMVTBGUmMwUnJSVUpIWVcxYU5sSm5hM054U0VsVGF6RktlbGxCTlVwVFV6SkVUWFp0UVZsUk1FOWhjakpEYjNOM09HMUhiM1Z2UjJsNFdHdHNLMU5UU2sxRE1XUjVabWMxVFVKQ2VYRkVVRGhCVm01UWNVRkZNRVJCUVVFOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuODY5NzU2NFwiLFwiMlwiOlwiMC44MzQwNTQ1XCIsXCIzXCI6XCIwLjczMDI5NzZcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43NTI0NDE4XCIsXCIyXCI6XCIwLjg2OTUzNjhcIixcIjNcIjpcIjAuNjIyMzAzOFwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjY4NzQ2MjFcIixcIjJcIjpcIjAuODg0Nzc0NVwiLFwiM1wiOlwiMC41NjIwMjA1XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjY0NTA1OFwiLFwiMlwiOlwiMC44ODI5NTU0XCIsXCIzXCI6XCIwLjUzOTYzMTdcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NDg5MzM0XCIsXCIyXCI6XCIwLjg3ODc0MjVcIixcIjNcIjpcIjAuNTIyNDM1NFwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjYzOTI4NDJcIixcIjJcIjpcIjAuODcxMTUwM1wiLFwiM1wiOlwiMC41MDYzNzIzXCIsXCI0XCI6XCI3XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adi82S3JmTDZ5UXYreGNpREdkbVRBdTFmL3AvUTU3U28xZjJUNTBYN256RHdtWC81QWovNTR5SFgrMmZsTEpvN2xQeWdldDd0V0d5NEphZVBmYXZMOXU5dHJDcHMzOFRJTFM5ZWU4Ryt6ZU8yaWRFeityWXY1RmJzZHpDS01UKzlZT3laZm9PZStENm5zZk4xR1JxM0dELytPWExYZm83cXV3Zi9oRXFTWFNXdFgvb3NuTDlCcFhOOWcrMm40cVg1cWl3ZjJCaVBLL0FSeE9vaHhla0Q0aVp3RDRFK2dqcWZwQVlPOHhjQng0R01IQmdnOUpNRU5yK0Q1VCtBYVcvTUVBQlNzQ3c1aVhtcGhZREdRSmd3eUdDTEVHK3dhNVFOa2RRY1dGcFlsRnFDcFRQN09zSWsyTEpMU21xaExLNU1zTVNpNHJqd1NLb05uQVc1WmZyd1d3QmVZbXBBZUlPTm5TbkpPY2tGc09jQWhQa1Nra3NTZFJMS3dMcUIvTCtvV2xoenk4b3ljelBBMnBpQWtVdVdBTllHb0tSRFdJc2dvWVlvNE1HTENTZ2ZBRTRIMW1EUUdrZXlOVXB1c2tacFhuWnVxWm1hUExNQlhucFNQWXhRSDNIQ0kwZ0dKc1Y0bVNtLzFEdG5MREFTMDNPeUlleTJWTHowalB6VW1FQmxwYVpybGVlbVZLU0FRc0RrRUJHYW1aNlJna3NxSElTazFKellBNUpTUzJETXZtQVlRME9hcjJDb3N3OG1Hb3VvR2l4WGtsK1NTSk1DMWR5Zmc1TUJCeXFEUDhBVm5QcUFFMERBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8697564","2":"0.8340545","3":"0.7302976","4":"2","5":"3.50"},{"1":"0.7524418","2":"0.8695368","3":"0.6223038","4":"3","5":"2.75"},{"1":"0.6874621","2":"0.8847745","3":"0.5620205","4":"4","5":"2.25"},{"1":"0.6645058","2":"0.8829554","3":"0.5396317","4":"5","5":"1.75"},{"1":"0.6489334","2":"0.8787425","3":"0.5224354","4":"6","5":"1.50"},{"1":"0.6392842","2":"0.8711503","3":"0.5063723","4":"7","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWTVOalpZZVVoSWVEaFpOMFk0V1hWQ056TlhTbkJ1THpCNVpXSmxkbEk0TlM5emJqaHdiWEpXYTJWeGJVUXZXa2QyTmpsSGFYQmhabHBRVDI1alpFOTVUelZCTmpkMk1WRmlUall6ZFhwdWRHa3ZkbkJHYW1KMlVuaHNaakppTkVSNk0wZG1aRXczWkN0RmNHWldSMEpOVkZsMk1VVTBUa3RtVjBwTlppczVXRE5xT1ZoMFdHWlpSSEpsTmpjellubFBOMFJhWmpsRmVtSkVaR1p0YkdaUVlWQldRMHBRWVVOM2MzTXpLMjg1WldkRk5UQkZXQ3QzWTNJdlJYVkRUMDQzV1ZBdlJHOU9RbEJzTjFGSWNUUlJXSEJCTWtsdGMwRXJRbEJ2U3paSWVWUkhSR3BRV0dkWlkwSkVRbnBaYjBSUlZHaE1ZaTlCTmxZdlVVOXJka1JHUTBGRmFrTnpaVmx0TlhGalZrRm9aMFJaWTBsbloxTTFRblp6UTNWVmVsSkdWVmhHYVdGWFNsTmhRWFZWZWl0NmNrTndSbWg1VXpSdmNXOVhlWFY2VEVSRmIzVktOSE5CYVhGRVduaEdLMlZXTmsxR2RFRlliVXB4WjB4cFJFUmtNSEI1VkcxS2VGUkRibmRCVXpWVmFFcE1SWFpZVTJsdlJEWm5Zbmd2WVVaeVdUaDNkRXROZGxCNlowcHhXVkZLUlV3eFowTlhhRzFDYTJkNGFVeHZRMGhITmt0QlFrTjNhMjlZZDBSUFVqbFpaMVZLYjBoamJsZExZbTVLUjJGV05qSnljV3RhYldwNGVsRldORFpyYmpCTlZVNDRlRkZwVFVsNGJXRkdUMHB1Y0ZBeFVUZEtlWHAzVlhCTmVqaHhSbk4wZEZNNE9VMTVPRlpHYVVGd1YxZHROalZXYm5Cd1VtdDNUVWxCU2twRFVtMXdiV1ZWVVVsTWNYQjZSWEJPVVdOdFJVNVRWWE4xWjFSRU5XZFhTVTlFVjNFclowdEVUVkJ3Y0c5TVMwWnhjMVkxU21acloycFVkM0JYWTI1M1RWUkJXV054ZDNvNFFXRk9iMWswYXpCRVFVRkJQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjg2Mzk2NzVcXCxcXDJcXDpcXDAuODM0MDA0M1xcLFxcM1xcOlxcMC43MjQ0ODY3XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNzU1ODkyNlxcLFxcMlxcOlxcMC44NzAxNjg4XFwsXFwzXFw6XFwwLjYyNTc1NjFcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC42OTEyODc0XFwsXFwyXFw6XFwwLjg4NTE4NDRcXCxcXDNcXDpcXDAuNTY2OTM3M1xcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY1OTg0MDlcXCxcXDJcXDpcXDAuODg1NTQ2OVxcLFxcM1xcOlxcMC41MzY0ODUxXFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjQ3MTQ0MVxcLFxcMlxcOlxcMC44Nzg5OTkwXFwsXFwzXFw6XFwwLjUyMDU0NTdcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NDE4MTI3XFwsXFwyXFw6XFwwLjg3MDk5NjNcXCxcXDNcXDpcXDAuNTA4ODU0NVxcLFxcNFxcOlxcN1xcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnY5NjZYeUhIeDhZN0Y4WXVCNzNXSnBuLzB5ZWJldlI4NS9zbjhwbXJWa2VxbUQvWkd2NjlHaXBhZlpQT25jZE95TzVBNjd2MVFiTjYzdXpudGkvdnBGamJ2UnhsZjJiNER6M0dmZEw3ZCtFcGZWR0JNVFl2MUU0TktmV0pNZis5WDNqOVh0WGZZRHJlNjczYnlPN0RaZjlFemJEZGZtbGZQYVBWQ0pQYUN3c3MzK285ZWdFNTBFWCt3Y3IvRXVDT043WVAvRG9OQlBsN1FIcTRRWHBBMkltc0ErQlBvSzZIeVRHRGpQWGdZY0JEQnpZb0RRVGhMYi9BNlYvUU9rdkRGQ0FFakNzZVltNXFjVkFoZ0RZY0lnZ1M1QnZzQ3VVelJGVVhGaWFXSlNhQXVVeit6ckNwRmh5UzRvcW9XeXV6TERFb3VKNHNBaXFEWnhGK2VWNk1GdEFYbUpxZ0xpRERkMHB5VG1KeFRDbndBUzVVaEpMRXZYU2lvRDZnYngvYUZyWTh3dEtNdlB6Z0pxWVFKRUwxZ0NXaG1Ca2d4aUxvQ0hHNktBQkN3a29Yd0RPUjlZZ1VKb0hjbldLYm5KR2FWNjJycWtabWp4elFWNDZrbjBNVU44eFFpTUl4bWFGT0pucFAxUTdKeXp3VXBNejhxRnN0dFM4OU15OFZGaUFwV1dtNjVWbnBwUmt3TUlBSkpDUm1wbWVVUUlMcXB6RXBOUWNtRU5TVXN1Z1RENWdXSU9EV3ErZ0tETVBwcG9MS0Zxc1Y1SmZrZ2pUd3BXY253TVRBWWNxd3o4QWFOb1k0azBEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8639675\,\2\:\0.8340043\,\3\:\0.7244867\,\4\:\2\,\5\:\3.50\},{\1\:\0.7558926\,\2\:\0.8701688\,\3\:\0.6257561\,\4\:\3\,\5\:\2.75\},{\1\:\0.6912874\,\2\:\0.8851844\,\3\:\0.5669373\,\4\:\4\,\5\:\2.25\},{\1\:\0.6598409\,\2\:\0.8855469\,\3\:\0.5364851\,\4\:\5\,\5\:\1.75\},{\1\:\0.6471441\,\2\:\0.8789990\,\3\:\0.5205457\,\4\:\6\,\5\:\1.50\},{\1\:\0.6418127\,\2\:\0.8709963\,\3\:\0.5088545\,\4\:\7\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGprMk5UWmFWMVp2TUNzcmVHVkxZV0p6ZFM5R1YzZG1lV0ZhUmlzdlREUlhSQzh4Um5wVlNuVjBaR3hRTWxRelpXWnVaREEzTjFwbUsydGpaak5LU2t4eldtTklNbll4Y2l0S2VWUXlkRnBRTHpZcmFYazNVMjgwTWl0NlpVSldkRzFVVEU1eWRETXphVGwxYkVJM1RqaEVLMnBWZWxCeWQzUTJRM1poZG1JeGMyWXJTSEYxUVdFM2RuVmtaRk5RVVdSVVVXWjJTRE01WmxWcE1ucE9jMGc0YXk5eGNFNTRaa2ROTDFWT1RIRm1lVGRyS3pkYVVERm5ZbTlFVUdwYU5YWTVRVFZqY1ROVk1IRmxWVUU1ZGtOQ09WRk5kMFU1YVVoUlVqRkVNMmM0VkZsWlpWazJPRVJEUVdkUlRXSnNSMkZETUZCYUwyOVFVVkJMVURKR1FWRndVVUZ2V1RGTWVrVXpkRkpxU1VWQlFXSkVhRVpyUTJaSlRtUnZWM2xQV1V0TFF6QnpWR2t4U2xSdlNIaHRXREJsV1VaRmRIVlRWa1ZzYkUweVZrZGFXbGxXUW5kUVJtdEhNV2RpVFc5Mk1YZFFXbWQyU1ZNd2QwNUZTR1YzYjFSemJFOVRaWGhIVDFsVmJVTkNXRk50U2twdmJEVmhSVlpCTDJ0UVkxQlVVWFEzWm10R1NscHVOR1ZWUWsxVVMwaE1Ra2R6UkZORlNYaHpSVWROVWs1TlVWbElWRkpuU1ZGSWJFTTRSRFY1UW05RlUzWk9RWEpyTjFKVVl6UnZlbU4yVjA1VVZrUnJNbU4xZVVWMFNITnZPRUkyYW5SSFlVRlVRakpMZDFGS2VsQTVhREp5Ym1oQlZtVmhia3BIVUhCVVRteHdjVmh1Y0cxWVEyZDFkM1JOZURCMlpreE5iRXBKVFZkQ2FVRkNSRXBUVFRsTmVsTnRRa0pzV2s5WmJFcHZSR013YUV0aGFHMVZlVkZqVFdFelFsRTJlRlZWV21WaVFsWklUVUpTV1hZeFUzWktURVZ0Um1GMVNreDZZekpCYVRSR1Ftd3JRV05CZERGb01XNHdNRVJCUVVFOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuODY2NDE4MVwiLFwiMlwiOlwiMC44MzM5NzUwXCIsXCIzXCI6XCIwLjcyNzg2MjBcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43NTQwNzczXCIsXCIyXCI6XCIwLjg3MDA2ODdcIixcIjNcIjpcIjAuNjIzOTgzNlwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjY5MDYwNDRcIixcIjJcIjpcIjAuODg0OTE1NlwiLFwiM1wiOlwiMC41NjU0MTk0XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjYyOTc0MFwiLFwiMlwiOlwiMC44ODQxNDUyXCIsXCIzXCI6XCIwLjUzODIyMDZcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NDc5MjYyXCIsXCIyXCI6XCIwLjg3ODQ4NTJcIixcIjNcIjpcIjAuNTIxMTU2NFwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY0MDgzMDlcIixcIjJcIjpcIjAuODcwNTExOVwiLFwiM1wiOlwiMC41MDgzNTkwXCIsXCI0XCI6XCI3XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adjk2NTZaV1ZvMCsreGVLYWJzdS9GV3dmeWFaRisvTDRXRC8xRnpVSnV0ZGxQMlQzZWZuZDA3N1pmK2tjZjNKSkxzWmNIMnYxcitKeVQydFpQLzYraXk3U280Mit6ZUJWdG1UTE5ydDMzaTl1bEI3TjhEK2pVelByd3Q2Q3ZhdmIxc2YrSHF1QWE3dnVkZFNQUWRUUWZ2SDM5ZlVpMnpOc0g4ay9xcE54ZkdNL1VOTHFmeTdrKzdaUDFnYm9EUGpaNXY5QTVjcTNVMHFlVUE5dkNCOVFNd0U5aUhRUjFEM2c4VFlZZVk2OERDQWdRTWJsR2FDMFBaL29QUVBLUDJGQVFwUUFvWTFMekUzdFJqSUVBQWJEaEZrQ2ZJTmRvV3lPWUtLQzBzVGkxSlRvSHhtWDBlWUZFdHVTVkVsbE0yVkdaWllWQndQRmtHMWdiTW92MXdQWmd2SVMwd05FSGV3b1RzbE9TZXhHT1lVbUNCWFNtSkpvbDVhRVZBL2tQY1BUUXQ3ZmtGSlpuNGVVQk1US0hMQkdzRFNFSXhzRUdNUk5NUVlIVFJnSVFIbEM4RDV5Qm9FU3ZOQXJrN1JUYzRvemN2V05UVkRrMmN1eUV0SHNvOEI2anRHYUFUQjJLd1FKelA5aDJybmhBVmVhbkpHUHBUTmxwcVhucG1YQ2d1d3RNeDB2ZkxNbEpJTVdCaUFCREpTTTlNelNtQkJsWk9ZbEpvRGMwaEthaG1VeVFjTWEzQlE2eFVVWmViQlZITUJSWXYxU3ZKTEVtRmF1Skx6YzJBaTRGQmwrQWNBdDFoMW4wMERBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8664181","2":"0.8339750","3":"0.7278620","4":"2","5":"3.50"},{"1":"0.7540773","2":"0.8700687","3":"0.6239836","4":"3","5":"2.75"},{"1":"0.6906044","2":"0.8849156","3":"0.5654194","4":"4","5":"2.25"},{"1":"0.6629740","2":"0.8841452","3":"0.5382206","4":"5","5":"1.75"},{"1":"0.6479262","2":"0.8784852","3":"0.5211564","4":"6","5":"1.50"},{"1":"0.6408309","2":"0.8705119","3":"0.5083590","4":"7","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWTVObmx6WVdwbUsxQnFOMFl2U1ZodU5IUjRSbWhuTHpCNmEwUTFkbFEzU0ZBeVZIZFZaVlJVYW5aWFIwd3ZXa2RRYm01dFZuTm1LM2xtTVVObGRETklWaTlQVm5wbWNUaFBWRXd4T1RVeFYxZ3ZLMjF5TlZGdllVZ3JLM3BtYUVoM1RHVklhRE5yWmpKaVRVODRTa2RvWm1ZeWNpdFNiVEkzTUhoMVEyWXZaWFJJUmpnd0t6SnllVU0yTTNOMWVtSTViRzV6ZDNNck9HVm1ZWFkyU0N0blpsbFFOVWxPTHpOdU1sUTJNemxSZVZkSWJGaGxXRGR5Umk5elJYaG5LelpZYlZObVdWQjZRblJyUkZad01rRlFXSGRuZGxGQ1RWSlFXV2d3UVdaUlpEQlFSVzFQU0cxbGRrRjNkMEZIUkcxNFVXMW5iRU15THl0Q01Hb3JaemxDWTBkTFJVRktSMDVoT0hoT2VsVlphVUpFUVVkM05GSktRV3g1UkdaWlJtTnliVU5EYjNWTVJUQnpVMnN5UWpod2JEbElWMFpUVEV4cmJGSmFWbEZPYkdSdFYwZEtVbU5VZUZsQ1RsVkhlbkZNT0dOcU1sbE1VMEYyVFZSV1FUTk5SMGMzY0ZScmJrMVNhVzFHVG1kbmJIZHdhVk5YU21WdGJFWlJVREZCTTJvNE1FeGxlalZDVTFkYUsxaHNRVlJWZVdkNVFWWnlRVVYwUkUxTVNrSnFSVmhSUlVkT01EQkpRMFpDU2xGMlFVOWphbUY0UVc5NlVVODFUMnRWTTA5aFRUQk1NWFpZTVVGNFRtNXlhMmRNZUROS1VHZGhiemQ0YVdoRlVWSnFjekJMWTNwUVVXWnhjREJVUm01cGNIbFNialZWUkZwaVlXdzFObHBzTkhGTVRVUlRUWFJRTVhscVRsUlRha3BuV1ZGQlUzbEZhazVVVFRodloxRldWbFJ0U2xOaFp6ZE5TVk50Y0ZwV1FXMUlla056ZDFWSGRGWXhRMVZ0VVdSVWVsRlZWVXhrV1hKNVV6bEthRWR1YUZOek4xQm5XVzFCVVRWWWFFaDNRMG94UWxGalZGRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuODYxOTAxMlxcLFxcMlxcOlxcMC44MzYzNzQyXFwsXFwzXFw6XFwwLjcyMjA1MzRcXCxcXDRcXDpcXDJcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC43NTM2NDExXFwsXFwyXFw6XFwwLjg2OTgwODBcXCxcXDNcXDpcXDAuNjIzMzUwNlxcLFxcNFxcOlxcM1xcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjY5MDA2MTZcXCxcXDJcXDpcXDAuODg1MzcxNFxcLFxcM1xcOlxcMC41NjYwODIwXFwsXFw0XFw6XFw0XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNjU4MzExMlxcLFxcMlxcOlxcMC44ODU1MzQxXFwsXFwzXFw6XFwwLjUzNTQzMTJcXCxcXDRcXDpcXDVcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42NDY2NzIxXFwsXFwyXFw6XFwwLjg3ODczNDJcXCxcXDNcXDpcXDAuNTIwMjcxNlxcLFxcNFxcOlxcNlxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjY0MDU1MDBcXCxcXDJcXDpcXDAuODcxNDM3N1xcLFxcM1xcOlxcMC41MDY3NzUwXFwsXFw0XFw6XFw3XFwsXFw1XFw6XFwxLjI1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNl19LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnY5NnlzYWpmK1BqN0YvSVhuNHR4RmhnLzB6a0Q1dlQ3SFAyVHdVZVRUanZXR0wvWkdQbm5tVnNmK3lmMUNldDNIVi9PVnpmcThPVEwxOTUxV1gvK21yNVFvYUgrK3pmaEh3TGVIaDNrZjJiTU84SkdoZmYycitSbTI3MHh1Q2YvZXRIRjgwKzJyeUM2M3N1emI5bG5zd3MrOGVmYXY2SCtnZllQNUlOLzNuMlQ2MzlReVdIbFhlWDdyRi9zRXhnKzZYbVNmWVB6QnRrRFZwMkFQWHdndlFCTVJQWWgwQWZRZDBQRW1PSG1ldkF3d0FHRG14UW1nbEMyLytCMGorZzlCY0dLRUFKR05hOHhOelVZaUJEQUd3NFJKQWx5RGZZRmNybUNDb3VMRTBzU2syQjhwbDlIV0ZTTExrbFJaVlFObGRtV0dKUmNUeFlCTlVHenFMOGNqMllMU0F2TVRWQTNNR0c3cFRrbk1SaW1GTmdnbHdwaVNXSmVtbEZRUDFBM2o4MExlejVCU1daK1hsQVRVeWd5QVZyQUV0RE1MSkJqRVhRRUdOMDBJQ0ZCSlF2QU9jamF4QW96UU81T2tVM09hTTBMMXZYMUF4Tm5ya2dMeDNKUGdhbzd4aWhFUVJqczBLY3pQUWZxcDBURm5pcHlSbjVVRFpiYWw1NlpsNHFMTURTTXRQMXlqTlRTakpnWVFBU3lFak5UTThvZ1FWVlRtSlNhZzdNSVNtcFpWQW1IekNzd1VHdFYxQ1VtUWRUelFVVUxkWXJ5UzlKaEduaFNzN1BnWW1BUTVYaEh3Q0oxQlFjVFFNQUFBPT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.8619012\,\2\:\0.8363742\,\3\:\0.7220534\,\4\:\2\,\5\:\3.50\},{\1\:\0.7536411\,\2\:\0.8698080\,\3\:\0.6233506\,\4\:\3\,\5\:\2.75\},{\1\:\0.6900616\,\2\:\0.8853714\,\3\:\0.5660820\,\4\:\4\,\5\:\2.25\},{\1\:\0.6583112\,\2\:\0.8855341\,\3\:\0.5354312\,\4\:\5\,\5\:\1.75\},{\1\:\0.6466721\,\2\:\0.8787342\,\3\:\0.5202716\,\4\:\6\,\5\:\1.50\},{\1\:\0.6405500\,\2\:\0.8714377\,\3\:\0.5067750\,\4\:\7\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGprMk5saDVTRWg0T0ZrM1JqaFpkVUkzTTFkS2NHNHZNSGxsWW1WMlVqZzFMM051T0hCdGNsWnJaWEZ0UkM5YVIzWTJPVWRwY0dGbVdsQlBibU5rVDNsUE5VRTJOM1l4VVdKT05qTjFlbTUwYVM5MmNFWnFZblpTZUd4bU1tSTBSSG96UjJaa1REZGtLMFZ3WmxaSFFrMVVXWFl4UlRST1MyWlhTazFtS3psWU0ybzVXSFJZWmxsRWNtVTJOek5pZVU4M1JGcG1PVVY2WWtSa1ptMXNabEJoVUZaRFNsQmhRM2R6Y3pNcmJ6bGxaMFUxTUVWWUszZGpjaTlGZFVOUFRqZFpVQzlFYjA1Q1VHdzNVVWh4TkZGWWNFRXlTVzF6UVN0Q1VHOUxOa2g1VkVkRWFsQllaMWxqUWtSQ2VsbHZSRkZVYUV4aUwwRTJWaTlSVDJ0MlJFWkRRVVZxUTNObFdXMDFjV05XUVdoblJGbGpTV2RuVXpWQ2RuTkRkVlY2VWtaVldFWnBZVmRLVTJGQmRWVjZLM3B5UTNCR2FIbFRORzl4YjFkNWRYcE1SRVZ2ZFVvMGMwRnBjVVJhZUVZclpWWTJUVVowUVZodFNuRm5UR2xFUkdRd2NIbFViVXA0VkVOdWQwRlROVlZvU2t4RmRsaFRhVzlFTm1kaWVDOWhSbkpaT0hkMFMwMTJVSHBuU25GWlVVcEZUREZuUTFkb2JVSnJaM2hwVEc5RFNFYzJTMEZDUTNkcmIxaDNSRTlTT1ZsblZVcHZTR051VjB0aWJrcEhZVlkyTW5KeGExcHRhbmg2VVZZME5tdHVNRTFWVGpoNFVXbE5TWGh0WVVaUFNtNXdVREZSTjBwNWVuZFZjRTE2T0hGR2MzUjBVemc1VFhrNFZrWnBRWEJYVjIwMk5WWnVjSEJTYTNkTlNVRktTa05TYlhCdFpWVlJTVXh4Y0hwRmNFNVJZMjFGVGxOVmMzVm5WRVExWjFkSlQwUlhjU3RuUzBSTlVIQndiMHhMUm5GelZqVktabXRuYWxSM2NGZGpibmROVkVGWlkzRjNlamhCWVU1dldUUnJNRVJCUVVFOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuODYzOTY3NVwiLFwiMlwiOlwiMC44MzQwMDQzXCIsXCIzXCI6XCIwLjcyNDQ4NjdcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC43NTU4OTI2XCIsXCIyXCI6XCIwLjg3MDE2ODhcIixcIjNcIjpcIjAuNjI1NzU2MVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjY5MTI4NzRcIixcIjJcIjpcIjAuODg1MTg0NFwiLFwiM1wiOlwiMC41NjY5MzczXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjU5ODQwOVwiLFwiMlwiOlwiMC44ODU1NDY5XCIsXCIzXCI6XCIwLjUzNjQ4NTFcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NDcxNDQxXCIsXCIyXCI6XCIwLjg3ODk5OTBcIixcIjNcIjpcIjAuNTIwNTQ1N1wiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY0MTgxMjdcIixcIjJcIjpcIjAuODcwOTk2M1wiLFwiM1wiOlwiMC41MDg4NTQ1XCIsXCI0XCI6XCI3XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adjk2Nlh5SEh4OFk3RjhZdUI3M1dKcG4vMHllYmV2Ujg1L3NuOHBtclZrZXFtRC9aR3Y2OUdpcGFmWlBPbmNkT3lPNUE2N3YxUWJONjN1em50aS92cEZqYnZSeGxmMmI0RHozR2ZkTDdkK0VwZlZHQk1UWXYxRTROS2ZXSk1mKzlYM2o5WHRYZllEcmU2NzNieU83RFpmOUV6YkRkZm1sZlBhUFZDSlBhQ3dzczMrbzllZ0U1MEVYK3djci9FdUNPTjdZUC9Eb05CUGw3UUhxNFFYcEEySW1zQStCUG9LNkh5VEdEalBYZ1ljQkRCellvRFFUaExiL0E2Vi9RT2t2REZDQUVqQ3NlWW01cWNWQWhnRFljSWdnUzVCdnNDdVV6UkZVWEZpYVdKU2FBdVV6K3pyQ3BGaHlTNG9xb1d5dXpMREVvdUo0c0FpcURaeEYrZVY2TUZ0QVhtSnFnTGlERGQwcHlUbUp4VENud0FTNVVoSkxFdlhTaW9ENmdieC9hRnJZOHd0S012UHpnSnFZUUpFTDFnQ1dobUJrZ3hpTG9DSEc2S0FCQ3drb1h3RE9SOVlnVUpvSGNuV0tibkpHYVY2MnJxa1ptanh6UVY0NmtuME1VTjh4UWlNSXhtYUZPSm5wUDFRN0p5endVcE16OHFGc3R0Uzg5TXk4VkZpQXBXV202NVZucHBSa3dNSUFKSkNSbXBtZVVRSUxxcHpFcE5RY21FTlNVc3VnVEQ1Z1dJT0RXcStnS0RNUHBwb0xLRnFzVjVKZmtnalR3cFdjbndNVEFZY3F3ejhBYU5vWTRrMERBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8639675","2":"0.8340043","3":"0.7244867","4":"2","5":"3.50"},{"1":"0.7558926","2":"0.8701688","3":"0.6257561","4":"3","5":"2.75"},{"1":"0.6912874","2":"0.8851844","3":"0.5669373","4":"4","5":"2.25"},{"1":"0.6598409","2":"0.8855469","3":"0.5364851","4":"5","5":"1.75"},{"1":"0.6471441","2":"0.8789990","3":"0.5205457","4":"6","5":"1.50"},{"1":"0.6418127","2":"0.8709963","3":"0.5088545","4":"7","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjRnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqb3hNaXdpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjoxMiwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGprMmVYTmhhbVlyVUdvM1JpOUpXRzQwZEhoR2FHY3ZNSHByUkRWMlZEZElVREpVZDFWbFZGUnFkbGRIVEM5YVIxQnVibTFXYzJZcmVXWXhRMlYwTTBoV0wwOVdlbVp4T0U5VVRERTVOVEZYV0M4cmJYSTFVVzloU0NzcmVtWm9TSGRNWlVob00ydG1NbUpOVHpoS1IyaG1aakp5SzFKdE1qY3dlSFZEWmk5bGRFaEdPREFyTW5KNVF6WXpjM1Y2WWpsc2JuTjNjeXM0WldaaGRqWklLMmRtV1ZBMVNVNHZNMjR5VkRZek9WRjVWMGhzV0dWWU4zSkdMM05GZUdjck5saHRVMlpaVUhwQ2RHdEVWbkF5UVZCWWQyZDJVVUpOVWxCWmFEQkJabEZrTUZCRmJVOUliV1YyUVhkM1FVZEViWGhSYldkc1F6SXZLMEl3YWl0bk9VSmpSMHRGUVVwSFRtRTRlRTU2VlZscFFrUkJSM2MwVWtwQmJIbEVabGxHWTNKdFEwTnZkVXhGTUhOVGF6SkNPSEJzT1VoWFJsTk1UR3RzVWxwV1VVNXNaRzFYUjBwU1kxUjRXVUpPVlVkNmNVdzRZMm95V1V4VFFYWk5WRlpCTTAxSFJ6ZHdWR3R1VFZKcGJVWk9aMmRzZDNCcFUxZEtaVzFzUmxGUU1VRXphamd3VEdWNk5VSlRWMW9yV0d4QlZGVjVaM2xCVm5KQlJYUkVUVXhLUW1wRldGRkZSMDR3TUVsRFJrSktVWFpCVDJOcVlYaEJiM3BSVHpWUGExVXpUMkZOTUV3eGRsZ3hRWGhPYm5KcloweDRNMHBRWjJGdk4zaHBhRVZSVW1wek1FdGplbEJSWm5Gd01GUkdibWx3ZVZKdU5WVkVXbUpoYkRVMldtdzBjVXhOUkZOTmRGQXhlV3BPVkZOcVNtZFpVVUZUZVVWcVRsUk5PRzluVVZaV1ZHMUtVMkZuTjAxSlUyMXdXbFpCYlVoNlEzTjNWVWQwVmpGRFZXMVJaRlI2VVZWVlRHUlpjbmxUT1Vwb1IyNW9VM00zVUdkWmJVRlJOVmhvU0hkRFNqRkNVV05VVVUxQlFVRTlQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjg2MTkwMTJcIixcIjJcIjpcIjAuODM2Mzc0MlwiLFwiM1wiOlwiMC43MjIwNTM0XCIsXCI0XCI6XCIyXCIsXCI1XCI6XCIzLjUwXCJ9LHtcIjFcIjpcIjAuNzUzNjQxMVwiLFwiMlwiOlwiMC44Njk4MDgwXCIsXCIzXCI6XCIwLjYyMzM1MDZcIixcIjRcIjpcIjNcIixcIjVcIjpcIjIuNzVcIn0se1wiMVwiOlwiMC42OTAwNjE2XCIsXCIyXCI6XCIwLjg4NTM3MTRcIixcIjNcIjpcIjAuNTY2MDgyMFwiLFwiNFwiOlwiNFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY1ODMxMTJcIixcIjJcIjpcIjAuODg1NTM0MVwiLFwiM1wiOlwiMC41MzU0MzEyXCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjQ2NjcyMVwiLFwiMlwiOlwiMC44Nzg3MzQyXCIsXCIzXCI6XCIwLjUyMDI3MTZcIixcIjRcIjpcIjZcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42NDA1NTAwXCIsXCIyXCI6XCIwLjg3MTQzNzdcIixcIjNcIjpcIjAuNTA2Nzc1MFwiLFwiNFwiOlwiN1wiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzZdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adjk2eXNhamYrUGo3Ri9JWG40dHhGaGcvMHprRDV2VDdIUDJUd1VlVFRqdldHTC9aR1Bubm1Wc2YreWYxQ2V0M0hWL09WemZxOE9UTDE5NTFXWC8rbXI1UW9hSCsremZoSHdMZUhoM2tmMmJNTzhKR2hmZjJyK1JtMjcweHVDZi9ldEhGODArMnJ5QzYzc3V6YjlsbnN3cys4ZWZhdjZIK2dmWVA1SU4vM24yVDYzOVF5V0hsWGVYN3JGL3NFeGcrNlhtU2ZZUHpCdGtEVnAyQVBYd2d2UUJNUlBZaDBBZlFkMFBFbU9IbWV2QXd3QUdEbXhRbWdsQzIvK0IwaitnOUJjR0tFQUpHTmE4eE56VVlpQkRBR3c0UkpBbHlEZllGY3JtQ0NvdUxFMHNTazJCOHBsOUhXRlNMTGtsUlpWUU5sZG1XR0pSY1R4WUJOVUd6cUw4Y2oyWUxTQXZNVFZBM01HRzdwVGtuTVJpbUZOZ2dsd3BpU1dKZW1sRlFQMUEzajgwTGV6NUJTV1orWGxBVFV5Z3lBVnJBRXRETUxKQmpFWFFFR04wMElDRkJKUXZBT2NqYXhBb3pRTzVPa1UzT2FNMEwxdlgxQXhObnJrZ0x4M0pQZ2FvN3hpaEVRUmpzMEtjelBRZnFwMFRGbmlweVJuNVVEWmJhbDU2Wmw0cUxNRFNNdFAxeWpOVFNqSmdZUUFTeUVqTlRNOG9nUVZWVG1KU2FnN01JU21wWlZBbUh6Q3N3VUd0VjFDVW1RZFR6UVVVTGRZcnlTOUpoR25oU3M3UGdZbUFRNVhoSHdDSjFCUWNUUU1BQUE9PSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.8619012","2":"0.8363742","3":"0.7220534","4":"2","5":"3.50"},{"1":"0.7536411","2":"0.8698080","3":"0.6233506","4":"3","5":"2.75"},{"1":"0.6900616","2":"0.8853714","3":"0.5660820","4":"4","5":"2.25"},{"1":"0.6583112","2":"0.8855341","3":"0.5354312","4":"5","5":"1.75"},{"1":"0.6466721","2":"0.8787342","3":"0.5202716","4":"6","5":"1.50"},{"1":"0.6405500","2":"0.8714377","3":"0.5067750","4":"7","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBNWtBQUFFekNBSUFBQUEwTEZEUUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzNkYjJ3ajZYM1k4ZDlJMnIyemE1K0RRQTFxNjlhNVM0WXlvQXB3MHhPd09RcVg0bDY0S2JXd3lnSWJOVFdDMHdzRFlnNXBUVzFiR1cxT2JWNTBMd0c4clpkRUVWd292K2xlSGR2UkxWQkJxTWdrQm5vb3J1U2REQVd0WVVFTnhMRnY3VDM1WEZoTm16VE8zZDVxOWZURmtCUkZEc2tSNXhseW51SDNnd0dXZng3OStJZzdQejAvRHA5bnhsSktDUUFBQUdDZ3NXRjNBQUFBQU9nVHRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGUVRvVWFmbTVzTE5UN1FzTGUzTit3dUdJUEVSTmpJeHo2UW1CaVltR1ZvdUxXc1hQejlPajQrbnB5YzFONk5NTUxTMWVpRVpReTRxQ2drSmpIMXhnd3BMUGs0U0ZGSXpKREMwdFhvaEkxZmhqTEhBQUFBQUthaWxnVUFBSUNwcUdVQkFBQmdxdERueTdvZXZQdHpQbHQrVk9UQnU3NWFYckl1MFBtZkZqbjlrYStXRDlSRG56SC9tc2g3L3JxcTVBSVhWL3V3eUYvNUMvdFFuZnFNZVVua3ozL290d09udm5zN0x2Si8vSVVkRjh2dnk0dGNGdmtMZjJHZitNUVAvSWRGaXhlKzlmbUwvY0QzZkxYNnFZbjNMaERUMzMvZ1QwNHZYeURtdlF1MDFSdnpnMGNYK1l2NlhWK3RKc1llWFNDbWlMenRMNnpsOTYrSGlOOWYveXR6ZHk0UUU1MmQvbWphWjB2L1E5dUp1c0NPOUlUSUIvNkdvZmQ4ajVqK2g2RVR1Y0RPYVluOGIzOWgvWStZSXZLakk3OHRMM1RwMUhmOWhiMWtYZXc0NDdHL2QyRHlFKzljS0t4Qk9DNExBQUFBVTFITEFnQUF3RlRVc2dBQUFEQVZ0U3dBQUFCTVJTMExBQUFBVTFITEFnQUF3RlRVc2dBQUFEQVZ0U3dBQUFCTVJTMExBQUFBVTFITEFnQUF3RlRVc2dBQUFEQVZ0U3dBQUFCTVJTMExBQUFBVTFITEFnQUF3RlRVc2dBQUFEQVZ0U3dBQUFCTVJTMExBQUFBVTFITEFnQUF3RlFUZ1g3NjZHNzJ4VmZmRmhHUjUxL2F2bkZWUjQ5Q01QYnhxbnZqOU4zRWNIc0NESUloaVFtTUZ0Mkp5ZEFHdUFMVnNrZnZYUG5pOXZhVWlPemV2ZnVrcGg3cDFzaDI5elk1ajlneklqR0JVYU0zTVJuYWdJWkF0ZXpVMWRybnl0Mzc4bXpUUjh5NXVibkc3ZVBqWXhINWFKQ1hBVHB3OXk2MDhKK1lnRWJzVk4zNVQ4eWZIbXpITUNKaW5LSEI1aGpVdENTbTdPM3R1VGZtNXVZbUp5ZEY1TUc3T2w0SE9NL2R1OUJCcjhUODNsQjZoZGdpSC8zcFBXS2UvbWdZL1VMY3hUaERkYXo5MnIwdnowNXBpQk9PNW05ZStCWUdJeVRhaVFtTUtFMkp5ZEFHTkdnNEx0djZHVE42eUhPTW9PZ25KakNDTkNZbVF4dmdDbjVjbG9NL1FBU1JtRUFFa1ppQWZzR1B5MTY5ZmwxRFB3Qm9SV0lDRVVSaUF2cHhyUVFBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQ3FpY0c4ekUvVUI5cGp2bnZ5UUh0TUVYbk1VbUdFRGNPNGhOTFZNRDdmV0ZZSVFVV2VDQ1hxcVBnN1AzVVlSdGdmbjN4VWU4eVBqZitWOXBnL00vRVgybU0rQ2lGN0xsc24ybU9LeUNQRmdZem8rczRINzJtUCtiOGU2VTlNRVhuY01tWkhHcmRPd3dnN0ZzSkFiSVV6dUUrR0VUUWFqTmtMQVFBQWdCYlVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURDVmhscjI2RzUyY1hFeGUvY29lQ2dBdXBDWVFBU1JtSUIyRXdGLy91aHU5a3Z5eGUzdEtTMjlBYUFGaVFsRUVJa0poQ0ZnTGJ1NytlcmJiOHVMaTY4Ky85TDJqYXYxUitmbTVob3RqbytQaGFrTUNJZTdkNkdOMzhRRU5HS242b1hFeERERmVPOEtWc3Z1VnVTbDdlMnJjblEzKzZXN1IxZXYxejVyN3UzdHVUZm01dVltSnlkRjVNOStHS3liZ0JkMzcwSXJuNG41WjhQckllS0lmT3pCOTRoNTlJT2g5UkV4RnVNTTFYUEFkT3JaNTU3U0VnaUFQaVFtRUVFa0pxQlhzRnIyeVN2M0tyc2lJdS9jbHl0TUFBS2lnY1FFSW9qRUJNSVJySmFkdXY3RksxOWJYRnhjckNUUDV2NEFHQzRTRTRnZ0VoTUlSOUR6R0V4ZHoyOWYxOUlUQU5xUW1FQUVrWmhBR0RqQkFBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lHRTFPZnQ1cU5wOTN6ajJlS2JYL1RDbHoxdFM5UFo5M1N2bThVMyttaWRmUEEvRFdLUjhIMllHQnZ5WmdETDhqWTlORHpVMURIeUtwWlRHYTdHeTVta3ZLU2xFcHBWUnhwYktheUpUY3gxVTFsNVNObTYwRG01Ty91U0hKWEZXVnMzWXBzN0NmcXlwMVI1WVhOa1VrVlZEVlhES1pxeXBYTlRjempGOEtNRlNuZkJ5UVVpYXhXaG5jeXdHbThUY3kxaDhyYmNuS3lzYldXUXFIUGtSU3l3SWlxYlZjVXZZUEd6bTZsTXZKNnExelk2bXpJMHU1NU5uOTJXbGJ4TTZXaTBzZThleHNOaFZhWjRHWWE4M0g4Rit3VUcxT2JnQmVmSXlNSWlLbExVa1gwdWVLMlJiYWgwaHFXVUNjL1BKcUpibDByZkdwVXFhejYrY1RzWFRyWVBwYTQxNHF2Ykt4NEg1SmtzcWVmUml0UjhzendRRG8yL2w4ckgyNW1jbVhTbTV4Vy91Nk1wUFBaL0tPZXlkVHFqM3NmczNaK0VMVFBiWmJ5bGlaZkg3ZWZiYjErOURhZlk3TEFyMzFHQmxkenVGTU9pV3Bqc1ZzR0VNa3RTeEcyc2FDWlZsV1luUHAzQmNrSWlLcHRkeCs0OXNVSjc4MXM5YjhNVEpWVU1XVmpZWHpVNFFxcXdsM1ZEd1lSTmVCMlBISXg5S3R6YVdxVWlwOWNQTlFSSno4L00yWnFsSktwUTlXOTJ1WktDSk54MWFkL00zOVhGV3BhaTY1ZitnNCtmbUZEZG5ZbER0S2xiUFZqUHZUeGRuVjVid2pUbjUrUVlwS0tRN0xBcjUwSHhsRlJKd2RtVTZKZUJTeklRNlIxTElZYVN0RnBZb3I3b1NCRm5aMmZiYjJiWXF6SStuV282K1NLaWhWemNscW9sSE8xaVlETVZrVzZJOUhQaVptWkRWaHplY1RoWExXRm1kblUyb0hiQk16SGNwUE8xc3VaeVUvbjFpdFZBNnFkclpjWEpHVjlhd3RJczdodmp1Y0xteEk1YURxN0d4S2JpMGxJdmExSllwWndJZGVJNk96czdtNllGbHVscDB2WmtNY0lxbGxNZkpTaGFJc2VDMDBTYVZYTm03bUhTbmRPcGcrLzlHemxISGIyOWx5Y2FWeVVEMzNKSk5sZ2Y2MTVLT2RMU3RWWGRwTStGLzVYTXBZMXJMYzhUN1dXbHRlcHBRcWtLWkFIenFQakNMaTdNaDZQY1ZVdGVrWTdwa3doa2hxV2FCak5adGF5OG5xOHJ6SHR5aU4xWnpPNGI1WFJDZWY0UVEvUUYvTzVXTXBuM2ZFenBaVmNXWC8wTEduWnl1Yk94MVNxM3BRcWF3bU1wbXRqWlZpdWUxd2tZaUlQVDFiUDFCVXltUks5dlJzNVd3bHk0RFBuUUNZcXN2SVdKOWc0TEt2TFlsM3Z1b2VJaWMweGdMTTRlVG5FNnNWa1FWTGlxcVFTaFdLVzVabGlTU1R5VXFsSXJLNm1hdVdzM1oyZldWMUsxMjJHKzBsWVczbXF1c3p1WFZadHF5S2lLd1VWYXFVc1JZMlJDUmhyZGJpSjNQVjdQQitPOEFzbmZKeHBWaWMyVnkyVm11Wlpvc1VpbHRXUGMrU09SR1JWSHBsWWNIYUVFa21rOG5jblVLMkt0YUN0U0hKWkZJcUN4bFoyZGdRMlppZnFaYXpkaU93ckJSVlFTUlZYTEVXckEyM0V5dEZEdFVDbnVvWjJtMWtYRm1SalkyS3lLWlUzYytTVG41NXRWS1JoTFZaRzFmREd5SXRwWlRHY0MzbTV1YjI5dlpFNUEvZi9wdmFnMSt5SG1tUEtTSi8vdWhEMm1OT1dLZmFZNHJJUkRqdndJZXNoOXBqamtzbzc4QXZQVlg3ZHIreHA4RVA5KzNhKzhIUGhoSDhiMTkrVEh2TTc1NzhwZmFZWWZ6bCswZ0lYM1E5TVhaSmY5QndmT1RqMzNkdkRDUWZuZno4c3R6eFB2NXFxTWI3ZHZ0Ly9sM3R3VDg4OWtCN1RCRjVYK25mUHkwSnBTd0phU0FPb3hRWkMyZkUvUHowZjNOdnhHL0VaSTRCQUFBQVRNVWNBd0NBWVdwWDZrcGtwbG5EQll3OGFsa0FnR0ZTQmFVS3crNEVnR2hnamdFQUFBQk1SUzBMQUFBQVV6SEhBS1ByTTJPLzBzZFBmZlAwTmUwOUFYRDZvK2srZm1yc2J4eHE3d21BZGxFZU1hbGxNYnFzQ2ZaL0lDb2VxcE0rZmtyL0dlQUFlSW55aUJuZG5nRmhzOGJaLzRHb2VFQXRDMFJZbEVmTTZQWU1DSnQxaWYwZmlJb0hFc3JGWHdCb0VlVVJNN285QTBJWDRXOU1nRkh6UUlWeXJTTUFla1I0eEl4dXo0Q3dSWG4yRHpCcTNsZldzTHNBb0tNb2o1aWNrd3NqYkdLOG53MUFDQjRvcTQrdFBZNlRuN2NzYXo3dnREM1dlTFRsTGdBZklqeGlVc3RpaEUxTTlMTUJDTUg3YXFLUHJUV0trMTgrV0ZkS3JSOHNueFdxenM3QlVsVXBWVjNhdkZWcXV3dkFqd2lQbUF6TUdHSGpmSllEb3VLWlQzN2Z2Vkg1L3M5MWI1bjgyZTkxYXVuc2JNNm15eUtTU3MvZTNIR3lXZHQ5ZlArZ0ttSlhEMmJUV1JIbi9GMEFma1I0eEtTV3hRampJQ3NRR2EvZisxVDk1cVVBTFdkbkVpSWlrcGlaYlZ4RndjNlcweG5MV2xncHFrTDdYUUIrUkhqRWpHNlZEWVJ1Zkt5ZnJZMlArWGtpcFl4bFdaYVY0U3ROd0pPZU9RYnVJVmNScVI3c256M281QS9UU2hWbHdVM0FscnNBZk5BMFlvYUJXaGFqUzAyTTk3RzFSdkV6UDAra0pHbWxsRktGMUNCL1E4QWNEMDR2OTdHMUJMR3ZMZTF2bFVTa3RMVy9kSzAyd1VCS3R6WWxJWklxRkdXcjFIWVhnQTk2UnN4d1JQZUlNUkMyUDl4LzJiM3g5ejc5cjNxMC9QYS82ZlNVci9sNVV0cGFXRmhJNXFybCt0TUF6bnRmOVpoYTRJdWRYUmZMc2lTWnE1WnRjZkx6dDZiTGhkVGEwczJFdFNvaUswVWxJaTEzQWZnUTRmbXlnWHUyZTN0eGNYRng4ZmF1anQ0QWcvVEx6L3lXdTZtSnNlNWJvK1V2UC9OYmJXR2E1dWMxSHJPejVmU1daVmxiNlVKS1JKekVtbEpxL1NBeHNITUFSVDR4eHo1ZWRiZGhkd1JSb1dtT2dhUUtTaW5sZm15MHMrVkN5djFYTlgweDBuSjNnQ0tmbUVBblBRZEt6NjA5anNlc3ZQcWt2TVk4UEsrWmU5MEVQUzY3SzhudDdSc0Jnd0JEb2NhMWZQM2hIb0YxNStkZHF6L29Uc2hMWjZ4TVNSVlN0bTJMU0twUVBjenNPREtBWTdNUlQ4em1FbmJzNDlYVGR4TkQ3QXdpNHNHcGp1T3kwUmJ4eEFTNjBETmkxbWJscFVxWitieFQrNmJTcVU3ZlVjb1drVkkrbi9CdTAxM0FXbmEzOHZMTEx6Lzl3aXY1NjFOTmo4N056VFZ1SHg4ZkIzc0pvS09BZTVmblI4YUxzcTh0N2Q4cVNTcFYydHBmV211ZW43ZVdGYnRRM01xVUpGVTcrT1BzYk1yMElNNEJSR0ppQ0FMdVZBKzB6REdJTkJJVHd4Unc3L3JqYi8xcjk4Wm5ramU3dC94bVpiM1RVNTZ6OHV6NkdGazZsR3NwY2ZMZU0vZTZDRmJMSGoyNXRMMTlZL2YyWXZadWMzTHU3ZTI1TitibTVpWW5KMFZFL2wrZzF3RTgxZmF1dm8zcnVHYW1qL2w1VG40K3NWb1JTZWFxNVVGOHAra3ZNZS85WUFCZHdRZ0ptSThQdkNZTXhJci9FZlBIdytrZzRpMWdobjdtdWRvS2s1NUQ1MWxMa1crKzhkTDVKNzNPbWxmamxyTGlkR3ZqTGRqZmpxbXBLUkc1ZXVPVis3ZmZQSkp6bnpTQnlEdlZjVnhXM1BsNTlkTlUydGx5b2Zhdk9qc0NlKzVPK0NLZm1LZnZKaHJUREpoZ0FGZjg1eGhFUGpHQkxqU05tSjZ6OGtTa1VjcDJiZE9CbHA0ZHZmbUdYQ0V0WVJvMWJ2V3hEYnZYL2tVNk1VL2ZUYmpic0R1Q3FIaHdPdEhITnV4ZTl5SFNpUWwwb21YRTlENXJub2k0cGF6ZG8wMG5nZjRRSE4zTnZ2anEyeUpQdi9CSy9tcVFRTUF3R0ZXWVhnQ0pDUk9aV1poZUFJa0pvK2taTWIxbjVVbnpVZG1XTm40RSt0c3hkVDIvZlQxSUFHQ1kxRmc4YTFrU0V5YUsvWHhaRWhORzB6VmllczNLRTVGVU51dmR4bytZLyswQXVqaTlGTTlhRmpEUkI0OFlqNERvaXZLSXlkOE9qQzRWM1l1WUFDUG5BeldneTEwQzZFT1VSMHhxV1l5dXVNNlhCVXowZ09PeVFJUkZlY1RrYndkRzEybUVNeE1ZTlEvanZ2WUxNRnFVUjB6K2RtQjB4WDJwQ1dDU0QwNlpZd0JFVjVSSHpPN1RIMG9aYXo3dkRLZ3J3SUNwTWF1UGJkaTlGaElUc2ZUd2RLeVBiZGk5YmtaaUlzNmlQR0oyLzBPUUtxZzdzbXhabG1WbFNvUHBFREF3cHhQOWJCRkFZaUtHUGppZDZHTWJkcStia1ppSXN5aVBtRDAvMU5yWnNsSktxZlNXWlZrV0h6b1JJMnFzbjYyZGs1OXZ5dzMzc2JOSHZkb0VRV0lpYmg0K0d1dGpHM2F2VzVDWWlDMWRJMllZZkwyT2s1KzNGamFTdWFxcWZlZ2tQeEVIcCtOV0gxdHJGQ2UvZkxDdWxGby9XRDdMQzJmbllLbXFsS291YmQ0cWRXZ1RHSW1KT0hsNE90N0hOdXhlZXlBeEVVdDZSc3h3OUp3dmExbVd0U3gzbEZMbHJGMy8wSGxIYnBHYk1ONmZmT1dHdTZseDZiNDFXdjdKVjI2MEJIRjJObWZUS1JGSnBXYzNkODdTWXYrZ0tpTFZnOWwwcW1PYmZwR1lpS0dUUitOOWJNUHVkVE1TRTNIV2M2RDAzQWFqMTF5R2xhSXFwTm9lclI1c0hFd1h4TjlsY29HSStvWGZ1RjI3MVN2ZnpscUsvUGZmYlNsbloyY1NJaUtTbUprOXJEOW1aOHZwakdVdHJCUlZRY1R4YkJNRWlZbllPWW5XUXE2K2tKaUlyeWhmektUWDM0Nk5MYThaN0ttQ1Y3NENaamtkNzJkcjR4NkJGYWtlN0o4OTZPUVAwMG9WWmNGZEErTFpKZ0FTRTdFVGgvbXlKQ2JpUzlPSTJYSDF5TG5IYTE5eStGMUUyZU04QnVtVmxsZktzemdUOFRIVzEzYWVmVzFwZjZza0lxV3QvYVZyOVNNdnBWdWJraEJKRllxeVZlclFwbjhrSm1MbzlIU3NqMjNZdlc1R1lpTFdkSXlZblZhUE9QbjVwc2s1VXBLMFVrcjUvaERZWTc3czFzYkdnblVtc1hwd2dWOGJpRFk5bnpMdDdMb3NXSloxYytaTzFoWW5QNThwaWFUV2xqWVRsbVZaQzVKT3RiWUpqTVJFREQwOEdlOWpHM2F2bTVHWWlMTnY1MjY0Vzg5UnN0SHkyem1mSzB4S3QxWXJsZFZFL1VCc2FXdGg0VUpySm5zZGw4M2xxdXBNTlRmai85Y0dJazdYR1VaU0JkWDROR2xueTRXVW5KMmFwLzZ4c3JsTllDUW1ZdWhVV1gxczdYSDhuQ092UTdPQVNFekUyZXphYlhmck9VbzJXczZ1M1c0UGM3WjZwUEZZYVV1S2JzcnMzOHc3NGlUV2xGTHJCd25mK2RuanVPeWhOSDBoNnVTWEQ2YVo5SVBZaVBLcXpLNUlUTVRRNlNPcmo2MDFpcDl6NUxWOW9ha0ppWWs0MHpSaWRsczlZbDlibWhVUjI3WkZKRldvTGgzNFBQRlBwL01ZT1BuNXhHcEZSR1IxdGVuaFpNNlJWQitwLy9VZi8rTEZmNmlIajExNlQzdE1FVGtKNGR5K0h4bC9vRDJtaUx4L2VpbU1zTXJyVUVkQVk5YXA5cGdpOGt0UEJmcnhnWjNHV1IrZGlma29uTi8vZXlkL3FUM21YeC9UL3huaVJKVDJtR0djU3ZGRWhaSTdZNkYwTmhCbmFkMjk4ZlBmK08zdUxiLzdxNy9acWFXenN6bWJMb3RJS2oxN2M4Zkoxa3ZWL1lPcWlGMDltRTFucGZhRnBpU3NWZS96RHZUUmQ3MGo1bjg1L3BTR1RwMzN4T1gzdGNjVWtmY2U2UitHUGpUK1VIdE1FWGtRUWxkRjVDU1VFVlAvWHljUitmeDBvQi9YTW1MWTE1YjJiNVVrbFNwdDdTK3QxWk1qTWVNK0tOVURtYzdXMnpvN20wMzN1dXBVeTlyWnNzcEtLWjlQWkhWK2JBVWlSRVhxK3BlK2tKaUlyYWUvK2p2MW16MktnNjR0ZTU4anIvYUZaa3FjL1B4eTNrbHBTQ1VTRS9Hblo4UzBzK3RpV1pZa2M5V3lMVTUrL3RaMHVaREszcG1adDZ3RldTbXFRdU9qWVRKWExXdForNVZxU1V0V1pTSk9vbnhGdnE1SVRNU1FPclg2Mk5yQytEbEhYazN0QzAxdFNFekVXWmdyVE9wTFRNNHRON25BREtBZUkzUHRERitzeWtRY0dUdGZsc1JFSEoxYS9Xem4rVGxIbmlSbTNEWlNQWkJwbllkUlNVekVXSlJIek82SGpPdmZ4QUJ4RkkyRHJIMGdNUkZEcW4waFZ4Kzh2OEZjVzdxWnNGWkZaS1dvUk9UY0Y1cjZrSmlJc3lpUG1EM21HS3pOSERaL1JjSTNKb2lUS0gvSzdJckVSQXhaajZ3K3R2WTRmczZSMS95RnBqNGtKdUlzeWlObWp6SzdlckRLbVo4UlY4Yk9seVV4RVVjNjVoZ01GNG1KR0l2eWlObHJqc0YrcnFwWWxvbDRVaE9oblBja2ZDUW1Zc2p6SUt0UlNFekVXWlJIekI1ekRBcnIwOVdtKzN4amdqaUo4cWZNcmtoTXhORnBYMXVFa0ppSXN5aVBtRDJ1KzVWWldPQWJFOFNWR2xkOWJPMXhQQzZHV2I5a3BsVy92SFI5aFhOR3g5aEdZaUtHZE0yWEhSNFNFM0dtYThRTVE0L2pzbHhkR25GbTliVzE4THBtcGxPZHZ1UG1UREhubnJtOUpHbWxiYkVKaVlrWXNrNzcyYUtFeEVTc2FSa3h3OUhqTWc2cDdMbkxoOWxjMGdReDh2WS8vbWZ1amFkKzc5OTJiM252MS85NXA2YzhyNWxwcDJvbGErbFFycVZFcExTMXNMQ1F6RlUxWGYyZHhFVDhXQ2VST3NqYUR4SVRNUmJsK2JMbVhjUVQwT1dwalZ1MVc3M205SnkxRkxtM3NuYitTYTlyWnRiVVMxa25zYVpVb1pTeDV2TzZ5bGtnWmlKMmtCWEFlV1BScldVanNaSUZHQXBOczM4OHI1a3BJbTRwYTR1STJMWXRJcWxDZGVsZ3h4RUE3YXhIL1d3QUJzUGMrYkpBbkZuanFvK3RKWWozTlRORnBLbVVyWE4yTnZWZU1oT0lEL1BueXdKeHBtWEVGTS9WMG0yUGQyclRDYlVzUnRpWTZtZHJZV2ZYWmNHeXJKc3pkN0syT1BuNStxa0t6a3JaK2xrTmx1V081Z3NOQWJIQmNWa2cwclNNbUY2cnBVWEV5Yzh2eTUzYUZmczZ0T21DK2JJWVhaYW0yVCtwZ21wYzFkM09sdXMzejlhQjJObXl5bnI4SUlBR0RySUNVWGJ2aFgvaDNuajZxNy9UdmVYYnYvWXZPejNsdVZwYXBIUnJ0VktSaExXNlVsU0ZoSGViYnFobE1ickdJcndxRXhnMUhHUUZvdXpudi9IYjdvMnhYcFZqbzZXSWZQZFhmL1A4azE2cnBVdGJVbFFxSlU1K2ZqbnYzT20yb3RvYmN3d3d1cXl4MHo2MllmY2FpQ2ZtR0FCUnBtbkU3THhhV3NTK3RqVGJxNDBuSGJYczBkM3M3VjBOY1lEQkdodFhmV3pEN3JWdkpDYU1NaXExTElrSk0ya1pNYjFYU3lkbTNBZWxlaURUZHBjVjFSMzdGdmkzMjczOTRxdHZCNDRDRE42WXBmcllodDFybjBoTUdHWTB6bU5BWXNKVWVrWk16OVhTZHZiT3pFM0xzcXl0ZENIVjJzYVBvUE5sZDI5WGtxKzhjRy96M0lOemMzT04yOGZIeHdGZkF1Z2s0TjQxTVdIaVVSMWZTRXdNWHNDZGFpeTI2WGlHeE1RUVJXVEU5Rnd0M2JKQ3VybU5yNzRGNnRIdTdVcnl4ZzI1KzdYekQrL3Q3YmszNXVibUppY25SVVMrRitoMUFFKzF2YXRmNDNHZC9Pb3ZNYi83azhIM0RIRVdNQjhscHVsNHh2K0lDWVFneGlObWtGcjI2TzdYWG4vOTdkZGZGeEdSUlhscCs4WlZQWjBDQnVMU2VIUXpNd0FTRTBhSyszRlpFaE5taS9LSUdhU1duYnFlMzc0dUlrZDNzNXRYOHFRbFRETVI0VStaQVpDWU1KS1JDN2t1Z01TRTJhSThZbkorV1l5dWlmR1lENTZBUWVKZXl3Sm1pL0tJcWVPY1hGUFgrWWdKRTEwYWU5VEhOdXhlKzBaaXdpaGpqMVFmVzNzY3J5dTUxeThqM2Z4bzAvV21CNHJFaEptaVBHSnlyUVNNcmt0anAzMXM3WEU4eHM3NjBHbFpsanRjZW8ydkFNN29PU2VYNTVYY25aMkRwYXBTcXJxMGVhdFd2cFl5aWRYS3dINDN3SHk2UnN3d1VNdGlkRjBlUCtsamE0M2lOWFk2MWVrN1NpbWxWREUzaytnd3ZnSm84cTMvOEUvZGJleEV1bS9OTFZzNE81dXo2WlNJcE5Lem16dG55ZVplUjZoNjRENHBwY3hXdXBwTER1eDNBOHluWjhRTUIvTmxNYnIrODNQLzNyM3hEOHEvMGIzbGY1ci8zVTVQT1R1YnMrbXlpS1RTc3pkM25HeldGaEU3bFhLZkxSM0t0WlE0ZVk4MkFKbzkrN2wvNTk2d0FyWDB1cEs3blMybk01YTFzRkpVQlhFcjJVSkI4amNEOXhrWUhRTTd5Tm9IYWxtTXJuLzQ1cSs3Tnk3MytuNmkwVkpFL3VEWjN6di9wTmZZV2VPV3N1SjBhd05BUk1UU2N3Um4vNkFxWXJ0WGNyOVdmOURKSDZhVlNtZXNURW10SGQ3YzJLaHNiTGd2S2tWVlNHbDVZU0RlTGtkNHVRaHpEREM2TG8yZDlMRzFoWEcvdlhUSHp2TktoMUs3bG5Ubk5nQkVSTlBhTCs4cnVaZHViVXBDSkZVb3lsYkp6cGFWVWtwVmM4a1ZDbG5BTDAwalppaW9aVEc2SGhzLzZXTnJDZUk5ZG9wSVV5bmJwUTBBbC9WSTliRzFSdkc4Mm50cWJXa3pZVm1XdFNCcGFsZWdMMXBHVE9tMEVycVVhVm9zM1hhM0YrWVlZSFJkMW5KQ1N6dTdMcFpsU1RKWExkdmk1T2R2VFpjTEtXbE1NR2h2QTZDZHgwa0ordUoxdGZlV2k3MmZldzZBSDNwR3pOcEs2RlFwTTU5M3lvM0ZJeVZKbitWdDI5MmVxR1V4dW5RdHNmUWFPMFVrbGMxNnR3SFFidXloeDhsaUFVVEVLOC84Ui9kRzluLzhvKzR0ODMvcjY1MmU4bHd0TFZMYVdsaFlTT2FxdGVLMjVXNXYxTElZWFk5cFdtd0NJRGpybEZvV2lLNHZmdnRYM0J1UDlUclZTS09saUh6cDA2K2RmOUpySmJTVFdGT3FVTXBZOC9scU9XdTMzUFhSTjJwWmpLN0xnNXFXRHFBbmo4bXZBQ0pEMDRqcGRhWVIyN1pGSkZXb0htWjJITW0yM3UwZGxGb1dvK3R4anNzQ2tVRXRDMFNabGhIVHZyYTBmNnNrcVZScGEzOXByYVZLZFhZMlpUcmI2VzQzMUxJWVhZK05QeHgyRndEVWpKMUU5MHpzQVBTTW1GNnJwZGNPNXhPckZaRmtybHBPaVRqNWMzZjlvSmJGNkdLK0xCQWhISmNGSWt6WGlPbXhXanAxN2p3alhxY2Q2WUZhRnFQck1Zdmpza0JVV0J5WEJTSXN5aU1tdFN4RzEyTmowYzFNWU5SWWo2SjdoVXdBVVI0eEIxVEwvdGMvVGVnUDJ1dXNFSDE2YjF4L3pOTncraHJTVVF3VlFtL0hRdm4yTVA4TGdYNTh4TmQrclh6bjE4SUllK1ZqLzFkLzBCRDJ5UTlONlArN2ZDbU02NVZib2VUTzZhbitpejUrNHhPQmZwempzZzNmK2ROUERyc0xmbG52NjkrUkxLTkdURjNYK0dpbVFpaERSRVNTZ1g0NnlpTW14MlV4dXFMOGpRa3djaDVSeXdMUkZlVVJrMW9Xbyt2eENIOWpBb3dhaTFvV2lMQW9qNWpVc2hoZFVmNlVDWXljRStiTEF0RVY1UkZULzB3WHdCU1BXUS83Mk5yak9QbDV5N0xtODA2M3gwc1p5N0lzSzFNYXdDOEdtT2prcEo4TndFRG9HakhEd0hGWmpLN0hMUjNIZ1p6ODhzRzZVcWxTWmo3dm5GMDYyc25QTDhzZHBXcjNTNUkrTzZVZWdIYk1NUUFpVE0rSUdRNXFXWXl1Wno3NWZmZkcvdjJwN2kxbnJ4eDFlc3JaMlp4TmwwVWtsWjY5dWVOa2E4VnM2ZFpxcFNJSmEzV2xxQW9wS1cwdExDd2tjOVd5bnl0TEF5T0pnNnhBaEVYNTZrTFVzaGhkemp1MWN3ZzkzdXNNTUkyV0ltSS8rY1B6VDg3T3VHZWNTOHpNSHRZZksyMUpVYW1VT1BuNTVieVR1cFpZVTZwUXlsanplY3Bad0J2elpZRUllenljOHdOcVFTMkwwYVVwTS9jUHFpSzJTUFZnWDY2MVBHZGZXNXJkRWJGdFcwUlNoZXBoWnNjUmlsbWduZUs0TEJCaFVhNWxXZnVGMGZXWU5kYkgxaExFdnJhMHYxVVNrZExXL3RLMWVwV2FtSEVmbE9xQlREZEtWMmRucytrZWdHYXMvUUlpVE11SUtaMVdTNTlmSHQxcFJYVW4xTElZWFkvSmVCOWJheFE3dXk0TGxtWGRuTG1UdGNYSnoyZEtJbmIyenN4Tnk3S3NyWFFoVlV0THkxcVdPNFhVTUg1VElQclV3NU0rdG1IM0doZ1Zla2JNMm1wcHRYNnczRnlwbGlTdGxGS3FrT3JjcGd2bUdHQjBYYmIwWENnd1ZUZzdSWUdkTFJmcU4xVDI3TUhHYlFDZTFDTUtVeUM2bnZqRUQ5d2I3Ny83ZFBlV2ozLzg3VTVQZFZvdDNidzh1a09iYnFobE1icTY1QnVBQWZ2akQ3NCs3QzRBNkMzWTBPbTFXdG81dHp6YXUwMVh6REVBQUFEQUFPd2ZWRVhFWFMxZDExZ2V2WFN3NDNSbzB4VzFMQUFBQUVMbnZWcTZwclk4dW1zYmI4d3hBQUFBUVBqczdMcFlsaVhKWExWc2k1T2Z2elZkWGp1Y1Q2eFdSSks1YWpuVjFzWVBhbGtBQUFBTWdzZHE2VUpPb1lvQUFBaWFTVVJCVkZUcjh1am1ObjR3eHdBQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUtwZ3RlelIzZXppNHVMaVl2YnVrYWIrQUFpTXhBUWlpTVFFd2hId3VPeXpYOXplM3Q1KzZhazMzaVExZ2NnZ01ZRUlJakdCVUFRN2o4SFUxSlNJSE4yLzhybnJVMDBQejgzTk5XNGZIeDhIZWdtZ00vWXVieVFtaG9HZHFnY1NFME1WNDcwcjZEbTVkbTh2dnZ5NnlQTlhybCs5Mm5od2IyL1B2VEUzTnpjNU9SbndKWUJPMkxzNklURXhlT3hVUFpHWUdLSVk3MTFCMTM1ZHZiRzl2ZjNLQy9jcXUxcTZBMEFIRWhPSUlCSVRDSU9XOHhoTVhYbnV5cE02QWdIUWg4UUVJb2pFQkRRTE5NZWc5bldKeVBNdmJkL1EweDhBUVpHWVFBU1JtRUJJQXRXeVYyOXNrNUZBMUpDWVFBU1JtRUJJdUZZQ0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVTFMSUFBQUF3RmJVc0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVTFMSUFBQUF3RmJVc0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVTFMSUFBQUF3RmJVc0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVUU0TjVtVSt0ZkVkN3pOTVBQdEFlVTBUR1AvWXg3VEd0eHk1cmp5a2lNaEhPZjkvNHVCa3hSZVRGVUtLT2lKLzUrNGRoaEgyZ1R2VUgvY1ZQYXcvNTNtWDluK1F0cFQya0tFdC9UQkU1K1hBSWZ6Mksra09PcGsvOWsyOXJqM242d1FQdE1VVmsvSWtudE1lMExvY3pZbzZIYy9EdTBpWDlNVVBxNm1vb1VhT0E0N0lBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk5SeXdJQUFNQlUxTElBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk5SeXdJQUFNQlUxTElBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk5SeXdJQUFNQlUxTElBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk5SeXdJQUFNQlUxTElBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk1GckdWM2J5OHVMaTR1WnU4ZTZla09BQTFJVENDQ1NFd2dGSUZxMmFPNzk1UGIyOXZiTHozMTZ1YXVyaDRCQ0liRUJDS0l4QVJDTWhIa2g2ZXVYNThTRWJtYWZQNXI5NC9rNmxUdDhibTV1VWFiNCtQaklDOEJkTUhlNVluRXhGQ3dVM1ZIWW1LNFlyeDNCYXBsejF4NTd0bXBzM3Q3ZTN2dWpibTV1Y25KU1QwdkFiUmg3K3FCeE1RQXNWUDVSV0ppR0dLOGQrbFkrN1Y3dTNMbCtsVHZkZ0FHaU1RRUlvakVCSFFMWE12dTNsNnNKRzljMWRFWEFMcVFtRUFFa1poQUNBS3UvY291dnZ5NnZQN3k0dUxpYmFheUE5RkFZZ0lSUkdJQ0lRbTQ5aXUvZlYxWFR3RG9RV0lDRVVSaUFpSGhXZ2tBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk5SeXdJQUFNQlUxTElBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk5SeXdJQUFNQlUxTElBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk5SeXdJQUFNQlUxTElBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk5ORE9abC91ajkzL2ZaOHZqNGVISnlVbnNId2doTFY4MEtpeGJmZlBRSC9odWJzbHVPY3N5UXdwS1BnL2RINzMvVlowdDJwQkh2YW5oaHpjSnhXUUFBQUppS1doWUFBQUNtb3BZRkFBQ0FxYWhsQVFBQVlLclExMzdOemMyRi9SSUFMb3JFQkNLSXhBVDZvU0xtbVdlZU1TVXNYVFVyTElJd1piY2M1WmdoaFNVZm80d2RhY1M3R2w1WXN6REhBQUFBQUtheWxGTEQ3Z01BQUFEUUQ0N0xBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1OY1JhZHZmMjR1TGk0bUwyN3RINUIyN3Zpb2djM2MwMmJ2Y1h1UGF6YnFENnExdzBiR3Y3ODlINkR0N1dVa09mdTcrZndkNkhvN3ZaZWx0TjcwQnI5N1QrcnlHSWNCSXo2bGs1OGlsSlBrWWRJK1lJcDJkYjk4alFWc002Z2NJN3I3MzJsbEpLdmZYbHozNzVMYVdVVW0rOTlWWnJreTk4K2EyMkgrenBYSng2akxlKy9JWFgzdWt2YkZQN2xtaUJncDlyR2J6UFBkN1BRRjE5Njh1Zi9Xd3RxcjUzb09XL1cvZi9Hdm9VVW1LYWtKVWpuWkxrWThReFlvNXllcloyand4dE03VGpzbFBYcjE4VkVibWFmUDdlL1NNUjJhMjgvSExUUjZTK25ZdHo5T1liVHlXdmlzalY1Rk52dkJrMGRrczBmY0UxOUxuNyt4bWtxN3UzSzhsWFhuamFLMDZBc0MzLzNTSCtyK0ZDd2tsTTQ3SnkxRktTZkl3NlJreTlmVFlxUFZ1N1I0YTJpOEI4MlN2UFBUc2xjdlRrMHZiMjl1ZnV2eGd3T1Z2alBIWGxTUkVSZWZMS1U4RzcyaHBOVTNDOWZmWitQL3VOdVh1N2tyeHg5ZXkrcG5lZ3BYdmgvcStoTHhvVDA3aXNITFdVSkI4TndvZzVhdWtwWkdodnc2NWxkMjlYcmx5ZkVwR3BxU2tSdVhyamxlZnVCL3BjMFJybjN2MTNSRVRrbmZ2M0FuZTJMWnFtNEJyNzNQSDk3Qy9tMGQydnZmNzZ5NHVMTDc3Njl1c3ZMOTdlMWZZT3RIUXYzUDgxWEp6ZXhEUXVLMGN0SmNsSFV6Qml5dWlsWjN2M3lOQTJRNjFsZDI4dm52OElJM0wwNWh0eVpTcDQ2RnFjcVdlZnUxZlpGWkhkeXIzbm5nMGF0eVdhM3VBYSt0ejUvZXczNXRUMS9QYjI5dmIyS3k4OC9meEwyemV1Nm40SFd2NjdRL2xmdzRXRmxaakdaZVdvcFNUNUdHMk1tSHI3YkZoNkNobmF6YkFtNnI3ejJoYytXL2ZsdHhwM0d6T1gzZW5UelE5Y0tHeHJuTWI5aTRadGFlOFpyWS9nelMyMTlObm4rOW5uKzlBMGoxekxPOURTUGUzL2EraGJHSWxwUkZhT2NrcVNqOUhIaURteTZhbklVQis0aGkwQUFBQk1OZXo1c2dBQUFFQy9xR1VCQUFCZ0ttcFpBQUFBbUlwYUZnQUFBS2FpbGgwK0o1L0pPOFB1QklBNlVoS0lMTklUN2FobGg2OTZzRC9zTGdBNFEwb0NrVVY2b2gyMTdJQ1ZNbGFtVk1wWWxtWE41eDBSS1dVV05pcXJDU3RUcWoyYno4Kzd6N210YXMyazlTNEFIVWhKSUxKSVQvZ3o3QlBjanBScUxpa2lJaXRGcFlvcmtzeFZWYlZhekNXVHVlclpzKzRkVlZ4eGI5VGF0ZHdGb0FFcENVUVc2UW0vSm9aUVBvOHVPMXN1SGxoYjZVSkt4SmxKaW9qWWRxTDEyYXd0SXM3aGZtVTFZYTJLaU1oSzFaRnpkMFhzSVhRZmlCdFNFb2dzMGhOK01jY2d1bGFLOVU4Y2hWVDdYUUFEUmtvQ2tVVjZqakpxMllpeXAyYzN0a29pSWxMS1pFb3RkNGZaTTJBa2taSkFaSkdlb3k3Y0tRdzRyN2dpSWlJcnhlYVpQdTZESzhYNnMvWFpQYlc3OVkrWExYY0JCRWRLQXBGRmVzSW5TeW1sc3pRR0FBQUFCb1U1QmdBQUFEQVZ0U3dBQUFCTVJTMExBQUFBVTFITEFnQUF3RlRVc2dBQUFEQVZ0U3dBQUFCTVJTMExBQUFBVS8xL3JGVmNJSkxlWjAwQUFBQUFTVVZPUks1Q1lJST1cIiAvPlxuXG48IS0tIHJuYi1wbG90LWVuZCAtLT5cbiJ9 -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA5kAAAEzCAIAAAA0LFDQAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO3db2wj6X3Y8d9I2r2za5+DQA1q69a5S4YyoApw0xOwOQqX4l64KbWwygIbNTWC0wsDYg5pTW1bGW1ObV50LwG8rZdEEVwov+leHdvRLVBBqMgkBnooruSdDAWtYUENxLFv7T35XFhNmzTO3d5q9fTFkBRFDskR5xlynuH3gwGWfx79+Ig7Pz0/Dp9nxlJKCQAAAGCgsWF3AAAAAOgTtSwAAABMRS0LAAAAU1HLAgAAwFQToUafm5sLNT7QsLe3N+wuGIPERNjIxz6QmBiYmGVouLWsXPz9Oj4+npyc1N6NMMLS1eiEZQy4qCgkJjH1xgwpLPk4SFFIzJDC0tXohI1fhjLHAAAAAKailgUAAICpqGUBAABgqtDny7oevPtzPlt+VOTBu75aXrIu0PmfFjn9ka+WD9RDnzH/msh7/rqq5AIXV/uwyF/5C/tQnfqMeUnkz3/otwOnvns7LvJ//IUdF8vvy4tcFvkLf2Gf+MQP/IdFixe+9fmL/cD3fLX6qYn3LhDT33/gT04vXyDmvQu01Rvzg0cX+Yv6XV+tJsYeXSCmiLztL6zl96+HiN9f/ytzdy4QE52d/mjaZ0v/Q9uJusCO9ITIB/6Gofd8j5j+h6ETucDOaYn8b39h/Y+YIvKjI78tL3Tp1Hf9hb1kXew447G/d2DyE+9cKKxBOC4LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFQTgX766G72xVffFhGR51/avnFVR49CMPbxqnvj9N3EcHsCDIIhiQmMFt2JydAGuALVskfvXPni9vaUiOzevfukph7p1sh29zY5j9gzIjGBUaM3MRnagIZAtezU1drnyt378mzTR8y5ubnG7ePjYxH5aJCXATpw9y608J+YgEbsVN35T8yfHmzHMCJinKHB5hjUtCSm7O3tuTfm5uYmJydF5MG7Ol4HOM/du9BBr8T83lB6hdgiH/3pPWKe/mgY/ULcxThDdaz92r0vz05piBOO5m9e+BYGIyTaiQmMKE2JydAGNGg4Ltv6GTN6yHOMoOgnJjCCNCYmQxvgCn5cloM/QASRmEAEkZiAfsGPy169fl1DPwBoRWICEURiAvpxrQQAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGCqicG8zE/UB9pjvnvyQHtMEXnMUmGEDcO4hNLVMD7fWFYIQUWeCCXqqPg7P3UYRtgfn3xUe8yPjf+V9pg/M/EX2mM+CiF7Llsn2mOKyCPFgYzo+s4H72mP+b8e6U9MEXncMmZHGrdOwwg7FsJAbIUzuE+GETQajNkLAQAAgBbUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADCVhlr26G52cXExe/coeCgAupCYQASRmIB2EwF//uhu9kvyxe3tKS29AaAFiQlEEIkJhCFgLbu7+erbb8uLi68+/9L2jav1R+fm5hotjo+PhakMCIe7d6GN38QENGKn6oXExDDFeO8KVsvuVuSl7e2rcnQ3+6W7R1ev1z5r7u3tuTfm5uYmJydF5M9+GKybgBd370Irn4n5Z8PrIeKIfOzB94h59IOh9RExFuMM1XPAdOrZ557SEgiAPiQmEEEkJqBXsFr2ySv3KrsiIu/clytMAAKigcQEIojEBMIRrJaduv7FK19bXFxcrCTP5v4AGC4SE4ggEhMIR9DzGExdz29f19ITANqQmEAEkZhAGDjBAAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyGE1Oft5qNp93zj2eKbX/TClz1tS9PZ93Svm8U3+midfPA/DWKR8H2YGBvyZgDL8jY9NDzU1DHyKpZTGa7Gy5mkvKSlEppVRxpbKayJTcx1U1l5SNm60Dm5O/uSHJXFWVs3Yps7Cfqyp1R5YXNkUkVVDVXDKZqypXNTczjF8KMFSnfByQUiaxWhncywGm8Tcy1h8rbcnKysbWWQqHPkRSywIiqbVcUvYPGzm6lMvJ6q1zY6mzI0u55Nn92WlbxM6Wi0se8exsNhVaZ4GYa83H8F+wUG1ObgBefIyMIiKlLUkX0ueK2Rbah0hqWUCc/PJqJbl0rfGpUqaz6+cTsXTrYPpa414qvbKx4H5JksqefRitR8szwQDo2/l8rH25mcmXSm5xW/u6MpPPZ/KOeydTqj3sfs3Z+ELTPbZbyliZfH7efbb1+9DafY7LAr31GBldzuFMOiWpjsVsGEMktSxG2saCZVlWYnPp3BckIiKptdx+49sUJ781s9b8MTJVUMWVjYXzU4Qqqwl3VDwYRNeB2PHIx9KtzaWqUip9cPNQRJz8/M2ZqlJKpQ9W92uZKCJNx1ad/M39XFWpai65f+g4+fmFDdnYlDtKlbPVjPvTxdnV5bwjTn5+QYpKKQ7LAr50HxlFRJwdmU6JeBSzIQ6R1LIYaStFpYor7oSBFnZ2fbb2bYqzI+nWo6+SKihVzclqolHO1iYDMVkW6I9HPiZmZDVhzecThXLWFmdnU2oHbBMzHcpPO1suZyU/n1itVA6qdrZcXJGV9awtIs7hvjucLmxI5aDq7GxKbi0lIva1JYpZwIdeI6Ozs7m6YFlulp0vZkMcIqllMfJShaIseC00SaVXNm7mHSndOpg+/9GzlHHb29lycaVyUD33JJNlgf615KOdLStVXdpM+F/5XMpY1rLc8T7WWlteppQqkKZAHzqPjCLi7Mh6PcVUtekY7pkwhkhqWaBjNZtay8nq8rzHtyiN1ZzO4b5XRCef4QQ/QF/O5WMpn3fEzpZVcWX/0LGnZyubOx1Sq3pQqawmMpmtjZViue1wkYiIPT1bP1BUymRK9vRs5Wwly4DPnQCYqsvIWJ9g4LKvLYl3vuoeIic0xgLM4eTnE6sVkQVLiqqQShWKW5ZliSSTyUqlIrK6mauWs3Z2fWV1K122G+0lYW3mquszuXVZtqyKiKwUVaqUsRY2RCRhrdbiJ3PV7PB+O8AsnfJxpVic2Vy2VmuZZosUiltWPc+SORGRVHplYcHaEEkmk8ncnUK2KtaCtSHJZFIqCxlZ2dgQ2ZifqZazdiOwrBRVQSRVXLEWrA23EytFDtUCnuoZ2m1kXFmRjY2KyKZU3c+STn55tVKRhLVZG1fDGyItpZTGcC3m5ub29vZE5A/f/pvag1+yHmmPKSJ//uhD2mNOWKfaY4rIRDjvwIesh9pjjkso78AvPVX7dr+xp8EP9+3a+8HPhhH8b19+THvM7578pfaYYfzl+0gIX3Q9MXZJf9BwfOTj33dvDCQfnfz8stzxPv5qqMb7dvt//l3twT889kB7TBF5X+nfPy0JpSwJaSAOoxQZC2fE/Pz0f3NvxG/EZI4BAAAATMUcAwCAYWpX6kpkplnDBYw8alkAgGFSBaUKw+4EgGhgjgEAAABMRS0LAAAAUzHHAKPrM2O/0sdPffP0Ne09AXD6o+k+fmrsbxxq7wmAdlEeMallMbqsCfZ/ICoeqpM+fkr/GeAAeInyiBndngFhs8bZ/4GoeEAtC0RYlEfM6PYMCJt1if0fiIoHEsrFXwBoEeURM7o9A0IX4W9MgFHzQIVyrSMAekR4xIxuz4CwRXn2DzBq3lfWsLsAoKMoj5ickwsjbGK8nw1ACB4oq4+tPY6Tn7csaz7vtD3WeLTlLgAfIjxiUstihE1M9LMBCMH7aqKPrTWKk18+WFdKrR8snxWqzs7BUlUpVV3avFVquwvAjwiPmAzMGGHjfJYDouKZT37fvVH5/s91b5n82e91aunsbM6myyKSSs/e3HGyWdt9fP+gKmJXD2bTWRHn/F0AfkR4xKSWxQjjICsQGa/f+1T95qUALWdnEiIikpiZbVxFwc6W0xnLWlgpqkL7XQB+RHjEjG6VDYRufKyfrY2P+XkipYxlWZaV4StNwJOeOQbuIVcRqR7snz3o5A/TShVlwU3AlrsAfNA0YoaBWhajS02M97G1RvEzP0+kJGmllFKF1CB/Q8AcD04v97G1BLGvLe1vlUSktLW/dK02wUBKtzYlIZIqFGWr1HYXgA96RsxwRPeIMRC2P9x/2b3x9z79r3q0/Pa/6fSUr/l5UtpaWFhI5qrl+tMAzntf9Zha4IudXRfLsiSZq5ZtcfLzt6bLhdTa0s2EtSoiK0UlIi13AfgQ4fmygXu2e3txcXFx8faujt4Ag/TLz/yWu6mJse5bo+UvP/NbbWGa5uc1HrOz5fSWZVlb6UJKRJzEmlJq/SAxsHMART4xxz5edbdhdwRRoWmOgaQKSinlfmy0s+VCyv1XNX0x0nJ3gCKfmEAnPQdKz609jsesvPqkvMY8PK+Ze90EPS67K8nt7RsBgwBDoca1fP3hHoF15+ddqz/oTshLZ6xMSRVStm2LSKpQPczsODKAY7MRT8zmEnbs49XTdxND7Awi4sGpjuOy0RbxxAS60DNi1mblpUqZ+bxT+6bSqU7fUcoWkVI+n/Bu013AWna38vLLLz/9wiv561NNj87NzTVuHx8fB3sJoKOAe5fnR8aLsq8t7d8qSSpV2tpfWmuen7eWFbtQ3MqUJFU7+OPsbMr0IM4BRGJiCALuVA+0zDGINBITwxRw7/rjb/1r98Znkje7t/xmZb3TU56z8uz6GFk6lGspcfLeM/e6CFbLHj25tL19Y/f2YvZuc3Lu7e25N+bm5iYnJ0VE/l+g1wE81fauvo3ruGamj/l5Tn4+sVoRSeaq5UF8p+kvMe/9YABdwQgJmI8PvCYMxIr/EfPHw+kg4i1ghn7mudoKk55D51lLkW++8dL5J73OmlfjlrLidGvjLdjfjqmpKRG5euOV+7ffPJJznzSByDvVcVxW3Pl59dNU2tlyofavOjsCe+5O+CKfmKfvJhrTDJhgAFf85xhEPjGBLjSNmJ6z8kSkUcp2bdOBlp4dvfmGXCEtYRo1bvWxDbvX/kU6MU/fTbjbsDuCqHhwOtHHNuxe9yHSiQl0omXE9D5rnoi4pazdo00ngf4QHN3Nvvjq2yJPv/BK/mqQQMAwGFWYXgCJCROZWZheAIkJo+kZMb1n5UnzUdmWNn4E+tsxdT2/fT1IAGCY1Fg8a1kSEyaK/XxZEhNG0zVies3KE5FUNuvdxo+Y/+0Auji9FM9aFjDRB48Yj4DoivKIyd8OjC4V3YuYACPnAzWgy10C6EOUR0xqWYyuuM6XBUz0gOOyQIRFecTkbwdG12mEMxMYNQ/jvvYLMFqUR0z+dmB0xX2pCWCSD06ZYwBEV5RHzO7TH0oZaz7vDKgrwICpMauPbdi9FhITsfTwdKyPbdi9bkZiIs6iPGJ2/0OQKqg7smxZlmVlSoPpEDAwpxP9bBFAYiKGPjid6GMbdq+bkZiIsyiPmD0/1NrZslJKqfSWZVkWHzoRI2qsn62dk59vyw33sbNHvdoEQWIibh4+GutjG3avW5CYiC1dI2YYfL2Ok5+3FjaSuaqqfegkPxEHp+NWH1trFCe/fLCulFo/WD7LC2fnYKmqlKoubd4qdWgTGImJOHl4Ot7HNuxeeyAxEUt6Rsxw9Jwva1mWtSx3lFLlrF3/0HlHbpGbMN6ffOWGu6lx6b41Wv7JV260BHF2NmfTKRFJpWc3d87SYv+gKiLVg9l0qmObfpGYiKGTR+N9bMPudTMSE3HWc6D03Aaj11yGlaIqpNoerR5sHEwXxN9lcoGI+oXfuF271SvfzlqK/PffbSlnZ2cSIiKSmJk9rD9mZ8vpjGUtrBRVQcTxbBMEiYnYOYnWQq6+kJiIryhfzKTX346NLa8Z7KmCV74CZjkd72dr4x6BFake7J896OQP00oVZcFdA+LZJgASE7ETh/myJCbiS9OI2XH1yLnHa19y+F1E2eM8BumVllfKszgT8THW13aefW1pf6skIqWt/aVr9SMvpVubkhBJFYqyVerQpn8kJmLo9HSsj23YvW5GYiLWdIyYnVaPOPn5psk5UpK0Ukr5/hDYY77s1sbGgnUmsXpwgV8biDY9nzLt7LosWJZ1c+ZO1hYnP58piaTWljYTlmVZC5JOtbYJjMREDD08Ge9jG3avm5GYiLNv5264W89RstHy2zmfK0xKt1YrldVE/UBsaWth4UJrJnsdl83lqupMNTfj/9cGIk7XGUZSBdX4NGlny4WUnJ2ap/6xsrlNYCQmYuhUWX1s7XH8nCOvQ7OASEzE2ezabXfrOUo2Ws6u3W4Pc7Z6pPFYaUuKbsrs38w74iTWlFLrBwnf+dnjuOyhNH0h6uSXD6aZ9IPYiPKqzK5ITMTQ6SOrj601ip9z5LV9oakJiYk40zRidls9Yl9bmhUR27ZFJFWoLh34PPFPp/MYOPn5xGpFRGR1tenhZM6RVB+p//Uf/+LFf6iHj116T3tMETkJ4dy+Hxl/oD2miLx/eimMsMrrUEdAY9ap9pgi8ktPBfrxgZ3GWR+difkonN//eyd/qT3mXx/T/xniRJT2mGGcSvFEhZI7Y6F0NhBnad298fPf+O3uLb/7q7/ZqaWzszmbLotIKj17c8fJ1kvV/YOqiF09mE1npfaFpiSsVe/zDvTRd70j5n85/pSGTp33xOX3tccUkfce6R+GPjT+UHtMEXkQQldF5CSUEVP/XycR+fx0oB/XMmLY15b2b5UklSpt7S+t1ZMjMeM+KNUDmc7W2zo7m033uupUy9rZsspKKZ9PZHV+bAUiREXq+pe+kJiIrae/+jv1mz2Kg64te58jr/aFZkqc/Pxy3klpSCUSE/GnZ8S0s+tiWZYkc9WyLU5+/tZ0uZDK3pmZt6wFWSmqQuOjYTJXLWtZ+5VqSUtWZSJOonxFvq5ITMSQOrX62NrC+DlHXk3tC01tSEzEWZgrTOpLTM4tN7nADKAeI3PtDF+sykQcGTtflsREHJ1a/Wzn+TlHniRm3DZSPZBpnYdRSUzEWJRHzO6HjOvfxABxFI2DrH0gMRFDqn0hVx+8v8FcW7qZsFZFZKWoROTcF5r6kJiIsyiPmD3mGKzNHDZ/RcI3JoiTKH/K7IrERAxZj6w+tvY4fs6R1/yFpj4kJuIsyiNmjzK7erDKmZ8RV8bOlyUxEUc65hgMF4mJGIvyiNlrjsF+rqpYlol4UhOhnPckfCQmYsjzIKtRSEzEWZRHzB5zDArr09Wm+3xjgjiJ8qfMrkhMxNFpX1uEkJiIsyiPmD2u+5VZWOAbE8SVGld9bO1xPC6GWb9kplW/vHR9hXNGx9hGYiKGdM2XHR4SE3Gma8QMQ4/jslxdGnFm9bW18LpmplOdvuPmTDHnnrm9JGmlbbEJiYkYsk772aKExESsaRkxw9HjMg6p7LnLh9lc0gQx8vY//mfujad+7992b3nv1/95p6c8r5lpp2ola+lQrqVEpLS1sLCQzFU1Xf2dxET8WCeROsjaDxITMRbl+bLmXcQT0OWpjVu1W73m9Jy1FLm3snb+Sa9rZtbUS1knsaZUoZSx5vO6ylkgZiJ2kBXAeWPRrWUjsZIFGApNs388r5kpIm4pa4uI2LYtIqlCdelgxxEA7axH/WwABsPc+bJAnFnjqo+tJYj3NTNFpKmUrXN2NvVeMhOID/PnywJxpmXEFM/V0m2Pd2rTCbUsRtiY6mdrYWfXZcGyrJszd7K2OPn5+qkKzkrZ+lkNluWO5gsNAbHBcVkg0rSMmF6rpUXEyc8vy53aFfs6tOmC+bIYXZam2T+pgmpc1d3Olus3z9aB2Nmyynr8IIAGDrICUXbvhX/h3nj6q7/TveXbv/YvOz3luVpapHRrtVKRhLW6UlSFhHebbqhlMbrGIrwqExg1HGQFouznv/Hb7o2xXpVjo6WIfPdXf/P8k16rpUtbUlQqJU5+fjnv3Om2otobcwwwuqyx0z62YfcaiCfmGABRpmnE7LxaWsS+tjTbq40nHbXs0d3s7V0NcYDBGhtXfWzD7rVvJCaMMiq1LIkJM2kZMb1XSydm3AeleiDTdpcV1R37Fvi327394qtvB44CDN6YpfrYht1rn0hMGGY0zmNAYsJUekZMz9XSdvbOzE3LsqytdCHV2saPoPNld29Xkq+8cG/z3INzc3ON28fHxwFfAugk4N41MWHiUR1fSEwMXsCdaiy26XiGxMQQRWTE9Fwt3bJCurmNr74F6tHu7Uryxg25+7XzD+/t7bk35ubmJicnRUS+F+h1AE+1vatf43Gd/OovMb/7k8H3DHEWMB8lpul4xv+ICYQgxiNmkFr26O7XXn/97ddfFxGRRXlp+8ZVPZ0CBuLSeHQzMwASE0aK+3FZEhNmi/KIGaSWnbqe374uIkd3s5tX8qQlTDMR4U+ZAZCYMJKRC7kugMSE2aI8YnJ+WYyuifGYD56AQeJeywJmi/KIqeOcXFPX+YgJE10ae9THNuxe+0Ziwihjj1QfW3scryu51y8j3fxo0/WmB4rEhJmiPGJyrQSMrktjp31s7XE8xs760GlZljtceo2vAM7oOSeX55XcnZ2DpapSqrq0eatWvpYyidXKwH43wHy6RswwUMtidF0eP+lja43iNXY61ek7SimlVDE3k+gwvgJo8q3/8E/dbexEum/NLVs4O5uz6ZSIpNKzmztnyeZeR6h64D4ppcxWuppLDux3A8ynZ8QMB/NlMbr+83P/3r3xD8q/0b3lf5r/3U5POTubs+myiKTSszd3nGzWFhE7lXKfLR3KtZQ4eY82AJo9+7l/596wArX0upK7nS2nM5a1sFJUBXEr2UJB8jcD9xkYHQM7yNoHalmMrn/45q+7Ny73+n6i0VJE/uDZ3zv/pNfYWeOWsuJ0awNARMTScwRn/6AqYrtXcr9Wf9DJH6aVSmesTEmtHd7c2KhsbLgvKkVVSGl5YSDeLkd4uQhzDDC6Lo2d9LG1hXG/vXTHzvNKh1K7lnTnNgBERNPaL+8ruZdubUpCJFUoylbJzpaVUkpVc8kVClnAL00jZiioZTG6Hhs/6WNrCeI9dopIUynbpQ0Al/VI9bG1RvG82ntqbWkzYVmWtSBpalegL1pGTOm0ErqUaVos3Xa3F+YYYHRd1nJCSzu7LpZlSTJXLdvi5OdvTZcLKWlMMGhvA6Cdx0kJ+uJ1tfeWi72few6AH3pGzNpK6FQpM593yo3FIyVJn+Vt292eqGUxunQtsfQaO0Uklc16twHQbuyhx8liAUTEK8/8R/dG9n/8o+4t83/r652e8lwtLVLaWlhYSOaqteK25W5v1LIYXY9pWmwCIDjrlFoWiK4vfvtX3BuP9TrVSKOliHzp06+df9JrJbSTWFOqUMpY8/lqOWu33PXRN2pZjK7Lg5qWDqAnj8mvACJD04jpdaYR27ZFJFWoHmZ2HMm23u0dlFoWo+txjssCkUEtC0SZlhHTvra0f6skqVRpa39praVKdXY2ZTrb6W431LIYXY+NPxx2FwDUjJ1E90zsAPSMmF6rpdcO5xOrFZFkrlpOiTj5c3f9oJbF6GK+LBAhHJcFIkzXiOmxWjp17jwjXqcd6YFaFqPrMYvjskBUWByXBSIsyiMmtSxG12Nj0c1MYNRYj6J7hUwAUR4xB1TL/tc/TegP2uusEH16b1x/zNNw+hrSUQwVQm/HQvn2MP8LgX58xNd+rXzn18IIe+Vj/1d/0BD2yQ9N6P+7fCmM65VboeTO6an+iz5+4xOBfpzjsg3f+dNPDrsLflnv69+RLKNGTF3X+GimQihDRESSgX46yiMmx2UxuqL8jQkwch5RywLRFeURk1oWo+vxCH9jAowai1oWiLAoj5jUshhdUf6UCYycE+bLAtEV5RFT/0wXwBSPWQ/72NrjOPl5y7Lm8063x0sZy7IsK1MawC8GmOjkpJ8NwEDoGjHDwHFZjK7HLR3HgZz88sG6UqlSZj7vnF062snPL8sdpWr3S5I+O6UegHbMMQAiTM+IGQ5qWYyuZz75fffG/v2p7i1nrxx1esrZ2ZxNl0UklZ69ueNka8Vs6dZqpSIJa3WlqAopKW0tLCwkc9WynytLAyOJg6xAhEX56kLUshhdzju1cwg93usMMI2WImI/+cPzT87OuGecS8zMHtYfK21JUamUOPn55byTupZYU6pQyljzecpZwBvzZYEIezyc8wNqQS2L0aUpM/cPqiK2SPVgX661PGdfW5rdEbFtW0RShephZscRilmgneK4LBBhUa5lWfuF0fWYNdbH1hLEvra0v1USkdLW/tK1epWamHEflOqBTDdKV2dns+kegGas/QIiTMuIKZ1WS59fHt1pRXUn1LIYXY/JeB9baxQ7uy4LlmXdnLmTtcXJz2dKInb2zsxNy7KsrXQhVUtLy1qWO4XUMH5TIPrUw5M+tmH3GhgVekbM2mpptX6w3FypliStlFKqkOrcpgvmGGB0Xbb0XCgwVTg7RYGdLRfqN1T27MHGbQCe1CMKUyC6nvjED9wb77/7dPeWj3/87U5PdVot3bw8ukObbqhlMbq65BuAAfvjD74+7C4A6C3Y0Om1Wto5tzzau01XzDEAAADAAOwfVEXEXS1d11gevXSw43Ro0xW1LAAAAELnvVq6prY8umsbb8wxAAAAQPjs7LpYliXJXLVsi5OfvzVdXjucT6xWRJK5ajnV1sYPalkAAAAMgsdq6UJOoYoAAAiaSURBVFTr8ujmNn4wxwAAAACmopYFAACAqahlAQAAYKpgtezR3ezi4uLiYvbukab+AAiMxAQiiMQEwhHwuOyzX9ze3t5+6ak33iQ1gcggMYEIIjGBUAQ7j8HU1JSIHN2/8rnrU00Pz83NNW4fHx8HegmgM/YubyQmhoGdqgcSE0MV470r6Dm5dm8vvvy6yPNXrl+92nhwb2/PvTE3Nzc5ORnwJYBO2Ls6ITExeOxUPZGYGKIY711B135dvbG9vf3KC/cqu1q6A0AHEhOIIBITCIOW8xhMXXnuypM6AgHQh8QEIojEBDQLNMeg9nWJyPMvbd/Q0x8AQZGYQASRmEBIAtWyV29sk5FA1JCYQASRmEBIuFYCAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBUE4N5mU+tfEd7zNMPPtAeU0TGP/Yx7TGtxy5rjykiMhHOf9/4uBkxReTFUKKOiJ/5+4dhhH2gTvUH/cVPaw/53mX9n+QtpT2kKEt/TBE5+XAIfz2K+kOOpk/9k29rj3n6wQPtMUVk/IkntMe0LoczYo6Hc/Du0iX9MUPq6mooUaOA47IAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFMFrGV3by8uLi4uZu8e6ekOAA1ITCCCSEwgFIFq2aO795Pb29vbLz316uaurh4BCIbEBCKIxARCMhHkh6euX58SEbmafP5r94/k6lTt8bm5uUab4+PjIC8BdMHe5YnExFCwU3VHYmK4Yrx3Baplz1x57tmps3t7e3vujbm5ucnJST0vAbRh7+qBxMQAsVP5RWJiGGK8d+lY+7V7u3Ll+lTvdgAGiMQEIojEBHQLXMvu3l6sJG9c1dEXALqQmEAEkZhACAKu/couvvy6vP7y4uLibaayA9FAYgIRRGICIQm49iu/fV1XTwDoQWICEURiAiHhWgkAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNNDOZl/uj93/fZ8vj4eHJyUnsHwghLV80KixbffPQH/hubsluOcsyQwpKPg/dH73/VZ0t2pBHvanhhzcJxWQAAAJiKWhYAAACmopYFAACAqahlAQAAYKrQ137Nzc2F/RIALorEBCKIxAT6oSLmmWeeMSUsXTUrLIIwZbcc5ZghhSUfo4wdacS7Gl5YszDHAAAAAKaylFLD7gMAAADQD47LAgAAwFTUsgAAADAVtSwAAABMNcRadvf24uLi4mL27tH5B27viogc3c02bvcXuPazbqD6q1w0bGv789H6Dt7WUkOfu7+fwd6Ho7vZeltN70Br97T+ryGIcBIz6lk58ilJPkYdI+YIp2db98jQVsM6gcI7r732llJKvfXlz375LaWUUm+99VZrky98+a22H+zpXJx6jLe+/IXX3ukvbFP7lmiBgp9rGbzPPd7PQF1968uf/Wwtqr53oOW/W/f/GvoUUmKakJUjnZLkY8QxYo5yerZ2jwxtM7TjslPXr18VEbmafP7e/SMR2a28/HLTR6S+nYtz9OYbTyWvisjV5FNvvBk0dks0fcE19Ln7+xmkq7u3K8lXXnjaK06AsC3/3SH+r+FCwklM47Jy1FKSfIw6Rky9fTYqPVu7R4a2i8B82SvPPTslcvTk0vb29ufuvxgwOVvjPHXlSRERefLKU8G72hpNU3C9ffZ+P/uNuXu7krxx9ey+pnegpXvh/q+hLxoT07isHLWUJB8Nwog5aukpZGhvw65ld29XrlyfEpGpqSkRuXrjlefuB/pc0Rrn3v13RETknfv3Ane2LZqm4Br73PH97C/m0d2vvf76y4uLL7769usvL97e1fYOtHQv3P81XJzexDQuK0ctJclHUzBiyuilZ3v3yNA2Q61ld28vnv8II3L05htyZSp46FqcqWefu1fZFZHdyr3nng0atyWa3uAa+tz5/ew35tT1/Pb29vb2Ky88/fxL2zeu6n4HWv67Q/lfw4WFlZjGZeWopST5GG2MmHr7bFh6ChnazbAm6r7z2hc+W/fltxp3GzOX3enTzQ9cKGxrnMb9i4Ztae8ZrY/gzS219Nnn+9nn+9A0j1zLO9DSPe3/a+hbGIlpRFaOckqSj9HHiDmy6anIUB+4hi0AAABMNez5sgAAAEC/qGUBAABgKmpZAAAAmIpaFgAAAKailh0+J5/JO8PuBIA6UhKILNIT7ahlh696sD/sLgA4Q0oCkUV6oh217ICVMlamVMpYlmXN5x0RKWUWNiqrCStTqj2bz8+7z7mtas2k9S4AHUhJILJIT/gz7BPcjpRqLikiIitFpYorksxVVbVazCWTuerZs+4dVVxxb9TatdwFoAEpCUQW6Qm/JoZQPo8uO1suHlhb6UJKxJlJiojYdqL12awtIs7hfmU1Ya2KiMhK1ZFzd0XsIXQfiBtSEogs0hN+MccgulaK9U8chVT7XQADRkoCkUV6jjJq2Yiyp2c3tkoiIlLKZEotd4fZM2AkkZJAZJGeoy7cKQw4r7giIiIrxeaZPu6DK8X6s/XZPbW79Y+XLXcBBEdKApFFesInSymlszQGAAAABoU5BgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU/1/rFVcIJLeZ00AAAAASUVORK5CYII=" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0ExTURGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU1qVXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 501
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTFNREZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TWpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDUwMVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS4yNSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 501
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUkdiSFZqZENBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJHYkhWamRDUlBUMEpmVWsxVFJWeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
nperm <- 5
resultsOutFluct <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSR2JIVmpkQ0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUkdiSFZqZENSUFQwSmZVazFUUlZ4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0Rmx1Y3QgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0Rmx1Y3QkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxuYGBgXG5gYGAifQ== -->
```r
```r
nperm <- 5
resultsOutFluct <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjY1MTk2OVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRVpzZFdOMEpFOVBRbDlOUVVWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0Rmx1Y3QkT09CX01BRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.6651969
resultsOutFluct$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFWnNkV04wSkU5UFFsOU5RVVZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutFluct$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTE1NjIxOVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRVpzZFdOMEpGSnpjWFZoY21Wa1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dEZsdWN0JFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.5156219
resultsOutFluct$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFWnNkV04wSkZKemNYVmhjbVZrWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dEZsdWN0JFJzcXVhcmVkXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEZsdWN0JFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutFluct$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODQwMjQzOFxuIn0= -->
```
[1] 0.8402438
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwUm14MVkzUWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRFWnNkV04wSkU5UFFsOVNUVk5GWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0Rmx1Y3QkT09CX1JNU0VcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
resultsOutFluct <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBSbXgxWTNRZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEVac2RXTjBKRTlQUWw5U1RWTkZYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0Rmx1Y3QkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0Rmx1Y3QgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEZsdWN0JE9PQl9STVNFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutFluct <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjY0OTg0NVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRVpzZFdOMEpFOVBRbDlOUVVWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0Rmx1Y3QkT09CX01BRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.6649845
resultsOutFluct$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFWnNkV04wSkU5UFFsOU5RVVZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutFluct$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTEyMzk5N1xuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRVpzZFdOMEpGSnpjWFZoY21Wa1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dEZsdWN0JFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.5123997
resultsOutFluct$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFWnNkV04wSkZKemNYVmhjbVZrWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dEZsdWN0JFJzcXVhcmVkXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEZsdWN0JFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutFluct$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODM5MDg3OFxuIn0= -->
```
[1] 0.8390878
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMEZpY3lCbWJIVmpkQ2NzSUNkU1RWTkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRFWnNkV04wSkU5UFFsOVNUVk5GWEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkQlluTWdabXgxWTNRbkxDQW5UVUZGSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRVpzZFdOMEpFOVBRbDlOUVVWY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowRmljeUJtYkhWamRDY3NJQ2RTYzNGMVlYSmxaQ2RkSUR3dElISmxjM1ZzZEhOUGRYUkdiSFZqZENSU2MzRjFZWEpsWkZ4dWNtVnpaRUZ1Ym05NVRXNVFaWEp0U1cxd1FVSWtRV0p6Um14MVkzUWdQQzBnY21WemRXeDBjMDkxZEVac2RXTjBKR052Ym1ScGRHbHZibUZzWDNCbGNtMXBiWEJjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEFubm95TW5GaXRBQlsnQWJzIGZsdWN0JywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0Rmx1Y3QkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBmbHVjdCcsICdNQUUnXSA8LSByZXN1bHRzT3V0Rmx1Y3QkT09CX01BRVxucmVzZEFubm95TW5GaXRBQlsnQWJzIGZsdWN0JywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dEZsdWN0JFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiRBYnNGbHVjdCA8LSByZXN1bHRzT3V0Rmx1Y3QkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdAnnoyMnFitAB['Abs fluct', 'RMSE'] <- resultsOutFluct$OOB_RMSE
resdAnnoyMnFitAB['Abs fluct', 'MAE'] <- resultsOutFluct$OOB_MAE
resdAnnoyMnFitAB['Abs fluct', 'Rsquared'] <- resultsOutFluct$Rsquared
resdAnnoyMnPermImpAB$AbsFluct <- resultsOutFluct$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowRmljeUJtYkhWamRDY3NJQ2RTVFZORkoxMGdQQzBnY21WemRXeDBjMDkxZEVac2RXTjBKRTlQUWw5U1RWTkZYRzV5WlhOa1FXNXViM2xOYmtacGRFRkNXeWRCWW5NZ1pteDFZM1FuTENBblRVRkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRFWnNkV04wSkU5UFFsOU5RVVZjYm5KbGMyUkJibTV2ZVUxdVJtbDBRVUpiSjBGaWN5Qm1iSFZqZENjc0lDZFNjM0YxWVhKbFpDZGRJRHd0SUhKbGMzVnNkSE5QZFhSR2JIVmpkQ1JTYzNGMVlYSmxaRnh1Y21WelpFRnVibTk1VFc1UVpYSnRTVzF3UVVJa1FXSnpSbXgxWTNRZ1BDMGdjbVZ6ZFd4MGMwOTFkRVpzZFdOMEpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQmNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBmbHVjdCcsICdSTVNFJ10gPC0gcmVzdWx0c091dEZsdWN0JE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgZmx1Y3QnLCAnTUFFJ10gPC0gcmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBmbHVjdCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkQWJzRmx1Y3QgPC0gcmVzdWx0c091dEZsdWN0JGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBmbHVjdCcsICdSTVNFJ10gPC0gcmVzdWx0c091dEZsdWN0JE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgZmx1Y3QnLCAnTUFFJ10gPC0gcmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBmbHVjdCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkQWJzRmx1Y3QgPC0gcmVzdWx0c091dEZsdWN0JGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdAnnoyMnFitAB['Abs fluct', 'RMSE'] <- resultsOutFluct$OOB_RMSE
resdAnnoyMnFitAB['Abs fluct', 'MAE'] <- resultsOutFluct$OOB_MAE
resdAnnoyMnFitAB['Abs fluct', 'Rsquared'] <- resultsOutFluct$Rsquared
resdAnnoyMnPermImpAB$AbsFluct <- resultsOutFluct$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRVpzZFdOMExtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUkdiSFZqZENSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJHYkhWamRDNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSR2JIVmpkQzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRVpzZFdOMExtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTkYwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9iV1ZoYmlCamFHRnVaMlVnYVc0Z1lXNXViM2xoYm1ObEtWd2lLU0FySUdkbmRHbDBiR1VvWENKR2JIVmpkSFZoZEdsdmJpQnpkSEpsYm1kMGFGd2lLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWENKelpYSnBabHdpS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLeUJqYjI5eVpGOW1iR2x3S0NsY2JuQkNZWEpjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRGbHVjdC5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0Rmx1Y3QkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0Rmx1Y3QuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0Rmx1Y3QuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRGbHVjdC5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzRdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyBnZ3RpdGxlKFxcRmx1Y3R1YXRpb24gc3RyZW5ndGhcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutFluct.conimp <- arrange(resultsOutFluct$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutFluct.conimp) + geom_col(aes(x=factor(rownames(resultsOutFluct.conimp), levels=rownames(resultsOutFluct.conimp)), y=CondPermImp), fill=mycolours[4], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\Fluctuation strength\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRFWnNkV04wTG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSR2JIVmpkQ1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUkdiSFZqZEM1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJHYkhWamRDNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRFWnNkV04wTG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJORjBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb2JXVmhiaUJqYUdGdVoyVWdhVzRnWVc1dWIzbGhibU5sS1Z4Y0tTQXJJR2RuZEdsMGJHVW9YRnhHYkhWamRIVmhkR2x2YmlCemRISmxibWQwYUZ4Y0tTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYRnh6WlhKcFpseGNLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1NrZ0t5QmpiMjl5WkY5bWJHbHdLQ2xjYm5CQ1lYSmNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0Rmx1Y3QuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dEZsdWN0JGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEZsdWN0LmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dEZsdWN0LmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0Rmx1Y3QuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s0XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgZ2d0aXRsZShcXEZsdWN0dWF0aW9uIHN0cmVuZ3RoXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEZsdWN0LmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRGbHVjdCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRGbHVjdC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRGbHVjdC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEZsdWN0LmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNF0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxGbHVjdHVhdGlvbiBzdHJlbmd0aFxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuYGBgIn0= -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutFluct.conimp <- arrange(resultsOutFluct$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutFluct.conimp) + geom_col(aes(x=factor(rownames(resultsOutFluct.conimp), levels=rownames(resultsOutFluct.conimp)), y=CondPermImp), fill=mycolours[4], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\Fluctuation strength\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qSXVPU3dpZDJsa2RHZ2lPamdzSW5OcGVtVmZZbVZvWVhacGIzSWlPakVzSW1OdmJtUnBkR2x2Ym5NaU9sdGRmUT09IC0tPlxuXG48aW1nIHNyYz1cXGRhdGE6aW1hZ2UvcG5nO2Jhc2U2NFxuIn0= -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjIuOSwid2lkdGgiOjgsInNpemVfYmVoYXZpb3IiOjEsImNvbmRpdGlvbnMiOltdfQ== -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFEZUNBTUFBQUNnOUR5SkFBQUIxRkJNVkVVQUFBQUFBRG9BQUdZQU9qb0FPcEFBWnJZek16TTZBQUE2QURvNkFHWTZPZ0E2T2pvNk9wQTZaclk2a0xZNmtOdEtiNWhOVFUxTlRXNU5UWTVOYm01TmJvNU5icXROam81TmpzaG1BQUJtQURwbUFHWm1PcEJtWmdCbVpyWm1rSkJta0xabWtOdG10clptdHR0bXR2OXVUVTF1VFc1dVRZNXViazF1Ym01dWJxdHVqbzV1anNodXE2dHVxOGh1cStTT1RVMk9UVzZPVFk2T2JrMk9ibzZPYnF1T2prMk9qbzZPanNpT3E2dU9xOGlPcStTT3lNaU95T1NPeVArUU9nQ1FPanFRT21hUVpnQ1FaanFRWnBDUWtEcVFrR2FRa0pDUWtMYVFrTnVRdHBDUXR2K1EyN2FRMjl1UTIvK3JiazJyYm02cmJvNnJqazJyam82cmpxdXJxMjZycTZ1cnE4aXJxK1NyeU1pcnlQK3I1TWlyNU9TcjVQKzJaZ0MyWmpxMlptYTJrRHEya0pDMnRtYTIyNUMyLzdhMi85dTIvLy9JamszSWptN0lqbzdJcTI3SXE0N0lxNnZJeUk3SXlLdkl5TWpJeU9USXlQL0k1UC9JLzhqSS8rVEkvLy9ia0RyYmtHYmJrSkRidG1iYjI1RGIyN2JiLzdiYi85dmIvLy9rcTI3a3E0N2txNnZreUk3a3lLdmt5TWprNUt2azVNamsvOGprLytUay8vL3k4dkwzOS9mL3RtYi90cEQveUk3L3lLdi95TWovMjVELzI3Yi81S3YvNU1qLzVPVC8vN2IvLzhqLy85di8vK1QvLy85MzdIRllBQUFBQ1hCSVdYTUFBQXV3QUFBTHNBRWFPQkJ5QUFBU0pFbEVRVlI0bk8yZGlYOGJ4UlhIMThhcVNSc3FOZ2JYSmpSdGl0d2ptTXJsS0NrVUtkQ21KWVhZS1ZmRElSWFNObmJjaTFNS0ZHb0ZHZ2dtUWtFVjFUSC9iTitibVYydHRHdnJXczArajkvdkE5bmRPZDQrN1g0OU03djdkdFlSTE5iVTVTVHRBT3N3aURGakdSQmp4aklneG94bFFJd1p5NEFZTTVZQkpZdFpPKzlJWlpyM3JBOVJ2TG1jR1h0WGs5UmxUYXFrVzdQeTNJNFE5ZS9uWi9veHEvWlRFVW9ZSWJ1YUFhQVpzK1JFQWpObzFzNzBZMWJzcHlLVU1FSTJaTGJ6akZseW9vRFo2NXVBMmJQTE0rdjErZGxOMlpHbVJObHhicHRYS1g3QzNFZlF0VGFYblJuODk3NjhrMVltaXM3c2J6Y3grOS81SHl6UDdkVG5vYlNYRHh0UVdXVjJhN0JNSzNITUFBTms2OHc2RHMvcVJ6YXgxYWs2bVE5aG9WT3FjenZWMlUxSWFFUFhpbW5sMmN0NVlBMFMwVUw5cEdnZVY5bG9xWG52VGh1Smt2azRJQ3VtQkJyRHlsWFZkTEtNSzNITXZOYk13NngrVlBXaVhjeGdxMzc3dWs1QVVnQWUzRkpaMEdDbGRYblpMeUszVGtybll4R280V1hxR2l6am9vQ1pFQUhNZEl2VGcxa1oyaWFKeXBsMUxOL09wNFBRUU1lWURtQ1c5cXJycHJHY0VveFowcUtIbWVvS0E1aEJjNlZiTXloVmxhTzNUQzgwME1sMk1Vc0owVHpoNVFPQ2trdkdMRm5Sd1F3NWdOSDg1VHh3VW4vR0l3TlN6cVpFRjdQbWNzcHJwcnhPOHlSWTZXSlduOCtJcStzNkh3WnEwanBqbHJDU3Z6MHI3NWdWWVFHanF1OEJCM0FwaVMxUUVmNVJLZEFpM1FZWG5KRHdGSXp4WVFzYU5Dai83TElqRWYzdnIvQkNWTWhzdkRkV2RhQVAxZm4vbHJkL015clRyOEV5cnFSYnMrbXFlUTcrcWQrUnRCc3N1ekVyNHZYQWdQdTZMQU95R3pQc2dQa2hFd0haalJtTGlCZ3psZ0V4Wml3RFlzeFlCc1NZc1F3b1ljeSt3YkpkSkRCTGR2ZXNxWXN4WXhrUVk4WXlJTXFZM1l4ekg0ZkVHRkhYR0RPN2pCRjFqVEptZDdJT252WTd3NHdaS3lidGQ0Ykh4S3kxNWk3dVZ0eUZrbWo4c0lDYmkzOTdGWk13RDFNNkc2N3JIbnQxN1Joa2RqYWdXTGNXL3V1Nk9jYk1OazBCTTlGNkJKRDZHUEQ1NnVkWklTbzVZRXNtQ1oyQ0c3Y0tyUXRMUW56OWNLbW5sbWlkRmpWRkpHTm1rYWFLMlp0SWpLVEd3MHltd01hdGdtaTk5R0JKWEgrK1ZIR1B2YmF4K0Z5Mmk5bVNVSThBYnQ2VWc4MmJ2Y3VranhockRFV2NSMWpHZzFucjdSYVFKR3B1MXNOTXBVRFBDQjFtNitKV3J2UFdOaGJJdFI1NTJXdk4xdHdsYllaYk0zc1VmU3Bqd0F6NHFYbmpyRXBPWTZaU2RHdDJzWEhxczNlMlN3QldUdFN5ZnFmWk9MWExtTm1tYVdEV3VWQ1EwRnpmeFE2d2hoRGhadU54blNJM1Zsc1hPeGNlMjkwdWJaZHF1Y2JxbFlJcUFwMW1KY3VZMmFacFlDWWFLOUFyd2dWbFRteTVpLy81c2J2d0xsNUF3aEJNcHR6OUVHeTR2NFJHckphRkM5SVhYVWg1WXVPdUZYWDk2V1k3RzNnTnlwalpwS2xnRm8vNEtRQlJhNGZpS1FETEdqRm1MQU5pekZnR3hKaXhESWd5WmpSSHM3U05FWFdOTWJQTEdGSFhHRE83akJGMWpUSm1TZDlwcEs3SWc4YVlEWEFpcEtSUEkzV1pQVWtUaVRFN3VESjdraVpTakpqSkNGcWxHajRUbDdGQnZsckJzTnBJSjBKSytqUlNWeHduelpCaXhFekd5MHAxTnJKOWVhM1RvaWVzTnNxSmtKSStqZFFWeDBrenBCZ3hrL0d5bFVmZFI5MWM3ZjZWaFJKdzFWbzdWbWo4WW0yaFZIT3p2V0cxK0g3QWxudi9LeHc5Tzc0aW9sVFZTbFQ2V01zdllySXpZZlJzVURKZXRyVzJWRnRxUEE0azFiS1Z4ZDFyaGRwUE54WktWd3FmclBhRzFVSkdGbnJXaW5ybmhGdXpzUlI1MEd5LzBsVHhzclZjTFF1WVpVVmp0ZlBDN3BickFuUUFWY1BIVEJYRGpDc0Z4bXdpUlI0MDJ6SHpJbWcxWnBVc1lJWnZvd1F4ODhOcU1hUENyZGxraWp4b2RtUFc4ZUpsRjU5ejNZVi9RR01GN1ZZT1h5dlpXbmgzYmFtMTlrQXdySGJ4Qm1UZ201cjdZc2F5UnNuZU45dS9OV05abzBReGE2eW9OOUVaTTl0RitTa0F5eHBSeG96bWFKYTJNYUt1TVdaMkdTUHFHbU5tbHpHaXJqRm1kaGtqNmhwbHpGaldpREptc2Q0ZFp5VXB4b3hsUUxGakZqRlI2R3R5YnRCUU1HTy9FeUV4WnRZby90WnNqNGxDYi9WaDFqcmQ3MFJJc1dKR2MyZ2N1ekdpcmswUnM1NkpRb0d5cldPRnJjVWJnVURIeHNwMzNwNUdXT01CQ3ZmRDVjMzQvQ0w3TzZlSFdYQ2lVRFUzS01JV0RIUzhWdmhLdlMzQXJSbFJhOVJiczlCRW9kaG5YaW44dlNmUTBaL0RuVEVqYW8wd1pudE5GTG9xR2o5NVJRUURIVDh1d1Q5ZEowS0tGVE5Xa3ByQ0RZM1FSS0h2NFpVbXRtemJjbTV0TDlBeCsra2FoelVlRWxHK2I4YXlSb3daeTRBb1kwWnpORXZiR0ZIWEdETzdqQkYxalRHenl4aFIxeGd6dTR3UmRZMHlaaXhyeEppeERJZ3labnhQM3hveFppd0RPalNZMFJ3YXgyNk1xR3NoektwT3VqNmZ4cldJT05oWGNiNlZ4UnQ2UWp4UDhpRW1mcE8xczdINHVZeTZxT0JIREwyUVdUbGxYamNjUTA4UGloTzE2RWVhakJsVmExUERySG1pZVU0MGoyL2llbFFjN0duUmVlR3ZpMTNNSUtIeG81Sm8vUXhETGtUakZkSDVmUW1qTWE0RVFtWmJGNWFFK1BwaGZ5YmE3cmZPdFNIR2pLaTFxV0hXZmhvd3E4N3Q0SHBVSE96cHpoOEF0QnRyMlpwc3dMSTFOeXUvOFZ2SllnRFE5VjJKV1VWSC85d3FRUHYyWExiMTBvTWxjZjM1VWdVbm5zSnRIelA4MlBtZzZObHd1a1ZScFljMmVyYnFPTTZzYk16MmlJTmRBc3gyYTFsb3IzRGFxRTlXeFJaMmZSaGFsbTFkRkJLemF3WDh5TFFPbVgxWnRDNXU1VHB2YmFPSm5OeFdtS0VwSmI0RXNGM1Jsd0R2ZHp2TnZqaFkxWm9wekJBYzZCOTFheVphRC82eklQcGFNemwzZSt0aTQ5Um43MnlYY1BnbXQzVnIxamkxRzNRaUpNYk1HdlZnMWx4MmxGUnpGaFVIaSs4akFXYU54OFhXd29zNWlSbGVJT0Q0VEd4aHQ5b3pObXVzTmxaaDdXTG53bU83MjZYdFVpMG50K1gwb0dDcWtnMDZFUkpqWm8xNlc3TkxPMnFwV3JOd0hPeTdNQm9UZXJaUE5lVm5heTJyaWduOTBZa3R2SXpjMGxlYTdoTWJUMnpjdGVMbWFsbTRaSDNSZGU5K1NHN0ROU2hjdEVJWjlmWW1Qd1d3WFpUdm05RzhhS0p0aktockljeXc0MHpGWlgwa0owS2llY1JvR3lQcVd1aUdSajROVjV2cHVNeVA0a1JJTkk4WWJXTkVYUXZkbnIwWGgyZDZiR1pLakJsUmE5UHJOSyt1d3ordms4Q01aWTJpYjJqUTZEUloxaWp5aGtiOVpCSk9zT3hWcU5Nc2RtL1BHbmFDWmEvQ0VScnRwMFh6WEJKT2hCVHJBd0NhUStQWWpSRjFMWVRaT1ZITnRKOGswWm94WmtsYm05NlZabmwyczZqdXo0NFYxZ2dWNU9Nb05UL0xoR0dOY2YxSUZNM0RIN3N4b3E0TmpOQVlNYXhSUGpVWGIrcmFFNFkxeHZValVUUVBmK3pHaUxyV2UwUGorS2E2cHpIYmk5a0lZWTBxQm1nTm02dkp3eHJqRFBmalpaTExVR3QycWZzVVlKeXdSaG5SK0w5ZFlES0dzTWJvWk5iQlUrZ1M0SGgzOUQ5T1dLTnN6V0Q3V2lHR3NNWnAvR0JXRWdxMVp2STUwL3RqaHpXcXNSa0dOOFlRMWpqRjM4MHlxbEJyRmhpYmpSbldtQlVWVlczU3NFYWFvMW5heG9pNnR0L1l6SmdZTTZMV3BudERnOGd6VFpwSGpMWXhvcTVSZnFaSjg0alJOa2JVTmNyUE5GbldpUEl6VFpZMTJ1ZVpwbWtuV1BhSzhndDBMR3RFR1RPYW8xbmF4b2k2MXZ2by9FUmNac2R4SWlTYVI0eTJNYUt1OWI5eVl2aFdSdENKa0dnZU1kckdpTHJXaTlrNStiQ3A5NzJtWWFNYmRjYmk1eHZ1WFNzNmtQRzlxTGtiWVEyZnM1ZTZWUmt6b3RhbStoU2czTnVtRFJuZDZIL1ZIUDczQXhtajVtNDhMVlBEVHJEc1ZYOXJKdHI1L29jQVEwWTNlbDgxbDVqcFFNYkl1UnRQNi9nTitjbnovY0lhZVduTk12dzZjRWIwYWNqb1JpOER1dE5kUDVBeGF1NUd1VmFSa3lGZmtlMGJ0MmJXcXo5SU82TElrTkdOUW4vVlhMWm1PcEF4Y3U1R2FNMDJjaXBtN1JwamRqZzB4SDJ6SWFNYi9hK2FTOHhVSUdQazNJMVFkMnNvekdpT1pta2JJK3JhTUxkbmg0dHV2S1V5MUpXbURtUXNSYzdkaU4wcVZKYWZQQTg0TWIwZmVZaU1FWFdObndMWVpZeW9hNHlaWGNhSXVrWVpNNVkxWXN4WUJzU1lzUXlJTVdNWkVHWE1hSTVtYVJzajZocGpacGN4b3E0eFpuWVpJK29hWTJhWE1hS3VVY2FNWlkwR1l6Wko5R3dwYW9yUW9hTm5XZFpvaU5ac2d1alp5Q2xDT1hyMjhHa1V6RWFQbm8yY0lwU2pady9mY2dUTXhvaWVqWndpZE9qb1dacWpXZHJHaUxvMkxHYmpSYzlHVGhFNmRQUXN6U05HMnhoUjE2WWJQUnM1UlNoSHowN1JHRkhYcGg0OUd6RkZLRWZQVHM4WVVkZjR2aG5MZ0JnemxnRXhaaXdEWXN4WUJrUVpNNXFqV2RyR2lMckdtTmxsaktocmpKbGR4b2k2eHBqWlpZeW9hNFF4NHkrRDJTUEdqR1ZBKzJNMlpFaWppc3Y0ZE1WMW82Y0JIZTliNTR5WlBSclFtZzBaMGlqVFBzbmhRL2FvYVVESCs5WTVZMmFQaHNWcy81QkdtYVkrcUJrMURlaDQzenFYbnpxUExienVaa3gyNVBLTE9NUCtic1lhUmtqemR3NkoyWUNRUnZYZGNsa2thaHJROGI1MWZpZk5peWJheG9pNk5neG1nME1hVld1MmhTV2lwZ0VkNzF2bmpGbmkxa3hoTm1SSW8weURBZ2hneERTZzQzM3JuREZMM0pxeCsyWkRoVFErZ0dueTBqSXJJcWNCSGU5YjV5eHJSUGkrR2NzZU1XWXNBMkxNV0FaRUdUT2FvMW5heG9pNnhwalpaWXlvYTR5WlhjYUl1c2FZMldXTXFHdVVNV05aSThLWWNZU0dQV0xNV0FZVWQxaGo1UHlNSE5aNDJCVjNXR1BrL0l4amhqWFNITTNTTmtiVXRiakRHaVBuWitTd1JnNXJSTVVYMWhnNVB5T0hOUm96UnRTMXVNTWFJK2RuNUxCR1k4YUl1aFozV0dQay9JeGpoalhHOVJ0WmlXc0tZWTBSOHpPT0ZkYkltTmtqd3ZmTldQYUlNV01aRUdYTWFJNW1hUnNqNmhwalpwY3hvcTR4Wm5ZWkkrb2FZMmFYTWFLdTBjQ01aYnNvWUxhSDZGNkEwdldNc211TTJZaWk2eGxsMTRoaXhySk1qQm5MZ0JnemxnRXhaaXdESW9lWmZLUEFYMUNTZHFubUxwUUdGVFVzNzIwTGdnZE5peHBtT21wTkx5akpjK25OcEIySkVNNWdTUEtnZWFLR21ZN0I5VUp4Q1VtN0pOOTJvQ2FGR2NHRDVva2FadktOQW45QlNkb2wrYlpEMHI3MFMyRkc4S0I1b29ZWitkWk15Tk5KVE55YWpTajZZek45VGttSngyYWpTcjVSa0pNTFlsS2VWZFFMOWJTRXMwdlRQR2hhNURCajJTakdqR1ZBakJuTGdCZ3psZ0V4Wml3RFlzeFlCblR3TVNzN1R2cnFlbDlpKzh4Njh4NlpxQmM5aWtyekUrdEhkL1lxTWxqaGFtTWFrcDdjTWJqSWtjMlJ2QmxKZjV5b2RvOE9QR2JGdVIxUm51ay9JRVdWRXNLdkp6ZFN6ZVc1blFGRit1VHZaSSs5RFZVM1FvcjNmZFhPeis2SDJZU2FrTktnRGpwbTlkdnhVRlF6ZmNuUW11RmlqNzlIbmJ1SFJYbDI5eTNTSzM4blkvejE3MU9sL2VRUUJEV1BUeEV6MGJ4M0lPaEQ2cUJqVnA3VFJ3TDdUampxZjNJZ29lbzRNOWhwd2pLRGY1S0J2T2F5TTdzcEdXcm5uUlMwQm4vQmhPYnhzelBQM3JNdU0rdEhuM0pTRXJPaUk0MWpSYWd2TjdIZzc0Nis0Y3g5NE14OXREeTdDWTJlM0FsV2pOaWJrRTFDWFZmWThTenBFbWRuZnVQVjFjWExzT3J0dHBwQzVIVk50Zk5BU2ZtTHZhMUFCdndxV0MvNisrNzYwUzNqNzh4SnExODg3eDJGZmllSy9YKys0OG9XektBTnFzL2ZCK1RnYVQyeUNZMGNFUEFoc2pLekhzd3Jwd0VnMVZSaFMvQ2xURGlmaDlNT0JXVm1mVDdUem1kZ3BRcHBhWVdqZ0VUYy9EWVVoRzA0T3lrYy9SMUhZSEVuc21MRTNnVDJ2dWU5Q3VlMUphOUVXbmgxejZ2aVFGWXhyWGNMNmFLN0s1a1lLQ2traGtYTTFUOUtaNVJUWGMvVnZuWHhiaG1kSnIzSXdIL1lkZS9oUkRrZDAybXlCVE04SUhEVTVZbkhFeVJaUXB6VXRwK0hweTZqZTBRNGtKZDJaQUlTNTJWaXB5bXhnYjkyd0VKM1RPVzAzTVIxWlFoUTFDdTZhY3hFN1UxZGpBUXFTRXRlQ2VIWFZVVms0K0h0Rmt2NU5WVml0NlRRTFUzZ1I2blZhaXJndWI5di9MWGRNdjVSd2lNQUI3QjVZaThuR0RNdE5UYXJQMU9XQjJVUHpBSjVWZmdEOXpDckgvbnpNMEltNkZNdTE3dVk2UjdEZzBPZjFpak1mS3Q5ZXhQUm1Ia2xoRjgzZUliMWJuc3h3OFJBU2RHRFdTQkR0cjJlaVNCbWdUTDZLS1YwaTVtNXVxY1RqSmtudk5LRW9Tcmc1aC9BS295KzhyT1hmY3lDZVVYZEkvcDFaWUkrNVhJZE1JT3VRellNQXYvTzVRV1g2a3lhSi9veGF5N2pmb1J2dFc5dm9nOHpaY2t2b1VhQUdaL1lLcllzM201eGJPYlhsSW1Ca3BpUGhRTS9TcHRJcTZyU1JOQ1BRQm4xci9JQ0NqdUJvOURuQkkvTmZCVnh6Q3ViK1F5c3A4cHcxQ0RKeWFnVnVRamtmZURNZkhQMnJCNUUxMC9pVVlhRTc4cENLdk55SGt1cjJ2SjJBUXlUSGJ5OVVkUmphekFFaXpmazJzeTM4RW9oSTQxc2h2ZTJnMzdOUGVWVitFaGIwaVhreUQ2akhkQ096NndMdlZ1ODBnenVDcTh4dWlYbEQ1OVpEL3dvbGZHdmVieTgwQ2JVdmxYeFFHV2RKcjBRaXFWb0ovaEswNkRpdTJrd21xWDliNzN1b1MrQjRrc2p3ZEgrOVY3RlI3aXBNMGlNMlVBbGhka3dUd0g2aFdRMHo0MVVKWFRQMFJjL0JUQW9HRlRQeGROM3hHZHBiMVhWRUdKb0ZlVWw2ZFRGbUxFTWlERmpHUkJqeGpJZ3hveGxRSXdaeTREK0Q3bk5QWk9Mb2NFK0FBQUFBRWxGVGtTdVFtQ0NcIiAvPlxuXG48IS0tIHJuYi1wbG90LWVuZCAtLT5cbiJ9 -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAADeCAMAAACg9DyJAAAB1FBMVEUAAAAAADoAAGYAOjoAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtKb5hNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjshmAABmADpmAGZmOpBmZgBmZrZmkJBmkLZmkNtmtrZmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZjqQZpCQkDqQkGaQkJCQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb/9vb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/tmb/tpD/yI7/yKv/yMj/25D/27b/5Kv/5Mj/5OT//7b//8j//9v//+T///937HFYAAAACXBIWXMAAAuwAAALsAEaOBByAAASJElEQVR4nO2diX8bxRXH18aqSRsqNgbXJjRtitwjmMrlKCkUKdCmJYXYKVfDIRXSNnbci1MKFGoFGggmQkEV1TH/bN+bmV2ttGvrWs0+j9/vA9ndOd4+7X49M7v7dtYRLNbU5STtAOswiDFjGRBjxjIgxoxlQIwZy4AYM5YBJYtZO+9IZZr3rA9RvLmcGXtXk9RlTaqkW7Py3I4Q9e/nZ/oxq/ZTEUoYIbuaAaAZs+REAjNo1s70Y1bspyKUMEI2ZLbzjFlyooDZ65uA2bPLM+v1+dlN2ZGmRNlxbptXKX7C3EfQtTaXnRn89768k1Ymis7sbzcx+9/5HyzP7dTnobSXDxtQWWV2a7BMK3HMAANk68w6Ds/qRzax1ak6mQ9hoVOqczvV2U1IaEPXimnl2ct5YA0S0UL9pGgeV9loqXnvThuJkvk4ICumBBrDylXVdLKMK3HMvNbMw6x+VPWiXcxgq377uk5AUgAe3FJZ0GCldXnZLyK3TkrnYxGo4WXqGizjooCZEAHMdIvTg1kZ2iaJypl1LN/Op4PQQMeYDmCW9qrrprGcEoxZ0qKHmeoKA5hBc6VbMyhVlaO3TC800Ml2MUsJ0Tzh5QOCkkvGLFnRwQw5gNH85TxwUn/GIwNSzqZEF7PmcsprprxO8yRY6WJWn8+Iq+s6HwZq0jpjlrCSvz0r75gVYQGjqu8BB3ApiS1QEf5RKdAi3QYXnJDwFIzxYQsaNCj/7LIjEf3vr/BCVMhsvDdWdaAP1fn/lrd/MyrTr8EyrqRbs+mqeQ7+qd+RtBssuzEr4vXAgPu6LAOyGzPsgPkhEwHZjRmLiBgzlgExZiwDYsxYBsSYsQwoYcy+wbJdJDBLdvesqYsxYxkQY8YyIMqY3YxzH4fEGFHXGDO7jBF1jTJmd7IOnvY7w4wZKybtd4bHxKy15i7uVtyFkmj8sICbi397FZMwD1M6G67rHnt17RhkdjagWLcW/uu6OcbMNk0BM9F6BJD6GPD56udZISo5YEsmCZ2CG7cKrQtLQnz9cKmnlmidFjVFJGNmkaaK2ZtIjKTGw0ymwMatgmi99GBJXH++VHGPvbax+Fy2i9mSUI8Abt6Ug82bvcukjxhrDEWcR1jGg1nr7RaQJGpu1sNMpUDPCB1m6+JWrvPWNhbItR552WvN1twlbYZbM3sUfSpjwAz4qXnjrEpOY6ZSdGt2sXHqs3e2SwBWTtSyfqfZOLXLmNmmaWDWuVCQ0FzfxQ6whhDhZuNxnSI3VlsXOxce290ubZdqucbqlYIqAp1mJcuY2aZpYCYaK9ArwgVlTmy5i//5sbvwLl5AwhBMptz9EGy4v4RGrJaFC9IXXUh5YuOuFXX96WY7G3gNypjZpKlgFo/4KQBRa4fiKQDLGjFmLANizFgGxJixDIgyZjRHs7SNEXWNMbPLGFHXGDO7jBF1jTJmSd9ppK7Ig8aYDXAipKRPI3WZPUkTiTE7uDJ7kiZSjJjJCFqlGj4Tl7FBvlrBsNpIJ0JK+jRSVxwnzZBixEzGy0p1NrJ9ea3ToiesNsqJkJI+jdQVx0kzpBgxk/GylUfdR91c7f6VhRJw1Vo7Vmj8Ym2hVHOzvWG1+H7Alnv/Kxw9O74iolTVSlT6WMsvYrIzYfRsUDJetrW2VFtqPA4k1bKVxd1rhdpPNxZKVwqfrPaG1UJGFnrWinrnhFuzsRR50Gy/0lTxsrVcLQuYZUVjtfPC7pbrAnQAVcPHTBXDjCsFxmwiRR402zHzImg1ZpUsYIZvowQx88NqMaPCrdlkijxodmPW8eJlF59z3YV/QGMF7VYOXyvZWnh3bam19kAwrHbxBmTgm5r7YsayRsneN9u/NWNZo0Qxa6yoN9EZM9tF+SkAyxpRxozmaJa2MaKuMWZ2GSPqGmNmlzGirjFmdhkj6hplzFjWiDJmsd4dZyUpxoxlQLFjFjFR6GtybtBQMGO/EyExZtYo/tZsj4lCb/Vh1jrd70RIsWJGc2gcuzGirk0Rs56JQoGyrWOFrcUbgUDHxsp33p5GWOMBCvfD5c34/CL7O6eHWXCiUDU3KMIWDHS8VvhKvS3ArRlRa9Rbs9BEodhnXin8vSfQ0Z/DnTEjao0wZntNFLoqGj95RQQDHT8uwT9dJ0KKFTNWkprCDY3QRKHv4ZUmtmzbcm5tL9Ax++kahzUeElG+b8ayRowZy4AoY0ZzNEvbGFHXGDO7jBF1jTGzyxhR1xgzu4wRdY0yZixrxJixDIgyZnxP3xoxZiwDOjSY0Rwax26MqGshzKpOuj6fxrWIONhXcb6VxRt6QjxP8iEmfpO1s7H4uYy6qOBHDL2QWTllXjccQ08PihO16EeajBlVa1PDrHmieU40j2/ielQc7GnReeGvi13MIKHxo5Jo/QxDLkTjFdH5fQmjMa4EQmZbF5aE+Pphfyba7rfOtSHGjKi1qWHWfhowq87t4HpUHOzpzh8AtBtr2ZpswLI1Nyu/8VvJYgDQ9V2JWUVH/9wqQPv2XLb10oMlcf35UgUnnsJtHzP82Pmg6NlwukVRpYc2erbqOM6sbMz2iINdAsx2a1lor3DaqE9WxRZ2fRhalm1dFBKzawX8yLQOmX1ZtC5u5TpvbaOJnNxWmKEpJb4EsF3RlwDvdzvNvjhY1ZopzBAc6B91ayZaD/6zIPpaMzl3e+ti49Rn72yXcPgmt3Vr1ji1G3QiJMbMGvVg1lx2lFRzFhUHi+8jAWaNx8XWwos5iRleIOD4TGxht9ozNmusNlZh7WLnwmO726XtUi0nt+X0oGCqkg06ERJjZo16W7NLO2qpWrNwHOy7MBoTerZPNeVnay2rign90YktvIzc0lea7hMbT2zcteLmalm4ZH3Rde9+SG7DNShctEIZ9fYmPwWwXZTvm9G8aKJtjKhrIcyw40zFZX0kJ0KiecRoGyPqWuiGRj4NV5vpuMyP4kRINI8YbWNEXQvdnr0Xh2d6bGZKjBlRa9PrNK+uwz+vk8CMZY2ib2jQ6DRZ1ijyhkb9ZBJOsOxVqNMsdm/PGnaCZa/CERrtp0XzXBJOhBTrAwCaQ+PYjRF1LYTZOVHNtJ8k0ZoxZklbm96VZnl2s6juz44V1ggV5OMoNT/LhGGNcf1IFM3DH7sxoq4NjNAYMaxRPjUXb+raE4Y1xvUjUTQPf+zGiLrWe0Pj+Ka6pzHbi9kIYY0qBmgNm6vJwxrjDPfjZZLLUGt2qfsUYJywRhnR+L9dYDKGsMboZNbBU+gS4Hh39D9OWKNszWD7WiGGsMZp/GBWEgq1ZvI50/tjhzWqsRkGN8YQ1jjF380yqlBrFhibjRnWmBUVVW3SsEaao1naxoi6tt/YzJgYM6LWpntDg8gzTZpHjLYxoq5RfqZJ84jRNkbUNcrPNFnWiPIzTZY12ueZpmknWPaK8gt0LGtEGTOao1naxoi61vvo/ERcZsdxIiSaR4y2MaKu9b9yYvhWRtCJkGgeMdrGiLrWi9k5+bCp972mYaMbdcbi5xvuXSs6kPG9qLkbYQ2fs5e6VRkzotam+hSg3NumDRnd6H/VHP73Axmj5m48LVPDTrDsVX9rJtr5/ocAQ0Y3el81l5jpQMbIuRtP6/gN+cnz/cIaeWnNMvw6cEb0acjoRi8DutNdP5Axau5GuVaRkyFfke0bt2bWqz9IO6LIkNGNQn/VXLZmOpAxcu5GaM02cipm7Rpjdjg0xH2zIaMb/a+aS8xUIGPk3I1Qd2sozGiOZmkbI+raMLdnh4tuvKUy1JWmDmQsRc7diN0qVJafPA84Mb0feYiMEXWNnwLYZYyoa4yZXcaIukYZM5Y1YsxYBsSYsQyIMWMZEGXMaI5maRsj6hpjZpcxoq4xZnYZI+oaY2aXMaKuUcaMZY0GYzZJ9GwpaorQoaNnWdZoiNZsgujZyClCOXr28GkUzEaPno2cIpSjZw/fcgTMxoiejZwidOjoWZqjWdrGiLo2LGbjRc9GThE6dPQszSNG2xhR16YbPRs5RShHz07RGFHXph49GzFFKEfPTs8YUdf4vhnLgBgzlgExZiwDYsxYBkQZM5qjWdrGiLrGmNlljKhrjJldxoi6xpjZZYyoa4Qx4y+D2SPGjGVA+2M2ZEijisv4dMV1o6cBHe9b54yZPRrQmg0Z0ijTPsnhQ/aoaUDH+9Y5Y2aPhsVs/5BGmaY+qBk1Deh43zqXnzqPLbzuZkx25PKLOMP+bsYaRkjzdw6J2YCQRvXdclkkahrQ8b51fifNiybaxoi6Ngxmg0MaVWu2hSWipgEd71vnjFni1kxhNmRIo0yDAghgxDSg433rnDFL3Jqx+2ZDhTQ+gGny0jIrIqcBHe9b5yxrRPi+GcseMWYsA2LMWAZEGTOao1naxoi6xpjZZYyoa4yZXcaIusaY2WWMqGuUMWNZI8KYcYSGPWLMWAYUd1hj5PyMHNZ42BV3WGPk/IxjhjXSHM3SNkbUtbjDGiPnZ+SwRg5rRMUX1hg5PyOHNRozRtS1uMMaI+dn5LBGY8aIuhZ3WGPk/IxjhjXG9RtZiWsKYY0R8zOOFdbImNkjwvfNWPaIMWMZEGXMaI5maRsj6hpjZpcxoq4xZnYZI+oaY2aXMaKu0cCMZbsoYLaH6F6A0vWMsmuM2Yii6xll14hixrJMjBnLgBgzlgExZiwDIoeZfKPAX1CSdqnmLpQGFTUs720LggdNixpmOmpNLyjJc+nNpB2JEM5gSPKgeaKGmY7B9UJxCUm7JN92oCaFGcGD5okaZvKNAn9BSdol+bZD0r70S2FG8KB5ooYZ+dZMyNNJTNyajSj6YzN9TkmJx2ajSr5RkJMLYlKeVdQL9bSEs0vTPGha5DBj2SjGjGVAjBnLgBgzlgExZiwDYsxYBnTwMSs7Tvrqel9i+8x68x6ZqBc9ikrzE+tHd/YqMljhamMakp7cMbjIkc2RvBlJf5yodo8OPGbFuR1Rnuk/IEWVEsKvJzdSzeW5nQFF+uTvZI+9DVU3Qor3fdXOz+6H2YSakNKgDjpm9dvxUFQzfcnQmuFij79HnbuHRXl29y3SK38nY/z171Ol/eQQBDWPTxEz0bx3IOhD6qBjVp7TRwL7Tjjqf3Igoeo4M9hpwjKDf5KBvOayM7spGWrnnRS0Bn/BhObxszPP3rMuM+tHn3JSErOiI41jRagvN7Hg746+4cx94Mx9tDy7CY2e3AlWjNibkE1CXVfY8SzpEmdnfuPV1cXLsOrttppC5HVNtfNASfmLva1ABvwqWC/6++760S3j78xJq1887x2FfieK/X++48oWzKANqs/fB+TgaT2yCY0cEPAhsjKzHswrpwEg1VRhS/ClTDifh9MOBWVmfT7TzmdgpQppaYWjgETc/DYUhG04Oykc/R1HYHEnsmLE3gT2vue9Cue1Ja9EWnh1z6viQFYxrXcL6aK7K5kYKCkkhkXM1T9KZ5RTXc/VvnXxbhmdJr3IwH/Yde/hRDkd02myBTM8IHDU5YnHEyRZQpzUtp+Hpy6je0Q4kJd2ZAIS52Vipymxgb92wEJ3TOW03MR1ZQhQ1Cu6acxE7U1djAQqSEteCeHXVUVk4+HtFkv5NVVit6TQLU3gR6nVairgub9v/LXdMv5RwiMAB7B5Yi8nGDMtNTarP1OWB2UPzAJ5VfgD9zCrH/nzM0Im6FMu17uY6R7Dg0Of1ijMfKt9exPRmHklhF83eIb1bnsxw8RASdGDWSBDtr2eiSBmgTL6KKV0i5m5uqcTjJknvNKEoSrg5h/AKoy+8rOXfcyCeUXdI/p1ZYI+5XIdMIOuQzYMAv/O5QWX6kyaJ/oxay7jfoRvtW9vog8zZckvoUaAGZ/YKrYs3m5xbObXlImBkpiPhQM/SptIq6rSRNCPQBn1r/ICCjuBo9DnBI/NfBVxzCub+Qysp8pw1CDJyagVuQjkfeDMfHP2rB5E10/iUYaE78pCKvNyHkur2vJ2AQyTHby9UdRjazAEizfk2sy38EohI41shve2g37NPeVV+Ehb0iXkyD6jHdCOz6wLvVu80gzuCq8xuiXlD59ZD/wolfGveby80CbUvlXxQGWdJr0QiqVoJ/hK06Diu2kwmqX9b73uoS+B4ksjwdH+9V7FR7ipM0iM2UAlhdkwTwH6hWQ0z41UJXTP0Rc/BTAoGFTPxdN3xGdpb1XVEGJoFeUl6dTFmLEMiDFjGRBjxjIgxoxlQIwZy4D+D7nNPZOLocE+AAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrWnNkV04wUTI5dVVHVnliV2x0Y0M1emRtZGNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVEl1T1N3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSnpkbWRjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1pFRnVibTk1VFc1R2JIVmpkRU52YmxCbGNtMXBiWEF1YzNablhDSXBYRzRnSUZ4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhDSlFkSE5CUW1SQmJtNXZlVTF1Um14MVkzUkRiMjVRWlhKdGFXMXdMbkJrWmx3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pNDVMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjSW5Ca1psd2lLU2xjYmlBZ2RXNXNhVzVyS0Z3aVVIUnpRVUprUVc1dWIzbE5ia1pzZFdOMFEyOXVVR1Z5YldsdGNDNXdaR1pjSWlsY2JuMWNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5GbHVjdENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjksIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uRmx1Y3RDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkZsdWN0Q29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuOSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5GbHVjdENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnFluctConPermimp.svg\, width=8, height=2.9, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnFluctConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnFluctConPermimp.pdf\, width=8, height=2.9, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnFluctConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtac2RXTjBRMjl1VUdWeWJXbHRjQzV6ZG1kY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUSXVPU3dnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4emRtZGNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWkVGdWJtOTVUVzVHYkhWamRFTnZibEJsY20xcGJYQXVjM1puWEZ3cFhHNGdJRnh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WEZ4UWRITkJRbVJCYm01dmVVMXVSbXgxWTNSRGIyNVFaWEp0YVcxd0xuQmtabHhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWk0NUxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNYSEJrWmx4Y0tTbGNiaUFnZFc1c2FXNXJLRnhjVUhSelFVSmtRVzV1YjNsTmJrWnNkV04wUTI5dVVHVnliV2x0Y0M1d1pHWmNYQ2xjYm4xY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uRmx1Y3RDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkZsdWN0Q29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5GbHVjdENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjksIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uRmx1Y3RDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkZsdWN0Q29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuOSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5GbHVjdENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uRmx1Y3RDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkZsdWN0Q29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnFluctConPermimp.svg\, width=8, height=2.9, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnFluctConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnFluctConPermimp.pdf\, width=8, height=2.9, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnFluctConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVtYkhWamRGWmhjaUE4TFNCY0lsVkJVMFpzZFdOMFQxWXhNRVY0VFdGNFRGSmNJbHh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmZsdWN0VmFyIDwtIFxcVUFTRmx1Y3RPVjEwRXhNYXhMUlxcXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
fluctVar <- \UASFluctOV10ExMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNW1iSFZqZEZaaGNpQThMU0JjWEZWQlUwWnNkV04wVDFZeE1FVjRUV0Y0VEZKY1hGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmZsdWN0VmFyIDwtIFxcVUFTRmx1Y3RPVjEwRXhNYXhMUlxcXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5mbHVjdFZhciA8LSBcXFVBU0ZsdWN0T1YxMEV4TWF4TFJcXFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
fluctVar <- \UASFluctOV10ExMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### Roughness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZKdmRXZG9ibVZ6YzF4dWFWWmhjbk1nUEMwZ1l5aGhZbk5XWVhJc0lHVjJaVzUwVm1GeUxDQmhiV0pXWVhJc0lGd2lWVUZUVW05MVoyaEZRMDFCTVRCRmVFSnBibHdpTENCY0lsVkJVMUp2ZFdkb1JVTk5RVEExUlhoQ2FXNWNJaXdnWENKVlFWTlNiM1ZuYUVaYU1UQkZlRTFoZUV4U1hDSXNJRndpVlVGVFVtOTFaMmhHV2pBMVJYaE5ZWGhNVWx3aUxDQmNJbFZCVTFKdmRXZG9SRmN4TUVWNFRXRjRURkpjSWl3Z1hDSlZRVk5TYjNWbmFFUlhNRFZGZUUxaGVFeFNYQ0lwWEc1a1ZtRnlJRHd0SUZ3aVpFRnVibTk1VFdWaGJsd2lYRzVjYm5ObFpXUnpJRHd0SUdNb05EY3dNU3dnTlRJeE9EY3NJREUyTlRnNUxDQTJOVEl4Tnl3Z01UWTRPVE1wWEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbiMgUm91Z2huZXNzXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNSb3VnaEVDTUExMEV4QmluXFwsIFxcVUFTUm91Z2hFQ01BMDVFeEJpblxcLCBcXFVBU1JvdWdoRloxMEV4TWF4TFJcXCwgXFxVQVNSb3VnaEZaMDVFeE1heExSXFwsIFxcVUFTUm91Z2hEVzEwRXhNYXhMUlxcLCBcXFVBU1JvdWdoRFcwNUV4TWF4TFJcXClcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYyg0NzAxLCA1MjE4NywgMTY1ODksIDY1MjE3LCAxNjg5MylcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Roughness
iVars <- c(absVar, eventVar, ambVar, \UASRoughECMA10ExBin\, \UASRoughECMA05ExBin\, \UASRoughFZ10ExMaxLR\, \UASRoughFZ05ExMaxLR\, \UASRoughDW10ExMaxLR\, \UASRoughDW05ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(4701, 52187, 16589, 65217, 16893)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkp2ZFdkb2JtVnpjMXh1YVZaaGNuTWdQQzBnWXloaFluTldZWElzSUdWMlpXNTBWbUZ5TENCaGJXSldZWElzSUZ4Y1ZVRlRVbTkxWjJoRlEwMUJNVEJGZUVKcGJseGNMQ0JjWEZWQlUxSnZkV2RvUlVOTlFUQTFSWGhDYVc1Y1hDd2dYRnhWUVZOU2IzVm5hRVphTVRCRmVFMWhlRXhTWEZ3c0lGeGNWVUZUVW05MVoyaEdXakExUlhoTllYaE1VbHhjTENCY1hGVkJVMUp2ZFdkb1JGY3hNRVY0VFdGNFRGSmNYQ3dnWEZ4VlFWTlNiM1ZuYUVSWE1EVkZlRTFoZUV4U1hGd3BYRzVrVm1GeUlEd3RJRnhjWkVGdWJtOTVUV1ZoYmx4Y1hHNWNibk5sWldSeklEd3RJR01vTkRjd01Td2dOVEl4T0Rjc0lERTJOVGc1TENBMk5USXhOeXdnTVRZNE9UTXBYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG4jIFJvdWdobmVzc1xuaVZhcnMgPC0gYyhhYnNWYXIsIGV2ZW50VmFyLCBhbWJWYXIsIFxcVUFTUm91Z2hFQ01BMTBFeEJpblxcLCBcXFVBU1JvdWdoRUNNQTA1RXhCaW5cXCwgXFxVQVNSb3VnaEZaMTBFeE1heExSXFwsIFxcVUFTUm91Z2hGWjA1RXhNYXhMUlxcLCBcXFVBU1JvdWdoRFcxMEV4TWF4TFJcXCwgXFxVQVNSb3VnaERXMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoNDcwMSwgNTIxODcsIDE2NTg5LCA2NTIxNywgMTY4OTMpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFJvdWdobmVzc1xuaVZhcnMgPC0gYyhhYnNWYXIsIGV2ZW50VmFyLCBhbWJWYXIsIFxcVUFTUm91Z2hFQ01BMTBFeEJpblxcLCBcXFVBU1JvdWdoRUNNQTA1RXhCaW5cXCwgXFxVQVNSb3VnaEZaMTBFeE1heExSXFwsIFxcVUFTUm91Z2hGWjA1RXhNYXhMUlxcLCBcXFVBU1JvdWdoRFcxMEV4TWF4TFJcXCwgXFxVQVNSb3VnaERXMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoNDcwMSwgNTIxODcsIDE2NTg5LCA2NTIxNywgMTY4OTMpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# Roughness
iVars <- c(absVar, eventVar, ambVar, \UASRoughECMA10ExBin\, \UASRoughECMA05ExBin\, \UASRoughFZ10ExMaxLR\, \UASRoughFZ05ExMaxLR\, \UASRoughDW10ExMaxLR\, \UASRoughDW05ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(4701, 52187, 16589, 65217, 16893)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbnAgPC0gbXRyeVR1bmUoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkPXNlZWRzWzE6Ml0sXG4gICAgICAgICAgICAgbnRyZWVzPW50cmVlcywgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuYGBgXG5gYGAifQ== -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWTVNamhqVm5ZMVVrOHJNa3dyT0ROalMzaG1iSFZITDFoUUwwWjZUMWwwZVRZelpuaFpPV1psZFRGdWFFdzNjRGRaYzJWWU0zb3lkVEptWW5adU9DOURVSFpPVEdrcmJEVkdRa2hhV25sREszaG1jemxaYTFSdWFrUmhMemsyWWxsRVREWjBUVE0zUmk5bU9VUm9OR00zSzBrdlpYVklZV1pJZVcwM1RITllMM1YxV0c1aVpYTm9UMmg2ZW1oTldIVkhTVzEyTTFRdmEySkhaalpHVGpsdkwwWXpkVGgyT0VreWVHWTRVVE5oV0M5RE1XNWlOMEl4T0dKdFN6QnNRbVYzWmtkMU56aE5MekpwU0RGQlVFd3daMlpGUkU5Q1psRnFNRVZrVkRsSlJFWXliVXhyVDFCQmVHYzBUVUZIY0ZwclozUlFNR1pMVURCRVUyNDVhR2RCUzFWblIwaE9Vemg0VGt4UldYbENUVU5IVVhkU1dtZHVlVVJZWVVaemFuRkVhWGQwVEVWdmRGRlZTMG92V2pGNFJXMTRXa3BpVld4UlNscFlUbXhvYVZWWFJtTmxSRkpXUW5RMFEzcExURGxsUkRKUlRIbEZiRTFFZUVJeGN6WkZOVXA2YTJ0emFHcHJSa3B6YVZacmJHbFRjVXBrVjBKT1VWQTFVREZFTURoTFpWZ3hRMU50V2poSU1VMVJSV2xzZVhkQ2NrRXdRa05OWW5oR1owVkVWRVpIUW5jeFdWTkZSRFZCYmtFcmMyZGhRakJxZVZGeE1VNHdhM3BPU3pnM1NqRjZWWHBSTlVwclREaDBTMUkzUjA5QksyODBVa2RyUlhkT2FYWkZlVlY2TDI5a2J6VlpXVWRZYlhCNVVrUXlWM3B3WldGc1dpdGhiSGRuU1hOTVZFNWtjbnAzZW5CVFVVUkdaMWxuWjFsNlZYcFFVMDFGYkdoUk5WTlJiWEJsWWtGSVNrdFRWMmRhYkRoblNFUkhhSHBWWldkV1JtMVlhM2N4Vm5oQk1GZExPV3QyZVZOU1NtZFhjblZVT0VoS1owbFBSbEZhTDJkRlFVOTROSEowYXpCRVFVRkJQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjkyNjI0NzZcXCxcXDJcXDpcXDAuNzkyMTUzNlxcLFxcM1xcOlxcMC43ODc1MTY3XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuODA4MDQ2NFxcLFxcMlxcOlxcMC44NDQ0MTk3XFwsXFwzXFw6XFwwLjY3Mzc2NzZcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43Mjg1MDQ1XFwsXFwyXFw6XFwwLjg2NDkwNjRcXCxcXDNcXDpcXDAuNTk2NTQ5OVxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY5ODY4MDdcXCxcXDJcXDpcXDAuODcwMjc0MFxcLFxcM1xcOlxcMC41NjQyNzkwXFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjYzNjk4NFxcLFxcMlxcOlxcMC44NzEyNjQ2XFwsXFwzXFw6XFwwLjUyOTk2ODNcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NzgzMzkwXFwsXFwyXFw6XFwwLjg1MzIzMTNcXCxcXDNcXDpcXDAuNTM3MzIwMVxcLFxcNFxcOlxcN1xcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cblxuPCEtLSBybmItZnJhbWUtYmVnaW4gZXlKdFpYUmhaR0YwWVNJNmV5SmpiR0Z6YzJWeklqcGJJbVJoZEdFdVpuSmhiV1VpWFN3aWJuSnZkeUk2Tml3aWJtTnZiQ0k2TlN3aWMzVnRiV0Z5ZVNJNmV5SkVaWE5qY21sd2RHbHZiaUk2V3lKa1ppQmJOaUREbHlBMVhTSmRmWDBzSW5Ka1ppSTZJa2cwYzBsQlFVRkJRVUZCUVVKbmRIbHBWRVJ0YVhWQ2FWbEhRbWRhYlVKb1dWZEtaMXBuVlhsSFZtaEVVVGw0TUV4U1oxbG5RVWxOUkVsM1RVeEJlV05KVEc5RGNVVm5XVXBCZGtWbVJVUk5XbllyTWxCa1VYRlpTWFZSTDJOMFdDOTRTM1ptZDJrelpqYzNMeko2ZFNzNVpHNHllak5VVm01MlRXc3JPV2N2TjFReE5uaEhabkZHZG5WdVRUUTJZVnA1TDFSbmRYUTNNbUpFT0ZWV1VtNXZVREZ5TVZrNFQybHlXa3M1Y1M5dWNWaFVTMlptZUc0dkwzSkVkRFF6Y2xvM1lsbDJOelYxS3pORU4zSlRjamN4SzBWNlNISlplSEJEU0RCaFZuaFNVSGhHZVhwMk4zQjVieTh2TVROSVpYUllPR051VURJeVUwVmlSeTkxUlhvMWNFNUdXalF2V2xBM1VteHVjR1pWZFhOeUsyOWthRGh2WVZOT1REUkdObVZGU0RablNtZEtOMFZQWjJvMlJIVkNORzE0ZHpoNE1UUkhSVUZCZDJNeVMwMHdSVzlsTXk5UlQydG1WVkJ2VEVGNFUyZENRWGh5V0cxS2RXRnFSMUZKVVVFeVNFTk1TVVYxVVdJM1FYQnNZM2RSVmtZMVdXMUdjVmR0VVZCdVRYWnZOSGRMV21KamEzRktTMHRLYzNKTmVYbDRjVVJuWlV4SlNuRkJNbVJTWm5KclpYcENZVkZzTldkaFNVODFaMUV6WkV0amF6VnBUV04zY0UxRlIzVnNUVk5UVWt3eU1FbHhRaXRKVHpobWJXaGlNaTlKUzFONlVIYzRiME5aYlZWUFUwTk9XVU5zU1ZKcVdrbE5XV2xoU1dkNFQyMXFRVkZuVEV0R05FUjZhMVJWU1d4UFlVSllTakpwYlRWNFVtMXdaWFJoTW1GRFNuTTVZMnRLWlU5YVFqaEVNVWhsVFRCQmFVTnpWbXRvVkcxaU5rUTVXRTlEVVhVNE1VOVRUV1pEYVdKTVZGVjJVRlJOZGtaU1dtZGhXbTV3WlhWWFdrdFRWVnB6UkVGQlExZFRhMXB4V201c1RVTkRTMmxqZUV0VVZVZzFjRU5WTVVSSmIydDNPRmt4ZFVObk1XbHpiM2x6ZVVSeFpWbERhV2hpY214bFUxaEtUVXN3WTBOWWJqVTRRa1YzUzBoTE9FRTRRVFZGTlUxMFZUQkVRVUZCUFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC45MjI3NzAxXFwsXFwyXFw6XFwwLjc5Njk1NTFcXCxcXDNcXDpcXDAuNzg2MjM0MFxcLFxcNFxcOlxcMlxcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFwwLjgwOTkzNThcXCxcXDJcXDpcXDAuODQ4MzgxNlxcLFxcM1xcOlxcMC42NzY5OTUzXFwsXFw0XFw6XFwzXFwsXFw1XFw6XFwyLjc1XFx9LHtcXDFcXDpcXDAuNzQyMTgzMlxcLFxcMlxcOlxcMC44NjMwNTQ1XFwsXFwzXFw6XFwwLjYwMzkzMzNcXCxcXDRcXDpcXDRcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42OTMwMTE3XFwsXFwyXFw6XFwwLjg3MzE2NDVcXCxcXDNcXDpcXDAuNTU5MzI4MFxcLFxcNFxcOlxcNVxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjY3MzU1NjJcXCxcXDJcXDpcXDAuODcwMDI0NlxcLFxcM1xcOlxcMC41Mzg2OTgwXFwsXFw0XFw6XFw2XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjc0ODk4N1xcLFxcMlxcOlxcMC44NTQ0NDMwXFwsXFwzXFw6XFwwLjUzNDAxMTRcXCxcXDRcXDpcXDdcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls2XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnY5MjhjVnY1Uk8rMkwrODNjS3hmbHVHL1hQL0Z6T1l0eTYzZnhZOWZldTFuaEw3cDdZc2VYM3oydTJmYnZuOC9DUHZOTGkrbDVGQkhaWnlDK3hmczlZa1RuakRhLzk2YllETDZ0TTM3Ri9mOURoNGM3K0kvZXVIYWZIeW03THNYL3V1WG5iZXNoT2h6emhNWHVHSW12M1Qva2JHZjZGTjlvL0YzdTh2OEkyeGY4UTNhWC9DMW5iN0IxOGJtSzBsQmV3Zkd1NzhNLzJpSDFBUEwwZ2ZFRE9CZlFqMEVkVDlJREYybUxrT1BBeGc0TUFHcFprZ3RQMGZLUDBEU245aGdBS1VnR0hOUzh4TkxRWXlCTUNHUXdSWmdueURYYUZzanFEaXd0TEVvdFFVS0ovWjF4RW14WkpiVWxRSlpYTmxoaVVXRmNlRFJWQnQ0Q3pLTDllRDJRTHlFbE1EeEIxczZFNUp6a2tzaGprRkpzaVZrbGlTcUpkV0JOUVA1UDFEMDhLZVgxQ1NtWjhIMU1RRWlseXdCckEwQkNNYnhGZ0VEVEZHQncxWVNFRDVBbkErc2dhQjBqeVFxMU4wa3pOSzg3SjF6VXpRNUprTDh0S1I3R09BK280UkdrRXdOaXZFeVV6L29kbzVZWUdYbXB5UkQyV3pwZWFsWithbHdnSXNMVE5kcnp3enBTUURGZ1lnZ1l6VXpQU01FbGhRNVNRbXBlYkFISktTV2dabDhnSERHaHpVZWdWRm1Ya3cxVnhBMFdLOWt2eVNSSmdXcnVUOEhKZ0lPRlFaL2dFQU94NHJ0azBEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9262476\,\2\:\0.7921536\,\3\:\0.7875167\,\4\:\2\,\5\:\3.50\},{\1\:\0.8080464\,\2\:\0.8444197\,\3\:\0.6737676\,\4\:\3\,\5\:\2.75\},{\1\:\0.7285045\,\2\:\0.8649064\,\3\:\0.5965499\,\4\:\4\,\5\:\2.25\},{\1\:\0.6986807\,\2\:\0.8702740\,\3\:\0.5642790\,\4\:\5\,\5\:\1.75\},{\1\:\0.6636984\,\2\:\0.8712646\,\3\:\0.5299683\,\4\:\6\,\5\:\1.50\},{\1\:\0.6783390\,\2\:\0.8532313\,\3\:\0.5373201\,\4\:\7\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnYrMlBkUXFZSXVRL2N0WC94S3Zmd2kzZjc3LzJ6dSs5ZG4yejNUVm52TWsrOWcvN1QxNnhHZnFGdnVuTTQ2YVp5L1RndXQ3MmJEOFVWUm5vUDFyMVk4T2lyWks5cS9ucVhUS2ZmeG4vL3JEdDQzclo3Yll2NzV1KzNEN3JTcjcxK0V6SHJZeHBDSDBhVnhSUHhGeXp2N3B5by8vMTNIZXRYOGNuUDIyU0ViRy91RXo1cE5GWjQvWlA3UmxucGZVdXNyK29kaDhvYVNOTDRGNmVFSDZnSmdKN0VPZ2o2RHVCNG14dzh4MTRHRUFBd2MyS00wRW9lMy9RT2tmVVBvTEF4U2dCQXhyWG1KdWFqR1FJUUEySENMSUV1UWI3QXBsY3dRVkY1WW1GcVdtUVBuTXZvNHdLWmJja3FKS0tKc3JNeXl4cURnZUxJSnFBMmRSZnJrZXpCYVFsNWdhSU81Z1EzZEtjazVpTWN3cE1FR3VsTVNTUkwyMElxQitJTzhmbWhiMi9JS1N6UHc4b0NZbVVPU0NOWUNsSVJqWklNWWlhSWd4T21qQVFnTEtGNER6a1RVSWxPYUJYSjJpbTV4Um1wZXRhMmFDSnM5Y2tKZU9aQjhEMUhlTTBBaUNzVmtoVG1iNkQ5WE9DUXU4MU9TTWZDaWJMVFV2UFRNdkZSWmdhWm5wZXVXWktTVVpzREFBQ1dTa1pxWm5sTUNDS2ljeEtUVUg1cENVMURJb2t3OFkxdUNnMWlzb3lzeURxZVlDaWhicmxlU1hKTUswY0NYbjU4QkV3S0hLOEE4QTVFNU10VTBEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9227701\,\2\:\0.7969551\,\3\:\0.7862340\,\4\:\2\,\5\:\3.50\},{\1\:\0.8099358\,\2\:\0.8483816\,\3\:\0.6769953\,\4\:\3\,\5\:\2.75\},{\1\:\0.7421832\,\2\:\0.8630545\,\3\:\0.6039333\,\4\:\4\,\5\:\2.25\},{\1\:\0.6930117\,\2\:\0.8731645\,\3\:\0.5593280\,\4\:\5\,\5\:\1.75\},{\1\:\0.6735562\,\2\:\0.8700246\,\3\:\0.5386980\,\4\:\6\,\5\:\1.50\},{\1\:\0.6748987\,\2\:\0.8544430\,\3\:\0.5340114\,\4\:\7\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGpreU9HTldkalZTVHlzeVRDczRNMk5MZUdac2RVY3ZXRkF2Um5wUFdYUjVOak5tZUZrNVptVjFNVzVvVERkd04xbHpaVmd6ZWpKMU1tWmlkbTQ0TDBOUWRrNU1hU3RzTlVaQ1NGcGFlVU1yZUdaek9WbHJWRzVxUkdFdk9UWmlXVVJNTm5STk16ZEdMMlk1UkdnMFl6Y3JTUzlsZFVoaFpraDViVGRNYzFndmRYVllibUpsYzJoUGFIcDZhRTFZZFVkSmJYWXpWQzlyWWtkbU5rWk9PVzh2UmpOMU9IWTRTVEo0WmpoUk0yRllMME14Ym1JM1FqRTRZbTFMTUd4Q1pYZG1SM1UzT0Uwdk1tbElNVUZRVERCblprVkVUMEptVVdvd1JXUlVPVWxFUmpKdFRHdFBVRUY0WnpSTlFVZHdXbXRuZEZBd1prdFFNRVJUYmpsb1owRkxWV2RIU0U1VE9IaE9URkZaZVVKTlEwZFJkMUphWjI1NVJGaGhSbk5xY1VScGQzUk1SVzkwVVZWTFNpOWFNWGhGYlhoYVNtSlZiRkZLV2xoT2JHaHBWVmRHWTJWRVVsWkNkRFJEZWt0TU9XVkVNbEZNZVVWc1RVUjRRakZ6TmtVMVNucHJhM05vYW10R1NuTnBWbXRzYVZOeFNtUlhRazVSVURWUU1VUXdPRXRsV0RGRFUyMWFPRWd4VFZGRmFXeDVkMEp5UVRCQ1EwMWllRVpuUlVSVVJrZENkekZaVTBWRU5VRnVRU3R6WjJGQ01HcDVVWEV4VGpCcmVrNUxPRGRLTVhwVmVsRTFTbXRNT0hSTFVqZEhUMEVyYnpSU1IydEZkMDVwZGtWNVZYb3ZiMlJ2TlZsWlIxaHRjSGxTUkRKWGVuQmxZV3hhSzJGc2QyZEpjMHhVVG1SeWVuZDZjRk5SUkVabldXZG5XWHBWZWxCVFRVVnNhRkUxVTFGdGNHVmlRVWhLUzFOWFoxcHNPR2RJUkVkb2VsVmxaMVpHYlZocmR6RldlRUV3VjBzNWEzWjVVMUpLWjFkeWRWUTRTRXBuU1U5R1VWb3ZaMFZCVDNnMGNuUnJNRVJCUVVFOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuOTI2MjQ3NlwiLFwiMlwiOlwiMC43OTIxNTM2XCIsXCIzXCI6XCIwLjc4NzUxNjdcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC44MDgwNDY0XCIsXCIyXCI6XCIwLjg0NDQxOTdcIixcIjNcIjpcIjAuNjczNzY3NlwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjcyODUwNDVcIixcIjJcIjpcIjAuODY0OTA2NFwiLFwiM1wiOlwiMC41OTY1NDk5XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjk4NjgwN1wiLFwiMlwiOlwiMC44NzAyNzQwXCIsXCIzXCI6XCIwLjU2NDI3OTBcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NjM2OTg0XCIsXCIyXCI6XCIwLjg3MTI2NDZcIixcIjNcIjpcIjAuNTI5OTY4M1wiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY3ODMzOTBcIixcIjJcIjpcIjAuODUzMjMxM1wiLFwiM1wiOlwiMC41MzczMjAxXCIsXCI0XCI6XCI3XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adjkyOGNWdjVSTysyTCs4M2NLeGZsdUcvWFAvRnpPWXR5NjNmeFk5ZmV1MW5oTDdwN1lzZVgzejJ1MmZidm44L0NQdk5MaStsNUZCSFpaeUMreGZzOVlrVG5qRGEvOTZiWURMNnRNMzdGL2Y5RGg0YzcrSS9ldUhhZkh5bTdMc1gvdXVYbmJlc2hPaHp6aE1YdUdJbXYzVC9rYkdmNkZOOW8vRjN1OHY4STJ4ZjhRM2FYL0MxbmI3QjE4Ym1LMGxCZXdmR3U3OE0vMmlIMUFQTDBnZkVET0JmUWowRWRUOUlERjJtTGtPUEF4ZzRNQUdwWmtndFAwZktQMERTbjloZ0FLVWdHSE5TOHhOTFFZeUJNQ0dRd1JaZ255RFhhRnNqcURpd3RMRW90UVVLSi9aMXhFbXhaSmJVbFFKWlhObGhpVVdGY2VEUlZCdDRDektMOWVEMlFMeUVsTUR4QjFzNkU1Snpra3NoamtGSnNpVmtsaVNxSmRXQk5RUDVQMUQwOEtlWDFDU21aOEgxTVFFaWx5d0JyQTBCQ01ieEZnRURURkdCdzFZU0VENUFuQStzZ2FCMGp5UXExTjBrek5LODdKMXpVelE1SmtMOHRLUjdHT0ErbzRSR2tFd05pdkV5VXovb2RvNVlZR1htcHlSRDJXenBlYWxaK2Fsd2dJc0xUTmRyend6cFNRREZnWWdnWXpVelBTTUVsaFE1U1FtcGViQUhKS1NXZ1psOGdIREdoelVlZ1ZGbVhrdzFWeEEwV0s5a3Z5U1JKZ1dydVQ4SEpnSU9GUVovZ0VBT3g0cnRrMERBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9262476","2":"0.7921536","3":"0.7875167","4":"2","5":"3.50"},{"1":"0.8080464","2":"0.8444197","3":"0.6737676","4":"3","5":"2.75"},{"1":"0.7285045","2":"0.8649064","3":"0.5965499","4":"4","5":"2.25"},{"1":"0.6986807","2":"0.8702740","3":"0.5642790","4":"5","5":"1.75"},{"1":"0.6636984","2":"0.8712646","3":"0.5299683","4":"6","5":"1.50"},{"1":"0.6783390","2":"0.8532313","3":"0.5373201","4":"7","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWTRNbVlyUlRsdU1XeFRPV2s1Wml0RWJuUkdSR3hwTHk5NFluazBlQzlMWlVneWVuaG9WMVpyWmxWbU4wWXZWM1YwTkZOa1ozRjNMelZ3VVZCM2JHdGpPVlpqU0RCMmRUbFFLemRvUkdKWmRqbGhjbUptYkRBNFVWTXJPV1UzWkV0NVRXNVpOMXAySzBWNmMxcGFjWEkzU2k5bVppOUpMekpMYldJdllYWndNMW80TDJaWmJFTmhSbEJVY0M4dlVXRnBaaTlrVFU0MWJsVlFZbmhxV1ZBMU5qbHVLemw1UWxsUU9YYzJUVVl4ZERZelRIUnpMekZHTVhreFJsWjVhWFl5UkVJMWJqZGlNM1J3UVdaWWQyZDJVVUpOVWxCWmFEQkJabEZrTUZCRmJVOUliV1YyUVhkM1FVZEViWGhSYldkc1F6SXZLMEl3YWl0bk9VSmpSMHRGUVVwSFRtRTRlRTU2VlZscFFrUkJSM2MwVWtwQmJIbEVabGxHWTNKdFEwTnZkVXhGTUhOVGF6SkNPSEJzT1VoWFJsTk1UR3RzVWxwV1VVNXNaRzFYUjBwU1kxUjRXVUpPVlVkNmNVdzRZMm95V1V4VFFYWk5WRlpCTTAxSFJ6ZHdWR3R1VFZKcGJVWk9aMmRzZDNCcFUxZEtaVzFzUmxGUU1VRXphamd3VEdWNk5VSlRWMW9yV0d4QlZGVjVaM2xCVm5KQlJYUkVUVXhLUW1wRldGRkZSMDR3TUVsRFJrSktVWFpCVDJOcVlYaEJiM3BSVHpWUGExVXpUMkZOTUV3eGRsaDZRVkpPYm5KcloweDRNMHBRWjJGdk4zaHBhRVZSVW1wek1FdGplbEJSWm5Gd01GUkdibWx3ZVZKdU5WVkVXbUpoYkRVMldtdzBjVXhOUkZOTmRGQXhlV3BPVkZOcVNtZFpVVUZUZVVWcVRsUk5PRzluVVZaV1ZHMUtVMkZuTjAxSlUyMXdXbFpCYlVoNlEzTjNWVWQwVmpGRFZXMVJaRlI2VVZWVlRHUlpjbmxUT1Vwb1IyNW9VM00zVUdkWmJVRlJOVmhvU0hkQlpWTnFhaTlVVVUxQlFVRTlQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjkxOTg3NzBcXCxcXDJcXDpcXDAuNzk4MjY2OVxcLFxcM1xcOlxcMC43ODQ5MzQ2XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuODA5NjA3NlxcLFxcMlxcOlxcMC44NDg0NTYyXFwsXFwzXFw6XFwwLjY3Nzc2MDhcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43NDg4NDI1XFwsXFwyXFw6XFwwLjg2NjQ3NjJcXCxcXDNcXDpcXDAuNjEyNzYyMFxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY4NzU4MDhcXCxcXDJcXDpcXDAuODc2NzMzOVxcLFxcM1xcOlxcMC41NTUzNTE0XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjcxNTQwMlxcLFxcMlxcOlxcMC44NzEwNjU2XFwsXFwzXFw6XFwwLjUzNjgyMTdcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NjYwNjEzXFwsXFwyXFw6XFwwLjg2MjAwMzhcXCxcXDNcXDpcXDAuNTI3Mzk0MlxcLFxcNFxcOlxcN1xcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnY4MmYrRTluMWxTOWk5ZitEbnRGRGxpLy94Ynk0eC9LZUgyenhoV1ZrZlVmN0YvV3V0NFNkZ3F3LzVwUVB3bGtjOVZjSDB2dTlQKzdoRGJZdjlhcmJmbDA4UVMrOWU3ZEt5TW5ZN1p2K0V6c1pacXI3Si9mZi9JLzJLbWIvYXZwM1o4L2ZZbENhRlBUcC8vUWFpZi9kTU41blVQYnhqWVA1NjluKzl5QllQOXc2TUYxdDYzTHRzLzFGMXkxRlZ5aXYyREI1bjdiM3RwQWZYd2d2UUJNUlBZaDBBZlFkMFBFbU9IbWV2QXd3QUdEbXhRbWdsQzIvK0IwaitnOUJjR0tFQUpHTmE4eE56VVlpQkRBR3c0UkpBbHlEZllGY3JtQ0NvdUxFMHNTazJCOHBsOUhXRlNMTGtsUlpWUU5sZG1XR0pSY1R4WUJOVUd6cUw4Y2oyWUxTQXZNVFZBM01HRzdwVGtuTVJpbUZOZ2dsd3BpU1dKZW1sRlFQMUEzajgwTGV6NUJTV1orWGxBVFV5Z3lBVnJBRXRETUxKQmpFWFFFR04wMElDRkJKUXZBT2NqYXhBb3pRTzVPa1UzT2FNMEwxdlh6QVJObnJrZ0x4M0pQZ2FvN3hpaEVRUmpzMEtjelBRZnFwMFRGbmlweVJuNVVEWmJhbDU2Wmw0cUxNRFNNdFAxeWpOVFNqSmdZUUFTeUVqTlRNOG9nUVZWVG1KU2FnN01JU21wWlZBbUh6Q3N3VUd0VjFDVW1RZFR6UVVVTGRZcnlTOUpoR25oU3M3UGdZbUFRNVhoSHdBZVNqai9UUU1BQUE9PSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9198770\,\2\:\0.7982669\,\3\:\0.7849346\,\4\:\2\,\5\:\3.50\},{\1\:\0.8096076\,\2\:\0.8484562\,\3\:\0.6777608\,\4\:\3\,\5\:\2.75\},{\1\:\0.7488425\,\2\:\0.8664762\,\3\:\0.6127620\,\4\:\4\,\5\:\2.25\},{\1\:\0.6875808\,\2\:\0.8767339\,\3\:\0.5553514\,\4\:\5\,\5\:\1.75\},{\1\:\0.6715402\,\2\:\0.8710656\,\3\:\0.5368217\,\4\:\6\,\5\:\1.50\},{\1\:\0.6660613\,\2\:\0.8620038\,\3\:\0.5273942\,\4\:\7\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGlzeVVHUlJjVmxKZFZFdlkzUllMM2hMZG1aM2FUTm1OemN2TW5wMUt6bGtiako2TTFSV2JuWk5heXM1Wnk4M1ZERTJlRWRtY1VaMmRXNU5ORFpoV25rdlZHZDFkRGN5WWtRNFZWWlNibTlRTVhJeFdUaFBhWEphU3pseEwyNXhXRlJMWm1aNGJpOHZja1IwTkROeVdqZGlXWFkzTlhVck0wUTNjbE55TnpFclJYcEljbGw0Y0VOSU1HRldlRkpRZUVaNWVuWTNjSGx2THk4eE0waGxkRmc0WTI1UU1qSlRSV0pITDNWRmVqVndUa1phTkM5YVVEZFNiRzV3WmxWMWMzSXJiMlJvT0c5aFUwNU1ORVkyWlVWSU5tZEtaMG8zUlU5bmFqWkVkVUkwYlhoM09IZ3hORWRGUVVGM1l6SkxUVEJGYjJVekwxRlBhMlpWVUc5TVFYaFRaMEpCZUhKWWJVcDFZV3BIVVVsUlFUSklRMHhKUlhWUllqZEJjR3hqZDFGV1JqVlpiVVp4VjIxUlVHNU5kbTgwZDB0YVltTnJjVXBMUzBwemNrMTVlWGh4UkdkbFRFbEtjVUV5WkZKbWNtdGxla0poVVd3MVoyRkpUelZuVVROa1MyTnJOV2xOWTNkd1RVVkhkV3hOVTFOU1RESXdTWEZDSzBsUE9HWnRhR0l5TDBsTFUzcFFkemh2UTFsdFZVOVRRMDVaUTJ4SlVtcGFTVTFaYVdGSlozaFBiV3BCVVdkTVMwWTBSSHByVkZWSmJFOWhRbGhLTW1sdE5YaFNiWEJsZEdFeVlVTktjemxqYTBwbFQxcENPRVF4U0dWTk1FRnBRM05XYTJoVWJXSTJSRGxZVDBOUmRUZ3hUMU5OWmtOcFlreFVWWFpRVkUxMlJsSmFaMkZhYm5CbGRWZGFTMU5WV25ORVFVRkRWMU5yV25GYWJteE5RME5MYVdONFMxUlZTRFZ3UTFVeFJFbHZhM2M0V1RGMVEyY3hhWE52ZVhONVJIRmxXVU5wYUdKeWJHVlRXRXBOU3pCalExaHVOVGhDUlhkTFNFczRRVGhCTlVVMVRYUlZNRVJCUVVFOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuOTIyNzcwMVwiLFwiMlwiOlwiMC43OTY5NTUxXCIsXCIzXCI6XCIwLjc4NjIzNDBcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC44MDk5MzU4XCIsXCIyXCI6XCIwLjg0ODM4MTZcIixcIjNcIjpcIjAuNjc2OTk1M1wiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjc0MjE4MzJcIixcIjJcIjpcIjAuODYzMDU0NVwiLFwiM1wiOlwiMC42MDM5MzMzXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjkzMDExN1wiLFwiMlwiOlwiMC44NzMxNjQ1XCIsXCIzXCI6XCIwLjU1OTMyODBcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NzM1NTYyXCIsXCIyXCI6XCIwLjg3MDAyNDZcIixcIjNcIjpcIjAuNTM4Njk4MFwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY3NDg5ODdcIixcIjJcIjpcIjAuODU0NDQzMFwiLFwiM1wiOlwiMC41MzQwMTE0XCIsXCI0XCI6XCI3XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adisyUGRRcVlJdVEvY3RYL3hLdmZ3aTNmNzcvMnp1KzlkbjJ6M1RWbnZNays5Zy83VDE2eEdmcUZ2dW5NNDZhWnkvVGd1dDcyYkQ4VVZSbm9QMXIxWThPaXJaSzlxL25xWFRLZmZ4bi8vckR0NDNyWjdiWXY3NXUrM0Q3clNyNzErRXpIcll4cENIMGFWeFJQeEZ5enY3cHlvLy8xM0hldFg4Y25QMjJTRWJHL3VFejVwTkZaNC9aUDdSbG5wZlV1c3Irb2RoOG9hU05MNEY2ZUVINmdKZ0o3RU9najZEdUI0bXh3OHgxNEdFQUF3YzJLTTBFb2UzL1FPa2ZVUG9MQXhTZ0JBeHJYbUp1YWpHUUlRQTJIQ0xJRXVRYjdBcGxjd1FWRjVZbUZxV21RUG5Ndm80d0taYmNrcUpLS0pzck15eXhxRGdlTElKcUEyZFJmcmtlekJhUWw1Z2FJTzVnUTNkS2NrNWlNY3dwTUVHdWxNU1NSTDIwSXFCK0lPOGZtaGIyL0lLU3pQdzhvQ1ltVU9TQ05ZQ2xJUmpaSU1ZaWFJZ3hPbWpBUWdMS0Y0RHprVFVJbE9hQlhKMmltNXhSbXBldGEyYUNKczlja0plT1pCOEQxSGVNMEFpQ3NWa2hUbWI2RDlYT0NRdTgxT1NNZkNpYkxUVXZQVE12RlJaZ2FabnBldVdaS1NVWnNEQUFDV1NrWnFabmxNQ0NLaWN4S1RVSDVwQ1UxRElva3c4WTF1Q2cxaXNveXN5RHFlWUNpaGJybGVTWEpNSzBjQ1huNThCRXdLSEs4QThBNUU1TXRVMERBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9227701","2":"0.7969551","3":"0.7862340","4":"2","5":"3.50"},{"1":"0.8099358","2":"0.8483816","3":"0.6769953","4":"3","5":"2.75"},{"1":"0.7421832","2":"0.8630545","3":"0.6039333","4":"4","5":"2.25"},{"1":"0.6930117","2":"0.8731645","3":"0.5593280","4":"5","5":"1.75"},{"1":"0.6735562","2":"0.8700246","3":"0.5386980","4":"6","5":"1.50"},{"1":"0.6748987","2":"0.8544430","3":"0.5340114","4":"7","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWXJNbGQ2ZDNveFpXMUdMMk4wWkRFNWJGaGlZalZuTHk5NlpFcFlXbGN4ZVdJM1dqRmFUeTlCU0dobGRscFFjREpVWkZOd0wxRlpMeXN3VjBoVU1tUTRXVFZqU0RCMlpUSndPVmhyVm5veVlpOVhOMk4xWVRCWU0wTXZkbGcyUlhoWEwzbzVLM2htT0UweU9TOXBkRGg0WWpKeUt5OUhjMmsyVldNM1NpOHpXSFJJVFN0aVJVVTBVU3N6Vms4M1NtcHFabk5ZTDJFME9HcFhaakV2Unk5MlNFMVFlR1I1WkZCTWMwZ3pOMlk1YlZKRFQweDJPVkU1WlVsVk5YVXZPWFJyTDFwSVZuZHlOek5vUVU1VVJFTTVTVWg0UlhoblNIZEtPVUpJVlM5VFNYZGtXbkUwUkVSM1RWbFBURUpDWVZOWlNXSm1PRWhUZGl0Qk1HdzRXVzlCUVd4WlJtcDZSVzVPVkdrMFJVMUJZa1JvUlVWSFYwbE9PV2RXZVdsaVNUWnBOSE5FVTNoTFJGVkdlVzFtTW1SWlVrcHpaVk5YUmtaV1F6SldlVnBaV1d4R2VHWkdaMFZXVVdKUFNYWjVlUzlXWjNSdlF6aDRUbEZCWTFGalluVnNUMU5qZUV0TVdWVTJRa05ZUzJ4S1NsbHJObkZWVmtGbVZVUmxaaTlSZEV4RWJrWTFVbXMxZFdOQ1RsUkhRa2xvWlhOQlUzZE9kMk5uUjAxU1drSlJOSHBTVVZGTlYwVnNReXRCU25sUWNrVkhaMDVCTDJzMmFGUmtOVWw2VTNaSGVHUk5lRTB3WldWaFEzWklVV3NyZUdsbmRtMVBSVkpvUTAxNlVYQjRUWFJPTDNGSVdrOVhUME5zU20xbWExRTViSE54V0c1d2JWaHRjSE5CUWt4NU1IcFlTemc1VFV0amJVRm9VVVpKU1VOTk1VMTZNbXBDUWxwVlQxbHNTbkZVYTNkb05sTnJiR3RIV21aTlEzZENaMlV4V0d0R1VscG9OVTFPVW1SUmRFWnBka3BNT0d0RllXRkdTM3ByTDBKNVdVTkViRmRIWm5kQmJucFNVR1ZVVVUxQlFVRTlQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjkyMzIyODlcXCxcXDJcXDpcXDAuNzk4Mzk5NlxcLFxcM1xcOlxcMC43ODY4Mzk4XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuODA0MDU3NlxcLFxcMlxcOlxcMC44NDkzMTExXFwsXFwzXFw6XFwwLjY3MzM3MDlcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43NDc5MDI5XFwsXFwyXFw6XFwwLjg2NTIwNzlcXCxcXDNcXDpcXDAuNjEyNTQ3M1xcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY5NDYxMTZcXCxcXDJcXDpcXDAuODc1ODA3N1xcLFxcM1xcOlxcMC41NjE0ODg2XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjc0MzY3NFxcLFxcMlxcOlxcMC44NzA3NzE5XFwsXFwzXFw6XFwwLjUzOTcxNTJcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NzAyOTg0XFwsXFwyXFw6XFwwLjg2MTA2NjlcXCxcXDNcXDpcXDAuNTMxODkxMFxcLFxcNFxcOlxcN1xcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnYrMld6d3oxZW1GL2N0ZDE5bFhiYjVnLy96ZEpYWlcxeWI3WjFaTy9BSGhldlpQcDJUZFNwL1FZLyswV0hUMmQ4WTVjSDB2ZTJwOVhrVnoyYi9XN2N1YTBYM0Mvdlg2RXhXL3o5K3hmOE0yOS9pdDh4YjJyKy9Hc2k2VWM3Si8zWHRITStiRUU0USszVk83SmpqZnNYL2E0OGpXZjEvRy92SE1QeGR5ZFBMc0gzN2Y5bVJDT0x2OVE5ZUlVNXUvOXRrL1pIVndyNzNoQU5UREM5SUh4RXhnSHdKOUJIVS9TSXdkWnE0RER3TVlPTEJCYVNZSWJmOEhTditBMGw4WW9BQWxZRmp6RW5OVGk0RU1BYkRoRUVHV0lOOWdWeWliSTZpNHNEU3hLRFVGeW1mMmRZUkpzZVNXRkZWQzJWeVpZWWxGeGZGZ0VWUWJPSXZ5eS9WZ3RvQzh4TlFBY1FjYnVsT1NjeEtMWVU2QkNYS2xKSllrNnFVVkFmVURlZi9RdExEbkY1Ums1dWNCTlRHQkloZXNBU3dOd2NnR01SWkJRNHpSUVFNV0VsQytBSnlQckVHZ05BL2s2aFRkNUl6U3ZHeGRNeE0wZWVhQ3ZIUWsreGlndm1PRVJoQ016UXB4TXROL3FIWk9XT0NsSm1ma1E5bHNxWG5wbVhtcHNBQkx5MHpYSzg5TUtjbUFoUUZJSUNNMU16MmpCQlpVT1lsSnFUa3doNlNrbGtHWmZNQ3dCZ2UxWGtGUlpoNU1OUmRRdEZpdkpMOGtFYWFGS3prL0J5WUNEbFdHZndBbnpSUGVUUU1BQUE9PSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9232289\,\2\:\0.7983996\,\3\:\0.7868398\,\4\:\2\,\5\:\3.50\},{\1\:\0.8040576\,\2\:\0.8493111\,\3\:\0.6733709\,\4\:\3\,\5\:\2.75\},{\1\:\0.7479029\,\2\:\0.8652079\,\3\:\0.6125473\,\4\:\4\,\5\:\2.25\},{\1\:\0.6946116\,\2\:\0.8758077\,\3\:\0.5614886\,\4\:\5\,\5\:\1.75\},{\1\:\0.6743674\,\2\:\0.8707719\,\3\:\0.5397152\,\4\:\6\,\5\:\1.50\},{\1\:\0.6702984\,\2\:\0.8610669\,\3\:\0.5318910\,\4\:\7\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGpneVppdEZPVzR4YkZNNWFUbG1LMFJ1ZEVaRWJHa3ZMM2hpZVRSNEwwdGxTREo2ZUdoWFZtdG1WV1kzUmk5WGRYUTBVMlJuY1hjdk5YQlJVSGRzYTJNNVZtTklNSFoxT1ZBck4yaEVZbGwyT1dGeVltWnNNRGhSVXlzNVpUZGtTM2xOYmxrM1duWXJSWHB6V2xweGNqZEtMMlptTDBrdk1rdHRZaTloZG5BeldqZ3ZabGxzUTJGR1VGUndMeTlSWVdsbUwyUk5UalZ1VlZCaWVHcFpVRFUyT1c0ck9YbENXVkE1ZHpaTlJqRjBOak5NZEhNdk1VWXhlVEZHVm5scGRqSkVRalZ1TjJJemRIQkJabGgzWjNaUlFrMVNVRmxvTUVGbVVXUXdVRVZ0VDBodFpYWkJkM2RCUjBSdGVGRnRaMnhETWk4clFqQnFLMmM1UW1OSFMwVkJTa2RPWVRoNFRucFZXV2xDUkVGSGR6UlNTa0ZzZVVSbVdVWmpjbTFEUTI5MVRFVXdjMU5yTWtJNGNHdzVTRmRHVTB4TWEyeFNXbFpSVG14a2JWZEhTbEpqVkhoWlFrNVZSM3B4VERoamFqSlpURk5CZGsxVVZrRXpUVWRITjNCVWEyNU5VbWx0Ums1bloyeDNjR2xUVjBwbGJXeEdVVkF4UVROcU9EQk1aWG8xUWxOWFdpdFliRUZVVlhsbmVVRldja0ZGZEVSTlRFcENha1ZZVVVWSFRqQXdTVU5HUWtwUmRrRlBZMnBoZUVGdmVsRlBOVTlyVlROUFlVMHdUREYyV0hwQlVrNXVjbXRuVEhnelNsQm5ZVzgzZUdsb1JWRlNhbk13UzJONlVGRm1jWEF3VkVadWFYQjVVbTQxVlVSYVltRnNOVFphYkRSeFRFMUVVMDEwVURGNWFrNVVVMnBLWjFsUlFWTjVSV3BPVkUwNGIyZFJWbFpVYlVwVFlXYzNUVWxUYlhCYVZrRnRTSHBEYzNkVlIzUldNVU5WYlZGa1ZIcFJWVlZNWkZseWVWTTVTbWhIYm1oVGN6ZFFaMWx0UVZFMVdHaElkMEZsVTJwcUwxUlJUVUZCUVQwOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuOTE5ODc3MFwiLFwiMlwiOlwiMC43OTgyNjY5XCIsXCIzXCI6XCIwLjc4NDkzNDZcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC44MDk2MDc2XCIsXCIyXCI6XCIwLjg0ODQ1NjJcIixcIjNcIjpcIjAuNjc3NzYwOFwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjc0ODg0MjVcIixcIjJcIjpcIjAuODY2NDc2MlwiLFwiM1wiOlwiMC42MTI3NjIwXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjg3NTgwOFwiLFwiMlwiOlwiMC44NzY3MzM5XCIsXCIzXCI6XCIwLjU1NTM1MTRcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NzE1NDAyXCIsXCIyXCI6XCIwLjg3MTA2NTZcIixcIjNcIjpcIjAuNTM2ODIxN1wiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY2NjA2MTNcIixcIjJcIjpcIjAuODYyMDAzOFwiLFwiM1wiOlwiMC41MjczOTQyXCIsXCI0XCI6XCI3XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adjgyZitFOW4xbFM5aTlmK0RudEZEbGkvL3hieTR4L0tlSDJ6eGhXVmtmVWY3Ri9XdXQ0U2RncXcvNXBRUHdsa2M5VmNIMHZ1OVArN2hEYll2OWFyYmZsMDhRUys5ZTdkS3lNblk3WnYrRXpzWlpxcjdKL2ZmL0kvMkttYi9hdnAzWjgvZllsQ2FGUFRwLy9RYWlmL2RNTjVuVVBieGpZUDU2OW4rOXlCWVA5dzZNRjF0NjNMdHMvMUYxeTFGVnlpdjJEQjVuN2IzdHBBZlh3Z3ZRQk1SUFloMEFmUWQwUEVtT0htZXZBd3dBR0RteFFtZ2xDMi8rQjBqK2c5QmNHS0VBSkdOYTh4TnpVWWlCREFHdzRSSkFseURmWUZjcm1DQ291TEUwc1NrMkI4cGw5SFdGU0xMa2xSWlZRTmxkbVdHSlJjVHhZQk5VR3pxTDhjajJZTFNBdk1UVkEzTUdHN3BUa25NUmltRk5nZ2x3cGlTV0plbWxGUVAxQTNqODBMZXo1QlNXWitYbEFUVXlneUFWckFFdERNTEpCakVYUUVHTjAwSUNGQkpRdkFPY2pheEFvelFPNU9rVTNPYU0wTDF2WHpBUk5ucmtnTHgzSlBnYW83eGloRVFSanMwS2N6UFFmcXAwVEZuaXB5Um41VURaYmFsNTZabDRxTE1EU010UDF5ak5UU2pKZ1lRQVN5RWpOVE04b2dRVlZUbUpTYWc3TUlTbXBaVkFtSHpDc3dVR3RWMUNVbVFkVHpRVVVMZFlyeVM5SmhHbmhTczdQZ1ltQVE1WGhId0FlU2pqL1RRTUFBQT09In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9198770","2":"0.7982669","3":"0.7849346","4":"2","5":"3.50"},{"1":"0.8096076","2":"0.8484562","3":"0.6777608","4":"3","5":"2.75"},{"1":"0.7488425","2":"0.8664762","3":"0.6127620","4":"4","5":"2.25"},{"1":"0.6875808","2":"0.8767339","3":"0.5553514","4":"5","5":"1.75"},{"1":"0.6715402","2":"0.8710656","3":"0.5368217","4":"6","5":"1.50"},{"1":"0.6660613","2":"0.8620038","3":"0.5273942","4":"7","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWTVNaXRvVVZJelpWbHNPV2s1ZGtoMEsyUXJkVEpRTDJaT1lrbHpSa2R6VjI0eWVqVk1hMlpxVHpVeU9XY3ZOMVJMTm14NVNUQjVMelZ3ZUVrMVJ6UjZVbmgxVERaWVltTXhZakZ5TWpsWkx5OWhjMjVXTlhVeVlXVXZaWFZPZEhCRmNqYzBibGwyTHpadWVtWjZaMk54THprMk5tWmxkVGxYYkROMGRTOXViVmxoWVdaYU5VUXdTMlp4WTA5bFpEVnhVRGRLT0hVMFJqVm1aR1oxU3k5bFRVcEVPRTEyTjB3MWFDOHdhazl5VjJWdE9FSnlOMmd5V21scmFqaFBObVJyTDJWTE9ETTVWalpxUVd4QlVFd3daMlpGUkU5Q1psRnFNRVZrVkRsSlJFWXliVXhyVDFCQmVHYzBUVUZIY0ZwclozUlFNR1pMVURCRVUyNDVhR2RCUzFWblIwaE9Vemg0VGt4UldYbENUVU5IVVhkU1dtZHVlVVJZWVVaemFuRkVhWGQwVEVWdmRGRlZTMG92V2pGNFJXMTRXa3BpVld4UlNscFlUbXhvYVZWWFJtTmxSRkpXUW5RMFEzcExURGxsUkRKUlRIbEZiRTFFZUVJeGN6WkZOVXA2YTJ0emFHcHJSa3B6YVZacmJHbFRjVXBrVjBKT1VWQTFVREZFTURoTFpWZ3hRMU50V2poSU1VMVJSV2xzZVhkQ2NrRXdRa05OWW5oR1owVkVWRVpIUW5jeFdWTkZSRFZCYmtFcmMyZGhRakJxZVZGeE1VNHdhM3BPU3pnM1NqRjZWWHBSTlVwclREaDBTMUkzUjA5QksyODBVa2RyUlhkT2FYWkZlVlY2TDI5a2J6VlpXVWRZYlhCNVVrUXlWM3B3WldGc1dpdGhiSGRuU1hOTVZFNWtjbnAzZW5CVFVVUkdaMWxuWjFsNlZYcFFVMDFGYkdoUk5WTlJiWEJsWWtGSVNrdFRWMmRhYkRoblNFUkhhSHBWWldkV1JtMVlhM2N4Vm5oQk1GZExPV3QyZVZOU1NtZFhjblZVT0VoS1owbFBSbEZhTDJkRlFYcENORTVrVlRCRVFVRkJQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjkyNDc1MzJcXCxcXDJcXDpcXDAuNzk3NjcwMlxcLFxcM1xcOlxcMC43ODc3NTA2XFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuODA3ODM0NVxcLFxcMlxcOlxcMC44NTA3NzE3XFwsXFwzXFw6XFwwLjY3NTc4NjhcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43NDUzNzEwXFwsXFwyXFw6XFwwLjg2NTM4NTdcXCxcXDNcXDpcXDAuNjExNDM1NlxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY5OTQ3NzdcXCxcXDJcXDpcXDAuODc0Nzc2NFxcLFxcM1xcOlxcMC41NjYxOTU3XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjczMTIwMFxcLFxcMlxcOlxcMC44NzE3NDAyXFwsXFwzXFw6XFwwLjUzNzg1MjNcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NjcwODAyXFwsXFwyXFw6XFwwLjg2MjA4NjBcXCxcXDNcXDpcXDAuNTI5MTk3MFxcLFxcNFxcOlxcN1xcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnY5MitoUVIzZVlsOWk5dkh0K2QrdTJQL2ZOYklzRkdzV24yejVMa2ZqTzUyOWcvN1RLNmx5STB5LzVweEk1RzR6Unh1TDZYYmMxYjFyMjlZLy9hc25WNXUyYWUvZXVOdHBFcjc0bll2LzZuemZ6Z2NxLzk2NmZldTlXbDN0dS9ubVlhYWZaNUQwS2ZxY09lZDVxUDdKOHU0RjVmZGZ1Sy9lTUpEOE12N0w1aC8wak9yV2VtOEJyN2gyWmlrajhPNmRrL2VLODM5VjZqQWxBUEwwZ2ZFRE9CZlFqMEVkVDlJREYybUxrT1BBeGc0TUFHcFprZ3RQMGZLUDBEU245aGdBS1VnR0hOUzh4TkxRWXlCTUNHUXdSWmdueURYYUZzanFEaXd0TEVvdFFVS0ovWjF4RW14WkpiVWxRSlpYTmxoaVVXRmNlRFJWQnQ0Q3pLTDllRDJRTHlFbE1EeEIxczZFNUp6a2tzaGprRkpzaVZrbGlTcUpkV0JOUVA1UDFEMDhLZVgxQ1NtWjhIMU1RRWlseXdCckEwQkNNYnhGZ0VEVEZHQncxWVNFRDVBbkErc2dhQjBqeVFxMU4wa3pOSzg3SjF6VXpRNUprTDh0S1I3R09BK280UkdrRXdOaXZFeVV6L29kbzVZWUdYbXB5UkQyV3pwZWFsWithbHdnSXNMVE5kcnp3enBTUURGZ1lnZ1l6VXpQU01FbGhRNVNRbXBlYkFISktTV2dabDhnSERHaHpVZWdWRm1Ya3cxVnhBMFdLOWt2eVNSSmdXcnVUOEhKZ0lPRlFaL2dFQXpCNE5kVTBEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9247532\,\2\:\0.7976702\,\3\:\0.7877506\,\4\:\2\,\5\:\3.50\},{\1\:\0.8078345\,\2\:\0.8507717\,\3\:\0.6757868\,\4\:\3\,\5\:\2.75\},{\1\:\0.7453710\,\2\:\0.8653857\,\3\:\0.6114356\,\4\:\4\,\5\:\2.25\},{\1\:\0.6994777\,\2\:\0.8747764\,\3\:\0.5661957\,\4\:\5\,\5\:\1.75\},{\1\:\0.6731200\,\2\:\0.8717402\,\3\:\0.5378523\,\4\:\6\,\5\:\1.50\},{\1\:\0.6670802\,\2\:\0.8620860\,\3\:\0.5291970\,\4\:\7\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGlzeVYzcDNlakZsYlVZdlkzUmtNVGxzV0dKaU5XY3ZMM3BrU2xoYVZ6RjVZamRhTVZwUEwwRklhR1YyV2xCd01sUmtVM0F2VVZrdkt6QlhTRlF5WkRoWk5XTklNSFpsTW5BNVdHdFdlakppTDFjM1kzVmhNRmd6UXk5MldEWkZlRmN2ZWprcmVHWTRUVEk1TDJsME9IaGlNbklyTDBkemFUWlZZemRLTHpOWWRFaE5LMkpGUlRSUkt6TldUemRLYW1wbWMxZ3ZZVFE0YWxkbU1TOUhMM1pJVFZCNFpIbGtVRXh6U0RNM1pqbHRVa05QVEhZNVVUbGxTVlUxZFM4NWRHc3ZXa2hXZDNJM00yaEJUbFJFUXpsSlNIaEZlR2RJZDBvNVFraFZMMU5KZDJSYWNUUkVSSGROV1U5TVFrSmhVMWxKWW1ZNFNGTjJLMEV3YkRoWmIwRkJiRmxHYW5wRmJrNVVhVFJGVFVGaVJHaEZSVWRYU1U0NVoxWjVhV0pKTm1rMGMwUlRlRXRFVlVaNWJXWXlaRmxTU25ObFUxZEdSbFpETWxaNVdsbFpiRVo0WmtablJWWlJZazlKZG5sNUwxWm5kRzlET0hoT1VVRmpVV05pZFd4UFUyTjRTMHhaVlRaQ1ExaExiRXBLV1dzMmNWVldRV1pWUkdWbUwxRjBURVJ1UmpWU2F6VjFZMEpPVkVkQ1NXaGxjMEZUZDA1M1kyZEhUVkphUWxFMGVsSlJVVTFYUld4REswRktlVkJ5UlVkblRrRXZhelpvVkdRMVNYcFRka2Q0WkUxNFRUQmxaV0ZEZGtoUmF5dDRhV2QyYlU5RlVtaERUWHBSY0hoTmRFNHZjVWhhVDFkUFEyeEtiV1pyVVRsc2MzRllibkJ0V0cxd2MwRkNUSGt3ZWxoTE9EbE5TMk50UVdoUlJrbEpRMDB4VFhveWFrSkNXbFZQV1d4S2NWUnJkMmcyVTJ0c2EwZGFaazFEZDBKblpURllhMFpTV21nMVRVNVNaRkYwUm1sMlNrdzRhMFZoWVVaTGVtc3ZRbmxaUTBSc1YwZG1kMEZ1ZWxKUVpWUlJUVUZCUVQwOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuOTIzMjI4OVwiLFwiMlwiOlwiMC43OTgzOTk2XCIsXCIzXCI6XCIwLjc4NjgzOThcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC44MDQwNTc2XCIsXCIyXCI6XCIwLjg0OTMxMTFcIixcIjNcIjpcIjAuNjczMzcwOVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjc0NzkwMjlcIixcIjJcIjpcIjAuODY1MjA3OVwiLFwiM1wiOlwiMC42MTI1NDczXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjk0NjExNlwiLFwiMlwiOlwiMC44NzU4MDc3XCIsXCIzXCI6XCIwLjU2MTQ4ODZcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NzQzNjc0XCIsXCIyXCI6XCIwLjg3MDc3MTlcIixcIjNcIjpcIjAuNTM5NzE1MlwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY3MDI5ODRcIixcIjJcIjpcIjAuODYxMDY2OVwiLFwiM1wiOlwiMC41MzE4OTEwXCIsXCI0XCI6XCI3XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adisyV3p3ejFlbUYvY3RkMTlsWGJiNWcvL3pkSlhaVzF5YjdaMVpPL0FIaGV2WlBwMlRkU3AvUVkvKzBXSFQyZDhZNWNIMHZlMnA5WGtWejJiL1c3Y3VhMFgzQy92WDZFeFcvejkreGY4TTI5L2l0OHhiMnIrL0dzaTZVYzdKLzNYdEhNK2JFRTRRKzNWTzdKampmc1gvYTQ4aldmMS9HL3ZITVB4ZHlkUExzSDM3ZjltUkNPTHY5UTllSVU1dS85dGsvWkhWd3I3M2hBTlREQzlJSHhFeGdId0o5QkhVL1NJd2RacTRERHdNWU9MQkJhU1lJYmY4SFN2K0EwbDhZb0FBbFlGanpFbk5UaTRFTUFiRGhFRUdXSU45Z1Z5aWJJNmk0c0RTeEtEVUZ5bWYyZFlSSnNlU1dGRlZDMlZ5WllZbEZ4ZkZnRVZRYk9Jdnl5L1ZndG9DOHhOUUFjUWNidWxPU2N4S0xZVTZCQ1hLbEpKWWs2cVVWQWZVRGVmL1F0TERuRjVSazV1Y0JOVEdCSWhlc0FTd053Y2dHTVJaQlE0elJRUU1XRWxDK0FKeVByRUdnTkEvazZoVGQ1SXpTdkd4ZE14TTBlZWFDdkhRayt4aWd2bU9FUmhDTXpRcHhNdE4vcUhaT1dPQ2xKbWZrUTlsc3FYbnBtWG1wc0FCTHkwelhLODlNS2NtQWhRRklJQ00xTXoyakJCWlVPWWxKcVRrd2g2U2tsa0daZk1Dd0JnZTFYa0ZSWmg1TU5SZFF0Rml2Skw4a0VhYUZLemsvQnlZQ0RsV0dmd0FuelJQZVRRTUFBQT09In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9232289","2":"0.7983996","3":"0.7868398","4":"2","5":"3.50"},{"1":"0.8040576","2":"0.8493111","3":"0.6733709","4":"3","5":"2.75"},{"1":"0.7479029","2":"0.8652079","3":"0.6125473","4":"4","5":"2.25"},{"1":"0.6946116","2":"0.8758077","3":"0.5614886","4":"5","5":"1.75"},{"1":"0.6743674","2":"0.8707719","3":"0.5397152","4":"6","5":"1.50"},{"1":"0.6702984","2":"0.8610669","3":"0.5318910","4":"7","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWTVNbGRqTUhrM05XNWhPV2s1Wmxvck5ISk5kVWQ2WmpNMWFXcDFZVGRQVW5aemJpdFdORWRPZUhsWFIySXZkRWhtU3l0ak4zSkZabHBRYTNkeFMwUTFPVXRuZFhRM01sUkxWbTlVV0RkcmRqRnlWR0Z1TnlzdmVVWTNSaTkyZFRaS05qaG5LMUV2ZFc5VUwweDBhMjB2TTNKQ05uTlpka3haZFhOSU9EbG1aRzl1UVhwclVtaEVObFJ6ZDI1a05qSXZZbEF4TVRkaFptODNVbmd2TjNnck1rZEZlbkl5WXpsdkx6QnliM2N2TW5ocWRsQXhSRXMwWVVweU5XNUVOMEk1T0ZOcWJrWnJlbWRTY1VsaldIQkJLMGx0WTBFclFsQnZTVFp1TmxGSFJIWk5XRUZqWlVKcVFuZFpTVkJUVkVKRVlTOW5LMVV2WjBkc2RucENRVUZWY2tGelQxbHNOWEZaVjBGNGEwTlpUVTFvWjJsNFFuWnpSM1ZWUkZwSVZVaEdhR0ZYU2xKaFozRlZlaXQ2Y2tOS1RtbDVVekJ3Y1c5VGVYVlVURVJGYjNWTE5EaEZhWEZFV25kR2RWZFlOamhHYzBGWWJVcHhVVWhwUkdwYU1IQjVWRzVLUW1KRWJrRkpWRFZGY0VwTVJXNVZVM2x6UXpablpua3ZjVVp3V1dNNGRrdE5iazE2ZDA1eFdXZEtSa3hzWjBSWFFuRkRhMUV4YVV4SlMwZEhTMDlFUW1sM2EyOUlkMEpQUWpsYVp6QkNjRWh6YWxaTFluSktSMkZXTlRKaWNHMUtiV3A1ZWtGV05UWlZhakpOVlVJNWVIZHBUa2xDYVdKR1pVcHJjSFk1VVRkYWVYZDNSWFJPZW5OcFNITjBiRk00T1VsNk9ERkthRUZhWVZkdFlUVllibkJzVTJ0blJVeEJOVUpCVW0xd2JXVnJXVXBNUzJoNVJYQk9VMk15UVU5VFZXdDBaM3BNTldkSFJVNUViWEU1WjNGTVRWQkthSEZNY1VKdmMxWTFTbVpyYTJsVVFYUllZMjQwVDFSQlVXTnhaM292UVU5eVdVcFpkRTVCZDBGQkluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuOTI2NTczMVxcLFxcMlxcOlxcMC43OTc0MzQzXFwsXFwzXFw6XFwwLjc4NzY5NTZcXCxcXDRcXDpcXDJcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC44MDk5ODY5XFwsXFwyXFw6XFwwLjg0ODc2NzdcXCxcXDNcXDpcXDAuNjc3NDY4NlxcLFxcNFxcOlxcM1xcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjc0MzIzODVcXCxcXDJcXDpcXDAuODY3MDQ0NVxcLFxcM1xcOlxcMC42MTAyNTMxXFwsXFw0XFw6XFw0XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNzAwNzE4MFxcLFxcMlxcOlxcMC44NzM2OTM2XFwsXFwzXFw6XFwwLjU2NzcyNjRcXCxcXDRcXDpcXDVcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC42NzM1MzI5XFwsXFwyXFw6XFwwLjg3MTE3NDhcXCxcXDNcXDpcXDAuNTM4MzMwM1xcLFxcNFxcOlxcNlxcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjY2ODI2NjVcXCxcXDJcXDpcXDAuODYyMjU0NlxcLFxcM1xcOlxcMC41Mjk1ODkxXFwsXFw0XFw6XFw3XFwsXFw1XFw6XFwxLjI1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNl19LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnY5MldjMHk3NW5hOWk5ZlorNHJNdUd6ZjM1aWp1YTdPUnZzbitWNEdOeHlXR2IvdEhmSytjN3JFZlpQa3dxS0Q1OUtndXQ3MlRLVm9UWDdrdjFyVGFuNysveUY3Ri92dTZKNjhnK1EvdW9UL0x0a20vM3JCNnNZdkxZdXNIODlmZG9uQXprUmhENlRzd25kNjIvYlAxMTdhZm83UngvN3grMkdFenIyYzlvLzByb3cvMnhqdlAxREs0YUpyNW5EN0I5OFNqbkZremdScUljWHBBK0ltY0ErQlBvSTZuNlFHRHZNWEFjZUJqQndZSVBTVEJEYS9nK1UvZ0dsdnpCQUFVckFzT1lsNXFZV0F4a0NZTU1oZ2l4QnZzR3VVRFpIVUhGaGFXSlJhZ3FVeit6ckNKTml5UzBwcW9TeXVUTERFb3VLNDhFaXFEWndGdVdYNjhGc0FYbUpxUUhpRGpaMHB5VG5KQmJEbkFJVDVFcEpMRW5VU3lzQzZnZnkvcUZwWWM4dktNbk16d05xWWdKRkxsZ0RXQnFDa1ExaUxJS0dHS09EQml3a29Id0JPQjlaZzBCcEhzalZLYnJKR2FWNTJicG1KbWp5ekFWNTZVajJNVUI5eHdpTklCaWJGZUprcHY5UTdaeXd3RXROenNpSHN0bFM4OUl6ODFKaEFaYVdtYTVYbnBsU2tnRUxBNUJBUm1wbWVrWUpMS2h5RXBOU2MyQU9TVWt0Z3pMNWdHRU5EbXE5Z3FMTVBKaHFMcUJvc1Y1SmZra2lUQXRYY240T1RBUWNxZ3ovQU9yWUpZdE5Bd0FBIn0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9265731\,\2\:\0.7974343\,\3\:\0.7876956\,\4\:\2\,\5\:\3.50\},{\1\:\0.8099869\,\2\:\0.8487677\,\3\:\0.6774686\,\4\:\3\,\5\:\2.75\},{\1\:\0.7432385\,\2\:\0.8670445\,\3\:\0.6102531\,\4\:\4\,\5\:\2.25\},{\1\:\0.7007180\,\2\:\0.8736936\,\3\:\0.5677264\,\4\:\5\,\5\:\1.75\},{\1\:\0.6735329\,\2\:\0.8711748\,\3\:\0.5383303\,\4\:\6\,\5\:\1.50\},{\1\:\0.6682665\,\2\:\0.8622546\,\3\:\0.5295891\,\4\:\7\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGpreUsyaFJVak5sV1d3NWFUbDJTSFFyWkN0MU1sQXZaazVpU1hOR1IzTlhiako2TlV4clptcFBOVEk1Wnk4M1ZFczJiSGxKTUhrdk5YQjRTVFZITkhwU2VIVk1ObGhpWXpGaU1YSXlPVmt2TDJGemJsWTFkVEpoWlM5bGRVNTBjRVZ5TnpSdVdYWXZObTU2Wm5wblkzRXZPVFkyWm1WMU9WZHNNM1IxTDI1dFdXRmhabG8xUkRCTFpuRmpUMlZrTlhGUU4wbzRkVFJHTldaa1puVkxMMlZOU2tRNFRYWTNURFZvTHpCcVQzSlhaVzA0UW5JM2FESmFhV3RxT0U4MlpHc3ZaVXM0TXpsV05tcEJiRUZRVERCblprVkVUMEptVVdvd1JXUlVPVWxFUmpKdFRHdFBVRUY0WnpSTlFVZHdXbXRuZEZBd1prdFFNRVJUYmpsb1owRkxWV2RIU0U1VE9IaE9URkZaZVVKTlEwZFJkMUphWjI1NVJGaGhSbk5xY1VScGQzUk1SVzkwVVZWTFNpOWFNWGhGYlhoYVNtSlZiRkZLV2xoT2JHaHBWVmRHWTJWRVVsWkNkRFJEZWt0TU9XVkVNbEZNZVVWc1RVUjRRakZ6TmtVMVNucHJhM05vYW10R1NuTnBWbXRzYVZOeFNtUlhRazVSVURWUU1VUXdPRXRsV0RGRFUyMWFPRWd4VFZGRmFXeDVkMEp5UVRCQ1EwMWllRVpuUlVSVVJrZENkekZaVTBWRU5VRnVRU3R6WjJGQ01HcDVVWEV4VGpCcmVrNUxPRGRLTVhwVmVsRTFTbXRNT0hSTFVqZEhUMEVyYnpSU1IydEZkMDVwZGtWNVZYb3ZiMlJ2TlZsWlIxaHRjSGxTUkRKWGVuQmxZV3hhSzJGc2QyZEpjMHhVVG1SeWVuZDZjRk5SUkVabldXZG5XWHBWZWxCVFRVVnNhRkUxVTFGdGNHVmlRVWhLUzFOWFoxcHNPR2RJUkVkb2VsVmxaMVpHYlZocmR6RldlRUV3VjBzNWEzWjVVMUpLWjFkeWRWUTRTRXBuU1U5R1VWb3ZaMFZCZWtJMFRtUlZNRVJCUVVFOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuOTI0NzUzMlwiLFwiMlwiOlwiMC43OTc2NzAyXCIsXCIzXCI6XCIwLjc4Nzc1MDZcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC44MDc4MzQ1XCIsXCIyXCI6XCIwLjg1MDc3MTdcIixcIjNcIjpcIjAuNjc1Nzg2OFwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjc0NTM3MTBcIixcIjJcIjpcIjAuODY1Mzg1N1wiLFwiM1wiOlwiMC42MTE0MzU2XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNjk5NDc3N1wiLFwiMlwiOlwiMC44NzQ3NzY0XCIsXCIzXCI6XCIwLjU2NjE5NTdcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NzMxMjAwXCIsXCIyXCI6XCIwLjg3MTc0MDJcIixcIjNcIjpcIjAuNTM3ODUyM1wiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY2NzA4MDJcIixcIjJcIjpcIjAuODYyMDg2MFwiLFwiM1wiOlwiMC41MjkxOTcwXCIsXCI0XCI6XCI3XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adjkyK2hRUjNlWWw5aTl2SHQrZCt1MlAvZk5iSXNGR3NXbjJ6NUxrZmpPNTI5Zy83VEs2bHlJMHkvNXB4STVHNHpSeHVMNlhiYzFiMXIyOVkvL2FzblY1dTJhZS9ldU50cEVyNzRuWXYvNm56ZnpnY3EvOTY2ZmV1OVdsM3R1L25tWWFhZlo1RDBLZnFjT2VkNXFQN0o4dTRGNWZkZnVLL2VNSkQ4TXY3TDVoLzBqT3JXZW04QnI3aDJaaWtqOE82ZGsvZUs4MzlWNmpBbEFQTDBnZkVET0JmUWowRWRUOUlERjJtTGtPUEF4ZzRNQUdwWmtndFAwZktQMERTbjloZ0FLVWdHSE5TOHhOTFFZeUJNQ0dRd1JaZ255RFhhRnNqcURpd3RMRW90UVVLSi9aMXhFbXhaSmJVbFFKWlhObGhpVVdGY2VEUlZCdDRDektMOWVEMlFMeUVsTUR4QjFzNkU1Snpra3NoamtGSnNpVmtsaVNxSmRXQk5RUDVQMUQwOEtlWDFDU21aOEgxTVFFaWx5d0JyQTBCQ01ieEZnRURURkdCdzFZU0VENUFuQStzZ2FCMGp5UXExTjBrek5LODdKMXpVelE1SmtMOHRLUjdHT0ErbzRSR2tFd05pdkV5VXovb2RvNVlZR1htcHlSRDJXenBlYWxaK2Fsd2dJc0xUTmRyend6cFNRREZnWWdnWXpVelBTTUVsaFE1U1FtcGViQUhKS1NXZ1psOGdIREdoelVlZ1ZGbVhrdzFWeEEwV0s5a3Z5U1JKZ1dydVQ4SEpnSU9GUVovZ0VBekI0TmRVMERBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9247532","2":"0.7976702","3":"0.7877506","4":"2","5":"3.50"},{"1":"0.8078345","2":"0.8507717","3":"0.6757868","4":"3","5":"2.75"},{"1":"0.7453710","2":"0.8653857","3":"0.6114356","4":"4","5":"2.25"},{"1":"0.6994777","2":"0.8747764","3":"0.5661957","4":"5","5":"1.75"},{"1":"0.6731200","2":"0.8717402","3":"0.5378523","4":"6","5":"1.50"},{"1":"0.6670802","2":"0.8620860","3":"0.5291970","4":"7","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOaXdpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5pRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTlduWTVNaXRuVDA4M1dERlFOMFlyS3pKRVRIcHdNWEZOTDJaUVpHWlpjRXhzU1ROMGJqVlhjRFZsWm5ScU4wNHZUMnBRT0VFM2RFOXFVRE5VZDBSaFRFSmlSWEJqU0RCMlNqZDNWMUJDV0dkaVpqbGhlUzl3VFZoQlpVd3ZaWE5VVlRaMVVFMUhlVEJtTHpNMU5HOTJZak42WmxsMk56ZE9XVll5TW1RM0x6azJlbTF0YUdndlZuZG9SRFkxUW1KbE5VWkNkWE51S3paMFQxQTRla1IwVkRkQ0sxZzJWVGxOVGs1VGVHWXlVM2xWZVROWFNXTjZLMjlpZEZsaWRYRjJlR1paVUVoeU9ETm1hRFZ0UVhSVVJFTTVTVWg0UlhoblNIZEtPVUpJVlM5VFNYZGtXbkUwUkVSM1RWbFBURUpDWVZOWlNXSm1PRWhUZGl0Qk1HdzRXVzlCUVd4WlJtcDZSVzVPVkdrMFJVMUJZa1JvUlVWSFYwbE9PV2RXZVdsaVNUWnBOSE5FVTNoTFJGVkdlVzFtTW1SWlVrcHpaVk5YUmtaV1F6SldlVnBaV1d4R2VHWkdaMFZXVVdKUFNYWjVlUzlXWjNSdlF6aDRUbEZCWTFGalluVnNUMU5qZUV0TVdWVTJRa05ZUzJ4S1NsbHJObkZWVmtGbVZVUmxaaTlSZEV4RWJrWTFVbXMxZFdOQ1RsUkhRa2xvWlhOQlUzZE9kMk5uUjAxU1drSlJOSHBTVVZGTlYwVnNReXRCU25sUWNrVkhaMDVCTDJzMmFGUmtOVWw2VTNaSGVHUk5lRTB3WldWaFEzWklVV3NyZUdsbmRtMVBSVkpvUTAxNlVYQjRUWFJPTDNGSVdrOVhUME5zU20xbWExRTViSE54V0c1d2JWaHRjSE5CUWt4NU1IcFlTemc1VFV0amJVRm9VVVpKU1VOTk1VMTZNbXBDUWxwVlQxbHNTbkZVYTNkb05sTnJiR3RIV21aTlEzZENaMlV4V0d0R1VscG9OVTFPVW1SUmRFWnBka3BNT0d0RllXRkdTM3ByTDBKNVdVTkViRmRIWm5kRVVHMUZNalJVVVUxQlFVRTlQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjkyNDc4OTRcXCxcXDJcXDpcXDAuNzk4OTQwMlxcLFxcM1xcOlxcMC43ODQ5ODkzXFwsXFw0XFw6XFwyXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuODA5NjU2NFxcLFxcMlxcOlxcMC44NDg5MDU1XFwsXFwzXFw6XFwwLjY3NjQ1NjhcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC43NDE2NDQ5XFwsXFwyXFw6XFwwLjg2ODIzNTNcXCxcXDNcXDpcXDAuNjA4MTc3MFxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjcwMTkyMjZcXCxcXDJcXDpcXDAuODczNTEzMlxcLFxcM1xcOlxcMC41Njg5MzU5XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjc0OTY4N1xcLFxcMlxcOlxcMC44NzA0ODczXFwsXFwzXFw6XFwwLjUzOTkyNzdcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NjYyMDE3XFwsXFwyXFw6XFwwLjg2MjgxODNcXCxcXDNcXDpcXDAuNTI3ODI0MFxcLFxcNFxcOlxcN1xcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzZdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NiwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNiDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWnY5MitnT083WDFQN0YrKzJETHpwMXFNL2ZQZGZZcExsSTN0bjVXcDVlZnRqN04vT2pQOEE3dE9qUDNUd0RhTEJiRXBjSDB2Sjd3V1BCWGdiZjlheS9wTVhBZUwvZXNUVTZ1UE1HeTBmLzM1NG92YjN6Zll2NzdOWVYyMmQ3Lzk2em1taGgvVndoRDY1QmJlNUZCdXNuKzZ0T1A4ekR0VDdCK1g2VTlNTk5TeGYyU3lVeTNXSWN6K29idFlidXF2eGZZUEhyODNmaDVtQXRUREM5SUh4RXhnSHdKOUJIVS9TSXdkWnE0RER3TVlPTEJCYVNZSWJmOEhTditBMGw4WW9BQWxZRmp6RW5OVGk0RU1BYkRoRUVHV0lOOWdWeWliSTZpNHNEU3hLRFVGeW1mMmRZUkpzZVNXRkZWQzJWeVpZWWxGeGZGZ0VWUWJPSXZ5eS9WZ3RvQzh4TlFBY1FjYnVsT1NjeEtMWVU2QkNYS2xKSllrNnFVVkFmVURlZi9RdExEbkY1Ums1dWNCTlRHQkloZXNBU3dOd2NnR01SWkJRNHpSUVFNV0VsQytBSnlQckVHZ05BL2s2aFRkNUl6U3ZHeGRNeE0wZWVhQ3ZIUWsreGlndm1PRVJoQ016UXB4TXROL3FIWk9XT0NsSm1ma1E5bHNxWG5wbVhtcHNBQkx5MHpYSzg5TUtjbUFoUUZJSUNNMU16MmpCQlpVT1lsSnFUa3doNlNrbGtHWmZNQ3dCZ2UxWGtGUlpoNU1OUmRRdEZpdkpMOGtFYWFGS3prL0J5WUNEbFdHZndEUG1FMjRUUU1BQUE9PSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.9247894\,\2\:\0.7989402\,\3\:\0.7849893\,\4\:\2\,\5\:\3.50\},{\1\:\0.8096564\,\2\:\0.8489055\,\3\:\0.6764568\,\4\:\3\,\5\:\2.75\},{\1\:\0.7416449\,\2\:\0.8682353\,\3\:\0.6081770\,\4\:\4\,\5\:\2.25\},{\1\:\0.7019226\,\2\:\0.8735132\,\3\:\0.5689359\,\4\:\5\,\5\:\1.75\},{\1\:\0.6749687\,\2\:\0.8704873\,\3\:\0.5399277\,\4\:\6\,\5\:\1.50\},{\1\:\0.6662017\,\2\:\0.8628183\,\3\:\0.5278240\,\4\:\7\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[6]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGpreVYyTXdlVGMxYm1FNWFUbG1XaXMwY2sxMVIzcG1NelZwYW5WaE4wOVNkbk51SzFZMFIwNTRlVmRIWWk5MFNHWkxLMk0zY2tWbVdsQnJkM0ZMUkRVNVMyZDFkRGN5VkV0V2IxUllOMnQyTVhKVVlXNDNLeTk1UmpkR0wzWjFOa28yT0djclVTOTFiMVF2VEhScmJTOHpja0kyYzFsMlRGbDFjMGc0T1daa2IyNUJlbXRTYUVRMlZITjNibVEyTWk5aVVERXhOMkZtYnpkU2VDODNlQ3N5UjBWNmNqSmpPVzh2TUhKdmR5OHllR3AyVURGRVN6UmhTbkkxYmtRM1FqazRVMnB1Um10NloxSnhTV05ZY0VFclNXMWpRU3RDVUc5Sk5tNDJVVWRFZGsxWVFXTmxRbXBDZDFsSlVGTlVRa1JoTDJjclZTOW5SMngyZWtKQlFWVnlRWE5QV1d3MWNWbFhRWGhyUTFsTlRXaG5hWGhDZG5OSGRWVkVXa2hWU0Vab1lWZEtVbUZuY1ZWNkszcHlRMHBPYVhsVE1IQnhiMU41ZFZSTVJFVnZkVXMwT0VWcGNVUmFkMFoxVjFnMk9FWnpRVmh0U25GUlNHbEVhbG93Y0hsVWJrcENZa1J1UVVsVU5VVndTa3hGYmxWVGVYTkRObWRtZVM5eFJuQlpZemgyUzAxdVRYcDNUbkZaWjBwR1RHeG5SRmRDY1VOclVURnBURWxMUjBkTFQwUkNhWGRyYjBoM1FrOUNPVnBuTUVKd1NITnFWa3RpY2twSFlWWTFNbUp3YlVwdGFubDZRVlkxTmxWcU1rMVZRamw0ZDJsT1NVSnBZa1psU210d2RqbFJOMXA1ZDNkRmRFNTZjMmxJYzNSc1V6ZzVTWG80TVVwb1FWcGhWMjFoTlZodWNHeFRhMmRGVEVFMVFrRlNiWEJ0Wld0WlNreExhSGxGY0U1VFl6SkJUMU5WYTNSbmVrdzFaMGRGVGtSdGNUbG5jVXhOVUVwb2NVeHhRbTl6VmpWS1ptdHJhVlJCZEZoamJqUlBWRUZSWTNGbmVpOUJUM0paU2xsMFRrRjNRVUVpZlE9PSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC45MjY1NzMxXCIsXCIyXCI6XCIwLjc5NzQzNDNcIixcIjNcIjpcIjAuNzg3Njk1NlwiLFwiNFwiOlwiMlwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjgwOTk4NjlcIixcIjJcIjpcIjAuODQ4NzY3N1wiLFwiM1wiOlwiMC42Nzc0Njg2XCIsXCI0XCI6XCIzXCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNzQzMjM4NVwiLFwiMlwiOlwiMC44NjcwNDQ1XCIsXCIzXCI6XCIwLjYxMDI1MzFcIixcIjRcIjpcIjRcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC43MDA3MTgwXCIsXCIyXCI6XCIwLjg3MzY5MzZcIixcIjNcIjpcIjAuNTY3NzI2NFwiLFwiNFwiOlwiNVwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjY3MzUzMjlcIixcIjJcIjpcIjAuODcxMTc0OFwiLFwiM1wiOlwiMC41MzgzMzAzXCIsXCI0XCI6XCI2XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNjY4MjY2NVwiLFwiMlwiOlwiMC44NjIyNTQ2XCIsXCIzXCI6XCIwLjUyOTU4OTFcIixcIjRcIjpcIjdcIixcIjVcIjpcIjEuMjVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls2XX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adjkyV2MweTc1bmE5aTlmWis0ck11R3pmMzVpanVhN09SdnNuK1Y0R054eVdHYi90SGZLK2M3ckVmWlBrd3FLRDU5S2d1dDcyVEtWb1RYN2t2MXJUYW43Ky95RjdGL3Z1Nko2OGcrUS91b1QvTHRrbS8zckI2c1l2TFl1c0g4OWZkb25BemtSaEQ2VHN3bmQ2Mi9iUDExN2FmbzdSeC83eCsyR0V6cjJjOW8vMHJvdy8yeGp2UDFESzRhSnI1bkQ3Qjk4U2puRmt6Z1JxSWNYcEErSW1jQStCUG9JNm42UUdEdk1YQWNlQmpCd1lJUFNUQkRhL2crVS9nR2x2ekJBQVVyQXNPWWw1cVlXQXhrQ1lNTWhnaXhCdnNHdVVEWkhVSEZoYVdKUmFncVV6K3pyQ0pOaXlTMHBxb1N5dVRMREVvdUs0OEVpcURad0Z1V1g2OEZzQVhtSnFRSGlEalowcHlUbkpCYkRuQUlUNUVwSkxFblVTeXNDNmdmeS9xRnBZYzh2S01uTXp3TnFZZ0pGTGxnRFdCcUNrUTFpTElLR0dLT0RCaXdrb0h3Qk9COVpnMEJwSHNqVktickpHYVY1MmJwbUptanl6QVY1NlVqMk1VQjl4d2lOSUJpYkZlSmtwdjlRN1p5d3dFdE56c2lIc3RsUzg5SXo4MUpoQVphV21hNVhucGxTa2dFTEE1QkFSbXBtZWtZSkxLaHlFcE5TYzJBT1NVa3Rnekw1Z0dFTkRtcTlncUxNUEpocUxxQm9zVjVKZmtraVRBdFhjbjRPVEFRY3Fnei9BT3JZSll0TkF3QUEifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9265731","2":"0.7974343","3":"0.7876956","4":"2","5":"3.50"},{"1":"0.8099869","2":"0.8487677","3":"0.6774686","4":"3","5":"2.75"},{"1":"0.7432385","2":"0.8670445","3":"0.6102531","4":"4","5":"2.25"},{"1":"0.7007180","2":"0.8736936","3":"0.5677264","4":"5","5":"1.75"},{"1":"0.6735329","2":"0.8711748","3":"0.5383303","4":"6","5":"1.50"},{"1":"0.6682665","2":"0.8622546","3":"0.5295891","4":"7","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjRnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqb3hNaXdpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjoxMiwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qWXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTmlERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFhZGpreUsyZFBUemRZTVZBM1Jpc3JNa1JNZW5BeGNVMHZabEJrWmxsd1RHeEpNM1J1TlZkd05XVm1kR28zVGk5UGFsQTRRVGQwVDJwUU0xUjNSR0ZNUW1KRmNHTklNSFpLTjNkWFVFSllaMkptT1dGNUwzQk5XRUZsVEM5bGMxUlZOblZRVFVkNU1HWXZNelUwYjNaaU0zcG1XWFkzTjA1WlZqSXlaRGN2T1RaNmJXMW9hQzlXZDJoRU5qVkNZbVUxUmtKMWMyNHJOblJQVURoNlJIUlVOMElyV0RaVk9VMU9UbE40WmpKVGVWVjVNMWRKWTNvcmIySjBXV0oxY1haNFpsbFFTSEk0TTJab05XMUJkRlJFUXpsSlNIaEZlR2RJZDBvNVFraFZMMU5KZDJSYWNUUkVSSGROV1U5TVFrSmhVMWxKWW1ZNFNGTjJLMEV3YkRoWmIwRkJiRmxHYW5wRmJrNVVhVFJGVFVGaVJHaEZSVWRYU1U0NVoxWjVhV0pKTm1rMGMwUlRlRXRFVlVaNWJXWXlaRmxTU25ObFUxZEdSbFpETWxaNVdsbFpiRVo0WmtablJWWlJZazlKZG5sNUwxWm5kRzlET0hoT1VVRmpVV05pZFd4UFUyTjRTMHhaVlRaQ1ExaExiRXBLV1dzMmNWVldRV1pWUkdWbUwxRjBURVJ1UmpWU2F6VjFZMEpPVkVkQ1NXaGxjMEZUZDA1M1kyZEhUVkphUWxFMGVsSlJVVTFYUld4REswRktlVkJ5UlVkblRrRXZhelpvVkdRMVNYcFRka2Q0WkUxNFRUQmxaV0ZEZGtoUmF5dDRhV2QyYlU5RlVtaERUWHBSY0hoTmRFNHZjVWhhVDFkUFEyeEtiV1pyVVRsc2MzRllibkJ0V0cxd2MwRkNUSGt3ZWxoTE9EbE5TMk50UVdoUlJrbEpRMDB4VFhveWFrSkNXbFZQV1d4S2NWUnJkMmcyVTJ0c2EwZGFaazFEZDBKblpURllhMFpTV21nMVRVNVNaRkYwUm1sMlNrdzRhMFZoWVVaTGVtc3ZRbmxaUTBSc1YwZG1kMFJRYlVVeU5GUlJUVUZCUVQwOUluMD0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuOTI0Nzg5NFwiLFwiMlwiOlwiMC43OTg5NDAyXCIsXCIzXCI6XCIwLjc4NDk4OTNcIixcIjRcIjpcIjJcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiMC44MDk2NTY0XCIsXCIyXCI6XCIwLjg0ODkwNTVcIixcIjNcIjpcIjAuNjc2NDU2OFwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjc0MTY0NDlcIixcIjJcIjpcIjAuODY4MjM1M1wiLFwiM1wiOlwiMC42MDgxNzcwXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNzAxOTIyNlwiLFwiMlwiOlwiMC44NzM1MTMyXCIsXCIzXCI6XCIwLjU2ODkzNTlcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiMC42NzQ5Njg3XCIsXCIyXCI6XCIwLjg3MDQ4NzNcIixcIjNcIjpcIjAuNTM5OTI3N1wiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjY2NjIwMTdcIixcIjJcIjpcIjAuODYyODE4M1wiLFwiM1wiOlwiMC41Mjc4MjQwXCIsXCI0XCI6XCI3XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNl19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjYsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNiDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1adjkyK2dPTzdYMVA3RisrMkRMenAxcU0vZlBkZllwTGxJM3RuNVdwNWVmdGo3Ti9PalA4QTd0T2pQM1R3RGFMQmJFcGNIMHZKN3dXUEJYZ2JmOWF5L3BNWEFlTC9lc1RVNnVQTUd5MGYvMzU0b3ZiM3pmWXY3N05ZVjIyZDcvOTZ6bW1oaC9Wd2hENjVCYmU1RkJ1c24rNnRPUDh6RHRUN0IrWDZVOU1OTlN4ZjJTeVV5M1dJY3orb2J0WWJ1cXZ4ZllQSHI4M2ZoNW1BdFREQzlJSHhFeGdId0o5QkhVL1NJd2RacTRERHdNWU9MQkJhU1lJYmY4SFN2K0EwbDhZb0FBbFlGanpFbk5UaTRFTUFiRGhFRUdXSU45Z1Z5aWJJNmk0c0RTeEtEVUZ5bWYyZFlSSnNlU1dGRlZDMlZ5WllZbEZ4ZkZnRVZRYk9Jdnl5L1ZndG9DOHhOUUFjUWNidWxPU2N4S0xZVTZCQ1hLbEpKWWs2cVVWQWZVRGVmL1F0TERuRjVSazV1Y0JOVEdCSWhlc0FTd053Y2dHTVJaQlE0elJRUU1XRWxDK0FKeVByRUdnTkEvazZoVGQ1SXpTdkd4ZE14TTBlZWFDdkhRayt4aWd2bU9FUmhDTXpRcHhNdE4vcUhaT1dPQ2xKbWZrUTlsc3FYbnBtWG1wc0FCTHkwelhLODlNS2NtQWhRRklJQ00xTXoyakJCWlVPWWxKcVRrd2g2U2tsa0daZk1Dd0JnZTFYa0ZSWmg1TU5SZFF0Rml2Skw4a0VhYUZLemsvQnlZQ0RsV0dmd0RQbUUyNFRRTUFBQT09In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.9247894","2":"0.7989402","3":"0.7849893","4":"2","5":"3.50"},{"1":"0.8096564","2":"0.8489055","3":"0.6764568","4":"3","5":"2.75"},{"1":"0.7416449","2":"0.8682353","3":"0.6081770","4":"4","5":"2.25"},{"1":"0.7019226","2":"0.8735132","3":"0.5689359","4":"5","5":"1.75"},{"1":"0.6749687","2":"0.8704873","3":"0.5399277","4":"6","5":"1.50"},{"1":"0.6662017","2":"0.8628183","3":"0.5278240","4":"7","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[6]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBNWtBQUFFekNBSUFBQUEwTEZEUUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzNkZjJ3ajZYblk4ZWVWdExmcnhMR2JRRUZ6MW0xOGg1Q3FLd2dvVWd0VmpzS2hPYlJGUVc2c01vQ3FQNHpnRk9RUHNRZTNwdGJGSGhMY0dpM1EzUWIxQXJka2krSkE5Ui92b2JnQ09nRVJoSXBzNHJTTDRpTGVxdGlnTUt5cXFEanRYYk1ubncwTGNZTzY1OVh1aW0vL0dGS2lxSkZJemJ4RHpzdjVmakRBOHNmTGgrK1NmUFErZlBuT2pOSmFDd0FBQUdDaG9YNTNBQUFBQVBDSldoWUFBQUMyb3BZRkFBQ0FyYWhsQVFBQVlLdVJVS05QVFUyRkdoODQ4dkRodzM1M3dSb2tKc0pHUHZwQVlxSmZiRS9ZY0d0WnVmZ0x0TCsvUHpvNmFyd2JZWVNscTlFSnl4aHdVVkZJVEdLYWpSbFNXUEt4bDZLUW1LRkdKbXlva2YyRkhZQ0VaWTBCQUFBQWJFVXRDd0FBQUZ0Unl3SUFBTUJXb2ErWGRkVSsva0wzalgvOGNWZk5ycWlMbmJIczBWNVh6WDV4NkROZEJ2eXN5T05QdW1yNVUvMjB5NWdpTWl6eTQrOTMxZkt5R3U0eTVzK0lmTnBkVjBXa0x0MitzRmRFZnRKZDJCSHB0cXR5a1JmMnl2UC9xL3V3YVBQMy91UWZoaEgyeXZDekM3U3VkZFZxNmk5OWRJR1lQK3FxMVVIOUluLzlmdGhWcXl0REY4ajBMdnVwTGhEeEFtRkgxT0VGWXU1MzFTci9wVCsrUUV5YzdaTzlDNHlZbjNRM3RJbklsYTZIRExuSVNQVDVyZ2RORWZrRmtmb1B1bTM4cVQ3b3NtWDNnNUdJUE5mMWVQUTVrU2RkaDcxUVJmSnpJZ2RkanA0WGVkZCtYdVN3NjVkMytKZTYrL3RyQStabEFRQUFZQ3RxV1FBQUFOaUtXaFlBQUFDMm9wWUZBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaUtXaFlBQUFDMm9wWUZBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaUtXaFlBQUFDMm9wWUZBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaUtXaFlBQUFDMm9wWUZBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaHFKTkNqOTFienI3L3pvWWlJdlBybSt2VnBFejBDRUJDSkNVUlE3Qk56NlBtYWU2SCtTYksvUGNHQUNWVEw3bjE4OVkzMTlURVIyVnBkZmNGUWp3QUVRMklDRVJUenhEd3FaTjNMbExNd0tGQXRPemJkK0Y2NTlVaGVidm1LT1RVMWRYUjVmMzgveUZNQTUrRFQ1WW5FUkYvd29Ub2ZpWWxJR2FRUFc3QTFCZzF0aVNrUEh6NTBMMHhOVFkyT2pvcklqejgyOFR6QVNlNm5DMmZvbkppQVFYeW91dE01TVQvWjYwZS9FRE9EbExBbTl2M2FlaVF2anhtSUE4QWdFaE9Jb0xnbVp1dWlBaFlZd0N3RDg3THQzekVCUkFDSkNVUlFuQk9URWhZaENUNHZHOWZ2bUVDa2taaEFCSkdZZ0huQjUyV241K1lNOUFPQVVTUW1FRUVrSm1BZTUwb0FBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaUtXaFlBQUFDMm9wWUZBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaUtXaFlBQUFDMm9wWUZBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaUtXaFlBQUFDMm9wWUZBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaUtXaFlBQUFDMkd1bk4wL3pLeUdlTngvemg0VStNeHhTUm4rZ0Q0ekVQdERZZVUwUU85R0VZWWNQbzZ6TjVFa0pVdVJwRzBOajQ1MS84Z3pEQ2Zxb3ZHWTk1UlQwekhyT3VsZkdZVjVUNWxId2F6b3pEVTgxRVJuVDkvTkRsTU1MK3FQNDRqTEFINFl6Rkl2STRuS0h6a2pLZit5S2lReGs4NVdrb1VVVkVYZ29yY0IvdzV3d0FBQUMyb3BZRkFBQ0FyYWhsQVFBQVlDdHFXUUFBQU5pS1doWUFBQUMyb3BZRkFBQ0FyYWhsQVFBQVlDdHFXUUFBQU5pS1doWUFBQUMyb3BZRkFBQ0FyYWhsQVFBQVlDdHFXUUFBQU5pS1doWUFBQUMyb3BZRkFBQ0FyYWhsQVFBQVlDdHFXUUFBQU5pS1doWUFBQUMyb3BZRkFBQ0FyUXpVc251citkbloyZnpxbm9IZVBGOXp0K0NoZ0pnem1KZ0FUQ0V4QWVOR0FqNStielgvTFhsamZYMHNlRmRhUzlpaDUydjFUNUxCWXdMeFpEQXhBWmhDWWdKaENGakxicTI4OCtHSDh2cnNPNisrdVg1OXVubnIxTlRVVVl2OS9YMFIrWVZnVHdONGNqOWRPS1hieEFRTTRrUFZTYmVKK2RsK2RBNXhNMGdKRzZ5VzNhckttK3ZyMDdLM212L1c2dDcwWE9PNzVzT0hEOTBMVTFOVG82T2pJbEwvUWJCdUFsN2NUeGZhZFplWVAzelV2eDVpRUpHUEhYUTlZajcrcEc5OVJId01Vc0thMmZkcjdPVlhYZ3djcEhWUkFRc01nT0NNSkNZQXMwaE13S3hndGV3TFZ6K3Fib21JZlB4SXJocFlBRlQvSk9sdXdVTUI4V1U2TVFFWVFHSUM0UWhXeTQ3TnZYSDEzZG5aMmRscTZuanRENEQrSWpHQkNDSXhnWEFFUFk3QjJGeHhmYzVJVHdBWVEySUNFVVJpQW1IZ1hBa0FBQUN3RmJVc0FBQUFiRVV0Q3dBQUFGdFJ5d0lBQU1CVzFMSUFBQUN3RmJVc0FBQUFiRVV0Q3dBQUFGdFJ5eUtlbk9LTWFqVlRkRTdjbnF1Y2Zrd2xkOXpVdlR4VGRDckZvdE84cDRYWDR3RjRPeXNmZTltQm5qOG5ZS3R1QjhxV20xcWJtaDh4cVdVUlQ0bjhacTJRa3NXeTFscnI4bUoxS1ptcnVMZnJXaUVseTdmYUJ6YW5lR3RaVW9XYTNzd25Lcm5NZHFHbTlUMVp5S3lJU0xxa2E0VlVxbERUcmxwaG9oLy9LY0JTWitWamoxUnl5YVZxNzU0T3NGeDNBMlh6dHNxYUxDNHVyeDFudFBrUmsxb1dFRW5mS0tSa2UvY29LZWNMQlZtNmMySXNkVFprdnBBNnZqNDVuaEJKNURmTDh4N3hFdmw4T3JUT0FnT3VQUi9EZjhKU3JUVzVBWFNoaTRGU1JLU3lKdGxTOWtReDJ5YjRpRWt0QzRoVFhGaXFwdWF2SFgyTmxQSDh6Wk9aVjdtek0zN3Q2Rm82dTdpY2NYOFZTZWVQdjMwMm94VlpZQUQ0ZGpJZkc3OW01b3FWaWx2Y05uNmZ6QldMdWFMalhzbFZHamU3djJzZS9ZTHB6dTFXY2lwWExNNjQ5N2IvQU5xNHpyd3NjR0VkQmtxWHN6dVJUVXY2ekdMV3lJaEpMWXRZVzg0b3BWUnlaZjdFTHlJaUl1a2JoZTJqbjArYzR0ckVqZGJ2amVtU0xpOHVaMDZ1Q2FvdUpkMVJjYWNYWFFjR2prYytWdTZzek5lMDF0bWRXN3NpNGhSbmJrM1V0Tlk2dTdPMDNjaEVFV21aVzNXS3Q3WUxOYTFyaGRUMnJ1TVVaekxMc3J3aTk3VGV6TmR5N3FQTGswc0xSVWVjNGt4R3lscHJwbVVCUDg0ZktFVkVuQTBaVDR0NEZMTW1SMHhxV2NUYVlsbnI4cUs3WUtCTkluOXpzdkh6aWJNaDJmYlpWMG1YdEs0VlpDbDVWTTQyVnYrd1dCYnd4eU1ma3hPeWxGUXp4V1JwTTU4UVoyTkZHaE8yeVlrenlzOUVmbk16TDhXWjVGSzF1bE5MNURmTGk3SjRNNThRRVdkMzJ4MC9NOHRTM2FrNUd5dFN1SkVXa2NTMWVZcFo0T0k2RFpUT3hzcFNSaWszNlU0V3N5WkhUR3BaeEY2NlZKYU0xNDRtNmV6aThxMmlJNVU3TytNbnYydFdjbTc3Ukg2enZGamRxWjI0azhXeWdIOXQrWmpJYjJwZG0xOUpkcityY3lXbjFJTGM4NTVyYmV4ZXByVXVrYVpBY0djUGxDTGliTWpOWnNicFdzc2M3akVqSXlhMUxIQm1OWnUrVVpDbGhSbVBuMDJPZHQ5MGRyZTlJanJGSEFmNEFYdzVrWStWWXRHUlJINVRseGUzZDUzRStHUjFaZU9NMUtydFZLdEx5Vnh1YlhteHZIbHFma2hFSkRFKzJad1pxdVJ5bGNUNFpQVjQxNVVlSHpzQkdCRG5ESlROQlFhdXhMVjU4VTdmd0NQbVNKQUhBOVp5aWpQSnBhcElSa2xabDlMcFVubE5LU1dTU3FXcTFhckkwa3FodHBsUDVHOHVMcTFsTnhOSDdTV3BWZ3ExbXhPRm03S2dWRlZFRnNzNlhjbXB6TEtJSk5WU0kzNnFVTXYzNzM4SDJPV3NmRndzbHlkV0Z0UlNJOU1TSXFYeW1tcm1XYW9nSXBMT0xtWXlhbGtrbFVxbEN2ZEsrWnFvakZxV1ZDb2wxVXhPRnBlWFJaWm5KbXFiK2NSUllGa3M2NUpJdXJ5b01tclo3Y1JpbWFsYW9Cdk5oRDF2b0Z4Y2xPWGxxc2lLMU55dmxrNXhZYWxhbGFSYWFReXpCa2RNcGJVTytwODYyOVRVMU1PSEQwWGtYV2ZhZVBEUEQzOXFQS2FJZkU3OTFIak1QNjkvMW5oTUVmbS9oMWZDQ0hzWXdtejlvUTdsRjREZkdmOFQ5OExSSnczZGNGK3VQLzJ6TDRZUi9DOFBQekVlOHd2RFAyYzg1b0YrR2tMTVo4WmpQdGFIeG1PS1NCaC85NThmKzc1N29TZjU2QlJuRnVTZTkveXJwWTVldDN1MVVGYnZmbmJvY1JoaGYzYm9JSXl3SXZKL0RuODJqTEEvcVY4T0kreFRQUnhHMkhvNG82ZUlmTzFMLzhtOU1BQURLR3NNQUFBQVlDdldHQUFBTE5NNFUxY3lOODQrWEVEc1Vjc0NBQ3lUTG1sZDZuY25BRVFEYXd3QUFBQmdLMnBaQUFBQTJJbzFCb2l2dnpQMDkzMDg2anYxOTR6M0JFRDlCK00rSGpYMFM3dkdld0tnbzBnTm9OU3lpQzgxd3VjZmlJcW52bzVvRnNyUmxRQjBFcWtCTkVKZEFYcE1EZlA1QjZMQzM5RjVxV1dCdm9qVUFCcWhyZ0E5cGk3eCtRZWk0a0JDT1NzRWdEQkVhZ0NOVUZlQVhvdlNUeVJBekIzb2VyKzdBS0JyVVJwQUk5UVZvTWNpdGR3SGlMbkhXdlc3Q3dDNkZha0JsR055SWNaR2h2MXNwempGR2FYVVRORnB2YkdTVTBvcGxhdWMwd2JBa1FPdGZHejk3alVRVjRZR1VDT29aUkZqSXlOK3RqWk9jV0hucHRiNjVzN0NjYVZheWExbHRkYTZMSmxjNVl3MkFGbzgxaU0rdG43M0dvZ3JJd09vcWI2RUZCZUl2c3FmRmR3TDZaZSswYUhsaDIrZGRaZXpzVEtaM1JTUmRIYnkxb2FUenlkRXhObVZpV3NpSXVrYmhiVU54OW4xYUFPZzFZRU9hODRHZ0huREVab01wWlpGZktXVGJ6UXVkZnF5ZU54U3BGTDcxc2s3SnllU0lpS1NuSmc4UG1yNzlzcUptdFd6RFlCakIvcFN2N3NBb0d0UldpOGJvYTRBdldibWErWDJUazBrSVZMYjJaWnI3azJKL00xSmxWUkxJcElxMVBLeTRkRUdRQ3NXREFBMllWNFdpQUp0WWgxNjR0cjg5cDJLcE5PVnRlMzVHMGNUc2VtUzFpV3A1SEtTVDRoNHR3Rnc3S0QrWEwrN0FLQmJSZ1pRVTZobEVXTkd2bFltOGpkRktTV3BRbTB6SVU1eDVzNzQ1bzNkbWVSU1ZXU3hyRXVuMndBNDdURnJEQUNMRE5TODdOYmQyZHYzUlY1OWMvMzZ0SWtPQVQyalI4eWtvanNINjBya04wc2lrdDdVK1RQYjlFSXNFM1BvK1pwN29mNUpzcjg5Z1EreFdHTVF5OFRFUURJMWdCb1I5Ry9IbHFUVzE2OGI2UXJRWTNvNFFqK1JtQlhEeER3cVpOM0xsTFBXT2FnUC9yeHNEQk1UZ3lwU0EyakFzbnFyZXZ2MmJINTE3K1N0VTAwaXNyKy92NysvSCt4WkFHLzdUZjRlcmtlR2ZHeG0vd3ZoNkNveCs5SXpETENBK1hpZ0wvbllUc2Z4T2krSmU5dUpXL3R4K2hKR1RFVElJQTJnd2VMdXZUQy92cjcrMVVldm4wek9oMDBpTWpvNk9qbzZHdWhaZ0RPTU52bDgvTER5czBWZmQ0blpyOTVoVUFYTXh3TTk0bU5yaitKNVhoSm5ZMmUrcHJXdXphL2NxYml0Wmhia250WjZzNWNIZTJiRVJKUU0wZ0FhckpZZEd4c1RrZW5yYjcveTZJTzlqcTJCYUttUERQblkrdDNyTHNReU1Wc1hGYkRBd0VZMy91cC9jTGVEK3FYenQ5YVdiVUdjalpYSmJGcEUwdG5KbFkzak9kZnRuWnFJMUhiY095dDNscXJWcGVUeE9hWjdJNWFKaVVFVnFRSFV5RnI3dlEvZWw2dHpKaUlCUGFTdG1HVDFMM2FKU1FscnRXOSs3emViRnpzTVRPZTI5RG92U1NLL21jMHBsV2tjV0tTeUptV3QwK0lVWnhhS1Ryclg1K0dMWFdKaUlFVnFBQTFVeSs2dDVsOS81ME9SbDE1N3U4Z3VtYkJPcEZMUklCSVROanFvRzVsYjhUd3ZpVlBjeldxZHphbGNSWmZTelZzVDErWW5OMHc4WjNkSVRBeVNTQTJnZ2Y1MmpNMFYxL2x5Q1d2cG9RaWxva0VrSm16a3NmajE0cnpQWFZLNXN5STM4cElvbGRkeUZVa25KOXcyVXR1UjhmeTU4VXdpTVRGSUlqV0F4dUI0ZnNBWjZwY2lsSXBBekQwNU5ERWVlWjI3cEpTK01YL0xQYWYwWWxtTFNQN2V4SXhTbWFPVG1RQzRxRWdOb05TeWlDOXR3MzVjUUV3ODBXWU9WK2x4N2hKSjVFK2V2YVQ5T29BTGl0UUFTaTJMK0lyVWNoOGc1ZzZNek1zQzZJbElEYUJScXF1QjNxb1BLeC9iNlRoZEhadTlrbE5LOWZvWVFJQTludFpIZkd6OTdqVVFVNllHVUNPb1pSRmZlc1RQMXE2N1k3TlhKS3UxMWkzN1VBTm85YVErN0dQcmQ2K0JtREl6Z0JweWZ1QktUdDJhcVBYMHhDaEF6M3p3N2o5MkwvemFiNzExZnNzSC8vWWJaOTNsYkt4TVpqZEZKSjJkdkxYaDVKdlo0aDRacUxZem1jMkxTR1V0azhta0NvYVNpY1RFQUhwYXQzMXVoY1JFakZoMEhJTjBTU2VMTTBwVlJSYkx6Q2hod1B5TjMyNldzSjIrTEI2M0ZQa3YzMjZyYTdzNE5ydVR2S0YxcVpKVE0wVVRJeDJKaVFIMHhQb0ZBeVFtWWlSUytkcnhlM0FpdjZtMTFqcTdkbkwxSDJBOVBlUm5POFU5TzZaN2JQWWo3ckhaeTVMSlZVUWtrVWlJU0xwVW05L1pNSk5CSkNZR3pkUERJUjlidjN2ZGhzUkVYQmdhUUwxMk9HbnViOUw5TGlaZC9TRndpak1xczV3cTFMUytKd3ZrSndhRWthWHJpV3Z6MjJzVkVhbXNiYzlmYXowMmUxSWtYU3JMMm5FcU9oc3JNbTd1OTBjU0U0UGthWDNZeDlidlhuc2dNUkVIWnZiOTh0cmh4S21OMzlOYWE2M0xoWW51VGt4K2ZpM2IyUFY2UWU1cHJUZnppZWFYem50eWg5eUU5ZlN3bjYxZEluOVRNa3FwV3hQMzhnbHhpak81aWtqNnh2eEtVaW1sTXBKTkgzM0pYSkI3Um41M0pERXhnSjRkRHZ2WSt0M3JWaVFtWXVSUC84MTFkK3M0YUxhMmJPTnNyRXhtMHlLU3prNnVOSCsxVEtUVDdweFBaVmV1ZFRmNzAybTlnL2VpbjlyTzhzNTRTVmpnRHFzWk9qUjdGOGRtTjM1Z2RoSVRBK2VaOWZ0K2taaUlrVi85MnQzR3BVNGo2Ymt0dlhZNGFhanN5clV1WjM4Ni9lMVlYdk5hcTVBdXNhd2Q5cXNQKzlraWdjVEV3Qm1FOWJJa0ptTEQwQURxdWNPSmlGeGtWclpUTFp2T0xwNjQ3aFNMSE9rZGcyUEkxOVovSkNZR1VMMCs1R1ByZDY5YmtaaUlFeE1EcVBjT0p5SnlzVksyMDNyWnRlWGxqRHFXWE5ycE5qQVFlZGJPeTVLWUdFQlBudzM3MlByZDYxWWtKbUxFekFEcXVjT0p5QVZMMlk3enNvVkNUUityRlNZdTlGOEZvc3pVSVVWNmpzVEVBS3ByNVdQcmQ2OWJrWmlJRVZNRGFMcWttL3RLU2lLLzJWeU9rODVmNUZEc0hjNzdkV0xoclZOYzJCbmY3RDQyRUcybTl2M3FPUklUQTZoK0dLbkMxQWNTRXpFU3FRSDByRnJXS2M0a2w2b2lJa3RMTFRlbkNvNmtmZXlNK1lkL1BubnhCM1h3L1U4L1p6eW1pUHkvSjVlTngxUktHNDhwSXBlR0RzTUlPenhVTng4em5GZmdkOFlEUFR3YWs2d1hZakl4Lzl2QkY4eDE3RmoxOERQR1k0NWQrckh4bUovVzdjajB6dzM5MUhoTUVmbU1lbUk4NXZQQkhxNE5MWDUxaytUa0dhT2JpZE42cTFPY3VUTythV2FuTE1NajVzYVAvcHFKWHJYN2k2Zm1QL01pOGhlUHphZThLNlNoTTZTd1ErR0VIVkhtUjJUWDE3NFU2T0dSR2tEUDZvdDdWTHp5eVI5TW1yUEF3RURRSTM2MnZpSXhNYkRxejVTUHJUMksxNkhYeGRuWW1hOXByV3Z6SzNlYXEvRnlqZUxUQ0JJVHNST3BBYlREZXRtMjlRcnNsWWxCWXU5NldSSVRnK2ZEMy9vOWQ5TjFkZjdXMnJJdGlPZWgxNlY1NEovYWpudW5WSEpyMlZvaFpmaC9RR0lpUmlJMWdIWW9raXM1bFZsdXZXR3hiUGFRNzBEL1JHcTV6NFdRbUJnOEwzNzdYelF2ZGxnNGUyNUxyME92Si9LYjJaeFNtY1d5TG9sYnlaWktVcndWdU05dFNFekVSNlFHMEU3SDVKTHlpVjlNT09BekJvaXByNVh1S1dwUG5uTzllZHJhNXExZWJYd2pNVEdBOUtIeXNaMEs0M25vZGFlNG05VzZMSmxjUlp6aXJlWGxqRkxKcGVweVJ1VU16cHlTbUlpUlNNM0xkbGhqY0dOaXR6WFIrY1VFZzZUaldhUTl0M2Jkck0vemJPTWZpWWtCcEE2Vmo2MHRpUGVoMXl0M1ZpUXBraTZWWmEzaXJtM1Z1bFpJZVo5eTFqY1NFekZpWmdBMXBFT1JYTnRaNHNqUEdGUzEzNzN1YmgyL1NoNjFyUDN1OWJZZzNhelBPNnVOLzU2VG1CZzhkZVZuYStONTZQWDBqZm1WcEZKS1pTUWI1a3dwaVluNGlOUzhiSWZqeTY1dEYycWFQVEV4bUg3bHJiY2FsenJ0WEhuY1V1Ui9mdU1iSisvc3ZEN1A4V3pqSDRtSkFYUjZrdFdmZEVuclV1TnlJcjlaYXZ5cjIxZXVOdTh6aDhSRWpPaVJVSTVCNWsrSE5RYWxtK08xbHV2OFlvSkJZdWhyWmNmMWVXZTE4WTNFeENDcSs5b2loTVJFakVScVhyYkR2bCs1VElaZlREQ285TEQyc2JVRjZXSjkzaGx0L0NNeE1ZQ01ySmZ0S3hJVE1XSmtBRFdsdzd3c1o1ZkdJRk8rdGpiZHJNODcyU1l3RWhNRFNOWDliRkZDWWlKT2pBeWdoblJZSjVqT24xaGlsTWl6RWdpRHc5UnluMjdXNTdXMk1mQ01KQ1lHampwOUVpL2JrSmlJajBpdGwrM3pHVG1CZmhxS1VDb0NNUmV4U1ZZQTU0clNBRW90aS9nS2IrME9nSXRTaC8zdUFZQ3VSV29BcFpaRmZLa29wU0lRYzh6TEFoYUoxQUJLTFlzWWk5SlBKRURNTVM4TDJDUktBeWkxTE9KTFJTa1ZnWmhqWGhhd1NLUUdVR3BaeE5kUWxIYkRCR0tPZVZuQUlwRWFRS2xsRVY5cWlJa2dJQ3FvWlFHTFJHb0FOWEZDc2IzVi9OMHRBM0dBM2hvYTFqNjJmdmU2YXlRbXJLSU8vV3oySVRFeEVDSTFnQWF2WmJmdXZ2N09od1o2QXZUYWtOSSt0bjczdWtza0ppeGovM20vdWtGaVlrQkVhZ0FOV3N0dTNhMm0zbjd0cFpNM1RqV0p5UDcrL3Y3K2ZzQm5BVHp0Ti9sNytNaklvWS90ZEJ5bk9LT1VtaWs2N1RjcHBaVEtWVVJFcEpKcnZSYTJiaEt6SngxQmpBVE14NkZEUDl0cEh2bDRsSkNOV3h2WmVMSk5MekJpSWpvaU1vQWFFYXlXM2JwYlRWMmZQblh6d3lZUkdSMGRIUjBkRGZRc3dCbEdtL3c5ZkhpbzdtTnJqK0lVRjNadWFxMXY3aXdjall4T2JmeWVlMGIyY21FaUtTSlNrYXpXV3V0UzJ2Zi90bnZkSldZUE9vSllDWmlQVXZlMXRmSEtSM0UyZHVacld1dmEvTXFkaWpqRjNheldXcGNubCs3MDVydGxBeU1tb2lRU0E2Z2hRZmI5Mmx0OTkvNzlEKy9mRnhHUldYbHozU05KZ2VqNjdtLzhNL2ZDVk9YTjgxcytUTjgrNnk1blkyVXl1eWtpNmV6a3JRM0hQUUY3SXQwb1dTdTdjaTB0SXBXMVRDYVRLdFEyZTNCK2RoSVRWdnJ1djd6dVh2alZyOTA5ditWLy9kZG50dlRNUnhIWjNxbUpKR283azltOEpOTHVyZW5zNHExZFI5TGg1NlNJa0pnWU1KZUdJN1RFSjBndE96WlhYSjhUa2IzVi9NclZJbWtKMi96YUgvNmVlMkdrMCs4VFJ5MUY1TUhmL2YyVGQwNjZNNitTbkpqY2JYdGNzNVIxa2plMExsVnlhcVlZZmpsTFlzSktmLzBmTkFwVEZhaWxWejRtOHB2Wm5GS1p4Ykl1dGJhZG1ML1dvMEpXU0V3TW1KRkJPNDRCWUtlUjRVTWYyNmt3MnpzMUVSR3A3V3kzM1ZQWkZYZW9UQ1FTSXBJdTFlWjNObnE5UWcrd2c2SGpHSGptbzd1c29DeVpsZ1hybGR6YWVBOStKd0VHazZFQjFBd1R0ZXpZSEY4eFlhTkxRNGMrdHJZZ2lXdnoyMnNWRWFtc2JiZE44aHlWc2szT3hvcU05Mnp3SkRGaGxhRkQ3V05yQytLZGo1VTdLNUlVU1pmS3NuYTBMK1phdGllcjEwOGhNVEVRakF5ZzRyMno1bm0zZTJKZUZ2RjFhYWp1WTJ1UGtzamZsSXhTNnRiRXZYeENuT0pNYytibnVKUnQ3a1M5SVBmNk0zb0MwV2ZtbUZ5ZStaaStNYitTVkVxcGpHVFQ0aFJuVkdaWmxqTzlPN0FJTUhETURLQ2VPMnVLT01XWkJibW50ZTV5VVI3bi9VSjhQVGY4ekVpY2RFa2ZyY0pMNURlYkY5UDUvUEdOT3UveFFBQkhoc3lrbzJjK25reEI4aEVJN0k5K3ZiRnMvVGZlLzBmbnQvejNyL3lyczFxZXNiTm01YzVTdFNwSnRiUlk3dTdnUDlTeWlDK1A3NGdBK2tUVmJUa1JDUUQ1emMydnVSY3VkZnFCLzl5V1hqdHJWdGFrckhWYW5PTE1RdEZKZHpFMVN5MkwrSHJPODBqckFQcEJHWnFYQmRBRGhnWlE5M0I1N3M2YTE5cnVTMXlibjl6b0tncnJaUkZmbDRhZStkajYzV3RnTUJuWjl3dEFieGdaUUwxMzFreE91RGRLYmFmTDNhV1psMFY4WFRhMFhoWkFjSXJDRkxDSG1RRTBrYjhwU2lsSkZXcWJDWEdLTTNmR04wdnAvTDJKR2FVeTBuNUU2RE5SeXlLK252TTZPaVdBdnZBNEtBR0FxREkxZ0hydVBIM1JIYWFwWlJGZnBvNWpBQ0M0b2FmTXl3TFdpTlFBU2kyTCtMck16aVpBWkhBY0E4QWlrUnBBcVdVUlg4K3hJeGNRR2F5WEJTd1NxUUdVV2hieGRTVktYeXVCbUtPV0JTd1NxUUdVWTNJaHZpNFBQL1d4blk3amNkcm81bGxyajA2U2VhRlRTd014TlBTczdtUHJkNitCbURJMWdCcEJMWXY0dXF5ZStkamFvM2lkVHRxcGpkL1RXbXV0eTRXSjVKbW5uQVp3N0ZENzJRRDBnNWtCMUJEV0dDQyt2djZsUDNZdmxQN0gzenkvWmU2di9PZXo3dkk4blhRaTNUaURkR1ZYcnFYRktYcWVjaHJBTWNVa0syQ1B5eXFzU1ZZZnFHVVJYOSt1cGR3TGx6djlQbkhVVWtSK08xazllYWZYNmFRYjNGSlduUFBhQUJBUlVZY2M3eG13eHVXaCtOV3lIM3huMG5oTWl3NnNmZmhjS0dGRDJvblFvaGRXZmozUW93MHRYVC83ZE5LTlV2YmNOdjF6KzN2cE1NSisvbWNlaHhIV3VKRWg4eC8weXlQbS83aC8ralNVUHg4cWhKaC8rNlZBRDJkZTlzaDMvK040R0dHanRLOU9WM1E0RlVwWVkxeElZY1BJVmRmZkN2Um85djBDSXVHeWV1cGphd3ZpZlRwcEVYRkwyVVNITmdBYUR1dCt0bE84OXJOczdvelp2SlY5TVlHQWpBeWdwbERMSXI2dUREMzFzYlZIU2VSdlNrWXBkV3ZpWGo0aFRuSEdQWEJCU3luYjNnYkFhZXF3N21OcmorSzVuNld6c1ROZjAxclg1bGZ1Vk5nWEV6REF6QUJxQ090bEVWK212aU42bms1YUpKM1BlN2NCY0ZybHYvKytleUdkZktORHk5cTN6bXJwdVMrbU5GZjUxSFltczNuMnhRUU1ZTjh2SUJJaWxZcEF6S1ZmK29hSmxsNzdXU2J5bTltY1VwbkZzaTZ4THlaZ1FxUUdVR3BaeE5jVnhYN1RRR1I0TFg2OU9NLzlMSjNpYmxicmJFN2xLcnFVak9TK21JQmRJaldBc2w0VzhSV3BRejBEY2Zmc21aL3RKTy85TEN0M1ZpUXBraTZWWmEzQ3ZwaUFBWkVhUUptWFJYeGRVWncwQ0lpTVp5YW1lUkw1bTZLVWtsU2h0cGtRcHpoelozeXpsTDR4Znl1cGxrUmtzYXhGNUVRYkFENUVhZ0NsbGtWOFJTb1ZnWmpUcHlaWi9mSGFGek9SMzlUNU05b0E4Q0ZTQXlpMUxPTHJzbUtORFJBWmhtcFpBRDBRcVFHVVdoYnhkVm1HKzkwRkFBMzZLYlVzWUkxSURhRFVzb2l2NTFTRVVoR0lPWDFJTFF0WUkxSURLTFVzNHV2Szh4LzJ1d3NBR3Y3b3liL3JkeGNBZEN0U0EyaUVsanNBQUFBQUYwSXRDd0FBQUZ0Unl3SUFBTUJXMUxJQUFBQ3dGYlVzQUFBQWJFVXRDd0FBQUZ0Unl3SUFBTUJXd1dyWnZkWDg3T3pzN0d4K2RjOVFmd0FFUm1JQ0VVUmlBdUVJT0MvNzhodnI2K3ZyYjc3NC9nZWtKaEFaSkNZUVFTUW1FSXBnNS8wYUd4c1RrYjFIVjc4Nk45Wnk4OVRVMU5IbC9mMzlRRThCbkkxUGx6Y1NFLzNBaDZvREVoTlJNa2dmdHFEbnNOMjZPM3Y3dnNpclYrZW1wNDl1ZlBqd29YdGhhbXBxZEhRMDRGTUFaK0hUZFJZU0U3M0hoNm9qRWhQUk1VZ2Z0cUQ3ZmsxZlgxOWZmL3UxajZwYlJyb0R3QVFTRTRnZ0VoTUlnNUhqR0l4ZGZlWHFDeVlDQVRDSHhBUWlpTVFFREF1MHhxRHhjNG5JcTIrdVh6ZlRId0JCa1poQUJKR1lRRWdDMWJMVDE5ZkpTQ0JxU0V3Z2draE1JQ1NjS3dFQUFBQzJvcFlGQUFDQXJhaGxBUUFBWUN0cVdRQUFBTmlLV2hZQUFBQzJvcFlGQUFDQXJhaGxBUUFBWUN0cVdRQUFBTmlLV2hZQUFBQzJvcFlGQUFDQXJhaGxBUUFBWUN0cVdRQUFBTmlLV2hZQUFBQzJvcFlGQUFDQXJhaGxBUUFBWUt1UjNqek5GNy81Z2ZHWVE1Y3VHWThwSW5KcDJIaEkvZVNaOFpnaUlyb2VTdFREUStNeDFaRDVWMVZFNUp1aFJJMkpYNTc3WGhoaFIzNXgxSHpRTUpKZEtmTXhROGlkSy9xeDhaZ2lJcytGOEpMK2IvTWg0K21YLzBrMWxMaERvY3hlaGZYblBaekJTQ1Nzb1RNa2FpUzBPdTJmaGhXNDk1aVhCUUFBZ0syb1pRRUFBR0FyYWxrQUFBRFlpcHBQUm93QUFBYkRTVVJCVkZvV0FBQUF0cUtXQlFBQWdLMm9aUUVBQUdBcmFsa0FBQURZaWxvV0FBQUF0cUtXQlFBQWdLMm9aUUVBQUdBcmFsa0FBQURZaWxvV0FBQUF0cUtXQlFBQWdLMm9aUUVBQUdBcmFsa0FBQURZaWxvV0FBQUF0cUtXQlFBQWdLMm9aUUVBQUdBcmFsa0FBQURZS21BdHUzVjNkbloyZGphL3VtZW1Pd0FNSURHQkNDSXhnVkFFcW1YM1ZoK2wxdGZYMTk5ODhaMlZMVk05QWhBTWlRbEVFSWtKaEdRa3lJUEg1dWJHUkVTbVU2KysrMmhQcHNjYXQwOU5UUjIxMmQvZkQvSVV3RG40ZEhraU1kRVhmS2pPUjJJaVVnYnB3eGFvbGoxMjlaV1h4NDZ2UFh6NDBMMHdOVFUxT2pwcTVpbUFVL2gwZFVCaW9vZjRVSFdMeEVRRUROS0h6Y1MrWDF0M3ExZm54anEzQTlCREpDWVFRU1FtWUZyZ1duYnI3bXcxZFgzYVJGOEFtRUppQWhGRVlnSWhDTGp2VjM3MjluMjVmM3QyZHZZdVM5bUJhQ0F4Z1FnaU1ZR1FCTnozcTdnK1o2b25BTXdnTVlFSUlqR0JrSEN1QkFBQUFOaUtXaFlBQUFDMm9wWUZBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaUtXaFlBQUFDMm9wWUZBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaUtXaFlBQUFDMm9wWUZBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaUtXaFlBQUFDMm9wWUZBQUNBclVaNjh6VGZxYTkwMlhKL2YzOTBkTlI0QjhJSVMxZnRDb3MyMzZtLzEzMWpXejZXY1k0WlVsanlzZmU2ejgzdzNoMkxQcUxXaFEwdmNteXpsWGxaQUFBQTJJcGFGZ0FBQUxhaWxnVUFBSUN0cUdVQkFBQmdxOUQzL1pxYW1ncjdLUUJjRklrSlJCQ0pDZmloSStiTFgvNnlMV0hwcWwxaEVZUXRIOHM0eHd3cExQa1laZUc5T3haOVJLMExHMTdrMkdZcmF3d0FBQUJnSzZXMTduY2ZBQUFBQUQrWWx3VUFBSUN0cUdVQkFBQmdLMnBaQUFBQTJLcVB0ZXpXM2RuWjJkblovT3JleVJ2dWJvbUk3SzNtank3N0M5eDRyQnVvK1N3WERkdmUvbVEwMzhGUHRUVFE1L05mejJDdnc5NXF2dG5XMEN2UTNqMmo3eHFDQ0NjeG81NlZzVTlKOGpIcVFoc3gyME1GZjdzdEdqY2wzRHdWUnM5ZTZkY0JGRDUrNzcwSFdtdjk0SzJ2dlBWQWE2MzFnd2NQMnB0OC9hMEhweDdZMFlrNHpSZ1AzdnI2ZXgvN0M5dlN2aTFhb09BbldnYnZjNGZYTTFCWEg3ejFsYTgwb3BwN0JkcmVidFB2R253S0tURnR5TXBZcHlUNUdISGhqWmp0b2N5ODNYYU1tenJjUE5XTW5qM1R0M25ac2JtNWFSR1I2ZFNySHozYUU1R3Q2dTNiTGQrTWZEc1JaKytEOTE5TVRZdklkT3JGOXo4SUdyc3Rtcm5nQnZwOC91c1pwS3RiZDZ1cHQxOTd5U3RPZ0xCdGIzZUk3eG91Skp6RXRDNHI0NWFTNUdQVWhUWml0b2N5L25aSGVkeVVNUE5VR0QxN0tBTHJaYSsrOHZLWXlONEw4K3ZyNjE5OTlIckE1R3lQOCtMVkYwUkU1SVdyTHdidmFuczBROEhOOXRuNzlmUWJjK3R1TlhWOSt2aTZvVmVnclh2aHZtdnd4V0JpV3BlVmNVdEo4dEVpWmtkTTZjSGJiY080S2FielZCZzllNnJmdGV6VzNlclZ1VEVSR1JzYkU1SHA2MisvOGlqUWQ0bjJPQjg5K2xoRVJENSs5RkhnenA2S1ppaTR3VDZmK1hyNmk3bTMrdTc5KzdkbloxOS81OFA3dDJmdmJobDdCZHE2Ris2N2hvc3ptNWpXWldYY1VwSjh0SVh4RWRNamxQRzNPL0xqcGhqUFUySDA3TEcrMXJKYmQyZFBmbTBSMmZ2Z2ZiazZGangwSTg3WXk2OThWTjBTa2EzcVI2KzhIRFJ1V3pTendRMzArZXpYMDIvTXNibmkrdnI2K3ZyYnI3MzA2cHZyMTZkTnZ3SnRiM2NvN3hvdUxLekV0QzRyNDVhUzVHTzBoVGhpU25odmQ5VEhUUWtqVDRYUnM5ZjZ0VkQzNC9lKy9wV210eDRjWFQxYXJld3VtVzY5NFVKaDIrTWNYYjlvMkxiMm50RjhCRzl0YWFUUFhiNmVQbCtIbHJYalJsNkJ0dTRaZjlmZ1d4aUphVVZXeGprbHljZm9DMm5FMU9HODNiYU1tenJzUE5XTW5qM0NPV3dCQUFCZ3EzNnZsd1VBQUFEOG9wWUZBQUNBcmFobEFRQUFZQ3RxV1FBQUFOaUtXcmIvbkdLdTZQUzdFd0NhU0VrZzRraFN0S0tXN2IvYXpuYS91d0RnR0NrSlJCeEppbGJVc2oxV3lhbGNwWkpUU3FtWm9pTWlsVnhtdWJxVVZMbEs0OTVpY2NhOXoyM1ZhQ2J0VndHWVFFb0NFVWVTb3BOK0grQTJWbXFGbElpSUxKYTFMaTlLcWxEVHRWcTVrRW9WYXNmM3VsZDBlZEc5MEdqWGRoV0FBYVFrRUhFa0tUb2I2VVA1SEYrSi9HWjVSNjFsUzJrUlp5SWxJcEpJSk52dnpTZEV4Tm5kcmk0bDFaS0lpQ3pXSERseFZTVFJoKzREZzRhVUJDS09KRVZuckRHSXJzVnk4eHRIS1gzNktvQWVJeVdCaUNOSjQ0bGFOcUlTNDVQTGF4VVJFYW5rY3BXMnEvM3NHUkJMcENRUWNTUnBmSVc3aEFFbmxSZEZSR1N4M0xyR3g3MXhzZHk4dDdtdXAzRzErY1d5N1NxQTRFaEpJT0pJVW5Ta3ROWW1TMk1BQUFDZ1YxaGpBQUFBQUZ0Unl3SUFBTUJXMUxJQUFBQ3dGYlVzQUFBQWJFVXRDd0FBQUZ0Unl3SUFBTUJXMUxJQUFBQ3cxZjhISUgxRU5td2UzRXdBQUFBQVNVVk9SSzVDWUlJPVwiIC8+XG5cbjwhLS0gcm5iLXBsb3QtZW5kIC0tPlxuIn0= -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA5kAAAEzCAIAAAA0LFDQAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO3df2wj6XnY8eeVtLfrxLGbQEFz1m18h5CqKwgoUgtVjsKhObRFQW6sMoCqP4zgFOQPsQe3ptbFHhLcGi3Q3Qb1Ardki+JA9R/vobgCOgERhIps4rSL4iLeqtigMKyqqDjtXbMnnw0LcYO659Xuim//GFKiqJFIzbxDzsv5fjDA8sfLh++SfPQ+fPnOjNJaCwAAAGChoX53AAAAAPCJWhYAAAC2opYFAACArahlAQAAYKuRUKNPTU2FGh848vDhw353wRokJsJGPvpAYqJfbE/YcGtZufgLtL+/Pzo6arwbYYSlq9EJyxhwUVFITGKajRlSWPKxl6KQmKFGJmyokf2FHYCEZY0BAAAAbEUtCwAAAFtRywIAAMBWoa+XddU+/kL3jX/8cVfNrqiLnbHs0V5XzX5x6DNdBvysyONPumr5U/20y5giMizy4+931fKyGu4y5s+IfNpdV0WkLt2+sFdEftJd2BHptqtykRf2yvP/q/uwaPP3/uQfhhH2yvCzC7SuddVq6i99dIGYP+qq1UH9In/9fthVqytDF8j0LvupLhDxAmFH1OEFYu531Sr/pT++QEyc7ZO9C4yYn3Q3tInIla6HDLnISPT5rgdNEfkFkfoPum38qT7osmX3g5GIPNf1ePQ5kSddh71QRfJzIgddjp4Xedd+XuSw65d3+Je6+/trA+ZlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANhqJNCj91bzr7/zoYiIvPrm+vVpEz0CEBCJCURQ7BNz6Pmae6H+SbK/PcGACVTL7n189Y319TER2VpdfcFQjwAEQ2ICERTzxDwqZN3LlLMwKFAtOzbd+F659UhebvmKOTU1dXR5f38/yFMA5+DT5YnERF/woTofiYlIGaQPW7A1Bg1tiSkPHz50L0xNTY2OjorIjz828TzASe6nC2fonJiAQXyoutM5MT/Z60e/EDODlLAm9v3aeiQvjxmIA8AgEhOIoLgmZuuiAhYYwCwD87Lt3zEBRACJCURQnBOTEhYhCT4vG9fvmECkkZhABJGYgHnB52Wn5+YM9AOAUSQmEEEkJmAe50oAAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2GunN0/zKyGeNx/zh4U+MxxSRn+gD4zEPtDYeU0QO9GEYYcPo6zN5EkJUuRpG0Nj451/8gzDCfqovGY95RT0zHrOulfGYV5T5lHwazozDU81ERnT9/NDlMML+qP44jLAH4YzFIvI4nKHzkjKf+yKiQxk85WkoUUVEXgorcB/w5wwAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArQzUsnur+dnZ2fzqnoHePF9zt+ChgJgzmJgATCExAeNGAj5+bzX/LXljfX0seFdaS9ih52v1T5LBYwLxZDAxAZhCYgJhCFjLbq288+GH8vrsO6++uX59unnr1NTUUYv9/X0R+YVgTwN4cj9dOKXbxAQM4kPVSbeJ+dl+dA5xM0gJG6yW3arKm+vr07K3mv/W6t70XOO75sOHD90LU1NTo6OjIlL/QbBuAl7cTxfadZeYP3zUvx5iEJGPHXQ9Yj7+pG99RHwMUsKa2fdr7OVXXgwcpHVRAQsMgOCMJCYAs0hMwKxgtewLVz+qbomIfPxIrhpYAFT/JOluwUMB8WU6MQEYQGIC4QhWy47NvXH13dnZ2dlq6njtD4D+IjGBCCIxgXAEPY7B2Fxxfc5ITwAYQ2ICEURiAmHgXAkAAACwFbUsAAAAbEUtCwAAAFtRywIAAMBW1LIAAACwFbUsAAAAbEUtCwAAAFtRyyKenOKMajVTdE7cnqucfkwld9zUvTxTdCrFotO8p4XX4wF4Oysfe9mBnj8nYKtuB8qWm1qbmh8xqWURT4n8Zq2QksWy1lrr8mJ1KZmruLfrWiEly7faBzaneGtZUoWa3swnKrnMdqGm9T1ZyKyISLqka4VUqlDTrlphoh//KcBSZ+Vjj1RyyaVq754OsFx3A2XztsqaLC4urx1ntPkRk1oWEEnfKKRke/coKecLBVm6c2IsdTZkvpA6vj45nhBJ5DfL8x7xEvl8OrTOAgOuPR/Df8JSrTW5AXShi4FSRKSyJtlS9kQx2yb4iEktC4hTXFiqpuavHX2NlPH8zZOZV7mzM37t6Fo6u7iccX8VSeePv302oxVZYAD4djIfG79m5oqVilvcNn6fzBWLuaLjXslVGje7v2se/YLpzu1WcipXLM6497b/ANq4zrwscGEdBkqXszuRTUv6zGLWyIhJLYtYW84opVRyZf7ELyIiIukbhe2jn0+c4trEjdbvjemSLi8uZ06uCaouJd1RcacXXQcGjkc+Vu6szNe01tmdW7si4hRnbk3UtNY6u7O03chEEWmZW3WKt7YLNa1rhdT2ruMUZzLLsrwi97TezNdy7qPLk0sLRUec4kxGylprpmUBP84fKEVEnA0ZT4t4FLMmR0xqWcTaYlnr8qK7YKBNIn9zsvHzibMh2fbZV0mXtK4VZCl5VM42Vv+wWBbwxyMfkxOylFQzxWRpM58QZ2NFGhO2yYkzys9EfnMzL8WZ5FK1ulNL5DfLi7J4M58QEWd32x0/M8tS3ak5GytSuJEWkcS1eYpZ4OI6DZTOxspSRik36U4WsyZHTGpZxF66VJaM144m6ezi8q2iI5U7O+Mnv2tWcm77RH6zvFjdqZ24k8WygH9t+ZjIb2pdm19Jdr+rcyWn1ILc855rbexeprUukaZAcGcPlCLibMjNZsbpWssc7jEjIya1LHBmNZu+UZClhRmPn02Odt90dre9IjrFHAf4AXw5kY+VYtGRRH5Tlxe3d53E+GR1ZeOM1KrtVKtLyVxubXmxvHlqfkhEJDE+2ZwZquRylcT4ZPV415UeHzsBGBDnDJTNBQauxLV58U7fwCPmSJAHA9ZyijPJpapIRklZl9LpUnlNKSWSSqWq1arI0kqhtplP5G8uLq1lNxNH7SWpVgq1mxOFm7KgVFVEFss6XcmpzLKIJNVSI36qUMv3738H2OWsfFwslydWFtRSI9MSIqXymmrmWaogIpLOLmYyalkklUqlCvdK+ZqojFqWVCol1UxOFpeXRZZnJmqb+cRRYFks65JIuryoMmrZ7cRimalaoBvNhD1voFxclOXlqsiK1Nyvlk5xYalalaRaaQyzBkdMpbUO+p8629TU1MOHD0XkXWfaePDPD39qPKaIfE791HjMP69/1nhMEfm/h1fCCHsYwmz9oQ7lF4DfGf8T98LRJw3dcF+uP/2zL4YR/C8PPzEe8wvDP2c85oF+GkLMZ8ZjPtaHxmOKSBh/958f+757oSf56BRnFuSe9/yrpY5et3u1UFbvfnbocRhhf3boIIywIvJ/Dn82jLA/qV8OI+xTPRxG2Ho4o6eIfO1L/8m9MAADKGsMAAAAYCvWGAAALNM4U1cyN84+XEDsUcsCACyTLmld6ncnAEQDawwAAABgK2pZAAAA2Io1BoivvzP093086jv194z3BED9B+M+HjX0S7vGewKgo0gNoNSyiC81wucfiIqnvo5oFsrRlQB0EqkBNEJdAXpMDfP5B6LC39F5qWWBvojUABqhrgA9pi7x+Qei4kBCOSsEgDBEagCNUFeAXovSTyRAzB3oer+7AKBrURpAI9QVoMcitdwHiLnHWvW7CwC6FakBlGNyIcZGhv1spzjFGaXUTNFpvbGSU0oplauc0wbAkQOtfGz97jUQV4YGUCOoZRFjIyN+tjZOcWHnptb65s7CcaVaya1ltda6LJlc5Yw2AFo81iM+tn73GogrIwOoqb6EFBeIvsqfFdwL6Ze+0aHlh2+ddZezsTKZ3RSRdHby1oaTzydExNmViWsiIukbhbUNx9n1aAOg1YEOa84GgHnDEZoMpZZFfKWTbzQudfqyeNxSpFL71sk7JyeSIiKSnJg8Pmr79sqJmtWzDYBjB/pSv7sAoGtRWi8boa4AvWbma+X2Tk0kIVLb2ZZr7k2J/M1JlVRLIpIq1PKy4dEGQCsWDAA2YV4WiAJtYh164tr89p2KpNOVte35G0cTsemS1iWp5HKST4h4twFw7KD+XL+7AKBbRgZQU6hlEWNGvlYm8jdFKSWpQm0zIU5x5s745o3dmeRSVWSxrEun2wA47TFrDACLDNS87Nbd2dv3RV59c/36tIkOAT2jR8ykojsH60rkN0sikt7U+TPb9EIsE3Po+Zp7of5Jsr89gQ+xWGMQy8TEQDI1gBoR9G/HlqTW168b6QrQY3o4Qj+RmBXDxDwqZN3LlLPWOagP/rxsDBMTgypSA2jAsnqrevv2bH517+StU00isr+/v7+/H+xZAG/7Tf4erkeGfGxm/wvh6Cox+9IzDLCA+XigL/nYTsfxOi+Je9uJW/tx+hJGTETIIA2gweLuvTC/vr7+1Uevn0zOh00iMjo6Ojo6GuhZgDOMNvl8/LDys0Vfd4nZr95hUAXMxwM94mNrj+J5XhJnY2e+prWuza/cqbitZhbkntZ6s5cHe2bERJQM0gAarJYdGxsTkenrb7/y6IO9jq2BaKmPDPnY+t3rLsQyMVsXFbDAwEY3/up/cLeD+qXzt9aWbUGcjZXJbFpE0tnJlY3jOdftnZqI1HbcOyt3lqrVpeTxOaZ7I5aJiUEVqQHUyFr7vQ/el6tzJiIBPaStmGT1L3aJSQlrtW9+7zebFzsMTOe29DovSSK/mc0plWkcWKSyJmWt0+IUZxaKTrrX5+GLXWJiIEVqAA1Uy+6t5l9/50ORl157u8gumbBOpFLRIBITNjqoG5lb8TwviVPczWqdzalcRZfSzVsT1+YnN0w8Z3dITAySSA2ggf52jM0V1/lyCWvpoQilokEkJmzksfj14rzPXVK5syI38pIolddyFUknJ9w2UtuR8fy58UwiMTFIIjWAxuB4fsAZ6pcilIpAzD05NDEeeZ27pJS+MX/LPaf0YlmLSP7exIxSmaOTmQC4qEgNoNSyiC9tw35cQEw80WYOV+lx7hJJ5E+evaT9OoALitQASi2L+IrUch8g5g6MzMsC6IlIDaBRqquB3qoPKx/b6ThdHZu9klNK9foYQIA9ntZHfGz97jUQU6YGUCOoZRFfesTP1q67Y7NXJKu11i37UANo9aQ+7GPrd6+BmDIzgBpyfuBKTt2aqPX0xChAz3zw7j92L/zab711fssH//YbZ93lbKxMZjdFJJ2dvLXh5JvZ4h4ZqLYzmc2LSGUtk8mkCoaSicTEAHpat31uhcREjFh0HIN0SSeLM0pVRRbLzChhwPyN326WsJ2+LB63FPkv326ra7s4NruTvKF1qZJTM0UTIx2JiQH0xPoFAyQmYiRS+drxe3Aiv6m11jq7dnL1H2A9PeRnO8U9O6Z7bPYj7rHZy5LJVUQkkUiISLpUm9/ZMJNBJCYGzdPDIR9bv3vdhsREXBgaQL12OGnub9L9LiZd/SFwijMqs5wq1LS+JwvkJwaEkaXriWvz22sVEamsbc9faz02e1IkXSrL2nEqOhsrMm7u90cSE4PkaX3Yx9bvXnsgMREHZvb98trhxKmN39Naa63LhYnuTkx+fi3b2PV6Qe5prTfzieaXzntyh9yE9fSwn61dIn9TMkqpWxP38glxijO5ikj6xvxKUimlMpJNH33JXJB7Rn53JDExgJ4dDvvY+t3rViQmYuRP/811d+s4aLa2bONsrExm0yKSzk6uNH+1TKTT7pxPZVeudTf702m9g/ein9rO8s54SVjgDqsZOjR7F8dmN35gdhITA+eZ9ft+kZiIkV/92t3GpU4j6bktvXY4aajsyrUuZ386/e1YXvNaq5Ausawd9qsP+9kigcTEwBmE9bIkJmLD0ADqucOJiFxkVrZTLZvOLp647hSLHOkdg2PI19Z/JCYGUL0+5GPrd69bkZiIExMDqPcOJyJysVK203rZteXljDqWXNrpNjAQedbOy5KYGEBPnw372Prd61YkJmLEzADqucOJyAVL2Y7zsoVCTR+rFSYu9F8FoszUIUV6jsTEAKpr5WPrd69bkZiIEVMDaLqkm/tKSiK/2VyOk85f5FDsHc77dWLhrVNc2Bnf7D42EG2m9v3qORITA6h+GKnC1AcSEzESqQH0rFrWKc4kl6oiIktLLTenCo6kfeyM+Yd/PnnxB3Xw/U8/ZzymiPy/J5eNx1RKG48pIpeGDsMIOzxUNx8znFfgd8YDPTwak6wXYjIx/9vBF8x17Fj18DPGY45d+rHxmJ/W7cj0zw391HhMEfmMemI85vPBHq4NLX51k+TkGaObidN6q1OcuTO+aWanLMMj5saP/pqJXrX7i6fmP/Mi8hePzae8K6ShM6SwQ+GEHVHmR2TX174U6OGRGkDP6ot7VLzyyR9MmrPAwEDQI362viIxMbDqz5SPrT2K16HXxdnYma9prWvzK3eaq/FyjeLTCBITsROpAbTDetm29QrslYlBYu96WRITg+fD3/o9d9N1df7W2rItiOeh16V54J/ajnunVHJr2VohZfh/QGIiRiI1gHYokis5lVluvWGxbPaQ70D/RGq5z4WQmBg8L377XzQvdlg4e25Lr0OvJ/Kb2ZxSmcWyLolbyZZKUrwVuM9tSEzER6QG0E7H5JLyiV9MOOAzBoipr5XuKWpPnnO9edra5q1ebXwjMTGA9KHysZ0K43nodae4m9W6LJlcRZzireXljFLJpepyRuUMzpySmIiRSM3LdlhjcGNitzXR+cUEg6TjWaQ9t3bdrM/zbOMfiYkBpA6Vj60tiPeh1yt3ViQpki6VZa3irm3VulZIeZ9y1jcSEzFiZgA1pEORXNtZ4sjPGFS1373ubh2/Sh61rP3u9bYg3azPO6uN/56TmBg8deVna+N56PX0jfmVpFJKZSQb5kwpiYn4iNS8bIfjy65tF2qaPTExmH7lrbcalzrtXHncUuR/fuMbJ+/svD7P8WzjH4mJAXR6ktWfdEnrUuNyIr9Zavyr21euNu8zh8REjOiRUI5B5k+HNQalm+O1luv8YoJBYuhrZcf1eWe18Y3ExCCq+9oihMREjERqXrbDvl+5TIZfTDCo9LD2sbUF6WJ93hlt/CMxMYCMrJftKxITMWJkADWlw7wsZ5fGIFO+tjbdrM872SYwEhMDSNX9bFFCYiJOjAyghnRYJ5jOn1hilMizEgiDw9Ryn27W57W2MfCMJCYGjjp9Ei/bkJiIj0itl+3zGTmBfhqKUCoCMRexSVYA54rSAEoti/gKb+0OgItSh/3uAYCuRWoApZZFfKkopSIQc8zLAhaJ1ABKLYsYi9JPJEDMMS8L2CRKAyi1LOJLRSkVgZhjXhawSKQGUGpZxNdQlHbDBGKOeVnAIpEaQKllEV9qiIkgICqoZQGLRGoANXFCsb3V/N0tA3GA3hoa1j62fve6ayQmrKIO/Wz2ITExECI1gAavZbfuvv7OhwZ6AvTakNI+tn73ukskJixj/3m/ukFiYkBEagANWstu3a2m3n7tpZM3TjWJyP7+/v7+fsBnATztN/l7+MjIoY/tdBynOKOUmik67TcppZTKVUREpJJrvRa2bhKzJx1BjATMx6FDP9tpHvl4lJCNWxvZeLJNLzBiIjoiMoAaEayW3bpbTV2fPnXzwyYRGR0dHR0dDfQswBlGm/w9fHio7mNrj+IUF3Zuaq1v7iwcjYxObfyee0b2cmEiKSJSkazWWutS2vf/tnvdJWYPOoJYCZiPUve1tfHKR3E2duZrWuva/MqdijjF3azWWpcnl+705rtlAyMmoiQSA6ghQfb92lt99/79D+/fFxGRWXlz3SNJgej67m/8M/fCVOXN81s+TN8+6y5nY2Uyuyki6ezkrQ3HPQF7It0oWSu7ci0tIpW1TCaTKtQ2e3B+dhITVvruv7zuXvjVr909v+V//ddntvTMRxHZ3qmJJGo7k9m8JNLurens4q1dR9Lh56SIkJgYMJeGI7TEJ0gtOzZXXJ8Tkb3V/MrVImkJ2/zaH/6ee2Gk0+8TRy1F5MHf/f2Td066M6+SnJjcbXtcs5R1kje0LlVyaqYYfjlLYsJKf/0fNApTFailVz4m8pvZnFKZxbIutbadmL/Wo0JWSEwMmJFBO44BYKeR4UMf26kw2zs1ERGp7Wy33VPZFXeoTCQSIpIu1eZ3Nnq9Qg+wg6HjGHjmo7usoCyZlgXrldzaeA9+JwEGk6EB1AwTtezYHF8xYaNLQ4c+trYgiWvz22sVEamsbbdN8hyVsk3OxoqM92zwJDFhlaFD7WNrC+Kdj5U7K5IUSZfKsna0L+Zatier108hMTEQjAyg4r2z5nm3e2JeFvF1aajuY2uPksjflIxS6tbEvXxCnOJMc+bnuJRt7kS9IPf6M3oC0WfmmFye+Zi+Mb+SVEqpjGTT4hRnVGZZljO9O7AIMHDMDKCeO2uKOMWZBbmnte5yUR7n/UJ8PTf8zEicdEkfrcJL5DebF9P5/PGNOu/xQABHhsyko2c+nkxB8hEI7I9+vbFs/Tfe/0fnt/z3r/yrs1qesbNm5c5StSpJtbRY7u7gP9SyiC+P74gA+kTVbTkRCQD5zc2vuRcudfqB/9yWXjtrVtakrHVanOLMQtFJdzE1Sy2L+HrO80jrAPpBGZqXBdADhgZQ93B57s6a19ruS1ybn9zoKgrrZRFfl4ae+dj63WtgMBnZ9wtAbxgZQL131kxOuDdKbafL3aWZl0V8XTa0XhZAcIrCFLCHmQE0kb8pSilJFWqbCXGKM3fGN0vp/L2JGaUy0n5E6DNRyyK+nvM6OiWAvvA4KAGAqDI1gHruPH3RHaapZRFfpo5jACC4oafMywLWiNQASi2L+LrMziZAZHAcA8AikRpAqWURX8+xIxcQGayXBSwSqQGUWhbxdSVKXyuBmKOWBSwSqQGUY3Ihvi4PP/WxnY7jcdro5llrj06SeaFTSwMxNPSs7mPrd6+BmDI1gBpBLYv4uqye+djao3idTtqpjd/TWmuty4WJ5JmnnAZw7FD72QD0g5kB1BDWGCC+vv6lP3YvlP7H3zy/Ze6v/Oez7vI8nXQi3TiDdGVXrqXFKXqechrAMcUkK2CPyyqsSVYfqGURX9+updwLlzv9PnHUUkR+O1k9eafX6aQb3FJWnPPaABARUYcc7xmwxuWh+NWyH3xn0nhMiw6sffhcKGFD2onQohdWfj3Qow0tXT/7dNKNUvbcNv1z+3vpMMJ+/mcehxHWuJEh8x/0yyPm/7h/+jSUPx8qhJh/+6VAD2de9sh3/+N4GGGjtK9OV3Q4FUpYY1xIYcPIVdffCvRo9v0CIuGyeupjawvifTppEXFL2USHNgAaDut+tlO89rNs7ozZvJV9MYGAjAygplDLIr6uDD31sbVHSeRvSkYpdWviXj4hTnHGPXBBSynb3gbAaeqw7mNrj+K5n6WzsTNf01rX5lfuVNgXEzDAzABqCOtlEV+mviN6nk5aJJ3Pe7cBcFrlv/++eyGdfKNDy9q3zmrpuS+mNFf51HYms3n2xQQMYN8vIBIilYpAzKVf+oaJll77WSbym9mcUpnFsi6xLyZgQqQGUGpZxNcVxX7TQGR4LX69OM/9LJ3iblbrbE7lKrqUjOS+mIBdIjWAsl4W8RWpQz0DcffsmZ/tJO/9LCt3ViQpki6VZa3CvpiAAZEaQJmXRXxdUZw0CIiMZyameRL5m6KUklShtpkQpzhzZ3yzlL4xfyuplkRksaxF5EQbAD5EagCllkV8RSoVgZjTpyZZ/fHaFzOR39T5M9oA8CFSAyi1LOLrsmKNDRAZhmpZAD0QqQGUWhbxdVmG+90FAA36KbUsYI1IDaDUsoiv51SEUhGIOX1ILQtYI1IDKLUs4uvK8x/2uwsAGv7oyb/rdxcAdCtSA2iEljsAAAAAF0ItCwAAAFtRywIAAMBW1LIAAACwFbUsAAAAbEUtCwAAAFtRywIAAMBWwWrZvdX87Ozs7Gx+dc9QfwAERmICEURiAuEIOC/78hvr6+vrb774/gekJhAZJCYQQSQmEIpg5/0aGxsTkb1HV786N9Zy89TU1NHl/f39QE8BnI1PlzcSE/3Ah6oDEhNRMkgftqDnsN26O3v7vsirV+emp49ufPjwoXthampqdHQ04FMAZ+HTdRYSE73Hh6ojEhPRMUgftqD7fk1fX19ff/u1j6pbRroDwAQSE4ggEhMIg5HjGIxdfeXqCyYCATCHxAQiiMQEDAu0xqDxc4nIq2+uXzfTHwBBkZhABJGYQEgC1bLT19fJSCBqSEwggkhMICScKwEAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYKuR3jzNF7/5gfGYQ5cuGY8pInJp2HhI/eSZ8ZgiIroeStTDQ+Mx1ZD5V1VE5JuhRI2JX577XhhhR35x1HzQMJJdKfMxQ8idK/qx8ZgiIs+F8JL+b/Mh4+mX/0k1lLhDocxehfXnPZzBSCSsoTMkaiS0Ou2fhhW495iXBQAAgK2oZQEAAGAralkAAADYippPRowAAAbDSURBVFoWAAAAtqKWBQAAgK2oZQEAAGAralkAAADYiloWAAAAtqKWBQAAgK2oZQEAAGAralkAAADYiloWAAAAtqKWBQAAgK2oZQEAAGAralkAAADYiloWAAAAtqKWBQAAgK2oZQEAAGAralkAAADYKmAtu3V3dnZ2dja/umemOwAMIDGBCCIxgVAEqmX3Vh+l1tfX19988Z2VLVM9AhAMiQlEEIkJhGQkyIPH5ubGRESmU6+++2hPpscat09NTR212d/fD/IUwDn4dHkiMdEXfKjOR2IiUgbpwxaolj129ZWXx46vPXz40L0wNTU1Ojpq5imAU/h0dUBioof4UHWLxEQEDNKHzcS+X1t3q1fnxjq3A9BDJCYQQSQmYFrgWnbr7mw1dX3aRF8AmEJiAhFEYgIhCLjvV3729n25f3t2dvYuS9mBaCAxgQgiMYGQBNz3q7g+Z6onAMwgMYEIIjGBkHCuBAAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArahlAQAAYCtqWQAAANiKWhYAAAC2opYFAACArUZ68zTfqa902XJ/f390dNR4B8IIS1ftCos236m/131jWz6WcY4ZUljysfe6z83w3h2LPqLWhQ0vcmyzlXlZAAAA2IpaFgAAALailgUAAICtqGUBAABgq9D3/Zqamgr7KQBcFIkJRBCJCfihI+bLX/6yLWHpql1hEYQtH8s4xwwpLPkYZeG9OxZ9RK0LG17k2GYrawwAAABgK6W17ncfAAAAAD+YlwUAAICtqGUBAABgK2pZAAAA2KqPtezW3dnZ2dnZ/OreyRvubomI7K3mjy77C9x4rBuo+SwXDdve/mQ038FPtTTQ5/Nfz2Cvw95qvtnW0CvQ3j2j7xqCCCcxo56VsU9J8jHqQhsx20MFf7stGjcl3DwVRs9e6dcBFD5+770HWmv94K2vvPVAa631gwcP2pt8/a0Hpx7Y0Yk4zRgP3vr6ex/7C9vSvi1aoOAnWgbvc4fXM1BXH7z1la80opp7BdrebtPvGnwKKTFtyMpYpyT5GHHhjZjtocy83XaMmzrcPNWMnj3Tt3nZsbm5aRGR6dSrHz3aE5Gt6u3bLd+MfDsRZ++D919MTYvIdOrF9z8IGrstmrngBvp8/usZpKtbd6upt197yStOgLBtb3eI7xouJJzEtC4r45aS5GPUhTZitocy/nZHedyUMPNUGD17KALrZa++8vKYyN4L8+vr61999HrA5GyP8+LVF0RE5IWrLwbvans0Q8HN9tn79fQbc+tuNXV9+vi6oVegrXvhvmvwxWBiWpeVcUtJ8tEiZkdM6cHbbcO4KabzVBg9e6rftezW3erVuTERGRsbE5Hp62+/8ijQd4n2OB89+lhERD5+9FHgzp6KZii4wT6f+Xr6i7m3+u79+7dnZ19/58P7t2fvbhl7Bdq6F+67hoszm5jWZWXcUpJ8tIXxEdMjlPG3O/LjphjPU2H07LG+1rJbd2dPfm0R2fvgfbk6Fjx0I87Yy698VN0Ska3qR6+8HDRuWzSzwQ30+ezX02/Msbni+vr6+vrbr7306pvr16dNvwJtb3co7xouLKzEtC4r45aS5GO0hThiSnhvd9THTQkjT4XRs9f6tVD34/e+/pWmtx4cXT1arewumW694UJh2+McXb9o2Lb2ntF8BG9taaTPXb6ePl+HlrXjRl6Btu4Zf9fgWxiJaUVWxjklycfoC2nE1OG83baMmzrsPNWMnj3COWwBAABgq36vlwUAAAD8opYFAACArahlAQAAYCtqWQAAANiKWrb/nGKu6PS7EwCaSEkg4khStKKW7b/azna/uwDgGCkJRBxJilbUsj1WyalcpZJTSqmZoiMilVxmubqUVLlK495icca9z23VaCbtVwGYQEoCEUeSopN+H+A2VmqFlIiILJa1Li9KqlDTtVq5kEoVasf3uld0edG90GjXdhWAAaQkEHEkKTob6UP5HF+J/GZ5R61lS2kRZyIlIpJIJNvvzSdExNndri4l1ZKIiCzWHDlxVSTRh+4Dg4aUBCKOJEVnrDGIrsVy8xtHKX36KoAeIyWBiCNJ44laNqIS45PLaxUREankcpW2q/3sGRBLpCQQcSRpfIW7hAEnlRdFRGSx3LrGx71xsdy8t7mup3G1+cWy7SqA4EhJIOJIUnSktNYmS2MAAACgV1hjAAAAAFtRywIAAMBW1LIAAACwFbUsAAAAbEUtCwAAAFtRywIAAMBW1LIAAACw1f8HIH1ENmwe3EwAAAAASUVORK5CYII=" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F4TURBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDEwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 1001
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXhNREF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDEwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAxMDAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 1001
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlNiM1ZuYUNBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJTYjNWbmFDUlBUMEpmVWsxVFJWeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
nperm <- 5
resultsOutRough <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSU2IzVm5hQ0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlNiM1ZuYUNSUFQwSmZVazFUUlZ4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0Um91Z2ggPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0Um91Z2gkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxuYGBgXG5gYGAifQ== -->
```r
```r
nperm <- 5
resultsOutRough <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjY4NzEzMVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0pFOVBRbDlOUVVWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0Um91Z2gkT09CX01BRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.6687131
resultsOutRough$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGSnZkV2RvSkU5UFFsOU5RVVZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutRough$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTE5MjYwM1xuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0pGSnpjWFZoY21Wa1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dFJvdWdoJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.5192603
resultsOutRough$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGSnZkV2RvSkZKemNYVmhjbVZrWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFJvdWdoJFJzcXVhcmVkXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFJvdWdoJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutRough$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODM3NzM0NFxuIn0= -->
```
[1] 0.8377344
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVW05MVoyZ2dQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGSnZkV2RvSkU5UFFsOVNUVk5GWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0Um91Z2gkT09CX1JNU0VcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
resultsOutRough <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVbTkxWjJnZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZKdmRXZG9KRTlQUWw5U1RWTkZYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0Um91Z2gkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0Um91Z2ggPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFJvdWdoJE9PQl9STVNFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutRough <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjY4OTY2N1xuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0pFOVBRbDlOUVVWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0Um91Z2gkT09CX01BRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.6689667
resultsOutRough$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGSnZkV2RvSkU5UFFsOU5RVVZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutRough$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTE5MTcwNFxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0pGSnpjWFZoY21Wa1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dFJvdWdoJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.5191704
resultsOutRough$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGSnZkV2RvSkZKemNYVmhjbVZrWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFJvdWdoJFJzcXVhcmVkXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFJvdWdoJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutRough$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODM4MDEwNlxuIn0= -->
```
[1] 0.8380106
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEc5eVpTQnlaWE4xYkhSelhHNXlaWE5rUVc1dWIzbE5ia1pwZEVGQ1d5ZEJZbk1nY205MVoyZ25MQ0FuVWsxVFJTZGRJRHd0SUhKbGMzVnNkSE5QZFhSU2IzVm5hQ1JQVDBKZlVrMVRSVnh1Y21WelpFRnVibTk1VFc1R2FYUkJRbHNuUVdKeklISnZkV2RvSnl3Z0owMUJSU2RkSUR3dElISmxjM1ZzZEhOUGRYUlNiM1ZuYUNSUFQwSmZUVUZGWEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkQlluTWdjbTkxWjJnbkxDQW5Vbk54ZFdGeVpXUW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFVtOTFaMmdrVW5OeGRXRnlaV1JjYm5KbGMyUkJibTV2ZVUxdVVHVnliVWx0Y0VGQ0pFRmljMUp2ZFdkb0lEd3RJSEpsYzNWc2RITlBkWFJTYjNWbmFDUmpiMjVrYVhScGIyNWhiRjl3WlhKdGFXMXdYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbiMgc3RvcmUgcmVzdWx0c1xucmVzZEFubm95TW5GaXRBQlsnQWJzIHJvdWdoJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0Um91Z2gkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0FicyByb3VnaCcsICdNQUUnXSA8LSByZXN1bHRzT3V0Um91Z2gkT09CX01BRVxucmVzZEFubm95TW5GaXRBQlsnQWJzIHJvdWdoJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFJvdWdoJFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiRBYnNSb3VnaCA8LSByZXN1bHRzT3V0Um91Z2gkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdAnnoyMnFitAB['Abs rough', 'RMSE'] <- resultsOutRough$OOB_RMSE
resdAnnoyMnFitAB['Abs rough', 'MAE'] <- resultsOutRough$OOB_MAE
resdAnnoyMnFitAB['Abs rough', 'Rsquared'] <- resultsOutRough$Rsquared
resdAnnoyMnPermImpAB$AbsRough <- resultsOutRough$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkRzl5WlNCeVpYTjFiSFJ6WEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkQlluTWdjbTkxWjJnbkxDQW5VazFUUlNkZElEd3RJSEpsYzNWc2RITlBkWFJTYjNWbmFDUlBUMEpmVWsxVFJWeHVjbVZ6WkVGdWJtOTVUVzVHYVhSQlFsc25RV0p6SUhKdmRXZG9KeXdnSjAxQlJTZGRJRHd0SUhKbGMzVnNkSE5QZFhSU2IzVm5hQ1JQVDBKZlRVRkZYRzV5WlhOa1FXNXViM2xOYmtacGRFRkNXeWRCWW5NZ2NtOTFaMmduTENBblVuTnhkV0Z5WldRblhTQThMU0J5WlhOMWJIUnpUM1YwVW05MVoyZ2tVbk54ZFdGeVpXUmNibkpsYzJSQmJtNXZlVTF1VUdWeWJVbHRjRUZDSkVGaWMxSnZkV2RvSUR3dElISmxjM1ZzZEhOUGRYUlNiM1ZuYUNSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0FicyByb3VnaCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFJvdWdoJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgcm91Z2gnLCAnTUFFJ10gPC0gcmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyByb3VnaCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRSb3VnaCRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkQWJzUm91Z2ggPC0gcmVzdWx0c091dFJvdWdoJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgcm91Z2gnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnQWJzIHJvdWdoJywgJ01BRSddIDwtIHJlc3VsdHNPdXRSb3VnaCRPT0JfTUFFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgcm91Z2gnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0Um91Z2gkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJEFic1JvdWdoIDwtIHJlc3VsdHNPdXRSb3VnaCRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# store results
resdAnnoyMnFitAB['Abs rough', 'RMSE'] <- resultsOutRough$OOB_RMSE
resdAnnoyMnFitAB['Abs rough', 'MAE'] <- resultsOutRough$OOB_MAE
resdAnnoyMnFitAB['Abs rough', 'Rsquared'] <- resultsOutRough$Rsquared
resdAnnoyMnPermImpAB$AbsRough <- resultsOutRough$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0xtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlNiM1ZuYUNSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJTYjNWbmFDNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSU2IzVm5hQzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRkp2ZFdkb0xtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTlYwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9iV1ZoYmlCamFHRnVaMlVnYVc0Z1lXNXViM2xoYm1ObEtWd2lLU0FySUdkbmRHbDBiR1VvWENKU2IzVm5hRzVsYzNOY0lpa2dLeUIwYUdWdFpTaDBaWGgwSUQwZ1pXeGxiV1Z1ZEY5MFpYaDBLR1poYldsc2VTQTlJRndpYzJWeWFXWmNJaWtzSUhCaGJtVnNMbWR5YVdROVpXeGxiV1Z1ZEY5c2FXNWxLR052Ykc5eUlEMGdjbWRpS0RJek5Td2dNak0xTENBeU16VXNJREV3TUN3Z2JXRjRRMjlzYjNKV1lXeDFaU0E5SURJMU5Ta3NJR3hwYm1WM2FXUjBhQ0E5SURBdU1qVXNJR3hwYm1WMGVYQmxJRDBnTWlrcElDc2dZMjl2Y21SZlpteHBjQ2dwWEc1d1FtRnlYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRSb3VnaC5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0Um91Z2gkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0Um91Z2guY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0Um91Z2guY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRSb3VnaC5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzVdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyBnZ3RpdGxlKFxcUm91Z2huZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutRough.conimp <- arrange(resultsOutRough$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutRough.conimp) + geom_col(aes(x=factor(rownames(resultsOutRough.conimp), levels=rownames(resultsOutRough.conimp)), y=CondPermImp), fill=mycolours[5], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\Roughness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGSnZkV2RvTG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSU2IzVm5hQ1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlNiM1ZuYUM1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJTYjNWbmFDNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGSnZkV2RvTG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJOVjBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb2JXVmhiaUJqYUdGdVoyVWdhVzRnWVc1dWIzbGhibU5sS1Z4Y0tTQXJJR2RuZEdsMGJHVW9YRnhTYjNWbmFHNWxjM05jWENrZ0t5QjBhR1Z0WlNoMFpYaDBJRDBnWld4bGJXVnVkRjkwWlhoMEtHWmhiV2xzZVNBOUlGeGNjMlZ5YVdaY1hDa3NJSEJoYm1Wc0xtZHlhV1E5Wld4bGJXVnVkRjlzYVc1bEtHTnZiRzl5SUQwZ2NtZGlLREl6TlN3Z01qTTFMQ0F5TXpVc0lERXdNQ3dnYldGNFEyOXNiM0pXWVd4MVpTQTlJREkxTlNrc0lHeHBibVYzYVdSMGFDQTlJREF1TWpVc0lHeHBibVYwZVhCbElEMGdNaWtwSUNzZ1kyOXZjbVJmWm14cGNDZ3BYRzV3UW1GeVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRSb3VnaC5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0Um91Z2gkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0Um91Z2guY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0Um91Z2guY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRSb3VnaC5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzVdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyBnZ3RpdGxlKFxcUm91Z2huZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFJvdWdoLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRSb3VnaCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRSb3VnaC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRSb3VnaC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFJvdWdoLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxSb3VnaG5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcbmBgYCJ9 -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutRough.conimp <- arrange(resultsOutRough$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutRough.conimp) + geom_col(aes(x=factor(rownames(resultsOutRough.conimp), levels=rownames(resultsOutRough.conimp)), y=CondPermImp), fill=mycolours[5], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\Roughness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qSXVPU3dpZDJsa2RHZ2lPamdzSW5OcGVtVmZZbVZvWVhacGIzSWlPakVzSW1OdmJtUnBkR2x2Ym5NaU9sdGRmUT09IC0tPlxuXG48aW1nIHNyYz1cXGRhdGE6aW1hZ2UvcG5nO2Jhc2U2NFxuIn0= -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjIuOSwid2lkdGgiOjgsInNpemVfYmVoYXZpb3IiOjEsImNvbmRpdGlvbnMiOltdfQ== -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFEZUNBTUFBQUNnOUR5SkFBQUJ5MUJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qcXROanNobUFBQm1BRHBtQUdabU9wQm1aZ0JtWnJabWtKQm1rTnRtdHR0bXR2OXVUVTF1VFc1dVRZNXViazF1Ym01dWJxdHVqbzV1anNodXE2dHVxOGh1cStTT1RVMk9UWTZPYmsyT2JvNk9icXVPamsyT2pvNk9qc2lPcTZ1T3E4aU9xK1NPeU1pT3lPU095UCtRT2dDUU9qcVFPbWFRWmdDUVpqcVFacENRa0RxUWtHYVFrSkNRa0xhUWtOdVF0cENRdHYrUTI3YVEyOXVRMi8rcmJrMnJibTZyYm82cmprMnJqbzZyanF1cnEyNnJxNnVycThpcnErU3J5TWlyeVArcjVNaXI1T1NyNVArMlpnQzJaanEyWm1hMmtEcTJrSkMydG1hMjI1QzIvN2EyLzl1Mi8vL0lqazNJam03SWpvN0lxNDdJcTZ2SXlJN0l5S3ZJeU1qSXlPVEl5UC9JNUt2STVQL0kvOGpJLytUSS8vL2JrRHJia0diYmtKRGJ0bWJiMjVEYjI3YmIvN2JiLzl2Yi8vL2txMjdrcTQ3a3E2dmt5STdreUt2a3lNams1S3ZrNU1qay84amsvK1RrLy8veTh2TDM5L2Y3cERIL3RtYi90cEQveUk3L3lLdi95TWovMjVELzI3Yi81S3YvNU1qLzVPVC8vN2IvLzhqLy85di8vK1QvLy85ZlN1TnZBQUFBQ1hCSVdYTUFBQXV3QUFBTHNBRWFPQkJ5QUFBUjhFbEVRVlI0bk8yZGpaL2pSQm5Ic3krdXAyQ3pDNHU3M0hsQ1YvRTQ2ZklpSzBncktNb0p0M3U4THh5dGNncjdJZ2pJMFo0b2JrODhYbnByNlZHTGZaay8xK2VabWFScG1yNG5rNW5zOC8zY05jMWs1c25UeVc5bkpzbVRpY1VJSW5Lc3VCMGdUZ0lrTTBJQkpETkNBU1F6UWdFa00wSUJKRE5DQVpySXJKMnprUFNBemMzMVFWc0lJOUJFWm93VkZ1SC8zSGJnTmhBaHljeG90SkZaQ1dSV1h4cWdwbmFPWkdZME9zbXNuWnZmd3c3U210dHVyczl0MTVkZ3RiNEVmZWxpTzNkdnprckJKcjdBUkd6N3JQbmY3c2xQUW0vMGtaa2Ntalh2M21hbCtUMWMxRS90NGFDc2dBS2MyNjR1L0RNSEFxekN0ak5IMEx6VjcySE4wM3ZpTTI3bmlSSG9JN05GMFdWV0Y0NXd4QzlsQnY4d0JUdE4rQ29YcUVnTHNrTzd4c1Fub1RrYXlRd2JNVmlDek5xNWxKUVpDb3QzcHoweUU4cUNyalBsZkJKNm81UE1tdXN3NG9KT0VWVWxaWVlxNHJycmtSbGthNTZGTWxYZXpWYnBORlI3dEpFWlh0Q284bUgrb3FNb0dOMi9kZVlJTi9iS0RIdlhhOXN3S21PbHRQaU0yM2xpQkpySURDL1BRcXRWc1BBRTArS2RwMlg5RUlYRnI5cEMrblByMXNKVFluRlV0VUNQLy8wVkRORGtKNkU1bXNoc0VNMEw4RkcvUFc0M2lCblJYR1lGSE40WHFGTTBIYzFsMWx3ZmNxZVRNQWJOWlVZa0E1SVpvUUNTR2FFQWtobWhBSklab1FCZFpQWXRJcUh3dzZ1TnpPSjJnSWdHa2htaEFKSVpvUUFUWkhZY2htbDlqR2praWpJakpEUGxSalJ5aFdUbTRUK0VPUXc3c0NReklpU0dIZGhaWmRiYXRGY3JaWHVseUJvL3l1UHE2cDh2WXhKdXc1VE9qbTNieTVjM2wyRmpad2V5ZFV2aHAyMW5TV1lKSVVxWnNkWWpJS2wvZ1h5Ky9sbUdzWElXdE1XVG1FekJsVnY1MXFVMXhyNTV1TmhUaXJXMldFMG9rbVJtUG1wazloNHFocXZHa1JsUGdaVmJlZFo2NWNFaXUvRmlzV3d2djdHeitrS21LN00xSm00QkhCL3pBZVZ4enpMdW1pTW1JT0Q0d1RKa21iVSthSUdTV00zT09ESVRLZEF6UW9mWjJ0M1BkdDQveEF6WjFpT3ZPYTNacHIwbXpWQnJaanpCK2doVFpxQ2ZtalBPS21lbHpFU0tiTTEyRytjKy8vQ3dDTUxLc2xyRzdUUWI1eW9rczRRUXFjdzZsL0pjTkRjcTJBSFdVRVM0Mm5oY3B2Q1Y4NjNkenFYSEtvZkZ3Mkl0MnpoL2tCZFpvTk1zWjBobUNTRlNtYkhHQnZTS2NFS1paZnYyNnIvdnMxZXU0Z2trRE1GNHlwMFB3WXI5QzJqRWFoazRJWDNaaHBRbmR1N1lFT2VmZHFhemcrZWdKTE1FRUszTXdvSHVBaVRVaUFreUk0eUhaRVlvZ0dSR0tJQmtSaWpBQkptWk5kcFZaTVVzSXlRejVVWTBjb1ZrNXNHc0dsVmt4U3dqSnNnczdpdU9zUk5VS1NTejZTR1pCYUw0S0VRQXljd0FGQitGQ0loQ1pqeUNWbEREZStJOE5zaWw1UTJyRGZUR1Q5eEhPWFpDUFRxeEVJWE1lTHdzcDdPVDhXMXJiYkdlc05vZ2IvekVmWlJqSjh5REV3OVJ5SXpIeTVZZnRSKzFzN1g3TjFhS29Ldlc1bksrOGZQTmxXTE56dlNHMWVMekFmdjIvYTlUOU94ZytxTlJqNDl2OXRmVDVNdWJNNWJueStNeDhrVWdNeDR2MjlwY3E2MDFIZ2NsMVRMbDFjcjFmTzJCblpYaVFmN1Q4NzFodGJBaEF6MXJXVHh6UXExWklFR1ZjdUxQTkVXOGJDMWJ5NERNTXF4eHZ2TlNaZCsyUVhRZ3FvWXJNNUVOTnh6a1NXWkRDYXFVRXk4eko0Sld5cXljQVpuaDB5aGVtYmxodGJpaFRLM1pjSUlxNVlUTHJPUEV5NjYrWU5zcjcwSmpCZTFXRmg4cjJWKzV1cm5XMnZ5cE42eDI5UXZZZ0U5cURwTVpZVHlhWERjYjJwb1J4cU9IekJvYjRrbDBrbGxDMFVObURpU3poR0tDek13YTdTcXlZcFlSa3BseUl4cTVRakx6WUZhTktySmlsaEdTbVhJakdybENNaU9TaEFreUMrdkNPUkViSkROQ0FkSEpMR0NpMERmNDNLQjl3WXgrYi95UXpJd253dFpzd0VTaHQzd3lhMjM1dmZFVGlzejBHVEpyNUVvU1RnR0NKd29GbGUwdjUvZFh2L0FFT2pZMjd2b2c1TEJHamNNQTRiak02b2RXdnllbXNFYUhvSWxDeGR5Z0tEWnZvT1AxL05maWFRRnF6UkpxSkdxWjlVMFVpbjNtUWY2ZG5rQkhkdzUza2xsQ2pVUW9zMEVUaFo1bmpaKzh6cnlCanY4cXdrZlhHeitoeUl5SWt5Z3ZhUFJORlBvUm5tbGl5M2JJNTlaMkFoMHpuMjFTV0dPeU1lRzZHV0U4SkROQ0FTYkl6S3pScmlJclpoa2htU2szb3BFckpETVBadFdvSWl0bUdTR1pLVGVpa1Nza015SkprTXdJQlpnZ003cW9iendrTTBJQkowWm0rZ3laTlhJbHZsT0FxcFdxTDZXNjZ3RkJzSmMzblpnTEw0M0hlV2JiWHYxc3c0YjhaVHVEMFQvaVJpWVBtZVZUNW5YRE1lVDBvQzJQTlpKWlFvMzRaZFk4Mjd6QW1xZjN1am1DZ21DM1JKU2lGekgvSjJ6cHZQUnB0bk1KQXk4Tzh1dzlhVUNFekxZdXJUSDJ6Y1BGSHRQTVk0MWtsbEFqZnBtMW53R1pWUmVPdWptQ2dtQzNNTFNuczRQelJtVnF5M2xza05aNEtHeHJxL01xNHpNYmwzbmd6eVkyVnhoazF0bFpmU0hUZXVYQklydnhJalIweTIvd2RWZG0rTEx6WWRHelNZbzJwZWhaaHAybVpjMTdHck1CUWJCcmZMS29NazdvZVpEbkg0MGZGdy95WW91WTdSTzYwZjlWUUpaT3lPeHJyTFc3bisyOGY0aFdzbnhkeUl5WDRkQXBRRUlKUGdYNG03L1Q5QVhCYmpYT1ZiQlBiSnpuQ3NONHNncVBVUlN0Mlg2V2lkWU1jbC9QeTVCWldHdnROczU5L3VGaHNZWHhaYmd1V3pPMDV2SEdEOG5NZUhwazFseTNCTjdtTENnSWRvdFA1QWxyR1JEWC9zcTdLRDhwTS9pR0hlcXJZbXpHT3M4WFJjaHM0enkwZGJ1ZFM0OVZEb3VIeFZxV3IvUHBRWVUxanpkK1NHYkcwOXVhWFpGak1tOXIxaDhFZTNYVHpuUjJjRjVQM2lQYVdjZ2hRbUh2Z2kwNFpyTmhzUS8veTZJazhNVE9FenQzYk5qWldnYk9XbCsyN1RzZjR1dHdEbnBaV010M3ZTRVNSeWpYemI0dU1qN3lueG02ZFo1UUkzMHl3NDV6Y2NJZGxZYy9TejQrSkxPRUd1bTdvSkZMd2RsbWFsRDJpQ0daSmRSSTMrWFpNemc4NnhtYktZUmtsbEFqZlozbXRXMzQrSU5XTWlPTUovaUNobDZkSm1FOGdSYzA2dmZFNmcyUk9QbzZ6WUwvOHF4NmI0akUwUitoMFg2R05TL0U2bzJmVU80QjZETmsxc2lWK000MEw3QnF1djJrVnEwWnljeDRJMzJkWm1sK3IrQmVuNTBvcHJFajR4ZHI5c3BmWCt0R01QS1NJcGF4akxlVnVrR08vSjVVejR2UVNXWUpOVElpUW1PeW1FWWV2OWc0VjJsdFpyb1JqT0tWNXAzbmk0emZUZmNFT1c3eDFINXYvSkRNakRmU2UwSGo5SjY0cGpIZko3T3hZaHA1eE05MW9TRVp3U2hMY2tHVjVSUm5UcERqbG96ZjRJV0hoVFdHRVFaSXl6aVhmYTNabFo2N0FKUEdORUozZU1nYktEZUNVWlpFbWZGSVIwK1FJLzlXWHYyU3p3M0tkeGRoYTBiRVNkOHB3T21lMGY5a01ZMjhOUk9LY1NJWW5aSzlyWmtJY29UV2JDZmJlVWtVOW5qamgyUm1QSDJ0R2IvUDVMWm1rOFUwaXZoRkVDSGtraEdNc21UdjJFd0dPVzVobkMzSjdDVFExNXIxanMwbWlXbjh2cHp5RTlvdmZIMDVqMkJjdmsrVXJPQi9qSFRzQ1hLMEliRm1aL25jb0I1di9KZzEybFZreFN3akk4Wm1ZeEJhVENNam1TWFdTT0FGalludWFZWVcwOGhJWm9rMVlzSTlUYk5xVkpFVnM0eVljRStUTUI0VDdta1N4alA4bm1ZODNoQ0p3NFNKcHdqak1VRm1abzEyRlZreHkwanZyZk96WWV4MkJraG1DVFhpZitRa3Jrc1pBcEpaUW8zMHl1d0N2OW5VZmE0cHRMQkdGalIzNDdoaGpXYlZxQ0lyWmhrSkdwdVZBdUxOWmd4ckRKeTdjZHl3UnNKNC9LMFphK2U4TndIQ0Ntc01uTHR4M0xCR1docS83SDhjT00wOGhCWFdHRGgzNDdoaGpZVHgrSU8wZlp2RENtc01uTHR4M0xCR3duaEdYRGNMSzZ3eGNPN0djY01helJydEtySmlscEZSbDJmREMyc01tTHVSd2hwUGlwSFo3d0pRV0dNc1Zzd3lNcnZNS0t3eEZpdG1HVEhobmlaaFBDUXpRZ0VrTTBJQkpETkNBU2JJekt6UnJpSXJaaGtobVNrM29wRXJKRE1QWnRXb0lpdG1HU0daS1RlaWtTc2tNeUpKakpUWnRPODYveWhvR3REcDNuVk9HTS9vMW16S2Q1MEhUZ002M2J2T0NlT1pRR2FUdmVzOGNCclE2ZDUxVGt2amwrUExiTUozblFkT0F6cmR1ODdOR3UwcXNtS1drVEZsTnZtN3pnT25BWjN1WGVkbTFhZ2lLMllaR1MyektkOTFIamdONkhUdk9qZXJSaFZaTWN2SUdCYzBwbjdYZWNBMG9GTzk2OXlzR2xWa3hTd2pKcnpybkRDZVVHUVc4YnZPQ2VPaHV3Q0VBa2htaEFKTWtKbFpvMTFGVnN3eVFqSlRia1FqVjBobUhzeXFVVVZXekRKQ01sTnVSQ05YU0daRWtpQ1pFUW9ZSXJOcFpnU0Z4UU03Tms2WTl5V0ZOUkl1dzFxemlXY0VoUXlOY3hXTXQ3aEZZWTJFaDdGa051YU1vRHpZNTRCUHBQZE9KY1N3eHVNd3d1dHV6bGllTDIrR0V1YVhzTjl6UEdOWTQyUUJqWmdaV2krUTFhVk1hNWZDR2lPMllwYVJrVEtiWUVaUUVicjR5STJyRC80bFQyR05FVnN4eThnd21VMCtJeWllS3V5djRiL2d0NXRUV0dOb1Zzd3lNdlNDeHFRemd2THpTWkJqNDNWWWhoZldTQmpQak5mTndwd1JsSkhNRXN1TU1ndHpSbEJHTWtzc2RCZUFVSUFKTWpOcnRLdklpbGxHU0diS2pXamtDc25NZzFrMXFzaUtXVVpJWnNxTmFPUUt5WXhJRWlRelFnRWtNMElCa1lVMVZvTGViazVoalNlVXlNSWFBOTl1UGwxWW8xbWpYVVZXekRJU1dWaGo0TnZOS2F3eGdiOG4xckRHd0xlYlUxaGphRmJNTWhKWldHUGcyODBwckRFMEsyWVppU3lzTWZEdDV0T0ZOUkxHRTJWWVk4RGJ6U21zOFdSQ1lZMkVBaWlza1ZDQUNYY0J6QnJ0S3JKaWxoR1NtWElqR3JsQ012TmdWbzBxc21LV0VaS1pjaU1hdVhKU1pVWWtGSDU0ZFpGWk1QcWNmK3JqaVVhdWpPOEp5V3c4OVBGRUkxZVNJak1pSVpETUNBV1F6QWdGa013SUJXZ3JNLzVBZ2J2UXdKT2F2VkljbFRWaW5JY3A0cThVeDVOeEswVlhtY21nTmJuUXdCUCtjRVBjNEFTRldsU0s5R1RzU3RGVlpqSUUxNG5FamQ4VC9uQkQzSWlEcTBHbFNFL0dyaFJkWmNZZktIQVhHbmpDSDI2STF4UG40R3BRS2RLVHNTdEZWNWxwMTVveGZuaGpScmZXakkxYkticktUTCt4V2JkbTQwTzdzZG00bGFLcnpNUURCVm0rME1LVGNxakJ3bE83c2xyUnBWTFFrN0VyUlZ1WkVVbUNaRVlvZ0dSR0tJQmtSaWlBWkVZb2dHUkdLQ0FoTWl0WlZ1cmF0aSt4L2N2dDV0MDhVUzU2Q0VwekUrdTNIUTNLTXByK1lsTWE0cDdjUGpyTHFiMkp2Sm1JMzg5VTJpRVpNaXNzSExIU25MOUNDaUtsVDM0OVd3TnByaThjamNqaXc5M0pnTDJOVlRZQW9mZWh0SFB6dzJRMkl6T3FWSklJbWRXL2pWVlJUZnVTb1RYRHhZQy9SN2wxZ0VWK2RJZG02Y1hkeVJSLy9VT0t0SjhjUTBITjB4SEtqRFhQakJUNmFCSWhzOUtDckFuc082SFcvMmhCUXRXeTVyRFRoR1VhL3lROTI1cnIxdndlMTFBN1p5MUNhL0FXSmpSUFB6MzMzTjNiZkdQOXRxZXNSUzZ6Z3NXTlkwRW96MWN4NCs5dWU5TmErTmhhK0dSOWZnOGFQYjRUTEJpd044YWJoTG9zY09SWWtqbWVudnVOVTFabUw4RlhaN2ZWUlpTOExDbDI3c25KZjdHejV0a0F2d3ErRjl4OWQvM281bkYzWnFYRUwxNXlhc0h2Uk1ILzV6c0ZpWkladEVIMXBYdEJPWGhZVCsxQkl3Y0srQWRxWlc3YnU2MlVBZ0dKcGdwYmdxOTR3c1VjSEhiSXlEZldsOUx0WEJxK1ZDRXRKZVRJSUJGWHZ3Y1pZUjJPemlLTy9rNmpZSEVudkdEQTNoajJ2aGVkQWhlbEpTZEhpamxsTDRyc29LeENTdTRXMGxsM1Z6elJrNU54R1Jad3EveFJja05wc2V1NTJMZk0zczBqMDdnWGFmaUhYZmNBSjBxcDJZOVFvbVNHRlFLMXpnODhIaUN1SlpTVFdIZTM0YUZMeXg0Ukt2TEtFVTlBeFRrYnNkUGtzb0cvZHBDRjdKaEtLYjZLMzRVaGtLTDhJcHZHZE5EZXhNbUlwd0MzNU9SZ2JsbVJoVGNlem00eGwxdFNKSFp6TXRuU2VINlUrRnBkOUhqdTdodC9iVGVQVzB0WUExQ0J6Yk9EbkNDWlNjVFlyUDVzaVZmS0FKbDV0bFhoRDl5UldmM1VuNTVsUEVFZWN2NjlLelBaWXpqaWtJYzFTR2F1VmQvZVdMRE1uQnpNTGVzOXduSzN2VExEUkU5TzFpTXp6d2JlOWpvbXZETHo1SkcxdENoYnpQUzFnVTZRekJ6d1RCT0dxaUEzdHdLck1Qckt6Yi90eXN5N3JTQjdSTGNzVDVDSG5IOEhtVUhYd1JzR2huL24vSVJMZENiTnMzNlpOZGR4UDh5MTZ0c2I4OGxNV0hKemlCRmcybFZzRlZzV1o3YzRObk5MOGtSUFR0eU9tVDAvU3BwSWlhTGNoTmNQVHg3eEtieUF6SmFuRm54TzBOak1wWUJqWHQ3TXArSDdZZ2xxRFpLc3RQakNGNTV0SDF0ejM1bC9XZzZpNi9kZ0xVUENEM2dtc2ZIdEhPWVdwZm5sQWhnbVczaDVveURIMW1BSUZtL3liM1BmeFRPRk5EZXkxNyszSS9ScjRTbW53Q2ZTa3N6QlIvWnA2WUIwZkc2YnlkM2ltYVozVjNpTzBjM0pmL2pjdHVkSGlRMS9YOExUQzJsQzdGdGs5eFNXYWR3TEpyUVU3QVNkYVNva3ZJc0drMWthZnVsMUFGK0JpcTlNSkk3MnJ3ZGxuK0NpemhCSVp1TVJsOHpHdVF2Z0I1WFJ2REJSa2I1cmppNTBGMEFoTUtoZUNLSHZDTlhTWUtwaUNERTJCWDVLR2lVa00wSUJKRE5DQVNRelFnRWtNMElCSkROQ0FmOEhzV0Z0YlBKQll1b0FBQUFBU1VWT1JLNUNZSUk9XCIgLz5cblxuPCEtLSBybmItcGxvdC1lbmQgLS0+XG4ifQ== -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAADeCAMAAACg9DyJAAABy1BMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshmAABmADpmAGZmOpBmZgBmZrZmkJBmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZjqQZpCQkDqQkGaQkJCQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb/9vb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f7pDH/tmb/tpD/yI7/yKv/yMj/25D/27b/5Kv/5Mj/5OT//7b//8j//9v//+T///9fSuNvAAAACXBIWXMAAAuwAAALsAEaOBByAAAR8ElEQVR4nO2djZ/jRBnHsy+up2CzC4u73HlCV/E46fIiK0grKMoJt3u8Lxytcgr7IgjI0Z4obk88Xnpr6VGLfZk/1+eZmaRpmr4nk5ns8/3cNc1k5snTyW9nJsmTicUIInKsuB0gTgIkM0IBJDNCASQzQgEkM0IBJDNCAZrIrJ2zkPSAzc31QVsII9BEZowVFuH/3HbgNhAhycxotJFZCWRWXxqgpnaOZGY0OsmsnZvfww7Smtturs9t15dgtb4EfeliO3dvzkrBJr7ARGz7rPnf7slPQm/0kZkcmjXv3mal+T1c1E/t4aCsgAKc264u/DMHAqzCtjNH0LzV72HN03viM27niRHoI7NF0WVWF45wxC9lBv8wBTtN+CoXqEgLskO7xsQnoTkayQwbMViCzNq5lJQZCot3pz0yE8qCrjPlfBJ6o5PMmusw4oJOEVUlZYYq4rrrkRlka56FMlXezVbpNFR7tJEZXtCo8mH+oqMoGN2/deYIN/bKDHvXa9swKmOltPiM23liBJrIDC/PQqtVsPAE0+Kdp2X9EIXFr9pC+nPr1sJTYnFUtUCP//0VDNDkJ6E5mshsEM0L8FG/PW43iBnRXGYFHN4XqFM0Hc1l1lwfcqeTMAbNZUYkA5IZoQCSGaEAkhmhAJIZoQBdZPYtIqHww6uNzOJ2gIgGkhmhAJIZoQATZHYchml9jGjkijIjJDPlRjRyhWTm4T+EOQw7sCQzIiSGHdhZZdbatFcrZXulyBo/yuPq6p8vYxJuw5TOjm3by5c3l2FjZweydUvhp21nSWYJIUqZsdYjIKl/gXy+/lmGsXIWtMWTmEzBlVv51qU1xr55uNhTirW2WE0okmRmPmpk9h4qhqvGkRlPgZVbedZ65cEiu/FisWwvv7Gz+kKmK7M1Jm4BHB/zAeVxzzLumiMmIOD4wTJkmbU+aIGSWM3OODITKdAzQofZ2t3Pdt4/xAzZ1iOvOa3Zpr0mzVBrZjzB+ghTZqCfmjPOKmelzESKbM12G+c+//CwCMLKslrG7TQb5yoks4QQqcw6l/JcNDcq2AHWUES42nhcpvCV863dzqXHKofFw2It2zh/kBdZoNMsZ0hmCSFSmbHGBvSKcEKZZfv26r/vs1eu4gkkDMF4yp0PwYr9C2jEahk4IX3ZhpQndu7YEOefdqazg+egJLMEEK3MwoHuAiTUiAkyI4yHZEYogGRGKIBkRijABJmZNdpVZMUsIyQz5UY0coVk5sGsGlVkxSwjJsgs7iuOsRNUKSSz6SGZBaL4KEQAycwAFB+FCIhCZjyCVlDDe+I8Nsil5Q2rDfTGT9xHOXZCPTqxEIXMeLwsp7OT8W1rbbGesNogb/zEfZRjJ8yDEw9RyIzHy5YftR+1s7X7N1aKoKvW5nK+8fPNlWLNzvSG1eLzAfv2/a9T9Oxg+qNRj49v9tfT5MubM5bny+Mx8kUgMx4v29pcq601Hgcl1TLl1cr1fO2BnZXiQf7T871htbAhAz1rWTxzQq1ZIEGVcuLPNEW8bC1by4DMMqxxvvNSZd+2QXQgqoYrM5ENNxzkSWZDCaqUEy8zJ4JWyqycAZnh0yhemblhtbihTK3ZcIIq5YTLrOPEy66+YNsr70JjBe1WFh8r2V+5urnW2vypN6x29QvYgE9qDpMZYTyaXDcb2poRxqOHzBob4kl0kllC0UNmDiSzhGKCzMwa7SqyYpYRkplyIxq5QjLzYFaNKrJilhGSmXIjGrlCMiOShAkyC+vCOREbJDNCAdHJLGCi0Df43KB9wYx+b/yQzIwnwtZswESht3wya235vfETisz0GTJr5EoSTgGCJwoFle0v5/dXv/AEOjY27vog5LBGjcMA4bjM6odWvyemsEaHoIlCxdygKDZvoOP1/NfiaQFqzRJqJGqZ9U0Uin3mQf6dnkBHdw53kllCjUQos0EThZ5njZ+8zryBjv8qwkfXGz+hyIyIkygvaPRNFPoRnmliy3bI59Z2Ah0zn21SWGOyMeG6GWE8JDNCASbIzKzRriIrZhkhmSk3opErJDMPZtWoIitmGSGZKTeikSskMyJJkMwIBZggM7qobzwkM0IBJ0Zm+gyZNXIlvlOAqpWqL6W66wFBsJc3nZgLL43HeWbbXv1sw4b8ZTuD0T/iRiYPmeVT5nXDMeT0oC2PNZJZQo34ZdY827zAmqf3ujmCgmC3RJSiFzH/J2zpvPRptnMJAy8O8uw9aUCEzLYurTH2zcPFHtPMY41kllAjfpm1nwGZVReOujmCgmC3MLSns4PzRmVqy3lskNZ4KGxrq/Mq4zMbl3ngzyY2Vxhk1tlZfSHTeuXBIrvxIjR0y2/wdVdm+LLzYdGzSYo2pehZhp2mZc17GrMBQbBrfLKoMk7oeZDnH40fFw/yYouY7RO60f9VQJZOyOxrrLW7n+28f4hWsnxdyIyX4dApQEIJPgX4m7/T9AXBbjXOVbBPbJznCsN4sgqPURSt2X6WidYMcl/Py5BZWGvtNs59/uFhsYXxZbguWzO05vHGD8nMeHpk1ly3BN7mLCgIdotP5AlrGRDX/sq7KD8pM/iGHeqrYmzGOs8XRchs4zy0dbudS49VDouHxVqWr/PpQYU1jzd+SGbG09uaXZFjMm9r1h8Ee3XTznR2cF5P3iPaWcghQmHvgi04ZrNhsQ//y6Ik8MTOEzt3bNjZWgbOWl+27Tsf4utwDnpZWMt3vSESRyjXzb4uMj7ynxm6dZ5QI30yw45zccIdlYc/Sz4+JLOEGum7oJFLwdlmalD2iCGZJdRI3+XZMzg86xmbKYRkllAjfZ3mtW34+INWMiOMJ/iChl6dJmE8gRc06vfE6g2ROPo6zYL/8qx6b4jE0R+h0X6GNS/E6o2fUO4B6DNk1siV+M40L7Bquv2kVq0Zycx4I32dZml+r+Ben50oprEj4xdr9spfX+tGMPKSIpaxjLeVukGO/J5Uz4vQSWYJNTIiQmOymEYev9g4V2ltZroRjOKV5p3ni4zfTfcEOW7x1H5v/JDMjDfSe0Hj9J64pjHfJ7OxYhp5xM91oSEZwShLckGV5RRnTpDjlozf4IWHhTWGEQZIyziXfa3ZlZ67AJPGNEJ3eMgbKDeCUZZEmfFIR0+QI/9WXv2Szw3Kdxdha0bESd8pwOme0f9kMY28NROKcSIYnZK9rZkIcoTWbCfbeUkU9njjh2RmPH2tGb/P5LZmk8U0ivhFECHkkhGMsmTv2EwGOW5hnC3J7CTQ15r1js0miWn8vpzyE9ovfH05j2Bcvk+UrOB/jHTsCXK0IbFmZ/ncoB5v/Jg12lVkxSwjI8ZmYxBaTCMjmSXWSOAFjYnuaYYW08hIZok1YsI9TbNqVJEVs4yYcE+TMB4T7mkSxjP8nmY83hCJw4SJpwjjMUFmZo12FVkxy0jvrfOzYex2BkhmCTXif+QkrksZApJZQo30yuwCv9nUfa4ptLBGFjR347hhjWbVqCIrZhkJGpuVAuLNZgxrDJy7cdywRsJ4/K0Za+e8NwHCCmsMnLtx3LBGWhq/7H8cOM08hBXWGDh347hhjYTx+IO0fZvDCmsMnLtx3LBGwnhGXDcLK6wxcO7GccMazRrtKrJilpFRl2fDC2sMmLuRwhpPipHZ7wJQWGMsVswyMrvMKKwxFitmGTHhniZhPCQzQgEkM0IBJDNCASbIzKzRriIrZhkhmSk3opErJDMPZtWoIitmGSGZKTeikSskMyJJjJTZtO86/yhoGtDp3nVOGM/o1mzKd50HTgM63bvOCeOZQGaTves8cBrQ6d51Tkvjl+PLbMJ3nQdOAzrdu87NGu0qsmKWkTFlNvm7zgOnAZ3uXedm1agiK2YZGS2zKd91HjgN6HTvOjerRhVZMcvIGBc0pn7XecA0oFO969ysGlVkxSwjJrzrnDCeUGQW8bvOCeOhuwCEAkhmhAJMkJlZo11FVswyQjJTbkQjV0hmHsyqUUVWzDJCMlNuRCNXSGZEkiCZEQoYIrNpZgSFxQM7Nk6Y9yWFNRIuw1qziWcEhQyNcxWMt7hFYY2Eh7FkNuaMoDzY54BPpPdOJcSwxuMwwutuzlieL2+GEuaXsN9zPGNY42QBjZgZWi+Q1aVMa5fCGiO2YpaRkTKbYEZQEbr4yI2rD/4lT2GNEVsxy8gwmU0+IyieKuyv4b/gt5tTWGNoVswyMvSCxqQzgvLzSZBj43VYhhfWSBjPjNfNwpwRlJHMEsuMMgtzRlBGMkssdBeAUIAJMjNrtKvIillGSGbKjWjkCsnMg1k1qsiKWUZIZsqNaOQKyYxIEiQzQgEkM0IBkYU1VoLebk5hjSeUyMIaA99uPl1Yo1mjXUVWzDISWVhj4NvNKawxgb8n1rDGwLebU1hjaFbMMhJZWGPg280prDE0K2YZiSysMfDt5tOFNRLGE2VYY8DbzSms8WRCYY2EAiiskVCACXcBzBrtKrJilhGSmXIjGrlCMvNgVo0qsmKWEZKZciMauXJSZUYkFH54dZFZMPqcf+rjiUaujO8JyWw89PFEI1eSIjMiIZDMCAWQzAgFkMwIBWgrM/5AgbvQwJOavVIclTVinIcp4q8Ux5NxK0VXmcmgNbnQwBP+cEPc4ASFWlSK9GTsStFVZjIE14nEjd8T/nBD3IiDq0GlSE/GrhRdZcYfKHAXGnjCH26I1xPn4GpQKdKTsStFV5lp15oxfnhjRrfWjI1bKbrKTL+xWbdm40O7sdm4laKrzMQDBVm+0MKTcqjBwlO7slrRpVLQk7ErRVuZEUmCZEYogGRGKIBkRiiAZEYogGRGKCAhMitZVurati+x/cvt5t08US56CEpzE+u3HQ3KMpr+YlMa4p7cPjrLqb2JvJmI389U2iEZMissHLHSnL9CCiKlT349WwNpri8cjcjiw93JgL2NVTYAofehtHPzw2Q2IzOqVJIImdW/jVVRTfuSoTXDxYC/R7l1gEV+dIdm6cXdyRR//UOKtJ8cQ0HN0xHKjDXPjBT6aBIhs9KCrAnsO6HW/2hBQtWy5rDThGUa/yQ925rr1vwe11A7Zy1Ca/AWJjRPPz333N3bfGP9tqesRS6zgsWNY0Eoz1cx4+9ue9Na+Nha+GR9fg8aPb4TLBiwN8abhLoscORYkjmenvuNU1ZmL8FXZ7fVRZS8LCl27snJf7Gz5tkAvwq+F9x9d/3o5nF3ZqXEL15yasHvRMH/5zsFiZIZtEH1pXtBOXhYT+1BIwcK+AdqZW7bu62UAgGJpgpbgq94wsUcHHbIyDfWl9LtXBq+VCEtJeTIIBFXvwcZYR2OziKO/k6jYHEnvGDA3hj2vhedAhelJSdHijllL4rsoKxCSu4W0ll3VzzRk5NxGRZwq/xRckNpseu52LfM3s0j07gXafiHXfcAJ0qp2Y9QomSGFQK1zg88HiCuJZSTWHe34aFLyx4RKvLKEU9AxTkbsdPksoG/dpCF7JhKKb6K34UhkKL8IpvGdNDexMmIpwC35ORgblmRhTcezm4xl1tSJHZzMtnSeH6U+Fpd9Hju7ht/bTePW0tYA1CBzbODnCCZScTYrP5siVfKAJl5tlXhD9yRWf3Un55lPEEecv69KzPZYzjikIc1SGauVd/eWLDMnBzMLes9wnK3vTLDRE9O1iMzzwbe9jomvDLz5JG1tChbzPS1gU6QzBzwTBOGqiA3twKrMPrKzb/tysy7rSB7RLcsT5CHnH8HmUHXwRsGhn/n/IRLdCbNs36ZNddxP8y16tsb88lMWHJziBFg2lVsFVsWZ7c4NnNL8kRPTtyOmT0/SppIiaLchNcPTx7xKbyAzJanFnxO0NjMpYBjXt7Mp+H7YglqDZKstPjCF55tH1tz35l/Wg6i6/dgLUPCD3gmsfHtHOYWpfnlAhgmW3h5oyDH1mAIFm/yb3PfxTOFNDey17+3I/Rr4SmnwCfSkszBR/Zp6YB0fG6byd3imaZ3V3iO0c3Jf/jctudHiQ1/X8LTC2lC7Ftk9xSWadwLJrQU7ASdaSokvIsGk1kaful1AF+Biq9MJI72rwdln+CizhBIZuMRl8zGuQvgB5XRvDBRkb5rji50F0AhMKheCKHvCNXSYKpiCDE2BX5KGiUkM0IBJDNCASQzQgEkM0IBJDNCAf8HsWFtbPJBYuoAAAAASUVORK5CYII=" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJsSnZkV2RvUTI5dVVHVnliV2x0Y0M1emRtZGNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVEl1T1N3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSnpkbWRjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1pFRnVibTk1VFc1U2IzVm5hRU52YmxCbGNtMXBiWEF1YzNablhDSXBYRzRnSUZ4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhDSlFkSE5CUW1SQmJtNXZlVTF1VW05MVoyaERiMjVRWlhKdGFXMXdMbkJrWmx3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pNDVMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjSW5Ca1psd2lLU2xjYmlBZ2RXNXNhVzVyS0Z3aVVIUnpRVUprUVc1dWIzbE5ibEp2ZFdkb1EyOXVVR1Z5YldsdGNDNXdaR1pjSWlsY2JuMWNibHh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uUm91Z2hDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNblJvdWdoQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5Sb3VnaENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjksIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uUm91Z2hDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnRoughConPermimp.svg\, width=8, height=2.9, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnRoughConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnRoughConPermimp.pdf\, width=8, height=2.9, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnRoughConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmxKdmRXZG9RMjl1VUdWeWJXbHRjQzV6ZG1kY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUSXVPU3dnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4emRtZGNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWkVGdWJtOTVUVzVTYjNWbmFFTnZibEJsY20xcGJYQXVjM1puWEZ3cFhHNGdJRnh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WEZ4UWRITkJRbVJCYm01dmVVMXVVbTkxWjJoRGIyNVFaWEp0YVcxd0xuQmtabHhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWk0NUxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNYSEJrWmx4Y0tTbGNiaUFnZFc1c2FXNXJLRnhjVUhSelFVSmtRVzV1YjNsTmJsSnZkV2RvUTI5dVVHVnliV2x0Y0M1d1pHWmNYQ2xjYm4xY2JseHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uUm91Z2hDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNblJvdWdoQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5Sb3VnaENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjksIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uUm91Z2hDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNblJvdWdoQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuOSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5Sb3VnaENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uUm91Z2hDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNblJvdWdoQ29uUGVybWltcC5wZGZcXClcbn1cblxuXG5gYGBcbmBgYCJ9 -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnRoughConPermimp.svg\, width=8, height=2.9, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnRoughConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnRoughConPermimp.pdf\, width=8, height=2.9, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnRoughConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5YjNWbmFGWmhjaUE4TFNCY0lsVkJVMUp2ZFdkb1Jsb3dOVVY0VFdGNFRGSmNJbHh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbnJvdWdoVmFyIDwtIFxcVUFTUm91Z2hGWjA1RXhNYXhMUlxcXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
roughVar <- \UASRoughFZ05ExMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXliM1ZuYUZaaGNpQThMU0JjWEZWQlUxSnZkV2RvUmxvd05VVjRUV0Y0VEZKY1hGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbnJvdWdoVmFyIDwtIFxcVUFTUm91Z2hGWjA1RXhNYXhMUlxcXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yb3VnaFZhciA8LSBcXFVBU1JvdWdoRlowNUV4TWF4TFJcXFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
roughVar <- \UASRoughFZ05ExMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### Impulsiveness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJKYlhCMWJITnBkbVZ1WlhOelhHNXBWbUZ5Y3lBOExTQmpLR0ZpYzFaaGNpd2daWFpsYm5SV1lYSXNJR0Z0WWxaaGNpd2dYQ0pWUVZOSmJYQjFiSE5UU0UxQmRtZE5ZWGhNVWx3aUxDQmNJbFZCVTBsdGNIVnNjMU5JVFRBMVJYaE5ZWGhNVWx3aUxDQmNJbFZCVTBsdGNIVnNjMU5JVFZCdmQwRjJaMDFoZUV4U1hDSXBYRzVrVm1GeUlEd3RJRndpWkVGdWJtOTVUV1ZoYmx3aVhHNWNibk5sWldSeklEd3RJR01vT0RRNU5Td2dOVGs0Tmpjc0lEVTBNVFlzSURrNE5ETXNJRGcyS1Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuIyBJbXB1bHNpdmVuZXNzXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNJbXB1bHNTSE1BdmdNYXhMUlxcLCBcXFVBU0ltcHVsc1NITTA1RXhNYXhMUlxcLCBcXFVBU0ltcHVsc1NITVBvd0F2Z01heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoODQ5NSwgNTk4NjcsIDU0MTYsIDk4NDMsIDg2KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Impulsiveness
iVars <- c(absVar, eventVar, ambVar, \UASImpulsSHMAvgMaxLR\, \UASImpulsSHM05ExMaxLR\, \UASImpulsSHMPowAvgMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(8495, 59867, 5416, 9843, 86)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QkpiWEIxYkhOcGRtVnVaWE56WEc1cFZtRnljeUE4TFNCaktHRmljMVpoY2l3Z1pYWmxiblJXWVhJc0lHRnRZbFpoY2l3Z1hGeFZRVk5KYlhCMWJITlRTRTFCZG1kTllYaE1VbHhjTENCY1hGVkJVMGx0Y0hWc2MxTklUVEExUlhoTllYaE1VbHhjTENCY1hGVkJVMGx0Y0hWc2MxTklUVkJ2ZDBGMlowMWhlRXhTWEZ3cFhHNWtWbUZ5SUR3dElGeGNaRUZ1Ym05NVRXVmhibHhjWEc1Y2JuTmxaV1J6SUR3dElHTW9PRFE1TlN3Z05UazROamNzSURVME1UWXNJRGs0TkRNc0lEZzJLVnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuIyBJbXB1bHNpdmVuZXNzXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNJbXB1bHNTSE1BdmdNYXhMUlxcLCBcXFVBU0ltcHVsc1NITTA1RXhNYXhMUlxcLCBcXFVBU0ltcHVsc1NITVBvd0F2Z01heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoODQ5NSwgNTk4NjcsIDU0MTYsIDk4NDMsIDg2KVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBJbXB1bHNpdmVuZXNzXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNJbXB1bHNTSE1BdmdNYXhMUlxcLCBcXFVBU0ltcHVsc1NITTA1RXhNYXhMUlxcLCBcXFVBU0ltcHVsc1NITVBvd0F2Z01heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoODQ5NSwgNTk4NjcsIDU0MTYsIDk4NDMsIDg2KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# Impulsiveness
iVars <- c(absVar, eventVar, ambVar, \UASImpulsSHMAvgMaxLR\, \UASImpulsSHM05ExMaxLR\, \UASImpulsSHMPowAvgMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(8495, 59867, 5416, 9843, 86)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbnAgPC0gbXRyeVR1bmUoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkPXNlZWRzWzE6Ml0sXG4gICAgICAgICAgICAgbnRyZWVzPW50cmVlcywgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuYGBgXG5gYGAifQ== -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZNU3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk1TRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpzTVZGMU1EZEVUVUpUT1dKU1MyZHJZV2R4WkdWVlJGZEtTMEpFYWtSNGEwbERTa3gxUjJoRWFVSnJSV3BsZUZOS00yZDFURkk0UVhsUFpuZHpZblpOU2xGQ2FWSXlhR2R3TXpab2NXRlNiM0I0ZW5KdkwxQjZVVzFQUW5veE16UkJTMEZDWW1Ka1FrMTBVa1ZLZWt4cE1VNTJSREJCU2tGQk1uZHZZVmN2VlROWGIzRTJabkZpVjNab1dVaGlPV1pZWW5wdGJHSTRZemN2TTA1bWREUnhMMmczT1hwdU0xaHlXVlV6YVhkMk1HbHJOQ3QzU0hveFJVbGpWR3RoTUZWTFFsUkNhVEZGVHl0cFptNTRhVGhGVWxGUVdYbEtiMXBNYWxaUU9FdFNVRnBNYVhsWFExaFlVa1pTTTBwYVMxQmhSV3h6YjIxUVMySm9WMWt6VjA1TlExVkdjbTlIYVVkNFJrb3ZTMFpSV0hOWWJVczFZakZNU21Oek5EaHlWVEZEVjFab2RpOWlZWGhqTVVKTVduZDFTVEIwUjA0MmNDdE1TMmhOSzFvMk5EaG5UR3Q2Unk4NU0xb3pWblZhVjNwMVQyeFFTMm92VjFsWFpIaGpjazVZTWs1MldWaEZNRlJFUzBReGVXbFFSMkZrV1RGd1JFWXZiMUpHVFhORlQzUktRbEZHYVdOVGNUQnlTa2hWTVhocldXY3JSM1JvVjFCYVl6RXJOMnhuU0VVck4xTnBNVGh0VlcxRFJtcG1UVlZzVkV0V2JVZ3JRaXN4UlVSa2RWWkJaMEZCSW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC43MzAwOTk4XFwsXFwyXFw6XFwwLjg4MjU5MzFcXCxcXDNcXDpcXDAuNTk2MTM1OFxcLFxcNFxcOlxcM1xcLFxcNVxcOlxcMS43NVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzFdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cblxuPCEtLSBybmItZnJhbWUtYmVnaW4gZXlKdFpYUmhaR0YwWVNJNmV5SmpiR0Z6YzJWeklqcGJJbVJoZEdFdVpuSmhiV1VpWFN3aWJuSnZkeUk2TVN3aWJtTnZiQ0k2TlN3aWMzVnRiV0Z5ZVNJNmV5SkVaWE5qY21sd2RHbHZiaUk2V3lKa1ppQmJNU0REbHlBMVhTSmRmWDBzSW5Ka1ppSTZJa2cwYzBsQlFVRkJRVUZCUVVKc01WRjJWVGRFVFVKcU9ESnBVa0ZKTVVaV1dXOU5aR1JWYTBkSFIwRkVTazF5VjJkbVEycGljMmRyWW0xTFVrOXpWbmhMWlhjNFFVTXZRa0V2UVZsRVNYaE5WRWxwUWtKbVJVVnhSME51TDJ0TFZGTkdTSFUzZGxBMWRteDRkMDlPYURKQ2VUUkJWMGRFWWxSaVFXTkNZMFUxVDNvemVXUm5SMVZCVGtGQlJ6RnlObVUyYzA5eVpXMXdaWFIwWVRKUWREaG1SVFJsTTJwa1RDOXlXSGd5YmpFMmN6QjJLMk5tZW5sbVlpOWxWVE5wTVhWRmFXNDBUM2RJZWtaTlNtTlVaMW93Vm5sQ1ZHaEZNRVlyTW1kbU9VbDZaVU5ZU1hKNVpFVXdUV2gzY1RNclFVa3pjMnQ0V2pOQ1RHcHpia2x5T0c5c1IzQkRVekpTVkVneFRuZHlWVm81YWxSQmJFOWhOa0p2YUhOU1UyWjVhRlZHTjBaYWFsaE1ZMnBoVjB4UFVFc3hUbEZzUmxsaUx6SjVjMWhPVVZNeWMwNHZSa1puZW5ac1NIcFNNRXBzZDNaWVNHdG9ZMjFGV0ROck4xYzNWelZPWldKNFVXZzFWUzgyZWtWNmJucHNOWEVyZUhRM1FUUkhhV0ZhZDFWMVZYZzBlRlJNUjNaSldXNHZTMGx3YkdkQ01YQkpTMGx6VkdsV1YydzFTa3R0ZFVWb1JXSjNlSE54TlRaTWJYWXllRmxDZUZCMU1ISk9abHBzU21kb1dUTjZSa3BWYVd4YWFEbG5abGt2ZDJRM2JGRkpRVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNzM4OTg3NlxcLFxcMlxcOlxcMC44NzgzOTc1XFwsXFwzXFw6XFwwLjYwMzczNTlcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDEuNzVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOlsxXX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6MSwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbMSDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJsMVF1MDdETUJTOWJSS2drYWdxZGVVRFdKS0JEakR4a0lDSkx1R2hEaUJrRWpleFNKM2d1TFI4QXlPZndzYnZNSlFCaVIyaGdwMzZocWFSb3B4enJvL1B6UW1PQnoxMzRBS0FCYmJkQk10UkVKekxpMU52RDBBSkFBMndvYVcvVTNXb3E2ZnFiV3ZoWUhiOWZYYnptbGI4YzcvM05mdDRxL2g3OXpuM1hyWVUzaXd2MGlrNCt3SHoxRUljVGthMFVLQlRCaTFFTytpZm54aThFUlFQWXlKb1pMalZQOEtSUFpMaXlXQ1hYUkZSM0paS1BhRWxzb21QS2JoV1kzV05NQ1VGcm9HaUd4RkovS0ZRWHNYbUs1YjFMSmNzNDhyVTFDV1Zodi9iYXhjMUJMWnd1STB0R042cCtMS2hNK1o2NDhnTGt6Ry85M1ozVnVaV3p1T2xQS2ovV1lXZHhjck5YMk52WVhFMFRES0QxeWlQR2FkWTFwREYvb1JGTXNFT3RKQlFGaWNTcTBySkhVMXhrWWcrR3RoV1BaYzErN2xnSEUrN1NpMThtVW1DRmpmTVVsVEtWbUgrQisxRURkdVZBZ0FBIn0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7300998\,\2\:\0.8825931\,\3\:\0.5961358\,\4\:\3\,\5\:\1.75\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[1]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6MSwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbMSDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJsMVF2VTdETUJqODJpUkFJMUZWWW9NZGRVa0dHR0FESk1yV2dmQ2pic2drYm1LUk9zVnhLZXc4QUMvQkEvQVlESXhNVElpQkJmRUVxR0NuL2tLVFNGSHU3dlA1dmx4d09OaDJCeTRBV0dEYlRiQWNCY0U1T3ozeWRnR1VBTkFBRzFyNmU2c09yZW1wZXR0YTJQdDhmRTRlM2pkTC9yWHgybjE2czB2K2NmenlmYi9lVTNpMXVFaW40T3dIekZNSmNUZ1owVnlCVGhFMEYrMmdmOUl6ZUNYSXJ5ZEUwTWh3cTMrQUkzc2t4WjNCTGpzbklyOG9sR3BDUzJSVEgxTndyVVo5alRBbE9hNkJvaHNSU2Z5aFVGN0ZaalhMY2phV0xPUEsxTlFsRlliLzJ5c1hOUVMyc04vRkZnenZsSHpSMEpsd3ZYSGtoY21FWDNrN1c3VzVOZWJ4UWg1VS82ekV6bnpsNXEreHQ3QTRHaWFad1V1VXg0eFRMR3ZJWW4vS0lwbGdCMXBJS0lzVGlWV2w1SkttdUVoRWJ3eHNxNTZMbXYyeFlCeFB1MHJOZlpsSmdoWTN6RkpVaWxaaDlnZlkvd2Q3bFFJQUFBPT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7389876\,\2\:\0.8783975\,\3\:\0.6037359\,\4\:\3\,\5\:\1.75\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[1]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qRXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTVNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtd3hVWFV3TjBSTlFsTTVZbEpMWjJ0aFozRmtaVlZFVjBwTFFrUnFSSGhyU1VOS1RIVkhhRVJwUW10RmFtVjRVMG96WjNWTVVqaEJlVTltZDNOaWRrMUtVVUpwVWpKb1ozQXpObWh4WVZKdmNIaDZjbTh2VUhwUmJVOUNlakV6TkVGTFFVSmlZbVJDVFhSU1JVcDZUR2t4VG5aRU1FRktRVUV5ZDI5aFZ5OVZNMWR2Y1RabWNXSlhkbWhaU0dJNVpsaGllbTFzWWpoak55OHpUbVowTkhFdmFEYzVlbTR6V0hKWlZUTnBkM1l3YVdzMEszZEllakZGU1dOVWEyRXdWVXRDVkVKcE1VVlBLMmxtYm5ocE9FVlNVVkJaZVVwdldreHFWbEE0UzFKUVdreHBlVmREV0ZoU1JsSXpTbHBMVUdGRmJITnZiVkJMWW1oWFdUTlhUazFEVlVaeWIwZHBSM2hHU2k5TFJsRlljMWh0U3pWaU1VeEtZM00wT0hKVk1VTlhWbWgyTDJKaGVHTXhRa3hhZDNWSk1IUkhUalp3SzB4TGFFMHJXalkwT0dkTWEzcEhMemt6V2pOV2RWcFhlblZQYkZCTGFpOVhXVmRrZUdOeVRsZ3lUblpaV0VVd1ZFUkxSREY1YVZCSFlXUlpNWEJFUmk5dlVrWk5jMFZQZEVwQ1VVWnBZMU54TUhKS1NGVXhlR3RaWnl0SGRHaFhVRnBqTVNzM2JHZElSU3MzVTJreE9HMVZiVU5HYW1aTlZXeFVTMVp0U0N0Q0t6RkZSR1IxVmtGblFVRWlmUT09IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjczMDA5OThcIixcIjJcIjpcIjAuODgyNTkzMVwiLFwiM1wiOlwiMC41OTYxMzU4XCIsXCI0XCI6XCIzXCIsXCI1XCI6XCIxLjc1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbMV19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjEsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbMSDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmwxUXUwN0RNQlM5YlJLZ2thZ3FkZVVEV0pLQkRqRHhrSUNKTHVHaERpQmtFamV4U0ozZ3VMUjhBeU9md3Nidk1KUUJpUjJoZ3AzNmhxYVJvcHh6cm8vUHpRbU9CejEzNEFLQUJiYmRCTXRSRUp6TGkxTnZEMEFKQUEyd29hVy9VM1dvcTZmcWJXdmhZSGI5Zlhiem1sYjhjNy8zTmZ0NHEvaDc5em4zWHJZVTNpd3YwaWs0K3dIejFFSWNUa2EwVUtCVEJpMUVPK2lmbnhpOEVSUVBZeUpvWkxqVlA4S1JQWkxpeVdDWFhSRlIzSlpLUGFFbHNvbVBLYmhXWTNXTk1DVUZyb0dpR3hGSi9LRlFYc1htSzViMUxKY3M0OHJVMUNXVmh2L2JheGMxQkxad3VJMHRHTjZwK0xLaE0rWjY0OGdMa3pHLzkzWjNWdVpXenVPbFBLai9XWVdkeGNyTlgyTnZZWEUwVERLRDF5aVBHYWRZMXBERi9vUkZNc0VPdEpCUUZpY1NxMHJKSFUxeGtZZytHdGhXUFpjMSs3bGdIRSs3U2kxOG1VbUNGamZNVWxUS1ZtSCtCKzFFRGR1VkFnQUEifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7300998","2":"0.8825931","3":"0.5961358","4":"3","5":"1.75"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[1]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZNU3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk1TRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpzTVZGMk1IWkVVVUpxT1RCcFVuRkJOV0ZEZW5WTWJ6Qm5aelpMUkdsdmIwYzFaRFJuS3paNVdteGphemhRTUZWcE9WaFhNRWhqTDBSalJVSXZPR1pPTHpoQlFuaG1RbnBWYlhGa0sydzVjMVZyWnpWTU16TXpZbll6TlZGV1NIWlhNblkxZDBkQlJGazNWRUZPZEZaRlRucDZjelZRVDB4dlFWTkJRM2gzYjB0dEwwVXpWbTlTVlM5V01qbE1ReTl6WmtSSk0zUTJkbE12TlRVcllqTXlNbEoyY21WVWRuZG1jbnA1T1dWeGQzTjJSbEpVYjBaYWVqbG5ibXR4U1hrNGJVRTFaM0V3YVRaRFdqWkJWR1F3TWs5RWJEUk1PRnByVVVWcVVYa3pkVFJqTkdObldsTXpRbTV6YzFGemFUaHpkRU54VTFrd1VsUmlNazFSV0ZoemRYQnlhRU51U21OUk1GVjJXV2hKTkhabFJqaHBiekp5Vm10WGN6WkdhMGRXWlcxb2FUWndUVkI2WmxoeWJrbEZkR3BEZDFGaE1sbElhVGMxVUU5SE9XOXFjbXBoVGs5dFNYbzBaRmRrYm5GNllUTm9lbmxsZVRSUWNXNDFXRmx1WVROakswUllNa3BvV2toM2VWRjZaVWxJZVcxSVIwdGFabFphTjBrNVdrcENVSE5SUVhOS1dsaEZhWE5oY1ZWWVRrVlZSalJ1YjNKWlJYUXhXRTVTYzNvNFZXcFBUbkJVTm0wMVRIcE9TakJQUzBaWFdYQkxNRk53VFM5M1EwdFBTMWxUYkZGSlFVRkJQVDBpZlE9PSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC43MzQxOTQ1XFwsXFwyXFw6XFwwLjg4MDg1NVxcLFxcM1xcOlxcMC42MDM3NzUzXFwsXFw0XFw6XFwzXFwsXFw1XFw6XFwxLjc1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbMV19LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6MSwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbMSDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJsMVF2MHZEUUJqOTBpUnFBNWFDenVMbzBnZzZLRGlvb0c1ZDRnKzZ5WmxjazhQMFVpOVhXMEhjL0RjRUIvOGZOLzhBQnhmQnpVbXFkK2w5c1VrZzVMMzMzYnYzNVFWSHZXMnY1d0dBRFk3VEFOdFZFTnp6czVQT0xvQVNBQ3h3b0ttL0UzVm9SVS9WMjlMQy9zZkRJM3Q2dlMvNTUrYjMyMlJ2cmVUdndmcnp5OWVxd3N2RlJUb0ZaejlnbmtxSXk4bUE1Z3EwaTZDWjZBVGQwMk9EbDRMOFprUUVqUXkzdTRjNGNnWlMzQm5zc1FzaThzdENxU1kwUlRiMk1RWFhzdXByaENuSmNRMFV2WWhJNHZlRjhpbzJyVmtXczZGa0dWZW1oaTZwTVB6ZlhybklFdGpDd1FhMllIaTc1UE9HOW9qcmphTk9tSXo0ZFdkbnF6YTNoenlleTRQcW41WFluYTNjK0RYMkpoWkh3eVF6ZUlIeW1IR0taZlZaN0k5WkpCUHNRQXNKWlhFaXNhcVVYTkVVRjRub3JZRXQxWE5Sc3o4VWpPTnBUNm01THpOSjBPS0ZXWXBLMFNwTS93Q0tPS1lTbFFJQUFBPT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7341945\,\2\:\0.880855\,\3\:\0.6037753\,\4\:\3\,\5\:\1.75\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[1]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qRXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTVNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtd3hVWFpWTjBSTlFtbzRNbWxTUVVreFJsWlpiMDFrWkZWclIwZEhRVVJLVFhKWFoyWkRhbUp6WjJ0aWJVdFNUM05XZUV0bGR6aEJReTlDUVM5QldVUkplRTFVU1dsQ1FtWkZSWEZIUTI0dmEwdFVVMFpJZFRkMlVEVjJiSGgzVDA1b01rSjVORUZYUjBSaVZHSkJZMEpqUlRWUGVqTjVaR2RIVlVGT1FVRkhNWEkyWlRaelQzSmxiWEJsZEhSaE1sQjBPR1pGTkdVemFtUk1MM0pZZURKdU1UWnpNSFlyWTJaNmVXWmlMMlZWTTJreGRVVnBialJQZDBoNlJrMUtZMVJuV2pCV2VVSlVhRVV3UmlzeVoyWTVTWHBsUTFoSmNubGtSVEJOYUhkeE15dEJTVE56YTNoYU0wSk1hbk51U1hJNGIyeEhjRU5UTWxKVVNERk9kM0pWV2pscVZFRnNUMkUyUW05b2MxSlRabmxvVlVZM1JscHFXRXhqYW1GWFRFOVFTekZPVVd4R1dXSXZNbmx6V0U1UlV6SnpUaTlHUm1kNmRteEllbEl3U214M2RsaElhMmhqYlVWWU0yczNWemRYTlU1bFluaFJhRFZWTHpaNlJYcHVlbXcxY1N0NGREZEJORWRwWVZwM1ZYVlZlRFI0VkV4SGRrbFpiaTlMU1hCc1owSXhjRWxMU1hOVWFWWlhiRFZLUzIxMVJXaEZZbmQ0YzNFMU5reHRkako0V1VKNFVIVXdjazVtV214S1oyaFpNM3BHU2xWcGJGcG9PV2RtV1M5M1pEZHNVVWxCUVVFOVBTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuNzM4OTg3NlwiLFwiMlwiOlwiMC44NzgzOTc1XCIsXCIzXCI6XCIwLjYwMzczNTlcIixcIjRcIjpcIjNcIixcIjVcIjpcIjEuNzVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOlsxXX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjEsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbMSDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmwxUXZVN0RNQmo4MmlSQUkxRlZZb01kZFVrR0dHQURKTXJXZ2ZDamJzZ2tibUtST3NWeEtldzhBQy9CQS9BWURJeE1USWlCQmZFRXFHQ24va0tUU0ZIdTd2UDV2bHh3T05oMkJ5NEFXR0RiVGJBY0JjRTVPejN5ZGdHVUFOQUFHMXI2ZTZzT3JlbXBldHRhMlB0OGZFNGUzamRML3JYeDJuMTZzMHYrY2Z6eWZiL2VVM2kxdUVpbjRPd0h6Rk1KY1RnWjBWeUJUaEUwRisyZ2Y5SXplQ1hJcnlkRTBNaHdxMytBSTNza3haM0JManNuSXI4b2xHcENTMlJUSDFOd3JVWjlqVEFsT2E2Qm9oc1JTZnloVUY3RlpqWExjamFXTE9QSzFOUWxGWWIvMnlzWE5RUzJzTi9GRmd6dmxIelIwSmx3dlhIa2hjbUVYM2s3VzdXNU5lYnhRaDVVLzZ6RXpuemw1cSt4dDdBNEdpYVp3VXVVeDR4VExHdklZbi9LSXBsZ0IxcElLSXNUaVZXbDVKS211RWhFYnd4c3E1NkxtdjJ4WUJ4UHUwck5mWmxKZ2hZM3pGSlVpbFpoOWdmWS93ZDdsUUlBQUE9PSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7389876","2":"0.8783975","3":"0.6037359","4":"3","5":"1.75"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[1]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZNU3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk1TRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpzTVZGNlZYSkVVVUpxT0RKcFVuRkJjR0ZMVEN0SGJFOWxhRUpRVjIxb1JtcDZNRlZ1T0c5WWJWSk9kSE5zYVhWeGJXSnFZbGhuTWxwalVXWkNjbVo0U1UxblNXZHZaWEJpY1dJM2FHVmlRbXRLYlRWMGRsb3JWRXc1ZW0xRVNFY3paMEZaU1VaME1UaEdlVVpCVkc0M1RGUmlNbWRPVVVGclFVNWlTRVF4T1RBMFpESjBVbFE1VkdFd1kxQkVOamhRZURSbVVFWlNPSFptT1RjMlpYWnFWVGRLV0RseFpqa3piak5VWlVneE5HbExaR2R5VFdaTlJUaHNlRTlHYTFKRVRVWnRhMWhSV0V4VU4zWmFUV3BuT1dZMk1sVXhUMEpCTUU1ME0zQjBTRTVyYWt0aFdVZGxLM2xqYVU5NWVWVkxiMHB5YTJkdVVIRmlaMWR5V0d4T1dVdEZXa3huUjJsc05VbEtVRWRJVVc1clZtMTVNVnBXZEU5NFdrTnNXSEJ5YjNWeFZFUTRNekUyTlhGRFlYZG9ZMDEwWWsxSWQxcHphMWhFWXpKak5qUXpSRlpvUkc0dlRIRXhkVGN3TUhRNFdUaFhjMmxFTm5BclZqSktiWFpZVURneFpHaGxURzh3UjJOSGNuaERaV05STkhoaVMwZE1VRWx1VEVwUmVHUnhRMFp0VEVsdmJHeG9WbEZ4Tlc5bmIzVkZPVTVpUVdoMWNUVnhUbXRtUXpoaWVIUkxabFY2U21Wd1NrZHFlR2RxVWtKd1YyZFdXbTRyY1dGRk9YZHNVVWxCUVVFOVBTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNzM1MjAxMlxcLFxcMlxcOlxcMC44ODIwNzQ3XFwsXFwzXFw6XFwwLjYwMTc5OTJcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDEuNzVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOlsxXX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6MSwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbMSDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJsMVF6VXJEUUJqODJpUnFBcGFLTCtHbE9laEJQV21oRmp6MFVuOG9YbVJOdHNsaXVxbWJqYlhnMlpjUWZCcmZ4SU1nSWdvZXBicWI3aGViQmtKbTV0dlorVEw5em1ESEczZ0FZSUZ0MThGeUZBVG43TFRiMmdOUUFrQU5iSEQxOTA0ZDJ0UlQ5VGEwY1BENjhQeDRmUEZSOHZmOTc2ZXZqVTdKWDlxZjkzbjNUZUgxNGlLZGdyTWZNRThseE9Ga1JETUZta1hRWExUN3ZaTWpnOWY2MlUxT0JBME50M3B0SE5rakthWUdlK3ljaU95eVVLb0pya2duUHFiZ1dyWGxOWUtFWkxnR2lsNUlKUEdIUW5rVm15MVpWdE94WkNsWHByb3VxVEQ4MzE2NXFDYXdoY010Yk1Id1pza1hEYzJjNjQzRFZoRG4vTHExdTcwMHQ4WThXc2lENnArVjJKbXZYUDgxZGhlTG8wR2NHcnhDZWNRNHhiS0dMUEluTEpReGRxQ0ZtTElvbGxoVlFxNW9nb3VFOU5iQWh1cTVxTmtmQzhieHRLZlV6SmVwSkdqeGdqUkJwV2dWWm4rcWFFOXdsUUlBQUE9PSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7352012\,\2\:\0.8820747\,\3\:\0.6017992\,\4\:\3\,\5\:\1.75\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[1]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qRXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTVNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtd3hVWFl3ZGtSUlFtbzVNR2xTY1VFMVlVTjZkVXh2TUdkbk5rdEVhVzl2UnpWa05HY3JObmxhYkdOck9GQXdWV2s1V0Zjd1NHTXZSR05GUWk4NFprNHZPRUZDZUdaQ2VsVnRjV1FyYkRselZXdG5OVXd6TXpOaWRqTTFVVlpJZGxjeWRqVjNSMEZFV1RkVVFVNTBWa1ZPZW5wek5WQlBURzlCVTBGRGVIZHZTMjB2UlROV2IxSlZMMVl5T1V4REwzTm1SRWt6ZERaMlV5ODFOU3RpTXpJeVVuWnlaVlIyZDJaeWVuazVaWEYzYzNaR1VsUnZSbHA2T1dkdWEzRkplVGh0UVRWbmNUQnBOa05hTmtGVVpEQXlUMFJzTkV3NFdtdFJSV3BSZVROMU5HTTBZMmRhVXpOQ2JuTnpVWE5wT0hOMFEzRlRXVEJTVkdJeVRWRllXSE4xY0hKb1EyNUtZMUV3VlhaWmFFazBkbVZHT0dsdk1uSldhMWR6TmtaclIxWmxiV2hwTm5CTlVIcG1XSEp1U1VWMGFrTjNVV0V5V1VocE56VlFUMGM1YjJweWFtRk9UMjFKZWpSa1YyUnVjWHBoTTJoNmVXVjVORkJ4YmpWWVdXNWhNMk1yUkZneVNtaGFTSGQ1VVhwbFNVaDViVWhIUzFwbVZsbzNTVGxhU2tKUWMxRkJjMHBhV0VWcGMyRnhWVmhPUlZWR05HNXZjbGxGZERGWVRsSnplamhWYWs5T2NGUTJiVFZNZWs1S01FOUxSbGRaY0Vzd1UzQk5MM2REUzA5TFdWTnNVVWxCUVVFOVBTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuNzM0MTk0NVwiLFwiMlwiOlwiMC44ODA4NTVcIixcIjNcIjpcIjAuNjAzNzc1M1wiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMS43NVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzFdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjEsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbMSDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmwxUXYwdkRRQmo5MGlScUE1YUN6dUxvMGdnNktEaW9vRzVkNGcrNnlabGNrOFAwVWk5WFcwSGMvRGNFQi84Zk4vOEFCeGZCelVtcWQrbDlzVWtnNUwzMzNidjM1UVZIdlcydjV3R0FEWTdUQU50VkVOenpzNVBPTG9BU0FDeHdvS20vRTNWb1JVL1YyOUxDL3NmREkzdDZ2Uy81NStiMzIyUnZyZVR2d2Zyenk5ZXF3c3ZGUlRvRlp6OWdua3FJeThtQTVncTBpNkNaNkFUZDAyT0RsNEw4WmtRRWpReTN1NGM0Y2daUzNCbnNzUXNpOHN0Q3FTWTBSVGIyTVFYWHN1cHJoQ25KY1EwVXZZaEk0dmVGOGlvMnJWa1dzNkZrR1ZlbWhpNnBNUHpmWHJuSUV0akN3UWEyWUhpNzVQT0c5b2pyamFOT21JejRkV2RucXphM2h6eWV5NFBxbjVYWW5hM2MrRFgySmhaSHd5UXplSUh5bUhHS1pmVlo3STlaSkJQc1FBc0paWEVpc2FxVVhORVVGNG5vcllFdDFYTlJzejhVak9OcFQ2bTVMek5KME9LRldZcEswU3BNL3dDS09LWVNsUUlBQUE9PSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7341945","2":"0.880855","3":"0.6037753","4":"3","5":"1.75"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[1]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZNU3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk1TRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpzTVZGMU1EZEVUVUpUT1dGU1MyZHJWbkJXTkdsa1dXMW5SVWRGUVhSVk5HcEdNVU5ST1RGUmVWcDRSVFIyVlV0Wk5VeG5ZbFpwYUZrdmFFOTRRV1ozWTBSRGVHOXZTM1IxYzJKdGEyRkxZM00yTlZCcU5ETktlbTloTjBGVFJFRkJRbU00VEhkSGRVdzJRelJHSzJOdU0xUXpRVXBSUVRSSlFVaFVaakk1VmpSak1qbFdVemxpVXpCalprVTNabTR4TlZCSWVYWXJNVkp6T0hZNGVtVkxkalo0TXk5eVR6VkpMME5NV0U5U1ZITkhXbFp6TVZSREwwVTFSMlJHVTJkWk5FcFhiMmhsTVVRNE4zUnVaMnBMYlRodVVrNUVSV055Wm1aM05VVXphM1ZNUWpSdlFtUkZiRVpsUjJGWFpUQkNWRVpPVFZGVldFMTBXbGhUVUU5VFdXeHliMEpuYTFKS1NuZExTbEpZYzJadFMxcGlNRmxUTVZwM1dsZHliMnR2ZW1ndkwySmhVbGszUVVabk5qTnpRVmhNVDNoV1prNXVVVzFZUnl0alpFOU9jM2R0S3paMU9YTnlZek5tVFRBMlZUaHhVRGxhYUdZelJubHZNV1poTWpscFkxUlVUME52ZGxoTFJUaGFjREZxVjJ0TFdHaHNRMVY1ZDNjMk1HdEdSMWRhYUV0eWVYTnJNWHBZUjFKb1RqVmFNa1paT1cwMWNrUnpWMEZqVkhka1MweFZUbHBUU1V0WFNVTTFlVlpGZVhKTlVEaEVVME5xWms0MVZVTkJRVUU5SW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC43MzMzNzUzXFwsXFwyXFw6XFwwLjg4Mjk3NjhcXCxcXDNcXDpcXDAuNjAwODM2N1xcLFxcNFxcOlxcM1xcLFxcNVxcOlxcMS43NVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzFdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6MSwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbMSDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJsMVF1MDdETUJTOWFSS2drVnBWNGlkWW1nRUdFQXRVNGpGMUNROTFReVp4RTR2VUtZNUxnYlZpaFkvaE94QWZ3Y0RDeG9vS3R1c2Jta2FLY3M2NVBqNDNKem9hN0FTREFBQmM4THdHdUw2QzRGK2NuM1QzQUpRQTRJQUhUZjI5VjRjMjlWUzliUzBjZkU3Zm4xNVBIeXYrMVJzOHY4emVLdjZ4My9yTzVJL0NMWE9SVHNHWlZzMVRDL0U1R2RGU2dZNEpXb2hlMUQ4N3RuZ2pLbThuUk5ERWNyZmZ3NUUza3VMQjRvQmRFbEZlR2FXZTBCVEZOTVFVWE10WlhTUE9TWWxyb0Jna1JKSndLSlJYc2ZtS1piMFlTMVp3Wldyb2tvemgvL2JhUlk3QUZnNjNzQVhMT3hWZk5uUW1YRytjZE9Oc3dtKzZ1OXNyYzNmTTA2VThxUDlaaGYzRnlvMWZhMjlpY1RUT0NvdlhLRThacDFqV2tLWGhsQ1V5d3c2MGtGR1daaEtyeXNrMXpYR1JoTjVaMkZZOW01ckRzV0FjVHdkS0xVTlpTSUtXSUM1eVZFeXJNUDhEU0NqZk41VUNBQUE9In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7333753\,\2\:\0.8829768\,\3\:\0.6008367\,\4\:\3\,\5\:\1.75\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[1]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qRXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTVNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtd3hVWHBWY2tSUlFtbzRNbWxTY1VGd1lVdE1LMGRzVDJWb1FsQlhiV2hHYW5vd1ZXNDRiMWh0VWs1MGMyeHBkWEZ0WW1waVdHY3lXbU5SWmtKeVpuaEpUV2RKWjI5bGNHSnhZamRvWldKQ2EwcHROWFIyV2l0VVREbDZiVVJJUnpOblFWbEpSblF4T0VaNVJrRlViamRNVkdJeVowNVJRV3RCVG1KSVJERTVNRFJrTW5SU1ZEbFVZVEJqVUVRMk9GQjROR1pRUmxJNGRtWTVOelpsZG1wVk4wcFlPWEZtT1ROdU0xUmxTREUwYVV0a1ozSk5aazFGT0d4NFQwWnJVa1JOUm0xcldGRllURlEzZGxwTmFtYzVaall5VlRGUFFrRXdUblF6Y0hSSVRtdHFTMkZaUjJVcmVXTnBUM2w1VlV0dlNuSnJaMjVRY1dKblYzSlliRTVaUzBWYVRHZEhhV3cxU1VwUVIwaFJibXRXYlhreFdsWjBUM2hhUTJ4WWNISnZkWEZVUkRnek1UWTFjVU5oZDJoalRYUmlUVWgzV25OcldFUmpNbU0yTkRORVZtaEViaTlNY1RGMU56QXdkRGhaT0ZkemFVUTJjQ3RXTWtwdGRsaFFPREZrYUdWTWJ6QkhZMGR5ZUVObFkxRTBlR0pMUjB4UVNXNU1TbEY0WkhGRFJtMU1TVzlzYkdoV1VYRTFiMmR2ZFVVNVRtSkJhSFZ4TlhGT2EyWkRPR0o0ZEV0bVZYcEtaWEJLUjJwNFoycFNRbkJYWjFaYWJpdHhZVVU1ZDJ4UlNVRkJRVDA5SW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MzUyMDEyXCIsXCIyXCI6XCIwLjg4MjA3NDdcIixcIjNcIjpcIjAuNjAxNzk5MlwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMS43NVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzFdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjEsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbMSDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmwxUXpVckRRQmo4MmlScUFwYUtMK0dsT2VoQlBXbWhGanowVW44b1htUk50c2xpdXFtYmpiWGcyWmNRZkJyZnhJTWdJZ29lcGJxYjdoZWJCa0ptNXR2WitUTDl6bURIRzNnQVlJRnQxOEZ5RkFUbjdMVGIyZ05RQWtBTmJIRDE5MDRkMnRSVDlUYTBjUEQ2OFB4NGZQRlI4dmY5NzZldmpVN0pYOXFmOTNuM1RlSDE0aUtkZ3JNZk1FOGx4T0ZrUkRNRm1rWFFYTFQ3dlpNamc5ZjYyVTFPQkEwTnQzcHRITmtqS2FZR2UreWNpT3l5VUtvSnJrZ25QcWJnV3JYbE5ZS0VaTGdHaWw1SUpQR0hRbmtWbXkxWlZ0T3haQ2xYcHJvdXFURDgzMTY1cUNhd2hjTXRiTUh3WnNrWERjMmM2NDNEVmhEbi9McTF1NzAwdDhZOFdzaUQ2cCtWMkptdlhQODFkaGVMbzBHY0dyeENlY1E0eGJLR0xQSW5MSlF4ZHFDRm1MSW9sbGhWUXE1b2dvdUU5TmJBaHVxNXFOa2ZDOGJ4dEtmVXpKZXBKR2p4Z2pSQnBXZ1ZabitxYUU5d2xRSUFBQT09In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7352012","2":"0.8820747","3":"0.6017992","4":"3","5":"1.75"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[1]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZNU3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk1TRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpzTVZGVE1EZEVUVUpTT0hwUlpHOUtTM0JMZGxWUk0zbFJTVmRWVEVkQlUzUkNaRTU1YldjM2NFSktNMDFSYVdSWmNtcDBia0ZLYW5OR2NIVkJWa2xpVG1sNFVsRlZOemxSZEU1SmExZGFiV1ZtZUhaRmVEUlBWRE15Y0dnMFFUSlBRVFJHZEdsMVozVkVaVmhKTHpoVmQwRnNRVXhVUVdkaVlpdFFjV3hFVUZReFZtSXdZMHcxTlN0eVZqZG1MMWxzV0RoaE9XZGlha1EzWlV0Mk5DdHRRWGt2ZWpWUlVFUnpkVXhrUVhKUFpuTkJPSFJTUTFocmVtdDBSazlwVjFGV2RsSkRZMlZVU3pSTlVIZDFTbmhUVVZOT1JHSm1TRkY0ZHpWamVXMWxSR1ppV1V4U1NFWllZVzVWUlRsdmFWaDNaVmxuYlhVeGJXMTBSVWRUYkhkRVVsTTViVVZuVTNwSlZIbExjbHB3VjFCaWVtaFhVVFZXZVZwTWJERlJZUzl0SzNaWVpGRlRNazFLUmtneGMzZDJSblo0V0ZWT00zbG1XRWR6VWl0c1V5ODNaMjU0ZHpFMWRtRkRTbnAwTlZWUUszcERjblppYkdFeFpsa3lPV3BqVkZKTFl6UlFNMHRGT0Zsd01XcFhha05ZUW0xelZYbDRVVFl3YTBaTFYzQkNTM0o1YzJjNWVsaERVbTFMTkUwM1MybGxlVFZ4UkdoWFFXTlVNM1JMVEZGTFdsTTBTVmRNT0c5NlZrMXdWMWxtVFVoTFNFZGlZM0JWUTBGQlFUMGlmUT09IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjczMzIzMzVcXCxcXDJcXDpcXDAuODgyOTQzN1xcLFxcM1xcOlxcMC42MDA3NDc3XFwsXFw0XFw6XFwzXFwsXFw1XFw6XFwxLjc1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbMV19LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6MSwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbMSDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJsMVFTMDdETUJSOHpRZG9KS3BLdlVRM3lRSVdVTEdBU3RCZE55bWc3cEJKM01RaWRZcmp0bkFKanNGcHVBVkliTml4UlFVNzlRdE5Ja1dabWVmeHZFeDRPVDMycGg0QTJPQTRGdGl1Z3VEZVhJLzhVd0FsQUxUQWdiYitQcWxEUFQxVmIwY0w1NStyVjdmL1lsWDhhOWdiakQ3ZUt2NCttQXkvejVRUERzdUxkQXJPZnNBOHRSQ1hremt0Rk9pV1FWdlJDY2VUSzRNUHd1SnhTUVNORGJmSFF4dzVjeW1lRGZiWUxSSEZYYW5VRTlvaVh3ZVlnbXUxbW10RUdTbHdEUlM5bUVnU3pJVHlLclpwV1BiemhXUTVWeVpMbDFRYS9tK3ZYZFFTMk1KRkgxc3d2RnZ4WFVOM3lmWEdzUitsUy83Z254dzE1dmFDSnp0NVVQK3pDcnZibGExZlkyOWpjVFJLYzRQM0tFOFlwMWpXakNYQm1zVXl4UTYwa0ZLV3BCS3J5c2c5elhDUm1LNE03S2lleTVxRGhXQWNUM3RLTFFLWlM0SVdMOG96Vk1wV1lmTUhLSEdiY3BVQ0FBQT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7332335\,\2\:\0.8829437\,\3\:\0.6007477\,\4\:\3\,\5\:\1.75\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[1]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qRXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTVNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtd3hVWFV3TjBSTlFsTTVZVkpMWjJ0V2NGWTBhV1JaYldkRlIwVkJkRlUwYWtZeFExRTVNVkY1V25oRk5IWlZTMWsxVEdkaVZtbG9XUzlvVDNoQlpuZGpSRU40YjI5TGRIVnpZbTFyWVV0amN6WTFVR28wTTBwNmIyRTNRVk5FUVVGQ1l6aE1kMGQxVERaRE5FWXJZMjR6VkROQlNsRkJORWxCU0ZSbU1qbFdOR015T1ZaVE9XSlRNR05tUlRkbWJqRTFVRWg1ZGlzeFVuTTRkamg2WlV0Mk5uZ3pMM0pQTlVrdlEweFlUMUpVYzBkYVZuTXhWRU12UlRWSFpFWlRaMWswU2xkdmFHVXhSRGczZEc1bmFrdHRPRzVTVGtSRlkzSm1abmMxUlROcmRVeENORzlDWkVWc1JtVkhZVmRsTUVKVVJrNU5VVlZZVFhSYVdGTlFUMU5aYkhKdlFtZHJVa3BLZDB0S1VsaHpabTFMV21Jd1dWTXhXbmRhVjNKdmEyOTZhQzh2WW1GU1dUZEJSbWMyTTNOQldFeFBlRlptVG01UmJWaEhLMk5rVDA1emQyMHJOblU1YzNKak0yWk5NRFpWT0hGUU9WcG9aak5HZVc4eFptRXlPV2xqVkZSUFEyOTJXRXRGT0Zwd01XcFhhMHRZYUd4RFZYbDNkell3YTBaSFYxcG9TM0o1YzJzeGVsaEhVbWhPTlZveVJsazViVFZ5UkhOWFFXTlVkMlJMVEZWT1dsTkpTMWRKUXpWNVZrVjVjazFRT0VSVFEycG1UalZWUTBGQlFUMGlmUT09IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjczMzM3NTNcIixcIjJcIjpcIjAuODgyOTc2OFwiLFwiM1wiOlwiMC42MDA4MzY3XCIsXCI0XCI6XCIzXCIsXCI1XCI6XCIxLjc1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbMV19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjEsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbMSDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmwxUXUwN0RNQlM5YVJLZ2tWcFY0aWRZbWdFR0VBdFU0akYxQ1E5MVF5WnhFNHZVS1k1TGdiVmloWS9oT3hBZndjREN4b29LdHVzYm1rYUtjczY1UGo0M0p6b2E3QVNEQUFCYzhMd0d1TDZDNEYrY24zVDNBSlFBNElBSFRmMjlWNGMyOVZTOWJTMGNmRTdmbjE1UEh5disxUnM4djh6ZUt2NngzL3JPNUkvQ0xYT1JUc0daVnMxVEMvRTVHZEZTZ1k0SldvaGUxRDg3dG5nakttOG5STkRFY3JmZnc1RTNrdUxCNG9CZEVsRmVHYVdlMEJURk5NUVVYTXRaWFNQT1NZbHJvQmdrUkpKd0tKUlhzZm1LWmIwWVMxWndaV3Jva296aC8vYmFSWTdBRmc2M3NBWExPeFZmTm5RbVhHK2NkT05zd20rNnU5c3JjM2ZNMDZVOHFQOVpoZjNGeW8xZmEyOWljVFRPQ292WEtFOFpwMWpXa0tYaGxDVXl3dzYwa0ZHV1poS3J5c2sxelhHUmhONVoyRlk5bTVyRHNXQWNUd2RLTFVOWlNJS1dJQzV5VkV5ck1QOERTQ2pmTjVVQ0FBQT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7333753","2":"0.8829768","3":"0.6008367","4":"3","5":"1.75"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[1]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZNU3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk1TRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpzTVZGelZUZEVUVUpTT0dGU1NXZEZWbE5XSzBGTmJXeHRZVUZCWW1GRFZrNXBOblJKUXpaSldrODBhVlZZY1VaTlpXeEpRMFZvT0ZKMk9FRlNUWHBOZUVsbVFXOUpSbWxTSzBGbmNETTJhR0ZoVW05MGVtUTRMMnhsY25SMmRXSXZkRGxJZDBKelkwcDNZVEpMTmtNMFFqUm1TRlJhTTBGYVVVRlpTVVZFYm5ZMVpYRlZVSEpsY1hKbGRXaGFZVWczWmpOTU1EZ3paSGxZTDJKUVl6SXpiR05tVTNZM1lXVjJlRFV2Ym5CVVpVc3lORk5MWm1jM1FuWk5WWGRzZUU5U2JsTllTVVpIUlZSUlZHNVhObTVrTWtSM1UycGxMMGRDVGtKSk9GQjBlbW8yVDI1TFJWVXhkMkkzTjBsVFNTOU1VbEZ4WjIxbGVVTlpRbkIxUW1FeGRVbGhXVlZ3ZVZoQlRrWlFlVXRUUWtGUGFIWkpjRTVHZVhwTU1sVnBlV3BEZEZSVVdtUlZSMUExZG5JeGVHdERWM2hvWW5oT1lrMU1lRkk0Ym14RVdUaDZNWGhzUlhwVVRXSTRka3h0ZW5SVVF6TlNlbmxsZVRSUWNXNDFXRmx1WVRGakszcFdNa1EwZFdwWldrbGFka1ZTTlhwRWFrWnpaMWx6UkdsWmMydG5iREp2U1ZkRmMycHBVbGRHVmt0NmJXbExhVEJVTURCelF6WTJjbTF2VDFKblNuaDJSekJ5T1ZFNGEwcHJhMkZRU0VSTVJWZHNZVUpYYldaNWF6Um5Za3RXUVdkQlFTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNzM0MzI3MlxcLFxcMlxcOlxcMC44ODMzNDA0XFwsXFwzXFw6XFwwLjYwMTUyNDhcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDEuNzVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOlsxXX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6MSwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbMSDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJsMVFzVTdETUJSOGFSSWdFVlNWK0FNbWxtYUFBYmFDVk5pNnRJQzZJWk80aVVYcUZNZWxJQ0VoOFJ2OEFSTXpNeElmQW9JRmlSK0FncDM2aGFhUm90emQ4L2xlcnR2dWIvdDlId0JzY0p3YTJLNkM0QjRmSFRaM0FaUUFZSUVEbnY1ZXFVUHJlcXJldWhaYUg3ZjNMMDgzZHlYL2JQYzIzbGNmU3Y3YWV2eDUvbnBUZUsyNFNLZmc3QnZNVXdseE9SblNYSUZHRVRRVG5XNm5kMkR3U2plL0dCTkJJOFB0emo2T25LRVUxd2I3N0lTSS9MUlFxZ21leUNZQnB1QmExdUlhWVVweVhBTkZQeUtTQkFPaHZJcE5GeXpMMlVpeWpDdFRUWmRVR1A1dnIxeGtDV3hoYnhOYk1MeFI4bmxEWTh6MXhsRXpUTWI4dkxtenRUQzNSenlleTRQcW41WFluYTFjK3pWMkQ0dWpZWkladkVSNXpEakZzZ1lzRGlZc2tnbDJvSVdFc2ppUldGVkt6bWlLaTBUMDBzQzY2cm1vT1JnSnh2RzByOVE4a0pra2FQSERMRVdsYUJXbWZ5azRnYktWQWdBQSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7343272\,\2\:\0.8833404\,\3\:\0.6015248\,\4\:\3\,\5\:\1.75\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[1]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qRXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTVNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtd3hVVk13TjBSTlFsSTRlbEZrYjBwTGNFdDJWVkV6ZVZGSlYxVk1SMEZUZEVKa1RubHRaemR3UWtvelRWRnBaRmx5YW5SdVFVcHFjMFp3ZFVGV1NXSk9hWGhTVVZVM09WRjBUa2xyVjFwdFpXWjRka1Y0TkU5VU16SndhRFJCTWs5Qk5FWjBhWFZuZFVSbFdFa3ZPRlYzUVd4QlRGUkJaMkppSzFCeGJFUlFWREZXWWpCalREVTFLM0pXTjJZdldXeFlPR0U1WjJKcVJEZGxTM1kwSzIxQmVTOTZOVkZRUkhOMVRHUkJjazltYzBFNGRGSkRXR3Q2YTNSR1QybFhVVloyVWtOalpWUkxORTFRZDNWS2VGTlJVMDVFWW1aSVVYaDNOV041YldWRVptSlpURkpJUmxoaGJsVkZPVzlwV0hkbFdXZHRkVEZ0YlhSRlIxTnNkMFJTVXpsdFJXZFRla2xVZVV0eVduQlhVR0o2YUZkUk5WWjVXa3hzTVZGaEwyMHJkbGhrVVZNeVRVcEdTREZ6ZDNaR2RuaFlWVTR6ZVdaWVIzTlNLMnhUTHpkbmJuaDNNVFYyWVVOS2VuUTFWVkFyZWtOeWRtSnNZVEZtV1RJNWFtTlVVa3RqTkZBelMwVTRXWEF4YWxkcVExaENiWE5WZVhoUk5qQnJSa3RYY0VKTGNubHpaemw2V0VOU2JVczBUVGRMYVdWNU5YRkVhRmRCWTFRemRFdE1VVXRhVXpSSlYwdzRiM3BXVFhCWFdXWk5TRXRJUjJKamNGVkRRVUZCUFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MzMyMzM1XCIsXCIyXCI6XCIwLjg4Mjk0MzdcIixcIjNcIjpcIjAuNjAwNzQ3N1wiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMS43NVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzFdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjEsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbMSDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmwxUVMwN0RNQlI4elFkb0pLcEt2VVEzeVFJV1VMR0FTdEJkTnltZzdwQkozTVFpZFlyanRuQUpqc0ZwdUFWSWJOaXhSUVU3OVF0TklrV1ptZWZ4dkV4NE9UMzJwaDRBMk9BNEZ0aXVndURlWEkvOFV3QWxBTFRBZ2JiK1BxbERQVDFWYjBjTDU1K3JWN2YvWWxYOGE5Z2JqRDdlS3Y0K21BeS96NVFQRHN1TGRBck9mc0E4dFJDWGt6a3RGT2lXUVZ2UkNjZVRLNE1Qd3VKeFNRU05EYmZIUXh3NWN5bWVEZmJZTFJIRlhhblVFOW9pWHdlWWdtdTFtbXRFR1Nsd0RSUzltRWdTeklUeUtyWnBXUGJ6aFdRNVZ5WkxsMVFhL20rdlhkUVMyTUpGSDFzd3ZGdnhYVU4zeWZYR3NSK2xTLzdnbnh3MTV2YUNKenQ1VVArekNydmJsYTFmWTI5amNUUktjNFAzS0U4WXAxaldqQ1hCbXNVeXhRNjBrRktXcEJLcnlzZzl6WENSbUs0TTdLaWV5NXFEaFdBY1QzdEtMUUtaUzRJV0w4b3pWTXBXWWZNSEtIR2JjcFVDQUFBPSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7332335","2":"0.8829437","3":"0.6007477","4":"3","5":"1.75"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[1]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjRnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqb3hNaXdpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjoxMiwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qRXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTVNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtd3hVWE5WTjBSTlFsSTRZVkpKWjBWV1UxWXJRVTF0YkcxaFFVRmlZVU5XVG1rMmRFbEROa2xhVHpScFZWaHhSazFsYkVsRFJXZzRVblk0UVZKTmVrMTRTV1pCYjBsR2FWSXJRV2R3TXpab1lXRlNiM1I2WkRndmJHVnlkSFoxWWk5ME9VaDNRbk5qU25kaE1rczJRelJDTkdaSVZGb3pRVnBSUVZsSlJVUnVkalZsY1ZWUWNtVnhjbVYxYUZwaFNEZG1NMHd3T0ROa2VWZ3ZZbEJqTWpOc1kyWlRkamRoWlhaNE5TOXVjRlJsU3pJMFUwdG1aemRDZGsxVmQyeDRUMUp1VTFoSlJrZEZWRkZVYmxjMmJtUXlSSGRUYW1VdlIwSk9Ra2s0VUhSNmFqWlBia3RGVlRGM1lqYzNTVk5KTDB4U1VYRm5iV1Y1UTFsQ2NIVkNZVEYxU1dGWlZYQjVXRUZPUmxCNVMxTkNRVTlvZGtsd1RrWjVla3d5VldsNWFrTjBWRlJhWkZWSFVEVjJjakY0YTBOWGVHaGllRTVpVFV4NFVqaHViRVJaT0hveGVHeEZlbFJOWWpoMlRHMTZkRlJETTFKNmVXVjVORkJ4YmpWWVdXNWhNV01yZWxZeVJEUjFhbGxhU1ZwMlJWSTFla1JxUm5ObldYTkVhVmx6YTJkc01tOUpWMFZ6YW1sU1YwWldTM3B0YVV0cE1GUXdNSE5ETmpaeWJXOVBVbWRLZUhaSE1ISTVVVGhyU210cllWQklSRXhGVjJ4aFFsZHRabmxyTkdkaVMxWkJaMEZCSW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MzQzMjcyXCIsXCIyXCI6XCIwLjg4MzM0MDRcIixcIjNcIjpcIjAuNjAxNTI0OFwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMS43NVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzFdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjEsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbMSDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmwxUXNVN0RNQlI4YVJJZ0VWU1YrQU1tbG1hQUFiYUNWTmk2dElDNklaTzRpVVhxRk1lbElDRWg4UnY4QVJNek14SWZBb0lGaVIrQWdwMzZoYWFSb3R6ZDgvbGVydHZ1Yi90OUh3QnNjSndhMks2QzRCNGZIVFozQVpRQVlJRURudjVlcVVQcmVxcmV1aFphSDdmM0wwODNkeVgvYlBjMjNsY2ZTdjdhZXZ4NS9ucFRlSzI0U0tmZzdCdk1Vd2x4T1JuU1hJRkdFVFFUblc2bmQyRHdTamUvR0JOQkk4UHR6ajZPbktFVTF3Yjc3SVNJL0xSUXFnbWV5Q1lCcHVCYTF1SWFZVXB5WEFORlB5S1NCQU9odklwTkZ5ekwyVWl5akN0VFRaZFVHUDV2cjF4a0NXeGhieE5iTUx4UjhubERZOHoxeGxFelRNYjh2TG16dFRDM1J6eWV5NFBxbjVYWW5hMWMrelYyRDR1allaSVp2RVI1ekRqRnNnWXNEaVlza2dsMm9JV0VzamlSV0ZWS3ptaUtpMFQwMHNDNjZybW9PUmdKeHZHMHI5UThrSmtrYVBIRExFV2xhQldtZnlrNGdiS1ZBZ0FBIn0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7343272","2":"0.8833404","3":"0.6015248","4":"3","5":"1.75"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[1]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBNWtBQUFFekNBTUFBQUNNa0RlMUFBQUNpMUJNVkVVQUFBQUFBRG9BQUdZQU9qb0FPbVlBT3BBQVpyWWVuSWtmbG9zZmw0c2ZtWW9mbW9vZm40Z2ZvWWNna293Z2s0d2dsSXdnbzRZaGo0MGhrSTBpalkwaXA0VWppWTRqcVlNa2g0NGxoSTRscklJbWdvNG5mNDRucllFb2ZZNHBlWTRwZW80cHIzOHFkNDRyZEk0cnNYNHNjbzRzc1g0dWJZNHViNDR1czN3d2FvNHhaNDR5Wkk0ek16TXp0bm8wWVkwMVhvMDFYNDAzVzQwM3VIZzRXWXc1Vll3NkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlZJdzZacEE2WnJZNmtOczdVb3M3dTNVOFQ0bzlUWW8vU0lsQVJvaEF2WEpCUTRkQ1FJWkVBVlJFQTFaRU9ZTkVQSVJGQlZoRk5ZRkZ2M0JGd0hCR0NGeEdNbjVIRFdCSEVXUkhLM3BITG54SUZXaElHV3RJSFc5SUlIRklKSFZJSjNkSUtIaEx3bXhOVFUxTlRXNU5UWTVOYnF0TmpzaFF4R3BXeG1kWnlHUmJ5R05peTE5bUFBQm1BRHBtQUdabU9nQm1PcEJtWmdCbVpyWm1rTFpta050bXR2OW96Rnh1VFUxdWpzaHVxK1J1ejFoMTBGUjcwbEI4MGxDRDAweUQxRXlLMWtlT1RVMk9UWTZPYnF1T3ErU095UCtRT2dDUU9qcVFPbWFRWnBDUWtEcVFrR2FRa0xhUWtOdVF0cENRdHYrUTI3YVEyOXVRMi8rUjEwT1kyRDZaMkQyZjJqbW4yeldyYmsycmJvNnJ5UCtyNVArdTNEQ3YzREMyWmdDMlpqcTJabWEya0pDMnRtYTJ0cEMydHJhMjIvKzIzaXEyM2l1Mi83YTIvLys5M3lhKzN5YkU0Q0hGNENISWprM0lqbTdJam83SXE2dkl5TWpJNUt2SS8vL0o0Ui9NNFI3TzRSM1Q0aHJVNGhyYmtEcmJrR2Jia0pEYnRwRGJ0cmJiMjdiYjR4bmIvN2JiLy8vajVCamtxMjdrcTQ3a3E2dmsvLy9xNVJycjYrdng1UjMzNWlENDVpSDk1eVgvQUFEL3RtYi90cEQvdHJiL3lJNy8yNUQvMjl2LzVLdi81T1QvLzdiLy84ai8vOXYvLytULy8vODJBUHlDQUFBQUNYQklXWE1BQUF1d0FBQUxzQUVhT0JCeUFBQVhnMGxFUVZSNG5PMmRDWnNrV1ZXR3MwdTdSZHpCSFJmY2NSZUVSbHdvWkJFUUdHVGZkRW9jRUhwR3BxV1FBUmRHN1JvWlFhVkFGbHV6R1VHaFhFQ3dSYzF1RllzWm0wYnRITHNZc212aTV4aHhJN0lpODV5NEVmZWVPaE9aY2U3M1BzL2taTjdUbVpYMTFYa3o5cHVqREFDd2ZveFcvUVlBQUEzQVRBRFdFWmdKd0RvQ013RllSN3JNL0dFTDlKS2tyY2djaUN3YXZVdzZ6U1NQci9yL2FVdEorRFNsVit6YlRQSlkrRnVzdnRham1lVHh5bjkxYVExbXdzd2VhakF6dWdZellXWVBOWmdaWFlPWk1MT0hHc3lNcnNGTW1ObEREV1pHMTJBbXpPeWhCak9qYXpBVFp2WlFnNW5STlpnSk0zdW93Y3pvR3N5RW1UM1VZR1owRFdiQ3pCNXFNRE82QmpOaFpnODFtQmxkZzVrd3M0Y2F6SXl1d1V5WTJVTU5aa2JYWUNiTTdLRUdNNk5yTUJObTlsQ0RtZEUxbUFremU2akJ6T2dheklTWlBkUmdablFOWnNMTUhtb3dNN29HTTJGbUR6V1lHVjJEbVRDemh4ck1qSzdCVEpqWlF3MW1SdGQ2TmZOL1czaTJueS96OHkwdGZJZWY3L2Z6c0JaV1lPYWZ0dEFTMmJNZjJjS3Z0dkRQTGZ4VEMyMS8ycXhmTTl2ZXlzKzMwQmJuVDdmd1hTMThad3MvMW9KdVpEQlRIWmdwaUF4bVVtQ21PakJURUJuTXBNQk1kV0NtSURLWVNZR1o2c0JNUVdRd2t3SXoxWUdaZ3NoZ0pnVm1xZ016QlpIQlRBck1WQWRtQ2lLRG1SU1lxUTdNRkVRR015a3dVeDJZS1lnTVpsSmdwam93VXhBWnpLVEFUSFZncGlBeW1FbUJtZXJBVEVGa01KTUNNOVdCbVlMSVlDWUZacW9ETXdXUndVd0t6RlFIWmdvaWc1a1VtS2tPekJSRUJqTXBNRk1kbUNtSURHWlNZS1k2TUZNUUdjeWt3RXgxWUtZZ01waEpnWm5xd0V4QlpEQ1RBalBWZ1ptQ3lHQW1CV2FxQXpNRmtjRk1Dc3hVQjJZS0lvT1pGSmlwRHN3VVJBWXpLVEJUSFpncGlBeG1VbUNtT2pCVEVCbk1wTUJNZFdDbUlES1lTWUdaNnNCTVFXUXdrd0l6MVlHWmdzaGdKZ1ZtcWdNekJaSEJUQXJNVkFkbUNpS0RtUlNZcVE3TUZFUUdNeWt3VXgyWUtZZ01abEpncGpvd1V4QVp6S1RBVEhWZ3BpQXltRW1CbWVyQVRFRmtNSk1DTTlXQm1ZTElZQ1lGWnFvRE13V1J3VXdLekZRSFpnb2lnNWtVbUtrT3pCUkVCak1wTUZNZG1DbUlER1pTWUtZNk1GTVFHY3lrd0V4MVlLWWdNcGhKZ1pucXdFeEJaRENUQWpQVmdabUN5R0FtQldhcUF6TUZrY0ZNQ3N4VUIyWUtJb09aRkppcERzd1VSQVl6S1RCVEhaZ3BpQXhtVW1DbU9qQlRFQm5NcE1CTWRXQ21JREtZU1lHWjZzQk1RV1F3a3dJejFZR1pnc2hnSmdWbXFnTXpCWkhCVEFyTVZBZG1DaUtEbVJTWXFRN01GRVFHTXlrd1V4MllLWWdNWmxKZ3Bqb3dVeEFaektUQVRIVmdwaUF5bUVsSjBzekRuVkhPWnZIL1UrWEllSFJ5Znp6YXZPYy96eFNWamIzalJHclh6SGx1QVJ6ZXRSc1ZtVlV6bDFzc3k2WkZiODFDdWl4Sk0vTzh0clBwYUR2TEppZGNBeDJjM3N5bUovY25KL2RkUjEyR21jM0x6S1BjT2htZmdKa2xDeTJXODhIYmkvUkN1aXhkTXc5MzhxZ3UzKzArMFM3Zm5adVozN3RuUCs2ejNoT1phVE5kYnAxZ21UbG5vY1h5cGVYWm9zMkMwa25YVFBkWmR2bWp0eFZyRjJjbm0va3F4anl6NHkweXJadFo1SmF2by8zNlgrVkx6NDAvL0pNekczdjU4akZmUDl2WW05MTI5NGxkdDlJMkhZMnd6S3hZYUxGOHlmbkhzK0pSU0plbGF1YklyZlhuOFJTQlhkb3RibWRueXA0NzVtYW1iVFBMM0thYjJZWGRnNS9hbjkyNm0zZGEzbWVUemNPNzNyV1RiNExtbGZIbXdVL3NIVHdSWnBZc3RsaWg0M2c3QytxeVZNM2NucGJyR0h0Rlo3MGpjN0VWaXdNc005dk5MSE03T0ozN21XZVdwMVdhV2ZUYWRyRTRtSXhHbzFObEpTb3l5MmJXTGVaMm9aM0NNck45YmJiNDdIS2ZZWnZUN1NLMi9EWWZ3M1ptaDVsbGJybUIyNHRtVGsrOGE2YzBzNmpDekFVV1dpeGZtUzJ0eEhabW01bHVoVCtQN2VDSlArTSsvNmNuOS9OaGw5bkJHOE1heWhlWmFUT0wzTzdmelZkYnAyNVBkdjV3ZG1iajl1M0Qwc3g4a1RvN085M1lPOXlKMlNZd2J1YTh4Y3JsNVB4enE2UExralN6V0trb2R2K2ZlRkt4b3lKZlVCYWJULy8yUjZkSHA4b2pUVkY3THhvaXMycm1QTGVORHoycDJFd2F1NlRHb3hNL3VWdGt1WEY3c1EwNnJpcEJ4MWJDdW16SVp1YVJIYlhZRi85YUVkREI2ZEVYblE3b3NpVE5mR2l4YXlaRFlkMi9pc3lxbVhKZ3Bqb3dVeEFaektUQVRIVVNNbk44M0NOTVI1SEJUQXJNVkNjaE0vVWlnNWtVbUtrT3pCUkVCak1wTUZNZG1DbUlER1pTMGpTVHYxMjlSQzJiMmZqUFZDSXphNmE0MWRJMDgzbU13TGhDTUd6bS96QzBJak5ycHJqVjBqVHpCWXpBdUVJd2JPYm5HRnFSbVRWVDNHcHBtdmtpUm1CY0lSZzI4N09NcWpCeE14MGM3b3lLVXh6em00UFRZVk1mSEVWbTFreHhxNlZwNW9zWmdYR0ZZTmpNenpESzhZTW5aeGZLTTBFbjIrN204L3V6Tit6SFJHYldUSEdycFdubXl4aUJjWVZnMk15Y1Q5ZlVnNVB0NHNMTVF0QVA3cm1iOHJLS2lNak1taWx1dFRUTmZEa2pNSzRRREp2NXI0eHkvTkp1ZWVXRW15UEkzWXpuRTFNRlJtYldUSEdycFdubUt4aUJjWVZnMk14UE1jcnhhcGw1K0E1M2tYQTVvY1lmNENxd0FuR3JwV25tS3htQmNZVmcyTXkvWjVUajFYYm10TGorZkZwZWhKN2RnKzNNQW5HcnBXbm1xeGlCY1lWZzJNeS9aVlNGOFdnelgzQWU3b3lLYTZiem16R3V6NndRdDFxYVp2NGlJekN1RUF5YitkY01yY2pNbWlsdXRUVE5mQWtqTUs0UURKdjVGd3l0eU15YUtXNjFOTTE4S2FNcWxFZk1EMDduSzJQdVlMbTdWOHl2RWJVN3c2eVo3Mk9FeDlJZW1Wa3p2YTNXUlpwbXZwQlJqbGQ3TXY1OVA3dC8xeDBzZC9leUR3ZUdPWS9NckpudlpVUWwweEtaV1ROOXJkWkptbWJtM0ZSVEQxWjcvN055ejJKNXNQeWUvZG1aa3hIN0dTMmIrUjVHUkM2dGtaazE4eVpHWUNacG12a2NSamsrUDJLZXpkNDVQMWllMy92OC9qUkdUY05tdnBzUkhrdDdaR2JOOUxWYUoybWErVnhHT1g2MHpMeS9tSG5LSFN4Mzl3cGxnekZzNXRzWTRiRzBSMmJXVEYrcmRaS21tYzlpbE9QVmR1YjhNSGx4Nis1Rm50Qmkxc3pmWVlUSDBoNlpXVE45cmRaSm1tWStrMUVWeWlQbTFjcHNjYkM4dURlSi9XSXJzMmIrRmlNaWw5Ykl6SnJwYmJWSmRaMWM4Zi9pdjltWjVRdm4walR6R1F4SlAza2pNMnZtV3hsYWtaazEwOWRxODlXenlXWjEzMzB6MGNJVDB6VHo2UXhwVHpWR1p0Yk10ekMwSWpOclpyYlViZlZndFV2RGZmSG9mUGZHaGNWVnN6VE5mQm9qdXBuYUlqTnI1cHNZV3BHWk5kUFhhdFZoQVBjbFlmTkRBa3NYQWFScDVsTVowcDVxak15c21hOW5WQVU2MndqZGFPcU16S3ladmxhcmxwTzVtUWR2ck84dmtLYVpUMkZFdEZFWGhzMThIYU1jWjdPTjBJMm16c2pNbXVscnRYbGtUODZGTE85UGw2ODFUOVBNSnpEQ3U2Z1R3MmJtdkxhbUhteVliV1I1bzZrek1yTm1lbHV0T2d3d0tjNW5jZmZKTnh1bWFlYmpHZUZkMUlsaE0xL0RLTWY1YkNPNGNycEMzR3ExbWJOYm16N2tiSnI1T0VaZ1hNdjRJak5yNXMyTWNyeGh0cEZwODVYVGtpNGJ0Sm5pVmx0WVp1YWI3bnhXSlp0bVBwWVJHQmZCRTVsWk0zK0JVWTd6MlVhbXZnbTZCRjAyYURQRnJiYThOanRsWjd2WU5QTkhHWUZ4Y1pvaU0ydm16ekdxQXAxdGhHNDBkVVptMWt4eHF5MlpPUmx0SHU0c3AyYlR6QjlpQk1iRmFJek1ySmsveTlDS3pLeVo0bFpiMk02c0RrRWR2bjF4MDkybW1UL0lDSXhyR1Y5a1pzMzhjWVpXWkdiTkZMZmFncGxucS84dkhZaXlhZVlQTUFMaldzWVhtVmt6ZjRTaEZabFpNOFd0dG1CbTQ2RmhtMlorSHlNd3JtVjhrWmsxa3lldkZabFpNOFd0dHJDZDZZNFBYeWJCMlRUek1ZekF1QWlleU15YStiME1yY2pNbWlsdXRhWHR6Qnc2U1p4Tk03K0hFUmpYTXI3SXpKcjVyUXl0eU15YUtXNjFoV1dtTzJuRGZabzk4QnRiZHpSbmR1M2FOUXRtOHI5R1lGd0VUMlNETkpQOGFiT20zTDZab1JWWjIxc1p0Sm5pVmx0WVpyNHpjNGVNYzc1dzVjYnZYV25LN05xMTVkQ0dhaVpQUExpekZ2RkZOa1F6Nlo4MmE4cnRHeGhha2JXOWxVR2JLVzYxdVptSE95TkhOVW5jQTMvbUFzdTVPblF6cjE3bGNYMDdJNnE5dWlLellPYlZwdHkranFFVm1RVXpHeU1UdHhwWlpsWjhiT3VXNnA3TlplYTNNYW9DbmFPOW5KNTk0cm5ZMEJlWkJUT3pwdHkraGhIWVpzZnFzcUdZMlJpWnQ5VzZvTmVhVkh2Tkh2ekF4YWJNckd4bjhwOWJqck01MnQzMDdFY3o2alhESXh1aW1VSGJtVi9CQ0d5elkzWFpvTTMwdFZvbkMyYU9GL2VhZmFKeEM0QXlWRE56SGxWVEQ3STUydDMwN1BVb3hSUFpJTTBrTkxiWmx6UG13WkU1RFE1M2ZOOEVJK2l5UVp2NUtFWnpMZ3grRGxCV3JHWnNuY3RDTWh1cW1kL0VLTWZaSE8xdWV2YWpVWW92TXJObWZnbWpIR2R6R25objZKVjAyYUROOUxWYUp3dkx6TXZwbkdud2pZeHl2R0dPOXR4Vy96TFRFNWxaTTNNZVhsTVA4amtOdkhObkM3cHMwR2I2V28zTk4wdjNadmpXWnNNeUc2cVpYODhveHh2bWFNOWJ6TCtkNlluTXJKbGZ5aWpIK1p3R1hqTUZYVFpvTTd0YTdXaStXZHBsQzJ1emIyaWFIc0ttbVYvTE9PcWI1VG5heStuWng3NTlzNTdJekpyNTFZeHluTTlwNEYyYkZYVFpvTTFjN3JaNmtNMDNTOWZNRnBhWi81Zk8ydXdqR0kxdDFJa25Nck5tZmlXakhPZHpHbmlYbVlJdUc3U1p2bFpqODgzU3ZSbHBuamZyNjdCSWtqdHYxdnVKUnVjMHlBZWF2OWd3dWZObWZhM0c1cHR0V1diV1p6UUdaelpVTTcrSzBkUkYzWGdpTTJ1bWR5dmcySkdaTmRQWGFteStXZjkyWmpNMnpmVHR5VkRCc0ptKzNSbkhqOHlzbWQ1V28vUE4wcjBaYVpyNWNJYXdwWm9qTTJ1bTl4REFzU016YTZhNDFkSTAwM2ZFWEFYRFpvb1BtM2RHWnRaTWNhdWxhYWIzTERNTkRKc3BQdFdzTXpLelpvcGJMVTB6dGM3TTlrUm0xa3orOTlLS3pLeVo0bFpMMDh6alg4M1VHcGxaTThXWE5IVkdadFpNY2F1bGFlWnhyd0R1aU15c21ZOW1hRVZtMWt4eHE2VnA1dkZueldpTnpLeVp2Rk8xSWpOcnByalYwalJUWWFhcHRzak1tc203V0NzeXMyYUtXeTFOTTQ4L08yTnJaR2JOVkpvTnRDRXlzMmFLV3kxTk03K2JFUmhYQ0liTjlFNXJUT2MwOEU2ZDVJdk1ySm5pVmt2VFRQNEtnWEdGWU5oTTMxY0JzRGtOT3FaTzRwR1pOVlBjYW1tYWVmeHZ6bW1Oekt5WjJkSTM2TlNEYkU0RC96UVFuc2pNbWlsdXRUVE5QUDYzemJWR1p0Wk0zMWZPc1RrTnZGTW4rU0l6YTZhNDFkSTBVK1ViV3YyUm1UWFQ5eld0YkU0RExEUG5pRnN0VFRPOTMycE9aNEl1djRoMXlpNzFiWS9NckptK3J6Wm5jeHBnTzdPejFicEkwOHpuTThweE5oUDA1YjFpVXBzUEI0WTVqOHlzbVk5bFZJV0dPUTJ3YjdhMTFUcEowOHljbTJ2cVFUWVRkTTZGWFRjZGREaUd6WHdjSXlLWDFzak1tbmt6SXpDVE5NMThEYU1jWnpOQlo0V2pianJvd0R3ejAyWStuaEVlUzN0a1pzMzB0ZHI4aU8rMFhNTTRWUjRNWG5oaW1tYStsbEdseFdlQ25tNFhqeTlGYlRTWk5mTUpqUEJZMmlNemE2YXYxZVpiNHNXV1V0NWo0MnB1KzVvMHpYd2RZem11ZWlib3FWdHVldWRvYkk3TXJKbFBZWVRIMGg2WldUT3pwVzZyQjQvbW04MFhsRzVWclp6YnZpWk5NMS9QcUFwOEp1ajh0cHdPT3FMTnpKcjVWRVpFTHEyUm1UWFQxMnJWaHBQYlVwcHNGdmZkd2VDYU5NMThFMFBhVTQyUm1UWHphUXl0eU15YTZXdTFlbWZqcGQzWm1meXp2NXpidmlaTk05L0NrSFdVSnpLelpqNmRvUldaV1ROOXJYYTA0ZVMybEdabnk0UEJDMDlNMDh5M01tUWQ1WW5NckpuUFlHaEZadFpNYjZ1VkcwNXVTMmxTN0o4dGp3UFhwR25tYnpLRUxkVWNtVmt6bjhuUWlzeXNtZUpXUzlQTTMyWUV4aFdDWVRPZnhkQ0t6S3laNGxaTDA4eTNNUUxqQ3NHd21jOWxhRVZtMWt4eHE2VnA1cnNaZ1hHRllOak01ekMwSWpOcnByalYwalR6UFl6QXVFSXdiT1pOaktxd01OdUl1MUJuZm1wamNHUm16UlMzV3BwbXZwY1JHRmNJaHMxOElhTWNYNXh0eEYybzQ4NDNpNG5NckpuaVZrdlR6UGN4QXVNS3diQ1pPUyt0cVFjWFp4dkppck1hTWFmQkhIR3JwV25tbnpNQzR3ckJzSmt2WVpUalM3T05GT2MybHVlYlJVUm0xa3h4cTZWcDVrY1lnWEdGWU5qTVgyS1U0NHV6amJnTGRkejVaakdSbVRWVDNHcHBtdmszak1DNFFqQnM1cXNZNWZqaWJDUFZoVHF6czFHUm1UVlQzR3BwbXZsM2pNQzRRakJzNWlzWlZXRmh0aEYzb2M0a2F1WWt5MmFLV3kxTk16L0ZDSXdyQk1ObXZvS2hGWmxaTThXdGxxYVovOElJakNzRXcyYStuS0VWbVZrenhhMldwcG1mWmdUR0ZZSmhNMS9HMElyTXJKbmlWa3ZUek04d0F1TUt3YkNaTDJab1JXYldUSEdycFdubVp4bUJjWVZnMk13WE1iUWlNMnVtdU5YU05QTnpqTUM0UWpCczVnc1lXcEdaTlZQY2FtbWErZCtNd0xoQ01Hem04eGhha1prMVU5eHFhWnI1a0dMWXpJY3VNck5taW9HWjZzQk1RV1F3a3dJejFZR1pnc2hnSmdWbXFnTXpCWkhCVEFyTVZBZG1DaUtEbVJTWXFRN01GRVFHTXlrd1V4MllLWWdNWmxKZ3Bqb3dVeEFaektUQVRIVmdwaUF5bUVtQm1lckFURUZrTUpNQ005V0JtWUxJWUNZRlpxb0RNd1dSd1V3S3pGUUhaZ29pZzVrVW1La096QlJFQmpNcE1GTWRtQ21JREdaU1lLWTZNRk1RR2N5a3dFeDFZS1lnTXBoSmdabnF3RXhCWkRDVEFqUFZnWm1DeUdBbUJXYXFBek1Ga2NGTUNzeFVCMllLSW9PWkZKaXBEc3dVUkFZektUQlRIWmdwaUF4bVVtQ21PakJURUJuTXBNQk1kV0NtSURLWVNZR1o2c0JNUVdRd2t3SXoxWUdaZ3NoZ0pnVm1xZ016QlpIQlRBck1WQWRtQ2lLRG1SU1lxUTdNRkVRR015a3dVeDJZS1lnTVpsSmdwam93VXhBWnpLVEFUSFZncGlBeW1FbUJtZXJBVEVGa01KTUNNOVdCbVlMSVlDWUZacW9ETXdXUndVd0t6RlFIWmdvaWc1a1VtS2tPekJSRUJqTXBNRk1kbUNtSURHWlNZS1k2TUZNUUdjeWt3RXgxWUtZZ01waEpnWm5xd0V4QlpEQ1RBalBWZ1ptQ3lHQW1CV2FxQXpNRmtjRk1Dc3hVQjJZS0lvT1pGSmlwRHN3VVJBWXpLVEJUSFpncGlBeG1VbUNtT2pCVEVCbk1wTUJNZFdDbUlES1lTWUdaNnNCTVFXUXdrd0l6MVlHWmdzaGdKZ1ZtcWdNekJaSEJUQXJNVkFkbUNpS0RtUlNZcVE3TUZFUUdNeWt3VXgyWUtZZ01abEpncGpvd1V4QVp6S1RBVEhWZ3BpQXltRW5wTm5PWnEvNS8ybElTUGszcEZYczNjeG5oYjdINldwOW1MclB5WDExYWc1a3dzNGNhekl5dXdVeVkyVU1OWmtiWFlDYk03S0VHTTZOck1CTm05bENEbWRFMW1Ba3plNmpCek9nYXpJU1pQZFJnWm5RTlpzTE1IbW93TTdvR00yRm1EeldZR1YyRG1UQ3poeHJNaks3QlRKalpRdzFtUnRkZ0pzenNvUVl6bzJzd0UyYjJVSU9aMFRXWUNUTjdxTUhNNkJyTWhKazkxR0JtZEExbXdzd2VhakF6dWdZellXWVBOWmdaWFlPWk1MT0hHc3lNcnNGTW1ObEREV1pHMTJBbXpPeWhCak9qYXpBVFp2WlFnNW5STlpnSk0zdW93Y3pvV3A5bVdrQXZyaEJXL2R2cWdjaWkwY3VreTB5V29hZ2tmSnIrSzY0QzRXK3hWcldlV2FkZmZWV1J3Y3lIbkhWcUY1alpXKzI0eEpvSkFPZ0RtQW5BT2dJekFWaEhZQ1lBNjBpb21UZnUzTG9qeTY1dnZmcmlnKzkvOWNYbFdqR2EzWnZYYWFsOFhGUll1YnpmK016NlJ6Vzk2QU52OXJ4aStRenZlK21mdHNoRW1iV0ZKazV0cldKRFpEV2hadjdYeFJ1L2V6SDdaSEgzd1ErUU4xS001ci9IeDgrelV2SFlWWGpaM1c5OFp2MmpHbDcweHAyMytGN3hrKzN2cFhmYUlwTmwxaEthT0xXMWlnMlIxVVNzelg3OC9JMDdmK1VLejh5TjNuc3V1MzVIWTJTdXdzdkZmZTh6cXgvVlVQcUhmM3l6NXhYZE0xcmV5eXJ3UlNiTXJEMDBVV3ByRnhzaXE0Z3c4eE5Ydm5EbGV2NTI2QnR4by9lZHp4NzQvY2JJWElXWGkvdmVaMVkvaXBldW44cy9wcHBmMFQyajViMnNBbDlrd3N6YVF4T2x0bmF4SWJLS2NET3ZueXR1NzJ0Y2VOOTNYclRNOUQxei9xTlk2Y0gzYjIxdDNlTDdlQ3plblArOXJJQzJ5Q1NadFlZbVRtMnRZa05rYzRMTnZINUxjVnU4Q2Y1RzhoSFpkbWJ6TTQ5K1ZOT0w1bU90bXhUZTk5SS9iWkdKTW1zTFRaemFXc1dHeUk0SU5mUGUvRFBrM0wxYnYzdyt5ejYyVld3SExKYkswVHQ0eVQydUtxUmMzRzkrNXRLUFlpOWE3REpyZkVYM2pKYjMwanN0a1FremF3bE5tdHA2eFliSWFuQThFNEIxQkdZQ3NJN0FUQURXRVpnSndEb0NNd0ZZUjFacTVxWGRWZjcwZ1lMUW9obGtaQ3MxODhJUUUxczFDQzJhUVVhMkdqTm50LzNsNk9UK2REVGFudDEyOTRuZGNmNGdjemZBRDBLTFpzaVJyY1RNdzUzUnFkbXR1Lzl4MTI1K2J6T2JibWJqVFhlemlqY3pGQkJhTklPT2JGWEx6TDNEUEs2N2RvdDcyV1EwR3AxeU55dDVNME1Cb1VVejVNald3c3p0Zk1qZGdCWVFXalJEam13ZHpKeWV5bVpuM2MxSzNzeFFRR2pSRERteTFaZzVMdFlxVHU2UFI5dlZSdm5HWG5rRC9DQzBhSVljR2M0MEFHQWRnWmtBckNNd0U0QjFCR1lDc0k3QVRBRFdFWmdKd0RvQ013RllSMkFtQU92SS93TVovZGRvdGQ4UjVnQUFBQUJKUlU1RXJrSmdnZz09XCIgLz5cblxuPCEtLSBybmItcGxvdC1lbmQgLS0+XG4ifQ== -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA5kAAAEzCAMAAACMkDe1AAACi1BMVEUAAAAAADoAAGYAOjoAOmYAOpAAZrYenIkflosfl4sfmYofmoofn4gfoYcgkowgk4wglIwgo4Yhj40hkI0ijY0ip4UjiY4jqYMkh44lhI4lrIImgo4nf44nrYEofY4peY4peo4pr38qd44rdI4rsX4sco4ssX4ubY4ub44us3wwao4xZ44yZI4zMzMztno0YY01Xo01X403W403uHg4WYw5VYw6AAA6ADo6AGY6OgA6Ojo6OpA6VIw6ZpA6ZrY6kNs7Uos7u3U8T4o9TYo/SIlARohAvXJBQ4dCQIZEAVREA1ZEOYNEPIRFBVhFNYFFv3BFwHBGCFxGMn5HDWBHEWRHK3pHLnxIFWhIGWtIHW9IIHFIJHVIJ3dIKHhLwmxNTU1NTW5NTY5NbqtNjshQxGpWxmdZyGRbyGNiy19mAABmADpmAGZmOgBmOpBmZgBmZrZmkLZmkNtmtv9ozFxuTU1ujshuq+Ruz1h10FR70lB80lCD00yD1EyK1keOTU2OTY6ObquOq+SOyP+QOgCQOjqQOmaQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+R10OY2D6Z2D2f2jmn2zWrbk2rbo6ryP+r5P+u3DCv3DC2ZgC2Zjq2Zma2kJC2tma2tpC2tra22/+23iq23iu2/7a2//+93ya+3ybE4CHF4CHIjk3Ijm7Ijo7Iq6vIyMjI5KvI///J4R/M4R7O4R3T4hrU4hrbkDrbkGbbkJDbtpDbtrbb27bb4xnb/7bb///j5Bjkq27kq47kq6vk///q5Rrr6+vx5R335iD45iH95yX/AAD/tmb/tpD/trb/yI7/25D/29v/5Kv/5OT//7b//8j//9v//+T///82APyCAAAACXBIWXMAAAuwAAALsAEaOBByAAAXg0lEQVR4nO2dCZskWVWGs0u7RdzBHRfccReERlwoZBEQGGTfdEocEHpGpqWQARdG7RoZQaVAFluzGUGhXECwRc1uFYsZm0btHLsYsmvi5xhxI7Ii85y4EfeeOhOZce73Ps/kZN7TmZX11Xkz9pujDACwfoxW/QYAAA3ATADWEZgJwDoCMwFYR7rM/GEL9JKkrcgciCwavUw6zSSPr/r/aUtJ+DSlV+zbTPJY+FusvtajmeTxyn91aQ1mwsweajAzugYzYWYPNZgZXYOZMLOHGsyMrsFMmNlDDWZG12AmzOyhBjOjazATZvZQg5nRNZgJM3uowczoGsyEmT3UYGZ0DWbCzB5qMDO6BjNhZg81mBldg5kws4cazIyuwUyY2UMNZkbXYCbM7KEGM6NrMBNm9lCDmdE1mAkze6jBzOgazISZPdRgZnQNZsLMHmowM7oGM2FmDzWYGV2DmTCzhxrMjK7BTJjZQw1mRtd6NfN/W3i2ny/z8y0tfIef7/fzsBZWYOafttAS2bMf2cKvtvDPLfxTC21/2qxfM9veys+30BbnT7fwXS18Zws/1oJuZDBTHZgpiAxmUmCmOjBTEBnMpMBMdWCmIDKYSYGZ6sBMQWQwkwIz1YGZgshgJgVmqgMzBZHBTArMVAdmCiKDmRSYqQ7MFEQGMykwUx2YKYgMZlJgpjowUxAZzKTATHVgpiAymEmBmerATEFkMJMCM9WBmYLIYCYFZqoDMwWRwUwKzFQHZgoig5kUmKkOzBREBjMpMFMdmCmIDGZSYKY6MFMQGcykwEx1YKYgMphJgZnqwExBZDCTAjPVgZmCyGAmBWaqAzMFkcFMCsxUB2YKIoOZFJipDswURAYzKTBTHZgpiAxmUmCmOjBTEBnMpMBMdWCmIDKYSYGZ6sBMQWQwkwIz1YGZgshgJgVmqgMzBZHBTArMVAdmCiKDmRSYqQ7MFEQGMykwUx2YKYgMZlJgpjowUxAZzKTATHVgpiAymEmBmerATEFkMJMCM9WBmYLIYCYFZqoDMwWRwUwKzFQHZgoig5kUmKkOzBREBjMpMFMdmCmIDGZSYKY6MFMQGcykwEx1YKYgMphJgZnqwExBZDCTAjPVgZmCyGAmBWaqAzMFkcFMCsxUB2YKIoOZFJipDswURAYzKTBTHZgpiAxmUmCmOjBTEBnMpMBMdWCmIDKYSYGZ6sBMQWQwkwIz1YGZgshgJgVmqgMzBZHBTArMVAdmCiKDmRSYqQ7MFEQGMykwUx2YKYgMZlJgpjowUxAZzKTATHVgpiAymElJ0szDnVHOZvH/U+XIeHRyfzzavOc/zxSVjb3jRGrXzHluARzetRsVmVUzl1ssy6ZFb81CuixJM/O8trPpaDvLJidcAx2c3symJ/cnJ/ddR12Gmc3LzKPcOhmfgJklCy2W88Hbi/RCuixdMw938qgu3+0+0S7fnZuZ37tnP+6z3hOZaTNdbp1gmTlnocXypeXZos2C0knXTPdZdvmjtxVrF2cnm/kqxjyz4y0yrZtZ5Javo/36X+VLz40//JMzG3v58jFfP9vYm91294ldt9I2HY2wzKxYaLF8yfnHs+JRSJelaubIrfXn8RSBXdotbmdnyp475mambTPL3Kab2YXdg5/an926m3da3meTzcO73rWTb4LmlfHmwU/sHTwRZpYstlih43g7C+qyVM3cnpbrGHtFZ70jc7EViwMsM9vNLHM7OJ37mWeWp1WaWfTadrE4mIxGo1NlJSoyy2bWLeZ2oZ3CMrN9bbb47HKfYZvT7SK2/DYfw3Zmh5llbrmB24tmTk+8a6c0s6jCzAUWWixfmS2txHZmm5luhT+P7eCJP+M+/6cn9/Nhl9nBG8MayheZaTOL3O7fzVdbp25Pdv5wdmbj9u3D0sx8kTo7O93YO9yJ2SYwbua8xcrl5Pxzq6PLkjSzWKkodv+feFKxoyJfUBabT//2R6dHp8ojTVF7Lxois2rmPLeNDz2p2Ewau6TGoxM/uVtkuXF7sQ06ripBx1bCumzIZuaRHbXYF/9aEdDB6dEXnQ7osiTNfGixayZDYd2/isyqmXJgpjowUxAZzKTATHUSMnN83CNMR5HBTArMVCchM/Uig5kUmKkOzBREBjMpMFMdmCmIDGZS0jSTv129RC2b2fjPVCIza6a41dI083mMwLhCMGzm/zC0IjNrprjV0jTzBYzAuEIwbObnGFqRmTVT3GppmvkiRmBcIRg287OMqjBxMx0c7oyKUxzzm4PTYVMfHEVm1kxxq6Vp5osZgXGFYNjMzzDK8YMnZxfKM0En2+7m8/uzN+zHRGbWTHGrpWnmyxiBcYVg2MycT9fUg5Pt4sLMQtAP7rmb8rKKiMjMmilutTTNfDkjMK4QDJv5r4xy/NJueeWEmyPI3YznE1MFRmbWTHGrpWnmKxiBcYVg2MxPMcrxapl5+A53kXA5ocYf4CqwAnGrpWnmKxmBcYVg2My/Z5Tj1XbmtLj+fFpehJ7dg+3MAnGrpWnmqxiBcYVg2My/ZVSF8WgzX3Ae7oyKa6bzmzGuz6wQt1qaZv4iIzCuEAyb+dcMrcjMmilutTTNfAkjMK4QDJv5FwytyMyaKW61NM18KaMqlEfMD07nK2PuYLm7V8yvEbU7w6yZ72OEx9IemVkzva3WRZpmvpBRjld7Mv59P7t/1x0sd/eyDweGOY/MrJnvZUQl0xKZWTN9rdZJmmbm3FRTD1Z7/7Nyz2J5sPye/dmZkxH7GS2b+R5GRC6tkZk18yZGYCZpmvkcRjk+P2Kezd45P1ie3/v8/jRGTcNmvpsRHkt7ZGbN9LVaJ2ma+VxGOX60zLy/mHnKHSx39wplgzFs5tsY4bG0R2bWTF+rdZKmmc9ilOPVdub8MHlx6+5FntBi1szfYYTH0h6ZWTN9rdZJmmY+k1EVyiPm1cpscbC8uDeJ/WIrs2b+FiMil9bIzJrpbbVJdZ1c8f/iv9mZ5Qvn0jTzGQxJP3kjM2vmWxlakZk109dq89WzyWZ1330z0cIT0zTz6QxpTzVGZtbMtzC0IjNrZrbUbfVgtUvDffHofPfGhcVVszTNfBojupnaIjNr5psYWpGZNdPXatVhAPclYfNDAksXAaRp5lMZ0p5qjMysma9nVAU62wjdaOqMzKyZvlarlpO5mQdvrO8vkKaZT2FEtFEXhs18HaMcZ7ON0I2mzsjMmulrtXlkT86FLO9Pl681T9PMJzDCu6gTw2bmvLamHmyYbWR5o6kzMrNmelutOgwwKc5ncffJNxumaebjGeFd1IlhM1/DKMf5bCO4crpC3Gq1mbNbmz7kbJr5OEZgXMv4IjNr5s2McrxhtpFp85XTki4btJniVltYZuab7nxWJZtmPpYRGBfBE5lZM3+BUY7z2Uamvgm6BF02aDPFrba8NjtlZ7vYNPNHGYFxcZoiM2vmzzGqAp1thG40dUZm1kxxqy2ZORltHu4sp2bTzB9iBMbFaIzMrJk/y9CKzKyZ4lZb2M6sDkEdvn1x092mmT/ICIxrGV9kZs38cYZWZGbNFLfagplnq/8vHYiyaeYPMALjWsYXmVkzf4ShFZlZM8WttmBm46Fhm2Z+HyMwrmV8kZk1kyevFZlZM8WttrCd6Y4PXybB2TTzMYzAuAieyMya+b0MrcjMmilutaXtzBw6SZxNM7+HERjXMr7IzJr5rQytyMyaKW61hWWmO2nDfZo98BtbdzRndu3aNQtm8r9GYFwET2SDNJP8abOm3L6ZoRVZ21sZtJniVltYZr4zc4eMc75w5cbvXWnK7Nq15dCGaiZPPLizFvFFNkQz6Z82a8rtGxhakbW9lUGbKW61uZmHOyNHNUncA3/mAsu5OnQzr17lcX07I6q9uiKzYObVpty+jqEVmQUzGyMTtxpZZlZ8bOuW6p7NZea3MaoCnaO9nJ594rnY0BeZBTOzpty+hhHYZsfqsqGY2RiZt9W6oNeaVHvNHvzAxabMrGxn8p9bjrM52t307Ecz6jXDIxuimUHbmV/BCGyzY3XZoM30tVonC2aOF/eafaJxC4AyVDNzHlVTD7I52t307PUoxRPZIM0kNLbZlzPmwZE5DQ53fN8EI+iyQZv5KEZzLgx+DlBWrGZsnctCMhuqmd/EKMfZHO1uevajUYovMrNmfgmjHGdzGnhn6JV02aDN9LVaJwvLzMvpnGnwjYxyvGGO9txW/zLTE5lZM3MeXlMP8jkNvHNnC7ps0Gb6Wo3NN0v3ZvjWZsMyG6qZX88oxxvmaM9bzL+d6YnMrJlfyijH+ZwGXjMFXTZoM7ta7Wi+WdplC2uzb2iaHsKmmV/LOOqb5Tnay+nZx759s57IzJr51YxynM9p4F2bFXTZoM1c7rZ6kM03S9fMFpaZ/5fO2uwjGI1t1IknMrNmfiWjHOdzGniXmYIuG7SZvlZj883SvRlpnjfr67BIkjtv1vuJRuc0yAeav9gwufNmfa3G5pttWWbWZzQGZzZUM7+K0dRF3XgiM2umdyvg2JGZNdPXamy+Wf92ZjM2zfTtyVDBsJm+3RnHj8ysmd5Wo/PN0r0ZaZr5cIawpZojM2um9xDAsSMza6a41dI003fEXAXDZooPm3dGZtZMcaulaab3LDMNDJspPtWsMzKzZopbLU0ztc7M9kRm1kz+99KKzKyZ4lZL08zjX83UGplZM8WXNHVGZtZMcaulaeZxrwDuiMysmY9maEVm1kxxq6Vp5vFnzWiNzKyZvFO1IjNrprjV0jRTYaaptsjMmsm7WCsys2aKWy1NM48/O2NrZGbNVJoNtCEys2aKWy1NM7+bERhXCIbN9E5rTOc08E6d5IvMrJniVkvTTP4KgXGFYNhM31cBsDkNOqZO4pGZNVPcammaefxvzmmNzKyZ2dI36NSDbE4D/zQQnsjMmilutTTNPP63zbVGZtZM31fOsTkNvFMn+SIza6a41dI0U+UbWv2RmTXT9zWtbE4DLDPniFstTTO932pOZ4Iuv4h1yi71bY/MrJm+rzZncxpgO7Oz1bpI08znM8pxNhP05b1iUpsPB4Y5j8ysmY9lVIWGOQ2wb7a11TpJ08ycm2vqQTYTdM6FXTcddDiGzXwcIyKX1sjMmnkzIzCTNM18DaMcZzNBZ4WjbjrowDwz02Y+nhEeS3tkZs30tdr8iO+0XMM4VR4MXnhimma+llGlxWeCnm4Xjy9FbTSZNfMJjPBY2iMza6av1eZb4sWWUt5j42pu+5o0zXwdYzmueiboqVtueudobI7MrJlPYYTH0h6ZWTOzpW6rB4/mm80XlG5VrZzbviZNM1/PqAp8Juj8tpwOOqLNzJr5VEZELq2RmTXT12rVhpPbUppsFvfdweCaNM18E0PaU42RmTXzaQytyMya6Wu1emfjpd3Zmfyzv5zbviZNM9/CkHWUJzKzZj6doRWZWTN9rXa04eS2lGZny4PBC09M08y3MmQd5YnMrJnPYGhFZtZMb6uVG05uS2lS7J8tjwPXpGnmbzKELdUcmVkzn8nQisysmeJWS9PM32YExhWCYTOfxdCKzKyZ4lZL08y3MQLjCsGwmc9laEVm1kxxq6Vp5rsZgXGFYNjM5zC0IjNrprjV0jTzPYzAuEIwbOZNjKqwMNuIu1BnfmpjcGRmzRS3WppmvpcRGFcIhs18IaMcX5xtxF2o4843i4nMrJniVkvTzPcxAuMKwbCZOS+tqQcXZxvJirMaMafBHHGrpWnmnzMC4wrBsJkvYZTjS7ONFOc2luebRURm1kxxq6Vp5kcYgXGFYNjMX2KU44uzjbgLddz5ZjGRmTVT3Gppmvk3jMC4QjBs5qsY5fjibCPVhTqzs1GRmTVT3Gppmvl3jMC4QjBs5isZVWFhthF3oc4kauYky2aKWy1NMz/FCIwrBMNmvoKhFZlZM8WtlqaZ/8IIjCsEw2a+nKEVmVkzxa2WppmfZgTGFYJhM1/G0IrMrJniVkvTzM8wAuMKwbCZL2ZoRWbWTHGrpWnmZxmBcYVg2MwXMbQiM2umuNXSNPNzjMC4QjBs5gsYWpGZNVPcamma+d+MwLhCMGzm8xhakZk1U9xqaZr5kGLYzIcuMrNmioGZ6sBMQWQwkwIz1YGZgshgJgVmqgMzBZHBTArMVAdmCiKDmRSYqQ7MFEQGMykwUx2YKYgMZlJgpjowUxAZzKTATHVgpiAymEmBmerATEFkMJMCM9WBmYLIYCYFZqoDMwWRwUwKzFQHZgoig5kUmKkOzBREBjMpMFMdmCmIDGZSYKY6MFMQGcykwEx1YKYgMphJgZnqwExBZDCTAjPVgZmCyGAmBWaqAzMFkcFMCsxUB2YKIoOZFJipDswURAYzKTBTHZgpiAxmUmCmOjBTEBnMpMBMdWCmIDKYSYGZ6sBMQWQwkwIz1YGZgshgJgVmqgMzBZHBTArMVAdmCiKDmRSYqQ7MFEQGMykwUx2YKYgMZlJgpjowUxAZzKTATHVgpiAymEmBmerATEFkMJMCM9WBmYLIYCYFZqoDMwWRwUwKzFQHZgoig5kUmKkOzBREBjMpMFMdmCmIDGZSYKY6MFMQGcykwEx1YKYgMphJgZnqwExBZDCTAjPVgZmCyGAmBWaqAzMFkcFMCsxUB2YKIoOZFJipDswURAYzKTBTHZgpiAxmUmCmOjBTEBnMpMBMdWCmIDKYSYGZ6sBMQWQwkwIz1YGZgshgJgVmqgMzBZHBTArMVAdmCiKDmRSYqQ7MFEQGMykwUx2YKYgMZlJgpjowUxAZzKTATHVgpiAymEnpNnOZq/5/2lISPk3pFXs3cxnhb7H6Wp9mLrPyX11ag5kws4cazIyuwUyY2UMNZkbXYCbM7KEGM6NrMBNm9lCDmdE1mAkze6jBzOgazISZPdRgZnQNZsLMHmowM7oGM2FmDzWYGV2DmTCzhxrMjK7BTJjZQw1mRtdgJszsoQYzo2swE2b2UIOZ0TWYCTN7qMHM6BrMhJk91GBmdA1mwsweajAzugYzYWYPNZgZXYOZMLOHGsyMrsFMmNlDDWZG12AmzOyhBjOjazATZvZQg5nRNZgJM3uowczoWp9mWkAvrhBW/dvqgcii0cuky0yWoagkfJr+K64C4W+xVrWeWadffVWRwcyHnHVqF5jZW+24xJoJAOgDmAnAOgIzAVhHYCYA60iomTfu3Lojy65vvfrig+9/9cXlWjGa3ZvXaal8XFRYubzf+Mz6RzW96ANv9rxi+Qzve+mftshEmbWFJk5trWJDZDWhZv7XxRu/ezH7ZHH3wQ+QN1KM5r/Hx8+zUvHYVXjZ3W98Zv2jGl70xp23+F7xk+3vpXfaIpNl1hKaOLW1ig2R1USszX78/I07f+UKz8yN3nsuu35HY2SuwsvFfe8zqx/VUPqHf3yz5xXdM1reyyrwRSbMrD00UWprFxsiq4gw8xNXvnDlev526Btxo/edzx74/cbIXIWXi/veZ1Y/ipeun8s/pppf0T2j5b2sAl9kwszaQxOltnaxIbKKcDOvnytu72tceN93XrTM9D1z/qNY6cH3b21t3eL7eCzenP+9rIC2yCSZtYYmTm2tYkNkc4LNvH5LcVu8Cf5G8hHZdmbzM49+VNOL5mOtmxTe99I/bZGJMmsLTZzaWsWGyI4INfPe/DPk3L1bv3w+yz62VWwHLJbK0Tt4yT2uKqRc3G9+5tKPYi9a7DJrfEX3jJb30jstkQkzawlNmtp6xYbIanA8E4B1BGYCsI7ATADWEZgJwDoCMwFYR1Zq5qXdVf70gYLQohlkZCs188IQE1s1CC2aQUa2GjNnt/3l6OT+dDTant1294ndcf4gczfAD0KLZsiRrcTMw53Rqdmtu/9x125+bzObbmbjTXezijczFBBaNIOObFXLzL3DPK67dot72WQ0Gp1yNyt5M0MBoUUz5MjWwsztfMjdgBYQWjRDjmwdzJyeymZn3c1K3sxQQGjRDDmy1Zg5LtYqTu6PR9vVRvnGXnkD/CC0aIYcGc40AGAdgZkArCMwE4B1BGYCsI7ATADWEZgJwDoCMwFYR2AmAOvI/wMZ/ddotd8R5gAAAABJRU5ErkJggg==" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F5TlRGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU56VXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gMjUxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjc1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 251
mtry <- as.integer(length(iVars)/1.75)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXlOVEZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TnpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDI1MVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS43NSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAyNTFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 251
mtry <- as.integer(length(iVars)/1.75)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUkpiWEIxYkhNZ1BDMGdZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITmJNVG95WFN3Z2JuUnlaV1U5Ym5SeVpXVXNJRzEwY25rOWJYUnllU3dnY0dWeWJVbHRjRU52Ym1SVWFISmxjejF3WlhKdFNXMXdRMjl1WkZSb2NtVnpMQ0J1Y0dWeWJUMXVjR1Z5YlN3Z2JXbHVjM0JzYVhROWJXbHVjM0JzYVhRc0lHMXBibUoxWTJ0bGREMXRhVzVpZFdOclpYUXBYRzVjYmlNZ2NISnBiblFnYlc5a1pXd2djSEpsWkdsamRHbHZiaUJ5WlhOMWJIUnpYRzV5WlhOMWJIUnpUM1YwU1cxd2RXeHpKRTlQUWw5U1RWTkZYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEltcHVscyRPT0JfUk1TRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
nperm <- 5
resultsOutImpuls <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSSmJYQjFiSE1nUEMwZ1kzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhOYk1Ub3lYU3dnYm5SeVpXVTliblJ5WldVc0lHMTBjbms5YlhSeWVTd2djR1Z5YlVsdGNFTnZibVJVYUhKbGN6MXdaWEp0U1cxd1EyOXVaRlJvY21WekxDQnVjR1Z5YlQxdWNHVnliU3dnYldsdWMzQnNhWFE5YldsdWMzQnNhWFFzSUcxcGJtSjFZMnRsZEQxdGFXNWlkV05yWlhRcFhHNWNiaU1nY0hKcGJuUWdiVzlrWld3Z2NISmxaR2xqZEdsdmJpQnlaWE4xYkhSelhHNXlaWE4xYkhSelQzVjBTVzF3ZFd4ekpFOVBRbDlTVFZORlhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEltcHVscyRPT0JfUk1TRVxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRJbXB1bHMgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0SW1wdWxzJE9PQl9STVNFXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutImpuls <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjUyMzg2NFxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5UlBUMEpmVFVGRlhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dEltcHVscyRPT0JfTUFFXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.6523864
resultsOutImpuls$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFbHRjSFZzY3lSUFQwSmZUVUZGWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dEltcHVscyRPT0JfTUFFXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEltcHVscyRPT0JfTUFFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutImpuls$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTEzNzcxMlxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5UlNjM0YxWVhKbFpGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.5137712
resultsOutImpuls$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFbHRjSFZzY3lSU2MzRjFZWEpsWkZ4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbnJlc3VsdHNPdXRJbXB1bHMkUnNxdWFyZWRcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuYGBgXG5gYGAifQ== -->
```r
```r
resultsOutImpuls$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODc2Nzk4M1xuIn0= -->
```
[1] 0.8767983
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwU1cxd2RXeHpJRHd0SUcxMWJIUnBYMk55WmxKbFp5aGtZWFJoU1c0OWMzUnBiVVJoZEdGT2RXMHNJR2xXWVhKelBXbFdZWEp6TENCa1ZtRnlQV1JXWVhJc0lITmxaV1J6UFhObFpXUnpMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUkpiWEIxYkhNa1QwOUNYMUpOVTBWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbnJlc3VsdHNPdXRJbXB1bHMgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEltcHVscyRPT0JfUk1TRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
resultsOutImpuls <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBTVzF3ZFd4eklEd3RJRzExYkhScFgyTnlabEpsWnloa1lYUmhTVzQ5YzNScGJVUmhkR0ZPZFcwc0lHbFdZWEp6UFdsV1lYSnpMQ0JrVm1GeVBXUldZWElzSUhObFpXUnpQWE5sWldSekxDQnVkSEpsWlQxdWRISmxaU3dnYlhSeWVUMXRkSEo1TENCd1pYSnRTVzF3UTI5dVpGUm9jbVZ6UFhCbGNtMUpiWEJEYjI1a1ZHaHlaWE1zSUc1d1pYSnRQVzV3WlhKdExDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYmx4dUl5QndjbWx1ZENCdGIyUmxiQ0J3Y21Wa2FXTjBhVzl1SUhKbGMzVnNkSE5jYm5KbGMzVnNkSE5QZFhSSmJYQjFiSE1rVDA5Q1gxSk5VMFZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutImpuls <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjU4MjUyMlxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5UlBUMEpmVFVGRlhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dEltcHVscyRPT0JfTUFFXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.6582522
resultsOutImpuls$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFbHRjSFZzY3lSUFQwSmZUVUZGWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dEltcHVscyRPT0JfTUFFXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEltcHVscyRPT0JfTUFFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutImpuls$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTI0MzE0NVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5UlNjM0YxWVhKbFpGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.5243145
resultsOutImpuls$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFbHRjSFZzY3lSU2MzRjFZWEpsWkZ4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbnJlc3VsdHNPdXRJbXB1bHMkUnNxdWFyZWRcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuYGBgXG5gYGAifQ== -->
```r
```r
resultsOutImpuls$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODc1NTY2NFxuIn0= -->
```
[1] 0.8755664
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMEZpY3lCcGJYQjFiSE1uTENBblVrMVRSU2RkSUR3dElISmxjM1ZzZEhOUGRYUkpiWEIxYkhNa1QwOUNYMUpOVTBWY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowRmljeUJwYlhCMWJITW5MQ0FuVFVGRkoxMGdQQzBnY21WemRXeDBjMDkxZEVsdGNIVnNjeVJQVDBKZlRVRkZYRzV5WlhOa1FXNXViM2xOYmtacGRFRkNXeWRCWW5NZ2FXMXdkV3h6Snl3Z0oxSnpjWFZoY21Wa0oxMGdQQzBnY21WemRXeDBjMDkxZEVsdGNIVnNjeVJTYzNGMVlYSmxaRnh1Y21WelpFRnVibTk1VFc1UVpYSnRTVzF3UVVJa1FXSnpTVzF3ZFd4eklEd3RJSEpsYzNWc2RITlBkWFJKYlhCMWJITWtZMjl1WkdsMGFXOXVZV3hmY0dWeWJXbHRjRnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEFubm95TW5GaXRBQlsnQWJzIGltcHVscycsICdSTVNFJ10gPC0gcmVzdWx0c091dEltcHVscyRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnQWJzIGltcHVscycsICdNQUUnXSA8LSByZXN1bHRzT3V0SW1wdWxzJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBpbXB1bHMnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0SW1wdWxzJFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiRBYnNJbXB1bHMgPC0gcmVzdWx0c091dEltcHVscyRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# store results
resdAnnoyMnFitAB['Abs impuls', 'RMSE'] <- resultsOutImpuls$OOB_RMSE
resdAnnoyMnFitAB['Abs impuls', 'MAE'] <- resultsOutImpuls$OOB_MAE
resdAnnoyMnFitAB['Abs impuls', 'Rsquared'] <- resultsOutImpuls$Rsquared
resdAnnoyMnPermImpAB$AbsImpuls <- resultsOutImpuls$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowRmljeUJwYlhCMWJITW5MQ0FuVWsxVFJTZGRJRHd0SUhKbGMzVnNkSE5QZFhSSmJYQjFiSE1rVDA5Q1gxSk5VMFZjYm5KbGMyUkJibTV2ZVUxdVJtbDBRVUpiSjBGaWN5QnBiWEIxYkhNbkxDQW5UVUZGSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5UlBUMEpmVFVGRlhHNXlaWE5rUVc1dWIzbE5ia1pwZEVGQ1d5ZEJZbk1nYVcxd2RXeHpKeXdnSjFKemNYVmhjbVZrSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5UlNjM0YxWVhKbFpGeHVjbVZ6WkVGdWJtOTVUVzVRWlhKdFNXMXdRVUlrUVdKelNXMXdkV3h6SUR3dElISmxjM1ZzZEhOUGRYUkpiWEIxYkhNa1kyOXVaR2wwYVc5dVlXeGZjR1Z5YldsdGNGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEFubm95TW5GaXRBQlsnQWJzIGltcHVscycsICdSTVNFJ10gPC0gcmVzdWx0c091dEltcHVscyRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnQWJzIGltcHVscycsICdNQUUnXSA8LSByZXN1bHRzT3V0SW1wdWxzJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBpbXB1bHMnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0SW1wdWxzJFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiRBYnNJbXB1bHMgPC0gcmVzdWx0c091dEltcHVscyRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBpbXB1bHMnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBpbXB1bHMnLCAnTUFFJ10gPC0gcmVzdWx0c091dEltcHVscyRPT0JfTUFFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgaW1wdWxzJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkQWJzSW1wdWxzIDwtIHJlc3VsdHNPdXRJbXB1bHMkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# store results
resdAnnoyMnFitAB['Abs impuls', 'RMSE'] <- resultsOutImpuls$OOB_RMSE
resdAnnoyMnFitAB['Abs impuls', 'MAE'] <- resultsOutImpuls$OOB_MAE
resdAnnoyMnFitAB['Abs impuls', 'Rsquared'] <- resultsOutImpuls$Rsquared
resdAnnoyMnPermImpAB$AbsImpuls <- resultsOutImpuls$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5NWpiMjVwYlhBZ1BDMGdZWEp5WVc1blpTaHlaWE4xYkhSelQzVjBTVzF3ZFd4ekpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQXNJR1JsYzJNb2NtOTNYMjUxYldKbGNpZ3BLU2xjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEVsdGNIVnNjeTVqYjI1cGJYQXBJQ3NnWjJWdmJWOWpiMndvWVdWektIZzlabUZqZEc5eUtISnZkMjVoYldWektISmxjM1ZzZEhOUGRYUkpiWEIxYkhNdVkyOXVhVzF3S1N3Z2JHVjJaV3h6UFhKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSSmJYQjFiSE11WTI5dWFXMXdLU2tzSUhrOVEyOXVaRkJsY20xSmJYQXBMQ0JtYVd4c1BXMTVZMjlzYjNWeWMxczJYU3dnZDJsa2RHZzlNQzQxS1NBcklHeGhZbk1vZUQxY0lsWmhjbWxoWW14bFhDSXNJSGs5WENKRGIyNWthWFJwYjI1aGJDQjJZWEpwWVdKc1pTQndaWEp0ZFhSaGRHbHZiaUJwYlhCdmNuUmhibU5sSUNodFpXRnVJR05vWVc1blpTQnBiaUJoYm01dmVXRnVZMlVwWENJcElDc2daMmQwYVhSc1pTaGNJa2x0Y0hWc2MybDJaVzVsYzNOY0lpa2dLeUIwYUdWdFpTaDBaWGgwSUQwZ1pXeGxiV1Z1ZEY5MFpYaDBLR1poYldsc2VTQTlJRndpYzJWeWFXWmNJaWtzSUhCaGJtVnNMbWR5YVdROVpXeGxiV1Z1ZEY5c2FXNWxLR052Ykc5eUlEMGdjbWRpS0RJek5Td2dNak0xTENBeU16VXNJREV3TUN3Z2JXRjRRMjlzYjNKV1lXeDFaU0E5SURJMU5Ta3NJR3hwYm1WM2FXUjBhQ0E5SURBdU1qVXNJR3hwYm1WMGVYQmxJRDBnTWlrcElDc2dZMjl2Y21SZlpteHBjQ2dwWEc1d1FtRnlYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRJbXB1bHMuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dEltcHVscyRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0SW1wdWxzLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0SW1wdWxzLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNl0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxJbXB1bHNpdmVuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutImpuls.conimp <- arrange(resultsOutImpuls$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutImpuls.conimp) + geom_col(aes(x=factor(rownames(resultsOutImpuls.conimp), levels=rownames(resultsOutImpuls.conimp)), y=CondPermImp), fill=mycolours[6], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\Impulsiveness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRFbHRjSFZzY3k1amIyNXBiWEFnUEMwZ1lYSnlZVzVuWlNoeVpYTjFiSFJ6VDNWMFNXMXdkV3h6SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhBc0lHUmxjMk1vY205M1gyNTFiV0psY2lncEtTbGNibHh1Y0VKaGNpQThMU0JuWjNCc2IzUW9jbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5NWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSSmJYQjFiSE11WTI5dWFXMXdLU3dnYkdWMlpXeHpQWEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJKYlhCMWJITXVZMjl1YVcxd0tTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzMlhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjWEZaaGNtbGhZbXhsWEZ3c0lIazlYRnhEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxJQ2h0WldGdUlHTm9ZVzVuWlNCcGJpQmhibTV2ZVdGdVkyVXBYRndwSUNzZ1oyZDBhWFJzWlNoY1hFbHRjSFZzYzJsMlpXNWxjM05jWENrZ0t5QjBhR1Z0WlNoMFpYaDBJRDBnWld4bGJXVnVkRjkwWlhoMEtHWmhiV2xzZVNBOUlGeGNjMlZ5YVdaY1hDa3NJSEJoYm1Wc0xtZHlhV1E5Wld4bGJXVnVkRjlzYVc1bEtHTnZiRzl5SUQwZ2NtZGlLREl6TlN3Z01qTTFMQ0F5TXpVc0lERXdNQ3dnYldGNFEyOXNiM0pXWVd4MVpTQTlJREkxTlNrc0lHeHBibVYzYVdSMGFDQTlJREF1TWpVc0lHeHBibVYwZVhCbElEMGdNaWtwSUNzZ1kyOXZjbVJmWm14cGNDZ3BYRzV3UW1GeVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRJbXB1bHMuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dEltcHVscyRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0SW1wdWxzLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0SW1wdWxzLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNl0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxJbXB1bHNpdmVuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEltcHVscy5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0SW1wdWxzJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEltcHVscy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s2XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgZ2d0aXRsZShcXEltcHVsc2l2ZW5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcbmBgYCJ9 -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutImpuls.conimp <- arrange(resultsOutImpuls$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutImpuls.conimp) + geom_col(aes(x=factor(rownames(resultsOutImpuls.conimp), levels=rownames(resultsOutImpuls.conimp)), y=CondPermImp), fill=mycolours[6], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\Impulsiveness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qSXNJbmRwWkhSb0lqbzRMQ0p6YVhwbFgySmxhR0YyYVc5eUlqb3hMQ0pqYjI1a2FYUnBiMjV6SWpwYlhYMD0gLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjIsIndpZHRoIjo4LCJzaXplX2JlaGF2aW9yIjoxLCJjb25kaXRpb25zIjpbXX0= -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFDWkNBTUFBQUN5cVFaZEFBQUJ5RkJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacEFBWnJZek16TTZBQUE2QURvNkFHWTZPZ0E2T2pvNk9wQTZaclk2a0xZNmtOdE5UVTFOVFc1TlRZNU5ibTVOYm81TmJxdE5qbzVOanF0TmpzaG1BQUJtQURwbUFHWm1PcEJtWmdCbVpyWm1rSkJta050bXR0dG10djl1VFUxdVRXNXViazF1Ym01dWJxdHVqbzV1anNodXE2dHVxOGh1cStTT1RVMk9UWTZPYmsyT2JvNk9icXVPamsyT2pvNk9qc2lPcTZ1T3E4aU9xK1NPeU1pT3lPU095UCtRT2dDUU9qcVFPbWFRWmdDUVpqcVFacENRa0RxUWtHYVFrSkNRa0xhUWtOdVF0cENRdHJhUXR2K1EyN2FRMjl1UTIvK3JiazJyYm02cmJvNnJqazJyam82cmpxdXJxMjZycTZ1cnE4aXJxK1NyeU1pcnlQK3I1TWlyNU9TcjVQKzJaZ0MyWmpxMlptYTJrRHEya0pDMnRtYTIyNUMyLzdhMi85dTIvLy9JamszSWptN0lqbzdJcTI3SXE0N0lxNnZJeUk3SXlNakl5T1RJeVAvSTVQL0kvOGpJLytUSS8vL01tZi9ia0RyYmtHYmJrSkRidG1iYjI1RGIyN2JiLzdiYi8vL2txMjdrcTQ3a3E2dmt5STdreUt2a3lNams1S3ZrNU1qay84amsvK1RrLy8veTh2TDM5L2YvdG1iL3RwRC95STcveUt2L3lNai8yNUQvMjdiLzVLdi81TWovNU9ULy83Yi8vOGovLzl2Ly8rVC8vLytzaGowR0FBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFPclVsRVFWUjRuTzJkalgvYlJobkg1WVNRRlFaV01qS1N0cFROWld3ZERqQTJWbVozWTRVVnRqcmJHTkM5Mkd5Rk5XbGhqTklhbDhIaWJneEdXcytkTWZqbC9sMmU1N21UTEZ1U0UwdXlwSk9mNzZjZnk3cVhSK2ZUcjNlbjA1TTdRekRNM0RHU0xnQ3pDTERNbUJoZ21URXh3REpqWW9CbHhzUUF5NHlKZ1JUTHJHWVlSdDQzdG5lOG9yNXNGV0lxRUJPWUZNdE1kTzZyK01ZTnlqbi9TQ1p0cEZwbXgzYjlJd2ZuV0diNmtIYVo5YlllTGhzcnZTM29QbnZIWDRKRGJ5dFg2YXd1N2FMTWFzYlNUM2Q3eHkrV0RSbldXVFZXWkE3b2JPbEVKbEdmVEdLa1hHWURTMEd0NVErM0REamtLamdvdzVoemxjNURvbmZpQ3ZTZU5EeTdWZW1kM0IrVUg4WWNyYVZkT2lsUWtsMzVtZlRQV1dSU0xqTVlneFdFRWhZZUJ1VzhRMmFyK0lTQTU0MFZNWGhCTk9DWndWakJIQkF2VDJRUytja2toODR5dzM0eFQ0TTBDR3NWUklQRVpNbE1Lb3VTcUU4bU1iU1RXY0VoTXlGYVJvRysxTDd3L0Q2MmFhSjN5cElabmNnazlpZVRFS21XMlgyVk1abHQ1UVVNdWpBRWh2UlhhR3dtR2xKbW5kV0MvTGhWVVRLVEp6S0ovRXo2NXl3eUtaWVpUYy9XakJ3OFNDNjl1MFdQbXdaT2xzR282NXZIZGlIaTV6K0cwUmRLRGtiM2IrTUl2NFh6dVJBQlQ2VEwrM1R5SDBvaVA1bmtTTEhNSnJIbi9SbnRZSmt4TWFDUHpHZ0tMZWxDTU1IUVIyYU14ckRNbUJoZ21URXh3REpqWW9CbHhzUkFpbVgyUlNZTDBMMU1zOHk4Zys5R2VRMDJObTlqTERNMkZvTXhYV1hHYUFYTGpJa0JYV1gyRnlhbFRMbUxMRE1tS3FiY3hUbklyTDl0Ymh3MHpmVzY2SDZyaXFjYmYzZ1RnekFPUTRZN3BtbXV2Ym05QnBIREhVZzJ5b1dmcGxseUZ0QkYwcFhKK09GNXUrYlhtdldmQUVsOUJQTDUvQWRGSVpvbDBCWUZDUldDSi9lcS9aYzNoZmp2OSt0anVVVC9LZEdXaW1TWjZZYm43WXBCWnUrallrZzFsc3dvQkU3dVZVWC9WOSt0aTA5K1VXK2FhMi90Ykx4YUhNbHNVOGk1MmJ0MzZkbjU3dmd4NmNway9QQzhYL09YV2Y5Nkg1UWsybWJSa3BrTWdaNFJPc3orcGIzUzhFL1hNRUdwLzhUclZtdTJiVzRxTTl5YWFZYm43WnF6ekVBL2JXdWMxU3dwbWNrUTFacGQ2ajc2cno5ZnE0T3dTcUpkdER2TjdxTUh6Z0s2U0xveUdUODhiOWY4WkRaOHVVcWkrZVFBTzhBMmlnaFB1MmRWQ0oyYzZWOGF2dnowd2JYNnRYcTcxRDF6dFNxVFFLZlpMRTZWR2FNVmM1elE2SjZHWGhFZUtFdGl6OXo0eHlQbStnMThnSVFoR0lWODdYdHdZdjRJR3JGMkVSNUlmMmxDeURNN0Q1eVd6NTltY2JpRHo2QXNzMnlnNjd3Wm94VzZ5aXdyNzVRWHhCakxqSTNGWUl4bHhzWmlNTVl5WTJNeEdOTlZab3hXNkNxenBDY2h0U0hldStWSFRESWpMdzFKRytkZDZmMlRUZC9wdWpFQnl5d2MwZDdIb01Ra00vTEpJSVk3eFltNC9sTml6SFZqSEpaWk9DSzhpU0dJU1dia2s5RjgwbnpTTExVZk83MWVCMTMxdDllcTNSOXVyOWZiWm5IY2RRTjkwUGJNeDk1Z0Q0MEljTlRiSFk5NkRIeThNMVA2ZUdSR1Bobjk3YzMyWnZjc0tLbGRiRzRjM0s2MnY3T3pYcjlhL2ZqTXVPc0dSQlNoWjIxS3YwWnV6Y0xocUxQTVAybEtuNHgycVYwRW1SVkY5OHp3dFlNOTB3VFJnYWk2dHN4a01veTRXbVdaUllPanp0SWtzNWFSajM1bGM4dExROG1zV1FTWm9jZWpVMmEyNndaR05MazFpd2hIbmFWSVpyMVR2UXRSNzlJd3RId3lObDQxemZVL1FtTUY3VllKWFJmMzFtOXNiL2EzSDNlNmJteDhDaEg0MXdCVFpjWm94YVRNQmkrQXpGckwrMG1WWjhUMDFvelJDbzlPMDZCRnFaT21lMXIrdFJQTExBdDRQd0w4TlFVNlU3RE1zc0NZekhETmZTSU56Wm1DWDUxbndkaDRhM1paamNuUzM1cGxwZjRYeEppdXI4NnpVdjhMWXN3bE0rdzQwN1RsVEF6elpwbTVtZWsxNXByUUtPZmhhVE5GK3dIR0lUTm0zcmltWjAvaThHeE9Zek9QNVZ2ZW9oVmJYTzQva3dWMHdUTFRDbGVuZVF1M3FubDdUbzhBUHN1MzNKdVFXZitweVFLNllKbHBoZmVFeHJ3NlRlL2xXMEJsZTJ2VnZZMVBIYTVCM2RNUFhvL0xFU2dTeHhnK0h0MFJTRTFvNEFhbmM4RnIrUmE1WWd1S3pla2FkTHY2dWZTdjVVZUFMQmh6ZFpxMWVVN1BlaS9mZ24zbTFlcDdZNjVCOXNwNkxMTXNHSE43YUF4ZUVMMExVUmJJZ2QveUxXZEU5OXR2Q0tkcjBFZDErQmdWMEFYTFRDdGpMcGxkRUszQzRObDV2UVZ3TGQ5eUU1ODBzV1c3Uml1ZVdhNUJ4WDl1VDNjRXlrcjlMNGd4VjZmWldOcXRwV2wrbGwrZFp3SDIwR0JpWUh4QzQ4U3VuTk5JdjRjR294V3UxdXp5SE44Q0JJRmxsZ1ZjandEUi9obEFlUGdSSUF2R1hLMFp2V2RLZjJ1V2xmcGZFR091MWt5VHNabGoxaXM4V2JtWjZUV202OWlNWmFhVk1jOEpEYjkzbXQ2T1BKdXVaR3FwQXJWTjA3OTN6QWRPMjFzempTLzYwdysvWjlQUmZ5dVRHTE85MDV5eUQ1T0RwbHhGeW83R2RWbnNyWmttRnYwSnYyZlRERCtXU1lyWjNtbDZPL0tvbFg0ZTMxNi9zVjFzcjFXSHJ4MmdINCs5VFJQS1RHM05wSElxdngvVDNBeS9aMU1xSEYzNE9Jc2owR0h2TkQzM1lmcVVWdnA1R2pxK0pxN2tjeFZsUm40OHlzL0hoSDdRM3BwSjdkZUViaG1VTnZ5ZVRkN3hUS3FZN1oybXR5T1BZNlVmUzJacXRDVzNhY0xXVEczTlpPVkV2eDk4ZTM0UWZzK21DQ29oS3dQdDlCcWI3US9vdkIxNUhDdjlkTStLdmZXYnVOd1BTTTd5OHlHWnlhMlpWRTd5KzJtalVJUHUyWlNWK2w4UVl6UCtuYWFYSTgvWGQ2eVZmcUJ4d3BWODJtWUovWGp1eVcyYTVKT20zSnBwN1JHWjh3Q2JSTEJsUGhoMHo2YXMxUCtDR0J0L2RYNHF4SFhicm1WakR3RkdiOE5mSDVxS1paWUZZNU4vY2hKNC9uODA5M1ZVbXRQL2NrN0JyODZ6d0xqTUx0RExwaFQ5TVRETExCdDRqYzBhR3J6VFpMUmlzalVUZzNLcTNweXp6REtCKzgrQkN3bVd4Z04rQk1pQ3NVa243U2hMRWduVHBtZWp1a1pXYm1aNmpVMlpOd3Z0ajRGL0d1ZEtINldIeGd5L2N5cFp1Wm5wTlRadGVqYTBQOGJ3bGZwd3B6U2VQRW9QamFQK3lNUEl5czFNcjdFanlTeW9Qd2JJRExlYTJNRzEvamQrYnhhYjBHaEY2YUhoRWM3SFZCNlBJclBBL2hpeU5XdVdCQ1c5VnU5Zmo5WkR3enVLU1IrSHlpeU1Qd1lPenpZaENXN1M5TXFOOTg1K0ZMR0hSdFNWd2N5TGFUSUw3WStCblNhb2J4UDEwM3owSnU2a0daV0hCc3RNSzZaNmFJVDB4d0N3bGNPeEdhanZFdlMvbGkzMjBGZ3dZMEVYYkovWkg4TU5lMmdzanJHQU1wdmRIOE5OS0ErTnJOVC9naGpqN1NmWVdBekdkSlVab3hVc015WUdXR1pNRE9ncE01NHkwd3hkWlphVnNmR0NHRHU2ekNKWXA2VnBGdkhWcUZ3K215WXpBam9Dc2N3ME16WkRheGJhTDZoN0J0OXZ2cTlNeVkyYWdqa0NzY3cwTXhaRVprSDlncHIwMm5ONzQwQjZhQXpKOFNlUUl4QXQwQktkbzhyZGlPelE4VTZVRGpSM28zVEl1Uk5kdVlTNEU1a2owQVNoL1lKdVYwWDM3UDhPMnZReWxEWnFlbDBFY3dUaVJ3RE5tRlZtWWZ5Q3FEV0RpTnRWdFZFVE92NEVjZ1JpbVduR0RESUw3UmNreDJaaStFcGRidFJFamorQkhJRllacG94eTRSR1NMK2c5Zm9lZEtSTmFRTjRab2NjZjRJNUFqRmFFZEc4V1FSK1FUN3dxL01zR0l0R1psSDRCZm5BTXN1Q01UM2ZBbVNuL2hmRUdNdU1qY1ZnTFAweVk3SUEzY3NVeTh5SDlENkFjc2w4WVpsRkI1Zk1GLzFreG1nSXk0eUpBWllaRXdNc015WUd0SklaK2VEYWh6U2hpdFEyNS9aT0pDRFdXNXFFNjB3bm1Tay9EM1ZJRTFhUjNrKzZJRzdrb2psSjE1bE9NbE5lYTVieldvcFFSU0wvNEpTaDFtWkt1TTUwa2huNTROcUhOS0dLUlA3QlNaZGxBaW16cE90TUo1bWx2alVUZEQvVEJiZG1zNUwrc1ptNnFXbUN4Mll6UXo2NEpUcWtERm15NWxIVzA0b1pYTG93K1RyVFNtYU1yckRNbUJoZ21URXh3REpqWW9CbHhzUUF5NHlKZ2F6SnJHRVkrVnVWaWNEQnVVcnZPQVdxd3hoZVlYWmc1LzU5dnlTSDQ4NFcwQkNWNUN1SEp6azJiYnZLRU5kR2ZoTW1kOFprVmx2ZUY0M2NaSVhVWkloTGZtT3hudlMybHZjUFNUS0JmUkdmcXgwcHJ3ZFM3MU1abE9lNXVYTW9sV1pMWnAzN3NDcGFrOXNjUTJ1R0I1Ly9qeXJXeHlMZDNhbEp4ckV2RXVCLy81UXNnMmVQb0tENWJyN2JPM21vMEgzSmxzd2F5Nm9tc08rRVd2K3RBUUV0dzhoaHB3bkhBdjZYZE1UMXRveWxYZExRb0d5c1FHdndMZ2IwVHB6UHZYUzhRcEdkKzU4elZraG1OWU9NWTBiSVQ2ZVk4R2YzdjJNc2YyQXNmN2kxdEF1TkhsMEVNM3BjVFZDVDBGRVo5aTFMS3NYNTNFK3N2Q3A1QTdlZVY1ZHRyYURrVlU1NWNVZEsrc1hXbVNOQ2JsOWZzNjg5S3Njb2pYMHhJeTkvOGFwVkM1T0ZxQVhmcFR5Yk1vTTJxTFA2TUNnSGIrdXhYV2prUUFGL1I2M2tLczY0Umg0RUpKc3FiQWsrbzRDTFpianRrSkFpTzZ1RlFia0FYMW9RbHBkeUZCQ0lwMStGaEhBT2QyY0ZSMzhuVUxCNEVjcm9jVFdCdmU5Rks4TkZaY2xLa1JkVzNvc3lPU2lybGxlWGhYQXh1aFFGT2xJS2ttRU5ZOVdQVWhHTmxWSEo1YlZWOGxFYUZVYWxLTUEvN0xwOUN0SElCNzR4MlpRWlZnalVPdDE0dkVHa0paU1RQTGZqOE5ZVlZJOElGWGw1bndKUWNWWWtkcG9rRy9qZkRySlFIVk1qVDZmNFhSb0NLYW92cW1rc2VGMU5Qb3c0TXBBbEs0V3c4OG9rMUhoWWw4VlVkazRaT0VvcFZFdmorRkh5YTJ2RlVYTDcydmhyUjJuc1dzSWFnQXJzbmZJckJNdE1JY2RtblJjYlZDaytNblBFdGVBL3VDV3p6ckhmdlNnb1FOMXkrajZTbWVveExIR28yK29sTTl2cXhOV0V0OHlzRk1MTzY3ekQ2ckxqTXNOQVIwb3hKak5IQkxXOWxnbW56QnhwVkMydHFCYXpjTXUzRUN3ekMzelNoS0VxeU0ydXdCYU12c3BMVjJ5Wk9lTnFxa2UwODFLQXV1WDBIV1FHWFFjMURBTC9uOU1EbCt4TWVxY21aZGJid3VzSTIrckUxY1NFektRbE80VWNBUlpzeGJhd1piRXVpMk16T3ljRk9sSmlQQ1oyL0NobElpK3prZ2xuT1J4cDVLY3NCU1EySExVd1VRZ2VtOW5VY014THpYd0J2cTgwb05ZZ3lDaklMM1J3eEgxZzVMNjBkRjROb2pzUFlTMUR3RGNva1l5OFVzYlVNamRORjhBdzJjRHBqWm9hVzRNaE9MeEQzM0pmeGllRkFoblpkVjl0SDh1MS9KeVY0VU5sU2FXZ2tYMUJGVUFWUEZjUjZyTDRwT204RkQ1ampGTFNEODlWSEQ5S1J2eHRGUjh2bEFsNWJabmNrVm1GVVNtRTFKSjNJZmhKTTBhaW16U1l6ZEwwcVZjZlBnTVZYNTVKSElQbi9aTFBNS25qaG1VMkkwbko3Q2h2QVNaQlpmUXV6SlRGTmVkb3cyOEJZZ1FHMWN2Qis0NzVXUEtuSlljUVI2WkdqNlJ6Z0dYR3hBRExqSWtCbGhrVEF5d3pKZ1pZWmt3TS9CK2Z1MndCQ243NEx3QUFBQUJKUlU1RXJrSmdnZz09XCIgLz5cblxuPCEtLSBybmItcGxvdC1lbmQgLS0+XG4ifQ== -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAACZCAMAAACyqQZdAAAByFBMVEUAAAAAADoAAGYAOpAAZpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshmAABmADpmAGZmOpBmZgBmZrZmkJBmkNtmtttmtv9uTU1uTW5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZjqQZpCQkDqQkGaQkJCQkLaQkNuQtpCQtraQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyMjIyOTIyP/I5P/I/8jI/+TI///Mmf/bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/tmb/tpD/yI7/yKv/yMj/25D/27b/5Kv/5Mj/5OT//7b//8j//9v//+T///+shj0GAAAACXBIWXMAAAuwAAALsAEaOBByAAAOrUlEQVR4nO2djX/bRhnH5YSQFQZWMjKStpTNZWwdDjA2VmZ3Y4UVtjrbGNC92GyFNWlhjNIal8HibgxGWs+dMfjl/l2e57mTLFuSE0uypJOf76cfy7qXR+fTr3en05M7QzDM3DGSLgCzCLDMmBhgmTExwDJjYoBlxsQAy4yJgRTLrGYYRt43tne8or5sFWIqEBOYFMtMdO6r+MYNyjn/SCZtpFpmx3b9IwfnWGb6kHaZ9bYeLhsrvS3oPnvHX4JDbytX6awu7aLMasbST3d7xy+WDRnWWTVWZA7obOlEJlGfTGKkXGYDS0Gt5Q+3DDjkKjgow5hzlc5DonfiCvSeNDy7Vemd3B+UH8YcraVdOilQkl35mfTPWWRSLjMYgxWEEhYeBuW8Q2ar+ISA540VMXhBNOCZwVjBHBAvT2QS+ckkh84yw34xT4M0CGsVRIPEZMlMKouSqE8mMbSTWcEhMyFaRoG+1L7w/D62aaJ3ypIZncgk9ieTEKmW2X2VMZlt5QUMujAEhvRXaGwmGlJmndWC/LhVUTKTJzKJ/Ez65ywyKZYZTc/WjBw8SC69u0WPmwZOlsGo65vHdiHi5z+G0RdKDkb3b+MIv4XzuRABT6TL+3TyH0oiP5nkSLHMJrHn/RntYJkxMaCPzGgKLelCMMHQR2aMxrDMmBhgmTExwDJjYoBlxsRAimX2RSYL0L1Ms8y8g+9GeQ02Nm9jLDM2FoMxXWXGaAXLjIkBXWX2FyalTLmLLDMmKqbcxTnIrL9tbhw0zfW66H6riqcbf3gTgzAOQ4Y7pmmuvbm9BpHDHUg2yoWfpllyFtBF0pXJ+OF5u+bXmvWfAEl9BPL5/AdFIZol0BYFCRWCJ/eq/Zc3hfjv9+tjuUT/KdGWimSZ6Ybn7YpBZu+jYkg1lswoBE7uVUX/V9+ti09+UW+aa2/tbLxaHMlsU8i52bt36dn57vgx6cpk/PC8X/OXWf96H5Qk2mbRkpkMgZ4ROsz+pb3S8E/XMEGp/8TrVmu2bW4qM9yaaYbn7ZqzzEA/bWuc1SwpmckQ1Zpd6j76rz9fq4OwSqJdtDvN7qMHzgK6SLoyGT88b9f8ZDZ8uUqi+eQAO8A2ighPu2dVCJ2c6V8avvz0wbX6tXq71D1ztSqTQKfZLE6VGaMVc5zQ6J6GXhEeKEtiz9z4xyPm+g18gIQhGIV87XtwYv4IGrF2ER5If2lCyDM7D5yWz59mcbiDz6Ass2yg67wZoxW6yiwr75QXxBjLjI3FYIxlxsZiMMYyY2MxGNNVZoxW6CqzpCchtSHeu+VHTDIjLw1JG+dd6f2TTd/pujEByywc0d7HoMQkM/LJIIY7xYm4/lNizHVjHJZZOCK8iSGISWbkk9F80nzSLLUfO71eB131t9eq3R9ur9fbZnHcdQN90PbMx95gD40IcNTbHY96DHy8M1P6eGRGPhn97c32ZvcsKKldbG4c3K62v7OzXr9a/fjMuOsGRBShZ21Kv0ZuzcLhqLPMP2lKn4x2qV0EmRVF98zwtYM90wTRgai6tsxkMoy4WmWZRYOjztIks5aRj35lc8tLQ8msWQSZocejU2a26wZGNLk1iwhHnaVIZr1TvQtR79IwtHwyNl41zfU/QmMF7VYJXRf31m9sb/a3H3e6bmx8ChH41wBTZcZoxaTMBi+AzFrL+0mVZ8T01ozRCo9O06BFqZOme1r+tRPLLAt4PwL8NQU6U7DMssCYzHDNfSINzZmCX51nwdh4a3ZZjcnS35plpf4XxJiur86zUv8LYswlM+w407TlTAzzZpm5mek15prQKOfhaTNF+wHGITNm3rimZ0/i8GxOYzOP5VveohVbXO4/kwV0wTLTCleneQu3qnl7To8APsu33JuQWf+pyQK6YJlphfeExrw6Te/lW0Ble2vVvY1PHa5B3dMPXo/LESgSxxg+Ht0RSE1o4Aanc8Fr+Ra5YguKzekadLv6ufSv5UeALBhzdZq1eU7Pei/fgn3m1ep7Y65B9sp6LLMsGHN7aAxeEL0LURbIgd/yLWdE99tvCKdr0Ed1+BgV0AXLTCtjLpldEK3C4Nl5vQVwLd9yE580sWW7RiueWa5BxX9uT3cEykr9L4gxV6fZWNqtpWl+ll+dZwH20GBiYHxC48SunNNIv4cGoxWu1uzyHN8CBIFllgVcjwDR/hlAePgRIAvGXK0ZvWdKf2uWlfpfEGOu1kyTsZlj1is8WbmZ6TWm69iMZaaVMc8JDb93mt6OPJuuZGqpArVN0793zAdO21szjS/60w+/Z9PRfyuTGLO905yyD5ODplxFyo7GdVnsrZkmFv0Jv2fTDD+WSYrZ3ml6O/KolX4e316/sV1sr1WHrx2gH4+9TRPKTG3NpHIqvx/T3Ay/Z1MqHF34OIsj0GHvND33YfqUVvp5Gjq+Jq7kcxVlRn48ys/HhH7Q3ppJ7deEbhmUNvyeTd7xTKqY7Z2mtyOPY6UfS2ZqtCW3acLWTG3NZOVEvx98e34Qfs+mCCohKwPt9Bqb7Q/ovB15HCv9dM+KvfWbuNwPSM7y8yGZya2ZVE7y+2mjUIPu2ZSV+l8QYzP+naaXI8/Xd6yVfqBxwpV82mYJ/XjuyW2a5JOm3Jpp7RGZ8wCbRLBlPhh0z6as1P+CGBt/dX4qxHXbrmVjDwFGb8NfH5qKZZYFY5N/chJ4/n8093VUmtP/ck7Br86zwLjMLtDLphT9MTDLLBt4jc0aGrzTZLRisjUTg3Kq3pyzzDKB+8+BCwmWxgN+BMiCsUkn7ShLEgnTpmejukZWbmZ6jU2ZNwvtj4F/GudKH6WHxgy/cypZuZnpNTZteja0P8bwlfpwpzSePEoPjaP+yMPIys1Mr7EjySyoPwbIDLea2MG1/jd+bxab0GhF6aHhEc7HVB6PIrPA/hiyNWuWBCW9Vu9fj9ZDwzuKSR+HyiyMPwYOzzYhCW7S9MqN985+FLGHRtSVwcyLaTIL7Y+BnSaobxP103z0Ju6kGZWHBstMK6Z6aIT0xwCwlcOxGajvEvS/li320FgwY0EXbJ/ZH8MNe2gsjrGAMpvdH8NNKA+NrNT/ghjj7SfYWAzGdJUZoxUsMyYGWGZMDOgpM54y0wxdZZaVsfGCGDu6zCJYp6VpFvHVqFw+myYzAjoCscw0MzZDaxbaL6h7Bt9vvq9MyY2agjkCscw0MxZEZkH9gpr02nN740B6aAzJ8SeQIxAt0BKdo8rdiOzQ8U6UDjR3o3TIuRNduYS4E5kj0ASh/YJuV0X37P8O2vQylDZqel0EcwTiRwDNmFVmYfyCqDWDiNtVtVETOv4EcgRimWnGDDIL7Rckx2Zi+EpdbtREjj+BHIFYZpoxy4RGSL+g9foedKRNaQN4Zoccf4I5AjFaEdG8WQR+QT7wq/MsGItGZlH4BfnAMsuCMT3fAmSn/hfEGMuMjcVgLP0yY7IA3csUy8yH9D6Acsl8YZlFB5fMF/1kxmgIy4yJAZYZEwMsMyYGtJIZ+eDahzShitQ25/ZOJCDWW5qE60wnmSk/D3VIE1aR3k+6IG7kojlJ15lOMlNea5bzWopQRSL/4JSh1mZKuM50khn54NqHNKGKRP7BSZdlAimzpOtMJ5mlvjUTdD/TBbdms5L+sZm6qWmCx2YzQz64JTqkDFmy5lHW04oZXLow+TrTSmaMrrDMmBhgmTExwDJjYoBlxsQAy4yJgazJrGEY+VuVicDBuUrvOAWqwxheYXZg5/59vySH484W0BCV5CuHJzk2bbvKENdGfhMmd8ZkVlveF43cZIXUZIhLfmOxnvS2lvcPSTKBfRGfqx0prwdS71MZlOe5uXMolWZLZp37sCpak9scQ2uGB5//jyrWxyLd3alJxrEvEuB//5Qsg2ePoKD5br7bO3mo0H3Jlsway6omsO+EWv+tAQEtw8hhpwnHAv6XdMT1toylXdLQoGysQGvwLgb0TpzPvXS8QpGd+58zVkhmNYOMY0bIT6eY8Gf3v2Msf2Asf7i1tAuNHl0EM3pcTVCT0FEZ9i1LKsX53E+svCp5A7eeV5dtraDkVU55cUdK+sXWmSNCbl9fs689KscojX0xIy9/8apVC5OFqAXfpTybMoM2qLP6MCgHb+uxXWjkQAF/R63kKs64Rh4EJJsqbAk+o4CLZbjtkJAiO6uFQbkAX1oQlpdyFBCIp1+FhHAOd2cFR38nULB4EcrocTWBve9FK8NFZclKkRdW3osyOSirlleXhXAxuhQFOlIKkmENY9WPUhGNlVHJ5bVV8lEaFUalKMA/7Lp9CtHIB74x2ZQZVgjUOt14vEGkJZSTPLfj8NYVVI8IFXl5nwJQcVYkdpokG/jfDrJQHVMjT6f4XRoCKaovqmkseF1NPow4MpAlK4Ww88ok1HhYl8VUdk4ZOEopVEvj+FHya2vFUXL72vhrR2nsWsIagArsnfIrBMtMIcdmnRcbVCk+MnPEteA/uCWzzrHfvSgoQN1y+j6SmeoxLHGo2+olM9vqxNWEt8ysFMLO67zD6rLjMsNAR0oxJjNHBLW9lgmnzBxpVC2tqBazcMu3ECwzC3zShKEqyM2uwBaMvspLV2yZOeNqqke081KAuuX0HWQGXQc1DAL/n9MDl+xMeqcmZdbbwusI2+rE1cSEzKQlO4UcARZsxbawZbEui2MzOycFOlJiPCZ2/ChlIi+zkglnORxp5KcsBSQ2HLUwUQgem9nUcMxLzXwBvq80oNYgyCjIL3RwxH1g5L60dF4NojsPYS1DwDcokYy8UsbUMjdNF8Aw2cDpjZoaW4MhOLxD33JfxieFAhnZdV9tH8u1/JyV4UNlSaWgkX1BFUAVPFcR6rL4pOm8FD5jjFLSD89VHD9KRvxtFR8vlAl5bZnckVmFUSmE1JJ3IfhJM0aimzSYzdL0qVcfPgMVX55JHIPn/ZLPMKnjhmU2I0nJ7ChvASZBZfQuzJTFNedow28BYgQG1cvB+475WPKnJYcQR6ZGj6RzgGXGxADLjIkBlhkTAywzJgZYZkwM/B+fu2wBCn74LwAAAABJRU5ErkJggg==" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrbHRjSFZzYzBOdmJsQmxjbTFwYlhBdWMzWm5YQ0lzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB5TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luTjJaMXdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1FXNXViM2xOYmtsdGNIVnNjME52YmxCbGNtMXBiWEF1YzNablhDSXBYRzRnSUZ4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhDSlFkSE5CUW1SQmJtNXZlVTF1U1cxd2RXeHpRMjl1VUdWeWJXbHRjQzV3WkdaY0lpd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUSXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpY0dSbVhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJCYm01dmVVMXVTVzF3ZFd4elEyOXVVR1Z5YldsdGNDNXdaR1pjSWlsY2JuMWNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5JbXB1bHNDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5JbXB1bHNDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkltcHVsc0NvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkltcHVsc0NvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnImpulsConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnImpulsConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnImpulsConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnImpulsConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtsdGNIVnNjME52YmxCbGNtMXBiWEF1YzNablhGd3NJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHlMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhOMloxeGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprUVc1dWIzbE5ia2x0Y0hWc2MwTnZibEJsY20xcGJYQXVjM1puWEZ3cFhHNGdJRnh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WEZ4UWRITkJRbVJCYm01dmVVMXVTVzF3ZFd4elEyOXVVR1Z5YldsdGNDNXdaR1pjWEN3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRJc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjR1JtWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUkJibTV2ZVUxdVNXMXdkV3h6UTI5dVVHVnliV2x0Y0M1d1pHWmNYQ2xjYm4xY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uSW1wdWxzQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uSW1wdWxzQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5JbXB1bHNDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5JbXB1bHNDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkltcHVsc0NvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkltcHVsc0NvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uSW1wdWxzQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uSW1wdWxzQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnImpulsConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnImpulsConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnImpulsConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnImpulsConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwYlhCMWJITldZWElnUEMwZ1hDSlZRVk5KYlhCMWJITlRTRTFCZG1kTllYaE1VbHdpWEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbmltcHVsc1ZhciA8LSBcXFVBU0ltcHVsc1NITUF2Z01heExSXFxcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
impulsVar <- \UASImpulsSHMAvgMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBiWEIxYkhOV1lYSWdQQzBnWEZ4VlFWTkpiWEIxYkhOVFNFMUJkbWROWVhoTVVseGNYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG5pbXB1bHNWYXIgPC0gXFxVQVNJbXB1bHNTSE1BdmdNYXhMUlxcXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pbXB1bHNWYXIgPC0gXFxVQVNJbXB1bHNTSE1BdmdNYXhMUlxcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
impulsVar <- \UASImpulsSHMAvgMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### SQM and loudness comparison
Now the highest importance SQMs are ranked against each other, controlling for UAS loudness and ambient LAeq.
##### Include tonal loudness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dGaWMxWmhjaXdnWlhabGJuUldZWElzSUdGdFlsWmhjaXdnYzJoaGNuQldZWElzSUhSdmJreGtWbUZ5TENCbWJIVmpkRlpoY2l3Z2NtOTFaMmhXWVhJc0lHbHRjSFZzYzFaaGNpbGNibVJXWVhJZ1BDMGdYQ0prUVc1dWIzbE5aV0Z1WENKY2JseHVjMlZsWkhNZ1BDMGdZeWczTURRNU9Dd2dOQ3dnTVRRNU9EWXNJRFExTXl3Z09EWTBLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmlWYXJzIDwtIGMoYWJzVmFyLCBldmVudFZhciwgYW1iVmFyLCBzaGFycFZhciwgdG9uTGRWYXIsIGZsdWN0VmFyLCByb3VnaFZhciwgaW1wdWxzVmFyKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDcwNDk4LCA0LCAxNDk4NiwgNDUzLCA4NjQpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
iVars <- c(absVar, eventVar, ambVar, sharpVar, tonLdVar, fluctVar, roughVar, impulsVar)
dVar <- \dAnnoyMean\
seeds <- c(70498, 4, 14986, 453, 864)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR0ZpYzFaaGNpd2daWFpsYm5SV1lYSXNJR0Z0WWxaaGNpd2djMmhoY25CV1lYSXNJSFJ2Ymt4a1ZtRnlMQ0JtYkhWamRGWmhjaXdnY205MVoyaFdZWElzSUdsdGNIVnNjMVpoY2lsY2JtUldZWElnUEMwZ1hGeGtRVzV1YjNsTlpXRnVYRnhjYmx4dWMyVmxaSE1nUEMwZ1l5ZzNNRFE1T0N3Z05Dd2dNVFE1T0RZc0lEUTFNeXdnT0RZMEtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmlWYXJzIDwtIGMoYWJzVmFyLCBldmVudFZhciwgYW1iVmFyLCBzaGFycFZhciwgdG9uTGRWYXIsIGZsdWN0VmFyLCByb3VnaFZhciwgaW1wdWxzVmFyKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDcwNDk4LCA0LCAxNDk4NiwgNDUzLCA4NjQpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgc2hhcnBWYXIsIHRvbkxkVmFyLCBmbHVjdFZhciwgcm91Z2hWYXIsIGltcHVsc1ZhcilcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYyg3MDQ5OCwgNCwgMTQ5ODYsIDQ1MywgODY0KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
iVars <- c(absVar, eventVar, ambVar, sharpVar, tonLdVar, fluctVar, roughVar, impulsVar)
dVar <- \dAnnoyMean\
seeds <- c(70498, 4, 14986, 453, 864)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbnAgPC0gbXRyeVR1bmUoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkPXNlZWRzWzE6Ml0sXG4gICAgICAgICAgICAgbnRyZWVzPW50cmVlcywgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuYGBgXG5gYGAifQ== -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldYWTRPRFV2T0dVNGVHTldPV3M0ZEU1Sk5VVXZWMGQ0Wml0dlZucHFlbko2VTFnM1NqbDFWelV4WldSNWIwTnlaVEl4T1daNWJucHlSSFl5Y25vck4zVmxNRTlQVjNZdlpYWk1aREF5YzNVM1lrSXZkbU5vYkRWb1ZDOVNNMEl4YWpsMmJDc3dNa1ZYZFhkbVRtbDRXa2RHYzNoM0x6Vm9halpFZEd0cEx5ODNVaTg0YVVwbGNWVndaMEZXVFUxTVZXZGtNa3haVVVkMVdWVk9jSFE0UWpWR2QyZHpVRGhFY0ZnNVFUWlRPRTFWU1VScFNXUmhPSGhPZWxWWmFVSkVRVWQzVVZKS1FXeDVSR1paUm1OeWJVTkRiM1ZNUlRCelUyc3lRamh3YkRsSVYwWlRURXhyYkZKYVZsRk9iR1J0VjBkS1VtTlVlRmxDVGxWSGVuRk1PR05xTWxsTVUwTnVUWHBXUVROWlNIVnNUMU5qZUVkTFdWVXlRME5ZUTIxS1NsbHNObUZWVmtFdlZVUmxVSHBSZERkUWEwWktXbTQxWlZWQ1RsUkxRa2xCVjNOQlV6Qk5kM05yUjAxU1pFRlJXVzVVVVdkSlZVVnNRemhCTlhsT2NrVkRhazVCTjJzMlVsUmpOVzk2VVhaWE9XWkRRVVV5WlhWVFFYWklZMnNyUW5GcWRrZExSMUpCYlU5NlVYQjZUVGxDSzNGdVVrMVhaVXR1U2tkbWJGRk9iSFJ4V0c1d2JWaHBiM04zVGtsNU1DOVlTMDB4VGt0TmJVSm9RVUpNU1ZOTk1VMTZlV2xDUWxaV1QxbHNTbkZFYzNkb1MyRnNiRlZEV1daTlMzcENVV0V4V0ZWS1UxcENNVkJPUWxKUmRERnBka3BNTUcxRllXVkdTM3B6SzBKcFdVSkViR1ZGWmtGR1RXWlRUbWRHUVhkQlFTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNzMyMDU1NVxcLFxcMlxcOlxcMC44NTEwNTg4XFwsXFwzXFw6XFwwLjYxMDI0NDVcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42NjMxMDU0XFwsXFwyXFw6XFwwLjg3MzQ0NjZcXCxcXDNcXDpcXDAuNTQ2OTUzNVxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjY2NTMyNDdcXCxcXDJcXDpcXDAuODYxODAwMVxcLFxcM1xcOlxcMC41NDgzNDgxXFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjQ3Mjk2NlxcLFxcMlxcOlxcMC44NjM1NTgxXFwsXFwzXFw6XFwwLjUzMDMxODhcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls0XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG5cbjwhLS0gcm5iLWZyYW1lLWJlZ2luIGV5SnRaWFJoWkdGMFlTSTZleUpqYkdGemMyVnpJanBiSW1SaGRHRXVabkpoYldVaVhTd2libkp2ZHlJNk5Dd2libU52YkNJNk5Td2ljM1Z0YldGeWVTSTZleUpFWlhOamNtbHdkR2x2YmlJNld5SmtaaUJiTkNERGx5QTFYU0pkZlgwc0luSmtaaUk2SWtnMGMwbEJRVUZCUVVGQlFVSm5kSGxwVkVSdGFYVkNhVmxIUW1kYWJVSm9XVmRLWjFwblZYbEhWbWhFVVRsNE1FeFNaMWxuUVVsTlJFbDNUVXhCZVdOSlRHOURjVVZuV1VwQmRrVm1SVVJOV1hZdlkwNXVTbXg2WVZsTkt6WmtVbkozV0cxMWRESXlaak5MTDNsTE5HZDJUV1lyVTJObGMyTXplVXAxYmtJeGNqWjJSblFyTWxWNlRFWXZMMWRSUTFVNWVqWXpMMkYyU0RkRVMwWnZkbVZ6YmprNWQwMXdkek14VVZoMVRISklXVko1TjNvMllsVXlSRGxqV2xJMVlYSkhjR2N2T1VSSFpEQlpUMjAwWWpsbmQzVnphVzVoVTFvMFFuRmxSVWh4ZDBzMlJqQkRRek56VFVnd1R6UkRZME4zVkRKbU5rUXdSSGxxT1doUlJVdFZSSHBGYlhCbFdXMHhiMDFhUVdsQlJGbEpTWE5uVkRWQ2NuUkRNbEo0UW5oWlYyeHBWVmR3UzFaQkszTTJPR3BVU1c5c2REWlRiMFZ6Y20xNVozaE1URU54VDBJMGRXY3ljMEphYkVZcmRVSTNUVVkxU0ZOdFFuRm5OekJLTWxOdVNrNVpSRWhOUzFSS1FYSktZa1ZyVlZNcmRFTkxaMlo1VUhWSWNHOVZPWFkyUVd0TmVqaFFjVWxyU2taRGJHZEVWMEp3UTBWWk1tbE1SVWxIYTB0TlJHaHhkMnRKUkhsQ1pVSTRXa0V3UTNCWWEyZFdObVp2U20xbFZUVnRXSEpYYUdsbmVWUk5XRFZMVldveVkyTkJPVkl3YWs1R1NtZGlSbUZKYXpWdUsxRTNWbnAzWjBsMlRsUnJha2c0Y0cxVE9ERk1lamg0VEdoUlZsbFhiV0UyV0c1c2JWTnJhMGRNUVhoQlFXaHRjRzFsYTFwS1lrTm5lV3RzVFZOek1rSlBVMUZzZEZGNlN6VkJUMGRPVkdsdk9WRnhTMDEyVG1keGNtMUJiM05XTmtwbWEyeHBWRUYwV0UxdU5VOVVRVkpqUzJkNUwwRk5RV2xRVUVsYVoxVkVRVUZCUFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC43MjYyMzkwXFwsXFwyXFw6XFwwLjg1ODc3NjBcXCxcXDNcXDpcXDAuNjA0MjUyMlxcLFxcNFxcOlxcM1xcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY2NzM0ODRcXCxcXDJcXDpcXDAuODcxNjUwN1xcLFxcM1xcOlxcMC41NTIwMjgzXFwsXFw0XFw6XFw0XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjUyMjc2MlxcLFxcMlxcOlxcMC44NzEwOTYyXFwsXFwzXFw6XFwwLjUzODYxMTJcXCxcXDRcXDpcXDVcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NDE2NzU0XFwsXFwyXFw6XFwwLjg2NzIxNTJcXCxcXDNcXDpcXDAuNTI1MzkzMVxcLFxcNFxcOlxcNlxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzRdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWXY4ODUvOGU4eGNWOWs4dE5JNUUvV0d4ZitvVnpqenJ6U1g3Sjl1VzUxZWR5b0NyZTIxOWZ5bnpyRHYycnorN3VlME9PV3YvZXZMZDAyc3U3YkIvdmNobDVoVC9SM0Ixajl2bCswMkVXdXdmTml4WkdGc3h3LzVoajZEdGtpLy83Ui84aUplcVVwZ0FWTU1MVWdkMkxZUUd1WVVOcHQ4QjVGd2dzUDhEcFg5QTZTOE1VSURpSWRhOHhOelVZaUJEQUd3UVJKQWx5RGZZRmNybUNDb3VMRTBzU2syQjhwbDlIV0ZTTExrbFJaVlFObGRtV0dKUmNUeFlCTlVHenFMOGNqMllMU0NuTXpWQTNZSHVsT1NjeEdLWVUyQ0NYQ21KSllsNmFVVkEvVURlUHpRdDdQa0ZKWm41ZVVCTlRLQklBV3NBUzBNd3NrR01SZEFRWW5UUWdJVUVsQzhBNXlOckVDak5BN2s2UlRjNW96UXZXOWZDQUUyZXVTQXZIY2srQnFqdkdLR1JBbU96UXB6TTlCK3FuUk1XZUtuSkdmbFFObHRxWG5wbVhpb3N3Tkl5MC9YS00xTktNbUJoQUJMSVNNMU16eWlCQlZWT1lsSnFEc3doS2FsbFVDWWZNS3pCUWExWFVKU1pCMVBOQlJRdDFpdkpMMG1FYWVGS3pzK0JpWUJEbGVFZkFGTWZTTmdGQXdBQSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7320555\,\2\:\0.8510588\,\3\:\0.6102445\,\4\:\3\,\5\:\2.25\},{\1\:\0.6631054\,\2\:\0.8734466\,\3\:\0.5469535\,\4\:\4\,\5\:\1.75\},{\1\:\0.6653247\,\2\:\0.8618001\,\3\:\0.5483481\,\4\:\5\,\5\:\1.50\},{\1\:\0.6472966\,\2\:\0.8635581\,\3\:\0.5303188\,\4\:\6\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[4]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWXYvY05uSmx6YVlNKzZkUnJ3WG11dDIyZjNLL3lLNGd2TWYrU2Nlc2MzeUp1bkIxcjZ2RnQrMlV6TEYvL1dRQ1U5ejYzL2F2SDdES0ZvdmVzbjk5d01wdzMxUVh1THJIWVJ5N3o2YlUyRDljWlI1YXJHcGcvOURHZDBZT200Yjlnd3VzaW5hU1o0QnFlRUhxd0s2RjBDQzNzTUgwTzRDY0N3VDJmNkQwRHlqOWhRRUtVRHpFbXBlWW0xb01aQWlBRFlJSXNnVDVCcnRDMlJ4QnhZV2xpVVdwS1ZBK3M2OGpUSW9sdDZTb0Vzcm15Z3hMTENxT0I0dWcyc0JabEYrdUI3TUY1SFNtQnFnNzBKMlNuSk5ZREhNS1RKQXJKYkVrVVMrdENLZ2Z5UHVIcG9VOXY2QWtNejhQcUlrSkZDbGdEV0JwQ0VZMmlMRUlHa0tNRGhxd2tJRHlCZUI4WkEwQ3BYa2dWNmZvSm1lVTVtWHJXaGlneVRNWDVLVWoyY2NBOVIwak5GSmdiRmFJazVuK1E3Vnp3Z0l2TlRrakg4cG1TODFMejh4TGhRVllXbWE2WG5sbVNra0dMQXhBQWhtcG1la1pKYkNneWtsTVNzMkJPU1FsdFF6SzVBT0dOVGlvOVFxS012Tmdxcm1Bb3NWNkpma2xpVEF0WE1uNU9UQVJjS2d5L0FNQWlQUElaZ1VEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7262390\,\2\:\0.8587760\,\3\:\0.6042522\,\4\:\3\,\5\:\2.25\},{\1\:\0.6673484\,\2\:\0.8716507\,\3\:\0.5520283\,\4\:\4\,\5\:\1.75\},{\1\:\0.6522762\,\2\:\0.8710962\,\3\:\0.5386112\,\4\:\5\,\5\:\1.50\},{\1\:\0.6416754\,\2\:\0.8672152\,\3\:\0.5253931\,\4\:\6\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[4]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qUXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTkNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaZGpnNE5TODRaVGg0WTFZNWF6aDBUa2sxUlM5WFIzaG1LMjlXZW1wNmNucFRXRGRLT1hWWE5URmxaSGx2UTNKbE1qRTVabmx1ZW5KRWRqSnllaXMzZFdVd1QwOVhkaTlsZGt4a01ESnpkVGRpUWk5MlkyaHNOV2hVTDFJelFqRnFPWFpzS3pBeVJWZDFkMlpPYVhoYVIwWnplSGN2TldocU5rUjBhMmt2THpkU0x6aHBTbVZ4VlhCblFWWk5UVXhWWjJReVRGbFJSM1ZaVlU1d2REaENOVVozWjNOUU9FUndXRGxCTmxNNFRWVkpSR2xKWkdFNGVFNTZWVmxwUWtSQlIzZFJVa3BCYkhsRVpsbEdZM0p0UTBOdmRVeEZNSE5UYXpKQ09IQnNPVWhYUmxOTVRHdHNVbHBXVVU1c1pHMVhSMHBTWTFSNFdVSk9WVWQ2Y1V3NFkyb3lXVXhUUTI1TmVsWkJNMWxJZFd4UFUyTjRSMHRaVlRKRFExaERiVXBLV1d3MllWVldRUzlWUkdWUWVsRjBOMUJyUmtwYWJqVmxWVUpPVkV0Q1NVRlhjMEZUTUUxM2MydEhUVkprUVZGWmJsUlJaMGxWUld4RE9FRTFlVTV5UlVOcVRrRTNhelpTVkdNMWIzcFJkbGM1WmtOQlJUSmxkVk5CZGtoamF5dENjV3AyUjB0SFVrRnRUM3BSY0hwTk9VSXJjVzVTVFZkbFMyNUtSMlpzVVU1c2RIRllibkJ0V0dsdmMzZE9TWGt3TDFoTFRURk9TMDF0UW1oQlFreEpVMDB4VFhwNWFVSkNWbFpQV1d4S2NVUnpkMmhMWVd4c1ZVTlpaazFMZWtKUllURllWVXBUV2tJeFVFNUNVbEYwTVdsMlNrd3diVVZoWlVaTGVuTXJRbWxaUWtSc1pVVm1RVVpOWmxOT1owWkJkMEZCSW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MzIwNTU1XCIsXCIyXCI6XCIwLjg1MTA1ODhcIixcIjNcIjpcIjAuNjEwMjQ0NVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY2MzEwNTRcIixcIjJcIjpcIjAuODczNDQ2NlwiLFwiM1wiOlwiMC41NDY5NTM1XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjY1MzI0N1wiLFwiMlwiOlwiMC44NjE4MDAxXCIsXCIzXCI6XCIwLjU0ODM0ODFcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42NDcyOTY2XCIsXCIyXCI6XCIwLjg2MzU1ODFcIixcIjNcIjpcIjAuNTMwMzE4OFwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzRdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjQsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1Zdjg4NS84ZTh4Y1Y5azh0Tkk1RS9XR3hmK29Wemp6cnpTWDdKOXVXNTFlZHlvQ3JlMjE5ZnluenJEdjJyeis3dWUwT09Xdi9ldkxkMDJzdTdiQi92Y2hsNWhUL1IzQjFqOXZsKzAyRVd1d2ZOaXhaR0ZzeHcvNWhqNkR0a2kvLzdSLzhpSmVxVXBnQVZNTUxVZ2QyTFlRR3VZVU5wdDhCNUZ3Z3NQOERwWDlBNlM4TVVJRGlJZGE4eE56VVlpQkRBR3dRUkpBbHlEZllGY3JtQ0NvdUxFMHNTazJCOHBsOUhXRlNMTGtsUlpWUU5sZG1XR0pSY1R4WUJOVUd6cUw4Y2oyWUxTQ25NelZBM1lIdWxPU2N4R0tZVTJDQ1hDbUpKWWw2YVVWQS9VRGVQelF0N1BrRkpabjVlVUJOVEtCSUFXc0FTME13c2tHTVJkQVFZblRRZ0lVRWxDOEE1eU5yRUNqTkE3azZSVGM1b3pRdlc5ZkNBRTJldVNBdkhjaytCcWp2R0tHUkFtT3pRcHpNOUIrcW5STVdlS25KR2ZsUU5sdHFYbnBtWGlvc3dOSXkwL1hLTTFOS01tQmhBQkxJU00xTXp5aUJCVlZPWWxKcURzd2hLYWxsVUNZZk1LekJRYTFYVUpTWkIxUE5CUlF0MWl2SkwwbUVhZUZLenMrQmlZQkRsZUVmQUZNZlNOZ0ZBd0FBIn0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7320555","2":"0.8510588","3":"0.6102445","4":"3","5":"2.25"},{"1":"0.6631054","2":"0.8734466","3":"0.5469535","4":"4","5":"1.75"},{"1":"0.6653247","2":"0.8618001","3":"0.5483481","4":"5","5":"1.50"},{"1":"0.6472966","2":"0.8635581","3":"0.5303188","4":"6","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[4]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldYWTVZM1F2VUZGTk9EZ3lLelpsVDFCNVV5dENSbGhaVUhwdU9WQjFSa2xVTkdZNWF6azJORVVyYjNac1QwUnhXSEptWWxoR2VuZ3JXVzQ1TmpVclNFTTBTbTU2VEVvdkwxVnlaMUYwYzFWT0wzWllRaXRMTWk5T2VVbE5UeXQ0TnpVeE5rdG1PR2tyTkdWVVJtZ3lNR05QUXpObU5tZ3lPV3RVZDBwQlpqZENlV05XYkRkSVkzWm5SbFYzZDNSVFFqTlpkR2hCWW5CYVdWQndaSGRCTlVaM2FuTXZNRVJ3U0RGRU5rTjNUVlZ2U0dsSlRsTTRlRTQzVlZsNVFrRkJSM2RSVWxwQmJubEVXR0ZHYzJwdFEybG5kRXhGTkhSVFZUWkNPRnBzT1VodFFsSk1ZbXRzVWtwYVZFNXNVbTFYVjBaUlkwUjRXa0owV1VkNlMwdzVZMFF5V1V4NVQyeE5SRlpDTTI5RWMyeFBVMlY0UjA5WlZXMURRbGhUYlVwS2IydzFZVVZXUVM5clVHTlFWRkYwTjJaclJrcGFialJsVlVKTlZFdEdURUZIYzBSVFJVbDRjMFZIVFZKT1NWRlpTRlJTWjBsUlNHeERPRVExZVVKdlJWTjJUa0Z5YXpkU1ZHTTBiM3BqZGxkMFZFSkJhekpqZFhsRmRFaHpiemhDTm1wMFIyRkxWRUV5UzNkUlNucFFPV2d5Y201b1FWWmxZVzVLUjFCd1ZFNXNjSEZZYm5CdFdFTm5kWGQwVFhnd2RtWk1UV3hLU1UxWFFtbEJRa1JLVTAwNVRYcFRiVUpDYkZwUFdXeEtiMFJqTUdoTFlXaHRWWGxSWTAxaE0wSlJObmhWVlZwbFlrSldTRTFDVWxsMk1WTjJTa3hGYlVaaGRVcE1lbU15UVdrMFJrSnNLMEZqUVhWU2FVUlBkMVZFUVVGQlBTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNzI0MzA4OVxcLFxcMlxcOlxcMC44NjAyNTg1XFwsXFwzXFw6XFwwLjYwMzI1NDZcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42NjQzMDI5XFwsXFwyXFw6XFwwLjg3NDIzODdcXCxcXDNcXDpcXDAuNTQ5MTQ5OVxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjY0OTg5NDRcXCxcXDJcXDpcXDAuODcyMzIyNVxcLFxcM1xcOlxcMC41MzU5ODY4XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjQyMjU3MVxcLFxcMlxcOlxcMC44NjcyMzI3XFwsXFwzXFw6XFwwLjUyNDU1MjJcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls0XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWXY5Y3QvUFFNODgyKzZlT1B5UytCRlhZUHpuOVB1RklUNGY5azk2NEUrb3ZsT0RxWHJmYlhGengrWW45NjUrSEM0Sm56TEovL1VyZ1F0c1VOL3ZYQitLMi9OeUlNTyt4NzUxNktmOGkrNGVURmgyMGNPQzNmNmgyOWtUd0pBZjdCeWNWbDdIY3ZnRlV3d3RTQjNZdGhBYnBaWVBwZHdBNUZ3anMvMERwSDFENkN3TVVvSGlJTlM4eE43VVl5QkFBR3dRUlpBbnlEWGFGc2ptQ2lndExFNHRTVTZCOFpsOUhtQlJMYmtsUkpaVE5sUm1XV0ZRY0R4WkJ0WUd6S0w5Y0QyWUx5T2xNRFZCM29Ec2xPU2V4R09ZVW1DQlhTbUpKb2w1YUVWQS9rUGNQVFF0N2ZrRkpabjRlVUJNVEtGTEFHc0RTRUl4c0VHTVJOSVFZSFRSZ0lRSGxDOEQ1eUJvRVN2TkFyazdSVGM0b3pjdld0VEJBazJjdXlFdEhzbzhCNmp0R2FLVEEyS3dRSnpQOWgycm5oQVZlYW5KR1BwVE5scHFYbnBtWENndXd0TXgwdmZMTWxKSU1XQmlBQkRKU005TXpTbUJCbFpPWWxKb0RjMGhLYWhtVXlRY01hM0JRNnhVVVplYkJWSE1CUll2MVN2SkxFbUZhdUpMemMyQWk0RkJsK0FjQXVSaURPd1VEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7243089\,\2\:\0.8602585\,\3\:\0.6032546\,\4\:\3\,\5\:\2.25\},{\1\:\0.6643029\,\2\:\0.8742387\,\3\:\0.5491499\,\4\:\4\,\5\:\1.75\},{\1\:\0.6498944\,\2\:\0.8723225\,\3\:\0.5359868\,\4\:\5\,\5\:\1.50\},{\1\:\0.6422571\,\2\:\0.8672327\,\3\:\0.5245522\,\4\:\6\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[4]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qUXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTkNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaZGk5alRtNUtiSHBoV1Uwck5tUlNjbmRZYlhWME1qSm1NMHN2ZVVzMFozWk5aaXRUWTJWell6TjVTblZ1UWpGeU5uWkdkQ3N5VlhwTVJpOHZWMUZEVlRsNk5qTXZZWFpJTjBSTFJtOTJaWE51T1RsM1RYQjNNekZSV0hWTWNraFpVbmszZWpaaVZUSkVPV05hVWpWaGNrZHdaeTg1UkVka01GbFBiVFJpT1dkM2RYTnBibUZUV2pSQ2NXVkZTSEYzU3paR01FTkRNM05OU0RCUE5FTmpRM2RVTW1ZMlJEQkVlV281YUZGRlMxVkVla1Z0Y0dWWmJURnZUVnBCYVVGRVdVbEpjMmRVTlVKeWRFTXlVbmhDZUZsWGJHbFZWM0JMVmtFcmN6WTRhbFJKYjJ4ME5sTnZSWE55YlhsbmVFeE1RM0ZQUWpSMVp6SnpRbHBzUml0MVFqZE5SalZJVTIxQ2NXYzNNRW95VTI1S1RsbEVTRTFMVkVwQmNrcGlSV3RWVXl0MFEwdG5abmxRZFVod2IxVTVkalpCYTAxNk9GQnhTV3RLUmtOc1owUlhRbkJEUlZreWFVeEZTVWRyUzAxRWFIRjNhMGxFZVVKbFFqaGFRVEJEY0ZocloxWTJabTlLYldWVk5XMVljbGRvYVdkNVZFMVlOVXRWYWpKalkwRTVVakJxVGtaS1oySkdZVWxyTlc0clVUZFdlbmRuU1haT1ZHdHFTRGh3YlZNNE1VeDZPSGhNYUZGV1dWZHRZVFpZYm14dFUydHJSMHhCZUVGQmFHMXdiV1ZyV2twaVEyZDVhMnhOVTNNeVFrOVRVV3gwVVhwTE5VRlBSMDVVYVc4NVVYRkxUWFpPWjNGeWJVRnZjMVkyU21acmJHbFVRWFJZVFc0MVQxUkJVbU5MWjNrdlFVMUJhVkJRU1ZwblZVUkJRVUU5SW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MjYyMzkwXCIsXCIyXCI6XCIwLjg1ODc3NjBcIixcIjNcIjpcIjAuNjA0MjUyMlwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY2NzM0ODRcIixcIjJcIjpcIjAuODcxNjUwN1wiLFwiM1wiOlwiMC41NTIwMjgzXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjUyMjc2MlwiLFwiMlwiOlwiMC44NzEwOTYyXCIsXCIzXCI6XCIwLjUzODYxMTJcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42NDE2NzU0XCIsXCIyXCI6XCIwLjg2NzIxNTJcIixcIjNcIjpcIjAuNTI1MzkzMVwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzRdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjQsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1Zdi9jTm5KbHphWU0rNmRScndYbXV0MjJmM0sveUs0Z3ZNZitTY2VzYzN5SnVuQjFyNnZGdCsyVXpMRi8vV1FDVTl6NjMvYXZIN0RLRm92ZXNuOTl3TXB3MzFRWHVMckhZUnk3ejZiVTJEOWNaUjVhckdwZy85REdkMFlPbTRiOWd3dXNpbmFTWjRCcWVFSHF3SzZGMENDM3NNSDBPNENjQ3dUMmY2RDBEeWo5aFFFS1VEekVtcGVZbTFvTVpBaUFEWUlJc2dUNUJydEMyUnhCeFlXbGlVV3BLVkErczY4alRJb2x0NlNvRXNybXlneExMQ3FPQjR1ZzJzQlpsRit1QjdNRjVIU21CcWc3MEoyU25KTllESE1LVEpBckpiRWtVUyt0Q0tnZnlQdUhwb1U5djZBa016OFBxSWtKRkNsZ0RXQnBDRVkyaUxFSUdrS01EaHF3a0lEeUJlQjhaQTBDcFhrZ1Y2Zm9KbWVVNW1YcldoaWd5VE1YNUtVajJjY0E5UjBqTkZKZ2JGYUlrNW4rUTdWendnSXZOVGtqSDhwbVM4MUx6OHhMaFFWWVdtYTZYbmxtU2trR0xBeEFBaG1wbWVrWkpiQ2d5a2xNU3MyQk9TUWx0UXpLNUFPR05UaW85UXFLTXZOZ3FybUFvc1Y2SmZrbGlUQXRYTW41T1RBUmNLZ3kvQU1BaVBQSVpnVURBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7262390","2":"0.8587760","3":"0.6042522","4":"3","5":"2.25"},{"1":"0.6673484","2":"0.8716507","3":"0.5520283","4":"4","5":"1.75"},{"1":"0.6522762","2":"0.8710962","3":"0.5386112","4":"5","5":"1.50"},{"1":"0.6416754","2":"0.8672152","3":"0.5253931","4":"6","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[4]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldYWXZZMlFyTjFjdllVdFVOMG80UjIxaE4yTmtja3hNTDNOdGNHMHJLMXB2TDJKYVVESnRObmxzZVRWcWFFZDFOMjVYY0ZOTVlVdFRjQzg1TmpNNVVsVlJjRFZKZG1GMldETlZabU1yYUhOeldEazVTbWxMYnpsbVZrWjFUSEpJTldaamJuVldjbU56YmlzMGNXb3ZlamRXT1ZRck5HUkxLeTgwWkhVcldtc3ZNa0l6ZDFOTFR6VkNkRUZPWW5kblpGZEVXRkZ0YVZGWE9XaG5LMmd4UVhwblZVTXJlamxSSzJkbFZTOXpTVUZDVTJkbFdYTXhUSHBGTUhSQ2FrbEZkMEZhUWtKR2JVTm1TVTVrYjFkNVQyOVBURU13YzFOcE1VSlJiMjQ1YmxoRlUySkdhMngwVTFaQmJHeGpNbGRIU2xKWlZuZzBUa1pWUnpOblRFMXZkakUwVUZwQmJrazJWWGRRVlVobGFFOVRZelZLVEVsWk5VSlRZa2xzV2twWmEzRnBXRlpuVkZWRUsxUTVVVGxRUTI1c09WRnJjRzFtUWpsVVJVSkpiMVZ6UVdGM1RrRlJha2M0VWxsQ1FUQm9VbWRqVGxkRmFFRXJVVXAzVUhKSlIyZGtTVGhyUzNSVVpFcE5lbE4yVDNsa1V6Qk5NRTlUV2tNdlRGTnJaWGhxWjFCeFQwVlNiM0JOUkZseWVFMXNUUzgyU0dGUFYwZENiRFZ4WTJ0Uk9XeHpObGh0Y0ZkbWJYQmpTVU5NUXpCNldHRTRPRTAyVld0QmVGbEhTVWxIVFRGTmVqQnFRa3BaVlU5VmEwcHhXRzEzUW5sVGEyeHZSMXBtU1VKM2VHOWpNVWh2UmxKYWJEVk5UbFpqVVU1R2FYWmFURGhyYTFOWlJuRTNheTlDZVZsRFJHaFZSMlkwUWtGR1ZTOTNWa1ZHUVhkQlFTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNzI4MjI0NlxcLFxcMlxcOlxcMC44NTgwNDIwXFwsXFwzXFw6XFwwLjYwODM4MzBcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42NjYyODU0XFwsXFwyXFw6XFwwLjg3NDc5ODlcXCxcXDNcXDpcXDAuNTUyMDcwM1xcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjY0OTc2MjFcXCxcXDJcXDpcXDAuODcyMzgxMVxcLFxcM1xcOlxcMC41MzU0OTE1XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjQwOTcwN1xcLFxcMlxcOlxcMC44Njg2OTQ1XFwsXFwzXFw6XFwwLjUyMjg4MDlcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls0XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWXYvY2QrN1cvYUtUN0o4R21hN2NkckxML3NtcG0rK1pvL2JaUDJtNnlseTVqaEd1N25XcFNMYUtTcC85NjM5UlVRcDVJdmF2WDNVZmMraHNzWDk5SmlLbzlmVkZ1THJINWZjbnVWcmNzbis0cWovejdWOVQrNGRLKy80ZHUrWmsvMkIzd1NLTzVCdEFOYndnZFdEWFFtaVFXOWhnK2gxQXpnVUMrejlRK2dlVS9zSUFCU2dlWXMxTHpFMHRCaklFd0FaQkJGbUNmSU5kb1d5T29PTEMwc1NpMUJRb245blhFU2JGa2x0U1ZBbGxjMldHSlJZVng0TkZVRzNnTE1vdjE0UFpBbkk2VXdQVUhlaE9TYzVKTElZNUJTYklsWkpZa3FpWFZnVFVEK1Q5UTlQQ25sOVFrcG1mQjlURUJJb1VzQWF3TkFRakc4UllCQTBoUmdjTldFaEErUUp3UHJJR2dkSThrS3RUZEpNelN2T3lkUzBNME9TWkMvTFNrZXhqZ1BxT0VSb3BNRFlyeE1sTS82SGFPV0dCbDVxY2tROWxzNlhtcFdmbXBjSUNMQzB6WGE4OE02VWtBeFlHSUlHTTFNejBqQkpZVU9Va0pxWG13QnlTa2xvR1pmSUJ3eG9jMUhvRlJabDVNTlZjUU5GaXZaTDhra1NZRnE3ay9CeVlDRGhVR2Y0QkFGVS93VkVGQXdBQSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7282246\,\2\:\0.8580420\,\3\:\0.6083830\,\4\:\3\,\5\:\2.25\},{\1\:\0.6662854\,\2\:\0.8747989\,\3\:\0.5520703\,\4\:\4\,\5\:\1.75\},{\1\:\0.6497621\,\2\:\0.8723811\,\3\:\0.5354915\,\4\:\5\,\5\:\1.50\},{\1\:\0.6409707\,\2\:\0.8686945\,\3\:\0.5228809\,\4\:\6\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[4]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qUXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTkNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaZGpsamRDOVFVVTA0T0RJck5tVlBVSGxUSzBKR1dGbFFlbTQ1VUhWR1NWUTBaamxyT1RZMFJTdHZkbXhQUkhGWWNtWmlXRVo2ZUN0WmJqazJOU3RJUXpSS2JucE1TaTh2VlhKblVYUnpWVTR2ZGxoQ0swc3lMMDU1U1UxUEszZzNOVEUyUzJZNGFTczBaVlJHYURJd1kwOURNMlkyYURJNWExUjNTa0ZtTjBKNVkxWnNOMGhqZG1kR1ZYZDNkRk5DTTFsMGFFRmljRnBaVUhCa2QwRTFSbmRxY3k4d1JIQklNVVEyUTNkTlZXOUlhVWxPVXpoNFRqZFZXWGxDUVVGSGQxRlNXa0Z1ZVVSWVlVWnphbTFEYVdkMFRFVTBkRk5WTmtJNFdtdzVTRzFDVWt4aWEyeFNTbHBVVG14U2JWZFhSbEZqUkhoYVFuUlpSM3BMVERsalJESlpUSGxQYkUxRVZrSXpiMFJ6YkU5VFpYaEhUMWxWYlVOQ1dGTnRTa3B2YkRWaFJWWkJMMnRRWTFCVVVYUTNabXRHU2xwdU5HVlZRazFVUzBaTVFVZHpSRk5GU1hoelJVZE5VazVKVVZsSVZGSm5TVkZJYkVNNFJEVjVRbTlGVTNaT1FYSnJOMUpVWXpSdmVtTjJWM1JVUWtGck1tTjFlVVYwU0hOdk9FSTJhblJIWVV0VVFUSkxkMUZLZWxBNWFESnlibWhCVm1WaGJrcEhVSEJVVG14d2NWaHVjRzFZUTJkMWQzUk5lREIyWmt4TmJFcEpUVmRDYVVGQ1JFcFRUVGxOZWxOdFFrSnNXazlaYkVwdlJHTXdhRXRoYUcxVmVWRmpUV0V6UWxFMmVGVlZXbVZpUWxaSVRVSlNXWFl4VTNaS1RFVnRSbUYxU2t4Nll6SkJhVFJHUW13clFXTkJkVkpwUkU5M1ZVUkJRVUU5SW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MjQzMDg5XCIsXCIyXCI6XCIwLjg2MDI1ODVcIixcIjNcIjpcIjAuNjAzMjU0NlwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY2NDMwMjlcIixcIjJcIjpcIjAuODc0MjM4N1wiLFwiM1wiOlwiMC41NDkxNDk5XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjQ5ODk0NFwiLFwiMlwiOlwiMC44NzIzMjI1XCIsXCIzXCI6XCIwLjUzNTk4NjhcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42NDIyNTcxXCIsXCIyXCI6XCIwLjg2NzIzMjdcIixcIjNcIjpcIjAuNTI0NTUyMlwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzRdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjQsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZdjljdC9QUU04ODIrNmVPUHlTK0JGWFlQem45UHVGSVQ0ZjlrOTY0RStvdmxPRHFYcmZiWEZ6eCtZbjk2NStIQzRKbnpMSi8vVXJnUXRzVU4vdlhCK0syL055SU1PK3g3NTE2S2Y4aSs0ZVRGaDIwY09DM2Y2aDI5a1R3SkFmN0J5Y1ZsN0hjdmdGVXd3dFNCM1l0aEFicFpZUHBkd0E1Rndqcy8wRHBIMUQ2Q3dNVW9IaUlOUzh4TjdVWXlCQUFHd1FSWkFueURYYUZzam1DaWd0TEU0dFNVNkI4Wmw5SG1CUkxia2xSSlpUTmxSbVdXRlFjRHhaQnRZR3pLTDljRDJZTHlPbE1EVkIzb0RzbE9TZXhHT1lVbUNCWFNtSkpvbDVhRVZBL2tQY1BUUXQ3ZmtGSlpuNGVVQk1US0ZMQUdzRFNFSXhzRUdNUk5JUVlIVFJnSVFIbEM4RDV5Qm9FU3ZOQXJrN1JUYzRvemN2V3RUQkFrMmN1eUV0SHNvOEI2anRHYUtUQTJLd1FKelA5aDJybmhBVmVhbkpHUHBUTmxwcVhucG1YQ2d1d3RNeDB2ZkxNbEpJTVdCaUFCREpTTTlNelNtQkJsWk9ZbEpvRGMwaEthaG1VeVFjTWEzQlE2eFVVWmViQlZITUJSWXYxU3ZKTEVtRmF1Skx6YzJBaTRGQmwrQWNBdVJpRE93VURBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7243089","2":"0.8602585","3":"0.6032546","4":"3","5":"2.25"},{"1":"0.6643029","2":"0.8742387","3":"0.5491499","4":"4","5":"1.75"},{"1":"0.6498944","2":"0.8723225","3":"0.5359868","4":"5","5":"1.50"},{"1":"0.6422571","2":"0.8672327","3":"0.5245522","4":"6","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[4]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldYWTVZMmtyWkdSblNqWjFMMlJOZDFONVR5OTRiMjR5VkRZM09ESXZUbWRhTkdJNWEzbGlhbGRNWm1KVUswUnhXR3NyT0Uwd1RYaFJZeThyUkZKek56QTBkWGxNWm1GMmJuaFhPRTFEZDBWcGNEbHlWRVJhTm1KbmFGZzVlbWcxVW1oaE4zbFRZamRvZUhSbVVuRnhibUkzV2k5eFNETkxPVzU1TVdjdk1rUklWemxPVFM5aUwwRmhjbWhDWVd0RWRYaGFRMmM1ZWtOQ2RGQjJRVWhKZFVWT2FpOW5aRWt2YjFCUldFSnBhRUU0VWtKeVdHMUtkV0ZxUjFGSlVVRXlRME5NU1VWMVVXSTNRWEJzWTNkUlZrWTFXVzFHY1ZkdFVWQnVUWFp2TkhkTFdtSmphM0ZLUzB0S2MzSk5lWGw0Y1VSblpVeEpTbkZCTW1SU1puSnJaWHBDWVZFd05XdGhiMDgxUVdRd2NIbFViVWw0ZWtOcmQxRmhObFY0U2twRmRtSlJhVzlJTkdjM2VDdGhSblppT0dkd1RFMHZSSGxuU21sYVVYQkpRVEZuUzFWb1IwNXJaM2hwU205RFJFVTJZVTFDUTBGemIxaG5VRTlTVGxGcFZUVnZSbU51WVV0aWJrWkhZV3cyTVhKWldVRnRlakY1VVd3ME5XdElkMUJWWkRSNlVWTkpSM2hYVTBaUFduWnZVREZqTkVwRE4zcFZOVWw0T0V0S2MzUk9Vemc1VFhrNFZrWnRRbkJ0Wld3Mk5WcHJjRXBTYlhkTlFVRktXa3RTYlhCdFpWVjNTVWx4U25wRmNFNVJabTFyU2xSVlRXbHBWRVI0YWxjMFMwUlhTM2xxUzNwSlQzQTFaMHRMUm5WMVZqVktZMnQzY2xKM1NtVm1ibmRGVkVGdlkzSjNSSGREY1d4S05rUkNVVTFCUVVFOVBTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNzIzODgzMVxcLFxcMlxcOlxcMC44NjE1NTU0XFwsXFwzXFw6XFwwLjYwNTkwNzZcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42NjY3NzUzXFwsXFwyXFw6XFwwLjg3NTczNThcXCxcXDNcXDpcXDAuNTUyOTY3N1xcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjY1MTAwMDRcXCxcXDJcXDpcXDAuODcxODgwMFxcLFxcM1xcOlxcMC41MzY1OTU1XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjQwODkzNlxcLFxcMlxcOlxcMC44Njg5NTgyXFwsXFwzXFw6XFwwLjUyMjU3NDBcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls0XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWXY5Y2krZGRnSjZ1L2RNd1N5Ty94b24yVDY3ODIvTmdaNGI5a3lialdMZmJUK0RxWGsrOE0wTXhRYy8rRFJzNzA0dXlMZmF2bnhXOE1Dd0VpcDlyVERaNmJnaFg5emg1UmhhN3lTYjdoeHRmUnFxbmI3Wi9xSDNLOW55MWcvMkRIVzlOTS9iL0FhcmhCYWtEdXhaQ2c5ekNCdFB2QUhJdUVOai9nZEkvb1BRWEJpaEE4UkJyWG1KdWFqR1FJUUEyQ0NMSUV1UWI3QXBsY3dRVkY1WW1GcVdtUVBuTXZvNHdLWmJja3FKS0tKc3JNeXl4cURnZUxJSnFBMmRSZnJrZXpCYVEwNWthb081QWQwcHlUbUl4ekNrd1FhNlV4SkpFdmJRaW9INGc3eCthRnZiOGdwTE0vRHlnSmlaUXBJQTFnS1VoR05rZ3hpSm9DREU2YU1CQ0Fzb1hnUE9STlFpVTVvRmNuYUtibkZHYWw2MXJZWUFtejF5UWw0NWtId1BVZDR6UVNJR3hXU0ZPWnZvUDFjNEpDN3pVNUl4OEtKc3ROUzg5TXk4VkZtQnBtZWw2NVprcEpSbXdNQUFKWktSbXBtZVV3SUlxSnpFcE5RZm1rSlRVTWlpVER4alc0S0RXS3lqS3pJT3A1Z0tLRnV1VjVKY2t3clJ3SmVmbndFVEFvY3J3RHdDcWxKNkRCUU1BQUE9PSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7238831\,\2\:\0.8615554\,\3\:\0.6059076\,\4\:\3\,\5\:\2.25\},{\1\:\0.6667753\,\2\:\0.8757358\,\3\:\0.5529677\,\4\:\4\,\5\:\1.75\},{\1\:\0.6510004\,\2\:\0.8718800\,\3\:\0.5365955\,\4\:\5\,\5\:\1.50\},{\1\:\0.6408936\,\2\:\0.8689582\,\3\:\0.5225740\,\4\:\6\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[4]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qUXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTkNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaZGk5alpDczNWeTloUzFRM1NqaEhiV0UzWTJSeVRFd3ZjMjF3YlNzcldtOHZZbHBRTW0wMmVXeDVOV3BvUjNVM2JsZHdVMHhoUzFOd0x6azJNemxTVlZGd05VbDJZWFpZTTFWbVl5dG9jM05ZT1RsS2FVdHZPV1pXUm5WTWNrZzFabU51ZFZaeVkzTnVLelJ4YWk5Nk4xWTVWQ3MwWkVzckx6UmtkU3RhYXk4eVFqTjNVMHRQTlVKMFFVNWlkMmRrVjBSWVVXMXBVVmM1YUdjcmFERkJlbWRWUXl0Nk9WRXJaMlZWTDNOSlFVSlRaMlZaY3pGTWVrVXdkRUpxU1VWM1FWcENRa1p0UTJaSlRtUnZWM2xQYjA5TVF6QnpVMmt4UWxGdmJqbHVXRVZUWWtacmJIUlRWa0ZzYkdNeVYwZEtVbGxXZURST1JsVkhNMmRNVFc5Mk1UUlFXa0Z1U1RaVmQxQlZTR1ZvVDFOak5VcE1TVmsxUWxOaVNXeGFTbGxyY1dsWVZtZFVWVVFyVkRsUk9WQkRibXc1VVd0d2JXWkNPVlJGUWtsdlZYTkJZWGRPUVZGcVJ6aFNXVUpCTUdoU1oyTk9WMFZvUVN0UlNuZFFja2xIWjJSSk9HdExkRlJrU2sxNlUzWlBlV1JUTUUwd1QxTmFReTlNVTJ0bGVHcG5VSEZQUlZKdmNFMUVXWEo0VFd4Tkx6WklZVTlYUjBKc05YRmphMUU1YkhNMldHMXdWMlp0Y0dOSlEweERNSHBZWVRnNFRUWlZhMEY0V1VkSlNVZE5NVTE2TUdwQ1NsbFZUMVZyU25GWWJYZENlVk5yYkc5SFdtWkpRbmQ0YjJNeFNHOUdVbHBzTlUxT1ZtTlJUa1pwZGxwTU9HdHJVMWxHY1RkckwwSjVXVU5FYUZWSFpqUkNRVVpWTDNkV1JVWkJkMEZCSW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MjgyMjQ2XCIsXCIyXCI6XCIwLjg1ODA0MjBcIixcIjNcIjpcIjAuNjA4MzgzMFwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY2NjI4NTRcIixcIjJcIjpcIjAuODc0Nzk4OVwiLFwiM1wiOlwiMC41NTIwNzAzXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjQ5NzYyMVwiLFwiMlwiOlwiMC44NzIzODExXCIsXCIzXCI6XCIwLjUzNTQ5MTVcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42NDA5NzA3XCIsXCIyXCI6XCIwLjg2ODY5NDVcIixcIjNcIjpcIjAuNTIyODgwOVwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzRdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjQsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1Zdi9jZCs3Vy9hS1Q3SjhHbWE3Y2RyTEwvc21wbSsrWm8vYlpQMm02eWx5NWpoR3U3bldwU0xhS1NwLzk2MzlSVVFwNUl2YXZYM1VmYytoc3NYOTlKaUtvOWZWRnVMckg1ZmNudVZyY3NuKzRxai96N1Y5VCs0ZEsrLzRkdStaay8yQjN3U0tPNUJ0QU5id2dkV0RYUW1pUVc5aGcraDFBemdVQyt6OVErZ2VVL3NJQUJTZ2VZczFMekUwdEJqSUV3QVpCQkZtQ2ZJTmRvV3lPb09MQzBzU2kxQlFvbjluWEVTYkZrbHRTVkFsbGMyV0dKUllWeDRORlVHM2dMTW92MTRQWkFuSTZVd1BVSGVoT1NjNUpMSVk1QlNiSWxaSllrcWlYVmdUVUQrVDlROVBDbmw5UWtwbWZCOVRFQklvVXNBYXdOQVFqRzhSWUJBMGhSZ2NOV0VoQStRSndQcklHZ2RJOGtLdFRkSk16U3ZPeWRTME0wT1NaQy9MU2tleGpnUHFPRVJvcE1EWXJ4TWxNLzZIYU9XR0JsNXFja1E5bHM2WG1wV2ZtcGNJQ0xDMHpYYTg4TTZVa0F4WUdJSUdNMU16MGpCSllVT1VrSnFYbXdCeVNrbG9HWmZJQnd4b2MxSG9GUlpsNU1OVmNRTkZpdlpMOGtrU1lGcTdrL0J5WUNEaFVHZjRCQUZVL3dWRUZBd0FBIn0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7282246","2":"0.8580420","3":"0.6083830","4":"3","5":"2.25"},{"1":"0.6662854","2":"0.8747989","3":"0.5520703","4":"4","5":"1.75"},{"1":"0.6497621","2":"0.8723811","3":"0.5354915","4":"5","5":"1.50"},{"1":"0.6409707","2":"0.8686945","3":"0.5228809","4":"6","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[4]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldYWTVZemRRUkRaWU55OVVOMG80UjJ4VU5VeGlSSFJxTHl0VE1sSTNkakJCYVRjM1NuZFhWazR4ZHpoRGRVUnhXSE12YWpjMWJTOVpjbGc1Unl0YU5VcFRLMU5NVDNobVVEVXhlV00wU2tod1pqTnlSelJoVXk5d1l6RTBaVzlsYURkdWJpdEZkazl6YmlzMFUyVlFkM0ZrV1ZBNVp5c3hSRFkyVm14Q1J6Qm1OME5oTWk5dU1pdDZNVUZPWW5kblpGZEVXRkZ0YVZGWE9XaG5LMmd4UVhwblZVTXJlamxSSzJkbFZTOXpTVUZDVTJkbFdYTXhUSHBGTUhSQ2FrbEZkMEZhUWtKR2JVTm1TVTVrYjFkNVQyOVBURU13YzFOcE1VSlJiMjQ1YmxoRlUySkdhMngwVTFaQmJHeGpNbGRIU2xKWlZuZzBUa1pWUnpOblRFMXZkakUwVUZwQmJrazJWWGRRVlVobGFFOVRZelZLVEVsWk5VSlRZa2xzV2twWmEzRnBXRlpuVkZWRUsxUTVVVGxRUTI1c09WRnJjRzFtUWpsVVJVSkpiMVZ6UVdGM1RrRlJha2M0VWxsQ1FUQm9VbWRqVGxkRmFFRXJVVXAzVUhKSlIyZGtTVGhyUzNSVVpFcE5lbE4yVDNsa1V6Qk5NRTlUV2tNdlRGTnJaWGhxWjFCeFQwVlNiM0JOUkZseWVFMXNUUzgyU0dGUFYwZENiRFZ4WTJ0Uk9XeHpObGh0Y0ZkbWJYQmpTVU5NUXpCNldHRTRPRTAyVld0QmVGbEhTVWxIVFRGTmVqQnFRa3BaVlU5VmEwcHhXRzEzUW5sVGEyeHZSMXBtU1VKM2VHOWpNVWh2UmxKYWJEVk5UbFpqVVU1R2FYWmFURGhyYTFOWlJuRTNheTlDZVZsRFJHaFZSMlkwUWtGQmNuZGFZVFJHUVhkQlFTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNzIxNTI4OVxcLFxcMlxcOlxcMC44NjMwNDQ1XFwsXFwzXFw6XFwwLjYwNDI4MjFcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42NjYzMTYwXFwsXFwyXFw6XFwwLjg3NTQ0MThcXCxcXDNcXDpcXDAuNTUyOTk4MFxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjY1MTc2ODBcXCxcXDJcXDpcXDAuODcxNzc1MVxcLFxcM1xcOlxcMC41MzY1OTE0XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjM4NzMwMFxcLFxcMlxcOlxcMC44NzAxNDA2XFwsXFwzXFw6XFwwLjUyMDg3OTRcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls0XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWXY5YzdQRDZYNy9UN0o4R2xUNUxiRHRqLytTMlI3djBBaTc3SndXVk4xdzhDdURxWHMvajc1bS9Zclg5RytaNUpTK1NMT3hmUDUxeWM0SkhwZjNyRzRhUy9wYzE0ZW9laDdubitFdk9zbis0U2VQd3FkWVA5ZysxRDY2VmxCRzBmN0NhMi9uMit6MUFOYndnZFdEWFFtaVFXOWhnK2gxQXpnVUMrejlRK2dlVS9zSUFCU2dlWXMxTHpFMHRCaklFd0FaQkJGbUNmSU5kb1d5T29PTEMwc1NpMUJRb245blhFU2JGa2x0U1ZBbGxjMldHSlJZVng0TkZVRzNnTE1vdjE0UFpBbkk2VXdQVUhlaE9TYzVKTElZNUJTYklsWkpZa3FpWFZnVFVEK1Q5UTlQQ25sOVFrcG1mQjlURUJJb1VzQWF3TkFRakc4UllCQTBoUmdjTldFaEErUUp3UHJJR2dkSThrS3RUZEpNelN2T3lkUzBNME9TWkMvTFNrZXhqZ1BxT0VSb3BNRFlyeE1sTS82SGFPV0dCbDVxY2tROWxzNlhtcFdmbXBjSUNMQzB6WGE4OE02VWtBeFlHSUlHTTFNejBqQkpZVU9Va0pxWG13QnlTa2xvR1pmSUJ3eG9jMUhvRlJabDVNTlZjUU5GaXZaTDhra1NZRnE3ay9CeVlDRGhVR2Y0QkFBcndaYTRGQXdBQSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7215289\,\2\:\0.8630445\,\3\:\0.6042821\,\4\:\3\,\5\:\2.25\},{\1\:\0.6663160\,\2\:\0.8754418\,\3\:\0.5529980\,\4\:\4\,\5\:\1.75\},{\1\:\0.6517680\,\2\:\0.8717751\,\3\:\0.5365914\,\4\:\5\,\5\:\1.50\},{\1\:\0.6387300\,\2\:\0.8701406\,\3\:\0.5208794\,\4\:\6\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[4]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qUXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTkNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaZGpsamFTdGtaR2RLTm5VdlpFMTNVM2xQTDNodmJqSlVOamM0TWk5T1oxbzBZamxyZVdKcVYweG1ZbFFyUkhGWWF5czRUVEJOZUZGakx5dEVVbk0zTURSMWVVeG1ZWFp1ZUZjNFRVTjNSV2x3T1hKVVJGbzJZbWRvV0RsNmFEVlNhR0UzZVZOaU4yaDRkR1pTY1hGdVlqZGFMM0ZJTTBzNWJua3haeTh5UkVoWE9VNU5MMkl2UVdGeWFFSmhhMFIxZUZwRFp6bDZRMEowVUhaQlNFbDFSVTVxTDJka1NTOXZVRkZZUW1sb1FUaFNRbkpZYlVwMVlXcEhVVWxSUVRKRFEweEpSWFZSWWpkQmNHeGpkMUZXUmpWWmJVWnhWMjFSVUc1TmRtODBkMHRhWW1OcmNVcExTMHB6Y2sxNWVYaHhSR2RsVEVsS2NVRXlaRkptY210bGVrSmhVVEExYTJGdlR6VkJaREJ3ZVZSdFNYaDZRMnQzVVdFMlZYaEtTa1YyWWxGcGIwZzBaemQ0SzJGR2RtSTRaM0JNVFM5RWVXZEthVnBSY0VsQk1XZExWV2hIVG10bmVHbEtiME5FUlRaaFRVSkRRWE52V0dkUVQxSk9VV2xWTlc5R1kyNWhTMkp1UmtkaGJEWXhjbGxaUVcxNk1YbFJiRFExYTBoM1VGVmtOSHBSVTBsSGVGZFRSazlhZG05UU1XTTBTa00zZWxVMVNYZzRTMHB6ZEU1VE9EbE5lVGhXUm0xQ2NHMWxiRFkxV210d1NsSnRkMDFCUVVwYVMxSnRjRzFsVlhkSlNYRktla1Z3VGxGbWJXdEtWRlZOYVdsVVJIaHFWelJMUkZkTGVXcExla2xQY0RWblMwdEdkWFZXTlVwamEzZHlVbmRLWldadWQwVlVRVzlqY25kRWQwTnhiRW8yUkVKUlRVRkJRVDA5SW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MjM4ODMxXCIsXCIyXCI6XCIwLjg2MTU1NTRcIixcIjNcIjpcIjAuNjA1OTA3NlwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY2Njc3NTNcIixcIjJcIjpcIjAuODc1NzM1OFwiLFwiM1wiOlwiMC41NTI5Njc3XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjUxMDAwNFwiLFwiMlwiOlwiMC44NzE4ODAwXCIsXCIzXCI6XCIwLjUzNjU5NTVcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42NDA4OTM2XCIsXCIyXCI6XCIwLjg2ODk1ODJcIixcIjNcIjpcIjAuNTIyNTc0MFwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzRdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjQsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZdjljaStkZGdKNnUvZE13U3lPL3hvbjJUNjc4Mi9OZ1o0YjlreWJqV0xmYlQrRHFYays4TTBNeFFjLytEUnM3MDR1eUxmYXZueFc4TUN3RWlwOXJURFo2YmdoWDl6aDVSaGE3eVNiN2h4dGZScXFuYjdaL3FIM0s5bnkxZy8yREhXOU5NL2IvQWFyaEJha0R1eFpDZzl6Q0J0UHZBSEl1RU5qL2dkSS9vUFFYQmloQThSQnJYbUp1YWpHUUlRQTJDQ0xJRXVRYjdBcGxjd1FWRjVZbUZxV21RUG5Ndm80d0taYmNrcUpLS0pzck15eXhxRGdlTElKcUEyZFJmcmtlekJhUTA1a2FvTzVBZDBweVRtSXh6Q2t3UWE2VXhKSkV2YlFpb0g0Zzd4K2FGdmI4Z3BMTS9EeWdKaVpRcElBMWdLVWhHTmtneGlKb0NERTZhTUJDQXNvWGdQT1JOUWlVNW9GY25hS2JuRkdhbDYxcllZQW16MXlRbDQ1a0h3UFVkNHpRU0lHeFdTRk9adm9QMWM0SkM3elU1SXg4S0pzdE5TODlNeThWRm1CcG1lbDY1WmtwSlJtd01BQUpaS1JtcG1lVXdJSXFKekVwTlFmbWtKVFVNaWlURHhqVzRLRFdLeWpLeklPcDVnS0tGdXVWNUpja3dyUndKZWZud0VUQW9jcndEd0NxbEo2REJRTUFBQT09In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7238831","2":"0.8615554","3":"0.6059076","4":"3","5":"2.25"},{"1":"0.6667753","2":"0.8757358","3":"0.5529677","4":"4","5":"1.75"},{"1":"0.6510004","2":"0.8718800","3":"0.5365955","4":"5","5":"1.50"},{"1":"0.6408936","2":"0.8689582","3":"0.5225740","4":"6","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[4]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldYWXJZMlU1WmtSbGQxWXhPV3M0ZWpsb0x6QTJURFZvTHl0VFMzQldNMHRQWjJJM1NqQlhhVTB5VmxkMVRWQldkbFkyTkRWWVVreGpTVkE1Tmk4dmFHWmtkbTQ1T1cwdlptbEhWbFpDV1dwWkx5ODJhRzlPY2xKelZVeDFUSEpJU0hGdFNHUXpkMGx6U0RrMFpYTXplbTl6VFRJNVp5dFdSV2sxT1d0R2RHa3ZNa1IwUW5KbVpERm5kVUZoYm1oQ05uTkRkV2hrUVdkME4wUkNPVVIxUVc1QmMwVTViaXRuT1VFNGJ5OVpWVUpEYkVFNGVFcHhXRzFLZEdGRVIxRkpaMEV5UTBOTVNVVXJVV0UzVVhSclkxRmpWMFp3V1d4R2NWTnNVVkJ5VDNaSk1IbExTbUpsYTNGQ1RFczFjMjlOVTNsM2NXcG5aVXh2VG5KQlYxcFNabkpuWlhwQ1pWSXdjR2RoYjA4NVEyUnJjSGxVVjBGNGVrTnJlVkZMZVZkNFNrWkZkbkpSYVc5SU9HbzNhRFpoUmxCaUsyZEtSRTB2UkRacFNrTlNVWEJaUVRGbllWRm9SMDV2YVhoRFFuQkRha0UwWVhOS1EwRTRaMWhuWmtkUlRrRnhWalZKUm1WdU5rTmFibXhQV213Mk1XOVpiMDFyZWtZclUyeEpPVzVJUVZCVlpFbDZVbE5aUjNoWGFVcFBXaTlyVHpGak9FbERUSHBWTlVsNEwwdGFhM1pPVXpndlRWTTBWVVpYUm5CdGRXdzFOVnByY0VwQ2FYZE5VVUZKV25GYWJuQkhVMWQzYjAxd1NsUkZjazVuVkd0clNtSlZUWGwxVVVSb2FsVTBjVkJWUzJscVRIcFpTM0UxWjB0TVJtVnBXRFZLV1d0M1RGWjZTaXRVYTNkRldFTnZUWFozUkVGR2NFZGxPVlZHUVhkQlFTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNzIwMTgxOVxcLFxcMlxcOlxcMC44NjM0ODk1XFwsXFwzXFw6XFwwLjYwMjU4NzZcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42NjkwMzY3XFwsXFwyXFw6XFwwLjg3NDkxOTdcXCxcXDNcXDpcXDAuNTU2MTEyN1xcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjY1MDkwNjJcXCxcXDJcXDpcXDAuODcyMDgyOVxcLFxcM1xcOlxcMC41MzU0NDY2XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjM4OTI2M1xcLFxcMlxcOlxcMC44NzAxNDc4XFwsXFwzXFw6XFwwLjUyMTIwMjJcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls0XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWXYrY2U5ZkRld1YxOWs4ejloLzA2TDVoLytTS3BWM0tPZ2I3SjBXaU0yVld1TVBWdlY2NDVYUkxjSVA5Ni8vaGZkdm45OW0vZmlHVlZCWWpZLy82aG9OclJzVUx1THJISHFtSGQzd0lzSDk0ZXMzem9zTTI5ZytWRWk1OWtGdGkvMkR0QnJmZDFndUFhbmhCNnNDdWhkQWd0N0RCOUR1QW5Bc0U5bitnOUE4by9ZVUJDbEE4eEpxWG1KdGFER1FJZ0EyQ0NMSUUrUWE3UXRrY1FjV0ZwWWxGcVNsUVByT3ZJMHlLSmJla3FCTEs1c29NU3l3cWpnZUxvTnJBV1pSZnJnZXpCZVIwcGdhb085Q2RrcHlUV0F4ekNreVFLeVd4SkZFdnJRaW9IOGo3aDZhRlBiK2dKRE0vRDZpSkNSUXBZQTFnYVFoR05vaXhDQnBDakE0YXNKQ0E4Z1hnZkdRTkFxVjVJRmVuNkNabmxPWmw2MW9Zb01rekYrU2xJOW5IQVBVZEl6UlNZR3hXaUpPWi9rTzFjOElDTHpVNUl4L0taa3ZOUzgvTVM0VUZXRnBtdWw1NVprcEpCaXdNUUFJWnFabnBHU1d3b01wSlRFck5nVGtrSmJVTXl1UURoalU0cVBVS2lqTHpZS3E1Z0tMRmVpWDVKWWt3TFZ6SitUa3dFWENvTXZ3REFGcEdlOVVGQXdBQSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7201819\,\2\:\0.8634895\,\3\:\0.6025876\,\4\:\3\,\5\:\2.25\},{\1\:\0.6690367\,\2\:\0.8749197\,\3\:\0.5561127\,\4\:\4\,\5\:\1.75\},{\1\:\0.6509062\,\2\:\0.8720829\,\3\:\0.5354466\,\4\:\5\,\5\:\1.50\},{\1\:\0.6389263\,\2\:\0.8701478\,\3\:\0.5212022\,\4\:\6\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[4]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qUXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTkNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaZGpsak4xQkVObGczTDFRM1NqaEhiRlExVEdKRWRHb3ZLMU15VWpkMk1FRnBOemRLZDFkV1RqRjNPRU4xUkhGWWN5OXFOelZ0TDFseVdEbEhLMW8xU2xNclUweFBlR1pRTlRGNVl6UktTSEJtTTNKSE5HRlRMM0JqTVRSbGIyVm9OMjV1SzBWMlQzTnVLelJUWlZCM2NXUlpVRGxuS3pGRU5qWldiRUpITUdZM1EyRXlMMjR5SzNveFFVNWlkMmRrVjBSWVVXMXBVVmM1YUdjcmFERkJlbWRWUXl0Nk9WRXJaMlZWTDNOSlFVSlRaMlZaY3pGTWVrVXdkRUpxU1VWM1FWcENRa1p0UTJaSlRtUnZWM2xQYjA5TVF6QnpVMmt4UWxGdmJqbHVXRVZUWWtacmJIUlRWa0ZzYkdNeVYwZEtVbGxXZURST1JsVkhNMmRNVFc5Mk1UUlFXa0Z1U1RaVmQxQlZTR1ZvVDFOak5VcE1TVmsxUWxOaVNXeGFTbGxyY1dsWVZtZFVWVVFyVkRsUk9WQkRibXc1VVd0d2JXWkNPVlJGUWtsdlZYTkJZWGRPUVZGcVJ6aFNXVUpCTUdoU1oyTk9WMFZvUVN0UlNuZFFja2xIWjJSSk9HdExkRlJrU2sxNlUzWlBlV1JUTUUwd1QxTmFReTlNVTJ0bGVHcG5VSEZQUlZKdmNFMUVXWEo0VFd4Tkx6WklZVTlYUjBKc05YRmphMUU1YkhNMldHMXdWMlp0Y0dOSlEweERNSHBZWVRnNFRUWlZhMEY0V1VkSlNVZE5NVTE2TUdwQ1NsbFZUMVZyU25GWWJYZENlVk5yYkc5SFdtWkpRbmQ0YjJNeFNHOUdVbHBzTlUxT1ZtTlJUa1pwZGxwTU9HdHJVMWxHY1RkckwwSjVXVU5FYUZWSFpqUkNRVUZ5ZDFwaE5FWkJkMEZCSW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MjE1Mjg5XCIsXCIyXCI6XCIwLjg2MzA0NDVcIixcIjNcIjpcIjAuNjA0MjgyMVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY2NjMxNjBcIixcIjJcIjpcIjAuODc1NDQxOFwiLFwiM1wiOlwiMC41NTI5OTgwXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjUxNzY4MFwiLFwiMlwiOlwiMC44NzE3NzUxXCIsXCIzXCI6XCIwLjUzNjU5MTRcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42Mzg3MzAwXCIsXCIyXCI6XCIwLjg3MDE0MDZcIixcIjNcIjpcIjAuNTIwODc5NFwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzRdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjQsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZdjljN1BENlg3L1Q3SjhHbFQ1TGJEdGovK1MyUjd2MEFpNzdKd1dWTjF3OEN1RHFYcy9qNzVtL1lyWDlHK1o1SlMrU0xPeGZQNTF5YzRKSHBmM3JHNGFTL3BjMTRlb2VoN25uK0V2T3NuKzRTZVB3cWRZUDlnKzFENjZWbEJHMGY3Q2EyL24yK3oxQU5id2dkV0RYUW1pUVc5aGcraDFBemdVQyt6OVErZ2VVL3NJQUJTZ2VZczFMekUwdEJqSUV3QVpCQkZtQ2ZJTmRvV3lPb09MQzBzU2kxQlFvbjluWEVTYkZrbHRTVkFsbGMyV0dKUllWeDRORlVHM2dMTW92MTRQWkFuSTZVd1BVSGVoT1NjNUpMSVk1QlNiSWxaSllrcWlYVmdUVUQrVDlROVBDbmw5UWtwbWZCOVRFQklvVXNBYXdOQVFqRzhSWUJBMGhSZ2NOV0VoQStRSndQcklHZ2RJOGtLdFRkSk16U3ZPeWRTME0wT1NaQy9MU2tleGpnUHFPRVJvcE1EWXJ4TWxNLzZIYU9XR0JsNXFja1E5bHM2WG1wV2ZtcGNJQ0xDMHpYYTg4TTZVa0F4WUdJSUdNMU16MGpCSllVT1VrSnFYbXdCeVNrbG9HWmZJQnd4b2MxSG9GUlpsNU1OVmNRTkZpdlpMOGtrU1lGcTdrL0J5WUNEaFVHZjRCQUFyd1phNEZBd0FBIn0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7215289","2":"0.8630445","3":"0.6042821","4":"3","5":"2.25"},{"1":"0.6663160","2":"0.8754418","3":"0.5529980","4":"4","5":"1.75"},{"1":"0.6517680","2":"0.8717751","3":"0.5365914","4":"5","5":"1.50"},{"1":"0.6387300","2":"0.8701406","3":"0.5208794","4":"6","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[4]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjRnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqb3hNaXdpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjoxMiwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qUXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTkNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaZGl0alpUbG1SR1YzVmpFNWF6aDZPV2d2TURaTU5XZ3ZLMU5MY0ZZelMwOW5ZamRLTUZkcFRUSldWM1ZOVUZaMlZqWTBOVmhTVEdOSlVEazJMeTlvWm1SMmJqazViUzltYVVkV1ZrSlphbGt2THpab2IwNXlVbk5WVEhWTWNraEljVzFJWkROM1NYTklPVFJsY3pONmIzTk5NamxuSzFaRmFUVTVhMFowYVM4eVJIUkNjbVprTVdkMVFXRnVhRUkyYzBOMWFHUkJaM1EzUkVJNVJIVkJia0Z6UlRsdUsyYzVRVGh2TDFsVlFrTnNRVGg0U25GWWJVcDBZVVJIVVVsblFUSkRRMHhKUlN0UllUZFJkR3RqVVdOWFJuQlpiRVp4VTJ4UlVISlBka2t3ZVV0S1ltVnJjVUpNU3pWemIwMVRlWGR4YW1kbFRHOU9ja0ZYV2xKbWNtZGxla0psVWpCd1oyRnZUemxEWkd0d2VWUlhRWGg2UTJ0NVVVdDVWM2hLUmtWMmNsRnBiMGc0YWpkb05tRkdVR0lyWjBwRVRTOUVObWxLUTFKUmNGbEJNV2RoVVdoSFRtOXBlRU5DY0VOcVFUUmhjMHBEUVRobldHZG1SMUZPUVhGV05VbEdaVzQyUTFwdWJFOWFiRFl4YjFsdlRXdDZSaXRUYkVrNWJraEJVRlZrU1hwU1UxbEhlRmRwU2s5YUwydFBNV000U1VOTWVsVTFTWGd2UzFwcmRrNVRPQzlOVXpSVlJsZEdjRzExYkRVMVdtdHdTa0pwZDAxUlFVbGFjVnB1Y0VkVFYzZHZUWEJLVkVWeVRtZFVhMnRLWWxWTmVYVlJSR2hxVlRSeFVGVkxhV3BNZWxsTGNUVm5TMHhHWldsWU5VcFphM2RNVm5wS0sxUnJkMFZZUTI5TmRuZEVRVVp3UjJVNVZVWkJkMEZCSW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MjAxODE5XCIsXCIyXCI6XCIwLjg2MzQ4OTVcIixcIjNcIjpcIjAuNjAyNTg3NlwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY2OTAzNjdcIixcIjJcIjpcIjAuODc0OTE5N1wiLFwiM1wiOlwiMC41NTYxMTI3XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjUwOTA2MlwiLFwiMlwiOlwiMC44NzIwODI5XCIsXCIzXCI6XCIwLjUzNTQ0NjZcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42Mzg5MjYzXCIsXCIyXCI6XCIwLjg3MDE0NzhcIixcIjNcIjpcIjAuNTIxMjAyMlwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzRdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjQsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZditjZTlmRGV3VjE5azh6OWgvMDZMNWgvK1NLcFYzS09nYjdKMFdpTTJWV3VNUFZ2VjY0NVhSTGNJUDk2Ly9oZmR2bjk5bS9maUdWVkJZalkvLzZob05yUnNVTHVMckhIcW1IZDN3SXNIOTRlczN6b3NNMjlnK1ZFaTU5a0Z0aS8yRHRCcmZkMWd1QWFuaEI2c0N1aGRBZ3Q3REI5RHVBbkFzRTluK2c5QThvL1lVQkNsQTh4SnFYbUp0YURHUUlnQTJDQ0xJRStRYTdRdGtjUWNXRnBZbEZxU2xRUHJPdkkweUtKYmVrcUJMSzVzb01TeXdxamdlTG9OckFXWlJmcmdlekJlUjBwZ2FvTzlDZGtweVRXQXh6Q2t5UUt5V3hKRkV2clFpb0g4ajdoNmFGUGIrZ0pETS9ENmlKQ1JRcFlBMWdhUWhHTm9peENCcENqQTRhc0pDQThnWGdmR1FOQXFWNUlGZW42Q1pubE9abDYxb1lvTWt6RitTbEk5bkhBUFVkSXpSU1lHeFdpSk9aL2tPMWM4SUNMelU1SXgvS1prdk5TOC9NUzRVRldGcG11bDU1WmtwSkJpd01RQUlacVpucEdTV3dvTXBKVEVyTmdUa2tKYlVNeXVRRGhqVTRxUFVLaWpMellLcTVnS0xGZWlYNUpZa3dMVnpKK1Rrd0VYQ29NdndEQUZwR2U5VUZBd0FBIn0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7201819","2":"0.8634895","3":"0.6025876","4":"3","5":"2.25"},{"1":"0.6690367","2":"0.8749197","3":"0.5561127","4":"4","5":"1.75"},{"1":"0.6509062","2":"0.8720829","3":"0.5354466","4":"5","5":"1.50"},{"1":"0.6389263","2":"0.8701478","3":"0.5212022","4":"6","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[4]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBNWtBQUFFekNBSUFBQUEwTEZEUUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzNkZjR3ajUzblk4V2QyOTM3SWRmMmoyU0tTVitmSXpYRHJicmV3V3k5NkVBa0IxUjhHUWw2OUlJekx3bkVUWFZBREpJUUNtajBFcDliUTlaL21CQ1JhUkVlaVNBV3VFOEJuQnphd3VqOFdpeTRuclpFS2lFQktWNXlUT0YwczJ1TWdkN0cwVWxCZjYxaXlYWjN1am0vL0dKTExIOE5kN25CbU9lL005NE1CeEIvRGg2KzRmTzU5WnZqTyt4cEtLUUVBQUFBME5EWHBCZ0FBQUFBK1Vjc0NBQUJBVjlTeUFBQUEwQlcxTEFBQUFIUTFFMnIwcGFXbFVPTURIVGR2M3B4MEU3UkJZaUk4WktKdkpDYU9UY3p5Tk54YVZvNytlZDI5ZTNkMmRqYndab1FSbHFaR0p5eDl3RkVkS1RGMStVNFNjK0l4eWNReDBXTkdJYXhHVGZVWE5uNTV5aGdEQUFBQTZJcGFGZ0FBQUxxaWxnVUFBSUN1cUdVQkFBQ2dLMnBaQUFBQTZDcjBlUXhjZjNvbmRZUzlmenJTWHYvbzVNK1AxSVlmdlRQU2JnK1VHajNtdTNzajdmYUlNVDE2ekJtUnZ4MnRxU0hGL05qVUl5UHUrZmRFbW44ejBwNUtqdkNwZmxMazRXaGhweDl0akI0V2ZUN3pIMzh2OEppZi9PVWZCeDR6REk5OTlMM0FZNTZjZm5pRXZmL1hTSHQ5NnBHZkhDSG1ENCt3YjdBeGYvK2YvVkVJNzUxYy8rWDJ3aEgyZm4ra3ZWSW5qcGFiNzcwOTBtNm5ER1AwbUh1ajlaZ2ZQVXFQZVVMa0o2UDFib2FNMnRTVEl1K04zR04rZE9yMGlIdU8zbU0ycFRucTI0dDhRdVRCYUdGbkhuVkdENnNYenNzQ0FBQkFWOVN5QUFBQTBCVzFMQUFBQUhSRkxRc0FBQUJkVWNzQ0FBQkFWOVN5QUFBQTBCVzFMQUFBQUhSRkxRc0FBQUJkVWNzQ0FBQkFWOVN5QUFBQTBCVzFMQUFBQUhSRkxRc0FBQUJkVWNzQ0FBQkFWOVN5QUFBQTBCVzFMQUFBQUhSRkxRc0FBQUJkVWNzQ0FBQkFWOVN5QUFBQTBCVzFMQUFBQUhSRkxRc0FBQUJkVWNzQ0FBQkFWOVN5QUFBQTBCVzFMQUFBQUhSRkxRc0FBQUJkVWNzQ0FBQkFWOVN5QUFBQTBCVzFMQUFBQUhSRkxRc0FBQUJkQlZETDdsMjNscGVYcmV0NzQ0ZUNScVllYTdqYnBCc0NieVFtRUVFa1pqTFJZNFpxWnN6WDcxMjNYcExudDdibUFta05kTkdka0ZPUE5acnZwaWJZR0F3aU1ZRUlJakdUaVI0emJHUFdzamMydm5YN3RqeTcvSzJuWDlpNmVMYjk2TkxTVW1lUHUzZnZqdmNXd0ZCOHU0WWdNWEdzK0RxTmhzVEVKTVg0MnpWZUxYdWpMaTlzYloyVnZldldTOWYzenA1dkhXdmV2SG5UdmJHMHREUTdPeXNpOHRPeDNnZncxUHAyb2Mvb2lRa0VnYS9UU0VaUHpQY24xVVRFV1l6ek5KaHJ2K2FlZk9xSlFBSkJFOTAva2ZCelNXU1JtRUFFa1poSlE0OFp0dkZxMmNmUDNLbmZFQkY1K3kwNXd3Q2daR20rbTNLM1NUY0VBMGhNSUlKSXpBU2p4d3pWZUxYczNQbm56M3huZVhsNXVaN2VIL3NEWUxKSVRDQ0NTRXdnSE9QT1l6QjN2cngxUHBDV0FBZ01pUWxFRUlrSmhJRzFFZ0FBQUtBcmFsa0FBQURvaWxvV0FBQUF1cUtXQlFBQWdLNm9aUUVBQUtBcmFsa0FBQURvaWxvV0FBQUF1cUtXQlFBQWdLNm9aUUVBQUtBcmFsa0FBQURvaWxvV0FBQUF1cUtXQlFBQWdLNm9aUUVBQUtBcmFsa0FBQURvaWxvV0FBQUF1cUtXQlFBQWdLNm9aUUVBQUtBcmFsa0FBQURvaWxvV0FBQUF1cUtXQlFBQWdLNm9aUUVBQUtBcmFsa0FBQURvaWxvV0FBQUF1cUtXQlFBQWdLNm9aUUVBQUtBcmFsa0FBQURvYXVaNDN1YWxIMllEai9ubFIvOHM4SmdpOHNucG53VWVjOHBRZ2NjVWtaODNUNFlSOXI2YURqem1TZU5oNERGRjVDdGhCRTJNa3o4Ty9sQTIvK20vRER6bUU2ZCtGSGpNS1FrK0pkOXJQaEo0ektZeUFvLzV5TlQ5d0dNaVdMOXpPL2dlTXpON08vQ1lJdklMSjM0YWVNenBjUHFMRDhMcE1jTndldXJETU1JKzkyZ1lVU09CODdJQUFBRFFGYlVzQUFBQWRFVXRDd0FBQUYxUnl3SUFBRUJYMUxJQUFBRFFGYlVzQUFBQWRFVXRDd0FBQUYxUnl3SUFBRUJYMUxJQUFBRFFGYlVzQUFBQWRFVXRDd0FBQUYxUnl5S1puSExHNkpZcE96MlBGKzNCMTlqRi9WM2QyNW15WTVmTFR2dVpMbDZ2QitCaFdESWVad09PL1QwQm5ZemFNM1k5MUwxcjZGMGt0U3lTeWJScWpWSmFDbFdsbEZMVlFuMDFWYlRkeDFXamxKYjFLLzE5bTFPK3NpN3BVa1BWTE5NdTVuWktEYVd1eVlYY2hvaGtLNnBSU3FkTERlVnFsQlltOFQ4RjZHaFlNaDRUdTVoYXJSL2Yyd0VhR3ExbmJEOW1iMHFoc0w2NW44V2hkNUhVc29CSTlsSXBMVHUzT2ptNlVpcko2bHBQZCtwc3kwb3B2WDkvY2Q0VU1hMWFkY1Vqbm1sWjJkQWFDOFJaZnpLRy80YVZSbmRtQXhoaWhKNVJSTVRlbEh3bDMxUE05Z204aTZTV0JjUXBYMWl0cDFmT2RZNHFaZDY2M0p1STl0cnUvTG5Pdld5K3NKNXpmeVRKV3ZzSG8rMW9aUVlZQVA3MEptUHJsODFpMmJiZDRyYjFXMld4WEM2V0hmZE8wVzQ5N1A3RzJmazEwejIzYXhlTllybWNjWi90L3pHMGRaL3pzc0JJRHVrWlhjNnRoWHhXc2tPTDJUQzZTR3BaSk5wNnpqQU1JN1d4MHZNRGlZaEk5bEpwcC9OcmlsUGVYTGpVZlJpWnJhaHFZVDNYTzBTb3ZwcHlPOGJkNDJnNkVDOGV5V2l2YmF3MGxGTDUzU3UzUk1RcFo2NHNOSlJTS3IrN3V0TktReEhwT3JmcWxLL3NsQnBLTlVycG5WdU9VODdrMW1WOVE2NHBWYk1hUmZmVjFjWFZDMlZIbkhJbUoxV2xGS2RsZ1ZFZDNET0tpRGpiTXA4VjhTaG1RK3dpcVdXUmFJV3FVdFdDTzJDZ2oybGRYbXo5bXVKc1M3Ny83S3RrSzBvMVNyS2E2cFN6cmNGQURKWUZmUEJJeHRTQ3JLYU1URGxWcVZtbU9Oc2IwanBobTFvWVVuNmFWcTFtU1RtVFdxM1hkeHVtVmFzV3BIRFpNa1hFdWJYajlxVzVkYW52TnB6dERTbGR5b3FJZVc2RlloWVl6V0U5bzdPOXNab3pERGZSZW92WkVMdElhbGtrWHJaU2xaelh0U2JaZkdIOVN0a1JlMjEzdnZmUTB5NjYrNXRXclZxbzd6WjZubVN3TE9CVFh6S2FWazJweHNwR2F2VExudTJpWVZ5UWE5N25XbHVYbHltbEt1UW80TS93bmxGRW5HMjUzTTR5MWVnNmg3c3ZqQzZTV2hZWVdzMW1MNVZrOVVMRzQxZVV6dFdjenEwZHI0aE91Y2djUDhEUjlTU2pYUzQ3WWxvMVZTM3MzSExNK2NYNnh2YVF2R3JzMXV1cnFXSnhjNzFRclEyY0t4SVJNZWNYMjJlSjdHTFJOdWNYNi91WHNSenozQW1BeGc3b0dkc0RERnptdVJYeFR0bWd1OGlaQUdNQituREttZFJxWFNSblNGVlZzdGxLZGRNd0RKRjBPbDJ2MTBWV04wcU5tbVZhbHd1cm0vbWEyZGxmVXNaR3FYRjVvWFJaTGhoR1hVUUtWWlcxaTBadVhVUlN4bW9yZnJyVXNDYjNmd2RvWkZneUZxclZoWTBMeG1vcnpVeVJTblhUYUNkWnVpUWlrczBYY2psalhTU2RUcWRMMXlwV1E0eWNzUzdwZEZycXVhSVUxdGRGMWpNTGpacGxkZ0pMb2FvcUl0bHF3Y2daNjI0akNsVk8xUUxEdEpQMG9KNnhVSkQxOWJySWhqVGN3MG1uZkdHMVhwZVVzZEhxVjhQcklnMmxWSURoK2l3dExkMjhlVk5FL3VXZlBoZDQ4QzgvK21lQnh4U1JUMDcvTFBDWVUwWW9IL0xQbXlmRENIdGZUUWNlODZUeE1QQ1lJdklWODcrN056cmZOSXpDL2JqKzRYKzRHbmprZi9YbDF3S1ArY1NwSHdVZWMwcUNUOG4zbW84RUhyT3BqTUJqUGpKMVAvQ1lYNXQvM2IxeFhKbm9sRE1YNUpyMytWZDlkVDY5cC8vYmJ3VWVQRE43Ty9DWUl2SUxKMzRhZU16cGNQcUxEOExwTWNOd2V1ckRNTUkrOTlrL2NXL0VyOGRrakFFQUFBQjB4UmdEQUlCT1dpdDFwWXJ6WE1NRmdGb1dBS0NYYkVXcHlxUWJBU0F5R0dNQUFBQUFYVkhMQWdBQVFGZU1NVUJ5ZlhIcVYzMjg2bnZOVndOdkNaQmt6YitaOS9HcXFVZHZEVDdvVGhHVUxqVzY1amhvVHh2a1B0cVpSTWlkbWlzcjBwcFNyM1VQZ0tjbzk1aWNsMFZ5R1RNelByWkp0eHFJbS92cWdZL05JNUJUdnJCN1dTbDFlZmZDL2tUc3p2YnVTa01wMVZqWldMUEZhY3hmYzlja3FwWVdVaUlpdHVSWkNndzRWSlI3VERwbUpKY3h6ZmNmbUx4VGovMlZlK085ZHo1OThKNGYrOVFQRDNqVzJkNVl6TmRFSkp0ZnZMTHRXTzFUc3p1N0RSR3pzYnVZdDhTVVZzbHEzNUp6V1JHeE4zTzVYTytKWEFDRG90eGpqbjFlOXNiVjVlWGw1ZVdyTjRKb0RYQ2NqQk16UHJaSnQzbzBKQ2IwOGFOMzV0enRuanc4ZU92cythTjM1cndpTGJxbldpVzFzTmg1ekxScStVM0RNRGJ6M1dkZTdWdHl6aFFSSjNWSktYVjVONVU1bGxXblNVeG9LOG85NXJodmMwUFNXMXNYQTJrS2NOemlPMkNBeElSRzdxbG1RSkhjTTdBaWpkMGRPZGQrMENuZnlpdVZMeHBGdXpPUW9IMVdWa3pURkpGc3BYR3J1TzFJMk9kbVNVeG9MTUk5NXBndHUxRi84Y1VYUC9QTUsrWHozY2ZJUzB0TG5kdDM3OTRkN3kyQW9jYjhkc1YzOEN1SmlXTTE1dGZwZzRDVzZqWFByZXlzMlpMTjJwczdLNWZhWmFtOXRpR1hMREVyMWMyaUxkbXNTRmNwMitac2I4aDhrT3ZEZXlJeE1Va3g3akhIRzJPdzkvaksxdGJXVjk5NjFycSsxL1h3elRZUm1aMmRuWjJkSGV0ZGdDRm0yM3krZm1iYXp4WjlveVhtcEZxSCtCa3pFKzhwdzhmbUVjaTBMa3ZPTUl3ckM5Y3NVNXh5cG1pTFpDK3RiS1FNd3pCeWt1ODZLK3VXdWs0NVl4aUdZVnlRYStGZiswV1BpWW1LY1k4NVhpMDdOemNuSW1jdnZ2TFVXMi9zSGJvM0VERXpNMzYyNkNNeG9aVVAxSXlQelROVXRxS1VVdTUxWEtaVnEyVGQvNnJlbVFxeW5jdkMyczhkeTVWZkpDYTBGbENQNlI1QURnNVE3MzU4MkQ3REJESW4xOTRicjhzWno0SDRRSlJOVC9uWnRFRmlRZy8zMUxTUGJkS3Q5bzNFaEo0QzZURTlKODRUY2NxWkMzS3RkVmc1Wko4RGpOVXg3MTIzbHBlWGw1ZGZrdWN2bmgwbkVEQVI0UjFsdG4rNU5BeWphSXVJWFRTTUl4MWxqb1BFaEY3dXFSTSt0a20zK3NoSVRHak52djJ5dXgzYVMzYjJ0RysvM0JmRTJkNVl6R2RGSkp0ZjNOanVkSWoyMm1xOXZwcHlPOHdoK3h4a3JCOU01ODZYdDg2UEV3Q1lxRUJPc3JhT0lMTjJNVk4yV3I5VXV2T3hteUppbDh1cDFuWFVGYkdMeHBwdGhUNHNqOFNFWG9ZTkdJZ1pFaE5heTM3MjM3VnVIZFoxN3U4cFl2L1AzK2w5c212aXZNN0tmZmFtVkpYS2lsUE9YQ2c3MXp6M09WQWkvZ1VCUEhWeTdGY1dYemg0enovZWVYSFlVNTdUczV2Wm5wbC96TmJvdkd5K2NPV1dJMW5tWkFlNjNHdWVuSFFUQUJ4Q0JYTWhsK2ZFZVMzbXVaWEY3VVAyOFVRdGkrVDZsYy85KzlhdHc0NHk5L2NVK2VNZi9IYnZrd2NjUVE3TS9MT3djbzVDRnVqMWdZWURCb0RFQ2VLWFRPK0o4MUlMN29QUzJKVjV5MHg1N1hNZ2Fsa2tsNW9KNUVLdTRVZVFmYVdzWGR5Y3IxU0NlRXNnVGhJeXhnRFFXakE5cG1sZEZzTXdKRjFxMUV4eHlwbTErVm9sYTExYnlCaEdUZ3BWVlJHUm5uMUd3YjhnU0M0MUhjQXZKdDVIbVNMU1Y4cmFSV016cjZoa2dRSDNtcHlYQmFJdWtCNVQzSW56MmwyaGFkVXE3UnZLOHQ1bkZOU3lTSzR3anpLbHU1UjF5cG5VYWwxazNWaVhRbFdGUHljN29CTWRKeVVBa2lhZ1h6SkRRUzJMQkpzT1p1Vk16Nk5Na2F4bDdUK29RbDhlRTlEVlBjWVlBTkVYVUk4WkJ2NEZRWEkxSTN5VUNTUUhZd3lBNkl0eWp4bmRsZ0ZoVTlPR2oyM1NyUWJpNWw1enhzZm1HY3ByNmN2MnlpWGRpMlB1cjJOeTVOVXlnV1NLY285SkxZdmtpbkptQXNrUldDM3J1ZlNsczcyNzBsQktOVlkyMXV6V09pWktLVlV0TGFTR3JxZ0pvRStVZTB6R0dDQzUxQlNGS1RCNUwzM3VWZmVHOVJlL2R2Q2U1YzkvOTRCblBSY3VrZmEwZVkzZHhid2xwdlNzWStLVXZWOENvRStVZTB4cVdTUlg4MFIwTXhOSWptZS8veHZ0bTRkMFNWMTd5aXRmK1BiQTgxNExsNWhXTFY4MGpGeHI1c3FXMWpRanp0Rlh5d1NTS2NvOUptTU1rRnhxeXM4R0lGZ2ZxbWtmbTFla25kMkdpTGdMbDNRNDVWdDVwYXFTYzhmSGlvaGJ5cHJEWHdLZ1g1UjdUSHBtSkZlVVIvOEF5WEh2NFl5UGJUQ09lVzVsWjlNV0VYdHpaMysxYUh0dFExSWkyVXBWTnR2RmJLZVU5WDRKZ0FGUjdqRVpZNERrYWxLWUFoRndmOGlrQkVmbXZYREpwWlVyS1dOVlJBcFY1ZTdYdFNTZmVlVFZNb0ZraW5LUFNTMkw1R0tDZGlBS1Btd0dzemFtZUM5Y01yaFd5ZjQ2Sm5MMDFUS0JaSXB5ajNud0dBTzd5S1I3aUM4MVpmallKdDFxSVRFUk0vZWJVejYyU2JkNkVJbUpPSXR5ajNud1B3Zlppcm9tRjdvbWxRWmlwRG5qWjRzQUVoT3g4bUZ6eHNjMjZWWVBJakVSWjFIdU1RODl0RFd0bWxKS3FmeG0xOElwUUJ3RWRWV214N3BCb2E4dFJHSWlQdTQvblBLeFRiclZua2hNeEZhSVBhYUkyTVdCRHZNSUNUVFNQd2RPT1dQazF0T2xobW9kZEpLZmlJUG10T0ZqNjQvaXRXN1E4YXd0UkdJaUh1NDNwMzFzazI3MVVDUW1ZaW04SGxORWJNa3JwWlNxWktWL3JiNVJIRHBlMWpBTTQ0SmNVMHJWTExOOTBIbE4xc2hOYU8vNzM3am9ibXBhRHQ0NmUzNy9HeGY3Z2pqYkc0djVySWhrODRzYjI2MjBNTE5aOTVKb2Qrb2Z6MzNHUUdJaVZoNDhuUGF4VGJyVmcwaE14Rmw0UGFhSXZabkxkUi8wdWRNK04zYmRmUTkzMkZpR1F0V3RrbnMxZHRkMzV5dkNCQ2JRMmovOU4xZGJ0dzdyRnZmM0ZQbnozKzlMemdQV0RRcHRiU0VTRXpIeUlJb1hjdmxDWWlLK1F1d3huZFFscFNwMjBjaVVHelhMOUY2cjd5Q0gvUXV5dnVsMWZqZGI4Y3BYUUMvTmFUL2JnT0hyQm9XM3RoQ0ppUmlKejNoWkVoUHhGV0tQYVpxbWlHUXJqWlhkYlVlODErbzcwQ0h6R09RTFBmZWRjcG1MTXhFZlU3NjJYZ2VzR3hUYTJrSWtKbUtsMlp6eXNVMjYxWU5JVE1SYXlEMm1pTE85SWZPbTkxcDloemJ0QVBibStuck8ySmRhM1IzNWZ4cUl1bUNPTWszcnN1UU13N2l5Y00weXhTbG4yZ2VTKzJkbCsvWVpHNG1KV0xuL1lOckhOdWxXRHlJeEVXZmg5Wmp0YVFzdXlMVktWa1N5bDFZMlVvWmhHRGtaY2J6c1llZGxTNldHMnRjb0xmajVBSUJJQ21xR2tXeEZ0Uy8xRU5PcXRYOU56RnBkZFd2M1BtTWpNUkVyVFdYNDJDYmQ2a0VrSnVJc3ZCNnpQWlZkcDRkc1B6RHk0SnlEci8zcVdyUmEzSmtVNW11anhRV2lUMFh3ek01SVNFekVTdk5oQkF0VEgwaE14Rm1VZTh4aHRheFR6cVJXNnlJaXE2dGRENmRMam1SOW5GbjY2SWw3UjMvUkliNzk5dG5BWTRySUowNTlFSGpNbnowNEVYaE1FUWxweE5qVVZEUHdtTy9mT3gxNFRCSDV5bmhuT1QwUEdhTXR5TVQ4eGpQL0tiaUd0Zno1Qjc4VWVNeC9mdnF2QTQvNThSRCs5TDg0L2RIQVk5NVQ5d09QK2I3Nk1QQ1lZMUxCL1ZQbVpraTYxT2o2RGFTZE5WMlA5dXhtRjQzYytyQTVDSTd5dGlJQjlaaW5aaDc0Yk1ody8vbXRmeHg0VEJINXU2ZUM3OXpmdjNjcThKZ2k4akNhMXd0NitYOGZoRkl6UFBmWnNWNGU1UjV6V05QY0U3elYzaDlNQXZ1SkZJZ0NOZU5ubXlnU0V6SFVmR0Q0MkR3Q2VVN0RQakR2dWxQT2RFMEIyenRKdTA4a0p1SXZ5ajNtSWVObHJkNU01S3BNeEVsUW8zK09IWW1KV0xuOTYxOTNOOVUwRHQ0NmU5Nys5YThQeGhtMktFbnZ2T3YyMm1xOXZwcHFyNWJaUDBuN0dFaE14Rm1VZTh4RDNxZTFqQWxYWlNLT0RsMjh4SE9MQWhJVGNmTEVOMy9YM2FScEhMeDE5bnppbTcvckZhbHJHdmJPWTZaVnkyOGFockdacjJSRnhONlVxbnRoMXM2VnN1Tk8wcTR1NzZhQ0tHZEpUTVJZbEh2TXcrYmtjcE4rSHhNK0l6NmlmSlI1SUJJVHNhSWVHajQycjBpZWk1SjR6N3R1bmx0WmxNRkoyc2RCWWlMT290eGpIakxHNE5MQ3JlN2s1eGNUeEVtVWp6SVBSR0lpVm95SGhvOXRNSTczTk94OTg2Nm5GdHg5cExFcjgvdlhoN1VtYVI4TGlZazRpM0tQZVVqTjNOaGRaZVpueEZXVWp6SVBSbUlpVmc0Yld1QzlEZkpjdUtSdjNuWFR1clp3eFdpUE9laWZwSDA4SkNaaUxNbzk1aUh6eTI3dWxCcUtLekVSVDJwR1Rib0ovcENZaUJYUGs2eitaQ3RLVlZxM1RhdFdhZjFYV1YzN2ROL3ZmMjRzSkNiaUxNbzk1aUZqRENxWDV4dGQ5L25GQkhFUzVhUE1BNUdZaUplbXJ5MXlTRXpFV1pSN3pFT3UvU3JtY3Z4aWdyaFMwOHJITnVsV0M0bUptQWxxdk95a2taaUlzeWozbUllY2wyVjFhY1NaNFd1YlBCSVRzV0kwL1d6UlEySWkxaUxjWXg1eS9yZHY2bWZUc3BoaEJMR2hacFNQYlRDT2Uvbkk0UFNVWFkrM3J6QUpaa3AyRWhPeFlqd3dmR3lUYnJVSEVoTXhGbTZQMlpxY2VYL2l2R0VkcTZkSWpQNERKbU5LK2RuNmVDNmIyYmRPNXNBcW1nQTY0bkplRm9pMU1Idk12cVdrK3hhYVB0U0VWNWNISnVoTzRaSjc0NWYrOEtXRDkvenJyejAvN0NsbmUyTXhYeE9SYkg3eHlyYlRQaTlqcjYzVzY1SXlWZ3RWVmNtMjVuQTNHN3VMK2NBdW1nWml3bmc0NlJZQU9FeW9QZVptTHBkTGx4cXQwclcvQXowVXRTeVNxN01NcG5IWWZNN2RDMmJlK2MxLzIvdGsxN0tadDlxUHVRc0FaY1VwWnk2VW5heGwxZkpGdzhnVnFwMzVnZ0MwY0pJVmlMNFFlMHduZFVtcGlsMDBNdVZHelRMN085RERUODB5eGdBSkZzZ3ZKdDdMWnJhMDFza2Nzb29tQUJFeEh2clpBQnlyOEhyTUlVdEp0enZRRVpvMnp2OFhvRFZqU3ZuWStvSjRMNXZadDA1bTN5cWFBTG93WGhhSXZoQjd6SmIyVXRMZUMwMGZoREVHU0s2cFFGWXhNYTNMWWhpR3BFdU5taWxPT2JNMlg2dGtyV3NMR2NQSVNXdFV3YVdWS3lsalZVUUsxU2hNVUF0RUNTZFpnZWdMcjhlOGRDdVRXcTJMcEV1TldsYmNoYWE3TzlBUjJoWkF5d0E5R1ZOTkg5dGduR3hGZFM2M05LMmFPMUxkdEdwZEYyVzI3cW5SaHJFRGlSTGdHQU92ZVh3OFpzVHIzdTFJVS84QWlSVmVqOW51SVBjbkxlanRRQTlITFl2a21wcFdQclpKdHhxSW04QnFXYy9wZmdabXhPdWRMODk3aGlBQWZhTGNZekxHQU1rMVpWQ1lBcE8zczNiUnZmRlBmdXZxd1h2K2o5KzdlTUN6UTZiNzZac1JyMmU2bjlTUWx3RG9FK1VlazFvV3lUVXp3ekE5WVBJK3Q5b3FZUS85b2JDenA0ajhvRFJZMTNwTjkyUDJ6b2pYTzkzUE5jK1hBQmdRNVI2VE1RWklydW1wcG85dDBxMEdZcWZwYS9QZ09VR2U5NHg0N2VsK0RwcFREMEJIbEh0TWFsa2sxNG5wcG85dDBxMEc0bWJxb1o5dGtQZDBQMzB6NHZWTzkzUGdERUVBOWtXNXgyU01BWkpyaHBPc1FBUUVOaWVYOXdSNWZUUGk5VTMzMC9NU0FNTkV1Y2VrbGtWeXpVeEhkL1FQa0J3QnppK2JyYWpPaEpTbVZhdTAvcXVzcm4zNjduZS9CTUF3VWU0eHFXV1JYQ2M4ZjZjRWNMeW1Ia2IzK21nQXJpajNtTlN5U0s0VEVmN0ZCRWdPRnFRRm9pL0tQU2ExTEpMcjVQU0RTVGNCZ0V5UmlFRGtSYm5IREdJZWc3M3IxdFViQWNRQmp0ZUpxYWFQYmRLdEhobUpHVWxUanpYY2JkSU5pUkNqcVh4c2syNjFYeVFtOUJUbEhuUDhXdmJHMVdlL2RUdUFsZ0RIN2VUVVF4L2JZSnhoNjduM1BYNjh5NzZUbUZIVVhjSlN6bllZRC94c2VpSXhvYXVnZXN3d2pEdkc0TWJWZXZxVlorNXM5RHk0dExUVXVYMzM3dDB4M3dJWVpzeHYxNGxBZnRwc3JlZWV0WXVac2xQckxJSFpYdlBkOUx3Yk5oSVR4Mm5NcjFOeXJ2MGlNVEZCa2VneHd6RmVMWHZqYWoxOThhSmMvMDd2d3pkdjNuUnZMQzB0emM3T2lvaHdBZ0loYUgyNy9QcWpzMy9nM3ZqYXpkODhlTTgvWFBybXNLZUdMQUhmcytaN3R2OXV5RVpNekorRzNRNGt4WmlaYUNTa2xoMjl4d1JDTU9hMzYxUkE0MldkY2lhMVdrK1hHdnZuZmtURUxocTVkWkd1THJJOVFmUW9NY2VwWmZldWYrZTExMjYvOXBxSWlDekxDMXNYejQ0UkRUaHV6MzcvTjl3Yko0MVI5eFNSVjc3dzdkNG52ZFp6NzEzelBUdmZlOWNLOWV3c2lSbGR6WGRUbmFFRnpYZFRrMjFNZENSakhnTVNFM283R2NoRTBFTit5YlFsM3p2UHMxMU1yZFlMMVJHampsUEx6cDB2YjUwWGtiM3Ixc2FaTW1rSjNRUjBWZWJPYmtQRWROZHpQOWYzbkhsdVpYRjc2TjF3a0ppUlJnazdhT3ArRXM3TGtwalFXK2M4anZVWHYzYndudVhQZjNmWVU4Tit5ZHpNNVhKZHAycnQ0bWErVWRwWkc3VnR6TW1GNURvVnhQVWo1cm1WblRWYnNsbDdjMmZsVXZzWU03WGdQaWlOWFptMyt1OEM2S0x4cEFSQVlqei9nMTkxYjV3NjdKZk16cDRpOHRMblh1MTkwdXVYVENkMVNhbUtYVFF5NVViTk11M2lacjVTa2ZLVmtkc1d4SnhjYytjNXhJU09UazQ5OExIMVJ6R3R5NUl6RE9QS3dqWExGS2VjS2RvaXBuVnQ0WXBoR01abXZwSWR1SHM4U0V4b3duaW9mR3llb2J4bUMzRWY2M3JVTGhxR1lSaEYyL051MkVoTTZDbVlIdFA5SlZQY1h6TGJUTk1Va1d5bHNiSzc3VGpsSyt2ck9jTklyZGJYY3lQbVpSQzFMS0NuMDhZREg5dGduR3hGS2FYYzMwWk1xelZVM2JScVNxbk9LUGErdXdBNkFxdGxXMFB4MU9YZEMvdlZyTE85dTlKUVNqVldOdFpza2RiSXZQMXM3THNMd0ZNZ1BhWjVibVZuMHhZUmUzTm41VnpmcFNQTzlvYk1tNjNlVWpWSzZaRXZsbWFNQVpMcjFQVDlTVGNCZ1B6SmExOTNiM3p4cVJjUDN2TjdyNzl3d0xORGh1SzFoclEzZGhmemxneU16T3NmcUFmQVV6QTlwbWxkRnNNd0pGMXExTXpXWEFXWGJtVlNxM1dSZEtsUjgzZElTUzJMNUFwa3ZDeUFNWDB4UGVxNHVPNDl2MWUvUFBDODExQTgwNnJsaTRhUksxUlZSUVpHNXZYZEhldi9BNGl6b0hyTWJHVi94Z0xUcWxWRUpGdFRneGVTdEo0YkNXTU1rRnlualBzK3RrbTNHb2diNDBIVHgrWVZ5V3NvbmpqbFczbWxxcElyMnRJM01tL2dMb0Fob3R4alVzc2l1VTVOM2ZleFRiclZRTndZRHgvNjJBYmplQS9GczljMkpDV1NyVlJsYy84eUVuZGszckM3QVBwRnVjZGtqQUdTeS9OQ0xnREhiTWhKMXFQekdvcFh5VjVhdVpJeVZrV2tVRld0TlljNkkvUDY3Z0lZSnNvOUpyVXNrb3NCQTBBa1BBeHM0UytQb1hoaVd0MkQ4WHJ1OUQwSFlLZ285NWpVc2tpdTB3d1lBQ0xBQ0s2V0JSQ1NLUGVZMUxKSXJpZ2ZaUUlKOGlDSWRkNEJoQ25LUFNhMUxKSXJ5cGtKSk1pRDZJN0RBK0NLY285SkxZdmtPbTF3TmdpSUFNWVlBSkVYNVI2VFdoYkp4Vm9KUUNSd1hoYUl2Q2ozbU5TeVNLN1RodGVTN2dDT0dlTmxnY2lMY28vSldnbElydE9HOHJFTnhuSEtHY013TXVYK1ZZUDZIM2ZLbWFMZC8ySWc4ZFNEQno2MlNiY2FTSmFnZXN3d2NGNFd5WFhLQ09KWXppbGYyTDJzVk5ZdVpzck8vb0x1VGpselFhNHAxVmxLeUM2bVZ1dUZhZ0R2Q01RTWhTa1FlY0gwbU9HZ2xrVnkvZjFQN2JrMzNudm4wd2Z2K2JGUC9YRFlVODcyeG1LK0ppTFovT0tWYmNkcUZiUDIybXE5TGlsanRWQlZsYXlJWGR6TU4wbzdhMEcxSFlnUGRaOWFGb2k2VXpJOTZTWU1SUzJMNVByZzNjKzROMDRhaDZSb1owOFJPZjNZN2Q0bkZ4ZFNJaUtTV2xpODFYN00zcFNxVWxseHlwa0xaU2M3djdhWnIxU2tmQ1dZaGdPeG9oNVN5d0pSZDJoSE9VSFVza2l1Z2FyVW41M2Rob2dwMHRqZGtYTjl6NW5uVmhhM0crVXI2K3YxOVhVUkVUSEVQVkVMb09XL2Z2amRTVGNCd0NFQzZqRkRFZDNSRDRBV3pITXJPNXUyaU5pYk95dm4ycU5qVXd2dWc5TFlsZm1zVlZOS0tkVW9wUXNVc2dBQUJJbnpzc0I0VE91eUdJWWg2VktqWm9wVHpxek4xeXBaNjlwQ3hqQnlVcWlxeXFSYkNBQkFmRkhMQXVQS1ZsU25ZRFd0V3FWOVExbTkrM1dlQXdBQUFXR01BUUFBQUhSRkxRc0FBQUJkVWNzQ0FBQkFWOVN5QUFBQTBCVzFMQUFBQUhSMVRQTVkvSi9NL3cwODV1bGZES1h4SDV3NkdYak1xWis4SDNoTUVabit4TWZEQ0N1UGZDVHdrQnBKV2JJQUFBZWxTVVJCVkIrZkNlZW82UzlEaVpvUXYvMFBQaDk0ekIvLzZ5Y0RqL2tISCt0ZmdXSjhmK2QvcThCai91MHZHNEhIdlAveDROdXBab0tQK1ZmUEJSNHkwUjcraTNjQ2ovbllZODNBWTRxSVRBZS9GdFJIN3I0YmVFd1JNVDRTZk5jbUlrWUlOWU9jUEJGOFRCRlpDU1ZxRkhCZUZnQUFBTHFpbGdVQUFJQ3VxR1VCQUFDZ0sycFpBQUFBNklwYUZnQUFBTHFpbGdVQUFJQ3VxR1VCQUFDZ0sycFpBQUFBNklwYUZnQUFBTHFpbGdVQUFJQ3VxR1VCQUFDZ0sycFpBQUFBNklwYUZnQUFBTHFpbGdVQUFJQ3VxR1VCQUFDZ0sycFpBQUFBNklwYUZnQUFBTHFpbGdVQUFJQ3VxR1VCQUFDZ0sycFpBQUFBNklwYUZnQUFBTHFpbGdVQUFJQ3VxR1VCQUFDZ0sycFpBQUFBNklwYUZnQUFBTHFpbGdVQUFJQ3VxR1VCQUFDZ0sycFpBQUFBNklwYUZnQUFBTG9hcjViZHUyNHRMeTh2TDF2WDl3SnFENEN4a1poQUJKR1lRRGpHUEMvNzVQTmJXMXRiTHp6eCtodWtKaEFaSkNZUVFTUW1FSXFac1Y0OU56Y25JbnR2bmZucStibXVoNWVXbGpxMzc5NjlPOVpiQU1QeDdmSkdZdUo0OFhVYUNZbUppWXJ4dDJ1OFdsYmt4dFhsRjE4VGVmck0rYk5uT3cvZXZIblR2YkcwdERRN096dm1Xd0REOE8wYWhzVEVjZUxyTkNJU0V4TVU0Mi9YdU5kK25iMjR0YlgxeWpOMzZqY0NhUTZBSUpDWVFBU1JtRUFZQXBuSFlPN01VMmNlRHlJUWdPQ1FtRUFFa1poQXdNWWFZOUQ2dVVUazZSZTJMZ2JUSGdEaklqR0JDQ0l4Z1pDTVZjdWV2YmhGUmdKUlEySUNFVVJpQWlGaHJRUUFBQURvaWxvV0FBQUF1cUtXQlFBQWdLNm9aUUVBQUtBcmFsa0FBQURvaWxvV0FBQUF1cUtXQlFBQWdLNm9aUUVBQUtBcmFsa0FBQURvaWxvV0FBQUF1cUtXQlFBQWdLNm9aUUVBQUtBcmFsa0FBQURvaWxvV0FBQUF1cUtXQlFBQWdLNm9aUUVBQUtBcmFsa0FBQURvaWxvV0FBQUF1cUtXQlFBQWdLNm9aUUVBQUtBcmFsa0FBQURvaWxvV0FBQUF1cUtXQlFBQWdLNm9aUUVBQUtBcmFsa0FBQURvYXVaNDN1Wjd6VmRIM1BQdTNidXpzN09CTnlDTXNEUlZyN0RvTTltc0pHWXlZMklVOUppVERhdFJVOE1McXhmT3l3SUFBRUJYMUxJQUFBRFFGYlVzQUFBQWRFVXRDd0FBQUYxUnl3SUFBRUJYMUxJQUFBRFFWZWh6Y2kwdExZWDlGZ0NPaXNRRUlvakVCUHhRRWZPRkwzeEJsN0EwVmErdzhFMlg3eVF4b3g4VHdkTG9IMkdhcWxkWXZUREdBQUFBQUxveWxGS1RiZ01BQUFEZ0IrZGxBUUFBb0N0cVdRQUFBT2lLV2hZQUFBQzZtbUF0ZStQcTh2THk4ckoxZmEvM2dhczNSRVQycmx1ZDIvNEN0MTdyQm1xL3kxSEQ5dS9mRzgxMzhJRTlBMmp6d1ovbmVKL0Qzbldydlc5QW4wQi84d0w5cThHM2NMSXk2aW1wVlQ0R25veGtvaDdvTVRYSlVLSEhuSVJKVGFEdzlxdXZ2cW1VVW0rKy9LV1gzMVJLS2ZYbW0yLzI3L0xjeTI4T3ZQQlFQWEhhTWQ1OCtibFgzL1lYdG12L3ZtaGpCZS9aYy93MkgvSjVqdFhVTjEvKzBwZGFVWVA3QlByKzNFSC8xZUJIU0ZtcFEwcnFrby9CSnlPWnFBVjZURTB5Vk5GalRzVEV6c3ZPblQ5L1ZrVGtiUHJwTzIvdGljaU4rb3N2ZGgwaStkWVRaKytOMTU5SW54V1JzK2tuWG45ajNOaDkwWUlMSGtDYkQvNDh4Mm5xamF2MTlDdlBmTVlyemhoaCsvN2NJZjdWTUxwd3NsSzdsSXh1UG9hUWpHU2lIdWd4ZzIwelBXYk1SR0M4N0ptbm5wd1QyWHQ4Wld0cjY2dHZQVHRtY3ZiSGVlTE00eUlpOHZpWko4WnZhbiswZ0lJSDIyYnZ6OU52ekJ0WDYrbUxaL2Z2Qi9RSjlEVXYzTDhhamk3QXJOUXVKU09iajJFa0k1bW9IWHJNeUdhbzBHTk96S1JyMlJ0WDYyZk96NG5JM055Y2lKeTkrTXBUYjQxMVhORWY1ODViYjR1SXlOdHYzUm03c1FQUkFnb2VZSnVIZnA3K1l1NWQvODVycjcyNHZQenN0MjYvOXVMeTFSdUJmUUo5elF2M3I0WWpDallydFV2SmlPWmpPTWxJSnVxRkhsTWltNkZDanpsQkU2MWxiMXhkN2oyRUVkbDc0M1U1TXpkKzZGYWN1U2VmdWxPL0lTSTM2bmVlZW5MY3VIM1JnZzBlUUp1SGY1NStZODZkTDI5dGJXMXR2ZkxNWjU1K1lldmkyYUEvZ2I0L2R5aC9OUnhOV0ZtcFhVcEdMUjlEVFVZeVVRZjBtTUcybVI0elRpWTFVUGZ0VjUvN1V0dkxiM2J1ZGtZdXU4T251eDg0VXRqK09KMzdSdzNidDc5bk5CL0J1L2NNcE0wamZwNCtQNGV1Y2VTQmZBSjl6UXY4cndaL3dzaEtMVkpTcDN3TU5CbkpSRjNRWTJxVG9Zb2Vjd0pZd3hZQUFBQzZtdlI0V1FBQUFNQXZhbGtBQUFEb2lsb1dBQUFBdXFLV0JRQUFnSzZvWlNmUEtSZkx6cVFiQVVCRXlFY2cyc2hRREtLV25iekc3czZrbXdDZ2hYd0Vvb3dNeFNCcTJXTm1GNDJpYlJjTnd6QXlaVWRFN0dKdXZiNmFNb3AyNjlseU9lTSs1KzdWMmszNjd3SVlHL2tJUkJrWml0Rk1lb0xiUkdtVTBpSWlVcWdxVlMxSXV0UlFqVWExbEU2WEd2dlB1bmRVdGVEZWFPM1hkeGZBdU1oSElNcklVSXhxWmdMbGMzS1pWcTI2YTJ6bUsxa1JaeUV0SW1LYXFmNW5MVk5FbkZzNzlkV1VzU29pSW9XR0l6MTNSY3dKTkIrSUZmSVJpREl5RktOaWpFRjBGYXJ0STQ1S2R2QXVnT05FUGdKUlJvWW1HYlZzUkpuemkrdWJ0b2lJMk1XaTNYZDNraTBEa29kOEJLS01ERTI2Y0ljd29GZTFJQ0lpaFdyM1NCLzN3VUsxL1d4N2RFL3JidnZ3c3U4dWdER1JqMENVa2FFWWthR1VDckkwQmdBQUFJNExZd3dBQUFDZ0sycFpBQUFBNklwYUZnQUFBTHFpbGdVQUFJQ3VxR1VCQUFDZ0sycFpBQUFBNklwYUZnQUFBTHI2LzcvemZ5UjRlN29ZQUFBQUFFbEZUa1N1UW1DQ1wiIC8+XG5cbjwhLS0gcm5iLXBsb3QtZW5kIC0tPlxuIn0= -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA5kAAAEzCAIAAAA0LFDQAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO3df4wj53nY8Wd2937Idf2j2SKSV+fIzXDrbrewWy96EAkB1R8GQl69IIzLwnETXVADJIQCmj0Ep9bQ9Z/mBCRaREeiSAWuE8BnBzawuj8Wiy4nrZEKiEBKV5yTOF0s2uMgd7G0UlBf61iyXZ3ujm//GJLLH8Nd7nBmOe/M94MBxB/Dh6+4fO59ZvjO+xpKKQEAAAA0NDXpBgAAAAA+UcsCAABAV9SyAAAA0BW1LAAAAHQ1E2r0paWlUOMDHTdv3px0E7RBYiI8ZKJvJCaOTczyNNxaVo7+ed29e3d2djbwZoQRlqZGJyx9wFEdKTF1+U4Sc+IxycQx0WNGIaxGTfUXNn55yhgDAAAA6IpaFgAAALqilgUAAICuqGUBAACgK2pZAAAA6Cr0eQxcf3ondYS9fzrSXv/o5M+P1IYfvTPSbg+UGj3mu3sj7faIMT16zBmRvx2tqSHF/NjUIyPu+fdEmn8z0p5KjvCpflLk4Whhpx9tjB4WfT7zH38v8Jif/OUfBx4zDI999L3AY56cfniEvf/XSHt96pGfHCHmD4+wb7Axf/+f/VEI751c/+X2whH2fn+kvVInjpab77090m6nDGP0mHuj9ZgfPUqPeULkJ6P1boaM2tSTIu+N3GN+dOr0iHuO3mM2pTnq24t8QuTBaGFnHnVGD6sXzssCAABAV9SyAAAA0BW1LAAAAHRFLQsAAABdUcsCAABAV9SyAAAA0BW1LAAAAHRFLQsAAABdUcsCAABAV9SyAAAA0BW1LAAAAHRFLQsAAABdUcsCAABAV9SyAAAA0BW1LAAAAHRFLQsAAABdUcsCAABAV9SyAAAA0BW1LAAAAHRFLQsAAABdUcsCAABAV9SyAAAA0BW1LAAAAHRFLQsAAABdUcsCAABAV9SyAAAA0BW1LAAAAHRFLQsAAABdBVDL7l23lpeXret744eCRqYea7jbpBsCbyQmEEEkZjLRY4ZqZszX7123XpLnt7bmAmkNdNGdkFOPNZrvpibYGAwiMYEIIjGTiR4zbGPWsjc2vnX7tjy7/K2nX9i6eLb96NLSUmePu3fvjvcWwFB8u4YgMXGs+DqNhsTEJMX42zVeLXujLi9sbZ2VvevWS9f3zp5vHWvevHnTvbG0tDQ7Oysi8tOx3gfw1Pp2oc/oiQkEga/TSEZPzPcn1UTEWYzzNJhrv+aefOqJQAJBE90/kfBzSWSRmEAEkZhJQ48ZtvFq2cfP3KnfEBF5+y05wwCgZGm+m3K3STcEA0hMIIJIzASjxwzVeLXs3Pnnz3xneXl5uZ7eH/sDYLJITCCCSEwgHOPOYzB3vrx1PpCWAAgMiQlEEIkJhIG1EgAAAKAralkAAADoiloWAAAAuqKWBQAAgK6oZQEAAKAralkAAADoiloWAAAAuqKWBQAAgK6oZQEAAKAralkAAADoiloWAAAAuqKWBQAAgK6oZQEAAKAralkAAADoiloWAAAAuqKWBQAAgK6oZQEAAKAralkAAADoiloWAAAAuqKWBQAAgK6oZQEAAKAralkAAADoiloWAAAAuqKWBQAAgK6oZQEAAKAralkAAADoauZ43ualH2YDj/nlR/8s8Jgi8snpnwUec8pQgccUkZ83T4YR9r6aDjzmSeNh4DFF5CthBE2Mkz8O/lA2/+m/DDzmE6d+FHjMKQk+Jd9rPhJ4zKYyAo/5yNT9wGMiWL9zO/geMzN7O/CYIvILJ34aeMzpcPqLD8LpMcNweurDMMI+92gYUSOB87IAAADQFbUsAAAAdEUtCwAAAF1RywIAAEBX1LIAAADQFbUsAAAAdEUtCwAAAF1RywIAAEBX1LIAAADQFbUsAAAAdEUtCwAAAF1RyyKZnHLG6JYpOz2PF+3B19jF/V3d25myY5fLTvuZLl6vB+BhWDIeZwOO/T0BnYzaM3Y91L1r6F0ktSySybRqjVJaClWllFLVQn01VbTdx1WjlJb1K/19m1O+si7pUkPVLNMu5nZKDaWuyYXchohkK6pRSqdLDeVqlBYm8T8F6GhYMh4Tu5harR/f2wEaGq1nbD9mb0qhsL65n8Whd5HUsoBI9lIpLTu3Ojm6UirJ6lpPd+psy0opvX9/cd4UMa1adcUjnmlZ2dAaC8RZfzKG/4aVRndmAxhihJ5RRMTelHwl31PM9gm8i6SWBcQpX1itp1fOdY4qZd663JuI9tru/LnOvWy+sJ5zfyTJWvsHo+1oZQYYAP70JmPrl81i2bbd4rb1W2WxXC6WHfdO0W497P7G2fk10z23axeNYrmccZ/t/zG0dZ/zssBIDukZXc6thXxWskOL2TC6SGpZJNp6zjAMI7Wx0vMDiYhI9lJpp/NrilPeXLjUfRiZrahqYT3XO0SovppyO8bd42g6EC8eyWivbaw0lFL53Su3RMQpZ64sNJRSKr+7utNKQxHpOrfqlK/slBpKNUrpnVuOU87k1mV9Q64pVbMaRffV1cXVC2VHnHImJ1WlFKdlgVEd3DOKiDjbMp8V8ShmQ+wiqWWRaIWqUtWCO2Cgj2ldXmz9muJsS77/7KtkK0o1SrKa6pSzrcFADJYFfPBIxtSCrKaMTDlVqVmmONsb0jphm1oYUn6aVq1mSTmTWq3XdxumVasWpHDZMkXEubXj9qW5danvNpztDSldyoqIeW6FYhYYzWE9o7O9sZozDDfReovZELtIalkkXrZSlZzXtSbZfGH9StkRe213vvfQ0y66+5tWrVqo7zZ6nmSwLOBTXzKaVk2pxspGavTLnu2iYVyQa97nWluXlymlKuQo4M/wnlFEnG253M4y1eg6h7svjC6SWhYYWs1mL5Vk9ULG41eUztWczq0dr4hOucgcP8DR9SSjXS47Ylo1VS3s3HLM+cX6xvaQvGrs1uurqWJxc71QrQ2cKxIRMecX22eJ7GLRNucX6/uXsRzz3AmAxg7oGdsDDFzmuRXxTtmgu8iZAGMB+nDKmdRqXSRnSFVVstlKddMwDJF0Ol2v10VWN0qNmmValwurm/ma2dlfUsZGqXF5oXRZLhhGXUQKVZW1i0ZuXURSxmorfrrUsCb3fwdoZFgyFqrVhY0LxmorzUyRSnXTaCdZuiQiks0XcjljXSSdTqdL1ypWQ4ycsS7pdFrquaIU1tdF1jMLjZpldgJLoaoqItlqwcgZ624jClVO1QLDtJP0oJ6xUJD19brIhjTcw0mnfGG1XpeUsdHqV8PrIg2lVIDh+iwtLd28eVNE/uWfPhd48C8/+meBxxSRT07/LPCYU0YoH/LPmyfDCHtfTQce86TxMPCYIvIV87+7NzrfNIzC/bj+4X+4Gnjkf/Xl1wKP+cSpHwUec0qCT8n3mo8EHrOpjMBjPjJ1P/CYX5t/3b1xXJnolDMX5Jr3+Vd9dT69p//bbwUePDN7O/CYIvILJ34aeMzpcPqLD8LpMcNweurDMMI+99k/cW/Er8dkjAEAAAB0xRgDAIBOWit1pYrzXMMFgFoWAKCXbEWpyqQbASAyGGMAAAAAXVHLAgAAQFeMMUByfXHqV3286nvNVwNvCZBkzb+Z9/GqqUdvDT7oThGULjW65jhoTxvkPtqZRMidmisr0ppSr3UPgKco95icl0VyGTMzPrZJtxqIm/vqgY/NI5BTvrB7WSl1effC/kTszvbuSkMp1VjZWLPFacxfc9ckqpYWUiIituRZCgw4VJR7TDpmJJcxzfcfmLxTj/2Ve+O9dz598J4f+9QPD3jW2d5YzNdEJJtfvLLtWO1Tszu7DRGzsbuYt8SUVslq35JzWRGxN3O5XO+JXACDotxjjn1e9sbV5eXl5eWrN4JoDXCcjBMzPrZJt3o0JCb08aN35tztnjw8eOvs+aN35rwiLbqnWiW1sNh5zLRq+U3DMDbz3Wde7VtyzhQRJ3VJKXV5N5U5llWnSUxoK8o95rhvc0PSW1sXA2kKcNziO2CAxIRG7qlmQJHcM7Aijd0dOdd+0CnfyiuVLxpFuzOQoH1WVkzTFJFspXGruO1I2OdmSUxoLMI95pgtu1F/8cUXP/PMK+Xz3cfIS0tLndt3794d7y2Aocb8dsV38CuJiWM15tfpg4CW6jXPreys2ZLN2ps7K5faZam9tiGXLDEr1c2iLdmsSFcp2+Zsb8h8kOvDeyIxMUkx7jHHG2Ow9/jK1tbWV9961rq+1/XwzTYRmZ2dnZ2dHetdgCFm23y+fmbazxZ9oyXmpFqH+BkzE+8pw8fmEci0LkvOMIwrC9csU5xypmiLZC+tbKQMwzByku86K+uWuk45YxiGYVyQa+Ff+0WPiYmKcY85Xi07NzcnImcvvvLUW2/sHbo3EDEzM3626CMxoZUP1IyPzTNUtqKUUu51XKZVq2Td/6remQqyncvC2s8dy5VfJCa0FlCP6R5ADg5Q73582D7DBDIn194br8sZz4H4QJRNT/nZtEFiQg/31LSPbdKt9o3EhJ4C6TE9J84TccqZC3KtdVg5ZJ8DjNUx7123lpeXl5dfkucvnh0nEDAR4R1ltn+5NAyjaIuIXTSMIx1ljoPEhF7uqRM+tkm3+shITGjNvv2yux3aS3b2tG+/3BfE2d5YzGdFJJtf3NjudIj22mq9vppyO8wh+xxkrB9M586Xt86PEwCYqEBOsraOILN2MVN2Wr9UuvOxmyJil8up1nXUFbGLxppthT4sj8SEXoYNGIgZEhNay37237VuHdZ17u8pYv/P3+l9smvivM7KffamVJXKilPOXCg71zz3OVAi/gUBPHVy7FcWXzh4zz/eeXHYU57Ts5vZnpl/zNbovGy+cOWWI1nmZAe63GuenHQTABxCBXMhl+fEeS3muZXF7UP28UQti+T6lc/9+9atw44y9/cU+eMf/HbvkwccQQ7M/LOwco5CFuj1gYYDBoDECeKXTO+J81IL7oPS2JV5y0x57XMgalkkl5oJ5EKu4UeQfaWsXdycr1SCeEsgThIyxgDQWjA9pmldFsMwJF1q1Exxypm1+Vola11byBhGTgpVVRGRnn1Gwb8gSC41HcAvJt5HmSLSV8raRWMzr6hkgQH3mpyXBaIukB5T3Inz2l2hadUq7RvK8t5nFNSySK4wjzKlu5R1ypnUal1k3ViXQlWFPyc7oBMdJyUAkiagXzJDQS2LBJsOZuVMz6NMkaxl7T+oQl8eE9DVPcYYANEXUI8ZBv4FQXI1I3yUCSQHYwyA6ItyjxndlgFhU9OGj23SrQbi5l5zxsfmGcpr6cv2yiXdi2Pur2Ny5NUygWSKco9JLYvkinJmAskRWC3rufSls7270lBKNVY21uzWOiZKKVUtLaSGrqgJoE+Ue0zGGCC51BSFKTB5L33uVfeG9Re/dvCe5c9/94BnPRcukfa0eY3dxbwlpvSsY+KUvV8CoE+Ue0xqWSRX80R0MxNIjme//xvtm4d0SV17yitf+PbA814Ll5hWLV80jFxr5sqW1jQjztFXywSSKco9JmMMkFxqys8GIFgfqmkfm1eknd2GiLgLl3Q45Vt5paqSc8fHiohbyprDXwKgX5R7THpmJFeUR/8AyXHv4YyPbTCOeW5lZ9MWEXtzZ3+1aHttQ1Ii2UpVNtvFbKeU9X4JgAFR7jEZY4DkalKYAhFwf8ikBEfmvXDJpZUrKWNVRApV5e7XtSSfeeTVMoFkinKPSS2L5GKCdiAKPmwGszameC9cMrhWyf46JnL01TKBZIpyj3nwGAO7yKR7iC81ZfjYJt1qITERM/ebUz62Sbd6EImJOItyj3nwPwfZiromF7omlQZipDnjZ4sAEhOx8mFzxsc26VYPIjERZ1HuMQ89tDWtmlJKqfxm18IpQBwEdVWmx7pBoa8tRGIiPu4/nPKxTbrVnkhMxFaIPaaI2MWBDvMICTTSPwdOOWPk1tOlhmoddJKfiIPmtOFj64/itW7Q8awtRGIiHu43p31sk271UCQmYim8HlNEbMkrpZSqZKV/rb5RHDpe1jAM44JcU0rVLLN90HlN1shNaO/737jobmpaDt46e37/Gxf7gjjbG4v5rIhk84sb2620MLNZ95Jod+ofz33GQGIiVh48nPaxTbrVg0hMxFl4PaaIvZnLdR/0udM+N3bdfQ932FiGQtWtkns1dtd35yvCBCbQ2j/9N1dbtw7rFvf3FPnz3+9LzgPWDQptbSESEzHyIIoXcvlCYiK+QuwxndQlpSp20ciUGzXL9F6r7yCH/Quyvul1fjdb8cpXQC/NaT/bgOHrBoW3thCJiRiJz3hZEhPxFWKPaZqmiGQrjZXdbUe81+o70CHzGOQLPfedcpmLMxEfU762XgesGxTa2kIkJmKl2ZzysU261YNITMRayD2miLO9IfOm91p9hzbtAPbm+nrO2Jda3R35fxqIumCOMk3rsuQMw7iycM0yxSln2geS+2dl+/YZG4mJWLn/YNrHNulWDyIxEWfh9ZjtaQsuyLVKVkSyl1Y2UoZhGDkZcbzsYedlS6WG2tcoLfj5AIBICmqGkWxFtS/1ENOqtX9NzFpddWv3PmMjMRErTWX42Cbd6kEkJuIsvB6zPZVdp4dsPzDy4JyDr/3qWrRa3JkU5mujxQWiT0XwzM5ISEzESvNhBAtTH0hMxFmUe8xhtaxTzqRW6yIiq6tdD6dLjmR9nFn66Il7R3/RIb799tnAY4rIJ059EHjMnz04EXhMEQlpxNjUVDPwmO/fOx14TBH5ynhnOT0PGaMtyMT8xjP/KbiGtfz5B78UeMx/fvqvA4/58RD+9L84/dHAY95T9wOP+b76MPCYY1LB/VPmZki61Oj6DaSdNV2P9uxmF43c+rA5CI7ytiIB9ZinZh74bMhw//mtfxx4TBH5u6eC79zfv3cq8Jgi8jCa1wt6+X8fhFIzPPfZsV4e5R5zWNPcE7zV3h9MAvuJFIgCNeNnmygSEzHUfGD42DwCeU7DPjDvulPOdE0B2ztJu08kJuIvyj3mIeNlrd5M5KpMxElQo3+OHYmJWLn96193N9U0Dt46e97+9a8Pxhm2KEnvvOv22mq9vppqr5bZP0n7GEhMxFmUe8xD3qe1jAlXZSKODl28xHOLAhITcfLEN3/X3aRpHLx19nzim7/rFalrGvbOY6ZVy28ahrGZr2RFxN6Uqnth1s6VsuNO0q4u76aCKGdJTMRYlHvMw+bkcpN+HxM+Iz6ifJR5IBITsaIeGj42r0iei5J4z7tunltZlMFJ2sdBYiLOotxjHjLG4NLCre7k5xcTxEmUjzIPRGIiVoyHho9tMI73NOx9866nFtx9pLEr8/vXh7UmaR8LiYk4i3KPeUjN3NhdZeZnxFWUjzIPRmIiVg4bWuC9DfJcuKRv3nXTurZwxWiPOeifpH08JCZiLMo95iHzy27ulBqKKzERT2pGTboJ/pCYiBXPk6z+ZCtKVVq3TatWaf1XWV37dN/vf24sJCbiLMo95iFjDCqX5xtd9/nFBHES5aPMA5GYiJemry1ySEzEWZR7zEOu/SrmcvxigrhS08rHNulWC4mJmAlqvOykkZiIsyj3mIecl2V1acSZ4WubPBITsWI0/WzRQ2Ii1iLcYx5y/rdv6mfTsphhBLGhZpSPbTCOe/nI4PSUXY+3rzAJZkp2EhOxYjwwfGyTbrUHEhMxFm6P2ZqceX/ivGEdq6dIjP4DJmNK+dn6eC6b2bdO5sAqmgA64nJeFoi1MHvMvqWk+xaaPtSEV5cHJuhO4ZJ745f+8KWD9/zrrz0/7Clne2MxXxORbH7xyrbTPi9jr63W65IyVgtVVcm25nA3G7uL+cAumgZiwng46RYAOEyoPeZmLpdLlxqt0rW/Az0UtSySq7MMpnHYfM7dC2be+c1/2/tk17KZt9qPuQsAZcUpZy6Unaxl1fJFw8gVqp35ggC0cJIViL4Qe0wndUmpil00MuVGzTL7O9DDT80yxgAJFsgvJt7LZra01skcsoomABExHvrZAByr8HrMIUtJtzvQEZo2zv8XoDVjSvnY+oJ4L5vZt05m3yqaALowXhaIvhB7zJb2UtLeC00fhDEGSK6pQFYxMa3LYhiGpEuNmilOObM2X6tkrWsLGcPISWtUwaWVKyljVUQK1ShMUAtECSdZgegLr8e8dCuTWq2LpEuNWlbchaa7O9AR2hZAywA9GVNNH9tgnGxFdS63NK2aO1LdtGpdF2W27qnRhrEDiRLgGAOveXw8ZsTr3u1IU/8AiRVej9nuIPcnLejtQA9HLYvkmppWPrZJtxqIm8BqWc/pfgZmxOudL897hiAAfaLcYzLGAMk1ZVCYApO3s3bRvfFPfuvqwXv+j9+7eMCzQ6b76ZsRr2e6n9SQlwDoE+Uek1oWyTUzwzA9YPI+t9oqYQ/9obCzp4j8oDRY13pN92P2zojXO93PNc+XABgQ5R6TMQZIrumppo9t0q0GYqfpa/PgOUGe94x47el+DppTD0BHlHtMalkk14nppo9t0q0G4mbqoZ9tkPd0P30z4vVO93PgDEEA9kW5x2SMAZJrhpOsQAQENieX9wR5fTPi9U330/MSAMNEuceklkVyzUxHd/QPkBwBzi+brajOhJSmVau0/qusrn367ne/BMAwUe4xqWWRXCc8f6cEcLymHkb3+mgArij3mNSySK4TEf7FBEgOFqQFoi/KPSa1LJLr5PSDSTcBgEyRiEDkRbnHDGIeg73r1tUbAcQBjteJqaaPbdKtHhmJGUlTjzXcbdINiRCjqXxsk261XyQm9BTlHnP8WvbG1We/dTuAlgDH7eTUQx/bYJxh67n3PX68y76TmFHUXcJSznYYD/xseiIxoaugeswwjDvG4MbVevqVZ+5s9Dy4tLTUuX337t0x3wIYZsxv14lAftpsreeetYuZslPrLIHZXvPd9LwbNhITx2nMr1Nyrv0iMTFBkegxwzFeLXvjaj198aJc/07vwzdv3nRvLC0tzc7OiohwAgIhaH27/Pqjs3/g3vjazd88eM8/XPrmsKeGLAHfs+Z7tv9uyEZMzJ+G3Q4kxZiZaCSklh29xwRCMOa361RA42Wdcia1Wk+XGvvnfkTELhq5dZGuLrI9QfQoMcepZfeuf+e1126/9pqIiCzLC1sXz44RDThuz37/N9wbJ41R9xSRV77w7d4nvdZz713zPTvfe9cK9ewsiRldzXdTnaEFzXdTk21MdCRjHgMSE3o7GchE0EN+ybQl3zvPs11MrdYL1RGjjlPLzp0vb50Xkb3r1saZMmkJ3QR0VebObkPEdNdzP9f3nHluZXF76N1wkJiRRgk7aOp+Es7LkpjQW+c8jvUXv3bwnuXPf3fYU8N+ydzM5XJdp2rt4ma+UdpZG7VtzMmF5DoVxPUj5rmVnTVbsll7c2flUvsYM7XgPiiNXZm3+u8C6KLxpARAYjz/g191b5w67JfMzp4i8tLnXu190uuXTCd1SamKXTQy5UbNMu3iZr5SkfKVkdsWxJxcc+c5xISOTk498LH1RzGty5IzDOPKwjXLFKecKdoipnVt4YphGMZmvpIduHs8SExowniofGyeobxmC3Ef63rULhqGYRhF2/Nu2EhM6CmYHtP9JVPcXzLbTNMUkWylsbK77TjlK+vrOcNIrdbXcyPmZRC1LKCn08YDH9tgnGxFKaXc30ZMqzVU3bRqSqnOKPa+uwA6AqtlW0Px1OXdC/vVrLO9u9JQSjVWNtZskdbIvP1s7LsLwFMgPaZ5bmVn0xYRe3Nn5VzfpSPO9obMm63eUjVK6ZEvlmaMAZLr1PT9STcBgPzJa193b3zxqRcP3vN7r79wwLNDhuK1hrQ3dhfzlgyMzOsfqAfAUzA9pmldFsMwJF1q1MzWXAWXbmVSq3WRdKlR83dISS2L5ApkvCyAMX0xPeq4uO49v1e/PPC811A806rli4aRK1RVRQZG5vXdHev/A4izoHrMbGV/xgLTqlVEJFtTgxeStJ4bCWMMkFynjPs+tkm3Gogb40HTx+YVyWsonjjlW3mlqpIr2tI3Mm/gLoAhotxjUssiuU5N3fexTbrVQNwYDx/62AbjeA/Fs9c2JCWSrVRlc/8yEndk3rC7APpFucdkjAGSy/NCLgDHbMhJ1qPzGopXyV5auZIyVkWkUFWtNYc6I/P67gIYJso9JrUskosBA0AkPAxs4S+PoXhiWt2D8Xru9D0HYKgo95jUskiu0wwYACLACK6WBRCSKPeY1LJIrigfZQIJ8iCIdd4BhCnKPSa1LJIrypkJJMiD6I7DA+CKco9JLYvkOm1wNgiIAMYYAJEX5R6TWhbJxVoJQCRwXhaIvCj3mNSySK7ThteS7gCOGeNlgciLco/JWglIrtOG8rENxnHKGcMwMuX+VYP6H3fKmaLd/2Ig8dSDBz62SbcaSJageswwcF4WyXXKCOJYzilf2L2sVNYuZsrO/oLuTjlzQa4p1VlKyC6mVuuFagDvCMQMhSkQecH0mOGglkVy/f1P7bk33nvn0wfv+bFP/XDYU872xmK+JiLZ/OKVbcdqFbP22mq9LiljtVBVlayIXdzMN0o7a0G1HYgPdZ9aFoi6UzI96SYMRS2L5Prg3c+4N04ah6RoZ08ROf3Y7d4nFxdSIiKSWli81X7M3pSqUllxypkLZSc7v7aZr1SkfCWYhgOxoh5SywJRd2hHOUHUskiugarUn53dhogp0tjdkXN9z5nnVha3G+Ur6+v19XURETHEPVELoOW/fvjdSTcBwCEC6jFDEd3RD4AWzHMrO5u2iNibOyvn2qNjUwvug9LYlfmsVVNKKdUopQsUsgAABInzssB4TOuyGIYh6VKjZopTzqzN1ypZ69pCxjByUqiqyqRbCABAfFHLAuPKVlSnYDWtWqV9Q1m9+3WeAwAAAWGMAQAAAHRFLQsAAABdUcsCAABAV9SyAAAA0BW1LAAAAHR1TPMY/J/M/w085ulfDKXxH5w6GXjMqZ+8H3hMEZn+xMfDCCuPfCTwkBpJWbIAAAelSURBVB+fCeeo6S9DiZoQv/0PPh94zB//6ycDj/kHH+tfgWJ8f+d/q8Bj/u0vG4HHvP/x4NupZoKP+VfPBR4y0R7+i3cCj/nYY83AY4qITAe/FtRH7r4beEwRMT4SfNcmIkYINYOcPBF8TBFZCSVqFHBeFgAAALqilgUAAICuqGUBAACgK2pZAAAA6IpaFgAAALqilgUAAICuqGUBAACgK2pZAAAA6IpaFgAAALqilgUAAICuqGUBAACgK2pZAAAA6IpaFgAAALqilgUAAICuqGUBAACgK2pZAAAA6IpaFgAAALqilgUAAICuqGUBAACgK2pZAAAA6IpaFgAAALqilgUAAICuqGUBAACgK2pZAAAA6IpaFgAAALqilgUAAICuqGUBAACgK2pZAAAA6IpaFgAAALoar5bdu24tLy8vL1vX9wJqD4CxkZhABJGYQDjGPC/75PNbW1tbLzzx+hukJhAZJCYQQSQmEIqZsV49NzcnIntvnfnq+bmuh5eWljq37969O9ZbAMPx7fJGYuJ48XUaCYmJiYrxt2u8WlbkxtXlF18TefrM+bNnOw/evHnTvbG0tDQ7OzvmWwDD8O0ahsTEceLrNCISExMU42/XuNd+nb24tbX1yjN36jcCaQ6AIJCYQASRmEAYApnHYO7MU2ceDyIQgOCQmEAEkZhAwMYaY9D6uUTk6Re2LgbTHgDjIjGBCCIxgZCMVcuevbhFRgJRQ2ICEURiAiFhrQQAAADoiloWAAAAuqKWBQAAgK6oZQEAAKAralkAAADoiloWAAAAuqKWBQAAgK6oZQEAAKAralkAAADoiloWAAAAuqKWBQAAgK6oZQEAAKAralkAAADoiloWAAAAuqKWBQAAgK6oZQEAAKAralkAAADoiloWAAAAuqKWBQAAgK6oZQEAAKAralkAAADoiloWAAAAuqKWBQAAgK6oZQEAAKAralkAAADoauZ43uZ7zVdH3PPu3buzs7OBNyCMsDRVr7DoM9msJGYyY2IU9JiTDatRU8MLqxfOywIAAEBX1LIAAADQFbUsAAAAdEUtCwAAAF1RywIAAEBX1LIAAADQVehzci0tLYX9FgCOisQEIojEBPxQEfOFL3xBl7A0Va+w8E2X7yQxox8TwdLoH2GaqldYvTDGAAAAALoylFKTbgMAAADgB+dlAQAAoCtqWQAAAOiKWhYAAAC6mmAte+Pq8vLy8rJ1fa/3gas3RET2rlud2/4Ct17rBmq/y1HD9u/fG8138IE9A2jzwZ/neJ/D3nWrvW9An0B/8wL9q8G3cLIy6impVT4Gnoxkoh7oMTXJUKHHnIRJTaDw9quvvqmUUm++/KWX31RKKfXmm2/27/Lcy28OvPBQPXHaMd58+blX3/YXtmv/vmhjBe/Zc/w2H/J5jtXUN1/+0pdaUYP7BPr+3EH/1eBHSFmpQ0rqko/BJyOZqAV6TE0yVNFjTsTEzsvOnT9/VkTkbPrpO2/ticiN+osvdh0i+dYTZ++N159InxWRs+knXn9j3Nh90YILHkCbD/48x2nqjav19CvPfMYrzhhh+/7cIf7VMLpwslK7lIxuPoaQjGSiHugxg20zPWbMRGC87JmnnpwT2Xt8ZWtr66tvPTtmcvbHeeLM4yIi8viZJ8Zvan+0gIIH22bvz9NvzBtX6+mLZ/fvB/QJ9DUv3L8aji7ArNQuJSObj2EkI5moHXrMyGao0GNOzKRr2RtX62fOz4nI3NyciJy9+MpTb411XNEf585bb4uIyNtv3Rm7sQPRAgoeYJuHfp7+Yu5d/85rr724vPzst26/9uLy1RuBfQJ9zQv3r4YjCjYrtUvJiOZjOMlIJuqFHlMim6FCjzlBE61lb1xd7j2EEdl743U5Mzd+6FacuSefulO/ISI36neeenLcuH3Rgg0eQJuHf55+Y86dL29tbW1tvfLMZ55+Yevi2aA/gb4/dyh/NRxNWFmpXUpGLR9DTUYyUQf0mMG2mR4zTiY1UPftV5/7UtvLb3budkYuu8Onux84Utj+OJ37Rw3bt79nNB/Bu/cMpM0jfp4+P4euceSBfAJ9zQv8rwZ/wshKLVJSp3wMNBnJRF3QY2qToYoecwJYwxYAAAC6mvR4WQAAAMAvalkAAADoiloWAAAAuqKWBQAAgK6oZSfPKRfLzqQbAUBEyEcg2shQDKKWnbzG7s6kmwCghXwEoowMxSBq2WNmF42ibRcNwzAyZUdE7GJuvb6aMop269lyOeM+5+7V2k367wIYG/kIRBkZitFMeoLbRGmU0iIiUqgqVS1IutRQjUa1lE6XGvvPundUteDeaO3XdxfAuMhHIMrIUIxqZgLlc3KZVq26a2zmK1kRZyEtImKaqf5nLVNEnFs79dWUsSoiIoWGIz13RcwJNB+IFfIRiDIyFKNijEF0FartI45KdvAugONEPgJRRoYmGbVsRJnzi+ubtoiI2MWi3Xd3ki0Dkod8BKKMDE26cIcwoFe1ICIihWr3SB/3wUK1/Wx7dE/rbvvwsu8ugDGRj0CUkaEYkaGUCrI0BgAAAI4LYwwAAACgK2pZAAAA6IpaFgAAALqilgUAAICuqGUBAACgK2pZAAAA6IpaFgAAALr6/7/zfyR4e7oYAAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0EwTURBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDQwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 4001
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTBNREF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDQwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA0MDAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 4001
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlRVVTF6TVNBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJUVVUxek1TUlBUMEpmVWsxVFJWeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
nperm <- 5
resultsOutSQMs1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSVFVVMXpNU0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlRVVTF6TVNSUFQwSmZVazFUUlZ4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0U1FNczEgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U1FNczEkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxuYGBgXG5gYGAifQ== -->
```r
```r
nperm <- 5
resultsOutSQMs1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjY1MTI0MVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpFOVBRbDlOUVVWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0U1FNczEkT09CX01BRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.6651241
resultsOutSQMs1$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGTlJUWE14SkU5UFFsOU5RVVZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSQMs1$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTIxMzMwNVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpGSnpjWFZoY21Wa1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dFNRTXMxJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.5213305
resultsOutSQMs1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGTlJUWE14SkZKemNYVmhjbVZrWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMxJFJzcXVhcmVkXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMxJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutSQMs1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODQxOTcyN1xuIn0= -->
```
[1] 0.8419727
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVTFGTmN6RWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGTlJUWE14SkU5UFFsOVNUVk5GWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U1FNczEkT09CX1JNU0VcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
resultsOutSQMs1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVMUZOY3pFZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZOUlRYTXhKRTlQUWw5U1RWTkZYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U1FNczEkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0U1FNczEgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFNRTXMxJE9PQl9STVNFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutSQMs1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjY3NzU4NVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpFOVBRbDlOUVVWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0U1FNczEkT09CX01BRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.6677585
resultsOutSQMs1$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGTlJUWE14SkU5UFFsOU5RVVZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSQMs1$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTIxMzk5NFxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpGSnpjWFZoY21Wa1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dFNRTXMxJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.5213994
resultsOutSQMs1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGTlJUWE14SkZKemNYVmhjbVZrWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMxJFJzcXVhcmVkXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMxJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutSQMs1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODM5OTAyOVxuIn0= -->
```
[1] 0.8399029
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMEZpY3lCVFVVMXpJR2x1WXlCMGIyNWhiQ0JzYjNWa0p5d2dKMUpOVTBVblhTQThMU0J5WlhOMWJIUnpUM1YwVTFGTmN6RWtUMDlDWDFKTlUwVmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMEZpY3lCVFVVMXpJR2x1WXlCMGIyNWhiQ0JzYjNWa0p5d2dKMDFCUlNkZElEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1TUlBUMEpmVFVGRlhHNXlaWE5rUVc1dWIzbE5ia1pwZEVGQ1d5ZEJZbk1nVTFGTmN5QnBibU1nZEc5dVlXd2diRzkxWkNjc0lDZFNjM0YxWVhKbFpDZGRJRHd0SUhKbGMzVnNkSE5QZFhSVFVVMXpNU1JTYzNGMVlYSmxaRnh1Y21WelpFRnVibTk1VFc1UVpYSnRTVzF3UVVJa1FXSnpVMUZOY3pFZ1BDMGdjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQmNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFNRTXMxJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0U1FNczEkT09CX01BRVxucmVzZEFubm95TW5GaXRBQlsnQWJzIFNRTXMgaW5jIHRvbmFsIGxvdWQnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U1FNczEkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJEFic1NRTXMxIDwtIHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# store results
resdAnnoyMnFitAB['Abs SQMs inc tonal loud', 'RMSE'] <- resultsOutSQMs1$OOB_RMSE
resdAnnoyMnFitAB['Abs SQMs inc tonal loud', 'MAE'] <- resultsOutSQMs1$OOB_MAE
resdAnnoyMnFitAB['Abs SQMs inc tonal loud', 'Rsquared'] <- resultsOutSQMs1$Rsquared
resdAnnoyMnPermImpAB$AbsSQMs1 <- resultsOutSQMs1$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowRmljeUJUVVUxeklHbHVZeUIwYjI1aGJDQnNiM1ZrSnl3Z0oxSk5VMFVuWFNBOExTQnlaWE4xYkhSelQzVjBVMUZOY3pFa1QwOUNYMUpOVTBWY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowRmljeUJUVVUxeklHbHVZeUIwYjI1aGJDQnNiM1ZrSnl3Z0owMUJSU2RkSUR3dElISmxjM1ZzZEhOUGRYUlRVVTF6TVNSUFQwSmZUVUZGWEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkQlluTWdVMUZOY3lCcGJtTWdkRzl1WVd3Z2JHOTFaQ2NzSUNkU2MzRjFZWEpsWkNkZElEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1TUlNjM0YxWVhKbFpGeHVjbVZ6WkVGdWJtOTVUVzVRWlhKdFNXMXdRVUlrUVdKelUxRk5jekVnUEMwZ2NtVnpkV3gwYzA5MWRGTlJUWE14SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhCY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEFubm95TW5GaXRBQlsnQWJzIFNRTXMgaW5jIHRvbmFsIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnQWJzIFNRTXMgaW5jIHRvbmFsIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBTUU1zIGluYyB0b25hbCBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFNRTXMxJFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiRBYnNTUU1zMSA8LSByZXN1bHRzT3V0U1FNczEkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBTUU1zIGluYyB0b25hbCBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U1FNczEkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBTUU1zIGluYyB0b25hbCBsb3VkJywgJ01BRSddIDwtIHJlc3VsdHNPdXRTUU1zMSRPT0JfTUFFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkQWJzU1FNczEgPC0gcmVzdWx0c091dFNRTXMxJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdAnnoyMnFitAB['Abs SQMs inc tonal loud', 'RMSE'] <- resultsOutSQMs1$OOB_RMSE
resdAnnoyMnFitAB['Abs SQMs inc tonal loud', 'MAE'] <- resultsOutSQMs1$OOB_MAE
resdAnnoyMnFitAB['Abs SQMs inc tonal loud', 'Rsquared'] <- resultsOutSQMs1$Rsquared
resdAnnoyMnPermImpAB$AbsSQMs1 <- resultsOutSQMs1$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeExtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlRVVTF6TVNSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJUVVUxek1TNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVFVVMXpNUzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRk5SVFhNeExtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTjEwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9iV1ZoYmlCamFHRnVaMlVnYVc0Z1lXNXViM2xoYm1ObEtWd2lLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWENKelpYSnBabHdpS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLeUJqYjI5eVpGOW1iR2x3S0hsc2FXMDlZeWd3TENBeExqTXBLVnh1Y0VKaGNseHVZR0JnSW4wPSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMS5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMxLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCAxLjMpKVxucEJhclxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs1.conimp <- arrange(resultsOutSQMs1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs1.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs1.conimp), levels=rownames(resultsOutSQMs1.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 1.3))
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGTlJUWE14TG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSVFVVMXpNU1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlRVVTF6TVM1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJUVVUxek1TNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGTlJUWE14TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJOMTBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb2JXVmhiaUJqYUdGdVoyVWdhVzRnWVc1dWIzbGhibU5sS1Z4Y0tTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYRnh6WlhKcFpseGNLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1NrZ0t5QmpiMjl5WkY5bWJHbHdLSGxzYVcwOVl5Z3dMQ0F4TGpNcEtWeHVjRUpoY2x4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRTUU1zMS5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0U1FNczEkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0U1FNczEuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0U1FNczEuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMS5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzddLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgMS4zKSlcbnBCYXJcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMS5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMxLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCAxLjMpKVxucEJhclxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs1.conimp <- arrange(resultsOutSQMs1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs1.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs1.conimp), levels=rownames(resultsOutSQMs1.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 1.3))
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qSXVOQ3dpZDJsa2RHZ2lPamdzSW5OcGVtVmZZbVZvWVhacGIzSWlPakVzSW1OdmJtUnBkR2x2Ym5NaU9sdGRmUT09IC0tPlxuXG48aW1nIHNyYz1cXGRhdGE6aW1hZ2UvcG5nO2Jhc2U2NFxuIn0= -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjIuNCwid2lkdGgiOjgsInNpemVfYmVoYXZpb3IiOjEsImNvbmRpdGlvbnMiOltdfQ== -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFDNENBTUFBQUIrV2RET0FBQUJ2MUJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qcXROanNoYXdQOW1BQUJtQURwbUFHWm1PcEJtWmdCbVpyWm1rTnRtdHR0bXR2OXVUVTF1VFc1dVRZNXViazF1Ym01dWJxdHVqbzV1anNodXE2dHVxOGh1cStTT1RVMk9UVzZPVFk2T2JrMk9ibzZPYnF1T2prMk9qbzZPanNpT3E2dU9xOGlPcStTT3lNaU95T1NPeVArUU9nQ1FPanFRT21hUVpnQ1FacENRa0RxUWtHYVFrTGFRa051UXRwQ1F0ditRMjdhUTI5dVEyLytyYmsycmJtNnJibzZyamsycmpvNnJqcXVycTI2cnE2dXJxOGlycStTcnlNaXJ5UCtyNU1pcjVPU3I1UCsyWmdDMlpqcTJabWEya0RxMmtKQzJ0bWEyMjVDMi83YTIvOXUyLy8vSWprM0lqbTdJam83SXEyN0lxNDdJcTZ2SXlJN0l5S3ZJeU1qSXlPVEl5UC9JNUt2STVQL0kvOGpJLytUSS8vL2JrRHJia0diYmtKRGJ0bWJiMjVEYjI3YmIvN2JiLy8va3EyN2txNDdrcTZ2a3lJN2t5S3ZreU1qazVLdms1TWprLzhqay8rVGsvLy8zOS9mL3RtYi90cEQveUk3L3lLdi95TWovMjVELzVLdi81TWovNU9ULy83Yi8vOGovLzl2Ly8rVC8vLzh5M0FPV0FBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFSamtsRVFWUjRuTzFkajMvYlJoVjNmbEFHZ3lqcFhFTFgwZUd3cmN1UTJTZ05LM1ZnakpYUnVDc2QzZG82c0FLTGs5RXlDcTB6Qm92YnNaRzVtZHFZMmJIK1lONTdkNUpsU1hZalJ6bnJ6dS83YVMzcmZqeWRkZCs4KzZHdjduSXVnM0hveUkyNkFJeHhBTk9Nb1FCTU00WUNNTTBZQ3BCUm1uMk5ZUXFvUHJOS3MxRVhnSkVTOUtQWmc1UXZ3dllVMkdPYXNUMEY5cGhtYkUrQlBhWVoyMU5nVHorYWZaZVJFU1N1U2FZWkl6a1MxeVRUakpFY2lXc3laWnExaTFhK1ViZm1hbTd6QnhVOHpmL2xHZ1poSElaMHlwWmx6VjRyemtKa3B3ekp1cm53MDdKS3djS0ZNT3FieS9DUWdCR0g0ODNhcDRGUzk0RStqMzVpdTI2OUJOeWlJRmVHNE1uRFN2dml2T3YrNzhlMW5seHVlOGwxQkNPWlp0bUdxSThSRGdGOG1uMklqQ0hXZURTakVEaDVXSEhidjN1NTVuNzIyMXJkbXIxZXpsK3l1elNiZDhXVHBnY1A2RWM4Q0I1SGZYTVpIa1I5UEFqVlQrenhjR25XdnQwR0pybU9aWHMwRXlIUU1rS0QyWDZuV3VyOGJRTVRsTnFuMy9XOFdkR2FsMmJZbTJVYW9qNUc3YzJBUDQ3WHo2cVhKTTFFaVBSbTd6UlAvZmNmR3pVZ1ZzbDFiTC9SYko1cUJBc1h3cWh2THNPRHFJOFIwcXh6c1VLaytheUJEYUNESk1MVDVsa1pRaWVMN1hjNkYxOXRiTlEyYWs2cHViaGVFVW1nMGF6YndjS0ZNT3FieS9DUWdCQ0hOS0hSWElCV0VRYVVKYmRxNWYvenZEVjNCd2VRMEFXamtLZGVnUlByWitERUhCc0dwRzliRUhLdWZIUkJqRDh0dTFQR01TZ3JOTXlCZnZObURBM0JOR01vZ0g0ME0rSlI4cmpaWTVxeFBRWDJtR1pzVDRFOXBobmJVMkJQUDVveE5BVFRqS0VBK3RGczFIUGYra0IxZFEwQTA4eGNxSzZ1QVZCQU01STJDamo0c0pKRUd6N2FRYjFqYk9GQ0dIWGw2WVA0NmpCMUNFQkNSa0tuYklmaTJrdHVqOTR4cm5BaGpMcnk5RUY4ZFpoS014SXkxczlZWjZ5UzgrTENYQTE0MVM3T1Zwby9MYzdWSE12dTFUdWljTHRxdlhpVlpZMEhSN3pNY0Y4eXhBVEhFY29hZ3lBaFk3czQ3OHczendLVEhMdWViOXlyT0Q4c3o5WFdLNTh1OXVvZEljS0dsclV1WGdaZ2IzWWd4TmVIb2Q1TUNCbWRrbU1Eeld5M3VkaTUzS2hhRnBBT1NOWDBhU2FTWWNSNmhXbVdDZzZ4VXBQaThHbm1TUnNsemVvMjBBeGZFd2pTek5jN1lrU2R2Vms2T01SS1RZckRwbG5IRXpMbUwxblczQzF3VnVDM1NxajNyODdkS2M2M2l5OEY5WTc1YllqQVYrZ0cwSXloSWJJNWJ6YkltekUwUkNacDFsd1Fyd2p6bzNOVDdHV1NaaDZZWnFiWVk1cXhQUVgybUdac1Q0RTkvV2pHMEJCTU00WUNNTTBZQ3FBZnpUU2VDeDlmTU0yTTZHSm4zWjR5bXNXczRIaWRGbTJNaUJuRGhRdUJhYWFoUFhYZXJNOEtqZzlETkdzdmhRc1hBdE5NUTNzam9GblBDbzdBc3Vwc3BacmZEZ2dkbXd2SGJxY25hd3puRHg5SEl2TWJOM3ZxYVJaY3dWRXMyb2hrQ3dvZDcxVWVpYmNGZUFoZ0NoVFRMTEtDSTdhWjY1V2JQVUpIZjNGdHBwa3BVRWV6ZmlzNExyck5GNjY2UWFIai9ScDhkQXNYQXROTVF5aWMwSWlzNEhnWFI1cm8yVFpvMFdOUDZHaC9YbVJabzJIUWI5N01pSkhYdU5sam1yRTlCZllpTk52Snpld2VtVW01S0VPQ2FXYUt2VEROV2lkYjU5M1dpYldVeXpJY21HYW0yQXZUYk84Tm9Obk8xRmJLWlJrT1BBUXdCVEdOWmk0M21RMW54alF6QnZGRGdIOW1nMmRNTTFQUVE3UFc4WnhBUnR3WjA4d1U5SHF6RzdKUGxtVnZsdmEwdnhGZDdLemIwMi9lakdtbW9iMEl6YkRoblBaT1lyU0lsYXBsK1J0ZUJoWmJkTmM5bGFKanpmMzkzZTRHMDVpVGRwYnVaaExvWFo2Umt0aTlTemt5elV5eEY1blFXSjZCMGFZL1BSdlZJbDYvdkgzNml5dGRBOTRxZUw1S3NYbXEwUzdhM1EybUtXZm5yVnFuWE9xOWRHaDV4dllTcG9vcFhBaE1NdzN0UmFabm44SHVtZDgzaTlFaVVsaW5ERTZNWklpQ1puQStXeEc2bm52a283d05wbVZPSkZEZHhsemJ4ZndIbGwwSE4wY1JVdE1Jdms3UURHeVEyUVBJR2xPVzdmRXhoV09rMGZ4b0JUNytFS1paUUl0SVlmV1NXeGN5UkVHenV1M0NWMUlwYnBCSDhqZVlGam1GTjhOY3VCampScTE5Mjl1T0dxbnBkSFBYODErUVdicTZFbS9HVUlENENZM2VSck5YaTBoaHdJUG1JdW5EQk0zV0srSXJlRE5CRVcrRGFaa1QvQmowelNoWDU2MDdOOC9lOTAyaXBoR1ZRUTMwWnVWUzUzS0R6QVlLRndMVFRFUEVUbWpzUHV0RngyZ1JoVGVERTl1bldmTXNyckNZM3lhVkl1NVU3dGplQnRNeXAraDFVUzYzZnVvdXJxZ3RJa2pUNkNDRDhWMlRLdFBNVEVRYXpkWGU2ZG1JRnJFR1gyelJOME1aNGpGYWJCRmJQT3VjVkNrNkZxMjRTQnRNeno1UE9ZOHVZRWFSQ3h3ZE5NT2V5UWI2U3JpSVJZYnlEY2Nxa2JveFVMZ1EwcWFaRVYzc3JOdUxLalQyM25CYjUxTXV5bVB3Q0RwdlYyTENXYUZoaXIwSXpjNjdPNFc5WDZoOUNsRHY4MVl3MDh3VWU1RkdjM055YmJVN1B6dGFNTTFNc2NjS0RZWUM5RTVvbkZnVGN4cXMwR0NraW9nM3U5SHpGR0MwWUpxWmdzZ1FJQ092QVJDWVpxWWc0czNvT1ZPV3Zaa1JYZUp4c3hmeFpwbnZtNlU5elc5RU5XYmRubjU5TTZhWmh2WmlKelM2enpSSEM2YVpLZllHUE5PTWs4N1NSL05zeEV4UUNkc3A0ek5OU0NjZWlPSW5TaUx4dzVIcnM5Q2NmN3Vyc0NVSUlTNnBhRXZCd29YQXo4WTF4S0JubWpITGVKSitOckpqZVVnSkMva29jZk81bXR2K1VlV3JCbW9WRjFFRzlLRzBLbFlDN1NwczNlNzFVS25oU04wMzA4d1VESHFtR1NPZHBRK1N0OWJCSlRrdlBuZnJKWks2WW9wMjBYWW83TTdwQnFXckkvWHdvM2tWZFdxT0RUNnVJWVNNblhMK2t1MHBiT3U0bnlhZSt6UkRnVVovOVd3RzFLQjhUSFljOUV3elRqcUxIK0NsVUx2b25DdVQxQldJSkZLZ0NCYjRnczZMMGxXeDdRUEtWSzE1VkpBMXozN1ZJRGFLbFVEZjdTcHNYYWRFNTRKbVJmL2xGUFptcG1EUUMzUngwbGxxUEVuT1NJb3lsM1l2OS9ZelI2MjExRDFpT3QrYmRkNnFrVGVEVTA5alMvcElxYkJGVTY2ZnI3MkV3c2hBNFVMZ0lZQ0c5Z2JSTEVZNlN4OUVzNDJhSTJrR1JCSXBJTHc2ZDR2b0l0TEJ1QUQ3WjY1N1UvYk41RXNscUxGZFhLOTRDbHMwUmVja3hJVkdzMjRIQ3hjQzAweERlNzJQemsvMlJrYWxzdy94ZytTdGRjdktYOEwxMVMxb09mMk55bEg3Q21QSmVVb25SNXBWOG9Xb3VhMExjeFlxYmMrVmp5NEloZTNjMjViMTFDdDBEbVBRYTBYTDdwU0YvSXlmQXBoaUwvektTZEw1ZnljNjZrd1BURE5UN1BYUzdEdzliRXF3Vm1OMzF1c3d3SS9PVFVGYzMyd3owODgwR1JvaTdNM2N2ZVhNUERsbm1obUQ2T3ZBaFJHV0pnU21tU2tJaTdSSFdKUW9lQWhnaWozOTFqY3o0cmFQbXozOWFNYlRzeHJhWTVvWlVZMVp0OGMwWXlqQUVEU0xrVHRlbzNWV3R1WENqUjdvV1JNK0YrOElLUWRwR3pzc2F4eERET1BONG5ZdFgzSTdsei9JZDJrR0FWTFZpSHRqTnEvUzBsUDAvSnhsaldPSUE5RXNzR3Y1VXVjS0VHMmJsSTNna0d6SHNxVU9DSFVlbjhsbFFlVmVyU3hySExmalFXald1MnY1UE5Dc1FaSXpsS1Y5dXVpckduRk5QWklBQ1cxajFtU05SblN4czI1dmFKcUZkaTBYM2t6UURJa0Q3YU9uYW15Ly9GZWhOQXQ0TTVZMWpwZTlZV2dXdDJ2NUVvYlRncDdWdWJkTFJETmYxVmpGWnJXbmI4YXl4akd6TjlTRVJrVHVlS2NvM2hNbzRUZ1JQM0RMY3FscWxKbzBXZ0MwS2tlYUxHc2NNM3Y2elpzeE5BVFRqS0VBVERPR0FqRE5HQXFnSDgyTTZCS1BtejJtR2R0VFlJOXB4dllVMkdPYXNUMEY5dlNqR1VORE1NMFlDcENVWnYwMGphVndRbHpTa1NTSytjOFhMQXZYUTB0cHRVYUdoa2pzemVJMWpVNUEwVWpvMEpLT3BIYjh0TlM1V0VsdnRVYUdoaGllWmtGTkkrM01TaHVaUzFtak5TODJRbCtpRFF4eGRhclVWbXQ4a0xMc2p1MHBzRGMwemNLYVJ0ZmJ5SHhkYkYxT1N6cUtHRXlZM21xTlJveTh4czNlY0RRTGF4cFJpRWdibVJQRFNQUWpsblFrYjRZeTJ2UldhelRpdG8rYnZjUTBpOWMwNGw3bmN2dno2dHd0cEora21VczY3YzZWOUZack5PSzJqNXU5NUJNYXNackdUaG02VnhhMWlGWUp0eTZmbHh1aDA3Ym9GcTUzbk5acWpRd05jUmp6WnYyMkxrOE1wcGtwT0F5YTlkdTZQREdZWnFhQW53SXdGRUEvbWhuUkpSNDNlMHd6dHFmQUh0T003U213eHpSamV3cnM2VWN6aG9aZ21qRVVnR25HVUlCOTB5eEd6M2k5N0dzcHVzbkVpbzFTN29pN2hoMWQ4TldMd2EycVdkWTRUdGkvTjR2VE00WldBUVhVaFNMUmo0Yi9YZlZpejFiVnc4b2FqZWdTajV1OUlXZ1cwRE9lYnRUUFdHZXNrdk5TY2U0T1NScHg4YW1GWTdlOWFLS1pWQy9Lbk5YWlNwWDJSSnhuV2VQWTJFdE9zNkNlOGZSMmNkNlpiNzVLVzFHVDFneG9kcS95cU9iSkhTMVViWGpxUlpHVDlHYVVsbVdOWTJNdkljMUNla2JjQmhoRlpyUVZ0VWN6MmR1aWFQSm1VcjNvNVZ5djNHeVE4cEZsaldOamIvODBpOU16Qm1oV0Y1TEd1NWNiOTJ0QU9Sa3RhQ2JVaXpLbjIzemhLbVlIUWcwbGEyUm9pQVFUR2hFOTQ5Mnk5UjNvVTFuVzNDM0xrelE2VnVsemNFNFBoZHhSakRTRmVuSDJlWkd6Z1M0UmxZL0hpaXhySEJla00yK1dlQ3ZxL1NrZm1XYW1JQldhSmQrS2VuL0tSNmFaS2REdktZQVJYZUp4czhjMFkzc0s3REhOMko0Q2Uwd3p0cWZBWHJacHhqQUZWSjhacFZrc3NqNzg1UEwxQmRNc1BYRDUra0lubWpHMEJkT01vUUJNTTRZQ01NMFlDcUFKeldpWlpQK1FQY2lDT1ZiU1I3eHE0RDE2SHRuOTA0Tm1jaWsrZWNnZXZJSjlPT3FDOUFQdTBEeksrNmNIemVUQ290NzZvcG1ETEJndDVKeEpDSnFON3Y3cFFUTmFKdGsvWkEreVlMU1E4NmpMRWd0QnM5SGRQejFvcG9rM2M2a21zd2oyWnZ1QkxuMHpXWjNaQS9mTjlnVmFKcmxFaDB4Q2xLK2UwcEtvNlFQZnhCamwvZE9FWmd5OXdUUmpLQURUaktFQVRET0dBakROR0FyQU5HTW9nRmswMjh6bFpqNWFDUVh1L1h5bDlUUUZ5a01QNHNMOHdOMG50L29sZVR5aTJZWTBSQ1g1MXVPVFBMR1dxRFNKOFBzRDVUYUxacXRUVys3bVJQaUdySXFRQ1AxNlltUFJPajYxOVpna0lmZ1g2WE8xZmVXTmdlRDdRT3d0VHc2aTJRRnhRSmFhUkxQZHIrT3QyQ21FZ3NHYjRhSFAzNk9NN1dPUmFuZGdrbDc0RnhuaXIzOUFscjFmN0lOQnJST0hTRE8zOWN4amlUNEFKdEZzYzByZUNXdzc0YTcvTVFjQk83bmNCRGFhY0N6Z24yUWdyblU4TjdsR0hOcGJ6azJETi9nekJyUk92RDd4bTZkWEtITDN5ZGR5MDBTejFSd1p4NHlRbjA0eDRhK2ZmQzgzOVhGdTZwUGprMnZnOU9naW1ESG1haTY1aEYyWlljdXpKRk84UHZFckw2OU12Z2xmdmN2dVRDUGxaVTV4OFVCSytzWGVXU0FDZmhWOFgvV3YzUzFITjQxL3NkeU0rTVZIdkxzUUxzUnErTTgzQ1V5a0dmaWczU1BmQitaZ3RUNnhCazRPR1BCdjVNckVTakJ1Y3dZSUpGd1Zlb0l2S2VEQ01sUTdKS1RJM1NPRnZlVUNmTm1Cc0JsQlJ4Y0M4ZlRia0JET29YYW1zZmQzQWdtTEY2R01NVmR6c2ZXOTRHVzRJQzE1S1daY0wrOEZrUnlZdFRvakx3dmhidmRTRkJoSTZSSU5WekZXL2lnWnNUbmRMYm00dGt6ZVRTUERxQlFGK0lkTmQ1OUNiTTRjb0dwTXBCbmVFTGpyVlBGWVFjUWxwSk00OStPdzZncXlSWVFiZVdPTEFwQnhYaVEybWtRYitHc0hXc2lHYVhPR1R2RzdNQVJVbEYra2F5ekVYVTBNUmdJWnlKS1h3dlh6aWlUa1BMekxZaW8vcHdqc3BuU2xwd244S1BGMVp6cFFjdi9hK0d1N2FmeTdoSGNBYm1EclpMOUNNTTBrUk45czk4MU51aWw5YUJhSTI0RS9jSTltdTAvODZVMlhBbVNWMC9jdXpXU0w0WkZEVm1zY3pYeXJvYXU1OFRUelVyaCszbUFOeTh2MjBnd0RBeW5kSHBvRklzajNlaWFDTkF1a2tYZHBXbnJNd2tkOUM4RTA4NEFqVGVpcUF0MzhHN2dEdmEvbHlmZDltZ1hqVm1XTDZPZWxBRm5sOUIxb0JrMEhPUVlYLzg1cHdDVWFrOWJKTU0xYXgvRTZybTgxZERVM1JETmh5VThoZW9BRm43RTc2Rm04eTJMZnpNOUpnWUdVR0krSkF6OUttcGdSV2NsRXNCeUJOT0pUbEFJUzV3SjNJVlFJN3B2NVdNVStMN241QW55ZjNvUzdCa0c1Z3ZoQ2gwRGN4N21KYjB5K0xqdlJ1OC9pWFlhQTcxRWlFZm4rTXFZV3VXbTZBTHJKT1p6ZVdKVjlhekFFaC9mbzI4UTNjYVJRSUNOcjBhdHRZYm1tWHZNeWZDSXR5UlRVc3kvSUFzaUNUNnk0OHJJNDBneGVDc2NZM1pUMHd5ZFdBajlLUlB6ckNBNHZwQWx4YlpFOGtGbUdVU2xjd2FYNFF2QklVeUhTbXpSSVptbncxR3NmZkFrc3ZwR0lISHUvN0pjOHdhUk9ISmhtaVRBcW11M25LVUFZeUl6VytVUlpJbk9PUHZncGdFSkFwM3JxSUczSFlWanFqeDNSaGRnM1ZtbEllaWhnbWpFVWdHbkdVQUNtR1VNQm1HWU1CV0NhTVJUZy80UEhFeVVQVnY1d0FBQUFBRWxGVGtTdVFtQ0NcIiAvPlxuXG48IS0tIHJuYi1wbG90LWVuZCAtLT5cbiJ9 -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAC4CAMAAAB+WdDOAAABv1BMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshawP9mAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///39/f/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///8y3AOWAAAACXBIWXMAAAuwAAALsAEaOBByAAARjklEQVR4nO1dj3/bRhV3flAGgyjpXELX0eGwrcuQ2SgNK3VgjJXRuCsd3do6sAKLk9EyCq0zBovbsZG5mdqY2bH+YN57d5JlSXYjRznrzu/7aS3rfjyddd+8+6Gv7nIug3HoyI26AIxxANOMoQBMM4YCMM0YCpBRmn2NYQqoPrNKs1EXgJES9KPZg5QvwvYU2GOasT0F9phmbE+BPaYZ21NgTz+afZeRESSuSaYZIzkS1yTTjJEciWsyZZq1i1a+Ubfmam7zBxU8zf/lGgZhHIZ0ypZlzV4rzkJkpwzJurnw07JKwcKFMOqby/CQgBGH483ap4FS94E+j35iu269BNyiIFeG4MnDSvvivOv+78e1nlxue8l1BCOZZtmGqI8RDgF8mn2IjCHWeDSjEDh5WHHbv3u55n7221rdmr1ezl+yuzSbd8WTpgcP6Ec8CB5HfXMZHkR9PAjVT+zxcGnWvt0GJrmOZXs0EyHQMkKD2X6nWur8bQMTlNqn3/W8WdGal2bYm2Uaoj5G7c2AP47Xz6qXJM1EiPRm7zRP/fcfGzUgVsl1bL/RbJ5qBAsXwqhvLsODqI8R0qxzsUKk+ayBDaCDJMLT5lkZQieL7Xc6F19tbNQ2ak6pubheEUmg0azbwcKFMOqby/CQgBCHNKHRXIBWEQaUJbdq5f/zvDV3BweQ0AWjkKdegRPrZ+DEHBsGpG9bEHKufHRBjD8tu1PGMSgrNMyBfvNmDA3BNGMogH40M+JR8rjZY5qxPQX2mGZsT4E9phnbU2BPP5oxNATTjKEA+tFs1HPf+kB1dQ0A08xcqK6uAVBAM5I2Cjj4sJJEGz7aQb1jbOFCGHXl6YP46jB1CEBCRkKnbIfi2ktuj94xrnAhjLry9EF8dZhKMxIy1s9YZ6yS8+LCXA141S7OVpo/Lc7VHMvu1TuicLtqvXiVZY0HR7zMcF8yxATHEcoagyAhY7s478w3zwKTHLueb9yrOD8sz9XWK58u9uodIcKGlrUuXgZgb3YgxNeHod5MCBmdkmMDzWy3udi53KhaFpAOSNX0aSaSYcR6hWmWCg6xUpPi8GnmSRslzeo20AxfEwjSzNc7YkSdvVk6OMRKTYrDplnHEzLmL1nW3C1wVuC3Sqj3r87dKc63iy8F9Y75bYjAV+gG0IyhIbI5bzbImzE0RCZp1lwQrwjzo3NT7GWSZh6YZqbYY5qxPQX2mGZsT4E9/WjG0BBMM4YCMM0YCqAfzTSeCx9fMM2M6GJn3Z4ymsWs4HidFm2MiBnDhQuBaaahPXXerM8Kjg9DNGsvhQsXAtNMQ3sjoFnPCo7AsupspZrfDggdmwvHbqcnawznDx9HIvMbN3vqaRZcwVEs2ohkCwod71UeibcFeAhgChTTLLKCI7aZ65WbPUJHf3FtppkpUEezfis4LrrNF666QaHj/Rp8dAsXAtNMQyic0Iis4HgXR5ro2TZo0WNP6Gh/XmRZo2HQb97MiJHXuNljmrE9BfYiNNvJzewemUm5KEOCaWaKvTDNWidb593WibWUyzIcmGam2AvTbO8NoNnO1FbKZRkOPAQwBTGNZi43mQ1nxjQzBvFDgH9mg2dMM1PQQ7PW8ZxARtwZ08wU9HqzG7JPlmVvlva0vxFd7Kzb02/ejGmmob0IzbDhnPZOYrSIlapl+RteBhZbdNc9laJjzf393e4G05iTdpbuZhLoXZ6Rkti9SzkyzUyxF5nQWJ6B0aY/PRvVIl6/vH36iytdA94qeL5KsXmq0S7a3Q2mKWfnrVqnXOq9dGh5xvYSpoopXAhMMw3tRaZnn8Humd83i9EiUlinDE6MZIiCZnA+WxG6nnvko7wNpmVOJFDdxlzbxfwHll0HN0cRUtMIvk7QDGyQ2QPIGlOW7fExhWOk0fxoBT7+EKZZQItIYfWSWxcyREGzuu3CV1IpbpBH8jeYFjmFN8NcuBjjRq1929uOGqnpdHPX81+QWbq6Em/GUID4CY3eRrNXi0hhwIPmIunDBM3WK+IreDNBEW+DaZkT/Bj0zShX5607N8/e902iphGVQQ30ZuVS53KDzAYKFwLTTEPETmjsPutFx2gRhTeDE9unWfMsrrCY3yaVIu5U7tjeBtMyp+h1US63fuourqgtIkjT6CCD8V2TKtPMTEQazdXe6dmIFrEGX2zRN0MZ4jFabBFbPOucVCk6Fq24SBtMzz5POY8uYEaRCxwdNMOeyQb6SriIRYbyDccqkboxULgQ0qaZEV3srNuLKjT23nBb51MuymPwCDpvV2LCWaFhir0Izc67O4W9X6h9ClDv81Yw08wUe5FGc3NybbU7PztaMM1MsccKDYYC9E5onFgTcxqs0GCkiog3u9HzFGC0YJqZgsgQICOvARCYZqYg4s3oOVOWvZkRXeJxsxfxZpnvm6U9zW9ENWbdnn59M6aZhvZiJzS6zzRHC6aZKfYGPNOMk87SR/NsxExQCdsp4zNNSCceiOInSiLxw5Hrs9Ccf7ursCUIIS6paEvBwoXAz8Y1xKBnmjHLeJJ+NrJjeUgJC/kocfO5mtv+UeWrBmoVF1EG9KG0KlYC7Sps3e71UKnhSN0308wUDHqmGSOdpQ+St9bBJTkvPnfrJZK6Yop20XYo7M7pBqWrI/Xwo3kVdWqODT6uIYSMnXL+ku0pbOu4nyae+zRDgUZ/9WwG1KB8THYc9EwzTjqLH+ClULvonCuT1BWIJFKgCBb4gs6L0lWx7QPKVK15VJA1z37VIDaKlUDf7SpsXadE54JmRf/lFPZmpmDQC3Rx0llqPEnOSIoyl3Yv9/YzR6211D1iOt+bdd6qkTeDU09jS/pIqbBFU66fr72EwshA4ULgIYCG9gbRLEY6Sx9Es42aI2kGRBIpILw6d4voItLBuAD7Z657U/bN5EslqLFdXK94Cls0ReckxIVGs24HCxcC00xDe72Pzk/2Rkalsw/xg+StdcvKX8L11S1oOf2NylH7CmPJeUonR5pV8oWoua0LcxYqbc+Vjy4Ihe3c25b11Ct0DmPQa0XL7pSF/IyfAphiL/zKSdL5fyc66kwPTDNT7PXS7Dw9bEqwVmN31uswwI/OTUFc32wz0880GRoi7M3cveXMPDlnmhmD6OvAhRGWJgSmmSkIi7RHWJQoeAhgij391jcz4raPmz39aMbTsxraY5oZUY1Zt8c0YyjAEDSLkTteo3VWtuXCjR7oWRM+F+8IKQdpGzssaxxDDOPN4nYtX3I7lz/Id2kGAVLViHtjNq/S0lP0/JxljWOIA9EssGv5UucKEG2blI3gkGzHsqUOCHUen8llQeVerSxrHLfjQWjWu2v5PNCsQZIzlKV9uuirGnFNPZIACW1j1mSNRnSxs25vaJqFdi0X3kzQDIkD7aOnamy//FehNAt4M5Y1jpe9YWgWt2v5EobTgp7VubdLRDNf1VjFZrWnb8ayxjGzN9SERkTueKco3hMo4TgRP3DLcqlqlJo0WgC0KkeaLGscM3v6zZsxNATTjKEATDOGAjDNGAqgH82M6BKPmz2mGdtTYI9pxvYU2GOasT0F9vSjGUNDMM0YCpCUZv00jaVwQlzSkSSK+c8XLAvXQ0tptUaGhkjszeI1jU5A0Ujo0JKOpHb8tNS5WElvtUaGhhieZkFNI+3MShuZS1mjNS82Ql+iDQxxdarUVmt8kLLsju0psDc0zcKaRtfbyHxdbF1OSzqKGEyY3mqNRoy8xs3ecDQLaxpRiEgbmRPDSPQjlnQkb4Yy2vRWazTito+bvcQ0i9c04l7ncvvz6twtpJ+kmUs67c6V9FZrNOK2j5u95BMasZrGThm6Vxa1iFYJty6flxuh07boFq53nNZqjQwNcRjzZv22Lk8MppkpOAya9du6PDGYZqaAnwIwFEA/mhnRJR43e0wztqfAHtOM7SmwxzRjewrs6UczhoZgmjEUgGnGUIB90yxGz3i97GspusnEio1S7oi7hh1d8NWLwa2qWdY4Tti/N4vTM4ZWAQXUhSLRj4b/XfViz1bVw8oajegSj5u9IWgW0DOebtTPWGeskvNSce4OSRpx8amFY7e9aKKZVC/KnNXZSpX2RJxnWePY2EtOs6Ce8fR2cd6Zb75KW1GT1gxodq/yqObJHS1UbXjqRZGT9GaUlmWNY2MvIc1CekbcBhhFZrQVtUcz2duiaPJmUr3o5Vyv3GyQ8pFljWNjb/80i9MzBmhWF5LGu5cb92tAORktaCbUizKn23zhKmYHQg0la2RoiAQTGhE9492y9R3oU1nW3C3LkzQ6VulzcE4PhdxRjDSFenH2eZGzgS4RlY/HiixrHBekM2+WeCvq/SkfmWamIBWaJd+Ken/KR6aZKdDvKYARXeJxs8c0Y3sK7DHN2J4Ce0wztqfAXrZpxjAFVJ8ZpVkssj785PL1BdMsPXD5+kInmjG0BdOMoQBMM4YCMM0YCqAJzWiZZP+QPciCOVbSR7xq4D16Htn904Nmcik+ecgevIJ9OOqC9APu0DzK+6cHzeTCot76opmDLBgt5JxJCJqN7v7pQTNaJtk/ZA+yYLSQ86jLEgtBs9HdPz1opok3c6kmswj2ZvuBLn0zWZ3ZA/fN9gVaJrlEh0xClK+e0pKo6QPfxBjl/dOEZgy9wTRjKADTjKEATDOGAjDNGArANGMogFk028zlZj5aCQXu/Xyl9TQFykMP4sL8wN0nt/oleTyi2YY0RCX51uOTPLGWqDSJ8PsD5TaLZqtTW+7mRPiGrIqQCP16YmPROj619ZgkIfgX6XO1feWNgeD7QOwtTw6i2QFxQJaaRLPdr+Ot2CmEgsGb4aHP36OM7WORandgkl74Fxnir39Alr1f7INBrROHSDO39cxjiT4AJtFsc0reCWw74a7/MQcBO7ncBDaacCzgn2QgrnU8N7lGHNpbzk2DN/gzBrROvD7xm6dXKHL3yddy00Sz1RwZx4yQn04x4a+ffC839XFu6pPjk2vg9OgimDHmai65hF2ZYcuzJFO8PvErL69MvglfvcvuTCPlZU5x8UBK+sXeWSACfhV8X/Wv3S1HN41/sdyM+MVHvLsQLsRq+M83CUykGfig3SPfB+ZgtT6xBk4OGPBv5MrESjBucwYIJFwVeoIvKeDCMlQ7JKTI3SOFveUCfNmBsBlBRxcC8fTbkBDOoXamsfd3AgmLF6GMMVdzsfW94GW4IC15KWZcL+8FkRyYtTojLwvhbvdSFBhI6RINVzFW/igZsTndLbm4tkzeTSPDqBQF+IdNd59CbM4coGpMpBneELjrVPFYQcQlpJM49+Ow6gqyRYQbeWOLApBxXiQ2mkQb+GsHWsiGaXOGTvG7MARUlF+kayzEXU0MRgIZyJKXwvXziiTkPLzLYio/pwjspnSlpwn8KPF1ZzpQcv/a+Gu7afy7hHcAbmDrZL9CMM0kRN9s981Nuil9aBaI24E/cI9mu0/86U2XAmSV0/cuzWSL4ZFDVmsczXyroau58TTzUrh+3mANy8v20gwDAyndHpoFIsj3eiaCNAukkXdpWnrMwkd9C8E084AjTeiqAt38G7gDva/lyfd9mgXjVmWL6OelAFnl9B1oBk0HOQYX/85pwCUak9bJMM1ax/E6rm81dDU3RDNhyU8heoAFn7E76Fm8y2LfzM9JgYGUGI+JAz9KmpgRWclEsByBNOJTlAIS5wJ3IVQI7pv5WMU+L7n5Anyf3oS7BkG5gvhCh0Dcx7mJb0y+LjvRu8/iXYaA71EiEfn+MqYWuWm6ALrJOZzeWJV9azAEh/fo28Q3caRQICNr0attYbmmXvMyfCItyRTUsy/IAsiCT6y48rI40gxeCscY3ZT0wydWAj9KRPzrCA4vpAlxbZE8kFmGUSlcwaX4QvBIUyHSmzRIZmnw1GsffAksvpGIHHu/7Jc8waROHJhmiTAqmu3nKUAYyIzW+URZInOOPvgpgEJAp3rqIG3HYVjqjx3Rhdg3VmlIeihgmjEUgGnGUACmGUMBmGYMBWCaMRTg/4PHEyUPVv5wAAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrRmljMU5SVFhOVWIyNU1aRU52YmxCbGNtMXBiWEF1YzNablhDSXNJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHlMalFzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ3aWMzWm5YQ0lwS1Z4dUlDQjFibXhwYm1zb1hDSlFkSE5CUW1SQmJtNXZlVTF1UVdKelUxRk5jMVJ2Ymt4a1EyOXVVR1Z5YldsdGNDNXpkbWRjSWlsY2JpQWdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjSWxCMGMwRkNaRUZ1Ym05NVRXNUJZbk5UVVUxelZHOXVUR1JEYjI1UVpYSnRhVzF3TG5Ca1psd2lMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNaTQwTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luQmtabHdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1FXNXViM2xOYmtGaWMxTlJUWE5VYjI1TVpFTnZibEJsY20xcGJYQXVjR1JtWENJcFhHNTlYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BYnNTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFic1NRTXNUb25MZENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWJzU1FNc1RvbkxkQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BYnNTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAbsSQMsTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAbsSQMsTonLdConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnAbsSQMsTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAbsSQMsTonLdConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtGaWMxTlJUWE5VYjI1TVpFTnZibEJsY20xcGJYQXVjM1puWEZ3c0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQweUxqUXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRnhjYzNablhGd3BLVnh1SUNCMWJteHBibXNvWEZ4UWRITkJRbVJCYm01dmVVMXVRV0p6VTFGTmMxUnZia3hrUTI5dVVHVnliV2x0Y0M1emRtZGNYQ2xjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNYRkIwYzBGQ1pFRnVibTk1VFc1QlluTlRVVTF6Vkc5dVRHUkRiMjVRWlhKdGFXMXdMbkJrWmx4Y0xDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pNDBMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhCa1pseGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprUVc1dWIzbE5ia0ZpYzFOUlRYTlViMjVNWkVOdmJsQmxjbTFwYlhBdWNHUm1YRndwWEc1OVhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWJzU1FNc1RvbkxkQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BYnNTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFic1NRTXNUb25MZENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzU1FNc1RvbkxkQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFic1NRTXNUb25MZENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzU1FNc1RvbkxkQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BYnNTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFic1NRTXNUb25MZENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgIn0= -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAbsSQMsTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAbsSQMsTonLdConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnAbsSQMsTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAbsSQMsTonLdConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### Exclude tonal loudness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dGaWMxWmhjaXdnWlhabGJuUldZWElzSUdGdFlsWmhjaXdnYzJoaGNuQldZWElzSUhSdmJtRnNWbUZ5TENCbWJIVmpkRlpoY2l3Z2NtOTFaMmhXWVhJc0lHbHRjSFZzYzFaaGNpbGNibVJXWVhJZ1BDMGdYQ0prUVc1dWIzbE5aV0Z1WENKY2JseHVjMlZsWkhNZ1BDMGdZeWcxTkRZc0lEVTNNakF6TENBeU56QTRNelVzSURZd05Ua3lMQ0E0TURrMEtWeHVYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcblxuaVZhcnMgPC0gYyhhYnNWYXIsIGV2ZW50VmFyLCBhbWJWYXIsIHNoYXJwVmFyLCB0b25hbFZhciwgZmx1Y3RWYXIsIHJvdWdoVmFyLCBpbXB1bHNWYXIpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoNTQ2LCA1NzIwMywgMjcwODM1LCA2MDU5MiwgODA5NClcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
iVars <- c(absVar, eventVar, ambVar, sharpVar, tonalVar, fluctVar, roughVar, impulsVar)
dVar <- \dAnnoyMean\
seeds <- c(546, 57203, 270835, 60592, 8094)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR0ZpYzFaaGNpd2daWFpsYm5SV1lYSXNJR0Z0WWxaaGNpd2djMmhoY25CV1lYSXNJSFJ2Ym1Gc1ZtRnlMQ0JtYkhWamRGWmhjaXdnY205MVoyaFdZWElzSUdsdGNIVnNjMVpoY2lsY2JtUldZWElnUEMwZ1hGeGtRVzV1YjNsTlpXRnVYRnhjYmx4dWMyVmxaSE1nUEMwZ1l5ZzFORFlzSURVM01qQXpMQ0F5TnpBNE16VXNJRFl3TlRreUxDQTRNRGswS1Z4dVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcblxuaVZhcnMgPC0gYyhhYnNWYXIsIGV2ZW50VmFyLCBhbWJWYXIsIHNoYXJwVmFyLCB0b25hbFZhciwgZmx1Y3RWYXIsIHJvdWdoVmFyLCBpbXB1bHNWYXIpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoNTQ2LCA1NzIwMywgMjcwODM1LCA2MDU5MiwgODA5NClcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgc2hhcnBWYXIsIHRvbmFsVmFyLCBmbHVjdFZhciwgcm91Z2hWYXIsIGltcHVsc1ZhcilcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYyg1NDYsIDU3MjAzLCAyNzA4MzUsIDYwNTkyLCA4MDk0KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
iVars <- c(absVar, eventVar, ambVar, sharpVar, tonalVar, fluctVar, roughVar, impulsVar)
dVar <- \dAnnoyMean\
seeds <- c(546, 57203, 270835, 60592, 8094)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbnAgPC0gbXRyeVR1bmUoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkPXNlZWRzWzE6Ml0sXG4gICAgICAgICAgICAgbnRyZWVzPW50cmVlcywgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuYGBgXG5gYGAifQ== -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldYWTVjMHRzWlhrNFFYZG1LelptVGtGbU5FNDJlak56YmpSU2RqUldPUzh5WTJZcmVWVmxVa0oyTm1GaE0wSXhjbms0VEVOM2FIbE1jbVF2U1RZNVZsQlhSbVZ0VURCaWJXTXZOMW80YkhOMFdEZzVjeTlOVEdReGIweFlUakpxZERSa1QxWm1lbkp6TXk5WmJEWkROVGhYVHprdldVNTZNekJ2Wlhwd1UzaG1NME4zYjNaUFZEZENkV2RIYkRaUlQzSkNja2xVVkVsTVYzZDNMMUUwWnpWM1MwSXZVamh2TDFGT1MyWXlSMEZCYUZGUWMyVlpiRFZ4V1ZkQmVHdERXVWxOWjJkcGVFSjJjMGQxVlVSYVNGVklSbWhoVjBwU1lXZHhWWG9yZW5KRFNrNXBlVk13Y0hGdlUzbDFWRXhFUlc5MVN6UTRSV2x4UkZwM1JuVlhXRFk0Um5OQlZHMWtjVkZJY1VSdVUyNUtUMk5yUm5OUFkwRm9VR3RUYTJ0elUyUlNURXQzVEhGQ0wwd3JiMWRzYUhwNU9HOTVZM3BRUVRKd2FVRnJWVXRYUVU1WlIyOUxVa1JYU1hObmIxbFJielJOUjB4RFUyZG1RVVUwU0RGdFJGRkhhMlY1VGxWd2RYTnJXbkJZYmxwMWFHSnRZVkJNVFVKWWJuQlRVRmw0VVVnelNFTkpNRlZIU25OV05HMVRiUzh4UkhSdVRFUkJVekF6VDNsSlpYa3lWa3g2TUdwUWVsVnRSVUpzY0dGYWNteGxaVzFXUzFOQlVYTkVhMFZDUjJGdFdqWlNaMnR6Y1VoSlUyc3hTbnBaUVRWS1UxTXlSRTEyYlVGWlVUQlBZWEl5UTI5emR6aHRSMjkxYjBkcGVGaHJiQ3RUVTBwTlF6RmtlV1puTlUxQ1FubHhSRkE0UVhOb2RqTmFaMVZFUVVGQlBTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNzA1NjkzNFxcLFxcMlxcOlxcMC44Njk1MTU5XFwsXFwzXFw6XFwwLjU5MTUyMzVcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42NzIyNzk1XFwsXFwyXFw6XFwwLjg3ODgwNDRcXCxcXDNcXDpcXDAuNTQ4NjI5OFxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjYzNTcwNjBcXCxcXDJcXDpcXDAuODc4NTM0MlxcLFxcM1xcOlxcMC41MjUyNjQwXFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjU0NDI4N1xcLFxcMlxcOlxcMC44NjI0OTI1XFwsXFwzXFw6XFwwLjUyMzYxNzBcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls0XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG5cbjwhLS0gcm5iLWZyYW1lLWJlZ2luIGV5SnRaWFJoWkdGMFlTSTZleUpqYkdGemMyVnpJanBiSW1SaGRHRXVabkpoYldVaVhTd2libkp2ZHlJNk5Dd2libU52YkNJNk5Td2ljM1Z0YldGeWVTSTZleUpFWlhOamNtbHdkR2x2YmlJNld5SmtaaUJiTkNERGx5QTFYU0pkZlgwc0luSmtaaUk2SWtnMGMwbEJRVUZCUVVGQlFVSm5kSGxwVkVSdGFYVkNhVmxIUW1kYWJVSm9XVmRLWjFwblZYbEhWbWhFVVRsNE1FeFNaMWxuUVVsTlJFbDNUVXhCZVdOSlRHOURjVVZuV1VwQmRrVm1SVVJOV1hZcll6bGphWFZYWlhCSE9Xc3ZNMDVEWkc5S2FXNWFVSGx1VlhVMVZGZDJZM1lyZVdJcmRIaFJlVk5MV0VJeGNqRmpLekYyTm14dlIwd3ZhRzVzTHpGUWJqbDZLek5tTWtKU1NqRlVRM056TXk5a09DdHlaVkIxT1M5alNGZFFURm8xVFdJM2JHbGlaaTkzVm1kVWFsZ3lZM0FyZDJadWVraG1MMWRETVdzdkswUkRRelFyTDBoMmRVSmhibWhDTm5ORGRXaGtRV2QwTjBSQ09VUjFRVzVCYzBVNWJpdG5PVUU0Ynk5WlZVSkRiRUU0ZUVweFdHMUtkR0ZFUjFGSlowRXlRME5NU1VVclVXRTNVWFJyWTFGalYwWndXV3hHY1ZOc1VWQnlUM1pKTUhsTFNtSmxhM0ZDVEVzMWMyOU5VM2wzY1dwblpVeHZUbkpCVjFwU1puSm5aWHBDWlZJd2NHZGhiMDg1UTJScmNIbFVWMEY0ZWtOcmVWRkxlVmQ0U2taRmRuSlJhVzlJT0dvM2FEWmhSbEJpSzJkS1JFMHZSRFpwU2tOU1VYQlpRVEZuWVZGb1IwNXZhWGhEUW5CRGFrRTBZWE5LUTBFNFoxaG5aa2RSVGtGeFZqVkpSbVZ1TmtOYWJteFBXbXcyTVhGWmJ6aHJla1lyVTJ4Sk9XNUlRVkJWWkVsNlVsTlpSM2hYYVVwUFdpOXJUekZqT0VsRFRIcFZOVWw0TDB0YWEzWk9Vemd2VFZNMFZVWlhSbkJ0ZFd3MU5WcHJjRXBDYVhkTlVVRkpXbkZhYm5CSFUxZDNiMDF3U2xSRmNrNW5WR3RyU21KVlRYbDFVVVJvYWxVMGNWQlZTMmxxVEhwWlMzRTFaMHRNUm1WcFdEVktXV3QzVEZaNlNpdFVhM2RGV0VOdlRYWjNSRUZCV2xoUmVFMUdRWGRCUVNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC43MTk0NTQyXFwsXFwyXFw6XFwwLjg2NDQ4ODJcXCxcXDNcXDpcXDAuNjAwNjk0OVxcLFxcNFxcOlxcM1xcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY3OTI2MTlcXCxcXDJcXDpcXDAuODc1NDU3NVxcLFxcM1xcOlxcMC41NTc5MDMzXFwsXFw0XFw6XFw0XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjM4ODE2M1xcLFxcMlxcOlxcMC44ODIzNzg2XFwsXFwzXFw6XFwwLjUyNTE3MzFcXCxcXDRcXDpcXDVcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NTYwOTI0XFwsXFwyXFw6XFwwLjg2MDk1MThcXCxcXDNcXDpcXDAuNTI1NTAxNFxcLFxcNFxcOlxcNlxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzRdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWXY5c0tsZXk4QXdmKzZmTkFmNE42ejNzbjRSdjRWOS8yY2YreVVlUkJ2NmFhM0Ixcnk4TEN3aHlMcmQvSTY5VlBXRmVtUDBibWMvN1o4bHN0WDg5cy9NTGQxb0xYTjJqdDRkT1ZmenJzMy9ZbDZDNThXTzkvWU56MzBvZXpwU3hmM0N3b3ZPVDdCdWdHbDZRT3JCcklUVElMV3d3L1E0ZzV3S0IvUjhvL1FOS2YyR0FBaFFQc2VZbDVxWVdBeGtDWUlNZ2dpeEJ2c0d1VURaSFVIRmhhV0pSYWdxVXorenJDSk5peVMwcHFvU3l1VExERW91SzQ4RWlxRFp3RnVXWDY4RnNBVG1kcVFIcURuU25KT2NrRnNPY0FoUGtTa2tzU2RSTEt3THFCL0wrb1dsaHp5OG95Y3pQQTJwaUFrVUtXQU5ZR29LUkRXSXNnb1lRbzRNR0xDU2dmQUU0SDFtRFFHa2V5TlVwdXNrWnBYblp1aGJtYVBMTUJYbnBTUFl4UUgzSENJMFVHSnNWNG1TbS8xRHRuTERBUzAzT3lJZXkyVkx6MGpQelVtRUJscGFacmxlZW1WS1NBUXNEa0VCR2FtWjZSZ2tzcUhJU2sxSnpZQTVKU1MyRE12bUFZUTBPYXIyQ29zdzhtR291b0dpeFhrbCtTU0pNQzFkeWZnNU1CQnlxRFA4QXNodjNaZ1VEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7056934\,\2\:\0.8695159\,\3\:\0.5915235\,\4\:\3\,\5\:\2.25\},{\1\:\0.6722795\,\2\:\0.8788044\,\3\:\0.5486298\,\4\:\4\,\5\:\1.75\},{\1\:\0.6357060\,\2\:\0.8785342\,\3\:\0.5252640\,\4\:\5\,\5\:\1.50\},{\1\:\0.6544287\,\2\:\0.8624925\,\3\:\0.5236170\,\4\:\6\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[4]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWXYrYzljaXVXZXBHOWsvM05DZG9KaW5aUHluVXU1VFd2Y3YreWIrdHhReVNLWEIxcjFjKzF2NmxvR0wvaG5sLzFQbjl6KzNmMkJSSjFUQ3NzMy9kOCtyZVB1OS9jSFdQTFo1TWI3bGliZi93VmdUalgyY3Ard2ZuekhmL1dDMWsvK0RDQzQrL0h2dUJhbmhCNnNDdWhkQWd0N0RCOUR1QW5Bc0U5bitnOUE4by9ZVUJDbEE4eEpxWG1KdGFER1FJZ0EyQ0NMSUUrUWE3UXRrY1FjV0ZwWWxGcVNsUVByT3ZJMHlLSmJla3FCTEs1c29NU3l3cWpnZUxvTnJBV1pSZnJnZXpCZVIwcGdhb085Q2RrcHlUV0F4ekNreVFLeVd4SkZFdnJRaW9IOGo3aDZhRlBiK2dKRE0vRDZpSkNSUXBZQTFnYVFoR05vaXhDQnBDakE0YXNKQ0E4Z1hnZkdRTkFxVjVJRmVuNkNabmxPWmw2MXFZbzhrekYrU2xJOW5IQVBVZEl6UlNZR3hXaUpPWi9rTzFjOElDTHpVNUl4L0taa3ZOUzgvTVM0VUZXRnBtdWw1NVprcEpCaXdNUUFJWnFabnBHU1d3b01wSlRFck5nVGtrSmJVTXl1UURoalU0cVBVS2lqTHpZS3E1Z0tMRmVpWDVKWWt3TFZ6SitUa3dFWENvTXZ3REFBWlhReE1GQXdBQSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7194542\,\2\:\0.8644882\,\3\:\0.6006949\,\4\:\3\,\5\:\2.25\},{\1\:\0.6792619\,\2\:\0.8754575\,\3\:\0.5579033\,\4\:\4\,\5\:\1.75\},{\1\:\0.6388163\,\2\:\0.8823786\,\3\:\0.5251731\,\4\:\5\,\5\:\1.50\},{\1\:\0.6560924\,\2\:\0.8609518\,\3\:\0.5255014\,\4\:\6\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[4]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qUXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTkNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaZGpselMyeGxlVGhCZDJZck5tWk9RV1kwVGpaNk0zTnVORkoyTkZZNUx6SmpaaXQ1VldWU1FuWTJZV0V6UWpGeWVUaE1RM2RvZVV4eVpDOUpOamxXVUZkR1pXMVFNR0p0WXk4M1dqaHNjM1JZT0RsekwwMU1aREZ2VEZoT01tcDBOR1JQVm1aNmNuTXpMMWxzTmtNMU9GZFBPUzlaVG5vek1HOWxlbkJUZUdZelEzZHZkazlVTjBKMVowZHNObEZQY2tKeVNWUlVTVXhYZDNjdlVUUm5OWGRMUWk5U09HOHZVVTVMWmpKSFFVRm9VVkJ6WlZsc05YRlpWMEY0YTBOWlNVMW5aMmw0UW5aelIzVlZSRnBJVlVoR2FHRlhTbEpoWjNGVmVpdDZja05LVG1sNVV6QndjVzlUZVhWVVRFUkZiM1ZMTkRoRmFYRkVXbmRHZFZkWU5qaEdjMEZVYldSeFVVaHhSRzVUYmtwUFkydEdjMDlqUVdoUWExTnJhM05UWkZKTVMzZE1jVUl2VEN0dlYyeG9lbms0YjNsamVsQkJNbkJwUVd0VlMxZEJUbGxIYjB0U1JGZEpjMmR2V1ZGdk5FMUhURU5UWjJaQlJUUklNVzFFVVVkclpYbE9WWEIxYzJ0YWNGaHVXblZvWW0xaFVFeE5RbGh1Y0ZOUVdYaFJTRE5JUTBrd1ZVZEtjMVkwYlZOdEx6RkVkRzVNUkVGVE1ETlBlVWxsZVRKV1RIb3dhbEI2VlcxRlFteHdZVnB5YkdWbGJWWkxVMEZSYzBSclJVSkhZVzFhTmxKbmEzTnhTRWxUYXpGS2VsbEJOVXBUVXpKRVRYWnRRVmxSTUU5aGNqSkRiM04zT0cxSGIzVnZSMmw0V0d0c0sxTlRTazFETVdSNVptYzFUVUpDZVhGRVVEaEJjMmgyTTFwblZVUkJRVUU5SW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MDU2OTM0XCIsXCIyXCI6XCIwLjg2OTUxNTlcIixcIjNcIjpcIjAuNTkxNTIzNVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY3MjI3OTVcIixcIjJcIjpcIjAuODc4ODA0NFwiLFwiM1wiOlwiMC41NDg2Mjk4XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjM1NzA2MFwiLFwiMlwiOlwiMC44Nzg1MzQyXCIsXCIzXCI6XCIwLjUyNTI2NDBcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42NTQ0Mjg3XCIsXCIyXCI6XCIwLjg2MjQ5MjVcIixcIjNcIjpcIjAuNTIzNjE3MFwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzRdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjQsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZdjlzS2xleThBd2YrNmZOQWY0TjZ6M3NuNFJ2NFY5LzJjZit5VWVSQnY2YWEzQjFyeThMQ3doeUxyZC9JNjlWUFdGZW1QMGJtYy83Wjhsc3RYODlzL01MZDFvTFhOMmp0NGRPVmZ6cnMzL1lsNkM1OFdPOS9ZTnozMG9lenBTeGYzQ3dvdk9UN0J1Z0dsNlFPckJySVRUSUxXd3cvUTRnNXdLQi9SOG8vUU5LZjJHQUFoUVBzZVlsNXFZV0F4a0NZSU1nZ2l4QnZzR3VVRFpIVUhGaGFXSlJhZ3FVeit6ckNKTml5UzBwcW9TeXVUTERFb3VLNDhFaXFEWndGdVdYNjhGc0FUbWRxUUhxRG5TbkpPY2tGc09jQWhQa1Nra3NTZFJMS3dMcUIvTCtvV2xoenk4b3ljelBBMnBpQWtVS1dBTllHb0tSRFdJc2dvWVFvNE1HTENTZ2ZBRTRIMW1EUUdrZXlOVXB1c2tacFhuWnVoYm1hUExNQlhucFNQWXhRSDNIQ0kwVUdKc1Y0bVNtLzFEdG5MREFTMDNPeUlleTJWTHowalB6VW1FQmxwYVpybGVlbVZLU0FRc0RrRUJHYW1aNlJna3NxSElTazFKellBNUpTUzJETXZtQVlRME9hcjJDb3N3OG1Hb3VvR2l4WGtsK1NTSk1DMWR5Zmc1TUJCeXFEUDhBc2h2M1pnVURBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7056934","2":"0.8695159","3":"0.5915235","4":"3","5":"2.25"},{"1":"0.6722795","2":"0.8788044","3":"0.5486298","4":"4","5":"1.75"},{"1":"0.6357060","2":"0.8785342","3":"0.5252640","4":"5","5":"1.50"},{"1":"0.6544287","2":"0.8624925","3":"0.5236170","4":"6","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[4]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldYWXZjekk0WkM5dE9EbGtjMGdyTmpsUE4xUnVXRzk2TjBvclZVZzFTMlJWSzBwcUx5dFVOR2gwUW5SUlVsWjNaR0U0TTNWRFVqaDJlR1JxTHpSaE15OHpTREI2TUdZeVluZDZNVU01U1N0TFRtMHZXSEo1TTJWbWJVNUxXRUl4YWpCVmFXUnlSa2xVWWtvdkswWkRXVGswTjJKakwzTklSamRKWlM5bFpsVnpNemwzTjAxdFRVSlpkV3BuUjNBMFVXVnlRWEp2V0ZGSlRHVjNkMlpSTjJkS2QweENVRm92YjFCUlVFdFFNa1pCVVhCUlVFMVRZV3cxYVdKWFozaHJRMGxCVG1kbmFYbENVR3RIZFRCTVdraEZTRVpvWVZkS1VtRnJjRlZFTm5weWVVNU5hV2xYTTNCTFoxTjVkV0pMUkVWemMwdHZORWhwTmtSaGQwWnRWVmcyTkVoemQxaHJaRXRaUjNGRWRsRnVXa3RqYXpGblRXTjNjRTFyUTNOc2MxTlNVa3cyTUVseFFpOUpLelJsYldoVU1pOXZRMUY2VUhjcmIybFJhMVZMVjBGT1dVZHJTVkpxWVVselVXZGhVVzkzVDBkeVExRm5VRWxHTkVoNGEwUlJTMnhsVTBKWWNDdG5iVm8xVkcxYVpYUmhiVXRRU2sxNFptdHdVMUJhZUhkRU1VaFRUVEJWYlVKelZtOXBWRzFtTlVSMFdGQkRRV2s0TVU5VFRXWjViVnBNZWxWMlVIcEZkVVpDVm1oaFduSndaV1ZYV2t0VFVWbHpSRVZCUTBkaGJWbzJVbXRzYzB0RVMxTlZlRXQ2V1VVMVNrTlhNVVJOY210Qk5Ga3hUMHRxTVVOdmIzazRNa054ZFZsRGFYaFliMndyVTFkS1RVTXhZM2xtYXpWTlFrWjNjVVJNT0VGM1JHMXpiVFpFUWxGTlFVRkJQVDBpZlE9PSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC43MTc2NDQ3XFwsXFwyXFw6XFwwLjg2NTI2NzBcXCxcXDNcXDpcXDAuNTk2MjMzN1xcLFxcNFxcOlxcM1xcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjY3NjQ5NzRcXCxcXDJcXDpcXDAuODc2NjU1NVxcLFxcM1xcOlxcMC41NTg3MjQ5XFwsXFw0XFw6XFw0XFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNjM5NjE4OVxcLFxcMlxcOlxcMC44ODEwMDQxXFwsXFwzXFw6XFwwLjUyNTQ0MTZcXCxcXDRcXDpcXDVcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC42NDkzNzYxXFwsXFwyXFw6XFwwLjg2MzczNzhcXCxcXDNcXDpcXDAuNTI0Mjc4OVxcLFxcNFxcOlxcNlxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzRdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWXYvczI4ZC9tODlkc0grNjlPN1RuWG96N0orVUg1S2RVK0pqLytUNGh0QnRRUlZ3ZGE4M3VDUjh2eGRqLzRhMy8zSDB6MGYyYnd6MUM5SStLTm0vWHJ5M2VmbU5LWEIxajBVaWRyRklUYkovK0ZDWTk0N2JjL3NIRjdJZS9lZlVzMzl3N01tTUJZdWpnR3A0UWVyQXJvWFFJTGV3d2ZRN2dKd0xCUFovb1BRUEtQMkZBUXBRUE1TYWw1aWJXZ3hrQ0lBTmdnaXlCUGtHdTBMWkhFSEZoYVdKUmFrcFVENnpyeU5NaWlXM3BLZ1N5dWJLREVzc0tvNEhpNkRhd0ZtVVg2NEhzd1hrZEtZR3FEdlFuWktjazFnTWN3cE1rQ3Nsc1NSUkw2MElxQi9JKzRlbWhUMi9vQ1F6UHcrb2lRa1VLV0FOWUdrSVJqYUlzUWdhUW93T0dyQ1FnUElGNEh4a0RRS2xlU0JYcCtnbVo1VG1aZXRhbUtQSk14ZmtwU1BaeHdEMUhTTTBVbUJzVm9pVG1mNUR0WFBDQWk4MU9TTWZ5bVpMelV2UHpFdUZCVmhhWnJwZWVXWktTUVlzREVBQ0dhbVo2Umtsc0tES1NVeEt6WUU1SkNXMURNcmtBNFkxT0tqMUNvb3k4MkNxdVlDaXhYb2wrU1dKTUMxY3lmazVNQkZ3cURMOEF3RG1zbTZEQlFNQUFBPT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7176447\,\2\:\0.8652670\,\3\:\0.5962337\,\4\:\3\,\5\:\2.25\},{\1\:\0.6764974\,\2\:\0.8766555\,\3\:\0.5587249\,\4\:\4\,\5\:\1.75\},{\1\:\0.6396189\,\2\:\0.8810041\,\3\:\0.5254416\,\4\:\5\,\5\:\1.50\},{\1\:\0.6493761\,\2\:\0.8637378\,\3\:\0.5242789\,\4\:\6\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[4]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qUXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTkNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaZGl0ak9XTnBkVmRsY0VjNWF5OHpUa05rYjBwcGJscFFlVzVWZFRWVVYzWmpkaXQ1WWl0MGVGRjVVMHRZUWpGeU1XTXJNWFkyYkc5SFRDOW9ibXd2TVZCdU9Yb3JNMll5UWxKS01WUkRjM016TDJRNEszSmxVSFU1TDJOSVYxQk1XalZOWWpkc2FXSm1MM2RXWjFScVdESmpjQ3QzWm01NlNHWXZWME14YXk4clJFTkROQ3N2U0haMVFtRnVhRUkyYzBOMWFHUkJaM1EzUkVJNVJIVkJia0Z6UlRsdUsyYzVRVGh2TDFsVlFrTnNRVGg0U25GWWJVcDBZVVJIVVVsblFUSkRRMHhKUlN0UllUZFJkR3RqVVdOWFJuQlpiRVp4VTJ4UlVISlBka2t3ZVV0S1ltVnJjVUpNU3pWemIwMVRlWGR4YW1kbFRHOU9ja0ZYV2xKbWNtZGxla0psVWpCd1oyRnZUemxEWkd0d2VWUlhRWGg2UTJ0NVVVdDVWM2hLUmtWMmNsRnBiMGc0YWpkb05tRkdVR0lyWjBwRVRTOUVObWxLUTFKUmNGbEJNV2RoVVdoSFRtOXBlRU5DY0VOcVFUUmhjMHBEUVRobldHZG1SMUZPUVhGV05VbEdaVzQyUTFwdWJFOWFiRFl4Y1Zsdk9HdDZSaXRUYkVrNWJraEJVRlZrU1hwU1UxbEhlRmRwU2s5YUwydFBNV000U1VOTWVsVTFTWGd2UzFwcmRrNVRPQzlOVXpSVlJsZEdjRzExYkRVMVdtdHdTa0pwZDAxUlFVbGFjVnB1Y0VkVFYzZHZUWEJLVkVWeVRtZFVhMnRLWWxWTmVYVlJSR2hxVlRSeFVGVkxhV3BNZWxsTGNUVm5TMHhHWldsWU5VcFphM2RNVm5wS0sxUnJkMFZZUTI5TmRuZEVRVUZhV0ZGNFRVWkJkMEZCSW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MTk0NTQyXCIsXCIyXCI6XCIwLjg2NDQ4ODJcIixcIjNcIjpcIjAuNjAwNjk0OVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY3OTI2MTlcIixcIjJcIjpcIjAuODc1NDU3NVwiLFwiM1wiOlwiMC41NTc5MDMzXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjM4ODE2M1wiLFwiMlwiOlwiMC44ODIzNzg2XCIsXCIzXCI6XCIwLjUyNTE3MzFcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42NTYwOTI0XCIsXCIyXCI6XCIwLjg2MDk1MThcIixcIjNcIjpcIjAuNTI1NTAxNFwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzRdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjQsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZditjOWNpdVdlcEc5ay8zTkNkb0ppblpQeW5VdTVUV3Zjdit5Yit0eFF5U0tYQjFyMWMrMXY2bG9HTC9obmwvMVBuOXorM2YyQlJKMVRDc3MzL2Q4K3JlUHU5L2NIV1BMWjVNYjdsaWJmL3dWZ1RqWDJjcCt3Zm56SGYvV0Mxay8rRENDNCsvSHZ1QmFuaEI2c0N1aGRBZ3Q3REI5RHVBbkFzRTluK2c5QThvL1lVQkNsQTh4SnFYbUp0YURHUUlnQTJDQ0xJRStRYTdRdGtjUWNXRnBZbEZxU2xRUHJPdkkweUtKYmVrcUJMSzVzb01TeXdxamdlTG9OckFXWlJmcmdlekJlUjBwZ2FvTzlDZGtweVRXQXh6Q2t5UUt5V3hKRkV2clFpb0g4ajdoNmFGUGIrZ0pETS9ENmlKQ1JRcFlBMWdhUWhHTm9peENCcENqQTRhc0pDQThnWGdmR1FOQXFWNUlGZW42Q1pubE9abDYxcVlvOGt6RitTbEk5bkhBUFVkSXpSU1lHeFdpSk9aL2tPMWM4SUNMelU1SXgvS1prdk5TOC9NUzRVRldGcG11bDU1WmtwSkJpd01RQUlacVpucEdTV3dvTXBKVEVyTmdUa2tKYlVNeXVRRGhqVTRxUFVLaWpMellLcTVnS0xGZWlYNUpZa3dMVnpKK1Rrd0VYQ29NdndEQUFaWFF4TUZBd0FBIn0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7194542","2":"0.8644882","3":"0.6006949","4":"3","5":"2.25"},{"1":"0.6792619","2":"0.8754575","3":"0.5579033","4":"4","5":"1.75"},{"1":"0.6388163","2":"0.8823786","3":"0.5251731","4":"5","5":"1.50"},{"1":"0.6560924","2":"0.8609518","3":"0.5255014","4":"6","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[4]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldYWTVZMjVIVHpGcFltbFdMMlJPVDNjdmQxWkNVMWd5VkhsYWNuSXhWelJOWXk4cmVWWk1hbkp5VkhCckswaHhXSEU0ZUV4MGVEWjJPR0lyYWxkVUt6bFBaMWRPZG5NelYycDBNMFpHVkdJeVlqZ3JiMFo0Wlc5aFkwSldMMlJaWWxkeVVtNTBTbU1yTkdOWU4wVlRkVWhtUjNobUwwUXliV2RYYW5NMGJqbG5lRlZHVVhFMFdsUTBRbkZsUlVoeGQwczJSakJEUXpOelRVZ3dUelJEWTBOM1ZESm1Oa1F3UkhscU9XaFJSVXRWUkhwRmJYQmxXVzB4YjAxYVFXbEJSRmxKU1hOblZEVkNjblJETWxKNFFuaFpWMnhwVlZkd1MxWkJLM00yT0dwVVNXOXNkRFpUYjBWemNtMTVaM2hNVEVOeFQwSTBkV2N5YzBKYWJFWXJkVUkzVFVZMVNGTnRRbkZuTnpCS01sTnVTazVaUkVoTlMxUktRWEpLWWtWclZWTXJkRU5MWjJaNVVIVkljRzlWT1hZMlFXdE5lamhRY1VsclNrWkRiR2RFVjBKd1EwVlpNbWxNUlVsSGEwdE5SR2h4ZDJ0SlJIbENaVUk0V2tFd1EzQllhMmRXTm1adlNtMWxWVFZ0V0hKWGNHbHFlVlJOV0RWTFZXb3lZMk5CT1ZJd2FrNUdTbWRpUm1GSmF6VnVLMUUzVm5wM1owbDJUbFJyYWtnNGNHMVRPREZNZWpoNFRHaFJWbGxYYldFMldHNXNiVk5yYTBkTVFYaEJRV2h0Y0cxbGExcEtZa05uZVd0c1RWTnpNa0pQVTFGc2RGRjZTelZCVDBkT1ZHbHZPVkZ4UzAxMlRtZHhjbTFCYjNOV05rcG1hMnhwVkVGMFdFMXVOVTlVUVZKalMyZDVMMEZOUVVsUVJqWndVVlZFUVVGQlBTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNzIxNTYxOFxcLFxcMlxcOlxcMC44NjQ3NzA2XFwsXFwzXFw6XFwwLjU5ODQ1OTlcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42NzI5OTcyXFwsXFwyXFw6XFwwLjg3ODEwNTBcXCxcXDNcXDpcXDAuNTU2NjcwMlxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjY0Mjk2NTJcXCxcXDJcXDpcXDAuODgwMjE1NVxcLFxcM1xcOlxcMC41MjkwMzI4XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjQ1MTY2MlxcLFxcMlxcOlxcMC44NjcyMDQ0XFwsXFwzXFw6XFwwLjUyMDU2MTNcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls0XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWXY5Y25HTzFpYmlWL2ROT3cvd1ZCU1gyVHlacnIxVzRNYy8reVZManJyVHBrK0hxWHE4eEx0eDZ2OGIraldUKzlPZ1dOdnMzV2p0M0ZGVGIyYjgrb0Z4ZW9hY0JWL2RZYldyUm50SmMrNGNYN0VTdUhmR3hmL0QybWdXanM0bjlneFVGUXE0WlQ0QnFlRUhxd0s2RjBDQzNzTUgwTzRDY0N3VDJmNkQwRHlqOWhRRUtVRHpFbXBlWW0xb01aQWlBRFlJSXNnVDVCcnRDMlJ4QnhZV2xpVVdwS1ZBK3M2OGpUSW9sdDZTb0Vzcm15Z3hMTENxT0I0dWcyc0JabEYrdUI3TUY1SFNtQnFnNzBKMlNuSk5ZREhNS1RKQXJKYkVrVVMrdENLZ2Z5UHVIcG9VOXY2QWtNejhQcUlrSkZDbGdEV0JwQ0VZMmlMRUlHa0tNRGhxd2tJRHlCZUI4WkEwQ3BYa2dWNmZvSm1lVTVtWHJXcGlqeVRNWDVLVWoyY2NBOVIwak5GSmdiRmFJazVuK1E3Vnp3Z0l2TlRrakg4cG1TODFMejh4TGhRVllXbWE2WG5sbVNra0dMQXhBQWhtcG1la1pKYkNneWtsTVNzMkJPU1FsdFF6SzVBT0dOVGlvOVFxS012Tmdxcm1Bb3NWNkpma2xpVEF0WE1uNU9UQVJjS2d5L0FNQUlQRjZwUVVEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7215618\,\2\:\0.8647706\,\3\:\0.5984599\,\4\:\3\,\5\:\2.25\},{\1\:\0.6729972\,\2\:\0.8781050\,\3\:\0.5566702\,\4\:\4\,\5\:\1.75\},{\1\:\0.6429652\,\2\:\0.8802155\,\3\:\0.5290328\,\4\:\5\,\5\:\1.50\},{\1\:\0.6451662\,\2\:\0.8672044\,\3\:\0.5205613\,\4\:\6\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[4]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qUXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTkNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaZGk5ek1qaGtMMjA0T1dSelNDczJPVTgzVkc1WWIzbzNTaXRWU0RWTFpGVXJTbW92SzFRMGFIUkNkRkZTVm5ka1lUZ3pkVU5TT0haNFpHb3ZOR0V6THpOSU1Ib3daakppZDNveFF6bEpLMHRPYlM5WWNua3paV1p0VGt0WVFqRnFNRlZwWkhKR1NWUmlTaThyUmtOWk9UUTNZbU12YzBoR04wbGxMMlZtVlhNek9YYzNUVzFOUWxsMWFtZEhjRFJSWlhKQmNtOVlVVWxNWlhkM1psRTNaMHAzVEVKUVdpOXZVRkZRUzFBeVJrRlJjRkZRVFZOaGJEVnBZbGRuZUd0RFNVRk9aMmRwZVVKUWEwZDFNRXhhU0VWSVJtaGhWMHBTWVd0d1ZVUTJlbko1VGsxcGFWY3pjRXRuVTNsMVlrdEVSWE56UzI4MFNHazJSR0YzUm0xVldEWTBTSE4zV0d0a1MxbEhjVVIyVVc1YVMyTnJNV2ROWTNkd1RXdERjMnh6VTFKU1REWXdTWEZDTDBrck5HVnRhRlF5TDI5RFVYcFFkeXR2YVZGclZVdFhRVTVaUjJ0SlVtcGhTWE5SWjJGUmIzZFBSM0pEVVdkUVNVWTBTSGhyUkZGTGJHVlRRbGh3SzJkdFdqVlViVnBsZEdGdFMxQktUWGhtYTNCVFVGcDRkMFF4U0ZOTk1GVnRRbk5XYjJsVWJXWTFSSFJZVUVOQmFUZ3hUMU5OWm5sdFdreDZWWFpRZWtWMVJrSldhR0ZhY25CbFpWZGFTMU5SV1hORVJVRkRSMkZ0V2paU2EyeHpTMFJMVTFWNFMzcFpSVFZLUTFjeFJFMXlhMEUwV1RGUFMyb3hRMjl2ZVRneVEzRjFXVU5wZUZodmJDdFRWMHBOUXpGamVXWnJOVTFDUm5keFJFdzRRWGRFYlhOdE5rUkNVVTFCUVVFOVBTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuNzE3NjQ0N1wiLFwiMlwiOlwiMC44NjUyNjcwXCIsXCIzXCI6XCIwLjU5NjIzMzdcIixcIjRcIjpcIjNcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiMC42NzY0OTc0XCIsXCIyXCI6XCIwLjg3NjY1NTVcIixcIjNcIjpcIjAuNTU4NzI0OVwiLFwiNFwiOlwiNFwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjYzOTYxODlcIixcIjJcIjpcIjAuODgxMDA0MVwiLFwiM1wiOlwiMC41MjU0NDE2XCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNjQ5Mzc2MVwiLFwiMlwiOlwiMC44NjM3Mzc4XCIsXCIzXCI6XCIwLjUyNDI3ODlcIixcIjRcIjpcIjZcIixcIjVcIjpcIjEuMjVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls0XX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjQsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1Zdi9zMjhkL204OWRzSCs2OU83VG5Yb3o3SitVSDVLZFUrSmovK1Q0aHRCdFFSVndkYTgzdUNSOHZ4ZGovNGEzLzNIMHowZjJid3oxQzlJK0tObS9YcnkzZWZtTktYQjFqMFVpZHJGSVRiSi8rRkNZOTQ3YmMvc0hGN0llL2VmVXMzOXc3TW1NQll1amdHcDRRZXJBcm9YUUlMZXd3ZlE3Z0p3TEJQWi9vUFFQS1AyRkFRcFFQTVNhbDVpYldneGtDSUFOZ2dpeUJQa0d1MExaSEVIRmhhV0pSYWtwVUQ2enJ5Tk1paVczcEtnU3l1YktERXNzS280SGk2RGF3Rm1VWDY0SHN3WGtkS1lHcUR2UW5aS2NrMWdNY3dwTWtDc2xzU1JSTDYwSXFCL0krNGVtaFQyL29DUXpQdytvaVFrVUtXQU5ZR2tJUmphSXNRZ2FRb3dPR3JDUWdQSUY0SHhrRFFLbGVTQlhwK2dtWjVUbVpldGFtS1BKTXhma3BTUFp4d0QxSFNNMFVtQnNWb2lUbWY1RHRYUENBaTgxT1NNZnltWkx6VXZQekV1RkJWaGFacnBlZVdaS1NRWXNERUFDR2FtWjZSa2xzS0RLU1V4S3pZRTVKQ1cxRE1ya0E0WTFPS2oxQ29veTgyQ3F1WUNpeFhvbCtTV0pNQzFjeWZrNU1CRndxREw4QXdEbXNtNkRCUU1BQUE9PSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7176447","2":"0.8652670","3":"0.5962337","4":"3","5":"2.25"},{"1":"0.6764974","2":"0.8766555","3":"0.5587249","4":"4","5":"1.75"},{"1":"0.6396189","2":"0.8810041","3":"0.5254416","4":"5","5":"1.50"},{"1":"0.6493761","2":"0.8637378","3":"0.5242789","4":"6","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[4]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldYWXJZMlE0ZFZacVYyeDJOMG81VDBWemNGSmpWSEJ2THl0VFRXRTVaRE00S3k4eVZIcHZNM1ZITURGbGQxWllPVE53YWpNNU1FNVRlVXh6TTNkcE4xaGlUbFk0VEdRdmR6RlFkMWxRU2tWUUwzWlljREZKYlhZdlYwdG5ZWFEzVEVSUWNGbzFNaTluVURORVN6UjJVRlJxTDFOYVVEbFJOa2t6VkZKUGN5ODVaeXRoZUZwS0x5ODBiME54ZFVWR2NWRlBOMFpyUzBRelRVbEhNQ3M0UVdOcE5GRXlVQ3RDTUdvclp6bENZMGRMUlVSNFJVZDBaVmx0TlhGTldrRm9RVVJaU1VseloxTTFRblp6UTIxV2VrSkNWVmhzYVZsWGNHRmFRU3RqZVN0cWFrRndiSFI1VTI5cmIyOXRlWE42VEV4SGIwOUNOSE5uYlc5RVdqRkdLM1ZTTjAxR2NFUlViVkp4WnpkclFqTlRia3BQV1dwSVRVdFVRa0p5Y0ZSRmEydFRPWFJEUzJkbWFVUjJTRFZ2VnpsMmVVTnJjM280VUV0QmJVcHNRMnRuUkZkQmNGTkZXVEpUUkVkSmJXZEpUVlJ3YjNkRlNVTjVhR1ZCT0RWRk1VTktWRzFuVm5sa2IzQjFZMVZhY1ZoeVYzUm9hbWxpVUZoS1ExaHFiVkZtUVRsU00ycE9Ra2xuWWtaYVNWVTFiU3RuTDFaNloydE1kazVVYTJwSWQyOXRlVEF4VEhvd2VreDRWVmRaUjIxYU5saHliRzFUYTJ4SFlrRjNRVUZzYTNCSFlXMWFOVlJCWjJsdmJrMVRhekZDSzJGUmJFNVJlVXRLVFZCSFRtSm5iMDVaY2t0TmNrMW5ObTV0UVc5dlZ6WTFXR3RzZVZSRGRFaEJiRFVyWmtGU1RVTm9lWFpCVUVGSmVtaHFaRzlHUVhkQlFTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNzIwNDIzMVxcLFxcMlxcOlxcMC44NjU0MjQ2XFwsXFwzXFw6XFwwLjU5NzIzODFcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42NzQwODExXFwsXFwyXFw6XFwwLjg3NzM1MzFcXCxcXDNcXDpcXDAuNTU3MjA3MFxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjY0OTkzNTVcXCxcXDJcXDpcXDAuODc2NTE4N1xcLFxcM1xcOlxcMC41MzM1NTk5XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjQxODA3N1xcLFxcMlxcOlxcMC44Njg0NTYyXFwsXFwzXFw6XFwwLjUxNjAwMTlcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls0XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWXYrY2Q4dVZqV2x2N0o5T0VzcFJjVHBvLytTTWE5ZDM4Ky8yVHpvM3VHMDFld1ZYOTNwajM5ME5TeUxzM3dpN1hiTlY4TGQvdzFQd1lQSkVQL3ZYcDFJbXYvV0tnYXQ3TERQcFo1Mi9nUDNESzR2UFRqL1NaUDlRNkkzVFJPcy85ZytheFpKLy80b0NxdUVGcVFPN0ZrS0QzTUlHMCs4QWNpNFEyUCtCMGorZzlCY0dLRUR4RUd0ZVltNXFNWkFoQURZSUlzZ1M1QnZzQ21WekJCVVhsaVlXcGFaQStjeStqakFwbHR5U29rb29teXN6TExHb09CNHNnbW9EWjFGK3VSN01GcERUbVJxZzdrQjNTbkpPWWpITUtUQkJycFRFa2tTOXRDS2dmaUR2SDVvVzl2eUNrc3o4UEtBbUpsQ2tnRFdBcFNFWTJTREdJbWdJTVRwb3dFSUN5aGVBODVFMUNKVG1nVnlkb3B1Y1VacVhyV3RoamliUFhKQ1hqbVFmQTlSM2pOQklnYkZaSVU1bStnL1Z6Z2tMdk5Ua2pId29teTAxTHowekx4VVdZR21aNlhybG1Ta2xHYkF3QUFsa3BHYW1aNVRBZ2lvbk1TazFCK2FRbE5ReUtKTVBHTmJnb05ZcktNck1nNm5tQW9vVzY1WGtseVRDdEhBbDUrZkFSTUNoeXZBUEFJemhqZG9GQXdBQSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7204231\,\2\:\0.8654246\,\3\:\0.5972381\,\4\:\3\,\5\:\2.25\},{\1\:\0.6740811\,\2\:\0.8773531\,\3\:\0.5572070\,\4\:\4\,\5\:\1.75\},{\1\:\0.6499355\,\2\:\0.8765187\,\3\:\0.5335599\,\4\:\5\,\5\:\1.50\},{\1\:\0.6418077\,\2\:\0.8684562\,\3\:\0.5160019\,\4\:\6\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[4]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qUXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTkNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaZGpsamJrZFBNV2xpYVZZdlpFNVBkeTkzVmtKVFdESlVlVnB5Y2pGWE5FMWpMeXQ1Vmt4cWNuSlVjR3NyU0hGWWNUaDRUSFI0Tm5ZNFlpdHFWMVFyT1U5blYwNTJjek5YYW5RelJrWlVZakppT0N0dlJuaGxiMkZqUWxZdlpGbGlWM0pTYm5SS1l5czBZMWczUlZOMVNHWkhlR1l2UkRKdFoxZHFjelJ1T1dkNFZVWlJjVFJhVkRSQ2NXVkZTSEYzU3paR01FTkRNM05OU0RCUE5FTmpRM2RVTW1ZMlJEQkVlV281YUZGRlMxVkVla1Z0Y0dWWmJURnZUVnBCYVVGRVdVbEpjMmRVTlVKeWRFTXlVbmhDZUZsWGJHbFZWM0JMVmtFcmN6WTRhbFJKYjJ4ME5sTnZSWE55YlhsbmVFeE1RM0ZQUWpSMVp6SnpRbHBzUml0MVFqZE5SalZJVTIxQ2NXYzNNRW95VTI1S1RsbEVTRTFMVkVwQmNrcGlSV3RWVXl0MFEwdG5abmxRZFVod2IxVTVkalpCYTAxNk9GQnhTV3RLUmtOc1owUlhRbkJEUlZreWFVeEZTVWRyUzAxRWFIRjNhMGxFZVVKbFFqaGFRVEJEY0ZocloxWTJabTlLYldWVk5XMVljbGR3YVdwNVZFMVlOVXRWYWpKalkwRTVVakJxVGtaS1oySkdZVWxyTlc0clVUZFdlbmRuU1haT1ZHdHFTRGh3YlZNNE1VeDZPSGhNYUZGV1dWZHRZVFpZYm14dFUydHJSMHhCZUVGQmFHMXdiV1ZyV2twaVEyZDVhMnhOVTNNeVFrOVRVV3gwVVhwTE5VRlBSMDVVYVc4NVVYRkxUWFpPWjNGeWJVRnZjMVkyU21acmJHbFVRWFJZVFc0MVQxUkJVbU5MWjNrdlFVMUJTVkJHTm5CUlZVUkJRVUU5SW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MjE1NjE4XCIsXCIyXCI6XCIwLjg2NDc3MDZcIixcIjNcIjpcIjAuNTk4NDU5OVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY3Mjk5NzJcIixcIjJcIjpcIjAuODc4MTA1MFwiLFwiM1wiOlwiMC41NTY2NzAyXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjQyOTY1MlwiLFwiMlwiOlwiMC44ODAyMTU1XCIsXCIzXCI6XCIwLjUyOTAzMjhcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42NDUxNjYyXCIsXCIyXCI6XCIwLjg2NzIwNDRcIixcIjNcIjpcIjAuNTIwNTYxM1wiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzRdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjQsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZdjljbkdPMWliaVYvZE5Pdy93VkJTWDJUeVpycjFXNE1jLyt5VkxqcnJUcGsrSHFYcTh4THR4NnY4YitqV1QrOU9nV052czNXanQzRkZUYjJiOCtvRnhlb2FjQlYvZFliV3JSbnRKYys0Y1g3RVN1SGZHeGYvRDJtZ1dqczRuOWd4VUZRcTRaVDRCcWVFSHF3SzZGMENDM3NNSDBPNENjQ3dUMmY2RDBEeWo5aFFFS1VEekVtcGVZbTFvTVpBaUFEWUlJc2dUNUJydEMyUnhCeFlXbGlVV3BLVkErczY4alRJb2x0NlNvRXNybXlneExMQ3FPQjR1ZzJzQlpsRit1QjdNRjVIU21CcWc3MEoyU25KTllESE1LVEpBckpiRWtVUyt0Q0tnZnlQdUhwb1U5djZBa016OFBxSWtKRkNsZ0RXQnBDRVkyaUxFSUdrS01EaHF3a0lEeUJlQjhaQTBDcFhrZ1Y2Zm9KbWVVNW1YcldwaWp5VE1YNUtVajJjY0E5UjBqTkZKZ2JGYUlrNW4rUTdWendnSXZOVGtqSDhwbVM4MUx6OHhMaFFWWVdtYTZYbmxtU2trR0xBeEFBaG1wbWVrWkpiQ2d5a2xNU3MyQk9TUWx0UXpLNUFPR05UaW85UXFLTXZOZ3FybUFvc1Y2SmZrbGlUQXRYTW41T1RBUmNLZ3kvQU1BSVBGNnBRVURBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7215618","2":"0.8647706","3":"0.5984599","4":"3","5":"2.25"},{"1":"0.6729972","2":"0.8781050","3":"0.5566702","4":"4","5":"1.75"},{"1":"0.6429652","2":"0.8802155","3":"0.5290328","4":"5","5":"1.50"},{"1":"0.6451662","2":"0.8672044","3":"0.5205613","4":"6","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[4]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldYWXZZM0ZzZUhsak9FVmFLelpqWkdwVVRWQklNV0V5WmpOTWRuSXJUazEyZUZRM1NqTlZjMDFzV21WUVNFSXhjaXRtTW5WdmRHTjZOMUl2ZHpabFZXMWxlbGRaZGk4Mk9UbFVWRk15TjNWeldEazVXbVJKTVNzMWVraGpTRmRRU0ZrclNUbE5iU3R6YmprMGIxVlhhRGRvVTFBdlZVMXdlRmxFUkVneE4xcFFObWd5VjFKd04xSkJTMjlvYUdWclJIVjRZVU5CTVhsRGVIUk5kbmRRU1hWVlFtY3ZkMlJMTHpSRVUxaDRhV2RCVFZaRWNraHRTblZoYmtaUlNWbEJNa05EU1VsRmRWRmlOMEZ5YkUwd1VsWkdlRmx0YkdsVmJXZE1iRTB2Y3paM2NWSlpZMnQxUzB0eFJuTnljM2wzZUV0TWFXVk1RVWx4WnpKalVtWnViR1ZxUW1KUlJUVnVZVzlETmtFNU1IQjVWRzFLZUZSRGJuZEJVelZWYUVwTVJYWllVMmx2UkRablluZ3ZZVVp5V1RoM2RFdE5kbEI2WjBweFdWRktSVU14WjBOWGFHMUNhMmQ0YVV4dlEwaEZOa3RCUWtOM2EyOVlkMFJQVWpsWloxVktiMGhqYmxkTFltNUtSMkZXTmpKeWIxVTFiV3A0ZWxGV05EWnJiakJOVlU0NGVGRnBUVVo0YldGR1QwcHVjRkF4VVRkS2VYcDNWWEJOZWpoeFJuTjBkRk00T1UxNU9GWkdhVUZ3VjFkdE5qVldibkJ3VW10M1RVbEJTa3BEVW0xd2JXVlZVVWxNY1hCNlJYQk9VV050UlU1VFZYTjFaMVJFTldkWFNVOUVWM0VyWjB0RVRWQndjRzlNUzBaeGMxWTFTbVpyWjJwVWQzQlhZMjUzVFZSQldXTnhkM280UVNzM0swUlZRVlZFUVVGQlBTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNzI1ODg2OVxcLFxcMlxcOlxcMC44NjI5ODI0XFwsXFwzXFw6XFwwLjYwMTc3ODFcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42NzI5MTM0XFwsXFwyXFw6XFwwLjg3NjcyNTRcXCxcXDNcXDpcXDAuNTU2NzAzNlxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjY1MjIyMDRcXCxcXDJcXDpcXDAuODc0NDYxMVxcLFxcM1xcOlxcMC41MzQ0Mzk3XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjQwMzgyOFxcLFxcMlxcOlxcMC44Njk2OTg5XFwsXFwzXFw6XFwwLjUxNTA0NzRcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls0XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWXYvY3FseHljOEVaKzZjZGpUTVBIMWEyZjNMdnIrTk12eFQ3SjNVc01sWmVQSEIxcitmMnVvdGN6N1IvdzZlVW1leldZdi82OTlUVFMyN3VzWDk5WmRJMSs1ekhjSFdQSFkrSTlNbStzbjk0b1VXaDdoU1AvVU1weFlEREgxN1pQNmgyV1JwN1JBS29oaGVrRHV4YUNBMXlDeHRNdndQSXVVQmcvd2RLLzREU1h4aWdBTVZEckhtSnVhbkZRSVlBMkNDSUlFdVFiN0FybE0wUlZGeFltbGlVbWdMbE0vczZ3cVJZY2t1S0txRnNyc3l3eEtMaWVMQUlxZzJjUmZubGVqQmJRRTVuYW9DNkE5MHB5VG1KeFRDbndBUzVVaEpMRXZYU2lvRDZnYngvYUZyWTh3dEtNdlB6Z0pxWVFKRUMxZ0NXaG1Ca2d4aUxvQ0hFNktBQkN3a29Yd0RPUjlZZ1VKb0hjbldLYm5KR2FWNjJyb1U1bWp4elFWNDZrbjBNVU44eFFpTUZ4bWFGT0pucFAxUTdKeXp3VXBNejhxRnN0dFM4OU15OFZGaUFwV1dtNjVWbnBwUmt3TUlBSkpDUm1wbWVVUUlMcXB6RXBOUWNtRU5TVXN1Z1RENWdXSU9EV3ErZ0tETVBwcG9MS0Zxc1Y1SmZrZ2pUd3BXY253TVRBWWNxd3o4QSs3K0RVQVVEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7258869\,\2\:\0.8629824\,\3\:\0.6017781\,\4\:\3\,\5\:\2.25\},{\1\:\0.6729134\,\2\:\0.8767254\,\3\:\0.5567036\,\4\:\4\,\5\:\1.75\},{\1\:\0.6522204\,\2\:\0.8744611\,\3\:\0.5344397\,\4\:\5\,\5\:\1.50\},{\1\:\0.6403828\,\2\:\0.8696989\,\3\:\0.5150474\,\4\:\6\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[4]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qUXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTkNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaZGl0alpEaDFWbXBYYkhZM1NqbFBSWE53VW1OVWNHOHZLMU5OWVRsa016Z3JMekpVZW04emRVY3dNV1YzVmxnNU0zQnFNemt3VGxONVRITXpkMmszV0dKT1ZqaE1aQzkzTVZCM1dWQktSVkF2ZGxod01VbHRkaTlYUzJkaGREZE1SRkJ3V2pVeUwyZFFNMFJMTkhaUVZHb3ZVMXBRT1ZFMlNUTlVVazl6THpsbksyRjRXa292THpSdlEzRjFSVVp4VVU4M1JtdExSRE5OU1Vjd0t6aEJZMmswVVRKUUswSXdhaXRuT1VKalIwdEZSSGhGUjNSbFdXMDFjVTFhUVdoQlJGbEpTWE5uVXpWQ2RuTkRiVlo2UWtKVldHeHBXVmR3WVZwQksyTjVLMnBxUVhCc2RIbFRiMnR2YjIxNWMzcE1URWR2VDBJMGMyZHRiMFJhTVVZcmRWSTNUVVp3UkZSdFVuRm5OMnRDTTFOdVNrOVpha2hOUzFSQ1FuSndWRVZyYTFNNWRFTkxaMlpwUkhaSU5XOVhPWFo1UTJ0emVqaFFTMEZ0U214RGEyZEVWMEZ3VTBWWk1sTkVSMGx0WjBsTlZIQnZkMFZKUTNsb1pVRTROVVV4UTBwVWJXZFdlV1J2Y0hWalZWcHhXSEpYZEdocWFXSlFXRXBEV0dwdFVXWkJPVkl6YWs1Q1NXZGlSbHBKVlRWdEsyY3ZWbnBuYTB4MlRsUnJha2gzYjIxNU1ERk1lakI2VEhoVlYxbEhiVm8yV0hKc2JWTnJiRWRpUVhkQlFXeHJjRWRoYlZvMVZFRm5hVzl1VFZOck1VSXJZVkZzVGxGNVMwcE5VRWRPWW1kdlRsbHlTMDF5VFdjMmJtMUJiMjlYTmpWWWEyeDVWRU4wU0VGc05TdG1RVkpOUTJoNWRrRlFRVWw2YUdwa2IwWkJkMEZCSW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MjA0MjMxXCIsXCIyXCI6XCIwLjg2NTQyNDZcIixcIjNcIjpcIjAuNTk3MjM4MVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY3NDA4MTFcIixcIjJcIjpcIjAuODc3MzUzMVwiLFwiM1wiOlwiMC41NTcyMDcwXCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjQ5OTM1NVwiLFwiMlwiOlwiMC44NzY1MTg3XCIsXCIzXCI6XCIwLjUzMzU1OTlcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42NDE4MDc3XCIsXCIyXCI6XCIwLjg2ODQ1NjJcIixcIjNcIjpcIjAuNTE2MDAxOVwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzRdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjQsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZditjZDh1VmpXbHY3SjlPRXNwUmNUcG8vK1NNYTlkMzgrLzJUem8zdUcwMWV3Vlg5M3BqMzkwTlN5THMzd2k3WGJOVjhMZC93MVB3WVBKRVAvdlhwMUltdi9XS2dhdDdMRFBwWjUyL2dQM0RLNHZQVGovU1pQOVE2STNUUk9zLzlnK2F4WkovLzRvQ3F1RUZxUU83RmtLRDNNSUcwKzhBY2k0UTJQK0IwaitnOUJjR0tFRHhFR3RlWW01cU1aQWhBRFlJSXNnUzVCdnNDbVZ6QkJVWGxpWVdwYVpBK2N5K2pqQXBsdHlTb2tvb215c3pMTEdvT0I0c2dtb0RaMUYrdVI3TUZwRFRtUnFnN2tCM1NuSk9ZakhNS1RCQnJwVEVra1M5dENLZ2ZpRHZINW9XOXZ5Q2tzejhQS0FtSmxDa2dEV0FwU0VZMlNER0ltZ0lNVHBvd0VJQ3loZUE4NUUxQ0pUbWdWeWRvcHVjVVpxWHJXdGhqaWJQWEpDWGptUWZBOVIzak5CSWdiRlpJVTVtK2cvVnpna0x2TlRrakh3b215MDFMejB6THhVV1lHbVo2WHJsbVNrbEdiQXdBQWxrcEdhbVo1VEFnaW9uTVNrMUIrYVFsTlF5S0pNUEdOYmdvTllyS01yTWc2bm1Bb29XNjVYa2x5VEN0SEFsNStmQVJNQ2h5dkFQQUl6aGpkb0ZBd0FBIn0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7204231","2":"0.8654246","3":"0.5972381","4":"3","5":"2.25"},{"1":"0.6740811","2":"0.8773531","3":"0.5572070","4":"4","5":"1.75"},{"1":"0.6499355","2":"0.8765187","3":"0.5335599","4":"5","5":"1.50"},{"1":"0.6418077","2":"0.8684562","3":"0.5160019","4":"6","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[4]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZOQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk5DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldYWXZZMk5QWms5NEx5OUdOMW92Vnk5TU5UaFVNMHM1TDFwT1lqTnpXVlkzTUZSemJqRlJTak5RYVdSc1VWWllPVE53U2k5MVdtNXlNV0phZG5oSVNVWjJXbUZZVjFRdmFISkhNekprZEhWb2RqTnlZWGRWTDFaRFdXUm5OblEzWWsxUGVUYzVZM1ZKWm5WSVNqRmhkbVZoVlRJeVpqWm9RazFsWTJ0ek5FVXJkMk5XTUZwelZuQTJNRVp4ZFVWR2NWRlBOMFpyUzBRelRVbEhNQ3M0UVdOcE5GRXlVQ3RDTUdvclp6bENZMGRMUlVSNFJVZDBaVmx0TlhGTldrRm9RVVJaU1VseloxTTFRblp6UTIxV2VrSkNWVmhzYVZsWGNHRmFRU3RqZVN0cWFrRndiSFI1VTI5cmIyOXRlWE42VEV4SGIwOUNOSE5uYlc5RVdqRkdLM1ZTTjAxR2NFUlViVkp4WnpkclFqTlRia3BQV1dwSVRVdFVRa0p5Y0ZSRmEydFRPWFJEUzJkbWFVUjJTRFZ2VnpsMmVVTnJjM280VUV0QmJVcHNRMnRuUkZkQmNGTkZXVEpUUkVkSmJXZEpUVlJ3YjNkRlNVTjVhR1ZCT0RWRk1VTktWRzFuVm5sa2IzQjFZMVZhY1ZoeVYzUm9hbWxpVUZoS1ExaHFiVkZtUVRsU00ycE9Ra2xuWWtaYVNWVTFiU3RuTDFaNloydE1kazVVYTJwSWQyOXRlVEF4VEhvd2VreDRWVmRaUjIxYU5saHliRzFUYTJ4SFlrRjNRVUZzYTNCSFlXMWFOVlJCWjJsdmJrMVRhekZDSzJGUmJFNVJlVXRLVFZCSFRtSm5iMDVaY2t0TmNrMW5ObTV0UVc5dlZ6WTFXR3RzZVZSRGRFaEJiRFVyWmtGU1RVTm9lWFpCVUVGQlJUUTRjRzlHUVhkQlFTSjkgLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNzI0ODIwMFxcLFxcMlxcOlxcMC44NjM4MjI4XFwsXFwzXFw6XFwwLjYwMTA3NjVcXCxcXDRcXDpcXDNcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC42NzE1MDY4XFwsXFwyXFw6XFwwLjg3NzAwNDJcXCxcXDNcXDpcXDAuNTU1NzQ1OVxcLFxcNFxcOlxcNFxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjY1MTY0NzJcXCxcXDJcXDpcXDAuODc1MTg5NVxcLFxcM1xcOlxcMC41MzQxODM4XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNjM5OTAwNlxcLFxcMlxcOlxcMC44Njk5MjY5XFwsXFwzXFw6XFwwLjUxNDY5MjJcXCxcXDRcXDpcXDZcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls0XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6NCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbNCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWXYvY2NPZk94Ly9GN1ovVy9MNThUM0s5L1pOYjNzWVY3MFRzbjFRSjNQaWRsUVZYOTNwSi91Wm5yMWJadnhISUZ2WmFYV1QvaHJHMzJkdHVodjNyYXdVL1ZDWWRnNnQ3Yk1PeTc5Y3VJZnVISjFhdmVhVTIyZjZoQk1lY2tzNEUrd2NWMFpzVnA2MEZxdUVGcVFPN0ZrS0QzTUlHMCs4QWNpNFEyUCtCMGorZzlCY0dLRUR4RUd0ZVltNXFNWkFoQURZSUlzZ1M1QnZzQ21WekJCVVhsaVlXcGFaQStjeStqakFwbHR5U29rb29teXN6TExHb09CNHNnbW9EWjFGK3VSN01GcERUbVJxZzdrQjNTbkpPWWpITUtUQkJycFRFa2tTOXRDS2dmaUR2SDVvVzl2eUNrc3o4UEtBbUpsQ2tnRFdBcFNFWTJTREdJbWdJTVRwb3dFSUN5aGVBODVFMUNKVG1nVnlkb3B1Y1VacVhyV3RoamliUFhKQ1hqbVFmQTlSM2pOQklnYkZaSVU1bStnL1Z6Z2tMdk5Ua2pId29teTAxTHowekx4VVdZR21aNlhybG1Ta2xHYkF3QUFsa3BHYW1aNVRBZ2lvbk1TazFCK2FRbE5ReUtKTVBHTmJnb05ZcktNck1nNm5tQW9vVzY1WGtseVRDdEhBbDUrZkFSTUNoeXZBUEFBRTQ4cG9GQXdBQSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.7248200\,\2\:\0.8638228\,\3\:\0.6010765\,\4\:\3\,\5\:\2.25\},{\1\:\0.6715068\,\2\:\0.8770042\,\3\:\0.5557459\,\4\:\4\,\5\:\1.75\},{\1\:\0.6516472\,\2\:\0.8751895\,\3\:\0.5341838\,\4\:\5\,\5\:\1.50\},{\1\:\0.6399006\,\2\:\0.8699269\,\3\:\0.5146922\,\4\:\6\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[4]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qUXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTkNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaZGk5amNXeDRlV000UlZvck5tTmthbFJOVUVneFlUSm1NMHgyY2l0T1RYWjRWRGRLTTFWelRXeGFaVkJJUWpGeUsyWXlkVzkwWTNvM1VpOTNObVZWYldWNlYxbDJMelk1T1ZSVVV6STNkWE5ZT1RsYVpFa3hLelY2U0dOSVYxQklXU3RKT1UxdEszTnVPVFJ2VlZkb04yaFRVQzlWVFhCNFdVUkVTREUzV2xBMmFESlhVbkEzVWtGTGIyaG9aV3RFZFhoaFEwRXhlVU40ZEUxMmQxQkpkVlZDWnk5M1pFc3ZORVJUV0hocFowRk5Wa1J5U0cxS2RXRnVSbEZKV1VFeVEwTkpTVVYxVVdJM1FYSnNUVEJTVmtaNFdXMXNhVlZ0WjB4c1RTOXpObmR4VWxsamEzVkxTM0ZHYzNKemVYZDRTMHhwWlV4QlNYRm5NbU5TWm01c1pXcENZbEZGTlc1aGIwTTJRVGt3Y0hsVWJVcDRWRU51ZDBGVE5WVm9Ta3hGZGxoVGFXOUVObWRpZUM5aFJuSlpPSGQwUzAxMlVIcG5TbkZaVVVwRlF6Rm5RMWRvYlVKclozaHBURzlEU0VVMlMwRkNRM2RyYjFoM1JFOVNPVmxuVlVwdlNHTnVWMHRpYmtwSFlWWTJNbkp2VlRWdGFuaDZVVlkwTm10dU1FMVZUamg0VVdsTlJuaHRZVVpQU201d1VERlJOMHA1ZW5kVmNFMTZPSEZHYzNSMFV6ZzVUWGs0VmtacFFYQlhWMjAyTlZadWNIQlNhM2ROU1VGS1NrTlNiWEJ0WlZWUlNVeHhjSHBGY0U1UlkyMUZUbE5WYzNWblZFUTFaMWRKVDBSWGNTdG5TMFJOVUhCd2IweExSbkZ6VmpWS1ptdG5hbFIzY0ZkamJuZE5WRUZaWTNGM2VqaEJLemNyUkZWQlZVUkJRVUU5SW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MjU4ODY5XCIsXCIyXCI6XCIwLjg2Mjk4MjRcIixcIjNcIjpcIjAuNjAxNzc4MVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY3MjkxMzRcIixcIjJcIjpcIjAuODc2NzI1NFwiLFwiM1wiOlwiMC41NTY3MDM2XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjUyMjIwNFwiLFwiMlwiOlwiMC44NzQ0NjExXCIsXCIzXCI6XCIwLjUzNDQzOTdcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42NDAzODI4XCIsXCIyXCI6XCIwLjg2OTY5ODlcIixcIjNcIjpcIjAuNTE1MDQ3NFwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzRdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjQsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1Zdi9jcWx4eWM4RVorNmNkalRNUEgxYTJmM0x2citOTXZ4VDdKM1VzTWxaZVBIQjFyK2YydW90Y3o3Ui93NmVVbWV6V1l2LzY5OVRUUzI3dXNYOTlaZEkxKzV6SGNIV1BIWStJOU1tK3NuOTRvVVdoN2hTUC9VTXB4WURESDE3WlA2aDJXUnA3UkFLb2hoZWtEdXhhQ0ExeUN4dE12d1BJdVVCZy93ZEsvNERTWHhpZ0FNVkRySG1KdWFuRlFJWUEyQ0NJSUV1UWI3QXJsTTBSVkZ4WW1saVVtZ0xsTS9zNndxUllja3VLS3FGc3JzeXd4S0xpZUxBSXFnMmNSZm5sZWpCYlFFNW5hb0M2QTkwcHlUbUp4VENud0FTNVVoSkxFdlhTaW9ENmdieC9hRnJZOHd0S012UHpnSnFZUUpFQzFnQ1dobUJrZ3hpTG9DSEU2S0FCQ3drb1h3RE9SOVlnVUpvSGNuV0tibkpHYVY2MnJvVTVtanh6UVY0NmtuME1VTjh4UWlNRnhtYUZPSm5wUDFRN0p5endVcE16OHFGc3R0Uzg5TXk4VkZpQXBXV202NVZucHBSa3dNSUFKSkNSbXBtZVVRSUxxcHpFcE5RY21FTlNVc3VnVEQ1Z1dJT0RXcStnS0RNUHBwb0xLRnFzVjVKZmtnalR3cFdjbndNVEFZY3F3ejhBKzcrRFVBVURBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7258869","2":"0.8629824","3":"0.6017781","4":"3","5":"2.25"},{"1":"0.6729134","2":"0.8767254","3":"0.5567036","4":"4","5":"1.75"},{"1":"0.6522204","2":"0.8744611","3":"0.5344397","4":"5","5":"1.50"},{"1":"0.6403828","2":"0.8696989","3":"0.5150474","4":"6","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[4]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjRnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqb3hNaXdpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjoxMiwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qUXNJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiTkNERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaZGk5alkwOW1UM2d2TDBZM1dpOVhMMHcxT0ZRelN6a3ZXazVpTTNOWlZqY3dWSE51TVZGS00xQnBaR3hSVmxnNU0zQktMM1ZhYm5JeFlscDJlRWhKUm5aYVlWaFhWQzlvY2tjek1tUjBkV2gyTTNKaGQxVXZWa05aWkdjMmREZGlUVTk1TnpsamRVbG1kVWhLTVdGMlpXRlZNakptTm1oQ1RXVmphM00wUlN0M1kxWXdXbk5XY0RZd1JuRjFSVVp4VVU4M1JtdExSRE5OU1Vjd0t6aEJZMmswVVRKUUswSXdhaXRuT1VKalIwdEZSSGhGUjNSbFdXMDFjVTFhUVdoQlJGbEpTWE5uVXpWQ2RuTkRiVlo2UWtKVldHeHBXVmR3WVZwQksyTjVLMnBxUVhCc2RIbFRiMnR2YjIxNWMzcE1URWR2VDBJMGMyZHRiMFJhTVVZcmRWSTNUVVp3UkZSdFVuRm5OMnRDTTFOdVNrOVpha2hOUzFSQ1FuSndWRVZyYTFNNWRFTkxaMlpwUkhaSU5XOVhPWFo1UTJ0emVqaFFTMEZ0U214RGEyZEVWMEZ3VTBWWk1sTkVSMGx0WjBsTlZIQnZkMFZKUTNsb1pVRTROVVV4UTBwVWJXZFdlV1J2Y0hWalZWcHhXSEpYZEdocWFXSlFXRXBEV0dwdFVXWkJPVkl6YWs1Q1NXZGlSbHBKVlRWdEsyY3ZWbnBuYTB4MlRsUnJha2gzYjIxNU1ERk1lakI2VEhoVlYxbEhiVm8yV0hKc2JWTnJiRWRpUVhkQlFXeHJjRWRoYlZvMVZFRm5hVzl1VFZOck1VSXJZVkZzVGxGNVMwcE5VRWRPWW1kdlRsbHlTMDF5VFdjMmJtMUJiMjlYTmpWWWEyeDVWRU4wU0VGc05TdG1RVkpOUTJoNWRrRlFRVUZGTkRod2IwWkJkMEZCSW4wPSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XCJmYWxzZVwiPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cImFwcGxpY2F0aW9uL2pzb25cIj5cbntcImNvbHVtbnNcIjpbe1wibGFiZWxcIjpbXCJSTVNFXCJdLFwibmFtZVwiOlsxXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIlJzcXVhcmVkXCJdLFwibmFtZVwiOlsyXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIk1BRVwiXSxcIm5hbWVcIjpbM10sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJtdHJ5XCJdLFwibmFtZVwiOls0XSxcInR5cGVcIjpbXCJpbnRcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcImlWYXJzX210cnlcIl0sXCJuYW1lXCI6WzVdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19XSxcImRhdGFcIjpbe1wiMVwiOlwiMC43MjQ4MjAwXCIsXCIyXCI6XCIwLjg2MzgyMjhcIixcIjNcIjpcIjAuNjAxMDc2NVwiLFwiNFwiOlwiM1wiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjY3MTUwNjhcIixcIjJcIjpcIjAuODc3MDA0MlwiLFwiM1wiOlwiMC41NTU3NDU5XCIsXCI0XCI6XCI0XCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNjUxNjQ3MlwiLFwiMlwiOlwiMC44NzUxODk1XCIsXCIzXCI6XCIwLjUzNDE4MzhcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiMC42Mzk5MDA2XCIsXCIyXCI6XCIwLjg2OTkyNjlcIixcIjNcIjpcIjAuNTE0NjkyMlwiLFwiNFwiOlwiNlwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzRdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjQsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbNCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1Zdi9jY09mT3gvL0Y3Wi9XL0w1OFQzSzkvWk5iM3NZVjcwVHNuMVFKM1BpZGxRVlg5M3BKL3VabnIxYlp2eEhJRnZaYVhXVC9ockczMmR0dWh2M3Jhd1UvVkNZZGc2dDdiTU95NzljdUlmdUhKMWF2ZWFVMjJmNmhCTWVja3M0RSt3Y1YwWnNWcDYwRnF1RUZxUU83RmtLRDNNSUcwKzhBY2k0UTJQK0IwaitnOUJjR0tFRHhFR3RlWW01cU1aQWhBRFlJSXNnUzVCdnNDbVZ6QkJVWGxpWVdwYVpBK2N5K2pqQXBsdHlTb2tvb215c3pMTEdvT0I0c2dtb0RaMUYrdVI3TUZwRFRtUnFnN2tCM1NuSk9ZakhNS1RCQnJwVEVra1M5dENLZ2ZpRHZINW9XOXZ5Q2tzejhQS0FtSmxDa2dEV0FwU0VZMlNER0ltZ0lNVHBvd0VJQ3loZUE4NUUxQ0pUbWdWeWRvcHVjVVpxWHJXdGhqaWJQWEpDWGptUWZBOVIzak5CSWdiRlpJVTVtK2cvVnpna0x2TlRrakh3b215MDFMejB6THhVV1lHbVo2WHJsbVNrbEdiQXdBQWxrcEdhbVo1VEFnaW9uTVNrMUIrYVFsTlF5S0pNUEdOYmdvTllyS01yTWc2bm1Bb29XNjVYa2x5VEN0SEFsNStmQVJNQ2h5dkFQQUFFNDhwb0ZBd0FBIn0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.7248200","2":"0.8638228","3":"0.6010765","4":"3","5":"2.25"},{"1":"0.6715068","2":"0.8770042","3":"0.5557459","4":"4","5":"1.75"},{"1":"0.6516472","2":"0.8751895","3":"0.5341838","4":"5","5":"1.50"},{"1":"0.6399006","2":"0.8699269","3":"0.5146922","4":"6","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[4]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBNWtBQUFFekNBSUFBQUEwTEZEUUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzNkZjJ3ajZYblk4V2NrM2UzWlR0ckczVFIyZEl2Y3BVUFZVVlVFVFFSc0xlYlFYcEttR0tvV21HWWpvRVo3Nmw5a2pUYW0xc0ZlWGR5MkRZSzlKckNTV3hGdWM2QUNGRmluZFFCNTBSSkN4VW1jTnBmMFRONHR1a0JyVktFVGNaeTc5azQrTjE2M3NXTTN0eitrdDM4TVJmSEhVS1NHNzRqemNyNGZ6Qi9rOE9XamR5VSsrejR6OC9JZFN5a2xBQUFBZ0lHbXh0MEJBQUFBSUNScVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFXWWlqYjY0dUJocGZLRGw3dDI3NCs2Q01VaE1SSWRNREkzRXhMbVpzRHlOdHBhVnMvKys3dDI3ZC9IaVJlM2RpQ0lzWFkxUFdNYUFzenBUWXByeW1TVG0yR09TaVNOaXhJeERXSU82R2k3czVPVXBjd3dBQUFCZ0ttcFpBQUFBbUlwYUZnQUFBS2FpbGdVQUFJQ3BxR1VCQUFCZ3FzalhNZkE5LzhXZlBrUHJnNkZhZmZ2d3d0azY4YitHYXZXRDd4dXVuZS9yUTdWNjZ2RjdaNGdwSW44eVZLc1B6SHh6K0pCZmVXdllsdSt6RG9jUCs0MjNoMm8yUFh4RUVSSDUxbkJobjNyeW5UTUd4Z25ueVk5cmovbm9LL3IvSXROLzVVUGFZLzdmSC93dTdUSHYvMWxMZTh3SGYwWjdTRkZuemNZaGZPbm5yK29QbW1DLzljWVBuS0gxY09QRk40N2VjN1pPZkdPb1Z1K2RlbkNHbU1OMTlkTE1INThocHNnN3c0MXUzejh6N0VmL1BTTGZIdnAvc2d2V1kwTzIvSE1pajc0NlZNdXBzNXhuZkwvSTBaQmhQN0EvZkZpemNGNFdBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWVNrTXRlM0M3c0xLeVVyaDlNSG9vQUxxUW1FQU1rWmpRYU9xRERYOGJkMGZHYkdiRTl4L2NMbnhLbnQvWm1kWFNHd0Jha0poQURKR1kwS2k5aEozNllPUG9uZFFZT3pOZUk5YXlkN1kvODhZYjhyR1Z6eno3d3M3Vnk4ZDdGeGNYV3kzdTNiczMybzhBK3VMVDFRZUppWFBGeDJrNEpDYkdhWUkvWGFQVnNuZHE4c0xPem1VNXVGMzQxTzJEeTFlYXg1cDM3OTcxSHl3dUxsNjhlRkZFaE1zcGlFRHowNFV1d3ljbW9BTWZwNkVNbjVoL01xNHVZcEpOY0o3cStlN1g3SWVmZVVwTElBRDZrSmhBREpHWTBLSjlVa0dTSnhqSXFMWHNrNWZlck4wUkVYbjdMYm5FQkNBZ0hraE1JSVpJVE9oMjlFN0szOGJka1RFYnJaYWR2Zkw4cGMrdXJLeXMxSlpPNXY0QUdDOFNFNGdoRWhPSXhxanJHTXhlS2U1YzBkSVRBTnFRbUVBTWtaaEFGTGhYQWdBQUFFeEZMUXNBQUFCVFVjc0NBQURBVk5TeUFBQUFNQlcxTEFBQUFFeEZMUXNBQUFCVFVjc0NBQURBVk5TeUFBQUFNQlcxTEFBQUFFeEZMUXNBQUFCVFVjc0NBQURBVk5TeUFBQUFNQlcxTEFBQUFFeEZMUXNBQUFCVFVjc0NBQURBVk5TeUFBQUFNQlcxTEFBQUFFeEZMUXNBQUFCVFVjc0NBQURBVk5TeUFBQUFNQlcxTEFBQUFFeEZMUXNBQUFCVFVjc0NBQURBVk5TeUFBQUFNQlcxTEFBQUFFeEZMUXNBQUFCVHpaelBqL25GNy9taTlwaGZPL3lXOXBnaThrQ1U5cGp2UEhwQ2Uwd1IrY0wvUzBVUjlvOGZ2VmQ3ekJuclNIdE1FWGsraXFDSjhkYy83Mm1QK2Z6NzljZjgwc09hOXBqdlBQcE83VEYvNVNzL3BqM203My90dTdYSC9JNExEN1RIaEY1L2NxUi95SmlPWUdnVGtUODllbHg3ek4vKzlvZTB4eFNSZi9QdXhTakNQampTWDBkTlJmUEgrdlFIb29nYUM1eVhCUUFBZ0ttb1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0ttb1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0ttb1pRRUFBR0FxYWxrQUFBQ1lpbG9XeWVRVjAxYTdkTkhyMko5M2U5L2o1aythK28vVFJjOHRGcjNqVjlvRXZSOUFnSDdKZUo0ZE9QZWZDWmhrMkpHeGJWZDcwOGlIU0dwWkpKTmRxRFkybHlSWFVVb3BWY25WMWxONTE5K3ZHcHRMc25XamUyenppamUyWkdtem9hb0YyODFuOWpZYlN0MlN0Y3kyaURnbDFkaGNXdHBzS0Y5amMzNGMveWpBUlAyUzhaeTQrZFI2N2Z4K0hHQ2c0VWJHNDMxdVdYSzVyZkpKRmtjK1JGTExBaUxPdGMwbDJkdHY1ZWpxNXFhc2IzUU1wOTZ1ckc0dW5UeGZtTE5GN0VLMXNob1F6eTRVbk1nNkMweXk3bVNNL2dlV0d1MlpEYUNQSVVaR0VSRzNMTmxTdHFPWTdhSjlpS1NXQmNRcnJxM1hsbGFYVzBlVk1sZTQzcG1JN2taOWJybjF6TW5tdGpMK1JSS25jSEl3ZWh5dHlBUURJSnpPWkd4ZTJjd1hYZGN2YnB2WEt2UEZZcjdvK1UveWJuTzNmNDJ6ZFRYVFA3ZnI1cTE4c1pqMlgrMitHTnA4em5sWllDZ0RSa2FmdHorZmRjVHBXOHhHTVVSU3l5TFJ0aktXWlZtcDdkV09DeVFpSXM2MXpiM1cxUlN2V0o2LzFuNFk2WlJVSmJlVjZad2lWRnRQK1FOai9UeTZEa3lXZ0dSME43WlhHMHFwYlAzR3ZvaDR4ZlNOK1laU1NtWHI2M3ZOTkJTUnRuT3JYdkhHM21aRHFjYm0wdDYrNXhYVG1TM1oycFpiU2xVTGpiei83c3JDK2xyUkU2K1l6a2hGS2NWcFdXQllwNCtNSWlMZXJzdzVJZ0hGYklSREpMVXNFaTFYVWFxUzh5Y01kTEVMMXhlYVYxTzhYY2wybjMwVnA2UlVZMVBXVTYxeXRqa1ppTW15UUFnQnlaaWFsL1dVbFM2bVN0V0NMZDd1dGpSUDJLYm0rNVNmZHFGYUxVZ3huVnF2MWVvTnUxQ3Q1Q1IzdldDTGlMZS81NCtsbVMycDFSdmU3clpzWG5ORXhGNWVwWmdGaGpOb1pQUjJ0OWN6bHVVbldtY3hHK0VRU1MyTHhITktGY2tFZmRmRXllYTJiaFE5Y1RmcWM1MkhubTdlYjI4WHFwVmNyZDdvZUpISnNrQklYY2xvRjZwS05WYTNVOE4vN2RuTlc5YWEzQW8rMTlyOGVwbFNxa1NPQXVIMEh4bEZ4TnVWNjhkWnBocHQ1M0JQUkRGRVVzc0NmYXRaNTlxbXJLK2xBNjZpdEw3TjZlM3ZCVVgwaW5uVytBSE9yaU1aM1dMUkU3dFFWWlhjM3I1bnp5M1V0bmY3NUZXalhxdXRwL0w1OGxhdVV1MDVWeVFpWXM4dEhKOGxjdk41MTU1YnFKMThqZVdjMTA0QURIYkt5SGc4d2NCbkw2OUtjTXJxSGlKbk5NWUN6T0VWMDZuMW1rakdrb29xT1U2cFVyWXNTMlJwYWFsV3E0bXNiMjgycWdXN2NEMjNYczVXN1ZaN1NWbmJtNDNyODV2WFpjMnlhaUtTcXlqSHpWdVpMUkZKV2V2TitFdWJqY0w0L25XQVFmb2xZNjVTbWQ5ZXM5YWJhV2FMbENwbDZ6akpsalpGUkp4c0xwT3h0a1NXbHBhV05tK1ZDZzJ4TXRhV0xDMHRTUzJUbDl6V2xzaFdlcjVSTGRpdHdKS3JxSktJVThsWkdXdkw3MFN1d3FsYW9KL2pKRDF0Wk16bFpHdXJKckl0RGY5dzBpdXVyZGRxa3JLMm0rTnFkRU9rcFpUU0dLN0w0dUxpM2J0M1JlVG9xM1BhZzMvdDhGdmFZNHJJQTlIL0Mzbm4wUlBhWTRySTNYZWZpaUxzSHo5NnIvYVlNOWFSOXBnaTh2eDg4MHhLNjVPR1lmaS9ybCtzWjdSSGZ2NzkrczlHZituaHQ3WEhmT2ZSZDJxUCtTdGYrVEh0TVgvL2E5K3RQZWI3TGp6UUh2Ty9Pdi9TZjNCZW1lZ1YwMnR5Sy9qOHE3bGF2NzEvLytXL3FqMjRwVDJpaUlnY1JSRDQ3WWZ2MXg1VFJONTg5MklVWVI4YzZUOG5PQlZCSFNJaW4vNmhmK2MvbUx3Umt6a0dBQUFBTUJWekRBQUFKbW5lcVN1Vm4rTTdYQUNvWlFFQVpuRktTcFhHM1FrQXNjRWNBd0FBQUppS1doWUFBQURud2I4emRicG5UYTcyL2YzYTlNTWNBeVRYMzV6NjZSRHYrcTJqejJudkNaQms0UmE2bWZyQXZ2YWVBT2hIejRqcEZkZnExNVZ5M0h5NjZKMHNSZUl2VGFLVWZVcWJVMURMSXJtc0dUNy93UGc5Vkk5Q3ZPdUM5bjRBNks5VmxmN0U0My8zOUphZmYvRHIvVjd5ZHJjWHNsVVJjYklMTjNhOVFyTlFkVGY4bFdqWGN4VlZTZ1czT1Exak9aTExtdWJ6RDR6ZmZXcFpJUGIrMW52K3Z2OWc0TkRaYWlraXYvbW52OWI1NHNKOFNrUkVVdk1MclNzcmJsa3FTam5pRmROclJlOVdZSnRUalR4ZjlzN05sWldWbFpXYmQwWU5KQ0l5OWNHR3Yra0lCZ3hnUFRZVFl1dU5FekN6eDk5bFdWYnpQdkp1M3JMT05QdG5WRm9UVXpzeUhlM3V5MkdJYmR5OURpWGVpUW1jUXRPSXVWZjMvK052MUh0dkFHOHZyeTRNYWhObzFGcjJqaXp0N096czdGeTlQR0lna2ZhQmpVRU81MkZtSnN6V3BUbXpSMTJ2cjdVcVZhOHhkMHNwcFpTcWJNNm54Q3Z1WjVWU3FySndjdi8zYUdsTVRPM0lkSFM1cjQ1Q2JPUHVkUmh4VGt4Z0FCMGpwcjI4dWxkMlJjUXQ3NjB1SDA4ZVNNMzdPNlZSbHprN3VNM3BYUnZ0WDNhbjl1S0xMejc5M012Rks3TnRleGNYRjF1UDc5MjdKeUtSM0pBT2llZC91a0w3amYvenEvNEQ1eTk4N1BTVzdoKzkzTytsd05rL3R0TmN3ZDNkbDJWSDdPWjhIeWVidTdIdmlSUDVqVGVIVFV4QWl4RS9UdStxaUc2d0dqY2tKc1pweEUrWG5tK1kySVhyWWxtV0xHMDJxclo0eGZUR1hMWGtGRzdOcHkwckk3bUtLb2xJUjV0aGpOYXpneWRYZDNhdTNybTVVcmpkbnB5dCsvd3VMaTVldkhoUlJJNitPdExQQVFMNW42N1FuTy85eDgxSE05UER0aFJ4di9Ldk9sODhaV2FQWDhxMm1SL3lJSE0wUXlibUgwWGZFeVREaUpsNFB5RzE3TkFqcG54alBCM0VaQnN4VHdjT2xFTnF2OWVKWGFpV2poK29RbkNiWVl3MngyQjJkbFpFTGw5OStabTNYanNZS1pLSUhMMlRDbndNUkVYTEhJTlRadmE0KzlKZXVycjU4dHd3cTR1TVRHdGlha2Vtbzh1N2FpYkVGaGdxYUZuSzQ5bnJ6YjFkVDgrOGttVjQ4VTVNWUFBOUkyWWt0TndyNGVDMVYrWFM3T0IyQXgyOWsvSTNEYkdBZ2FhbndteWRUcG5aMDFIS3VubXJuRDNmbThkclMwenR5SFMwdTYrbVEyd0JnWUltcjR1M1cxOXRLS1VhcTlzYmJ1L1RvTGRFSzc2SkNaeEd4NGdaa1pGSzVvUGJoWTk5NWcyUnA1OTd1Y2hNZHBnbnd0ay8wajdCd0N1bVUrczFrUzFyUzNJVkZYVkZTMkxDTEV2Zjk0ZitnMWZlL0V1bnQzejJxVDg0NWRVK1MxZjZsMDdzUm4waFd4RHhPcDU2eFRPdlpCa2FpUW16eFhoRjlwRjZObnVsdUhORlYwK0FjNmZwa0RGdzlvK0lVeWljN0d5ZkNSUTFFaE5tY2QvNHk4Y1BCd3hKYlMzRmVmcjNlbDRQbXJ4dUY2clp2R1ZsbXQ4cTZYenFuWDBseTlCSVRKanR2RTZ5aGhEZm5nRlJVelBUSWJaeDl4cVlOUGVQSGcreEJVVUtuTHp1cjRsWGtVemVEWGg2NXBVc2dXU0s4NGhKTFlzRWkvSHNIeUE1M2xXUGhkaDY0d1JQWG5jM3RpVWw0cFFxVW5hN240Wll5UkpJcUJpUG1QR2QvUUJFVGMxUW1BTGoxMjlSZ2pNTG5yeCtiZlZHeWxvWGtWeEZpVWpYMHpPdlpBa2tVNXhIVEdwWkpKZWFac0lBTUg3M2p3Sk9zb1lUTkhtOWE3NTY5L1QxczY1a0NTUlRuRWRNYWxra1Y1eVBNb0hrdUI4MFlRQkFyTVI1eEtTV1JZSk5KK051UTBDODNkYzF4d0JBZEdJOFl2SS9DSkxyS01aSG1VQnlhSnhqQUNBaWNSNHhxV1dSWENyR1I1bEFjdHcvWWlRQzRpN09JeWIvZ3lDNTRweVpRSEpReXdMeEYrY1JNNzVuaklHb3FTa3J4RGJ1WGdPVDVyNmFDYkdOdTlkQXN1Z2FNYjFpMnJLc2ROSHIyT3ZtTGN1eXJPTWJtcVF0SzZCUlg5U3lTSzZqeDZ3UTI3aDdEVXlhQjRjekliWng5eHBJRmowanBsZGNxMTlYU2wydnI3VVhxcTVrbFZKS2xSd1I4WGJycXcybFZHTjFlOE1kcW0vOGQ0RGtVaHpLQVRId1FNVjMzVW9BdnYreWM4MS84RXgyNC9TV3I1YXY5WHZKMjkxZXlGWkZ4TWt1M05qMUNnWC9EaVZ1T1pQSkxHMDJxczNuZS9XR2lOMm9MMlFML1NKMVlEQkhjcWxwSzhUV0d5Zmdpc254RlpLdVN5WkRYekFCRXVUKzRVeUliZHk5QnBMbFIzN3FsL3h0NENqWmF2a2pQL1ZMUFdFVzVsTWlJcEthWDJqdDgxTFhsRkxYNnlsL2pMUUwxV3pac3F4eXR1UU0xemRxV1NUWDBiUVZZdXVPRW5URnhHdk0zVkpLS2FVcW0vT3B2bGRWQUlqSXc2T1pFTnU0ZXcwa2k1NFIwei9sS2lLTitsNXJuMjNiSXVLVUdxdjFYVTlFdk9KK1ZxbUtaUExEVFRGZ2pnRVNyTGI5cy82REQzLzBsMDl2K2RwbmY3YmZTNEZYVEd5bmVURHA3c3V5STE0eDhLb0tBQkdSQjBmTU1RRGlUc3YzTGUzbDFiME5WeHpITGUrdFh1c2FDcjNkYlprcmlMZ2IyM0t0SUhhcFVzNjc0Z3h4YnZiMHJybDU2OFo4YS80Q01GbisydDk3cWZsbzBPb0VKeTFGWHYrM24raDhzZTJLeVg3WCsveFNWcnpUMm9SQVltS2lQRHlhakN1RUpDWW1tWjVsZk96Q2RiRXNTNVkyRzFWYnZHSjZZNjU2YlQrZFdxK0pMRzAycW82SU9OZFdiNlNzZFJISlZkUlFVVS8vSDhRcHFWdXkxamJwRDVnZ1J6Tmh0aDVCVjB4ODdyNHMyd1BhaEVGaVlxSThPSm9Kc1kyNzE3MUlURXd5VFNPbU9DV2xsUEtQK2V4Q3RlU0lYYWlxazMzK2JuV3lyTUVRQmg0TkgwZk1scysyMkJjUWUyb3F6TmJGWGw3ZEs3c2k0cGIzVnBjN1RzaTBTdGxUMm9SRlltSnlQRHljQ3JFRmhncjZrbVhuV3BVOTM4dnNYTmh5UkNRbUpwYVdFVE1pUS8wY3I1aTJNbHRMbXczVlBPZ2tQekVKOU14a3R3dlhKV05aMW8zNVd3VmJ2R0w2ZUVnOE9TdmIxVVlYRWhPVDRlSFJkSWd0SUZEZ2x5dzcxNnJzL2w1bTE4S1dPcENZbUVpYXZ2c1ZpZE5yMmViaDZwcmNPajc1Nng5MDNwSU5jaFBHVTlOaHRsNjlWMHo4M2UzZjhXcHZNeklTRXhQbEN6LytLWDk3ZERoOSt0WnErWVVmLzFSdkhHOTNleUhyaUlpVFhkamVQVWtGZjRwUG83NlFkY1Iybk9hQ2xzMWpUYmVjeVdpcU5rbE1UREpkSTJZVUJrMDV5bFdDRGxZYjlhMzZYRW1ZNEE2akdieEFPNG1KQ2JMb3ZuRDhjTUNsd3JhV2N0ZDVzZWYxb0M5WjJvVnFObTlabVZ4RmxVNWFOcitYNlM5c1dYTHpWcnFvNFZ0YkpDWW1WNXhIekVGekRMYktRVk9JbkpLK3l6SEF1QnhOaDlsaWdjVEVCTkUzWHpid1M1WkJhMVdlVEdidld0aHlOQ1FtSmxlY1I4d0I2eGhrY3gzUHZXS1JMMmRpY2t5RjJzYVB4TVJFT1RxYUNySDF4Z24ra3FXN3NTMHBFYWRVa1ZhbDJUYVozZWZ0YnN2Y3FDZE9TVXhNdEJpUG1BUG15NWEzdGpMV2lkUjYvWno2QlVRdnprZVpweUl4TVZFZVBwb09zUVVFQ3Z3aXBuTnRkVHRsV1phVmtXemJQVXo4d3ZWNFZZTTF1VFg2cVZNU0U1TXN6aVBtb1BPeW01c05kYUt4T1g5Ty9RS2lGK2NWUms1RlltS2lIQ2tyeEJZWUt1aUxtTDFyVlo1OEw3Tm5ZY3RSa0ppWVpIRWVNUWZjOTZzNU85N25GZGZxYzlXb2V3U2NsempQWkQ4VmlZbUpjblI0VGd2M1JJekV4Q1NMODRqWnI1YjFpdjRkeFVUVzE5dDJMMjE2NG9RNGZFMzl6ajg0KzVzR09QejZCZTB4UlVROWNhZzk1dlI3SG1tUEtTSkhqeUk1NUptYU9USWlwb2c4UDlwWmozaWNaRDBUblluNWhQVlFYOGVhZnVSLy9LVDJtTFB2KzZiMm1IUGY4YisxeDd4NDRWdmFZeTU4ai83L2ppNU1SZkxmMFNpVThmZXcxVHhpZnZLLy9SMU5IVHZ4NkN2djFSNVRST1JJLzNISTBXUEQzYmYwakt4SW9rcWZLd1NqbVk2a3I1LytvWkhlSHVjUnMxL1gvQXN2bGM0TEp0cVd4d1RpUU0yRTJjYUt4TVFFT25wa2hkakczZXQySkNZbVg1eEh6QUh6WlF1ZG1jaTNNakZKNGp6NzUxUWtKaWFLT3JKQ2JPUHVkUzhTRTVNc3ppUG1nSi9UdkkwSjM4ckVKSXJ6WFV4T1IySmlvaHhaWWJiNElURXh3ZUk4WWc1YWswc3FIVmRNV1BBWkV5VE9SNW1uSWpFeFVkU2hGV0liZDY5N2taaVlaTHBHVEg4aHZPNzdSamNQQkU5dWFCTGNySThCY3d5dXplKzNYeUxoaWdrbVNaeVBNazlGWW1LaVdJZFdpRzNjdmU1RlltS1M2Umt4dmVKYS9icFM2bnA5cmIxTWRTWGJmdmpuRmROcmNtdjRPZWNEempJMTZ1dXMvSXhKRmUxUlpzZis0eFhaaHp6R0hJVEV4RVNabERrR0pDWW1XT09UVi8xdDRDalphdG40NU5XdUlON3U5a0xXRVJFbnU3QjljdHRvdDV6SnRJMlA3c1o2cmJhZWFqOU5lN29CNjh1Vzl6WWJpbTlpWWpLcEdSM3JualNQTWgwM255NTZKOGVReDRlVnR2K2t2dHBRVmRzcnBqZmN3c2pYSFVsTVRKUllubVFOZ2NURUpQdUxMNzNVZkRSb2RZS1RsaUpmL3NRbk9sOWNtRStKaUVocWZtSC9lSitYdXFaVXljMWI2V0tqV3JEOTJUcU9lTVgwV3RGemhraXBBWE1NU3RmbkdtM1B1V0tDU2ZMbFQzekMzd1llWmJaYTlxUmwzNlBNcnNQS3ZYcERSQnIxaGF5R0NYUWtKaWJMVWFndGRraE1UREpOVnpMOXdWQ2tVZDlyN2JOdFcwU2NVbU8xdnR0MjdkSmVYbDBZcm04RHpzdm1NNW10amoyNVNtRzR3RURzUGYzcFgyNCtHalFMOXFTbHlCcy84N09kTHdZZFpYWWZWaGFxMmJ4bFpYSVZWZExRY1JJVEUyVml6c3VTbUpoZ1NzY2RIT3psMWIwTlZ4ekhMZSt0WHVzNjRlcnRic3RjUVVUbS9UYlNxUHZQQnhwd1hwYTdTMk9TV2FHMmJrRkhtY2VPRHl1OTRuNVdxWXBraHAzOWN5b1NFeFBGT2dxenhRK0ppWW1tWmNTMEM5Y2xZMW5XamZsYkJWdThZanJ2dHI1UXNpYTNTbzZJMklWYjh6Y3N5N0xLMlNHbjVBMlk5ZUFVT2lwaXU4Qk1JRXdPTGZObGc0OHlVNTJIbFc1K1c2NFZ4QzVWeW5sWG5KR25HWkNZbUNSV3ZHN2lGUjZKaVFtbTV4c21JazVKdFM1UTJvVnFTVVNjcXVvOC9Xb1h1dmVjYnN4MzVBVEdhVXBIWnRxRjYySlpsaXh0TnFxMmVNWDB4bHkxNUJSdXphY3RLeVBOV1FYWFZtK2tySFVSeVZXaXVTYzRZSzVZbm1RRjBFbkxpQm1OV0t6OERveUZtbFlodHQ0NFR1bmsxdXQyb2VwZkUvRnYwSDY4V0Y3ekdXdW5BNzJzd3pCYm9LQUY4anBYeER0KzFscVcvVXhMc2dPSnBXdkVqQUsxTEpMTG1sWWh0bkgzR3BnMDJ1YkxCaTdEN3UzV1Z4dEtxY2JxOW9ZclhtUHVsbjljV2RtY1QvVmR1UjFBbHppUG1Nd3hRSUxGK0lvSmtCeC84TSthQzZwLzZPZHVudDd5OTMrdWUrbjFkdDd1OWtLMktpSk9kdUhHcnRlYXJicFhiNGpZamZwQ3RpQzJOQytOdVB1eTdJaFhESDRMZ0c0eEhqR3BaWkZjVm93ekUwaU9IL2puelJKMjRGZkFXaTFGNUVzLzMxdlhCaTJRWndldWlPZVhzdUlGdmdWQWp6aVBtTXd4UUhKTnphZ1EyN2g3RFV3YWZmTmxBeGZJQzFvUno5MlhaYnYvV3dCMGkvT0lTUzJMNUxLbWprSnM0KzQxTUdsMDFiTDI4dXBlMlJVUnQ3eTN1bnc4VzhEZDJKYVVpRk9xU1BtNG1HMlZzc0Z2QWRBanppTW1jd3lRWEZOOGtRdUlnWDZMRXB4WjhBSjV2U3ZpTlNjWTlMNEZRRDl4SGpHcFpaRmNVMVo4TXhOSURvM3J5d1lzd3g2dzdIckhQUTNhM3dLZ256aVBtTlN5U0s2WkdWMm5nd0NFTjBVaUFyRVg1eEdUV2hiSk5jM2tWeUFPU0VRZzl1SThZbExMSXJrZW00NXZaZ0xKd1hsWklQN2lQR0pTeXlLNVptSjhsQWtraDdidmZnR0lUSnhIVE5ia1FuTE5UQitHMk1iZGEyRFM2RnRmRmtCVWRJMllYakZ0V1ZhNjY1N1JidDZ5TE10cVd3VGFLNmJibnAyT1doYko5ZGpVWVlpdE4wNXdadmJzNzljTVNMaXBReFZpRzNldmdXVFJNMko2eGJYNmRhWFU5ZnBhKzJEb1NsWXBwVlRKT2Q2UlQ2M1hodTRiY3d5UVhJOXB1V0xTekV6SHphZUxYclYxTzNldm1GNlRXMHJaZ1U4QnRHaGNrd3RBUkY3NTBWLzJIL3pFNy9UZVByckQ1Ly9Helg0dmVidmJDOW1xaURqWmhSdTdYcUU1WkxybFRDYXp0Tms0SGtMZGZEbmIyTnpiR0xadjFMSklybGErL2UxWGYrYjBsdi94bVUvM2U2bGZabTZzMTJxU3N0WnpGVlZ5dXA4Q09ESDFhTnc5QURCSWE2QjhmSHJZbGhJd2VpN01wMFJFSkRXL3NIKzh6MHRkVTZyazVxMTBzVkV0Mkc2K25DMlZwSGhqNkw3cHFHVVBiaGUyTHhXdlh0WVFDamhIUDFuOVIvNkR4d2JOdFdtMUZKSC9rUDdYblM4R1phWmJsb3BTam5qRjlGclJjK1k2bnhiTzVld3NpUWxEV0VkSm1qQkFZc0pNZXE1a3lsNjlJV0tMTk9wN3N0emNaOXUyaURpbHhuNSsxL1BreHRaV2JXdExSRVFzR2VyOHoranpaZS9jL05objNoZzVDbkQrSHA4NkRMSDFoTm1yTjBURXo4eHU5dkxxUXYrblVTSXhZUXpyVVpqTlRDUW1US1ZseExTWFYvZktyb2k0NWIzVjVhN1RPdDd1dHN6WmRxR3FsRktxc2JrMDlJWE1VYy9MM3JsWlczcjV1VGUzTzNZdUxpNjJIdCs3ZDIvRUh3SDBNK0tuNnpFZGx6YnQ1ZFc5RFZjY3h5M3ZyVjQ3enN6VXZMOVRHbldaSzNRL2pSNkppZk0wNHNjcE9WL2tJakV4Um5FWU1jVXVYQmZMc21ScHMxRzF4U3VtTithcTEvYlRxZldheU5KbW94cHVEdDVvdGV5ZG03V2xxMWZsOW1jN2Q5KzllOWQvc0xpNGVQSGl4WkYrQk5EZmlKK3VDOU5SWldiSktkeWFUMXRXUm5JVlZSS1JycWNSR3pJeHZ4WjlUNUFNSTJhaWxaQmFsaEVUWXhXTEVWUEVLYW5XT0dnWHFpVVJjYXFxOXlSUDg3V2hqRkxMSHR6KzdDdXZ2UEhLS3lJaXNpSXY3REFCQ0VaNVhOTWFsUUdaS1dJWE9wS3o2Mm1VU0V3WUpobnJHSkNZTUp1dUVUTUtvOHlYbmIxUzNObloyZGw1K2Jtbm55VXRZWjdIcHgrRjJNYmQ2NEZJVEJobTZxRUtzUVdHQ2xyRjJkL1hzYmVqV2U4aTdaRWdNV0cyT0krWXJNbUY1THBnN1BkSGdFbWliUjJEd01XZXZkMzZha05WYmErWTNuQUxKYWQ3c1dkWHN1bzhwdjRBWm92emlLbWpscDI5VWh5d2JpNFFSNDlQOXJLV0pDWU04Y3B2L2hQL3dZLysrQytlM3ZLMy85TW5UM20xejJMUHpVV0FHdldGYkVGNjEzN3VXcVE5Y2lRbXpCVG5FWlB6c2tpdUoySjhsQWtreDQ4OSt3ditBMnZvbGlMeW4xLzVwejJ2QnkzMmJCZXEyYnhsWlpwZnZPeGErM201YzVIMlVmOHB3TVNLODRoSkxZdmt1akQ5Y054ZEFDQlRqM1I5K1N0b0dYYnhpdnRacGJKNUsrKzJMVlpwTDY4dTdIWXQwaTRVczBBL2NSNHhSNzlYQW1DcUM5YWpFTnU0ZXcxTW5FTVZadXNSdkF5N3U3RXRLUkduVkpHeUs1S2E5OXRJb3k1enJkTFZYNlQ5UFA2dGdLSGlQR0p5WGhiSmRjR0s3MUVta0J5V3J2T3l3WXM5WDF1OWtiTFdSU1JYVWRLMTJMTlhISFdSZGlBaDRqeGlVc3NpdVM1TXhUY3pnZVN3RHJXdFd4bTAySFAzNHM3dHo4OXg0V2ZBYkhFZU1hbGxrVnh4bnNrT0pJZTI4N0lBSWhQbkVaTmFGc2tWNXlzbVFJSWNVc3NDY1JmbkVaTmFGc24xUkl5dm1BREpZVkhMQXJFWDV4R1RkUXlRWEJlc2h5RzJjZmNhbURpUERzTnNBTTZScmhFejZFYlRYYmVTYmo3cGJ0TWY1MldSWEJTbVFDdzhpdTg4UEFBK1BTTm00STJtTzI4bDdhOElYUkkzYi9tM25SNk04N0pJcmllc3d4QmJiNXpnbzh6ZS9WNHg3Ujl6QW1oM2VCUm1BM0NPMHQvM2gvNDJjSlJzdFV4LzN4OTJCZkYydHhleWpvZzQyWVh0M2RhZzZaWXptZFpnYVJjS2pvaUlrODN0N1E5M1pwYnpza2d1UGNzNDl6bks5SXJwTmJtbFZHdjVkVGVmV3EvbEtocCtJakJoT0M4THhON2VXN1ArZ3d1RGJqYmRhaWtpQzVjT09sOE11dEcwMStkVzB2TW45enc1SGVkbGtWd0xsdzc4N1FsTG5iNjFXdmFrWmQranpJMzFXbTA5ZFR6N1I5eDhPZHZZWERySGZ4MWdET2JMQXJFM2NLQU0zSHJDN05VYkl1TGZhUHBZNjFiU3EvVzJVVFJmbmh2MnJ0S2NsMFZ5dlgzd1FmL0JFNE9PTWxzdFJlVEoyWGM2WHd3NnluVExVbEhLRWErWVhpdDZ6dHhHT1ZzcVNmR0dsbjREazBWeFhoYUl2YURDOU16czVkVzlEVmNjeHkzdnJWN3JxbFM5M1cyWjgrOWQ0dWF0Y3JaMTM1T0JxR1dSWEJjc0xkY2w5b0FJa2dFQUFBakpTVVJCVk9vTkVkcy95bHp1ZXMxZVhsM1liUlJ2YkczVnRyWkVSTVNTaWhwcUxqdVFHTlN5UU96cEdUR0RialI5YmIvalZ0TEhkNWJlc3JZa045eUFTUzJMNUxvZzA2TUhDVDdLVE0zN082VlJsN2xDOHphWng3ZUhILzJIQXBORVBhU1dCZUpPeTRncGdUZWFkanB1SlIzaXp0TFVza2l1eHkwZG1SbDBsRmx5Q3JmbTA1YVZrVnhsK0tza1FES3BRMnBaSU83MGpKalJvSlpGY2ozeHdUZTB4QWs0eWd3OHNteTlCcURONXgvOCtyaTdBR0FBWFNObUZGakhBQUFBQUthaWxnVUFBSUNwcUdVQkFBQmdLbXBaQUFBQW1JcGFGZ0FBQUthaWxnVUFBSUNwcUdVQkFBQmdLbXBaQUFBQW1PcWM3cFh3NUsvcC8wSHYvZUwvMUI1VFJPVEM0OXBEcW05OFUzdE1FYkZtSXZuelBmcWpyMm1QYWMwOHBqMm1pTWhxSkZFVDRsYy9rOUVlODN0Lzk5dmFZMzc5ZmQrbFBlYWQrMDlxajNuNEh2MzUrTVNYNzJtUCtjM3ZlSS8ybVBMZjlZZE1zdS8vRis5cWozblUrSkwybUNJeS9lZjFwNmY2VS8zL2ZCR3hIbzlrR0hwMDcrdmFZMXJUMGR4aDZ4OUdFalVPT0M4TEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVNDFXeXg3Y0xxeXNyS3lzRkc0ZmFPb1BnSkdSbUVBTWtaaEFORVk4TC92aDUzZDJkblplZU9yVjEwaE5JRFpJVENDR1NFd2dFak1qdlh0MmRsWkVEdDY2OU5FcnMyMjdGeGNYVzQvdjNiczMwbzhBK3VQVEZZekV4UG5pNHpRVUVoTmpOY0dmcnRGcVdaRTdOMWRlZkVYazJVdFhMbDl1N2J4Nzk2Ny9ZSEZ4OGVMRml5UCtDS0FmUGwzOWtKZzRUM3ljaGtSaVlvd20rTk0xNm5lL0xsL2QyZGw1K2JrM2EzZTBkQWVBRGlRbUVFTWtKaEFGTGVzWXpGNTY1dEtUT2dJQjBJZkVCR0tJeEFRMEcybU9RZk55aWNpekwreGMxZE1mQUtNaU1ZRVlJakdCaUl4VXkxNit1a05HQW5GRFlnSXhSR0lDRWVGZUNRQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBRERWelBuOG1OL2RmWDdJbHZmdTNidDQ4YUwyRGtRUmxxNmFGUlpkZnU4WHJnN1owcFRQSkRIakh4UEQrSTNmZTNISWxnYjlKMHhYelFwckZzN0xBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREJWNUd0eUxTNHVSdjBqQUp3VmlRbkVFSWtKaEtGaTVvZC8rSWROQ1V0WHpRcUwwRXo1VEJJei9qR2hsMEgvQ2ROVnM4S2FoVGtHQUFBQU1KV2xsQnAzSHdBQUFJQXdPQzhMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBRERWR0d2Wk96ZFhWbFpXVmdxM0R6cDMzTHdqSW5Kd3U5QjZIQzV3ODcxK29PT2ZjdGF3M2UwN280VU8zdE5TUTU5UC8zMk85bnM0dUYwNGJxdnBOOURkUGExL05ZUVdUVmJHUFNXTnlrZnR5VWdtbW9FUjA1QU1GVWJNY1JqWEFncHZmKzV6cnl1bDFPc3ZmZVNsMTVWU1NyMysrdXZkVFQ3KzB1czlieHlvSTg1eGpOZGYrdmpuM2c0WHRxMTlWN1NSZ25lMEhMM1BBMzZmSTNYMTlaYys4cEZtVkgyL2dhNC90KzYvR3NLSUtDdE5TRWxUOGxGL01wS0pSbURFTkNSREZTUG1XSXp0dk96c2xTdVhSVVF1THozNzVsc0hJbktuOXVLTGJZZElvWFhFT1hqdDFhZVdMb3ZJNWFXblhuMXQxTmhkMGZRRjE5RG4wMytmbzNUMXpzM2Ewc3ZQUFIwVVo0U3dYWC91Q1A5cUdGNDBXV2xjU3NZM0h5TklSakxSREl5WWV2dk1pRGxoWWpCZjl0SXpINTRWT1hoeWRXZG41Nk52Zld6RTVPeU84OVNsSjBWRTVNbExUNDNlMWU1b21vTHI3WFB3N3pOc3pEczNhMHRYTDU4ODEvUWI2T3BldEg4MW5KM0dyRFF1SldPYmoxRWtJNWxvSEViTTJHYW9NR0tPemJocjJUczNhNWV1eklySTdPeXNpRnkrK3ZJemI0MTBYTkVkNTgyMzNoWVJrYmZmZW5Qa3p2WkUweFJjWTUvNy9qN0R4VHk0L2RsWFhubHhaZVZqbjNuamxSZFhidDdSOWh2bzZsNjBmeldja2Q2c05DNGxZNXFQMFNRam1XZ1dSa3lKYllZS0krWVlqYldXdlhOenBmTVFSdVRndFZmbDB1em9vWnR4WmovOHpKdTFPeUp5cC9ibU14OGVOVzVYTkwzQk5mUzUvKzh6Yk16Wks4V2RuWjJkblplZmUvclpGM2F1WHRiOUcrajZjMGZ5VjhQWlJKV1Z4cVZrM1BJeDBtUWtFMDNBaUttM3o0eVlrMlJjRTNYZi90ekhQM0xzcGRkYlQxc3psLzNwMCswN3poUzJPMDdyK1ZuRGRyVVBqQllpZUh0TExYMGU4dmNaOHZmUU5vOWN5MitncTN2YS8yb0lKNHFzTkNJbFRjcEhyY2xJSnBxQ0VkT1lERldNbUdQQVBXd0JBQUJncW5IUGx3VUFBQURDb3BZRkFBQ0FxYWhsQVFBQVlDcHFXUUFBQUppS1duYjh2R0srNkkyN0V3QkVoSHdFNG8wTVJTOXEyZkZyMVBmRzNRVUFUZVFqRUdka0tIcFJ5NTR6TjIvbFhUZHZXWmFWTG5vaTR1WXpXN1gxbEpWM202OFdpMm4vTmI5VnM1bDBQd1V3TXZJUmlETXlGTU1aOXdLM2lkTFlYQklSa1Z4RnFVcE9sallicXRHb2JDNHRiVFpPWHZXZnFFck9mOUJzMS9VVXdLaklSeURPeUZBTWEyWU01WE55MllWcXBXNlZzeVZIeEp0ZkVoR3g3VlQzcXdWYlJMejl2ZHA2eWxvWEVaRmN3NU9PcHlMMkdMb1BUQlR5RVlnek1oVERZbzVCZk9VcXgwY2NKYWYzS1lEelJENENjVWFHSmhtMWJFelpjd3RiWlZkRVJOeDgzdTE2T3M2ZUFjbERQZ0p4Um9ZbVhiUlRHTkNwa2hNUmtWeWxmYWFQdnpOWE9YNzFlSFpQOCtueDRXWFhVd0FqSWgrQk9DTkRNU1JMS2FXek5BWUFBQURPQzNNTUFBQUFZQ3BxV1FBQUFKaUtXaFlBQUFDbW9wWUZBQUNBcWFobEFRQUFZQ3BxV1FBQUFKaUtXaFlBQUFDbSt2OExrd3FZWUpmZGlnQUFBQUJKUlU1RXJrSmdnZz09XCIgLz5cblxuPCEtLSBybmItcGxvdC1lbmQgLS0+XG4ifQ== -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA5kAAAEzCAIAAAA0LFDQAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO3df2wj6XnY8Wck3e3ZTtrG3TR2dIvcpUPVUVUETQRsLebQXpKmGKoWmGYjoEZ76l9kjTam1sFeXdy2DYK9JrCSWxFuc6ACFFindQB50RJCxUmcNpf0TN4tukBrVKETcZy79k4+N163sWM3tz+kt38MRfHHUKSG74jzcr4fzB/k8OWjdyU++z4z8/IdSyklAAAAgIGmxt0BAAAAICRqWQAAAJiKWhYAAACmopYFAACAqWYijb64uBhpfKDl7t274+6CMUhMRIdMDI3ExLmZsDyNtpaVs/++7t27d/HiRe3diCIsXY1PWMaAszpTYprymSTm2GOSiSNixIxDWIO6Gi7s5OUpcwwAAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgqsjXMfA9/8WfPkPrg6Faffvwwtk68b+GavWD7xuune/rQ7V66vF7Z4gpIn8yVKsPzHxz+JBfeWvYlu+zDocP+423h2o2PXxEERH51nBhn3rynTMGxgnnyY9rj/noK/r/ItN/5UPaY/7fH/wu7THv/1lLe8wHf0Z7SFFnzcYhfOnnr+oPmmC/9cYPnKH1cOPFN47ec7ZOfGOoVu+denCGmMN19dLMH58hpsg7w41u3z8z7Ef/PSLfHvp/sgvWY0O2/HMij746VMups5xnfL/I0ZBhP7A/fFizcF4WAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYSkMte3C7sLKyUrh9MHooALqQmEAMkZjQaOqDDX8bd0fGbGbE9x/cLnxKnt/ZmdXSGwBakJhADJGY0Ki9hJ36YOPondQYOzNeI9ayd7Y/88Yb8rGVzzz7ws7Vy8d7FxcXWy3u3bs32o8A+uLT1QeJiXPFx2k4JCbGaYI/XaPVsndq8sLOzmU5uF341O2Dy1eax5p37971HywuLl68eFFEhMspiEDz04UuwycmoAMfp6EMn5h/Mq4uYpJNcJ7q+e7X7IefeUpLIAD6kJhADJGY0KJ9UkGSJxjIqLXsk5ferN0REXn7LbnEBCAgHkhMIIZITOh29E7K38bdkTEbrZadvfL8pc+urKys1JZO5v4AGC8SE4ghEhOIxqjrGMxeKe5c0dITANqQmEAMkZhAFLhXAgAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTzZzPj/nF7/mi9phfO/yW9pgi8kCU9pjvPHpCe0wR+cL/S0UR9o8fvVd7zBnrSHtMEXk+iqCJ8dc/72mP+fz79cf80sOa9pjvPPpO7TF/5Ss/pj3m73/tu7XH/I4LD7THhF5/cqR/yJiOYGgTkT89elx7zN/+9oe0xxSRf/PuxSjCPjjSX0dNRfPH+vQHoogaC5yXBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWyeQV01a7dNHr2J93e9/j5k+a+o/TRc8tFr3jV9oEvR9AgH7JeJ4dOPefCZhk2JGxbVd708iHSGpZJJNdqDY2lyRXUUopVcnV1lN519+vGptLsnWje2zzije2ZGmzoaoF281n9jYbSt2Stcy2iDgl1dhcWtpsKF9jc34c/yjARP2S8Zy4+dR67fx+HGCg4UbG431uWXK5rfJJFkc+RFLLAiLOtc0l2dtv5ejq5qasb3QMp96urG4unTxfmLNF7EK1shoQzy4UnMg6C0yy7mSM/geWGu2ZDaCPIUZGERG3LNlStqOY7aJ9iKSWBcQrrq3XllaXW0eVMle43pmI7kZ9brn1zMnmtjL+RRKncHIwehytyAQDIJzOZGxe2cwXXdcvbpvXKvPFYr7o+U/ybnO3f42zdTXTP7fr5q18sZj2X+2+GNp8znlZYCgDRkaftz+fdcTpW8xGMURSyyLRtjKWZVmp7dWOCyQiIs61zb3W1RSvWJ6/1n4Y6ZRUJbeV6ZwiVFtP+QNj/Ty6DkyWgGR0N7ZXG0qpbP3Gvoh4xfSN+YZSSmXr63vNNBSRtnOrXvHG3mZDqcbm0t6+5xXTmS3Z2pZbSlULjbz/7srC+lrRE6+YzkhFKcVpWWBYp4+MIiLersw5IgHFbIRDJLUsEi1XUaqS8ycMdLEL1xeaV1O8Xcl2n30Vp6RUY1PWU61ytjkZiMmyQAgByZial/WUlS6mStWCLd7utjRP2Kbm+5SfdqFaLUgxnVqv1eoNu1Ct5CR3vWCLiLe/54+lmS2p1Rve7rZsXnNExF5epZgFhjNoZPR2t9czluUnWmcxG+EQSS2LxHNKFckEfdfEyea2bhQ9cTfqc52Hnm7eb28XqpVcrd7oeJHJskBIXcloF6pKNVa3U8N/7dnNW9aa3Ao+19r8eplSqkSOAuH0HxlFxNuV68dZphpt53BPRDFEUssCfatZ59qmrK+lA66itL7N6e3vBUX0innW+AHOriMZ3WLRE7tQVZXc3r5nzy3Utnf75FWjXqutp/L58lauUu05VyQiYs8tHJ8lcvN5155bqJ18jeWc104ADHbKyHg8wcBnL69KcMrqHiJnNMYCzOEV06n1mkjGkooqOU6pUrYsS2RpaalWq4msb282qgW7cD23Xs5W7VZ7SVnbm43r85vXZc2yaiKSqyjHzVuZLRFJWevN+EubjcL4/nWAQfolY65Smd9es9abaWaLlCpl6zjJljZFRJxsLpOxtkSWlpaWNm+VCg2xMtaWLC0tSS2Tl9zWlshWer5RLditwJKrqJKIU8lZGWvL70SuwqlaoJ/jJD1tZMzlZGurJrItDf9w0iuurddqkrK2m+NqdEOkpZTSGK7L4uLi3bt3ReToq3Pag3/t8FvaY4rIA9H/C3nn0RPaY4rI3XefiiLsHz96r/aYM9aR9pgi8vx880xK65OGYfi/rl+sZ7RHfv79+s9Gf+nht7XHfOfRd2qP+Stf+THtMX//a9+tPeb7LjzQHvO/Ov/Sf3BemegV02tyK/j8q7lav71//+W/qj24pT2iiIgcRRD47Yfv1x5TRN5892IUYR8c6T8nOBVBHSIin/6hf+c/mLwRkzkGAAAAMBVzDAAAJmneqSuVn+M7XACoZQEAZnFKSpXG3QkAscEcAwAAAJiKWhYAAADnwb8zdbpnTa72/f3a9MMcAyTX35z66RDv+q2jz2nvCZBk4Ra6mfrAvvaeAOhHz4jpFdfq15Vy3Hy66J0sReIvTaKUfUqbU1DLIrmsGT7/wPg9VI9CvOuC9n4A6K9Vlf7E43/39Jaff/Dr/V7ydrcXslURcbILN3a9QrNQdTf8lWjXcxVVSgW3OQ1jOZLLmubzD4zffWpZIPb+1nv+vv9g4NDZaikiv/mnv9b54sJ8SkREUvMLrSsrblkqSjniFdNrRe9WYJtTjTxf9s7NlZWVlZWbd0YNJCIy9cGGv+kIBgxgPTYTYuuNEzCzx99lWVbzPvJu3rLONPtnVFoTUzsyHe3uy2GIbdy9DiXeiQmcQtOIuVf3/+Nv1HtvAG8vry4MahNo1Fr2jizt7Ozs7Fy9PGIgkfaBjUEO52FmJszWpTmzR12vr7UqVa8xd0sppZSqbM6nxCvuZ5VSqrJwcv/3aGlMTO3IdHS5r45CbOPudRhxTkxgAB0jpr28uld2RcQt760uH08eSM37O6VRlzk7uM3pXRvtX3an9uKLLz793MvFK7NtexcXF1uP7927JyKR3JAOied/ukL7jf/zq/4D5y987PSW7h+93O+lwNk/ttNcwd3dl2VH7OZ8Hyebu7HviRP5jTeHTUxAixE/Tu+qiG6wGjckJsZpxE+Xnm+Y2IXrYlmWLG02qrZ4xfTGXLXkFG7Npy0rI7mKKolIR5thjNazgydXd3au3rm5Urjdnpyt+/wuLi5evHhRRI6+OtLPAQL5n67QnO/9x81HM9PDthRxv/KvOl88ZWaPX8q2mR/yIHM0QybmH0XfEyTDiJl4PyG17NAjpnxjPB3EZBsxTwcOlENqv9eJXaiWjh+oQnCbYYw2x2B2dlZELl99+Zm3XjsYKZKIHL2TCnwMREXLHINTZva4+9Jeurr58twwq4uMTGtiakemo8u7aibEFhgqaFnK49nrzb1dT8+8kmV48U5MYAA9I2YktNwr4eC1V+XS7OB2Ax29k/I3DbGAgaanwmydTpnZ01HKunmrnD3fm8drS0ztyHS0u6+mQ2wBgYImr4u3W19tKKUaq9sbbu/ToLdEK76JCZxGx4gZkZFK5oPbhY995g2Rp597uchMdpgnwtk/0j7BwCumU+s1kS1rS3IVFXVFS2LCLEvf94f+g1fe/Eunt3z2qT845dU+S1f6l07sRn0hWxDxOp56xTOvZBkaiQmzxXhF9pF6NnuluHNFV0+Ac6fpkDFw9o+IUyic7GyfCRQ1EhNmcd/4y8cPBwxJbS3Fefr3el4PmrxuF6rZvGVlmt8q6XzqnX0ly9BITJjtvE6yhhDfngFRUzPTIbZx9xqYNPePHg+xBUUKnLzur4lXkUzeDXh65pUsgWSK84hJLYsEi/HsHyA53lWPhdh64wRPXnc3tiUl4pQqUna7n4ZYyRJIqBiPmPGd/QBETc1QmALj129RgjMLnrx+bfVGyloXkVxFiUjX0zOvZAkkU5xHTGpZJJeaZsIAMH73jwJOsoYTNHm9a7569/T1s65kCSRTnEdMalkkV5yPMoHkuB80YQBArMR5xKSWRYJNJ+NuQ0C83dc1xwBAdGI8YvI/CJLrKMZHmUByaJxjACAicR4xqWWRXCrGR5lActw/YiQC4i7OIyb/gyC54pyZQHJQywLxF+cRM75njIGoqSkrxDbuXgOT5r6aCbGNu9dAsugaMb1i2rKsdNHr2OvmLcuyrOMbmqQtK6BRX9SySK6jx6wQ27h7DUyaB4czIbZx9xpIFj0jpldcq19XSl2vr7UXqq5klVJKlRwR8Xbrqw2lVGN1e8Mdqm/8d4DkUhzKATHwQMV33UoAvv+yc81/8Ex24/SWr5av9XvJ291eyFZFxMku3Nj1CgX/DiVuOZPJLG02qs3ne/WGiN2oL2QL/SJ1YDBHcqlpK8TWGyfgisnxFZKuSyZDXzABEuT+4UyIbdy9BpLlR37ql/xt4CjZavkjP/VLPWEW5lMiIpKaX2jt81LXlFLX6yl/jLQL1WzZsqxytuQM1zdqWSTX0bQVYuuOEnTFxGvM3VJKKaUqm/OpvldVAIjIw6OZENu4ew0ki54R0z/lKiKN+l5rn23bIuKUGqv1XU9EvOJ+VqmKZPLDTTFgjgESrLb9s/6DD3/0l09v+dpnf7bfS4FXTGyneTDp7suyI14x8KoKABGRB0fMMQDiTsv3Le3l1b0NVxzHLe+tXusaCr3dbZkriLgb23KtIHapUs674gxxbvb0rrl568Z8a/4CMFn+2t97qflo0OoEJy1FXv+3n+h8se2KyX7X+/xSVrzT2oRAYmKiPDyajCuEJCYmmZ5lfOzCdbEsS5Y2G1VbvGJ6Y656bT+dWq+JLG02qo6IONdWb6SsdRHJVdRQUU//H8QpqVuy1jbpD5ggRzNhth5BV0x87r4s2wPahEFiYqI8OJoJsY27171ITEwyTSOmOCWllPKP+exCteSIXaiqk33+bnWyrMEQBh4NH0fMls+22BcQe2oqzNbFXl7dK7si4pb3Vpc7Tsi0StlT2oRFYmJyPDycCrEFhgr6kmXnWpU938vsXNhyRCQmJpaWETMiQ/0cr5i2MltLmw3VPOgkPzEJ9MxktwvXJWNZ1o35WwVbvGL6eEg8OSvb1UYXEhOT4eHRdIgtIFDglyw716rs/l5m18KWOpCYmEiavvsVidNr2ebh6prcOj756x903pINchPGU9Nhtl69V0z83e3f8WpvMzISExPlCz/+KX97dDh9+tZq+YUf/1RvHG93eyHriIiTXdjePUkFf4pPo76QdcR2nOaCls1jTbecyWiqNklMTDJdI2YUBk05ylWCDlYb9a36XEmY4A6jGbxAO4mJCbLovnD8cMClwraWctd5sef1oC9Z2oVqNm9ZmVxFlU5aNr+X6S9sWXLzVrqo4VtbJCYmV5xHzEFzDLbKQVOInJK+yzHAuBxNh9ligcTEBNE3XzbwS5ZBa1WeTGbvWthyNCQmJlecR8wB6xhkcx3PvWKRL2dickyF2saPxMREOTqaCrH1xgn+kqW7sS0pEadUkVal2TaZ3eftbsvcqCdOSUxMtBiPmAPmy5a3tjLWidR6/Zz6BUQvzkeZpyIxMVEePpoOsQUECvwipnNtdTtlWZaVkWzbPUz8wvV4VYM1uTX6qVMSE5MsziPmoPOym5sNdaKxOX9O/QKiF+cVRk5FYmKiHCkrxBYYKuiLmL1rVZ58L7NnYctRkJiYZHEeMQfc96s5O97nFdfqc9WoewSclzjPZD8ViYmJcnR4Tgv3RIzExCSL84jZr5b1iv4dxUTW19t2L2164oQ4fE39zj84+5sGOPz6Be0xRUQ9cag95vR7HmmPKSJHjyI55JmaOTIipog8P9pZj3icZD0TnYn5hPVQX8eafuR//KT2mLPv+6b2mHPf8b+1x7x44VvaYy58j/7/ji5MRfLf0SiU8few1TxifvK//R1NHTvx6Cvv1R5TRORI/3HI0WPD3bf0jKxIokqfKwSjmY6kr5/+oZHeHucRs1/X/Asvlc4LJtqWxwTiQM2E2caKxMQEOnpkhdjG3et2JCYmX5xHzAHzZQudmci3MjFJ4jz751QkJiaKOrJCbOPudS8SE5MsziPmgJ/TvI0J38rEJIrzXUxOR2JiohxZYbb4ITExweI8Yg5ak0sqHVdMWPAZEyTOR5mnIjExUdShFWIbd697kZiYZLpGTH8hvO77RjcPBE9uaBLcrI8Bcwyuze+3XyLhigkmSZyPMk9FYmKiWIdWiG3cve5FYmKS6RkxveJa/bpS6np9rb1MdSXbfvjnFdNrcmv4OecDzjI16uus/IxJFe1RZsf+4xXZhzzGHITExESZlDkGJCYmWOOTV/1t4CjZatn45NWuIN7u9kLWEREnu7B9cttot5zJtI2P7sZ6rbaeaj9Ne7oB68uW9zYbim9iYjKpGR3rnjSPMh03ny56J8eQx4eVtv+kvtpQVdsrpjfcwsjXHUlMTJRYnmQNgcTEJPuLL73UfDRodYKTliJf/sQnOl9cmE+JiEhqfmH/eJ+XuqZUyc1b6WKjWrD92TqOeMX0WtFzhkipAXMMStfnGm3PuWKCSfLlT3zC3wYeZbZa9qRl36PMrsPKvXpDRBr1hayGCXQkJibLUagtdkhMTDJNVzL9wVCkUd9r7bNtW0ScUmO1vtt27dJeXl0Yrm8DzsvmM5mtjj25SmG4wEDsPf3pX24+GjQL9qSlyBs/87OdLwYdZXYfVhaq2bxlZXIVVdLQcRITE2VizsuSmJhgSscdHOzl1b0NVxzHLe+tXus64ertbstcQUTm/TbSqPvPBxpwXpa7S2OSWaG2bkFHmceODyu94n5WqYpkhp39cyoSExPFOgqzxQ+JiYmmZcS0C9clY1nWjflbBVu8Yjrvtr5Qsia3So6I2IVb8zcsy7LK2SGn5A2Y9eAUOipiu8BMIEwOLfNlg48yU52HlW5+W64VxC5VynlXnJGnGZCYmCRWvG7iFR6JiQmm5xsmIk5JtS5Q2oVqSUScquo8/WoXuvecbsx35ATGaUpHZtqF62JZlixtNqq2eMX0xly15BRuzactKyPNWQXXVm+krHURyVWiuSc4YK5YnmQF0EnLiBmNWKz8DoyFmlYhtt44Tunk1ut2oepfE/Fv0H68WF7zGWunA72swzBboKAF8jpXxDt+1lqW/UxLsgOJpWvEjAK1LJLLmlYhtnH3Gpg02ubLBi7D7u3WVxtKqcbq9oYrXmPuln9cWdmcT/VduR1AlziPmMwxQILF+IoJkBx/8M+aC6p/6Odunt7y93+ue+n1dt7u9kK2KiJOduHGrtearbpXb4jYjfpCtiC2NC+NuPuy7IhXDH4LgG4xHjGpZZFcVowzE0iOH/jnzRJ24FfAWi1F5Es/31vXBi2QZweuiOeXsuIFvgVAjziPmMwxQHJNzagQ27h7DUwaffNlAxfIC1oRz92XZbv/WwB0i/OISS2L5LKmjkJs4+41MGl01bL28upe2RURt7y3unw8W8Dd2JaUiFOqSPm4mG2VssFvAdAjziMmcwyQXFN8kQuIgX6LEpxZ8AJ5vSviNScY9L4FQD9xHjGpZZFcU1Z8MxNIDo3rywYswx6w7HrHPQ3a3wKgnziPmNSySK6ZGV2ngwCEN0UiArEX5xGTWhbJNc3kVyAOSEQg9uI8YlLLIrkem45vZgLJwXlZIP7iPGJSyyK5ZmJ8lAkkh7bvfgGITJxHTNbkQnLNTB+G2Mbda2DS6FtfFkBUdI2YXjFtWVa6657Rbt6yLMtqWwTaK6bbnp2OWhbJ9djUYYitN05wZvbs79cMSLipQxViG3evgWTRM2J6xbX6daXU9fpa+2DoSlYppVTJOd6RT63Xhu4bcwyQXI9puWLSzEzHzaeLXrV1O3evmF6TW0rZgU8BtGhckwtARF750V/2H/zE7/TePrrD5//GzX4vebvbC9mqiDjZhRu7XqE5ZLrlTCaztNk4HkLdfDnb2NzbGLZv1LJIrla+/e1Xf+b0lv/xmU/3e6lfZm6s12qSstZzFVVyup8CODH1aNw9ADBIa6B8fHrYlhIwei7Mp0REJDW/sH+8z0tdU6rk5q10sVEt2G6+nC2VpHhj6L7pqGUPbhe2LxWvXtYQCjhHP1n9R/6DxwbNtWm1FJH/kP7XnS8GZaZblopSjnjF9FrRc+Y6nxbO5ewsiQlDWEdJmjBAYsJMeq5kyl69IWKLNOp7stzcZ9u2iDilxn5+1/PkxtZWbWtLREQsGer8z+jzZe/c/Nhn3hg5CnD+Hp86DLH1hNmrN0TEz8xu9vLqQv+nUSIxYQzrUZjNTCQmTKVlxLSXV/fKroi45b3V5a7TOt7utszZdqGqlFKqsbk09IXMUc/L3rlZW3r5uTe3O3YuLi62Ht+7d2/EHwH0M+Kn6zEdlzbt5dW9DVccxy3vrV47zszUvL9TGnWZK3Q/jR6JifM04scpOV/kIjExRnEYMcUuXBfLsmRps1G1xSumN+aq1/bTqfWayNJmoxpuDt5oteydm7Wlq1fl9mc7d9+9e9d/sLi4ePHixZF+BNDfiJ+uC9NRZWbJKdyaT1tWRnIVVRKRrqcRGzIxvxZ9T5AMI2ailZBalhETYxWLEVPEKanWOGgXqiURcaqq9yRP87WhjFLLHtz+7CuvvPHKKyIisiIv7DABCEZ5XNMalQGZKWIXOpKz62mUSEwYJhnrGJCYMJuuETMKo8yXnb1S3NnZ2dl5+bmnnyUtYZ7Hpx+F2Mbd64FITBhm6qEKsQWGClrF2d/XsbejWe8i7ZEgMWG2OI+YrMmF5Lpg7PdHgEmibR2DwMWevd36akNVba+Y3nALJad7sWdXsuo8pv4AZovziKmjlp29Uhywbi4QR49P9rKWJCYM8cpv/hP/wY/++C+e3vK3/9MnT3m1z2LPzUWAGvWFbEF6137uWqQ9ciQmzBTnEZPzskiuJ2J8lAkkx489+wv+A2voliLyn1/5pz2vBy32bBeq2bxlZZpfvOxa+3m5c5H2Uf8pwMSK84hJLYvkujD9cNxdACBTj3R9+StoGXbxivtZpbJ5K++2LVZpL68u7HYt0i4Us0A/cR4xR79XAmCqC9ajENu4ew1MnEMVZusRvAy7u7EtKRGnVJGyK5Ka99tIoy5zrdLVX6T9PP6tgKHiPGJyXhbJdcGK71EmkByWrvOywYs9X1u9kbLWRSRXUdK12LNXHHWRdiAh4jxiUssiuS5MxTczgeSwDrWtWxm02HP34s7tz89x4WfAbHEeMallkVxxnskOJIe287IAIhPnEZNaFskV5ysmQIIcUssCcRfnEZNaFsn1RIyvmADJYVHLArEX5xGTdQyQXBeshyG2cfcamDiPDsNsAM6RrhEz6EbTXbeSbj7pbtMf52WRXBSmQCw8iu88PAA+PSNm4I2mO28l7a8IXRI3b/m3nR6M87JIrieswxBbb5zgo8ze/V4x7R9zAmh3eBRmA3CO0t/3h/42cJRstUx/3x92BfF2txeyjog42YXt3dag6ZYzmdZgaRcKjoiIk83t7Q93ZpbzskguPcs49znK9IrpNbmlVGv5dTefWq/lKhp+IjBhOC8LxN7eW7P+gwuDbjbdaikiC5cOOl8MutG01+dW0vMn9zw5HedlkVwLlw787QlLnb61WvakZd+jzI31Wm09dTz7R9x8OdvYXDrHfx1gDObLArE3cKAM3HrC7NUbIuLfaPpY61bSq/W2UTRfnhv2rtKcl0VyvX3wQf/BE4OOMlstReTJ2Xc6Xww6ynTLUlHKEa+YXit6ztxGOVsqSfGGln4Dk0VxXhaIvaDC9Mzs5dW9DVccxy3vrV7rqlS93W2Z8+9d4uatcrZ135OBqGWRXBcsLdcl9oAIkgEAAAjJSURBVOoNEds/ylzues1eXl3YbRRvbG3VtrZERMSSihpqLjuQGNSyQOzpGTGDbjR9bb/jVtLHd5besrYkN9yASS2L5Log06MHCT7KTM37O6VRl7lC8zaZx7eHH/2HApNEPaSWBeJOy4gpgTeadjpuJR3iztLUskiuxy0dmRl0lFlyCrfm05aVkVxl+KskQDKpQ2pZIO70jJjRoJZFcj3xwTe0xAk4ygw8smy9BqDN5x/8+ri7AGAAXSNmFFjHAAAAAKailgUAAICpqGUBAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgKmpZAAAAmOqc7pXw5K/p/0Hv/eL/1B5TROTC49pDqm98U3tMEbFmIvnzPfqjr2mPac08pj2miMhqJFET4lc/k9Ee83t/99vaY379fd+lPead+09qj3n4Hv35+MSX72mP+c3veI/2mPLf9YdMsu//F+9qj3nU+JL2mCIy/ef1p6f6U/3/fBGxHo9kGHp07+vaY1rT0dxh6x9GEjUOOC8LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU41Wyx7cLqysrKysFG4faOoPgJGRmEAMkZhANEY8L/vh53d2dnZeeOrV10hNIDZITCCGSEwgEjMjvXt2dlZEDt669NErs227FxcXW4/v3bs30o8A+uPTFYzExPni4zQUEhNjNcGfrtFqWZE7N1defEXk2UtXLl9u7bx7967/YHFx8eLFiyP+CKAfPl39kJg4T3ychkRiYowm+NM16ne/Ll/d2dl5+bk3a3e0dAeADiQmEEMkJhAFLesYzF565tKTOgIB0IfEBGKIxAQ0G2mOQfNyicizL+xc1dMfAKMiMYEYIjGBiIxUy16+ukNGAnFDYgIxRGICEeFeCQAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADDVzPn8mN/dfX7Ilvfu3bt48aL2DkQRlq6aFRZdfu8Xrg7Z0pTPJDHjHxPD+I3fe3HIlgb9J0xXzQprFs7LAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADBV5GtyLS4uRv0jAJwViQnEEIkJhKFi5od/+IdNCUtXzQqL0Ez5TBIz/jGhl0H/CdNVs8KahTkGAAAAMJWllBp3HwAAAIAwOC8LAAAAU1HLAgAAwFTUsgAAADDVGGvZOzdXVlZWVgq3Dzp33LwjInJwu9B6HC5w871+oOOfctaw3e07o4UO3tNSQ59P/32O9ns4uF04bqvpN9DdPa1/NYQWTVbGPSWNykftyUgmmoER05AMFUbMcRjXAgpvf+5zryul1OsvfeSl15VSSr3++uvdTT7+0us9bxyoI85xjNdf+vjn3g4Xtq19V7SRgne0HL3PA36fI3X19Zc+8pFmVH2/ga4/t+6/GsKIKCtNSElT8lF/MpKJRmDENCRDFSPmWIztvOzslSuXRUQuLz375lsHInKn9uKLbYdIoXXEOXjt1aeWLovI5aWnXn1t1Nhd0fQF19Dn03+fo3T1zs3a0svPPR0UZ4SwXX/uCP9qGF40WWlcSsY3HyNIRjLRDIyYevvMiDlhYjBf9tIzH54VOXhydWdn56NvfWzE5OyO89SlJ0VE5MlLT43e1e5omoLr7XPw7zNszDs3a0tXL5881/Qb6OpetH81nJ3GrDQuJWObj1EkI5loHEbM2GaoMGKOzbhr2Ts3a5euzIrI7OysiFy++vIzb410XNEd58233hYRkbffenPkzvZE0xRcY5/7/j7DxTy4/dlXXnlxZeVjn3njlRdXbt7R9hvo6l60fzWckd6sNC4lY5qP0SQjmWgWRkyJbYYKI+YYjbWWvXNzpfMQRuTgtVfl0uzooZtxZj/8zJu1OyJyp/bmMx8eNW5XNL3BNfS5/+8zbMzZK8WdnZ2dnZefe/rZF3auXtb9G+j6c0fyV8PZRJWVxqVk3PIx0mQkE03AiKm3z4yYk2RcE3Xf/tzHP3LspddbT1szl/3p0+07zhS2O07r+VnDdrUPjBYieHtLLX0e8vcZ8vfQNo9cy2+gq3va/2oIJ4qsNCIlTcpHrclIJpqCEdOYDFWMmGPAPWwBAABgqnHPlwUAAADCopYFAACAqahlAQAAYCpqWQAAAJiKWnb8vGK+6I27EwBEhHwE4o0MRS9q2fFr1PfG3QUATeQjEGdkKHpRy54zN2/lXTdvWZaVLnoi4uYzW7X1lJV3m68Wi2n/Nb9Vs5l0PwUwMvIRiDMyFMMZ9wK3idLYXBIRkVxFqUpOljYbqtGobC4tbTZOXvWfqErOf9Bs1/UUwKjIRyDOyFAMa2YM5XNy2YVqpW6VsyVHxJtfEhGx7VT3qwVbRLz9vdp6yloXEZFcw5OOpyL2GLoPTBTyEYgzMhTDYo5BfOUqx0ccJaf3KYDzRD4CcUaGJhm1bEzZcwtbZVdERNx83u16Os6eAclDPgJxRoYmXbRTGNCpkhMRkVylfaaPvzNXOX71eHZP8+nx4WXXUwAjIh+BOCNDMSRLKaWzNAYAAADOC3MMAAAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACm+v8LkwqYYJfdigAAAABJRU5ErkJggg==" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0ExTURGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU5TbGNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 501
mtry <- as.integer(length(iVars)/1.5)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTFNREZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TlNsY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDUwMVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS41KVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNSlcblxuYGBgXG5gYGAifQ== -->
```r
```r
ntree <- 501
mtry <- as.integer(length(iVars)/1.5)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlRVVTF6TWlBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJUVVUxek1pUlBUMEpmVWsxVFJWeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
nperm <- 5
resultsOutSQMs2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSVFVVMXpNaUE4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlRVVTF6TWlSUFQwSmZVazFUUlZ4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0U1FNczIgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U1FNczIkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxuYGBgXG5gYGAifQ== -->
```r
```r
nperm <- 5
resultsOutSQMs2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjU1NjU1MVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeUpFOVBRbDlOUVVWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0U1FNczIkT09CX01BRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.6556551
resultsOutSQMs2$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGTlJUWE15SkU5UFFsOU5RVVZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSQMs2$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTE4NDgxXG5cbjwhLS0gcm5iLXNvdXJjZS1iZWdpbiBleUprWVhSaElqb2lZR0JnY2x4dWNtVnpkV3gwYzA5MWRGTlJUWE15SkZKemNYVmhjbVZrWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0U1FNczIkUnNxdWFyZWRcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
[1] 0.518481
resultsOutSQMs2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGTlJUWE15SkZKemNYVmhjbVZrWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMyJFJzcXVhcmVkXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMyJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutSQMs2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODUxMDc1M1xuIn0= -->
```
[1] 0.8510753
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVTFGTmN6SWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGTlJUWE15SkU5UFFsOVNUVk5GWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U1FNczIkT09CX1JNU0VcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
resultsOutSQMs2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVMUZOY3pJZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZOUlRYTXlKRTlQUWw5U1RWTkZYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U1FNczIkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0U1FNczIgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFNRTXMyJE9PQl9STVNFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutSQMs2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjU3Njc2NVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeUpFOVBRbDlOUVVWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0U1FNczIkT09CX01BRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.6576765
resultsOutSQMs2$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGTlJUWE15SkU5UFFsOU5RVVZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSQMs2$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTE1NDcxNlxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeUpGSnpjWFZoY21Wa1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dFNRTXMyJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.5154716
resultsOutSQMs2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRGTlJUWE15SkZKemNYVmhjbVZrWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMyJFJzcXVhcmVkXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dFNRTXMyJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutSQMs2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODQ5OTc0OVxuIn0= -->
```
[1] 0.8499749
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMEZpY3lCVFVVMXpJRzV2SUhSdmJtRnNJR3h2ZFdRbkxDQW5VazFUUlNkZElEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1pUlBUMEpmVWsxVFJWeHVjbVZ6WkVGdWJtOTVUVzVHYVhSQlFsc25RV0p6SUZOUlRYTWdibThnZEc5dVlXd2diRzkxWkNjc0lDZFNUVk5GSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRk5SVFhNeUpFOVBRbDlOUVVWY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowRmljeUJUVVUxeklHNXZJSFJ2Ym1Gc0lHeHZkV1FuTENBblVuTnhkV0Z5WldRblhTQThMU0J5WlhOMWJIUnpUM1YwVTFGTmN6SWtVbk54ZFdGeVpXUmNibkpsYzJSQmJtNXZlVTF1VUdWeWJVbHRjRUZDSkVGaWMxTlJUWE15SUR3dElISmxjM1ZzZEhOUGRYUlRVVTF6TWlSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd1hHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnQWJzIFNRTXMgbm8gdG9uYWwgbG91ZCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U1FNczIkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJEFic1NRTXMyIDwtIHJlc3VsdHNPdXRTUU1zMiRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# store results
resdAnnoyMnFitAB['Abs SQMs no tonal loud', 'RMSE'] <- resultsOutSQMs2$OOB_RMSE
resdAnnoyMnFitAB['Abs SQMs no tonal loud', 'RMSE'] <- resultsOutSQMs2$OOB_MAE
resdAnnoyMnFitAB['Abs SQMs no tonal loud', 'Rsquared'] <- resultsOutSQMs2$Rsquared
resdAnnoyMnPermImpAB$AbsSQMs2 <- resultsOutSQMs2$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowRmljeUJUVVUxeklHNXZJSFJ2Ym1Gc0lHeHZkV1FuTENBblVrMVRSU2RkSUR3dElISmxjM1ZzZEhOUGRYUlRVVTF6TWlSUFQwSmZVazFUUlZ4dWNtVnpaRUZ1Ym05NVRXNUdhWFJCUWxzblFXSnpJRk5SVFhNZ2JtOGdkRzl1WVd3Z2JHOTFaQ2NzSUNkU1RWTkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRGTlJUWE15SkU5UFFsOU5RVVZjYm5KbGMyUkJibTV2ZVUxdVJtbDBRVUpiSjBGaWN5QlRVVTF6SUc1dklIUnZibUZzSUd4dmRXUW5MQ0FuVW5OeGRXRnlaV1FuWFNBOExTQnlaWE4xYkhSelQzVjBVMUZOY3pJa1VuTnhkV0Z5WldSY2JuSmxjMlJCYm01dmVVMXVVR1Z5YlVsdGNFRkNKRUZpYzFOUlRYTXlJRHd0SUhKbGMzVnNkSE5QZFhSVFVVMXpNaVJqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3WEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgU1FNcyBubyB0b25hbCBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U1FNczIkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRTUU1zMiRPT0JfTUFFXG5yZXNkQW5ub3lNbkZpdEFCWydBYnMgU1FNcyBubyB0b25hbCBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFNRTXMyJFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiRBYnNTUU1zMiA8LSByZXN1bHRzT3V0U1FNczIkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnQWJzIFNRTXMgbm8gdG9uYWwgbG91ZCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0FicyBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U1FNczIkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJEFic1NRTXMyIDwtIHJlc3VsdHNPdXRTUU1zMiRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# store results
resdAnnoyMnFitAB['Abs SQMs no tonal loud', 'RMSE'] <- resultsOutSQMs2$OOB_RMSE
resdAnnoyMnFitAB['Abs SQMs no tonal loud', 'RMSE'] <- resultsOutSQMs2$OOB_MAE
resdAnnoyMnFitAB['Abs SQMs no tonal loud', 'Rsquared'] <- resultsOutSQMs2$Rsquared
resdAnnoyMnPermImpAB$AbsSQMs2 <- resultsOutSQMs2$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeUxtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlRVVTF6TWlSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJUVVUxek1pNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVFVVMXpNaTVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRk5SVFhNeUxtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTjEwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9iV1ZoYmlCamFHRnVaMlVnYVc0Z1lXNXViM2xoYm1ObEtWd2lLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWENKelpYSnBabHdpS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLeUJqYjI5eVpGOW1iR2x3S0hsc2FXMDlZeWd3TENBeExqTXBLVnh1Y0VKaGNseHVZR0JnSW4wPSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMyLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMiRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMi5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMi5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMyLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCAxLjMpKVxucEJhclxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs2.conimp <- arrange(resultsOutSQMs2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs2.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs2.conimp), levels=rownames(resultsOutSQMs2.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 1.3))
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGTlJUWE15TG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSVFVVMXpNaVJqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlRVVTF6TWk1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJUVVUxek1pNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGTlJUWE15TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJOMTBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb2JXVmhiaUJqYUdGdVoyVWdhVzRnWVc1dWIzbGhibU5sS1Z4Y0tTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYRnh6WlhKcFpseGNLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1NrZ0t5QmpiMjl5WkY5bWJHbHdLSGxzYVcwOVl5Z3dMQ0F4TGpNcEtWeHVjRUpoY2x4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRTUU1zMi5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0U1FNczIkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0U1FNczIuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0U1FNczIuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMi5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzddLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgMS4zKSlcbnBCYXJcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMyLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMiRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMi5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMi5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMyLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCAxLjMpKVxucEJhclxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs2.conimp <- arrange(resultsOutSQMs2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs2.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs2.conimp), levels=rownames(resultsOutSQMs2.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 1.3))
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qSXVOQ3dpZDJsa2RHZ2lPamdzSW5OcGVtVmZZbVZvWVhacGIzSWlPakVzSW1OdmJtUnBkR2x2Ym5NaU9sdGRmUT09IC0tPlxuXG48aW1nIHNyYz1cXGRhdGE6aW1hZ2UvcG5nO2Jhc2U2NFxuIn0= -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjIuNCwid2lkdGgiOjgsInNpemVfYmVoYXZpb3IiOjEsImNvbmRpdGlvbnMiOltdfQ== -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFDNENBTUFBQUIrV2RET0FBQUJ2RkJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qcXROanNoYXdQOW1BQUJtQURwbUFHWm1PcEJtWmdCbVpyWm1rTnRtdHR0bXR2OXVUVTF1VFc1dVRZNXViazF1Ym01dWJxdHVqbzV1anNodXE2dHVxOGh1cStTT1RVMk9UVzZPVFk2T2JrMk9ibzZPYnF1T2prMk9qbzZPanNpT3E2dU9xOGlPcStTT3lNaU95T1NPeVArUU9nQ1FPanFRT21hUVpnQ1FacENRa0RxUWtHYVFrTGFRa051UXRwQ1F0ditRMjdhUTI5dVEyLytyYmsycmJtNnJibzZyamsycmpvNnJqcXVycTI2cnE2dXJxOGlycStTcnlNaXJ5UCtyNU1pcjVPU3I1UCsyWmdDMlpqcTJabWEya0RxMmtKQzJ0bWEyMjVDMi83YTIvOXUyLy8vSWprM0lqbTdJam83SXEyN0lxNDdJcTZ2SXlJN0l5S3ZJeU1qSXlPVEl5UC9JNVAvSS84akkvK1RJLy8vYmtEcmJrR2Jia0pEYnRtYmIyNURiMjdiYi83YmIvLy9rcTI3a3E0N2txNnZreUk3a3lLdmt5TWprNUt2azVNamsvOGprLytUay8vLzM5L2YvdG1iL3RwRC95STcveUt2L3lNai8yNUQvNUt2LzVNai81T1QvLzdiLy84ai8vOXYvLytULy8vOC9ENnRlQUFBQUNYQklXWE1BQUF1d0FBQUxzQUVhT0JCeUFBQVE1VWxFUVZSNG5PMWRqWC9iUmhsMlBpaURRWlFNbDlCMWREanNLOE5tRUJwVzVzQVlLNk5KR1IzdDJqcXdBb3RUdGpKRzU0ekI2cTVzWkc2bU5tWjJmUDh3Ny92ZVNaWWxPWlp0K1NTZDMrZVhuMldmN2w2ZDc1N2M1K1AzY29MQm1EaHlTV2VBTVExZ21qRTBnR25HMEFDbUdVTURVa3F6cnpCTUFkVm5XbW1XZEFZWU1TRjdOTHNmODBQWW5nWjdURE8ycDhFZTA0enRhYkRITkdON0d1eGxqMmJmWVNTS01XcVNhY2FJaWpGcWttbkdpSW94YWpKbW1yVkxWcjVSdDVacW92bjlDbjdNdjNNTmcvQWVoblMyTE10YXZGWmFoSnVkTFlqV1RZV3ZsbFgyWnM2SHBJdDUyakVTSXliVG1yWFhnRktmQUgwZS9xUW9STDBNM0tJZ29VTHd3NE5LKytLeUVQLzdjYTBubFdpdkMxc3lrbW1XUnZqckk4RXBnRXV6OTVBeHhCcUhaaFFDSHg1VVJQdjNMOVRFcDcrcjFhM0Y2MXY1MTR0ZG1pMEx1ZE4wL3o1OWlmdmVhOUxGUE8zdzE4ZDkzK2ZRNjJScDFuNi9EVXdTdGxWMGFDWkRvR2VFRHJOOXBWcnUvUDBtUmlpMzE5NTBXck9TdGF6TWNHdVdRdmpySStuV0RQaGpPK09zZWxuUlRJYW8xdXhLODluLy91Tm1EWWhWRm5iUjdUU2J6emE4bWZNaDZXS2VkdmpySTBHYWRTNVdpRFNmTnJBRHRKRkUrTEY1VG9YUWg5WDJsYzdGRnhzM2F6ZHJkcm01dWx1UlVhRFRyQmU5bWZNaDZXS2Vkb3hFaUFrdGFEUlhvRmVFQ1dWWlZLMzhmNTYybG03akJCS0dZQlR5clIvQkIrdG4wSWpaUlppUXZtRkJ5RXRiajYzSSthZFY3R3poSEpRVkd1WWdlK3RtakF5Q2FjYlFnT3pSeklpdDVHbXp4elJqZXhyc01jM1luZ1o3VERPMnA4RmU5bWpHeUNDWVpnd055QjdOa2w0Rnp4eDAxMW9ZbUdiR1EzZXRoVUVEelVqYUtHSGpaaVdKTmx5MHZYckgwTXo1a0hTdFpRNis4ak4xQ2tCQ1JrSm5xK2k3MTE0WFBYckhzTXo1a0hTdFpRNis4ak9WWmlSa3JKKzF6bHBsKzdtVnBScndxbDFhckRSL1dscXEyVmF4VisrSXd1MnE5ZHhWbGpYR2hsRmtpRU5jRTVRMWVrRkN4blpwMlY1dW5nTW0yY1Y2dm5HM1l2OWdhNm0yVzdtMzJxdDNoQnRGNkZucjhzY0EzSnJGQVYvNUdkcWFTU0dqWGJhTFFMT2lhSzUyTGpXcWxnV2tBMUkxWFpySmFIaGp0OEkwaXhNVHJOdkltRHpOSEdtam9sbTlDRFREbndsNGFlYnFIZkZHblZ1eldESEJ1bzJNU2RPczR3Z1o4NjliMXRJdGFLeWczU3FqM3IrNmRMdTAzQzQ5NzlVNzV2ZmhCdjZFN2hpYU1US0lkSzZiSGRlYU1US0lWTktzdVNKL0lzeGI1NmJZU3lYTkhERE5UTEhITkdON0d1d3h6ZGllQm52Wm94a2pnMkNhTVRTQWFjYlFnT3pSTE52TDRWTUtwcGtSUSt5MDI5TkdzeEFQanRmSmFXTkF6T2pQbkE5TXN3emEwOWVhOWZIZytNQkhzL2E2UDNNK01NMHlhQzhCbXZWNGNBU1dWUmNyMWZ5K1IrallYRG41L2lSa2pXUEk4dUtXK1UyYlBmMDA4M3B3bEU0YmtXeGVvZVBkeWtQNWF3R2VBcGdDelRRTGVIREVQbk8zOG02UDBORjFyczAwTXdYNmFOYlBnK09xYUQ1elZYaUZqcC9VNEtXYk9SK1laaG1FeGdXTmdBZkhEM0NtaVMzYlRYSjY3QWdkaTUrVldOWm9HTEszYm1iRXpHdmE3REhOMko0R2V3R2FIZVFXRGs4c3hKeVZFY0UwTThXZW4yYXRNNjN6b25WNkorYThqQWFtbVNuMi9EUTdlaFZvZGpCM0orYThqQWFlQXBpQ2tFNHpsNXROUjJQR05ETUc0Vk9BZjZhRFowd3pVOUJEczlhcG5FUkttak9tbVNub2JjMXVxREZabWx1enVOZjFqUmhpcDkxZTl0Yk5tR1ladEJlZ0dYYWM4L1F1UkloWW9aZm11WUFacjZ2RnpoYjZ3WUI0Y25zSlgxRmdoaSsyMm1FaUxXTjcvRU9vbzN6RFFUQ2lHdE51TDdDZ3NiRUFzMDI1UEJzaVJNU1g2d0dmaXo1WGk1Q09JamVmcW9uMkR5dGZOaUNndVNwMksrSTk0UnhBVGZIR1BvUTZ5amNjQkNPcU1lMzJBc3V6VCtEd1RJN05Rb1NJOUVMeXd6bzBTZlp6VDkxNnZyU2tZclJMUlp2Q2JxODFLQjRkaTRrdnphdm9mTVV1UWh1bkRxRHUwS0hUWXg5Q0hhYzhqNjhUdkFZNnpRODM0ZVdQUFRUekNCSHBCVm9wYUptRS9kSlcvblBvOG9CSU1vWmRGTHZBRjJ5OEtGNFYrejZnVE5WYUZuZWg4enozWllQWUtMV01iOFp3Q0hYWWZVWUtFYjZnNGVrMGU0V0k5RUs2c0RZZHVpckkvNkxqa1JGb1ZuRVBrNjZYM2Rhczg5c2F0V2J3OFc1RmFSa3gzdGlIVUUrd1lCaHhJblJCNC9CSnVvUUlFZW1GYUlZblIwdWFBWkZrREFpdkx0MGl1c2g0TUMvQThaa1E3NnF4R1JKT2FobnAwT214RDZHZWFORXc0a09nMDl6MkxNOEdoSWkxQi9oQzhzTzZaZVZmeDErSVdOQnp1cTRXclhJVjU1TExGRS9OTkt2VUZsYWhGNjFMYzRDWHR1alE2VkVPb2VZcFFBYnRCUlVhUjYrSzF2bklEN0dEczg3NHdBb05VK3dGYUhaZUhCU09maEYxRjZDNzZqVUpNTTFNc1Jmb05QZG1kN2JWK216aVlKcVpZbzhWR2d3TjZGM1FPTDBqMXpSWW9jR0lGWUhXN0VaM0Z5QnhNTTFNUVdBS2tKS2ZBUkNZWnFZZzBKclJQbE9hV3pNamhzVFRaaS9RbXFWK2JCYjNGb0FSMVpoMmU5a2JtekhOTW1ndmRFRkQ3V2ttRHFhWktmYU8zZE1NVjlCV0xjdVY2ampSOE1EZi9EdlhTclRCK2RpS2xNVXVQdTJKRjc5Nk5zclhZNlFEZy9ZMGd3cmE2NWYyMXo2LzNHdWxubSs0WGo2UmNrb1c2NXd2M1Y0WEUxRFB4dkR0R1pvd2FFOHpSRUZMWVowdGFIcGNHVzNuVXNQeDhrazBVN0pZRkdjclI1OFRVTSttUVJYSzEyalhRWHVhWVFwYURBUGExS1VYVDlTK0FzMGNMNThXME0rUnhiYlhQdTg2K294ZFBSdDJrNUZPaE85cGRoR21vTVV3b0ZkejFaWFJJczJVbDA5cXpSeFpMTFJteWdQakJOU3pNWldBRVVQc3ROc2JSTE1RQmExc3paYTlNbHJzTkIwdm4wUXpLWXYxMEd3QzZ0bGh5Nk1QaktqR3ROdnIzVG8vRTR3UVZOQ1NFSmJHWnE2TTlwNVZScjNzYldlbUtXV3hPTk4wSEgzR3A1NDFvdGluelY0dnpVNmxaZjFmZ21sbWlyMWVtcDJuemFhVStHcmtyWE56RURZMjIwdExtOFkwTXdYKzFrd2NiYVJtNTV4cFpnejhZN05jcnBCZ2JueGdtcG1DWHBxbFNkTW9lQXBnanIxQjYyYUpnbWxtaXIzczBTenViU1lqcWpIdDlwaG1SbFJqMnUweHpSZ2FNQUxOUXFTTzEwaVpzYS9rWlE1b240cDIxcVVqTk5JMmRtS1FOUTc1SFJtSlk1VFdMT3pVOG5YUnVmVFhmSmRtcUdTVVBrSHhiTXptVmR3MGwvdm5NY2dhaC95T2pNUXhGczA4cDVhdmR5NEQwZmJKTHlnMFNFVlVNa292ZXFqeCtMUkJOS3NyRmNlNHNzYmtaWHA4SGU0NkRzMTZUeTFmRmlnSFFvZU42TlR4M3FyckV4U1lkWVVrUUZMYkdJT3NjYWpjRG9JUlEreTAyeHVaWnI1VHkyVnJKbW1HeEVFbG8vSUoybjdoYjFKcDVtbk54cE0xRHBYYlFUQ2lHdE51YnhTYWhaMWF2bzdobHhya0YvU05NdEhNOVFsYXhXNjFaMncycHF4eHFOd09naEhWbUhaN0l5MW9CS1NPdDB2eTUzRmxuQ2ZpQ3lrWnBVOVE1ZEd4aXRQSXFwcHBzcXh4eXV4bGI5Mk1rVUV3elJnYXdEUmphQURUaktFQjJhT1pFVVBpYWJQSE5HTjdHdXd4emRpZUJudE1NN2Fud1Y3MmFNYjZqQXlDYWNiUWdHRnAxay9UV1BaSHhBUFJwUitxejFZc0M5Mmd4ZVd0Y2NodnlFZ0JobTdOd2pXTmRyNVhPQXZzd1kxTVVqdmVLM2N1Vm1MMDFqakV0Mk9rQktQVHpLdHBSS1VHK2doeVpZM1dNcmxwSkgwUTdaM0g2SzB4WnRuZGZiWTNlWHNqMDh5dmFTVC9qVVhuSE9yZENoMklMdTlneEJpOU5VYlBheVFZTVpOTHU3M1JhT2JYTktJUWtmdzNFc05JOUNNOU9WSnJoakxhR0wwMVJzOXJKQmhSaldtM056VE53aldOOWFMcnY3RzZkQXZwcDJnbVNLZmR1UnlqdDhib2VZMEVJNm94N2ZhR1g5QUkxVFIydG1CNFpWR1BhSlVoaG5UVGVMSWsvVHBhVm96ZUdoa1p4Q1RXelI3V1JPZnk0R2lEd1RRekJaT2dXVjB0akkwTnBwa3B5TjR1QUNPRHlCN05qQmdTVDVzOXBobmIwMkNQYWNiMk5OaGptckU5RGZheVJ6TkdCc0UwWTJnQTA0eWhBWkZwRnFKbnZMN2xQNHphMFl5SmtDT3BuWlFlaXlQSkdoa1pSUFRXTEV6UDZQTUNLdWc0YXJxRUhFbXRVbm9zamlSck5HSklQRzMyUnFDWlI4KzQxcWlmdGM1YVpmdjUwdEp0a2pTaTg2bVZrKytISFVtdFVsWVhLOVg4UGlvZlI1TTFHaUh6bXpaN3c5UE1xMmRjMnk4dDI4dk5GNkhqVTVKR29ObmR5c05hMkpIVUtpWHB6U2p1YUxKR0kvNjdwODNla0RUejZSblhHbllaUldiQUdpVnBCSnFwMFZiZ1NHb241VzdsM1FZcEgwZVROUnBSN05ObUx6ck53dlNNSHByVnBhVHhnMHVOVDJwQXVaQWpxVlZLMFh6bUtpWUhRbzBrYTJSa0VFTXNhQVQwakI5c1dkK0dNWlZsTGQyeUhFbWpiWlUvSy9VN2tyb3NmVFlDNDFENWVMTEVzc1pwUVR6clpuWnhjSndlUkZNK01zMU1RU3cwNjY1OVJVVTA1U1BUekJSa2J4ZkFpQ0h4dE5sam1yRTlEZmFZWm14UGd6Mm1HZHZUWUMvZE5HT1lBcXJQbE5Jc0ZHbWZmbkwrK29KcEZoODRmMzJSSlpveE1ndW1HVU1EbUdZTURXQ2FNVFFnSXpRak44bnVKWDFRR2JPdFliZDQ5Y0RaZWs2cy9MSkJNK1dLVDEzU0J5ZGo3eVdka1g3QUU1cVRMTDlzMEV3NUZuWDhpNllPS21Qa3lEbVZrRFJMcnZ5eVFUTnlrK3hlMGdlVk1YTGtuSFJlUWlGcGxsejVaWU5tR1duTkJOVmtHc0d0V1JSa1pXeW1xak45NExGWkpKQ2I1REpkVWdtWnYzcE1MbEhqQi80U0k4bnl5d2pOR05rRzA0eWhBVXd6aGdZd3pSZ2F3RFJqYUFEVGpLRUJadEZzTDVkYitIRFRGM2owODgzVzR4U29MajBJQzNNRER4KzkweS9LWUFTVGpXaUljdktOd1ZFZTJSa3FOMFBoRDJPbE5vdG0yM04zeE42TXYwQzJaVWlBZmoxM1E5RTZOWGRuUUJRZjNJZjBlVnFrdENHUWZEOFdSeHV6eDlGc1RJekpVcE5vZHZoVkxJcURnaThZV2pPODlQbC9WSGY3V0tUYVBUWktMOXlIalBEZmYweVNvMTlFWUZEcjlBUnBKbHBQRENUNk1UQ0pabnR6cWlTdzc0UlMvMU1PQWc1eXVSbnNOT0Zhd0g5Sno3M1dxZHpzRG5Ib2FDTTNENjNCWHpDZ2RmcVZtZDg4dmtrM0R4OTlPVGRQTk52T2tYRk1DT25wSTBiODlhTnY1ZVkreXMxOWZHcDJCeG85ZWdnbURIbWFvQ2JoVUNXNDQxaFNNVjZaK1pXVFZrWGZnN2ZPWXcvbWtmSXFwWHk0SnlaOVkrZVQ1d1o4SzNpLzdUNjdtNDl1SFBkaHVRWDVqVTg0cGVEUHhMYi8zM2NZbUVnemFJTU9UM3dQbUlQVitzZ09OSExBZ0g4alYyWTJ2ZmYyRm9CQXNxbkNsdUFMQ3Jpd0FkVU9FZW5tNFluQzBVWUIzaHhBMklLa280QkEvUGhOaUFpZm9YYm1jZlIzR2dtTEQ2R0VJVThUMlB0ZWNCSmNVSmFjR0F2Q1NYdEJSZ2RtYlMrb3gwSzQ2RDZLQWoweEJkRndHKytxTDZWdTdNMTNjeTZmcmFKMzQ2Z3d5a1VCL3JEcjdwT0p2WVV4cXNaRW1tR0JRS2xUeFdNRkVaZVFUdkt6ZXcrcnJxQjZSQ2pJRzNjb0FCbm4zTVJPazJnRC8rMUFDOVV4N1MzUVIzd3ZEUUVWMVJ2Vk5CYkNuaVluSTU0RVpNbUpJZHkwTWdvMUhzNWpNWmFiVWdaMll3clYwbmkrbEh4N01PL0p1ZnRzL0xiZE9HNHBZUWxBQWJiTzlNc0UwMHhCanMwT1g5dWpRdWxETTgrOUEvZ0hkMmgyK01pZlh4TVVvS3FjM25kcHBub01oeHlxV3NObzVscjFQVTJFMDh5SklkeTAzaHBXaisybEdRWjZZb29lbW5sdVVOdnJtUERTekJOSGxkSzhhakVMSC9iTkJOUE1BYzQwWWFnS2RITUw4QUJHWHh1emI3czA4OTdiVmoyaW01WUNWSlhUZTZBWmRCM1VNQWo4UDZjSmwreE1XbWY4Tkd1ZHd1Y0kxNnJ2YWNKSE0ybkpqU0ZIZ0FXWHNRZllzamlQeGJHWm01SUNQVEh4UGtiMmZDbGxZa0VtSlJQZWZIaml5RmVaQzRpYzg1U0NMeE04Tm5PeGpXTmVhdVlMOEg1K0Qwb05nbklGK1lZdW5uc2Y1V2ErTnZ1S0drUWZQb21sREFIZnBVank1dHNiR0Z1bXB1VUNHQ2JuY0hsalc0MnR3UkJjM3FKM00xL0htVUtCak93RW4zWUg4elgzc3BQZ1kyVkp4YUNSZlVGbFFHVjhabE9veCtKTTAvc29uR04wWTlJWG45bjBmQ2w1NDE4bmNIcWhUTWhueStpZXhDcU1jaUVrbDhJendUTk5qWWh2MFdBNFM4Y3Z2ZmJCRjhEaUcwT1I0K2lYL2FJUHNhZ1RCcWJaVUVpS1psRjJBZnhBWnJUT0Q1VWtzT2JvZ25jQk5BSUcxWFBqOUIyVHNOUWZCM0lJRVJuYk5DV2RDSmhtREExZ21qRTBnR25HMEFDbUdVTURtR1lNRGZnL0NUK2ZVNjVIVkdNQUFBQUFTVVZPUks1Q1lJST1cIiAvPlxuXG48IS0tIHJuYi1wbG90LWVuZCAtLT5cbiJ9 -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAC4CAMAAAB+WdDOAAABvFBMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshawP9mAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///39/f/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///8/D6teAAAACXBIWXMAAAuwAAALsAEaOBByAAAQ5UlEQVR4nO1djX/bRhl2PiiDQZQMl9B1dDjsK8NmEBpW5sAYK6NJGR3t2jqwAotTtjJG54zB6q5sZG6mNmZ2fP8w7/veSZYlOZZt+SSd3+eXn2Wf7l6d757c5+P3coLBmDhySWeAMQ1gmjE0gGnG0ACmGUMDUkqzrzBMAdVnWmmWdAYYMSF7NLsf80PYngZ7TDO2p8Ee04ztabDHNGN7Guxlj2bfYSSKMWqSacaIijFqkmnGiIoxajJmmrVLVr5Rt5Zqovn9Cn7Mv3MNg/AehnS2LMtavFZahJudLYjWTYWvllX2Zs6HpIt52jESIybTmrXXgFKfAH0e/qQoRL0M3KIgoULww4NK++KyEP/7ca0nlWivC1sykmmWRvjrI8EpgEuz95AxxBqHZhQCHx5URPv3L9TEp7+r1a3F61v514tdmi0LudN0/z59ifvea9LFPO3w18d93+fQ62Rp1n6/DUwStlV0aCZDoGeEDrN9pVru/P0mRii31950WrOStazMcGuWQvjrI+nWDPhjO+OselnRTIao1uxK89n//uNmDYhVFnbR7TSbzza8mfMh6WKedvjrI0GadS5WiDSfNrADtJFE+LF5ToXQh9X2lc7FFxs3azdrdrm5uluRUaDTrBe9mfMh6WKedoxEiAktaDRXoFeECWVZVK38f562lm7jBBKGYBTyrR/BB+tn0IjZRZiQvmFByEtbj63I+adV7GzhHJQVGuYge+tmjAyCacbQgOzRzIit5GmzxzRjexrsMc3YngZ7TDO2p8Fe9mjGyCCYZgwNyB7Nkl4Fzxx011oYmGbGQ3ethUEDzUjaKGHjZiWJNly0vXrH0Mz5kHStZQ6+8jN1CkBCRkJnq+i7114XPXrHsMz5kHStZQ6+8jOVZiRkrJ+1zlpl+7mVpRrwql1arDR/Wlqq2VaxV++Iwu2q9dxVljXGhlFkiENcE5Q1ekFCxnZp2V5ungMm2cV6vnG3Yv9ga6m2W7m32qt3hBtF6Fnr8scA3JrFAV/5GdqaSSGjXbaLQLOiaK52LjWqlgWkA1I1XZrJaHhjt8I0ixMTrNvImDzNHGmjolm9CDTDnwl4aebqHfFGnVuzWDHBuo2MSdOs4wgZ869b1tItaKyg3Sqj3r+6dLu03C4979U75vfhBv6E7hiaMTKIdK6bHdeaMTKIVNKsuSJ/Isxb56bYSyXNHDDNTLHHNGN7GuwxzdieBnvZoxkjg2CaMTSAacbQgOzRLNvL4VMKppkRQ+y029NGsxAPjtfJaWNAzOjPnA9Mswza09ea9fHg+MBHs/a6P3M+MM0yaC8BmvV4cASWVRcr1fy+R+jYXDn5/iRkjWPI8uKW+U2bPf0083pwlE4bkWxeoePdykP5awGeApgCzTQLeHDEPnO38m6P0NF1rs00MwX6aNbPg+OqaD5zVXiFjp/U4KWbOR+YZhmExgWNgAfHD3CmiS3bTXJ67Agdi5+VWNZoGLK3bmbEzGva7DHN2J4GewGaHeQWDk8sxJyVEcE0M8Wen2atM63zonV6J+a8jAammSn2/DQ7ehVodjB3J+a8jAaeApiCkE4zl5tNR2PGNDMG4VOAf6aDZ0wzU9BDs9apnERKmjOmmSnobc1uqDFZmluzuNf1jRhip91e9tbNmGYZtBegGXac8/QuRIhYoZfmuYAZr6vFzhb6wYB4cnsJX1Fghi+22mEiLWN7/EOoo3zDQTCiGtNuL7CgsbEAs025PBsiRMSX6wGfiz5Xi5COIjefqon2DytfNiCguSp2K+I94RxATfHGPoQ6yjccBCOqMe32AsuzT+DwTI7NQoSI9ELywzo0SfZzT916vrSkYrRLRZvCbq81KB4di4kvzavofMUuQhunDqDu0KHTYx9CHac8j68TvAY6zQ834eWPPTTzCBHpBVopaJmE/dJW/nPo8oBIMoZdFLvAF2y8KF4V+z6gTNVaFneh8zz3ZYPYKLWMb8ZwCHXYfUYKEb6g4ek0e4WI9EK6sDYduirI/6LjkRFoVnEPk66X3das89satWbw8W5FaRkx3tiHUE+wYBhxInRB4/BJuoQIEemFaIYnR0uaAZFkDAivLt0iush4MC/A8ZkQ76qxGRJOahnp0OmxD6GeaNEw4kOg09z2LM8GhIi1B/hC8sO6ZeVfx1+IWNBzuq4WrXIV55LLFE/NNKvUFlahF61Lc4CXtujQ6VEOoeYpQAbtBRUaR6+K1vnID7GDs874wAoNU+wFaHZeHBSOfhF1F6C76jUJMM1MsRfoNPdmd7bV+mziYJqZYo8VGgwN6F3QOL0j1zRYocGIFYHW7EZ3FyBxMM1MQWAKkJKfARCYZqYg0JrRPlOaWzMjhsTTZi/QmqV+bBb3FoAR1Zh2e9kbmzHNMmgvdEFD7WkmDqaZKfaO3dMMV9BWLcuV6jjR8MDf/DvXSrTB+diKlMUuPu2JF796NsrXY6QDg/Y0gwra65f21z6/3Gulnm+4Xj6RckoW65wv3V4XE1DPxvDtGZowaE8zREFLYZ0taHpcGW3nUsPx8kk0U7JYFGcrR58TUM+mQRXK12jXQXuaYQpaDAPa1KUXT9S+As0cL58W0M+RxbbXPu86+oxdPRt2k5FOhO9pdhGmoMUwoFdz1ZXRIs2Ul09qzRxZLLRmygPjBNSzMZWAEUPstNsbRLMQBa1szZa9MlrsNB0vn0QzKYv10GwC6tlhy6MPjKjGtNvr3To/E4wQVNCSEJbGZq6M9p5VRr3sbWemKWWxONN0HH3Gp541otinzV4vzU6lZf1fgmlmir1emp2nzaaU+GrkrXNzEDY220tLm8Y0MwX+1kwcbaRm55xpZgz8Y7NcrpBgbnxgmpmCXpqlSdMoeApgjr1B62aJgmlmir3s0SzubSYjqjHt9phmRlRj2u0xzRgaMALNQqSO10iZsa/kZQ5on4p21qUjNNI2dmKQNQ75HRmJY5TWLOzU8nXRufTXfJdmqGSUPkHxbMzmVdw0l/vnMcgah/yOjMQxFs08p5avdy4D0fbJLyg0SEVUMkoveqjx+LRBNKsrFce4ssbkZXp8He46Ds16Ty1fFigHQoeN6NTx3qrrExSYdYUkQFLbGIOscajcDoIRQ+y02xuZZr5Ty2VrJmmGxEElo/IJ2n7hb1Jp5mnNxpM1DpXbQTCiGtNubxSahZ1avo7hlxrkF/SNMtHM9QlaxW61Z2w2pqxxqNwOghHVmHZ7Iy1oBKSOt0vy53FlnCfiCykZpU9Q5dGxitPIqpppsqxxyuxlb92MkUEwzRgawDRjaADTjKEB2aOZEUPiabPHNGN7GuwxzdieBntMM7anwV72aMb6jAyCacbQgGFp1k/TWPZHxAPRpR+qz1YsC92gxeWtcchvyEgBhm7NwjWNdr5XOAvswY1MUjveK3cuVmL01jjEt2OkBKPTzKtpRKUG+ghyZY3WMrlpJH0Q7Z3H6K0xZtndfbY3eXsj08yvaST/jUXnHOrdCh2ILu9gxBi9NUbPayQYMZNLu73RaObXNKIQkfw3EsNI9CM9OVJrhjLaGL01Rs9rJBhRjWm3NzTNwjWN9aLrv7G6dAvpp2gmSKfduRyjt8boeY0EI6ox7faGX9AI1TR2tmB4ZVGPaJUhhnTTeLIk/TpaVozeGhkZxCTWzR7WROfy4GiDwTQzBZOgWV0tjI0NppkpyN4uACODyB7NjBgST5s9phnb02CPacb2NNhjmrE9DfayRzNGBsE0Y2gA04yhAZFpFqJnvL7lP4za0YyJkCOpnZQeiyPJGhkZRPTWLEzP6PMCKug4arqEHEmtUnosjiRrNGJIPG32RqCZR8+41qiftc5aZfv50tJtkjSi86mVk++HHUmtUlYXK9X8PiofR5M1GiHzmzZ7w9PMq2dc2y8t28vNF6HjU5JGoNndysNa2JHUKiXpzSjuaLJGI/67p83ekDTz6RnXGnYZRWbAGiVpBJqp0VbgSGon5W7l3QYpH0eTNRpR7NNmLzrNwvSMHprVpaTxg0uNT2pAuZAjqVVK0XzmKiYHQo0ka2RkEEMsaAT0jB9sWd+GMZVlLd2yHEmjbZU/K/U7krosfTYC41D5eLLEssZpQTzrZnZxcJweRFM+Ms1MQSw06659RUU05SPTzBRkbxfAiCHxtNljmrE9DfaYZmxPgz2mGdvTYC/dNGOYAqrPlNIsFGmffnL++oJpFh84f32RJZoxMgumGUMDmGYMDWCaMTQgIzQjN8nuJX1QGbOtYbd49cDZek6s/LJBM+WKT13SBydj7yWdkX7AE5qTLL9s0Ew5FnX8i6YOKmPkyDmVkDRLrvyyQTNyk+xe0geVMXLknHReQiFpllz5ZYNmGWnNBNVkGsGtWRRkZWymqjN94LFZJJCb5DJdUgmZv3pMLlHjB/4SI8nyywjNGNkG04yhAUwzhgYwzRgawDRjaADTjKEBZtFsL5db+HDTF3j0883W4xSoLj0IC3MDDx+90y/KYASTjWiIcvKNwVEe2RkqN0PhD2OlNotm23N3xN6Mv0C2ZUiAfj13Q9E6NXdnQBQf3If0eVqktCGQfD8WRxuzx9FsTIzJUpNodvhVLIqDgi8YWjO89Pl/VHf7WKTaPTZKL9yHjPDff0ySo19EYFDr9ARpJlpPDCT6MTCJZntzqiSw74RS/1MOAg5yuRnsNOFawH9Jz73WqdzsDnHoaCM3D63BXzCgdfqVmd88vkk3Dx99OTdPNNvOkXFMCOnpI0b89aNv5eY+ys19fGp2Bxo9eggmDHmaoCbhUCW441hSMV6Z+ZWTVkXfg7fOYw/mkfIqpXy4JyZ9Y+eT5wZ8K3i/7T67m49uHPdhuQX5jU84peDPxLb/33cYmEgzaIMOT3wPmIPV+sgONHLAgH8jV2Y2vff2FoBAsqnCluALCriwAdUOEenm4YnC0UYB3hxA2IKko4BA/PhNiAifoXbmcfR3GgmLD6GEIU8T2PtecBJcUJacGAvCSXtBRgdmbS+ox0K46D6KAj0xBdFwG++qL6Vu7M13cy6fraJ346gwykUB/rDr7pOJvYUxqsZEmmGBQKlTxWMFEZeQTvKzew+rrqB6RCjIG3coABnn3MROk2gD/+1AC9Ux7S3QR3wvDQEV1RvVNBbCniYnI54EZMmJIdy0Mgo1Hs5jMZabUgZ2YwrV0ni+lHx7MO/Jufts/LbdOG4pYQlAAbbO9MsE00xBjs0OX9ujQulDM8+9A/gHd2h2+MifXxMUoKqc3ndppnoMhxyqWsNo5lr1PU2E08yJIdy03hpWj+2lGQZ6YooemnluUNvrmPDSzBNHldK8ajELH/bNBNPMAc40YagKdHML8ABGXxuzb7s0897bVj2im5YCVJXTe6AZdB3UMAj8P6cJl+xMWmf8NGudwucI16rvacJHM2nJjSFHgAWXsQfYsjiPxbGZm5ICPTHxPkb2fCllYkEmJRPefHjiyFeZC4ic85SCLxM8NnOxjWNeauYL8H5+D0oNgnIF+YYunnsf5Wa+NvuKGkQfPomlDAHfpUjy5tsbGFumpuUCGCbncHljW42twRBc3qJ3M1/HmUKBjOwEn3YH8zX3spPgY2VJxaCRfUFlQGV8ZlOox+JM0/sonGN0Y9IXn9n0fCl5418ncHqhTMhny+iexCqMciEkl8IzwTNNjYhv0WA4S8cvvfbBF8DiG0OR4+iX/aIPsagTBqbZUEiKZlF2AfxAZrTOD5UksObogncBNAIG1XPj9B2TsNQfB3IIERnbNCWdCJhmDA1gmjE0gGnG0ACmGUMDmGYMDfg/CT+fU65HVGMAAAAASUVORK5CYII=" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrRmljMU5SVFhOT2IxUnZia3hrUTI5dVVHVnliV2x0Y0M1emRtZGNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVEl1TkN3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSnpkbWRjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1pFRnVibTk1VFc1QlluTlRVVTF6VG05VWIyNU1aRU52YmxCbGNtMXBiWEF1YzNablhDSXBYRzRnSUZ4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhDSlFkSE5CUW1SQmJtNXZlVTF1UVdKelUxRk5jMDV2Vkc5dVRHUkRiMjVRWlhKdGFXMXdMbkJrWmx3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pNDBMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjSW5Ca1psd2lLU2xjYmlBZ2RXNXNhVzVyS0Z3aVVIUnpRVUprUVc1dWIzbE5ia0ZpYzFOUlRYTk9iMVJ2Ymt4a1EyOXVVR1Z5YldsdGNDNXdaR1pjSWlsY2JuMWNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BYnNTUU1zTm9Ub25MZENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzU1FNc05vVG9uTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFic1NRTXNOb1RvbkxkQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BYnNTUU1zTm9Ub25MZENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAbsSQMsNoTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAbsSQMsNoTonLdConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnAbsSQMsNoTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAbsSQMsNoTonLdConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtGaWMxTlJUWE5PYjFSdmJreGtRMjl1VUdWeWJXbHRjQzV6ZG1kY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUSXVOQ3dnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4emRtZGNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWkVGdWJtOTVUVzVCWW5OVFVVMXpUbTlVYjI1TVpFTnZibEJsY20xcGJYQXVjM1puWEZ3cFhHNGdJRnh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WEZ4UWRITkJRbVJCYm01dmVVMXVRV0p6VTFGTmMwNXZWRzl1VEdSRGIyNVFaWEp0YVcxd0xuQmtabHhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWk0MExDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNYSEJrWmx4Y0tTbGNiaUFnZFc1c2FXNXJLRnhjVUhSelFVSmtRVzV1YjNsTmJrRmljMU5SVFhOT2IxUnZia3hrUTI5dVVHVnliV2x0Y0M1d1pHWmNYQ2xjYm4xY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWJzU1FNc05vVG9uTGRDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFic1NRTXNOb1RvbkxkQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5BYnNTUU1zTm9Ub25MZENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uQWJzU1FNc05vVG9uTGRDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkFic1NRTXNOb1RvbkxkQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5BYnNTUU1zTm9Ub25MZENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uQWJzU1FNc05vVG9uTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkFic1NRTXNOb1RvbkxkQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnAbsSQMsNoTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnAbsSQMsNoTonLdConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnAbsSQMsNoTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnAbsSQMsNoTonLdConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
### Difference variables
Next, the difference metrics are analysed,
#### Remove ambient only stimuli - OMITTED
Here, the 'ambient only' stimuli are removed, as the analysis cannot handle missing values for dB metrics.
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEdsdFJHRjBZVTUxYlNBOExTQnpkR2x0UkdGMFlVNTFiVnRqYjIxd2JHVjBaUzVqWVhObGN5aHpkR2x0UkdGMFlVNTFiU2tzWFZ4dUl5QnpkR2x0UkdGMFlVNTFiU1JWUVZOTVFXVnhJRHd0SUdGekxtNTFiV1Z5YVdNb2MzUnBiVVJoZEdGT2RXMGtWVUZUVEVGbGNTbGNiaU1nYzNScGJVUmhkR0ZPZFcwa1UwNVNiR1YyWld3Z1BDMGdZWE11Ym5WdFpYSnBZeWh6ZEdsdFJHRjBZVTUxYlNSVFRsSnNaWFpsYkNsY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG4jIHN0aW1EYXRhTnVtIDwtIHN0aW1EYXRhTnVtW2NvbXBsZXRlLmNhc2VzKHN0aW1EYXRhTnVtKSxdXG4jIHN0aW1EYXRhTnVtJFVBU0xBZXEgPC0gYXMubnVtZXJpYyhzdGltRGF0YU51bSRVQVNMQWVxKVxuIyBzdGltRGF0YU51bSRTTlJsZXZlbCA8LSBhcy5udW1lcmljKHN0aW1EYXRhTnVtJFNOUmxldmVsKVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# stimDataNum <- stimDataNum[complete.cases(stimDataNum),]
# stimDataNum$UASLAeq <- as.numeric(stimDataNum$UASLAeq)
# stimDataNum$SNRlevel <- as.numeric(stimDataNum$SNRlevel)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkR2x0UkdGMFlVNTFiU0E4TFNCemRHbHRSR0YwWVU1MWJWdGpiMjF3YkdWMFpTNWpZWE5sY3loemRHbHRSR0YwWVU1MWJTa3NYVnh1SXlCemRHbHRSR0YwWVU1MWJTUlZRVk5NUVdWeElEd3RJR0Z6TG01MWJXVnlhV01vYzNScGJVUmhkR0ZPZFcwa1ZVRlRURUZsY1NsY2JpTWdjM1JwYlVSaGRHRk9kVzBrVTA1U2JHVjJaV3dnUEMwZ1lYTXViblZ0WlhKcFl5aHpkR2x0UkdGMFlVNTFiU1JUVGxKc1pYWmxiQ2xjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuIyBzdGltRGF0YU51bSA8LSBzdGltRGF0YU51bVtjb21wbGV0ZS5jYXNlcyhzdGltRGF0YU51bSksXVxuIyBzdGltRGF0YU51bSRVQVNMQWVxIDwtIGFzLm51bWVyaWMoc3RpbURhdGFOdW0kVUFTTEFlcSlcbiMgc3RpbURhdGFOdW0kU05SbGV2ZWwgPC0gYXMubnVtZXJpYyhzdGltRGF0YU51bSRTTlJsZXZlbClcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdGltRGF0YU51bSA8LSBzdGltRGF0YU51bVtjb21wbGV0ZS5jYXNlcyhzdGltRGF0YU51bSksXVxuIyBzdGltRGF0YU51bSRVQVNMQWVxIDwtIGFzLm51bWVyaWMoc3RpbURhdGFOdW0kVUFTTEFlcSlcbiMgc3RpbURhdGFOdW0kU05SbGV2ZWwgPC0gYXMubnVtZXJpYyhzdGltRGF0YU51bSRTTlJsZXZlbClcbmBgYFxuYGBgIn0= -->
```r
```r
# stimDataNum <- stimDataNum[complete.cases(stimDataNum),]
# stimDataNum$UASLAeq <- as.numeric(stimDataNum$UASLAeq)
# stimDataNum$SNRlevel <- as.numeric(stimDataNum$SNRlevel)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0c1aGJXVnpLSE4wYVcxRVlYUmhUblZ0S1Z0M2FHbGphQ2hqYjJ4dVlXMWxjeWh6ZEdsdFJHRjBZVTUxYlNrOVBWd2lURUZsY1V4QlJqa3daR2xtWmx3aUtUcGNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCM2FHbGphQ2hqYjJ4dVlXMWxjeWh6ZEdsdFJHRjBZVTUxYlNrOVBWd2laRWx0Y0hWc2MxTklUVEExUlhoTllYaE1VbHdpS1Ywc1hHNGdJQ0FnSUNBZ0lDQWdJRndpVlVGVFJYWmxiblJ6WENJc0lGd2lVMDVTYkdWMlpXeGNJaXdnWENKSmJuUmxjbTFwZEZKaGRHbHZUV0Y0VEZKY0lpbGNibVJXWVhJZ1BDMGdYQ0prUVc1dWIzbE5aV0Z1WENKY2JseHVjMlZsWkhNZ1BDMGdZeWcxTmpnek9USXNJRFE1T0N3Z05EQTRPU3dnTnpneE16SXNJRGMwTVRnd09TbGNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuaVZhcnMgPC0gYyhuYW1lcyhzdGltRGF0YU51bSlbd2hpY2goY29sbmFtZXMoc3RpbURhdGFOdW0pPT1cXExBZXFMQUY5MGRpZmZcXCk6XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgd2hpY2goY29sbmFtZXMoc3RpbURhdGFOdW0pPT1cXGRJbXB1bHNTSE0wNUV4TWF4TFJcXCldLFxuICAgICAgICAgICBcXFVBU0V2ZW50c1xcLCBcXFNOUmxldmVsXFwsIFxcSW50ZXJtaXRSYXRpb01heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoNTY4MzkyLCA0OTgsIDQwODksIDc4MTMyLCA3NDE4MDkpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
iVars <- c(names(stimDataNum)[which(colnames(stimDataNum)==\LAeqLAF90diff\):
which(colnames(stimDataNum)==\dImpulsSHM05ExMaxLR\)],
\UASEvents\, \SNRlevel\, \IntermitRatioMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(568392, 498, 4089, 78132, 741809)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLRzVoYldWektITjBhVzFFWVhSaFRuVnRLVnQzYUdsamFDaGpiMnh1WVcxbGN5aHpkR2x0UkdGMFlVNTFiU2s5UFZ4Y1RFRmxjVXhCUmprd1pHbG1abHhjS1RwY2JpQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0IzYUdsamFDaGpiMnh1WVcxbGN5aHpkR2x0UkdGMFlVNTFiU2s5UFZ4Y1pFbHRjSFZzYzFOSVRUQTFSWGhOWVhoTVVseGNLVjBzWEc0Z0lDQWdJQ0FnSUNBZ0lGeGNWVUZUUlhabGJuUnpYRndzSUZ4Y1UwNVNiR1YyWld4Y1hDd2dYRnhKYm5SbGNtMXBkRkpoZEdsdlRXRjRURkpjWENsY2JtUldZWElnUEMwZ1hGeGtRVzV1YjNsTlpXRnVYRnhjYmx4dWMyVmxaSE1nUEMwZ1l5ZzFOamd6T1RJc0lEUTVPQ3dnTkRBNE9Td2dOemd4TXpJc0lEYzBNVGd3T1NsY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbmlWYXJzIDwtIGMobmFtZXMoc3RpbURhdGFOdW0pW3doaWNoKGNvbG5hbWVzKHN0aW1EYXRhTnVtKT09XFxMQWVxTEFGOTBkaWZmXFwpOlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHdoaWNoKGNvbG5hbWVzKHN0aW1EYXRhTnVtKT09XFxkSW1wdWxzU0hNMDVFeE1heExSXFwpXSxcbiAgICAgICAgICAgXFxVQVNFdmVudHNcXCwgXFxTTlJsZXZlbFxcLCBcXEludGVybWl0UmF0aW9NYXhMUlxcKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDU2ODM5MiwgNDk4LCA0MDg5LCA3ODEzMiwgNzQxODA5KVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKG5hbWVzKHN0aW1EYXRhTnVtKVt3aGljaChjb2xuYW1lcyhzdGltRGF0YU51bSk9PVxcTEFlcUxBRjkwZGlmZlxcKTpcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB3aGljaChjb2xuYW1lcyhzdGltRGF0YU51bSk9PVxcZEltcHVsc1NITTA1RXhNYXhMUlxcKV0sXG4gICAgICAgICAgIFxcVUFTRXZlbnRzXFwsIFxcU05SbGV2ZWxcXCwgXFxJbnRlcm1pdFJhdGlvTWF4TFJcXClcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYyg1NjgzOTIsIDQ5OCwgNDA4OSwgNzgxMzIsIDc0MTgwOSlcblxuYGBgXG5gYGAifQ== -->
```r
```r
iVars <- c(names(stimDataNum)[which(colnames(stimDataNum)==\LAeqLAF90diff\):
which(colnames(stimDataNum)==\dImpulsSHM05ExMaxLR\)],
\UASEvents\, \SNRlevel\, \IntermitRatioMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(568392, 498, 4089, 78132, 741809)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbnAgPC0gbXRyeVR1bmUoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkPXNlZWRzWzE6Ml0sXG4gICAgICAgICAgICAgbnRyZWVzPW50cmVlcywgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuYGBgXG5gYGAifQ== -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXZaeXQ1TTNCcWFEaHdPV2M1ZFdsbGRpczRVMmwzWmpkRWNHUm9XRXhuYW5ZeVJEQTFaVVF6TTBsNk1tb3ZORWRNZVZVd05HWk9MM05JV25rNGJVSnZiMVl5VkM4MEx5OHZXVFpWTWxnM1VqaExUR3g2YUd3dk1FOWljelppVTFSaEwxQlVUaTh5VEM5d2RtTXpOMkp6VlZJcmVtUjZTbmc1YkZoMmJrY3ZjekpGYVZOeGFGTXZPRU40VjNWcFV6QjZOamRPTHpCcFVEQlBjVGQwYmk4Mldtc3piMWRWU1RaeU1tSTNTMk5VVURaWlVGbEhZbU0yZFRnMVpuUXZkbmhtTW5RNFVYbElWMlpNWm5KREx5dFVTMjlrSzBoMlRWQjFZbVkzZDJSQmMxaHRNazRyVTAxVmNFeGlhbkJyWmpCMFZTOU5ZblZTTTFneWREVjVWeTlvVUM5d1YwSXZjVGR5VVZZd1RURkVSMmRIVERoblkzRkNPVUp2VTBsQmVFTktRVXhCU0VWRGEwTnpRM05STmsxUWMyTlJSSGRuWTBKRFJqQnFlRkZ0WnpGTFRUQkdieXQ2T1ZFcloyVlZMM05KUVVKVFowSjZTbkZZYlVwMFlVUk1WMVZHVTNKSlJYVlJZamRCY0d4amQxRldSalZaYlVaeFYyMVJVRzVOZG04MGQwdGFZbU5yY1VwTFMwcHpjazE1ZVhoeFJHZGxURWxLY1VFeVpGSm1jbXRsZWtKaFVWWTFhMkZKVHpkblVVaGtTMk5yTldsTlkzZHdUVVZIZFd4TlUxTlNUREl3U1hGQ0swbFBPR1p0YUdJeUwwbExVM3BRZHpodlExbHRWVU5NYUdoQldXZEplRkZxUnpoU1dVSkJNVUpTWjJOT1YwVm9RU3RSU25kUWNrbEhMM1JKT0d0TGRGUmtTazE2VTNaUGVXUlpNMUZ3U210TU9IUkxVbkpIVDBGbGJ6UlNSM0JqZDA1cGRrVjRWWG92YjJSdk5WbFhSMWh0Y0hsU1JESlhlbkJsWVd4YUsyRnNkM05KY2t4VVRtUnllbmQ2Y0ZOUlJFWm5VV2RuV1hwVmVsQlRUVVZzYUVrMVUxRnRjR1ZpUVVoS1MxTlhaMXBzT0dkSFJFZG9lbE5sWjFaR2JWaHJkekZXZUVFd1YwczVhM1o1VTFKS1oxZHlkVlE0U0VwblNVOUdRVm92WjBWQlQweGlibkpLVVVSQlFVRTlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjUzMDI1NTRcXCxcXDJcXDpcXDAuODkyODUxM1xcLFxcM1xcOlxcMC40MTM1NDQ5XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFwwLjUyNjYyMjRcXCxcXDJcXDpcXDAuODkyMzE2NFxcLFxcM1xcOlxcMC40MDc2MTc5XFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcNS4yNVxcfSx7XFwxXFw6XFwwLjUyMTgzMzJcXCxcXDJcXDpcXDAuODk0MjM1NVxcLFxcM1xcOlxcMC40MDQ4NjU5XFwsXFw0XFw6XFwxNlxcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFwwLjUyNDYzODhcXCxcXDJcXDpcXDAuODkyNjQ3M1xcLFxcM1xcOlxcMC40MDYwMjM4XFwsXFw0XFw6XFwyMFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjUyNTU2MDNcXCxcXDJcXDpcXDAuODkyMjcxMlxcLFxcM1xcOlxcMC40MDc5NzEwXFwsXFw0XFw6XFwyNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjUyNTEyNDNcXCxcXDJcXDpcXDAuODkyMTAwOFxcLFxcM1xcOlxcMC40MDc1Mzc0XFwsXFw0XFw6XFwzMlxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjUzMTI0OTlcXCxcXDJcXDpcXDAuODg5MjM1OVxcLFxcM1xcOlxcMC40MTAzMTc5XFwsXFw0XFw6XFwzN1xcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjUzMzQwMjNcXCxcXDJcXDpcXDAuODg3OTcxMFxcLFxcM1xcOlxcMC40MTM3ODQzXFwsXFw0XFw6XFw0NFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzhdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cblxuPCEtLSBybmItZnJhbWUtYmVnaW4gZXlKdFpYUmhaR0YwWVNJNmV5SmpiR0Z6YzJWeklqcGJJbVJoZEdFdVpuSmhiV1VpWFN3aWJuSnZkeUk2T0N3aWJtTnZiQ0k2TlN3aWMzVnRiV0Z5ZVNJNmV5SkVaWE5qY21sd2RHbHZiaUk2V3lKa1ppQmJPQ0REbHlBMVhTSmRmWDBzSW5Ka1ppSTZJa2cwYzBsQlFVRkJRVUZCUVVKbmRIbHBWRVJ0YVhWQ2FWbEhRbWRhYlVKb1dWZEtaMXBuVlhsSFZtaEVVVGw0TUV4U1oxbG5RVWxOUkVsM1RVeEJlV05KVEc5RGNVVm5XVXBCZGtWbVJVUk5XV1l2WnpOUGNETlVkeTlaTW5vNU5IbERXSGxhVFVWdEszZGxURmd6VDBzclJ6SjRaak5ETTNRd1lqY3JlbkkzUWpaak4zQTJWbk4yVnpNdk5FMVVjVm92TTNVNE5FUnhMMmcxT0cweFpHZ3ZOVVIwZVZoSEwyNUdjVFJQVnpoWFZITjRiV0kxT1dvdk5tSnlXR1I1V21ocEx6SmllRmwwYm5Ka2JURjVkamRPZURGaFlrUTVVQzgzVGk4d00yUTRNamhYZVhVd1FqWlBkblpRUldobU4wNDBNM0F4WW1aUFVHSkdMMnN6TDNVMldTdHBTbGhDZW1KbmEyVlBZV2xvYkVkNEwya3lZeTlYSzNZNFNDOVpNM28xWm5adFREbGFlblkyVjNsSmVrRXlVamhXTjBjdksxbDZUVFphUjA1eFpqUjJVSFJVZVRrM2FERlJNMU5US3pFMGJFRm1jMUZvTW5sNmRVWnhRVnAyUTBKNmIwZzBSV2haYjBGRlNYTkJjMUZSVVV0M1EzaExhRVJ5ZDA5NGVrRlFSMEYzUlVWVlUzWk9RV0ZVV1c5NlVWTm9OMlk1UVRaU09WRXJaM05FUmt0QlJVMUhkR1ZaYlRWeFRXUlNVMVp4WjJkVE5VSjJjME4xVlhwU1JsVllSbWxoVjBwVFlVRjFWWG9yZW5KRGNFWm9lVk0wYjNGdlYzbDFla3hFUlc5MVNqUnpRV2x4UkZwNFJpdGxWalpOUm5SQldHMVdjV2RNYVVSQk9UQndlVlJ0U25oVVEyNTNRVk0xVldoS1RFVjJXRk5wYjBRMloySjRMMkZHY2xrNGQzUkxUWFpRZW1kS2NWbFJTVzFGUlhoeFFXcEdRMDFpUWtKcVJWUlJSVWRTTURCWlEwVkNOVkYyUVN0aloyRXJSWFo2VVVzMVR6QlZNMDlMVFROTU1XcFdRMnN5V1hWNVJYUkljMjgwUWpacWJFZGhSbnBETWt0M1VVWjZVRGxvTW5KdWFFbFdaR0Z1U2tkUWNGUk9iSEJ4V0c1d2JWaERaM1YyZEUxNE1IWm1URTFzU2tsTlYwSkRRVUpFU2xOTk9VMTZVMjFCYUd4YVQxbHNTbTlFWXpCb1MyRm9iVlY1VVdOTllXNUNTVFo0VlZWYVpXSkNWa2hOUWxKWmRqRlRka3BNUlcxR1lYVktUSHBqTWtGcE5FVkNiQ3RCWTBFM1JXNU5WRnBSUkVGQlFUMGlmUT09IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjUyNTIyODVcXCxcXDJcXDpcXDAuODk0NzIyN1xcLFxcM1xcOlxcMC40MDczMzQ1XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFwwLjUyNzQ3MDZcXCxcXDJcXDpcXDAuODkxOTU5NFxcLFxcM1xcOlxcMC40MDcwMjgwXFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcNS4yNVxcfSx7XFwxXFw6XFwwLjUyMDAwOTVcXCxcXDJcXDpcXDAuODk0ODUzNFxcLFxcM1xcOlxcMC40MDMyODc4XFwsXFw0XFw6XFwxNlxcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFwwLjUyNzA0NTBcXCxcXDJcXDpcXDAuODkxNjIxNlxcLFxcM1xcOlxcMC40MDc1MDcwXFwsXFw0XFw6XFwyMFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjUyNDg0NTlcXCxcXDJcXDpcXDAuODkyNDI5MlxcLFxcM1xcOlxcMC40MDYxMjk0XFwsXFw0XFw6XFwyNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjUyNDQ5NjBcXCxcXDJcXDpcXDAuODkyNDA2MFxcLFxcM1xcOlxcMC40MDcxMjExXFwsXFw0XFw6XFwzMlxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjUyNzU4NjhcXCxcXDJcXDpcXDAuODkwNzk2NFxcLFxcM1xcOlxcMC40MDcwMTcyXFwsXFw0XFw6XFwzN1xcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjUzMjA5MTVcXCxcXDJcXDpcXDAuODg4NjQ4NVxcLFxcM1xcOlxcMC40MTE2Njc0XFwsXFw0XFw6XFw0NFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzhdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYvZyt5M3BqaDhwOWc5dWlldis4U2l3ZjdEcGRoWExnanYyRDA1ZUQzM0l6MmovNEdMeVUwNGZOL3NIWnk4bUJvb1YyVC80Ly8vWTZVMlg3UjhLTGx6aGwvME9iczZiU1RhL1BUTi8yTC9wdmMzN2JzVVIremR6Sng5bFh2bkcvczJFaVNxaFMvOEN4V3VpUzB6NjdOLzBpUDBPcTd0bi82Wmszb1dVSTZyMmI3S2NUUDZZUFlHYmM2dTg1ZnQvdnhmMnQ4UXlIV2ZMZnJDLytUS29kK0h2TVB1YmY3d2RBc1htMk4rU01VcExianBrZjB0VS9NYnVSM1gydDV5Vy9oUC9wV0IvcTdyUVYwTTFER2dHTDhnY3FCOUJvU0lBeENKQUxBSEVDa0NzQ3NRNk1Qc2NRRHdnY0JDRjBqeFFtZzFLTTBGbyt6OVErZ2VVL3NJQUJTZ0J6SnFYbUp0YURMV1VGU3JJRXVRYjdBcGxjd1FWRjVZbUZxV21RUG5Ndm80d0taYmNrcUpLS0pzck15eXhxRGdlTElKcUEyZFJmcmtlekJhUVY1a2FJTzdnUUhkS2NrNWlNY3dwTUVHdWxNU1NSTDIwSXFCK0lPOGZtaGIyL0lLU3pQdzhvQ1ltVUNMaGhBWWdJeFFqRzhSWUJBMUJSZ2NOV0VoQStRSndQcklHL3RJOGtLdFRkSk16U3ZPeWRZM1FwSmtMOHRLUnJHT0FlbzRSR3Bjd05pdkV4VXovb2RvNVlXR1htcHlSRDJXenBlYWxaK2Fsd3NJckxUTmRyend6cFNRREZnUWdnWXpVelBTTUVsaEk1U1FtcGViQUhKS1NXZ1psOGdHREdoelNlZ1ZGbVhrdzFWeEEwV0s5a3Z5U1JKZ1dydVQ4SEpnSU9GQVovZ0VBT0xibnJKUURBQUE9In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.5302554\,\2\:\0.8928513\,\3\:\0.4135449\,\4\:\5\,\5\:\10.50\},{\1\:\0.5266224\,\2\:\0.8923164\,\3\:\0.4076179\,\4\:\10\,\5\:\5.25\},{\1\:\0.5218332\,\2\:\0.8942355\,\3\:\0.4048659\,\4\:\16\,\5\:\3.50\},{\1\:\0.5246388\,\2\:\0.8926473\,\3\:\0.4060238\,\4\:\20\,\5\:\2.75\},{\1\:\0.5255603\,\2\:\0.8922712\,\3\:\0.4079710\,\4\:\24\,\5\:\2.25\},{\1\:\0.5251243\,\2\:\0.8921008\,\3\:\0.4075374\,\4\:\32\,\5\:\1.75\},{\1\:\0.5312499\,\2\:\0.8892359\,\3\:\0.4103179\,\4\:\37\,\5\:\1.50\},{\1\:\0.5334023\,\2\:\0.8879710\,\3\:\0.4137843\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYvZzNPcDNUdy9ZMno5NHlDWHlaTUVtK3dlTFgzT0srRzJ4ZjNDM3QwYjcrenI3QjZjN3A2VnN2VzMvNE1UcVovM3U4NERxL2g1OG0xZGgvNUR0eVhHL25GcTRPVzhXVHN4bWI1OWovNmJyWGR5WmhpLzJieFl0bnJkbTF5djdOeDFhYkQ5UC83Ti8wM2Q4MjhXeXUwQjZPdnZQRWhmN040M3AxYmZPUGJGL2szL3U2WStpSlhCemJna2VPYWlobEd4L2kyYy9XK3Y4SC9ZM3o1ZnZtTDlaenY2V3lJekEyUjhWN0cvK1l6TTZaR05xZjR2UHRUeTk3aDFRM1NTKzE0bEFmc1FoMnl6dUZxQVp2Q0J6b0g0RWhZb0FFSXNBc1FRUUt3Q3hLaERyd094ekFQR0F3RUVVU3ZOQWFUWW96UVNoN2Y5QTZSOVErZ3NERktBRU1HdGVZbTVxTWRSU1ZxZ2dTNUJ2c0N1VXpSRlVYRmlhV0pTYUF1VXorenJDcEZoeVM0b3FvV3l1ekxERW91SjRzQWlxRFp4RitlVjZNRnRBWG1WcWdMaURBOTBweVRtSnhUQ253QVM1VWhKTEV2WFNpb0Q2Z2J4L2FGclk4d3RLTXZQemdKcVlRSW1FRXhxQWpGQ01iQkJqRVRRRUdSMDBZQ0VCNVF2QStjZ2ErRXZ6UUs1TzBVM09LTTNMMWpWQ2syWXV5RXRIc280QjZqbEdhRnpDMkt3UUZ6UDloMnJuaElWZGFuSkdQcFRObHBxWG5wbVhDZ3V2dE14MHZmTE1sSklNV0JDQUJESlNNOU16U21BaGxaT1lsSm9EYzBoS2FobVV5UWNNYW5CSTZ4VVVaZWJCVkhNQlJZdjFTdkpMRW1GYXVKTHpjMkFpNEVCbCtBY0E3RW5NVFpRREFBQT0ifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.5252285\,\2\:\0.8947227\,\3\:\0.4073345\,\4\:\5\,\5\:\10.50\},{\1\:\0.5274706\,\2\:\0.8919594\,\3\:\0.4070280\,\4\:\10\,\5\:\5.25\},{\1\:\0.5200095\,\2\:\0.8948534\,\3\:\0.4032878\,\4\:\16\,\5\:\3.50\},{\1\:\0.5270450\,\2\:\0.8916216\,\3\:\0.4075070\,\4\:\20\,\5\:\2.75\},{\1\:\0.5248459\,\2\:\0.8924292\,\3\:\0.4061294\,\4\:\24\,\5\:\2.25\},{\1\:\0.5244960\,\2\:\0.8924060\,\3\:\0.4071211\,\4\:\32\,\5\:\1.75\},{\1\:\0.5275868\,\2\:\0.8907964\,\3\:\0.4070172\,\4\:\37\,\5\:\1.50\},{\1\:\0.5320915\,\2\:\0.8886485\,\3\:\0.4116674\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmk5bksza3pjR3BvT0hBNVp6bDFhV1YyS3poVGFYZG1OMFJ3WkdoWVRHZHFkakpFTURWbFJETXpTWG95YWk4MFIweDVWVEEwWms0dmMwaGFlVGh0UW05dlZqSlVMelF2THk5Wk5sVXlXRGRTT0V0TWJIcG9iQzh3VDJKek5tSlRWR0V2VUZST0x6Sk1MM0IyWXpNM1luTlZVaXQ2WkhwS2VEbHNXSFp1Unk5ek1rVnBVM0ZvVXk4NFEzaFhkV2xUTUhvMk4wNHZNR2xRTUU5eE4zUnVMelphYXpOdlYxVkpObkl5WWpkTFkxUlFObGxRV1VkaVl6WjFPRFZtZEM5MmVHWXlkRGhSZVVoWFpreG1ja012SzFSTGIyUXJTSFpOVUhWaVpqZDNaRUZ6V0cweVRpdFRUVlZ3VEdKcWNHdG1NSFJWTDAxaWRWSXpXREowTlhsWEwyaFFMM0JYUWk5eE4zSlJWakJOTVVSSFowZE1PR2RqY1VJNVFtOVRTVUY0UTBwQlRFRklSVU5yUTNORGMxRTJUVkJ6WTFGRWQyZGpRa05HTUdwNFVXMW5NVXROTUVadkszbzVVU3RuWlZVdmMwbEJRbE5uUW5wS2NWaHRTblJoUkV4WFZVWlRja2xGZFZGaU4wRndiR04zVVZaR05WbHRSbkZYYlZGUWJrMTJielIzUzFwaVkydHhTa3RMU25OeVRYbDVlSEZFWjJWTVNVcHhRVEprVW1aeWEyVjZRbUZSVmpWcllVbFBOMmRSU0dSTFkyczFhVTFqZDNCTlJVZDFiRTFUVTFKTU1qQkpjVUlyU1U4NFptMW9Zakl2U1V0VGVsQjNPRzlEV1cxVlEweG9hRUZaWjBsNFVXcEhPRkpaUWtFeFFsSm5ZMDVYUldoQksxRktkMUJ5U1VjdmRFazRhMHQwVkdSS1RYcFRkazk1WkZrelVYQkthMHc0ZEV0U2NrZFBRV1Z2TkZKSGNHTjNUbWwyUlhoVmVpOXZaRzgxV1ZkSFdHMXdlVkpFTWxkNmNHVmhiRm9yWVd4M2MwbHlURlJPWkhKNmQzcHdVMUZFUm1kUloyZFplbFY2VUZOTlJXeG9TVFZUVVcxd1pXSkJTRXBMVTFkbldtdzRaMGRFUjJoNlUyVm5Wa1p0V0d0M01WWjRRVEJYU3pscmRubFRVa3BuVjNKMVZEaElTbWRKVDBaQldpOW5SVUZQVEdKdWNrcFJSRUZCUVQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuNTMwMjU1NFwiLFwiMlwiOlwiMC44OTI4NTEzXCIsXCIzXCI6XCIwLjQxMzU0NDlcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEwLjUwXCJ9LHtcIjFcIjpcIjAuNTI2NjIyNFwiLFwiMlwiOlwiMC44OTIzMTY0XCIsXCIzXCI6XCIwLjQwNzYxNzlcIixcIjRcIjpcIjEwXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjAuNTIxODMzMlwiLFwiMlwiOlwiMC44OTQyMzU1XCIsXCIzXCI6XCIwLjQwNDg2NTlcIixcIjRcIjpcIjE2XCIsXCI1XCI6XCIzLjUwXCJ9LHtcIjFcIjpcIjAuNTI0NjM4OFwiLFwiMlwiOlwiMC44OTI2NDczXCIsXCIzXCI6XCIwLjQwNjAyMzhcIixcIjRcIjpcIjIwXCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNTI1NTYwM1wiLFwiMlwiOlwiMC44OTIyNzEyXCIsXCIzXCI6XCIwLjQwNzk3MTBcIixcIjRcIjpcIjI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNTI1MTI0M1wiLFwiMlwiOlwiMC44OTIxMDA4XCIsXCIzXCI6XCIwLjQwNzUzNzRcIixcIjRcIjpcIjMyXCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNTMxMjQ5OVwiLFwiMlwiOlwiMC44ODkyMzU5XCIsXCIzXCI6XCIwLjQxMDMxNzlcIixcIjRcIjpcIjM3XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNTMzNDAyM1wiLFwiMlwiOlwiMC44ODc5NzEwXCIsXCIzXCI6XCIwLjQxMzc4NDNcIixcIjRcIjpcIjQ0XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbOF19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZi9nK3kzcGpoOHA5Zzl1aWV2KzhTaXdmN0RwZGhYTGdqdjJEMDVlRDMzSXoyai80R0x5VTA0Zk4vc0haeThtQm9vVjJULzQvLy9ZNlUyWDdSOEtMbHpobC8wT2JzNmJTVGEvUFROLzJML3B2YzM3YnNVUit6ZHpKeDlsWHZuRy9zMkVpU3FoUy84Q3hXdWlTMHo2N04vMGlQME9xN3RuLzZaazNvV1VJNnIyYjdLY1RQNllQWUdiYzZ1ODVmdC92eGYydDhReUhXZkxmckMvK1RLb2QrSHZNUHViZjd3ZEFzWG0yTitTTVVwTGJqcGtmMHRVL01idVIzWDJ0NXlXL2hQL3BXQi9xN3JRVjBNMURHZ0dMOGdjcUI5Qm9TSUF4Q0pBTEFIRUNrQ3NDc1E2TVBzY1FEd2djQkNGMGp4UW1nMUtNMEZvK3o5UStnZVUvc0lBQlNnQnpKcVhtSnRhRExXVUZTcklFdVFiN0FwbGN3UVZGNVltRnFXbVFQbk12bzR3S1piY2txSktLSnNyTXl5eHFEZ2VMSUpxQTJkUmZya2V6QmFRVjVrYUlPN2dRSGRLY2s1aU1jd3BNRUd1bE1TU1JMMjBJcUIrSU84Zm1oYjIvSUtTelB3OG9DWW1VQ0xoaEFZZ0l4UWpHOFJZQkExQlJnY05XRWhBK1FKd1BySUcvdEk4a0t0VGRKTXpTdk95ZFkzUXBKa0w4dEtSckdPQWVvNFJHcGN3Tml2RXhVei9vZG81WVdHWG1weVJEMld6cGVhbForYWx3c0lyTFROZHJ6d3pwU1FERmdRZ2dZelV6UFNNRWxoSTVTUW1wZWJBSEpLU1dnWmw4Z0dER2h6U2VnVkZtWGt3MVZ4QTBXSzlrdnlTUkpnV3J1VDhISmdJT0ZBWi9nRUFPTGJuckpRREFBQT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.5302554","2":"0.8928513","3":"0.4135449","4":"5","5":"10.50"},{"1":"0.5266224","2":"0.8923164","3":"0.4076179","4":"10","5":"5.25"},{"1":"0.5218332","2":"0.8942355","3":"0.4048659","4":"16","5":"3.50"},{"1":"0.5246388","2":"0.8926473","3":"0.4060238","4":"20","5":"2.75"},{"1":"0.5255603","2":"0.8922712","3":"0.4079710","4":"24","5":"2.25"},{"1":"0.5251243","2":"0.8921008","3":"0.4075374","4":"32","5":"1.75"},{"1":"0.5312499","2":"0.8892359","3":"0.4103179","4":"37","5":"1.50"},{"1":"0.5334023","2":"0.8879710","3":"0.4137843","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXZaekZ2Tm1kdU0wWlVOMEk0WTFjMUt6TldiRmhVTDNORmJWSjFWbko1TUM5WlVIcHFPRmd3ZDJoV1RuWXJkMlJzVEUxNmRHRkVkR3N2ZFZCU1VEbEllbk5TZG5OSVZETlViRGN2TWxKemJpOUpUbkJWY0hKUGExb3pTbmN6Y3lzME9YVk1NV2xwWmpKaU5sUk5URmc0ZWxoeldEaDZUekkyWlhKbFFXUXJlbVZVTVdsbE9IVmtiR3d2Tm1FelVGQmlUMUZUWmpkT05UTXpVREZ2TDNOTVRpOHdObW9yTVdSbUwydFFNbUpSYnpKdWRsZGhVbU5JVG5WWFZXRXpTbm81V0hNM0x6Vm1SbTVrUmpZd016bHFaSFpoUnpRNVZWTmthbVl2VUhaRGFraDBia1Z1TW5RemFrOVVla3g1ZFRKa0wxTTViVGs0T1dkS1R5OTBZa3RxVEdVck1tSllNblFyU3k5a056UmxLekJhYjBKdE9FbElUMmRtWjFOR2FXZEJVV2wzUTNoQ1FrRnlRVXhGY1VWUGRrRTNTRTFCT0ZsRVFWRlNVa3M0TUVKd1RtbHFUa0pMU0hRdk1FUndTREZFTmtOM1RWVnZRVkYzWVRFMWFXSnRiM2d4UmtwWGNVTkNUR3RISzNkTE5WUk9SVlpTWTFkS2NGbHNTbTlETlZSUU4wOXpTMnRYU0VwTWFXbHhhR0pMTjAxelRWTnBORzVwZDBOTGIwNXVSVmcxTlZodmQxY3dRbVZhVjNGQmRVbE5SRE5UYmtwUFdXNUdUVXRtUVVKTWJGTkZhM05UT1dSTFMyZFFjVUoyU0RsdlYzUnFla013YjNrNEwwOUJiWEJvUVdsWlVWUkhiME5OVlVsNGMwVkhUVkpPUVZGYVNGUlNaMGxSU0d4RE9FUTFlVUp5TkZNdlRrRnlhemRTVkdNMGIzcGpkbGRPVlV0VVdtazNTVk13WlhscVowaHhUMVZhYjFoTlRGbHlRa0ZZVFM4eVNHRjFaVVZvVmpGeFkydFpLMnhOTWxkdGNHVmxiVnBqUzBNMkt6QjZTRk01T0hONVZXdG5lRmxGU1VGRlRXeEplakI2VGt0WlEwZFdhelZwVlcxblRucFRSWEJ4UjFwVVNrSjNlSEZqUldweVJsSlNiRFZ6UmxWamQwWkdhUzlXU3pocmMxTlpWbkUwYTNaT2VsbERUR2RSUjFnMFFuZEROM1J4TUVGc1FVMUJRVUU5UFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC41MjY2OTkyXFwsXFwyXFw6XFwwLjg5MzkwNTFcXCxcXDNcXDpcXDAuNDA5NzUwOFxcLFxcNFxcOlxcNVxcLFxcNVxcOlxcMTAuNTBcXH0se1xcMVxcOlxcMC41MjQyNTM2XFwsXFwyXFw6XFwwLjg5MzUwNThcXCxcXDNcXDpcXDAuNDA0NzYzOFxcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcMC41MjE3MjkxXFwsXFwyXFw6XFwwLjg5Mzk2NjBcXCxcXDNcXDpcXDAuNDAzODE4NVxcLFxcNFxcOlxcMTZcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC41MjM5MjUzXFwsXFwyXFw6XFwwLjg5MjkwNTlcXCxcXDNcXDpcXDAuNDA2MTA3MFxcLFxcNFxcOlxcMjBcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC41MjUxMjQ4XFwsXFwyXFw6XFwwLjg5MjI2ODhcXCxcXDNcXDpcXDAuNDA3MDMxOVxcLFxcNFxcOlxcMjRcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC41MjU3NTU5XFwsXFwyXFw6XFwwLjg5MTgzMDRcXCxcXDNcXDpcXDAuNDA4NDAzM1xcLFxcNFxcOlxcMzJcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC41Mjc4NTM1XFwsXFwyXFw6XFwwLjg5MDc2NjFcXCxcXDNcXDpcXDAuNDA4NDU0MFxcLFxcNFxcOlxcMzdcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC41MzIwNTM1XFwsXFwyXFw6XFwwLjg4ODgxMzRcXCxcXDNcXDpcXDAuNDExOTg1M1xcLFxcNFxcOlxcNDRcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYvZzFvNmduM0ZUN0I4Y1c1KzNWbFhUL3NFbVJ1VnJ5MC9ZUHpqOFgwd2hWTnYrd2RsTE16dGFEdGsvdVBSUDlIenNSdnNIVDNUbDcvMlJzbi9JTnBVcHJPa1ozSnczcys0OXVMMWlpZjJiNlRNTFg4elhzWDh6TzI2ZXJlQWQremVUMWllOHVkbGwvNmEzUFBiT1FTZjdONTMzUDFvL3NMTi8wNmorMWRmL2tQMmJRbzJudldhUmNITnVXVWEzSno5WHM3LzVmRm5kRjYwMzlqZHZhRzQ5VVNkamYvUHZDakh0bkVuMnQzak9Uekx5dTJkL1M5bTk4OWdKTy90YktqTGUrMmJYMnQrSy9kNzRlKzBab0JtOElIT2dmZ1NGaWdBUWl3Q3hCQkFyQUxFcUVPdkE3SE1BOFlEQVFSUks4MEJwTmlqTkJLSHQvMERwSDFENkN3TVVvQVF3YTE1aWJtb3gxRkpXcUNCTGtHK3dLNVRORVZSY1dKcFlsSm9DNVRQN09zS2tXSEpMaWlxaGJLN01zTVNpNG5pd0NLb05uRVg1NVhvd1cwQmVaV3FBdUlNRDNTbkpPWW5GTUtmQUJMbFNFa3NTOWRLS2dQcUJ2SDlvV3RqekMwb3k4L09BbXBoQWlZUVRHb0NNVUl4c0VHTVJOQVFaSFRSZ0lRSGxDOEQ1eUJyNFMvTkFyazdSVGM0b3pjdldOVUtUWmk3SVMwZXlqZ0hxT1Vab1hNTFlyQkFYTS8ySGF1ZUVoVjFxY2tZK2xNMldtcGVlbVpjS0M2KzB6SFM5OHN5VWtneFlFSUFFTWxJejB6TktZQ0dWazVpVW1nTnpTRXBxR1pUSkJ3eHFjRWpyRlJSbDVzRlVjd0ZGaS9WSzhrc1NZVnE0a3ZOellDTGdRR1g0QndDN3RxMEFsQU1BQUE9PSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.5266992\,\2\:\0.8939051\,\3\:\0.4097508\,\4\:\5\,\5\:\10.50\},{\1\:\0.5242536\,\2\:\0.8935058\,\3\:\0.4047638\,\4\:\10\,\5\:\5.25\},{\1\:\0.5217291\,\2\:\0.8939660\,\3\:\0.4038185\,\4\:\16\,\5\:\3.50\},{\1\:\0.5239253\,\2\:\0.8929059\,\3\:\0.4061070\,\4\:\20\,\5\:\2.75\},{\1\:\0.5251248\,\2\:\0.8922688\,\3\:\0.4070319\,\4\:\24\,\5\:\2.25\},{\1\:\0.5257559\,\2\:\0.8918304\,\3\:\0.4084033\,\4\:\32\,\5\:\1.75\},{\1\:\0.5278535\,\2\:\0.8907661\,\3\:\0.4084540\,\4\:\37\,\5\:\1.50\},{\1\:\0.5320535\,\2\:\0.8888134\,\3\:\0.4119853\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmk5bk0wOXdNMVIzTDFreWVqazBlVU5ZZVZwTlJXMHJkMlZNV0ROUFN5dEhNbmhtTTBNemREQmlOeXQ2Y2pkQ05tTTNjRFpXYzNaWE15ODBUVlJ4V2k4emRUZzBSSEV2YURVNGJURmthQzgxUkhSNVdFY3Zia1p4TkU5WE9GZFVjM2h0WWpVNWFpODJZbkpZWkhsYWFHa3ZNbUo0V1hSdWNtUnRNWGwyTjA1NE1XRmlSRGxRTHpkT0x6QXpaRGd5T0ZkNWRUQkNOazkyZGxCRmFHWTNUalF6Y0RGaVprOVFZa1l2YXpNdmRUWlpLMmxLV0VKNlltZHJaVTloYVdoc1IzZ3ZhVEpqTDFjcmRqaElMMWt6ZWpWbWRtMU1PVnA2ZGpaWGVVbDZRVEpTT0ZZM1J5OHJXWHBOTmxwSFRuRm1OSFpRZEZSNU9UZG9NVkV6VTFNck1UUnNRV1p6VVdneWVYcDFSbkZCV25aRFFucHZTRFJGYUZsdlFVVkpjMEZ6VVZGUlMzZERlRXRvUkhKM1QzaDZRVkJIUVhkRlJWVlRkazVCWVZSWmIzcFJVMmczWmpsQk5sSTVVU3RuYzBSR1MwRkZUVWQwWlZsdE5YRk5aRkpUVm5GbloxTTFRblp6UTNWVmVsSkdWVmhHYVdGWFNsTmhRWFZWZWl0NmNrTndSbWg1VXpSdmNXOVhlWFY2VEVSRmIzVktOSE5CYVhGRVduaEdLMlZXTmsxR2RFRlliVlp4WjB4cFJFRTVNSEI1VkcxS2VGUkRibmRCVXpWVmFFcE1SWFpZVTJsdlJEWm5Zbmd2WVVaeVdUaDNkRXROZGxCNlowcHhXVkZKYlVWRmVIRkJha1pEVFdKQ1FtcEZWRkZGUjFJd01GbERSVUkxVVhaQksyTm5ZU3RGZG5wUlN6VlBNRlV6VDB0Tk0wd3hhbFpEYXpKWmRYbEZkRWh6YnpSQ05tcHNSMkZHZWtNeVMzZFJSbnBRT1dneWNtNW9TVlprWVc1S1IxQndWRTVzY0hGWWJuQnRXRU5uZFhaMFRYZ3dkbVpNVFd4S1NVMVhRa05CUWtSS1UwMDVUWHBUYlVGb2JGcFBXV3hLYjBSak1HaExZV2h0VlhsUlkwMWhia0pKTm5oVlZWcGxZa0pXU0UxQ1VsbDJNVk4yU2t4RmJVWmhkVXBNZW1NeVFXazBSVUpzSzBGalFUZEZiazFVV2xGRVFVRkJQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjUyNTIyODVcIixcIjJcIjpcIjAuODk0NzIyN1wiLFwiM1wiOlwiMC40MDczMzQ1XCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCIwLjUyNzQ3MDZcIixcIjJcIjpcIjAuODkxOTU5NFwiLFwiM1wiOlwiMC40MDcwMjgwXCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCIwLjUyMDAwOTVcIixcIjJcIjpcIjAuODk0ODUzNFwiLFwiM1wiOlwiMC40MDMyODc4XCIsXCI0XCI6XCIxNlwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjUyNzA0NTBcIixcIjJcIjpcIjAuODkxNjIxNlwiLFwiM1wiOlwiMC40MDc1MDcwXCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjUyNDg0NTlcIixcIjJcIjpcIjAuODkyNDI5MlwiLFwiM1wiOlwiMC40MDYxMjk0XCIsXCI0XCI6XCIyNFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjUyNDQ5NjBcIixcIjJcIjpcIjAuODkyNDA2MFwiLFwiM1wiOlwiMC40MDcxMjExXCIsXCI0XCI6XCIzMlwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjUyNzU4NjhcIixcIjJcIjpcIjAuODkwNzk2NFwiLFwiM1wiOlwiMC40MDcwMTcyXCIsXCI0XCI6XCIzN1wiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjUzMjA5MTVcIixcIjJcIjpcIjAuODg4NjQ4NVwiLFwiM1wiOlwiMC40MTE2Njc0XCIsXCI0XCI6XCI0NFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZi9nM09wM1R3L1kyejk0eUNYeVpNRW0rd2VMWDNPSytHMnhmM0MzdDBiNyt6cjdCNmM3cDZWc3ZXMy80TVRxWi8zdTg0RHEvaDU4bTFkaC81RHR5WEcvbkZxNE9XOFdUc3htYjU5ai82YnJYZHlaaGkvMmJ4WXRucmRtMXl2N054MWFiRDlQLzdOLzAzZDgyOFd5dTBCNk92dlBFaGY3TjQzcDFiZk9QYkYvazMvdTZZK2lKWEJ6YmdrZU9haWhsR3gvaTJjL1crdjhIL1kzejVmdm1MOVp6djZXeUl6QTJSOFY3Ry8rWXpNNlpHTnFmNHZQdFR5OTdoMVEzU1MrMTRsQWZzUWgyeXp1RnFBWnZDQnpvSDRFaFlvQUVJc0FzUVFRS3dDeEtoRHJ3T3h6QVBHQXdFRVVTdk5BYVRZb3pRU2g3ZjlBNlI5UStnc0RGS0FFTUd0ZVltNXFNZFJTVnFnZ1M1QnZzQ3VVelJGVVhGaWFXSlNhQXVVeit6ckNwRmh5UzRvcW9XeXV6TERFb3VKNHNBaXFEWnhGK2VWNk1GdEFYbVZxZ0xpREE5MHB5VG1KeFRDbndBUzVVaEpMRXZYU2lvRDZnYngvYUZyWTh3dEtNdlB6Z0pxWVFJbUVFeHFBakZDTWJCQmpFVFFFR1IwMFlDRUI1UXZBK2NnYStFdnpRSzVPMFUzT0tNM0wxalZDazJZdXlFdEhzbzRCNmpsR2FGekMyS3dRRnpQOWgycm5oSVZkYW5KR1BwVE5scHFYbnBtWENndXZ0TXgwdmZMTWxKSU1XQkNBQkRKU005TXpTbUFobFpPWWxKb0RjMGhLYWhtVXlRY01hbkJJNnhVVVplYkJWSE1CUll2MVN2SkxFbUZhdUpMemMyQWk0RUJsK0FjQTdFbk1UWlFEQUFBPSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.5252285","2":"0.8947227","3":"0.4073345","4":"5","5":"10.50"},{"1":"0.5274706","2":"0.8919594","3":"0.4070280","4":"10","5":"5.25"},{"1":"0.5200095","2":"0.8948534","3":"0.4032878","4":"16","5":"3.50"},{"1":"0.5270450","2":"0.8916216","3":"0.4075070","4":"20","5":"2.75"},{"1":"0.5248459","2":"0.8924292","3":"0.4061294","4":"24","5":"2.25"},{"1":"0.5244960","2":"0.8924060","3":"0.4071211","4":"32","5":"1.75"},{"1":"0.5275868","2":"0.8907964","3":"0.4070172","4":"37","5":"1.50"},{"1":"0.5320915","2":"0.8886485","3":"0.4116674","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXZaeTl4WW04dk5XOVNPV2NyVDB4cU5uVm1VMHhrTDNOSFlURXlZMlk0ZFhaWlVEbG9lbk0yYWpCNWFGZzNRbmxsSzFNM05qVXdiV0l2TkVsSWRTdGFPVzUwZEdzdlpVaGhMMjVQTTJsSFpuVklZa3NyY210dmNWUTBUMkU0YldZMGRXeEhNaXR3THpKaVIySklTRzFKVURjM1RpOU5ZM2xwV2poMWJVTXZXbk53YWpFNVNreHRUM3BtT1U0dk5VbzNVbmhGUkRkT2VUSTNkRzV6V2xkMGFTOXhWaTg0WlUxbGJrUm1XblpEY0daMFZFZG9UbWhLZEhwNUwyRk1NVlY1VGxRdldUTnVOWFZrUlVwSFYzUmlPVFZ3VlZKcGFHVkpNQ3MxZFhZNVJUSlFVbHA1ZVhZNFZYaG9Oamh2YXpoSUsyeDJZVGRFVldSdFlqZERMM0JhYW1aRlpuWkZkMUExVjFOT2VGSjRkVFJEYjBKdE9FbElUMmRtWjFOR2FXZEJVV2wzUTNoQ1FrRnlRVXhGY1VWUGRrRTNTRTFCT0ZsRVFWRlNVa3M0TUVKd1RtbHFUa0pMU0hRdk1FUndTREZFTmtOM1RWVnZRVkYzWVRFMWFXSnRiM2d4UmtwWGNVTkNUR3RISzNkTE5WUk9SVlpTWTFkS2NGbHNTbTlETlZSUU4wOXpTMnRYU0VwTWFXbHhhR0pMTjAxelRWTnBORzVwZDBOTGIwNXVSVmcxTlZodmQxY3dRbVZhVjNGQmRVbE5SRE5UYmtwUFdXNUdUVXRtUVVKTWJGTkZhM05UT1dSTFMyZFFjVUoyU0RsdlYzUnFla013YjNrNEwwOUJiWEJvUVdsWlVWUkhiME5OVlVsNGMwVkhUVkpPUVZGYVNGUlNaMGxSU0d4RE9FUTFlVUp5TkZNdlRrRnlhemRTVkdNMGIzcGpkbGRPVlV0VVdtazNTVk13WlhscVowaHhUMVZhYjFoTlRGbHlRa0ZZVFM4eVNHRjFaVVZvVmpGeFkydFpLMnhOTWxkdGNHVmxiVnBqUzBNMkt6QjZTRk01T0hONVZXdG5lRmxGU1VGRlRXeEplakI2VGt0WlEwZFdhelZwVlcxblRucFRSWEJ4UjFwVVNrSjNlSEZqUldweVJsSlNiRFZ6UmxWamQwWkdhUzlXU3pocmMxTlpWbkUwYTNaT2VsbERUR2RSUjFnMFFuZEJNVUZ6TkU1c1FVMUJRVUU5UFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcMC41MjczMDY3XFwsXFwyXFw6XFwwLjg5MzU0NjNcXCxcXDNcXDpcXDAuNDEwMDMxNFxcLFxcNFxcOlxcNVxcLFxcNVxcOlxcMTAuNTBcXH0se1xcMVxcOlxcMC41MjQxMjU5XFwsXFwyXFw6XFwwLjg5MzU5OTRcXCxcXDNcXDpcXDAuNDA0NzM3MlxcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcMC41MjExMDg1XFwsXFwyXFw6XFwwLjg5NDMxNzhcXCxcXDNcXDpcXDAuNDAzNTkyMVxcLFxcNFxcOlxcMTZcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcMC41MjMwNTI5XFwsXFwyXFw6XFwwLjg5MzE3NTFcXCxcXDNcXDpcXDAuNDA0OTE4NVxcLFxcNFxcOlxcMjBcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcMC41MjQ1MzE5XFwsXFwyXFw6XFwwLjg5MjU0OTlcXCxcXDNcXDpcXDAuNDA2Nzc1NVxcLFxcNFxcOlxcMjRcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcMC41MjczNjU2XFwsXFwyXFw6XFwwLjg5MTIwMjNcXCxcXDNcXDpcXDAuNDA4OTMxNFxcLFxcNFxcOlxcMzJcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcMC41MjgxODI3XFwsXFwyXFw6XFwwLjg5MDU4MTFcXCxcXDNcXDpcXDAuNDA4MjkwOFxcLFxcNFxcOlxcMzdcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcMC41MzIwOTQ3XFwsXFwyXFw6XFwwLjg4ODg3MzRcXCxcXDNcXDpcXDAuNDExMzk5NVxcLFxcNFxcOlxcNDRcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYvZy9xYm8vNW9SOWcrT0xqNnVmU0xkL3NHYTEyY2Y4dXZZUDloenM2ajB5aFg3QnllK1M3NjUwbWIvNElIdStaOW50dGsvZUhhL25PM2lHZnVIYksrcmtvcVQ0T2E4bWY0dWxHMitwLzJiR2JISG1JUDc3Ti9NY3lpWjh1bUMvWnNwajE5SkxtT3pmOU4vNUo3UnhFRDdOeTI3dG5zWld0aS9xVi84ZU1lbkRmWnZDcGZ0VEdoTmhKdHp5L2FMMVV5TlQvWTNuNXVkRUpHV3RiOTVwVVJpaGVJMCs1dXY5RTJQUlp5eXY4VXhoNjhvazhIK2x2YTdEVWRtYjdDL3BaamZFZnZFd1A1V1NOeFJ4dTRDb0JtOElIT2dmZ1NGaWdBUWl3Q3hCQkFyQUxFcUVPdkE3SE1BOFlEQVFSUks4MEJwTmlqTkJLSHQvMERwSDFENkN3TVVvQVF3YTE1aWJtb3gxRkpXcUNCTGtHK3dLNVRORVZSY1dKcFlsSm9DNVRQN09zS2tXSEpMaWlxaGJLN01zTVNpNG5pd0NLb05uRVg1NVhvd1cwQmVaV3FBdUlNRDNTbkpPWW5GTUtmQUJMbFNFa3NTOWRLS2dQcUJ2SDlvV3RqekMwb3k4L09BbXBoQWlZUVRHb0NNVUl4c0VHTVJOQVFaSFRSZ0lRSGxDOEQ1eUJyNFMvTkFyazdSVGM0b3pjdldOVUtUWmk3SVMwZXlqZ0hxT1Vab1hNTFlyQkFYTS8ySGF1ZUVoVjFxY2tZK2xNMldtcGVlbVpjS0M2KzB6SFM5OHN5VWtneFlFSUFFTWxJejB6TktZQ0dWazVpVW1nTnpTRXBxR1pUSkJ3eHFjRWpyRlJSbDVzRlVjd0ZGaS9WSzhrc1NZVnE0a3ZOellDTGdRR1g0QndBMUFzNE5sQU1BQUE9PSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.5273067\,\2\:\0.8935463\,\3\:\0.4100314\,\4\:\5\,\5\:\10.50\},{\1\:\0.5241259\,\2\:\0.8935994\,\3\:\0.4047372\,\4\:\10\,\5\:\5.25\},{\1\:\0.5211085\,\2\:\0.8943178\,\3\:\0.4035921\,\4\:\16\,\5\:\3.50\},{\1\:\0.5230529\,\2\:\0.8931751\,\3\:\0.4049185\,\4\:\20\,\5\:\2.75\},{\1\:\0.5245319\,\2\:\0.8925499\,\3\:\0.4067755\,\4\:\24\,\5\:\2.25\},{\1\:\0.5273656\,\2\:\0.8912023\,\3\:\0.4089314\,\4\:\32\,\5\:\1.75\},{\1\:\0.5281827\,\2\:\0.8905811\,\3\:\0.4082908\,\4\:\37\,\5\:\1.50\},{\1\:\0.5320947\,\2\:\0.8888734\,\3\:\0.4113995\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmk5bk1XODJaMjR6UmxRM1FqaGpWelVyTTFac1dGUXZjMFZ0VW5WV2Nua3dMMWxRZW1vNFdEQjNhRlpPZGl0M1pHeE1UWHAwWVVSMGF5OTFVRkpRT1VoNmMxSjJjMGhVTTFSc055OHlVbk51TDBsT2NGVndjazlyV2pOS2R6TnpLelE1ZFV3eGFXbG1NbUkyVkUxTVdEaDZXSE5ZT0hwUE1qWmxjbVZCWkN0NlpWUXhhV1U0ZFdSc2JDODJZVE5RVUdKUFVWTm1OMDQxTXpOUU1XOHZjMHhPTHpBMmFpc3haR1l2YTFBeVlsRnZNbTUyVjJGU1kwaE9kVmRWWVROS2VqbFljemN2TldaR2JtUkdOakF6T1dwa2RtRkhORGxWVTJScVppOVFka05xU0hSdVJXNHlkRE5xVDFSNlRIbDFNbVF2VXpsdE9UZzVaMHBQTDNSaVMycE1aU3N5WWxneWRDdExMMlEzTkdVck1GcHZRbTA0U1VoUFoyWm5VMFpwWjBGUmFYZERlRUpDUVhKQlRFVnhSVTkyUVRkSVRVRTRXVVJCVVZKU1N6Z3dRbkJPYVdwT1FrdElkQzh3UkhCSU1VUTJRM2ROVlc5QlVYZGhNVFZwWW0xdmVERkdTbGR4UTBKTWEwY3JkMHMxVkU1RlZsSmpWMHB3V1d4S2IwTTFWRkEzVDNOTGExZElTa3hwYVhGb1lrczNUWE5OVTJrMGJtbDNRMHR2VG01RldEVTFXRzkzVnpCQ1pWcFhjVUYxU1UxRU0xTnVTazlaYmtaTlMyWkJRa3hzVTBWcmMxTTVaRXRMWjFCeFFuWklPVzlYZEdwNlF6QnZlVGd2VDBGdGNHaEJhVmxSVkVkdlEwMVZTWGh6UlVkTlVrNUJVVnBJVkZKblNWRkliRU00UkRWNVFuSTBVeTlPUVhKck4xSlVZelJ2ZW1OMlYwNVZTMVJhYVRkSlV6QmxlV3BuU0hGUFZWcHZXRTFNV1hKQ1FWaE5MekpJWVhWbFJXaFdNWEZqYTFrcmJFMHlWMjF3WldWdFdtTkxRellyTUhwSVV6azRjM2xWYTJkNFdVVkpRVVZOYkVsNk1IcE9TMWxEUjFack5XbFZiV2RPZWxORmNIRkhXbFJLUW5kNGNXTkZhbkpHVWxKc05YTkdWV04zUmtacEwxWkxPR3R6VTFsV2NUUnJkazU2V1VOTVoxRkhXRFJDZDBNM2RIRXdRV3hCVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjUyNjY5OTJcIixcIjJcIjpcIjAuODkzOTA1MVwiLFwiM1wiOlwiMC40MDk3NTA4XCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCIwLjUyNDI1MzZcIixcIjJcIjpcIjAuODkzNTA1OFwiLFwiM1wiOlwiMC40MDQ3NjM4XCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCIwLjUyMTcyOTFcIixcIjJcIjpcIjAuODkzOTY2MFwiLFwiM1wiOlwiMC40MDM4MTg1XCIsXCI0XCI6XCIxNlwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjUyMzkyNTNcIixcIjJcIjpcIjAuODkyOTA1OVwiLFwiM1wiOlwiMC40MDYxMDcwXCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjUyNTEyNDhcIixcIjJcIjpcIjAuODkyMjY4OFwiLFwiM1wiOlwiMC40MDcwMzE5XCIsXCI0XCI6XCIyNFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjUyNTc1NTlcIixcIjJcIjpcIjAuODkxODMwNFwiLFwiM1wiOlwiMC40MDg0MDMzXCIsXCI0XCI6XCIzMlwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjUyNzg1MzVcIixcIjJcIjpcIjAuODkwNzY2MVwiLFwiM1wiOlwiMC40MDg0NTQwXCIsXCI0XCI6XCIzN1wiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjUzMjA1MzVcIixcIjJcIjpcIjAuODg4ODEzNFwiLFwiM1wiOlwiMC40MTE5ODUzXCIsXCI0XCI6XCI0NFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZi9nMW82Z24zRlQ3QjhjVzUrM1ZsWFQvc0VtUnVWcnkwL1lQemo4WDB3aFZOdit3ZGxMTXp0YUR0ay91UFJQOUh6c1J2c0hUM1RsNy8yUnNuL0lOcFVwck9rWjNKdzNzKzQ5dUwxaWlmMmI2VE1MWDh6WHNYOHpPMjZlcmVBZCt6ZVQxaWU4dWRsbC82YTNQUGJPUVNmN041MzNQMW8vc0xOLzA2aisxZGYva1AyYlFvMm52V2FSY0hOdVdVYTNKejlYczcvNWZGbmRGNjAzOWpkdmFHNDlVU2RqZi9QdkNqSHRuRW4ydDNqT1R6THl1MmQvUzltOTg5Z0pPL3RiS2pMZSsyYlgydCtLL2Q3NGUrMFpvQm04SUhPZ2ZnU0ZpZ0FRaXdDeEJCQXJBTEVxRU92QTdITUE4WURBUVJSSzgwQnBOaWpOQktIdC8wRHBIMUQ2Q3dNVW9BUXdhMTVpYm1veDFGSldxQ0JMa0crd0s1VE5FVlJjV0pwWWxKb0M1VFA3T3NLa1dISkxpaXFoYks3TXNNU2k0bml3Q0tvTm5FWDU1WG93VzBCZVpXcUF1SU1EM1NuSk9ZbkZNS2ZBQkxsU0Vrc1M5ZEtLZ1BxQnZIOW9XdGp6QzBveTgvT0FtcGhBaVlRVEdvQ01VSXhzRUdNUk5BUVpIVFJnSVFIbEM4RDV5QnI0Uy9OQXJrN1JUYzRvemN2V05VS1RaaTdJUzBleWpnSHFPVVpvWE1MWXJCQVhNLzJIYXVlRWhWMXFja1krbE0yV21wZWVtWmNLQzYrMHpIUzk4c3lVa2d4WUVJQUVNbEl6MHpOS1lDR1ZrNWlVbWdOelNFcHFHWlRKQnd4cWNFanJGUlJsNXNGVWN3RkZpL1ZLOGtzU1lWcTRrdk56WUNMZ1FHWDRCd0M3dHEwQWxBTUFBQT09In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.5266992","2":"0.8939051","3":"0.4097508","4":"5","5":"10.50"},{"1":"0.5242536","2":"0.8935058","3":"0.4047638","4":"10","5":"5.25"},{"1":"0.5217291","2":"0.8939660","3":"0.4038185","4":"16","5":"3.50"},{"1":"0.5239253","2":"0.8929059","3":"0.4061070","4":"20","5":"2.75"},{"1":"0.5251248","2":"0.8922688","3":"0.4070319","4":"24","5":"2.25"},{"1":"0.5257559","2":"0.8918304","3":"0.4084033","4":"32","5":"1.75"},{"1":"0.5278535","2":"0.8907661","3":"0.4084540","4":"37","5":"1.50"},{"1":"0.5320535","2":"0.8888134","3":"0.4119853","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXZaeTlqY2pNMlpYbDZOMEl2YzNVdmQzaDZaRVJrTDNOSFIzZzNjblJ4S3pOelNIaDNkRmRrZUdwbU9HWXJkMUZyTDNZeFYySklkSE12ZFZCMmNIZFFUR05MZG5OSVZESXZaUzlXWTJaWlppOW5WREpzWkZCYVRVb3pTbmN6YXpGYVIyTTFWRWt5Tnl0YU4xTlRZVGhIVHk4dlduTTFjeTlxTWxweGJsbDJOVzUzT0RsbFRtUm1Wa0V5Y1ZSa1pEaE5OaXQ2WlhSb2FGVjVRbm96Y3pONlZHc3hlSHAwVUZkaUwzQnJlVVI1TWs5aFFVNTVZMWN2UlhwTmNURlBWSEpETHl0alNrWXZSM1prUTNaMVltUTBOM2t6VDNFeWRFd3ZOV2hrTVdwbWRuZG1LelYyTDNwNlVISllMM1J5WmpCMldrdHpiblUwYWtnM1Z6WnlaR1o1TnpSQ09XNW1jMjExVjFORVIyUkJSRk5FUmpKUlR6RkpLMmRWUVVkYVRGRk1SVVZyUTNOQlRWTnhVVXQzUkhNNE9FSjRRVTFEUWpGRmIzcFJUMnd5WVVFd1JUUlRNaTkzVDJ4bU1FUndUSGQ0VVdkQ1RFRnlTRzFLZFdGdVJsVkZkRnB2V1VselVXSTNRbkpzUVRKU01VSjRXVmRzYVZWWGIwdHNUUzl6Tm5kcFZGbHphM1JMWVhGRmMzSnJlWGQ0UzB4cGRWQkNTWEZuTW1OQ1lteHNLM1pDWWtGR05XeGhhMEkwWnpSUFpFdGphelY1VVZkM05YZERSU3RTUzFOVGVFb3hSWE55UVhWdlNEaDJObWhoVjBoUVRIbHFTbnBOT0VSaGJVbERTbEpLVDJGQlFYbFJha2Q1VVZsNFJqQkNRbXRrVGtOQmFGRlRWVXgzUkc1Sk1uWm5URGd3UkhWVWNFWk9lbTFxVGtNNVlqRjNhRTV0Y210blRIZ3pTazluWVc4MWVHbG9ZMUZzYW5Nd1NtTjZVRkZtY1hBd1ZFWnVZWEI1VW00MVZVUmFZbUZzTlRaYWJEUnhURXg2VTAxMFVERjVhazVVVTJwS1oxRlJRVk41UldwT1ZFMDRiMmRaVmxWVWJVcFRZV2MzVFVsVGJYQmFWa0Z0U0hwRGIzZFRSM1JXTVVOVmJWRmtWSHBSVlZWTVpGbHllVk01U21oSGJtaFRjemRRWjFsdFFVRTFXR2hJZDBOcVlWcHpabXhCVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjUyOTI1NThcXCxcXDJcXDpcXDAuODkyOTAzMFxcLFxcM1xcOlxcMC40MTIwODQ3XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFwwLjUyMzI5NDRcXCxcXDJcXDpcXDAuODkzOTUyNFxcLFxcM1xcOlxcMC40MDQ4MDE0XFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcNS4yNVxcfSx7XFwxXFw6XFwwLjUyMTU5MjdcXCxcXDJcXDpcXDAuODk0MTE2NFxcLFxcM1xcOlxcMC40MDQwOTk3XFwsXFw0XFw6XFwxNlxcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFwwLjUyNDEwMzVcXCxcXDJcXDpcXDAuODkyNjk3M1xcLFxcM1xcOlxcMC40MDU1MTkzXFwsXFw0XFw6XFwyMFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjUyNDQ1MTRcXCxcXDJcXDpcXDAuODkyNjAzMlxcLFxcM1xcOlxcMC40MDYyMzgzXFwsXFw0XFw6XFwyNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjUyNzA5MzNcXCxcXDJcXDpcXDAuODkxMjU4OVxcLFxcM1xcOlxcMC40MDg0MDAyXFwsXFw0XFw6XFwzMlxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjUyODA1ODBcXCxcXDJcXDpcXDAuODkwNjc4MlxcLFxcM1xcOlxcMC40MDg1NDE3XFwsXFw0XFw6XFwzN1xcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjUzMDgxNzdcXCxcXDJcXDpcXDAuODg5NDIzNFxcLFxcM1xcOlxcMC40MTAwNjU0XFwsXFw0XFw6XFw0NFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzhdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYvZy9jcjM2ZXl6N0Ivc3Uvd3h6ZERkL3NHR3g3cnRxKzNzSHh3dFdkeGpmOGYrd1FrL3YxV2JIdHMvdVB2cHdQTGNLdnNIVDIvZS9WY2ZZZi9nVDJsZFBaTUozSnczazFaR2M1VEkyNytaN1NTYThHTy8vWnM1cy9qMlpxbll2NW53ODllTmRmVkEycVRkZDhNNit6ZXRoaFV5QnozczN6VGsxeHp0UFdiL3BreUR5Mk9hQU55Y1cvRXpNcTFPVHJDLytjSkYvR3ZkQ3Z1YmQ0N3kzT3EydEwvNWhkMWpmdndmKzV2L3p6UHJYL3RyZjB2WktzbnU0akg3VzZyZGZ5NzRCOW5mc211V1NER2RBRFNERjJRTzFJK2dVQUdaTFFMRUVrQ3NBTVNxUUt3RHM4OEJ4QU1DQjFFb3pRT2wyYUEwRTRTMi93T2xmMERwTHd4UWdCTEFySG1KdWFuRlVFdFpvWUlzUWI3QnJsQTJSMUJ4WVdsaVVXb0tsTS9zNndpVFlza3RLYXFFc3JreXd4S0xpdVBCSXFnMmNCYmxsK3ZCYkFGNWxha0I0ZzRPZEtjazV5UVd3NXdDRStSS1NTeEoxRXNyQXVvSDh2NmhhV0hQTHlqSnpNOERhbUlDSlJKT2FBQXlRakd5UVl4RjBCQmtkTkNBaFFTVUx3RG5JMnZnTDgwRHVUcEZOem1qTkM5YjF3aE5tcmtnTHgzSk9nYW81eGloY1FsanMwSmN6UFFmcXAwVEZuYXB5Um41VURaYmFsNTZabDRxTEx6U010UDF5ak5UU2pKZ1FRQVN5RWpOVE04b2dZVlVUbUpTYWc3TUlTbXBaVkFtSHpDb3dTR3RWMUNVbVFkVHpRVVVMZFlyeVM5SmhHbmhTczdQZ1ltQUE1WGhId0NqYVpzZmxBTUFBQT09In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.5292558\,\2\:\0.8929030\,\3\:\0.4120847\,\4\:\5\,\5\:\10.50\},{\1\:\0.5232944\,\2\:\0.8939524\,\3\:\0.4048014\,\4\:\10\,\5\:\5.25\},{\1\:\0.5215927\,\2\:\0.8941164\,\3\:\0.4040997\,\4\:\16\,\5\:\3.50\},{\1\:\0.5241035\,\2\:\0.8926973\,\3\:\0.4055193\,\4\:\20\,\5\:\2.75\},{\1\:\0.5244514\,\2\:\0.8926032\,\3\:\0.4062383\,\4\:\24\,\5\:\2.25\},{\1\:\0.5270933\,\2\:\0.8912589\,\3\:\0.4084002\,\4\:\32\,\5\:\1.75\},{\1\:\0.5280580\,\2\:\0.8906782\,\3\:\0.4085417\,\4\:\37\,\5\:\1.50\},{\1\:\0.5308177\,\2\:\0.8894234\,\3\:\0.4100654\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmk5bkwzRmlieTgxYjFJNVp5dFBUR28yZFdaVFRHUXZjMGRoTVRKalpqaDFkbGxRT1doNmN6WnFNSGxvV0RkQ2VXVXJVemMyTlRCdFlpODBTVWgxSzFvNWJuUjBheTlsU0dFdmJrOHphVWRtZFVoaVN5dHlhMjl4VkRSUFlUaHRaalIxYkVjeUszQXZNbUpIWWtoSWJVbFFOemRPTDAxamVXbGFPSFZ0UXk5YWMzQnFNVGxLVEcxUGVtWTVUaTgxU2pkU2VFVkVOMDU1TWpkMGJuTmFWM1JwTDNGV0x6aGxUV1Z1UkdaYWRrTndablJVUjJoT2FFcDBlbmt2WVV3eFZYbE9WQzlaTTI0MWRXUkZTa2RYZEdJNU5YQlZVbWxvWlVrd0t6VjFkamxGTWxCU1dubDVkamhWZUdnMk9HOXJPRWdyYkhaaE4wUlZaRzFpTjBNdmNGcHFaa1ZtZGtWM1VEVlhVMDU0VW5oMU5FTnZRbTA0U1VoUFoyWm5VMFpwWjBGUmFYZERlRUpDUVhKQlRFVnhSVTkyUVRkSVRVRTRXVVJCVVZKU1N6Z3dRbkJPYVdwT1FrdElkQzh3UkhCSU1VUTJRM2ROVlc5QlVYZGhNVFZwWW0xdmVERkdTbGR4UTBKTWEwY3JkMHMxVkU1RlZsSmpWMHB3V1d4S2IwTTFWRkEzVDNOTGExZElTa3hwYVhGb1lrczNUWE5OVTJrMGJtbDNRMHR2VG01RldEVTFXRzkzVnpCQ1pWcFhjVUYxU1UxRU0xTnVTazlaYmtaTlMyWkJRa3hzVTBWcmMxTTVaRXRMWjFCeFFuWklPVzlYZEdwNlF6QnZlVGd2VDBGdGNHaEJhVmxSVkVkdlEwMVZTWGh6UlVkTlVrNUJVVnBJVkZKblNWRkliRU00UkRWNVFuSTBVeTlPUVhKck4xSlVZelJ2ZW1OMlYwNVZTMVJhYVRkSlV6QmxlV3BuU0hGUFZWcHZXRTFNV1hKQ1FWaE5MekpJWVhWbFJXaFdNWEZqYTFrcmJFMHlWMjF3WldWdFdtTkxRellyTUhwSVV6azRjM2xWYTJkNFdVVkpRVVZOYkVsNk1IcE9TMWxEUjFack5XbFZiV2RPZWxORmNIRkhXbFJLUW5kNGNXTkZhbkpHVWxKc05YTkdWV04zUmtacEwxWkxPR3R6VTFsV2NUUnJkazU2V1VOTVoxRkhXRFJDZDBFeFFYTTBUbXhCVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjUyNzMwNjdcIixcIjJcIjpcIjAuODkzNTQ2M1wiLFwiM1wiOlwiMC40MTAwMzE0XCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCIwLjUyNDEyNTlcIixcIjJcIjpcIjAuODkzNTk5NFwiLFwiM1wiOlwiMC40MDQ3MzcyXCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCIwLjUyMTEwODVcIixcIjJcIjpcIjAuODk0MzE3OFwiLFwiM1wiOlwiMC40MDM1OTIxXCIsXCI0XCI6XCIxNlwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjUyMzA1MjlcIixcIjJcIjpcIjAuODkzMTc1MVwiLFwiM1wiOlwiMC40MDQ5MTg1XCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjUyNDUzMTlcIixcIjJcIjpcIjAuODkyNTQ5OVwiLFwiM1wiOlwiMC40MDY3NzU1XCIsXCI0XCI6XCIyNFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjUyNzM2NTZcIixcIjJcIjpcIjAuODkxMjAyM1wiLFwiM1wiOlwiMC40MDg5MzE0XCIsXCI0XCI6XCIzMlwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjUyODE4MjdcIixcIjJcIjpcIjAuODkwNTgxMVwiLFwiM1wiOlwiMC40MDgyOTA4XCIsXCI0XCI6XCIzN1wiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjUzMjA5NDdcIixcIjJcIjpcIjAuODg4ODczNFwiLFwiM1wiOlwiMC40MTEzOTk1XCIsXCI0XCI6XCI0NFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZi9nL3Fiby81b1I5ZytPTGo2dWZTTGQvc0dhMTJjZjh1dllQOWh6czZqMHloWDdCeWUrUzc2NTBtYi80SUh1K1o5bnR0ay9lSGEvbk8zaUdmdUhiSytya29xVDRPYThtZjR1bEcyK3AvMmJHYkhIbUlQNzdOL01jeWlaOHVtQy9ac3BqMTlKTG1PemY5Ti81SjdSeEVEN055Mjd0bnNaV3RpL3FWLzhlTWVuRGZadkNwZnRUR2hOaEp0enkvYUwxVXlOVC9ZM241dWRFSkdXdGI5NXBVUmloZUkwKzV1djlFMlBSWnl5djhVeGg2OG9rOEgrbHZhN0RVZG1iN0MvcFpqZkVmdkV3UDVXU054Unh1NENvQm04SUhPZ2ZnU0ZpZ0FRaXdDeEJCQXJBTEVxRU92QTdITUE4WURBUVJSSzgwQnBOaWpOQktIdC8wRHBIMUQ2Q3dNVW9BUXdhMTVpYm1veDFGSldxQ0JMa0crd0s1VE5FVlJjV0pwWWxKb0M1VFA3T3NLa1dISkxpaXFoYks3TXNNU2k0bml3Q0tvTm5FWDU1WG93VzBCZVpXcUF1SU1EM1NuSk9ZbkZNS2ZBQkxsU0Vrc1M5ZEtLZ1BxQnZIOW9XdGp6QzBveTgvT0FtcGhBaVlRVEdvQ01VSXhzRUdNUk5BUVpIVFJnSVFIbEM4RDV5QnI0Uy9OQXJrN1JUYzRvemN2V05VS1RaaTdJUzBleWpnSHFPVVpvWE1MWXJCQVhNLzJIYXVlRWhWMXFja1krbE0yV21wZWVtWmNLQzYrMHpIUzk4c3lVa2d4WUVJQUVNbEl6MHpOS1lDR1ZrNWlVbWdOelNFcHFHWlRKQnd4cWNFanJGUlJsNXNGVWN3RkZpL1ZLOGtzU1lWcTRrdk56WUNMZ1FHWDRCd0ExQXM0TmxBTUFBQT09In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.5273067","2":"0.8935463","3":"0.4100314","4":"5","5":"10.50"},{"1":"0.5241259","2":"0.8935994","3":"0.4047372","4":"10","5":"5.25"},{"1":"0.5211085","2":"0.8943178","3":"0.4035921","4":"16","5":"3.50"},{"1":"0.5230529","2":"0.8931751","3":"0.4049185","4":"20","5":"2.75"},{"1":"0.5245319","2":"0.8925499","3":"0.4067755","4":"24","5":"2.25"},{"1":"0.5273656","2":"0.8912023","3":"0.4089314","4":"32","5":"1.75"},{"1":"0.5281827","2":"0.8905811","3":"0.4082908","4":"37","5":"1.50"},{"1":"0.5320947","2":"0.8888734","3":"0.4113995","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXZaM2RsYzI4M2NsRjZPV2N2TWk5bE1UQlFRMFp0THpKRWFpOTBVM05TVWk5elNEVjRaVFp5VVRoWFkzWXJkMXB0ZDJrMEwwOXlja1l2WTBOa2FqbGlURGxOZGxsUVdHeGFkRVpQVDNGek15OTNOakE1VDFkbFJsTjFSR3gyV25Sd1pUTjFSM296VURkT04wMTZjVU5STTA5UlVIQlBPRXR0TDBsMlduWXJjRmszYm1wdmIwRTJVMklyY1V0WVVFeEtMekF6Y0VaVFlscHRjQzh5WW1WdlprUklLMlZ4TWt3NGNFWXlZalJrY2pCU1luTTJkR2RJVGxkdVduWjVOMGM0SzNaYWRHbHpUMmt2TDJNeFNIbzFWVEIzT0hKellucEdPSFpvTDNGbVkxQXJSblJsYTJzclNtWnZkWGgyYVdKdVRXdHVVMVJ6VEN0c2JERkxkems1TUZvck1YWjFOMEpGZFVaVWJFRk5NMmhDTld0RU9VTkJiMVpCVTBGWFFWZEpTa2xHV1VGWmJGVm5NVzlJV2pWM1JHbEJXVWRFUzBwVWJXZGtTbk5WU205S1VYUjJMMmRrU1M5dlVGRllRbWxvUVVOWFJGZDJUVlJqTVVkTGIzQmhlRkZSV2xsbk16SkNXRXRLYzJweFRHbDNUa3hGYjA1UldFdGFMMW94YUVWdGVEVktXVlZXVlV4YVdFcHNhR2xWV0VZNFYwRlNWa0p6TkdrdlRFdzVWME15WjB4NlN6RkJRbmhDZDJVMlZUVktla1Z2ZEdoVWIwVktZM0ZWYTJ4cFZIRndVbFZDT1ZGT05TODVRekJ6VDJOWWJFZFViVFYzUlRGTldVVlRRMU5qTUVGQ2JXaEhUbXRuZUdsS2IwTkVTVFpoVFVKRFFYTnZXR2RRVDFKT1prTllOVzlHWTI1aFMySnVSa2RoYkRZeGNtaERZazVZU2tOWWFtMVJaRUU1VW5wcVRrTTBhRXhHV2tsVE5XMHJaeTlXZW1kclRIVTVWR3RxU0hkdmJYa3dNVXg2TUhwTWVGVlhXRzF0V2paWWNteHRVMnRzUjJKQlowRkJiR3R3UjJGdFdqVlVRVkZwYjI1TlUyc3hRaXRoVVd4T1VYbExTazFRUjA1VVoydE9XWEpMVFhKTlp6WnViVUZ2YjFjMk5WaHJiSGxVUTNSSVFXdzFLMlpCVWsxRFFubDJRVkJCUzBKRk5FWjVWVUYzUVVFaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDAuNTI3NDU2MFxcLFxcMlxcOlxcMC44OTM3MDYyXFwsXFwzXFw6XFwwLjQxMTE4MjBcXCxcXDRcXDpcXDVcXCxcXDVcXDpcXDEwLjUwXFx9LHtcXDFcXDpcXDAuNTIzMzE0M1xcLFxcMlxcOlxcMC44OTM5NzEyXFwsXFwzXFw6XFwwLjQwNDY1NDhcXCxcXDRcXDpcXDEwXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDAuNTIxNjk3N1xcLFxcMlxcOlxcMC44OTQwMjYwXFwsXFwzXFw6XFwwLjQwNDQ3NDFcXCxcXDRcXDpcXDE2XFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDAuNTI0ODU5MVxcLFxcMlxcOlxcMC44OTI0MTM3XFwsXFwzXFw6XFwwLjQwNjMwODFcXCxcXDRcXDpcXDIwXFwsXFw1XFw6XFwyLjc1XFx9LHtcXDFcXDpcXDAuNTI0OTQzN1xcLFxcMlxcOlxcMC44OTIzOTYyXFwsXFwzXFw6XFwwLjQwNjg5NTNcXCxcXDRcXDpcXDI0XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDAuNTI2OTA1NFxcLFxcMlxcOlxcMC44OTEzMzY1XFwsXFwzXFw6XFwwLjQwNzYwOTFcXCxcXDRcXDpcXDMyXFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDAuNTI4NTAwOVxcLFxcMlxcOlxcMC44OTA1MzM4XFwsXFwzXFw6XFwwLjQwOTA4MTZcXCxcXDRcXDpcXDM3XFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDAuNTMwNjM3OVxcLFxcMlxcOlxcMC44ODk1MzU0XFwsXFwzXFw6XFwwLjQxMDU4NTJcXCxcXDRcXDpcXDQ0XFwsXFw1XFw6XFwxLjI1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbOF19LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYvZ3dlc283clF6OWcvMi9lMTBQQ0ZtLzJEai90U3NSUi9zSDV4ZTZyUThXY3Yrd1ptd2k0L09yckYvY0NkajliTDlNdllQWGxadEZPT3FzMy93NjA5T1dlRlN1RGx2WnRwZTN1R3ozUDdON016cUNRM09RUHBPOEttL0l2WnYrcFk3bmpvb0E2U2IrcUtYUExKLzAzcEZTYlptcC8yYmVvZkRIK2VxMkw4cEYyYjRkcjBSYnM2dGdITlduWnZ5N0c4K3ZadGlzT2kvL2MxSHo1VTB3OHJzYnpGOHZoL3FmY1ArRnRla2srSmZvdXh2aWJuTWtuU1RzTCtsbDFLdzk5MForMXZ1N0JFdUZUbEFNM2hCNWtEOUNBb1ZBU0FXQVdJSklGWUFZbFVnMW9IWjV3RGlBWUdES0pUbWdkSnNVSm9KUXR2L2dkSS9vUFFYQmloQUNXRFd2TVRjMUdLb3BheFFRWllnMzJCWEtKc2pxTGl3TkxFb05RWEtaL1oxaEVteDVKWVVWVUxaWEpsaGlVWEY4V0FSVkJzNGkvTEw5V0MyZ0x6SzFBQnhCd2U2VTVKekVvdGhUb0VKY3FVa2xpVHFwUlVCOVFONS85QzBzT2NYbEdUbTV3RTFNWUVTQ1NjMEFCbWhHTmtneGlKb0NESTZhTUJDQXNvWGdQT1JOZkNYNW9GY25hS2JuRkdhbDYxcmhDYk5YSkNYam1RZEE5UnpqTkM0aExGWklTNW0rZy9WemdrTHU5VGtqSHdvbXkwMUx6MHpMeFVXWG1tWjZYcmxtU2tsR2JBZ0FBbGtwR2FtWjVUQVFpb25NU2sxQithUWxOUXlLSk1QR05UZ2tOWXJLTXJNZzZubUFvb1c2NVhrbHlUQ3RIQWw1K2ZBUk1DQnl2QVBBS0JFNEZ5VUF3QUEifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.5274560\,\2\:\0.8937062\,\3\:\0.4111820\,\4\:\5\,\5\:\10.50\},{\1\:\0.5233143\,\2\:\0.8939712\,\3\:\0.4046548\,\4\:\10\,\5\:\5.25\},{\1\:\0.5216977\,\2\:\0.8940260\,\3\:\0.4044741\,\4\:\16\,\5\:\3.50\},{\1\:\0.5248591\,\2\:\0.8924137\,\3\:\0.4063081\,\4\:\20\,\5\:\2.75\},{\1\:\0.5249437\,\2\:\0.8923962\,\3\:\0.4068953\,\4\:\24\,\5\:\2.25\},{\1\:\0.5269054\,\2\:\0.8913365\,\3\:\0.4076091\,\4\:\32\,\5\:\1.75\},{\1\:\0.5285009\,\2\:\0.8905338\,\3\:\0.4090816\,\4\:\37\,\5\:\1.50\},{\1\:\0.5306379\,\2\:\0.8895354\,\3\:\0.4105852\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmk5bkwyTnlNelpsZVhvM1FpOXpkUzkzZUhwa1JHUXZjMGRIZURkeWRIRXJNM05JZUhkMFYyUjRhbVk0Wml0M1VXc3ZkakZYWWtoMGN5OTFVSFp3ZDFCTVkwdDJjMGhVTWk5bEwxWmpabGxtTDJkVU1teGtVRnBOU2pOS2R6TnJNVnBIWXpWVVNUSTNLMW8zVTFOaE9FZFBMeTlhY3pWekwyb3lXbkZ1V1hZMWJuYzRPV1ZPWkdaV1FUSnhWR1JrT0UwMkszcGxkR2hvVlhsQ2VqTnpNM3BVYXpGNGVuUlFWMkl2Y0d0NVJIa3lUMkZCVG5salZ5OUZlazF4TVU5VWNrTXZLMk5LUmk5SGRtUkRkblZpWkRRM2VUTlBjVEowVEM4MWFHUXhhbVoyZDJZck5YWXZlbnBRY2xndmRISm1NSFphUzNOdWRUUnFTRGRYTm5Ka1puazNORUk1Ym1aemJYVlhVMFJIWkVGRVUwUkdNbEZQTVVrcloxVkJSMXBNVVV4RlJXdERjMEZOVTNGUlMzZEVjemc0UW5oQlRVTkNNVVZ2ZWxGUGJESmhRVEJGTkZNeUwzZFBiR1l3UkhCTWQzaFJaMEpNUVhKSWJVcDFZVzVHVlVWMFdtOVpTWE5SWWpkQ2NteEJNbEl4UW5oWlYyeHBWVmR2UzJ4TkwzTTJkMmxVV1hOcmRFdGhjVVZ6Y210NWQzaExUR2wxVUVKSmNXY3lZMEppYkd3cmRrSmlRVVkxYkdGclFqUm5ORTlrUzJOck5YbFJWM2MxZDBORksxSkxVMU40U2pGRmMzSkJkVzlJT0hZMmFHRlhTRkJNZVdwS2VrMDRSR0Z0U1VOS1VrcFBZVUZCZVZGcVIzbFJXWGhHTUVKQ2EyUk9RMEZvVVZOVlRIZEVia2t5ZG1kTU9EQkVkVlJ3Ums1NmJXcE9RemxpTVhkb1RtMXlhMmRNZUROS1QyZGhielY0YVdoalVXeHFjekJLWTNwUVVXWnhjREJVUm01aGNIbFNialZWUkZwaVlXdzFObHBzTkhGTVRIcFRUWFJRTVhscVRsUlRha3BuVVZGQlUzbEZhazVVVFRodloxbFdWVlJ0U2xOaFp6ZE5TVk50Y0ZwV1FXMUlla052ZDFOSGRGWXhRMVZ0VVdSVWVsRlZWVXhrV1hKNVV6bEthRWR1YUZOek4xQm5XVzFCUVRWWWFFaDNRMnBoV25ObWJFRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuNTI5MjU1OFwiLFwiMlwiOlwiMC44OTI5MDMwXCIsXCIzXCI6XCIwLjQxMjA4NDdcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEwLjUwXCJ9LHtcIjFcIjpcIjAuNTIzMjk0NFwiLFwiMlwiOlwiMC44OTM5NTI0XCIsXCIzXCI6XCIwLjQwNDgwMTRcIixcIjRcIjpcIjEwXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjAuNTIxNTkyN1wiLFwiMlwiOlwiMC44OTQxMTY0XCIsXCIzXCI6XCIwLjQwNDA5OTdcIixcIjRcIjpcIjE2XCIsXCI1XCI6XCIzLjUwXCJ9LHtcIjFcIjpcIjAuNTI0MTAzNVwiLFwiMlwiOlwiMC44OTI2OTczXCIsXCIzXCI6XCIwLjQwNTUxOTNcIixcIjRcIjpcIjIwXCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNTI0NDUxNFwiLFwiMlwiOlwiMC44OTI2MDMyXCIsXCIzXCI6XCIwLjQwNjIzODNcIixcIjRcIjpcIjI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNTI3MDkzM1wiLFwiMlwiOlwiMC44OTEyNTg5XCIsXCIzXCI6XCIwLjQwODQwMDJcIixcIjRcIjpcIjMyXCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNTI4MDU4MFwiLFwiMlwiOlwiMC44OTA2NzgyXCIsXCIzXCI6XCIwLjQwODU0MTdcIixcIjRcIjpcIjM3XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNTMwODE3N1wiLFwiMlwiOlwiMC44ODk0MjM0XCIsXCIzXCI6XCIwLjQxMDA2NTRcIixcIjRcIjpcIjQ0XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbOF19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZi9nL2NyMzZleXo3Qi9zdS93eHpkRGQvc0dHeDdydHErM3NIeHd0V2R4amY4Zit3UWsvdjFXYkh0cy91UHZwd1BMY0t2c0hUMi9lL1ZjZllmL2dUMmxkUFpNSjNKdzNrMVpHYzVUSTI3K1o3U1NhOEdPLy9aczVzL2oyWnFuWXY1bnc4OWVOZGZWQTJxVGRkOE02K3pldGhoVXlCejNzM3pUazF4enRQV2IvcGt5RHkyT2FBTnljVy9Fek1xMU9UckMvK2NKRi9HdmRDdnViZDQ3eTNPcTJ0TC81aGQxamZ2d2YrNXYvenpQclgvdHJmMHZaS3NudTRqSDdXNnJkZnk3NEI5bmZzbXVXU0RHZEFEU0RGMlFPMUkrZ1VBR1pMUUxFRWtDc0FNU3FRS3dEczg4QnhBTUNCMUVvelFPbDJhQTBFNFMyL3dPbGYwRHBMd3hRZ0JMQXJIbUp1YW5GVUV0Wm9ZSXNRYjdCcmxBMlIxQnhZV2xpVVdvS2xNL3M2d2lUWXNrdEthcUVzcmt5d3hLTGl1UEJJcWcyY0JibGwrdkJiQUY1bGFrQjRnNE9kS2NrNXlRV3c1d0NFK1JLU1N4SjFFc3JBdW9IOHY2aGFXSFBMeWpKek04RGFtSUNKUkpPYUFBeVFqR3lRWXhGMEJCa2ROQ0FoUVNVTHdEbkkydmdMODBEdVRwRk56bWpOQzliMXdoTm1ya2dMeDNKT2dhbzV4aWhjUWxqczBKY3pQUWZxcDBURm5hcHlSbjVVRFpiYWw1NlpsNHFMTHpTTXRQMXlqTlRTakpnUVFBU3lFak5UTThvZ1lWVVRtSlNhZzdNSVNtcFpWQW1IekNvd1NHdFYxQ1VtUWRUelFVVUxkWXJ5UzlKaEduaFNzN1BnWW1BQTVYaEh3Q2phWnNmbEFNQUFBPT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.5292558","2":"0.8929030","3":"0.4120847","4":"5","5":"10.50"},{"1":"0.5232944","2":"0.8939524","3":"0.4048014","4":"10","5":"5.25"},{"1":"0.5215927","2":"0.8941164","3":"0.4040997","4":"16","5":"3.50"},{"1":"0.5241035","2":"0.8926973","3":"0.4055193","4":"20","5":"2.75"},{"1":"0.5244514","2":"0.8926032","3":"0.4062383","4":"24","5":"2.25"},{"1":"0.5270933","2":"0.8912589","3":"0.4084002","4":"32","5":"1.75"},{"1":"0.5280580","2":"0.8906782","3":"0.4085417","4":"37","5":"1.50"},{"1":"0.5308177","2":"0.8894234","3":"0.4100654","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTldXWXZaMkZhYVhNM1ExbzNLM2RtTnk5bVdpOTJPVEZuTHpKQlNIa3hjV28xUmxBeVJEZzFlWG8yTkZaRFRFNHZZMGR5V0RjMGRERllabGxRTjJoNE5TOXNTR0l4VURkQ05pdHNPRzU2YjJJM1VpODRSbXc1VkRoeWQwbGljelppTm1KV2NYWkRaSFEzWkM5TmJuUnRZbmxoVW13dk1scHRjRTVUYVdjeWRuUXpMMVJ3VWtvd1MwRlpjak0xZW10bWMwVTJNbVk1VHpZelYyaFhlVll6TjA0elZsUnVhbEVyYzB4T0wxVTJOakY1WldGU1JVNTVZMWQ1UjJad1Iwb3ZPR1J1Wm1aTWNYVjFhekI0TVM4M2JUSTRVMDh6VlZjM04wY3ZLMnMxYlc5WFpEVnFaalIyYmpFMFlXMXRWVWd5ZERoUlJuUjBOaXRLTWtJdmVUTlNaWGMyZFdab0szaDJkV1l4WVVVcmJUaEdWMmRIVERoblkzRkNPVUp2VTBsQmVFTktRVXhCU0VWRGEwTnpRM05STmsxUWMyTlJSSGRuWTBKRFJqQnFlRkZ0WnpGTFRUQkdieXQ2T1ZFcloyVlZMM05KUVVKVFowSjZTbkZZYlVwMFlVUk1WMVZHVTNKSlJYVlJZamRCY0d4amQxRldSalZaYlVaeFYyMVJVRzVOZG04MGQwdGFZbU5yY1VwTFMwcHpjazE1ZVhoeFJHZGxURWxLY1VFeVpGSm1jbXRsZWtKaFVWWTFhMkZKVHpkblVVaGtTMk5yTldsTlkzZHdUVVZIZFd4TlUxTlNUREl3U1hGQ0swbFBPR1p0YUdJeUwwbExVM3BRZHpodlExbHRWVU5NYUdoQldXZEplRkZxUnpoUlNXa3piRWRDZHpGWlUwVkVOVUZ1UVN0eloySXJNR3A1VVhFeFRqQnJlazVMT0RkS01XcGtRMnR0VVhaNU1IQkhjMWswUWpacWFFVmhiSHBCTWtzNFZFWlVVQ3RvTW1wc2FGbGFaV0Z1U2tWUVdtSlBiRFZ4Vm00MWNWaERkMmx6ZEUweE1uWlFSRTlzU2tGTlYwSkRRMEpxVGxSTk9VbDNVMWRGYW14S1EyRnNOWE5CWTJ0d1NtRkNiVmg1UVZsTllVaE9TalpDVlZkYVpWUkVWbGhGUkZKWmNqSlRMMHBLUlcxQ1lYVTFVSGRqYlVGbk5GVkNiaXRCVVVSUlprRnBLMnhCVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFwwLjUyNzk5NTJcXCxcXDJcXDpcXDAuODkzNDkyM1xcLFxcM1xcOlxcMC40MTE0MzQ3XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFwwLjUyMzM1MzBcXCxcXDJcXDpcXDAuODkzOTk0MVxcLFxcM1xcOlxcMC40MDQ2NDM3XFwsXFw0XFw6XFwxMFxcLFxcNVxcOlxcNS4yNVxcfSx7XFwxXFw6XFwwLjUyMjQ2MzJcXCxcXDJcXDpcXDAuODkzNzE5MlxcLFxcM1xcOlxcMC40MDUxMTM2XFwsXFw0XFw6XFwxNlxcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFwwLjUyNTAyOTlcXCxcXDJcXDpcXDAuODkyMzU1MVxcLFxcM1xcOlxcMC40MDYxMzQ3XFwsXFw0XFw6XFwyMFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFwwLjUyNDc0NzRcXCxcXDJcXDpcXDAuODkyNTA4NlxcLFxcM1xcOlxcMC40MDcwNDIyXFwsXFw0XFw6XFwyNFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFwwLjUyNjk0OTRcXCxcXDJcXDpcXDAuODkxMzIyN1xcLFxcM1xcOlxcMC40MDc2NTc4XFwsXFw0XFw6XFwzMlxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFwwLjUyODc1ODZcXCxcXDJcXDpcXDAuODkwNDUxOVxcLFxcM1xcOlxcMC40MDk1MjI3XFwsXFw0XFw6XFwzN1xcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFwwLjUzMDY1MDlcXCxcXDJcXDpcXDAuODg5NTQ2N1xcLFxcM1xcOlxcMC40MTA1ODIyXFwsXFw0XFw6XFw0NFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzhdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNWWYvZ2FaaXM3Q1o3K3dmNy9mWi92OTFnLzJBSHkxcWo1RlAyRDg1eXo2NFZDTE4vY0dyWDc0dDFYZllQN2h4NS9sSGIxUDdCNitsOG56b2I3Ui84Rmw5VDhyd0liczZiNmJWcXZDZHQ3ZC9NbnRtYnlhUmwvMlptcE5TaWcydnQzL1RwUkowS0FZcjM1emtmc0U2MmY5TzYzV2hXeVYzN04zVlRualErc0xOL1U2NjF5ZWFSRU55Y1d5R2ZwR0ovOGRuZmZMcXV1azB4MS83bTI4U08zVVc3N0cvK2s1bW9XZDVqZjR2bjE0YW1tVUgydDhRRnR0NitKMkIveTNSZXc2dWZoK3h2dWYxYUUrbThGV2dHTDhnY3FCOUJvU0lBeENKQUxBSEVDa0NzQ3NRNk1Qc2NRRHdnY0JDRjBqeFFtZzFLTTBGbyt6OVErZ2VVL3NJQUJTZ0J6SnFYbUp0YURMV1VGU3JJRXVRYjdBcGxjd1FWRjVZbUZxV21RUG5Ndm80d0taYmNrcUpLS0pzck15eXhxRGdlTElKcUEyZFJmcmtlekJhUVY1a2FJTzdnUUhkS2NrNWlNY3dwTUVHdWxNU1NSTDIwSXFCK0lPOGZtaGIyL0lLU3pQdzhvQ1ltVUNMaGhBWWdJeFFqRzhRSWkzbEdCdzFZU0VENUFuQStzZ2IrMGp5UXExTjBrek5LODdKMWpkQ2ttUXZ5MHBHc1k0QjZqaEVhbHpBMks4VEZUUCtoMmpsaFlaZWFuSkVQWmJPbDVxVm41cVhDd2lzdE0xMnZQRE9sSkFNV0JDQ0JqTlRNOUl3U1dFamxKQ2FsNXNBY2twSmFCbVh5QVlNYUhOSjZCVVdaZVREVlhFRFJZcjJTL0pKRW1CYXU1UHdjbUFnNFVCbitBUURRZkFpK2xBTUFBQT09In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\0.5279952\,\2\:\0.8934923\,\3\:\0.4114347\,\4\:\5\,\5\:\10.50\},{\1\:\0.5233530\,\2\:\0.8939941\,\3\:\0.4046437\,\4\:\10\,\5\:\5.25\},{\1\:\0.5224632\,\2\:\0.8937192\,\3\:\0.4051136\,\4\:\16\,\5\:\3.50\},{\1\:\0.5250299\,\2\:\0.8923551\,\3\:\0.4061347\,\4\:\20\,\5\:\2.75\},{\1\:\0.5247474\,\2\:\0.8925086\,\3\:\0.4070422\,\4\:\24\,\5\:\2.25\},{\1\:\0.5269494\,\2\:\0.8913227\,\3\:\0.4076578\,\4\:\32\,\5\:\1.75\},{\1\:\0.5287586\,\2\:\0.8904519\,\3\:\0.4095227\,\4\:\37\,\5\:\1.50\},{\1\:\0.5306509\,\2\:\0.8895467\,\3\:\0.4105822\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmk5bmQyVnpiemR5VVhvNVp5OHlMMlV4TUZCRFJtMHZNa1JxTDNSVGMxSlNMM05JTlhobE5uSlJPRmRqZGl0M1dtMTNhVFF2VDNKeVJpOWpRMlJxT1dKTU9VMTJXVkJZYkZwMFJrOVBjWE16TDNjMk1EbFBWMlZHVTNWRWJIWmFkSEJsTTNWSGVqTlFOMDQzVFhweFExRXpUMUZRY0U4NFMyMHZTWFphZGl0d1dUZHVhbTl2UVRaVFlpdHhTMWhRVEVvdk1ETndSbE5pV20xd0x6SmlaVzltUkVnclpYRXlURGh3UmpKaU5HUnlNRkppY3paMFowaE9WMjVhZG5rM1J6Z3JkbHAwYVhOUGFTOHZZekZJZWpWVk1IYzRjbk5pZWtZNGRtZ3ZjV1pqVUN0R2RHVnJheXRLWm05MWVIWnBZbTVOYTI1VFZITk1LMnhzTVV0M09Ua3dXaXN4ZG5VM1FrVjFSbFJzUVUwemFFSTFhMFE1UTBGdlZrRlRRVmRCVjBsS1NVWlpRVmxzVldjeGIwaGFOWGRFYVVGWlIwUkxTbFJ0WjJSS2MxVktiMHBSZEhZdloyUkpMMjlRVVZoQ2FXaEJRMWRFVjNaTlZHTXhSMHR2Y0dGNFVWRmFXV2N6TWtKWVMwcHphbkZNYVhkT1RFVnZUbEZZUzFvdldqRm9SVzE0TlVwWlZWWlZURnBZU214b2FWVllSamhYUVZKV1FuTTBhUzlNVERsWFF6Sm5USHBMTVVGQ2VFSjNaVFpWTlVwNlJXOTBhRlJ2UlVwamNWVnJiR2xVY1hCU1ZVSTVVVTQxTHpsRE1ITlBZMWhzUjFSdE5YZEZNVTFaUlZORFUyTXdRVUp0YUVkT2EyZDRhVXB2UTBSSk5tRk5Ra05CYzI5WVoxQlBVazVtUTFnMWIwWmpibUZMWW01R1IyRnNOakZ5YUVOaVRsaEtRMWhxYlZGa1FUbFNlbXBPUXpSb1RFWmFTVk0xYlN0bkwxWjZaMnRNZFRsVWEycElkMjl0ZVRBeFRIb3dla3g0VlZkWWJXMWFObGh5YkcxVGEyeEhZa0ZuUVVGc2EzQkhZVzFhTlZSQlVXbHZiazFUYXpGQ0syRlJiRTVSZVV0S1RWQkhUbFJuYTA1WmNrdE5jazFuTm01dFFXOXZWelkxV0d0c2VWUkRkRWhCYkRVclprRlNUVU5DZVhaQlVFRkxRa1UwUm5sVlFYZEJRU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCIwLjUyNzQ1NjBcIixcIjJcIjpcIjAuODkzNzA2MlwiLFwiM1wiOlwiMC40MTExODIwXCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCIwLjUyMzMxNDNcIixcIjJcIjpcIjAuODkzOTcxMlwiLFwiM1wiOlwiMC40MDQ2NTQ4XCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCIwLjUyMTY5NzdcIixcIjJcIjpcIjAuODk0MDI2MFwiLFwiM1wiOlwiMC40MDQ0NzQxXCIsXCI0XCI6XCIxNlwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCIwLjUyNDg1OTFcIixcIjJcIjpcIjAuODkyNDEzN1wiLFwiM1wiOlwiMC40MDYzMDgxXCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCIwLjUyNDk0MzdcIixcIjJcIjpcIjAuODkyMzk2MlwiLFwiM1wiOlwiMC40MDY4OTUzXCIsXCI0XCI6XCIyNFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCIwLjUyNjkwNTRcIixcIjJcIjpcIjAuODkxMzM2NVwiLFwiM1wiOlwiMC40MDc2MDkxXCIsXCI0XCI6XCIzMlwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCIwLjUyODUwMDlcIixcIjJcIjpcIjAuODkwNTMzOFwiLFwiM1wiOlwiMC40MDkwODE2XCIsXCI0XCI6XCIzN1wiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCIwLjUzMDYzNzlcIixcIjJcIjpcIjAuODg5NTM1NFwiLFwiM1wiOlwiMC40MTA1ODUyXCIsXCI0XCI6XCI0NFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZi9nd2VzbzdyUXo5Zy8yL2UxMFBDRm0vMkRqL3RTc1JSL3NINXhlNnJROFdjdit3Wm13aTQvT3JyRi9jQ2RqOWJMOU12WVBYbFp0Rk9PcXMzL3c2MDlPV2VGU3VEbHZadHBlM3VHejNQN043TXpxQ1EzT1FQcE84S20vSXZaditwWTduam9vQTZTYitxS1hQTEovMDNwRlNiWm1wLzJiZW9mREgrZXEyTDhwRjJiNGRyMFJiczZ0Z0hOV25adnk3Rzgrdlp0aXNPaS8vYzFIejVVMHc4cnNiekY4dmgvcWZjUCtGdGVraytKZm91eHZpYm5Na25TVHNMK2xsMUt3OTkwWisxdnU3QkV1RlRsQU0zaEI1a0Q5Q0FvVkFTQVdBV0lKSUZZQVlsVWcxb0haNXdEaUFZR0RLSlRtZ2RKc1VKb0pRdHYvZ2RJL29QUVhCaWhBQ1dEV3ZNVGMxR0tvcGF4UVFaWWczMkJYS0pzanFMaXdOTEVvTlFYS1ovWjFoRW14NUpZVVZVTFpYSmxoaVVYRjhXQVJWQnM0aS9MTDlXQzJnTHpLMUFCeEJ3ZTZVNUp6RW90aFRvRUpjcVVrbGlUcXBSVUI5UU41LzlDMHNPY1hsR1RtNXdFMU1ZRVNDU2MwQUJtaEdOa2d4aUpvQ0RJNmFNQkNBc29YZ1BPUk5mQ1g1b0ZjbmFLYm5GR2FsNjFyaENiTlhKQ1hqbVFkQTlSempOQzRoTEZaSVM1bStnL1Z6Z2tMdTlUa2pId29teTAxTHowekx4VVdYbW1aNlhybG1Ta2xHYkFnQUFsa3BHYW1aNVRBUWlvbk1TazFCK2FRbE5ReUtKTVBHTlRna05ZcktNck1nNm5tQW9vVzY1WGtseVRDdEhBbDUrZkFSTUNCeXZBUEFLQkU0RnlVQXdBQSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.5274560","2":"0.8937062","3":"0.4111820","4":"5","5":"10.50"},{"1":"0.5233143","2":"0.8939712","3":"0.4046548","4":"10","5":"5.25"},{"1":"0.5216977","2":"0.8940260","3":"0.4044741","4":"16","5":"3.50"},{"1":"0.5248591","2":"0.8924137","3":"0.4063081","4":"20","5":"2.75"},{"1":"0.5249437","2":"0.8923962","3":"0.4068953","4":"24","5":"2.25"},{"1":"0.5269054","2":"0.8913365","3":"0.4076091","4":"32","5":"1.75"},{"1":"0.5285009","2":"0.8905338","3":"0.4090816","4":"37","5":"1.50"},{"1":"0.5306379","2":"0.8895354","3":"0.4105852","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjRnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqb3hNaXdpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjoxMiwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTFaWmk5bllWcHBjemREV2pjcmQyWTNMMlphTDNZNU1XY3ZNa0ZJZVRGeGFqVkdVREpFT0RWNWVqWTBWa05NVGk5alIzSllOelIwTVZobVdWQTNhSGcxTDJ4SVlqRlFOMEkySzJ3NGJucHZZamRTTHpoR2JEbFVPSEozU1dKek5tSTJZbFp4ZGtOa2REZGtMMDF1ZEcxaWVXRlNiQzh5V20xd1RsTnBaekoyZERNdlZIQlNTakJMUVZseU16VjZhMlp6UlRZeVpqbFBOak5YYUZkNVZqTTNUak5XVkc1cVVTdHpURTR2VlRZMk1YbGxZVkpGVG5salYzbEhabkJIU2k4NFpHNW1aa3h4ZFhWck1IZ3hMemR0TWpoVFR6TlZWemMzUnk4cmF6VnRiMWRrTldwbU5IWnVNVFJoYlcxVlNESjBPRkZHZEhRMkswb3lRaTk1TTFKbGR6WjFabWdyZUhaMVpqRmhSU3R0T0VaWFowZE1PR2RqY1VJNVFtOVRTVUY0UTBwQlRFRklSVU5yUTNORGMxRTJUVkJ6WTFGRWQyZGpRa05HTUdwNFVXMW5NVXROTUVadkszbzVVU3RuWlZVdmMwbEJRbE5uUW5wS2NWaHRTblJoUkV4WFZVWlRja2xGZFZGaU4wRndiR04zVVZaR05WbHRSbkZYYlZGUWJrMTJielIzUzFwaVkydHhTa3RMU25OeVRYbDVlSEZFWjJWTVNVcHhRVEprVW1aeWEyVjZRbUZSVmpWcllVbFBOMmRSU0dSTFkyczFhVTFqZDNCTlJVZDFiRTFUVTFKTU1qQkpjVUlyU1U4NFptMW9Zakl2U1V0VGVsQjNPRzlEV1cxVlEweG9hRUZaWjBsNFVXcEhPRkZKYVROc1IwSjNNVmxUUlVRMVFXNUJLM05uWWlzd2FubFJjVEZPTUd0NlRrczROMG94YW1SRGEyMVJkbmt3Y0VkeldUUkNObXBvUldGc2VrRXlTemhVUmxSUUsyZ3lhbXhvV1ZwbFlXNUtSVkJhWWs5c05YRldialZ4V0VOM2FYTjBUVEV5ZGxCRVQyeEtRVTFYUWtORFFtcE9WRTA1U1hkVFYwVnFiRXBEWVd3MWMwRmphM0JLWVVKdFdIbEJXVTFoU0U1S05rSlZWMXBsVkVSV1dFVkVVbGx5TWxNdlNrcEZiVUpoZFRWUWQyTnRRV2MwVlVKdUswRlJSRkZtUVdrcmJFRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjAuNTI3OTk1MlwiLFwiMlwiOlwiMC44OTM0OTIzXCIsXCIzXCI6XCIwLjQxMTQzNDdcIixcIjRcIjpcIjVcIixcIjVcIjpcIjEwLjUwXCJ9LHtcIjFcIjpcIjAuNTIzMzUzMFwiLFwiMlwiOlwiMC44OTM5OTQxXCIsXCIzXCI6XCIwLjQwNDY0MzdcIixcIjRcIjpcIjEwXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjAuNTIyNDYzMlwiLFwiMlwiOlwiMC44OTM3MTkyXCIsXCIzXCI6XCIwLjQwNTExMzZcIixcIjRcIjpcIjE2XCIsXCI1XCI6XCIzLjUwXCJ9LHtcIjFcIjpcIjAuNTI1MDI5OVwiLFwiMlwiOlwiMC44OTIzNTUxXCIsXCIzXCI6XCIwLjQwNjEzNDdcIixcIjRcIjpcIjIwXCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjAuNTI0NzQ3NFwiLFwiMlwiOlwiMC44OTI1MDg2XCIsXCIzXCI6XCIwLjQwNzA0MjJcIixcIjRcIjpcIjI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjAuNTI2OTQ5NFwiLFwiMlwiOlwiMC44OTEzMjI3XCIsXCIzXCI6XCIwLjQwNzY1NzhcIixcIjRcIjpcIjMyXCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjAuNTI4NzU4NlwiLFwiMlwiOlwiMC44OTA0NTE5XCIsXCIzXCI6XCIwLjQwOTUyMjdcIixcIjRcIjpcIjM3XCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjAuNTMwNjUwOVwiLFwiMlwiOlwiMC44ODk1NDY3XCIsXCIzXCI6XCIwLjQxMDU4MjJcIixcIjRcIjpcIjQ0XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbOF19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE1ZZi9nYVppczdDWjcrd2Y3L2ZaL3Y5MWcvMkFIeTFxajVGUDJEODV5ejY0VkNMTi9jR3JYNzR0MVhmWVA3aHg1L2xIYjFQN0I2K2w4bnpvYjdSLzhGbDlUOHJ3SWJzNmI2YlZxdkNkdDdkL01udG1ieWFSbC8yWm1wTlNpZzJ2dDMvVHBSSjBLQVlyMzV6a2ZzRTYyZjlPNjNXaFd5VjM3TjNWVG5qUStzTE4vVTY2MXllYVJFTnljV3lHZnBHSi84ZG5mZkxxdXVrMHgxLzdtMjhTTzNVVzc3Ry8razVtb1dkNWpmNHZuMTRhbW1VSDJ0OFFGdHQ2K0oyQi95M1JldzZ1ZmgreHZ1ZjFhRSttOEZXZ0dMOGdjcUI5Qm9TSUF4Q0pBTEFIRUNrQ3NDc1E2TVBzY1FEd2djQkNGMGp4UW1nMUtNMEZvK3o5UStnZVUvc0lBQlNnQnpKcVhtSnRhRExXVUZTcklFdVFiN0FwbGN3UVZGNVltRnFXbVFQbk12bzR3S1piY2txSktLSnNyTXl5eHFEZ2VMSUpxQTJkUmZya2V6QmFRVjVrYUlPN2dRSGRLY2s1aU1jd3BNRUd1bE1TU1JMMjBJcUIrSU84Zm1oYjIvSUtTelB3OG9DWW1VQ0xoaEFZZ0l4UWpHOFFJaTNsR0J3MVlTRUQ1QW5BK3NnYiswanlRcTFOMGt6Tks4N0oxamRDa21RdnkwcEdzWTRCNmpoRWFsekEySzhURlRQK2gyamxoWVplYW5KRVBaYk9sNXFWbjVxWEN3aXN0TTEydlBET2xKQU1XQkNDQmpOVE05SXdTV0VqbEpDYWw1c0Fja3BKYUJtWHlBWU1hSE5KNkJVV1plVERWWEVEUllyMlMvSkpFbUJhdTVQd2NtQWc0VUJuK0FRRFFmQWkrbEFNQUFBPT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"0.5279952","2":"0.8934923","3":"0.4114347","4":"5","5":"10.50"},{"1":"0.5233530","2":"0.8939941","3":"0.4046437","4":"10","5":"5.25"},{"1":"0.5224632","2":"0.8937192","3":"0.4051136","4":"16","5":"3.50"},{"1":"0.5250299","2":"0.8923551","3":"0.4061347","4":"20","5":"2.75"},{"1":"0.5247474","2":"0.8925086","3":"0.4070422","4":"24","5":"2.25"},{"1":"0.5269494","2":"0.8913227","3":"0.4076578","4":"32","5":"1.75"},{"1":"0.5287586","2":"0.8904519","3":"0.4095227","4":"37","5":"1.50"},{"1":"0.5306509","2":"0.8895467","3":"0.4105822","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBNWtBQUFFekNBSUFBQUEwTEZEUUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzNkZjJ3ajZYblk4V2NrN2Q2ZGZUN1hEaFBINGNtM1o1UGJRRkZxSkZZdExKVU5la2hkbEJKTUVJMnN0TmRrTjJoUk12ZVBLVGxaRittcCtTUGRUWXBUY1NJYkZGdXlhSURiQnRkWVZsS0dqY2ptQjdCb3J1S2RiQVZwQVVWT1JWNTJIWjFxdzVIanhIZjIzZDd1NnUwZlExSVVSVkxTekV0eVh2TDd3UURMNFF3ZnZsck5vL2ZoOEoxM0xLV1VBQUFBQUFZYTZuVURBQUFBQUllb1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBocnAyanROVEV4MDdiMHdDRFkzTjN2ZGhINUFZa0l2RWxNTEVoTjY5WGRpZHErV2xiUC9WKzd2Ny90OFBvME44SDdBVHNUMGZrQUhNZmxEcnhHSjJaT1kzZy9vSUNhSnFSR0oyWk9ZM2cvb0lHYmZKeVpqREFBQUFHQXFhbGtBQUFDWXFxdGpER3lmR3ZxTTNvQWpIM3RhYjBBUkVjdlNIRkQzUFNuZUhmMkEzb0FpY25CTzkyY2IzVGZpdVAzNy8xSnpSRlFaa1pqcTBYT2FJdzVwUHViZitmRGplZ09LaU5LZW1Mcjl6LzkrcmRkTjZGdmFFL1BoVDN4Q2IwQVJHWDc3b2Q2QTczN2d2TjZBZi8yMC9tcm4vRnRldjlYVWwzLzljNzF1UXBkNC9VOGtBQUFBMEFxMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUpXT1duWnZOYkc4MFhJVlFFK1FtSUFIa1ppQWJ1NXIyWTNsNTI3ZGFia0tvQ2RJVE1DRFNFeEF2eEdYcjk5WUxvWnVYcm03MG56Vk5qRXhZVC9ZMzk5MytYWVljQnhDcDBSaW9wczRoRTZKeEVRM0RjNGg1TzY4N01aeU1iUXcyV3ExYW5OemMzTnpVMFI4UHAvUDUzUDFqaGhzdnFwZU44VGJTRXgwRjRsNUtpUW11bXR3RXRQTmVkbTkxWmR2Mzc1eis3YUlpRVRreXBXNzlhdlA1NW9rS1lCT0l6RUJEeUl4Z1U1eFU4djZaMU81V1JIWlcwMnNqS1lXSmtWbWo2NEM2RDRTRS9BZ0VoUG9GT2JrQWdBQWdLbmNYdnNsSXVLZlRTMjBYZ1hRRXlRbTRFRWtKcUFiNTJVQkFBQmdLbXBaQUFBQW1JcGFGZ0FBQUthaWxnVUFBSUNwcUdVQkFBQmdLbXBaQUFBQW1JcGFGZ0FBQUthaWxnVUFBSUNwcUdVQkFBQmdLbXBaQUFBQW1FckhQV3pQeUpyOE8zb0Qvbm40Y2IwQlJXVG92dWFBdy9jMEIxVERtZ09LeVBBN21nTnEvMjlFNXh6OCtJL29EZmpWSDN0TWIwQVJFYVU1bnZiRVBPaEFZbXJQbzZFRHpRSFJPZCtNaGZRR2ZERHpMYjBCUmVUTnUrL1hHMUFOYTA3MW9mdTYvM2FJakx4cGFRNzR0dDU0QTRUenNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBRERWaUt0WDc2MG1ucnQxUitUcEt6ZFRzLzdhcW9nODgzeHVZVkpIQXdHY0ZZa0plQkNKQ1hTR3UxcFdMbjArTit1WGplWEVxM3V6cy9MRzZPZHpPYitJYkt5dVBxbWxlUUFjSURFQkR5SXhnWTV3Vjh2Ni9YNFIyZHNkZlhiV0x5S1RsYytWRzd0eXFlNGo1c1RFaFAxZ2YzL2YxZHRoNEhFSW5RcUppZTdpRURvVkVoUGROVGlIa012enNyS3hITGx4VytTWjBkbkpXaTQySktac2JtNkt5TVRFaE0vbmMvbDJHSEFjUXFkRVlxS2JPSVJPaWNSRU53M09JZVQyMnEvSmhWd3VkL1BLM2VKRzdhbU5YYm5rZHhrV2dCc2tKdUJCSkNiUUNWcm1NZkNQWGg2dGpmWWhNUUZ2SURFQkR5SXhBYzFjalRHb2ZGMWlYNE5aZmE3aDZ4SUFYVVppQWg1RVlnSWQ0cXFXblZ6STFUS3k5dHpzckp1UUFOd2lNUUVQSWpHQkR1RmVDUUFBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNUlMwTEFBQUFVNDEwL3kyL2VrM3BEZmorOS95bDNvQWk4bzF2UEtFMzRQbmRSL1FHUERpbk41NklpQnJSL0tzUjNmSFFPWGVmMC96YmV1OTd2cVUzb0loOCs1dnYxUnR3NUJ2bjlRWlVRL29QZWpXc09hQkZZcHJqYi83ZTIzb0RQbnJRZ1hOWWx1WjQ1NzZ0K2FCLzhQaUIzb0FpOHVDajcrZ05lRi9wL244Y0dKeVhCUUFBZ0ttb1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0ttb1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0ttb1pRRUFBR0FxYWxrQUFBQ1lpbG9XQUFBQXBxS1d4ZUFvcDZhc2VsT3A4cEhuNDRYanJ5bkVEM2UxSDArbHlvVlVxbHpkVXFmWjZ3R2NvRlZpZHJNQlhYOVB3T3RPMnpQV1BWVy9hMWU3U0hlMTdONXFJaEtKUkNLSjFUMFJFZGxZUHJJS2VFb2dzVjVLaGlTV1Ywb3BsWThWNTRQeGd2MjhLaVZEa3JuZTJKK1ZVOWN6RWtxVzFIb2lVSWhQYnlWTFNyMGtWNmRYUkNTY1ZxVmtLSlFzS1ZzcE9kYUxINm9aRWhNbWFaV1lYVktJQitlTFhYa25FaE1tT1YzUFdIMnVrSlZZTEpNOXpOeXVkcEV1ejh0ZStud3VsOHM5ZitHVlYvZEU5bFozUS9icXJaVU5QYzBET2laOExSbVNyWjFhanM0bGt6Sy9kS1FMTGEvSlhESjB1RDUrTVNBU1NLem41NXJFQ3lRUzRZNDE5b3hJVEJpck1URTcvNGJwVW4yV2R4S0pDZU9jb21jVUVTbGtKWnFPSGlsbUczUzBpM1JYeS9yOWZoSFoyeDE5ZHRZdjRwK2RuUlFSbVF3OWMzZTM3blBteE1URXhNU0VpT3p2Nysvdjc3dDZSd3kyL1NyM29jcXBxL1BGME54TTdWT2xYRXdzSGszRXd0TDJ4Wm5hV2pnYXkwemJYNUtFRTRjZlJxdlJVaDRhWUVCaW9yczZscGlWYnpuanFVTEJMbTRyMzF2R1U2bDRxbXl2eEF1VnArM3ZPMnZmYk5ybmRndHhLNTVLVGRsYkc3OFlyYXgzNjd3c2lZbnUwcEtZSi9TTXR2TE9XRFFzNFpiRmJLZTdTTGZqWlRlV0k1SG5idDBxSHYxVU9YcjVrdjl3YlhOemMzTnpVMFI4UHAvUDUzUDVqaGhrdmlvM1FUTFRsbVZad1pXNUkxK1FpSWlFcnlXM2F0K21sRlBac1d2MUh5UERhWldQWmFhUERoRXF6Z2Z0em5EYlRaTzBJekhSVFoxS3pNTFN5bHhKS1JYZHZyNGpJdVhVMVBXeGtsSktSYmZudHlvcEtTSjE1MWJMcWV0YnlaSlNwV1JvYTZkY1RrMU5aeVN6SWk4cHRaNG94ZTFYNThmbnI2YktVazVOVFV0ZUtkVzEwN0lrSnJwTFMyS2UxRE9LaUpUWDVHSllwRWt4MjZVdTBtMHRPN21ReStWdVhybGJsNW9ieThYUldYK2Ixd0E5RmNzcmxZL1pBd1lhQkJLTDQ1VnZVOHByRW0wOCt5cmh0RktscE13SGErVnNaVENRaHdiTGlnaUpDUU0xU2N6Z21Nd0hyYWxVTUwyZUNFaDViVVVxSjJ5RFl5M0t6MEJpZlQwaHFhbmdmTEc0WFFvazF2TXhpUzBtQWlKUzN0bXkrOVhwakJTM1MrVzFGVWxlQzR0SVlHYXVXOFVzaVFrVG5kUXpsdGRXNXFjdHkwNnVvOFZzbDdwSUxmTVkrRWN2ano1cFA5eFlqaFJEQzVNNm9nS2RFMDduWmJyWjlTWGhhQ3h6UFZXV3d0TDJ4YU1mUFF0eGUvOUFZajBmSzI2WGptejAwbURaR2hJVHBtbEl6RUJpWGFuUzNFcnc5SmRBRitLV2RWVmVhbjZ1dFhKNW1WSXEzY044SlRGaG5OWTlvNGlVMTJTeG1sbXFWSGNPOTFDbnUwaFh0V3psSXN4SXhQNVl1YmVhaU55NExiZHZSQ0tSWllheXc5dGFWYlBoYTBtWnZ6clY1RnVVMnRXYzVaMnRaaEhMcWJnMzV2VWhNV0d1STRsWlNLWEtFa2lzcTN4c2E2Y2N1RGhlWEZscmtXT2w3V0p4UGhpUFp6T3gvUHF4ODBZaUlvR0w0OVV6Um9WNHZCQzRPRjQ4dktTbEczTW5rSmd3VjV1ZXNUckF3QmFZbVpQbWFkckpMbkxFellzbkYzSzVoY05WLzJ3cU4rdTJRVURIbEZOVHdmbWl5TFFsZVpVT2g5UDVyR1ZaSXFGUXFGZ3Npc3l2SkV2cmlVQmlNVGFmamE0SGF2dEwwRnBKbGhiSGtvdHkxYktLSWhMTHEzQWhiazFuUkNSb3pWZmloNUtsUk85K3VrTWtKb3pTS2pGaitmell5bFZydnBKeUFaRjBQbXRWRXk2VUZCRUpSMlBUMDFaR0pCUUtoWkl2cFJNbHNhYXRqSVJDSVNsT3h5V1d5WWhrcHNaSzY0bEFMYkRFOGlvdEVzN0hyR2tyWXpjaWx1LzRxVm9TRTBhcEptYTduakVXazB5bUtMSWlKZnNqWkRsMWRiNVlsS0MxVXVsWHU5TkZXa3FwRG9WdU1ERXhZWTluLzl1Ly9jdDZJNy8vUGUvb0RTZ2kzL2pHRTNvRG50OTlSRy9BZzNONjQ0bUlxQkhkQjRQdWVLLy8vT2ZzQjdYRENTN1YvaWMvOW9VYmVpTy85ejMzOUFZVWtXOS84NzE2QTQ1ODQ3emVnR3BJLzE5VU5hdzVvS1U5TVQvWDVjUXNwNmF1eWt2Tno3LzJoOFBFL00xZjBSdjUwY2ZlMVJ0UVJMNjcrejY5QVVmZTBud2pwd2VQSCtnTktDTFdCelgvaVZQSzBodnd6ai85UmZ0QjMvZVkzUGNMQUFBQXBuSTF4Z0FBZ0M2cjNLa3JHTC9ZMDJ1NEFIZ0V0U3dBd0NUaHRGTHBYamNDZ0djd3hnQUFBQUNtb3BZRkFBQ0FxUmhqZ0FIeXFhSFBPSGpWSHh4OFVYdExBTlFjZlAyaWcxY05mZitPOXBZQXFER294NlNXeFFDeFJqamdBYys1cng0NGVKWG1hUTRCSEdWUWoybE1Rd0gzckdFT2VNQno3bEhMQXQ1alVJOXBURU1COTZ4ekhQQ0E1OXlUaDcxdUFvQkdCdldZUFdqb3UyOXJ2bVBWMnlQNi93NCs4cmptTzZNODhhUGYxaHR3U1BQOVFVUkUzbnhIOHoyUXpuWGdWK09LT2QrWWROKzVjNXAvV1piMnUwdUpQUHFFNWh2dFBQSDlmNk0zNFBDUS90c0xmZWRlbnlmbVBhWC9QNjF2UFBpdTVyOWFQL2lSTi9RR0ZKR1M3c1Arc1hOT1R0VzM4YUgzdnFrM29JaTg4ZWI3OVFaODhOQmpsK09iMDJNYTAxREFQWU5HL3dDRDR4M2R0KzRFNEo1QlBhWXhEUVUwR05GOVkzc0FydDJqbGdVOHlKd2VrMW9XZzhTY1Q1bkE0SGhIa1ppQTk1alRZM3BzY0FiUVVjTkRUaFlBblhSUERUdFltb1lxcDZZc3k1cEtsWTg5ZC9oc0lXNVpsbVhGQzBkMnFWOEZJQ2IxbVBUVEdDUWpJMDRXQUoxMFQ1MXpzRFFKVkU1ZDNWNVVTaTF1WHoyc1pzdHIyM01scFZScGJtV3BJRktJWjZOS0taV1g2V3I1V29nSDU0dGQrbGtCYzVqVFk5SlBZNUJ3a2hYd25tY3UvRi83UWVIT0Q3WGZNL3owbjdiWldsNWJHWSt1aTBnNE9uNTlyWnhJQk96bnQ3WkxJb0hTOW5nMEllV1VqTTJJaUlTdkpiTnJaUWtIQ3ZGc3RKVGNXbkwvY3dEOXhad2VrMW9XQTBTWk01SWRHQnpaMTMrayt2Q0UyY2ZxOXBUb3gvN2syUGJ4c2FDSWlBVEh4bXMzdUEwazFxTnh5NXFPNVZWYXBDeGJLM1ZscmhUaTJXZzZMYW5yYm40QW9COFoxR05TeTJLUW1QTXBFeGdjN3pRZE1PQ0VmUVpXcExTOUpUUFZKOHVwbmFoUzBiZ1ZMNmgwT0xFNGJnV3RlUkVKSlVzenFhdVpUREdURVJFUlMvSXFIZGJVRXNCODV2U1l4alFVY0UrTkREbFlldDFxb00rOW8wWWNMTWZqQkdibXRySUZFU2xrdCtabWFtZGVsMVlrS0JKTzV5VmJFSkZ3V2ltbDhySFlZaUlRU0t3cnBaUXFKVU14Q2xuZ0NJMDlack9MTXFzYkt1UFc3VjFxMTJCV0x0RnM4cEptNktjeFFOVHdzSU9sMTYwRyt0eTlnM01PbGlhQkFvbEZtYllzNi9yWVM0bEF0WmNNWDV0YkNWcVdaVTFMTkZ5YjFDQWJwWElGMnRMV1l6YTlLRlBrNkdXWGdjUjZLUm1xdldMSHZrUnpmSDdwTkRPTU1NWUFBNFNUcklBSE5aK1V3SkZ3V3FsMDVYRWdzWjZ1L0tzU3RUMk9yRWpEcmdCcWZ2OUx2MlEvK0ZUb2hQSGtmMUJjYkxPMTFVV1piUzY3REZSMkNrZGoxM2ZLRWc0MDJhY2V0U3dHeVRDM0Z3STg1eDczU2dDODUxT1hiMVFlbmRSMUh1NHA4Z2V2UEg5c2U3T0xNazk1MmVYWTRYQ2hOdmdMZ2dGeXdIbFp3SHVhRHhnQTBGUDZlc3pqRjJXV1U5ZFBjZGxsSVo2OW1EN05WeVl1RzdxeEhJbEVJcEhFNnQ3aGMzdXJpZVVOZDJHQmpsRERsb09sMTYxMmdNU0VTZTRkakRoWWV0MXFCMGhNbUVSWGo5bnNvc3hUWEhaWmlKOStXTHVyV25admRUZVV5K1Z5ejErNHRWTE54WTNsNTI3ZGNSTVU2SmdCcVdWSlRKaGxRR3BaRWhObTBkWmpOcjBvODVoQ1BEaGZ6RXhQcGNyMnBBYlRHY2xNTjl4dHVoVlh0YXgvZG5aU1JHUXk5TXpkM1QwUmtZM2xZdWptbGFlUDdqWXhNVEV4TVNFaSsvdjcrL3Y3YnQ0UkEyNi95dG5MMVpEbFlHa2FxdmtNSS9VM2VtKzhDWHpyU1VsMEl6SFJaUzRUODU0YWNiRG8vUkc2Z01SRWwzbW54N1Jud2x0UEJNUyswckoydHJWdXhkN0gzcWw2MmxZcGRhcTU4alFOaGhpOWZNbHY1K1hDNUxHTm01dWJtNXViSXVMeitYdytuNTUzeEVEeVZUbDcrY0U1eThIU0pGQ0xHVVlLRXExTHZabVg3Q2xGVnRiS3JWL1NXU1FtdXNKbFlyNzdjTVRCb3ZkSDZDb1NFMTNobFI2ejgzVDhPZGhZTG80dUxNamU2c3UzYjkrNWZWdEVSQ0x5Zks1SmtnSzk5RWU1YS9hRHk5RVRicjcrU3ZaYW02MHRaaGdwWktlbnAwUEpVdVd6WnlBZ0l1V2RzY1ZFb1BXa0pCMUVZc0lRNzZwQm1zV1p4SVFobERrWFM3dXVaVGVXSThWUWJrRkUvTE9wM0t5STdLMG1Wa1pUcENXODU4ZCs4dDlWSHAwMEN2WndUNUgvOVZ1L2NHeDdzeGxHeXNGclNxVUxjV3NxWlplemhiZzFuUkdKWFV5RXc4MWYwamtrSnN4eHoraVRyR2RDWXNJY0JsMHU0dkxhcjBUa3htMjVmU01TaVhBaEpyenZZTmh5c0RTTHRMVmRFaEY3aHBFcSswUnNPRjJhMjE0cmkxUkcvNVNTOWdXY1RWL1NHU1FtekhML1lNVEIwdXRXbnhtSkNiUG82ekU3enRXZmcrcm55bVBQTHJpSkNuU0tyc3RGQWpOelcwc0ZDWWNMMmEyNWF3MmpCY3BySzNMeDhNWkNnWXR6WThFVFhxSVppUW16dkhzd0VHTU1TRXlZeGFBTExOdWZseTNFdTNIVk5kQWwycTdLYkRiRFNIWGVncXZ5VWpwY205TEFzcklYSzVkdTFyL0VIUklUZmVYK3daQ0RwZGV0UG83RVJGL1JPSTlCcDdXdnVzTnBGVXhOV1ZaUnBOVmt0b0E1Tkg0dDJlUzI3K0VqOTNtdjM2SFZNeTdlbk1SRS8zalh3QUVEelpDWTZDc0c1ZVdKSDIycmszeEZzMGZueWdUTW80YWNMSjVFWXFKLzNIODQ1R0RwZGF1YklqSFJQd3pxTVUvMXR2WU5HRUxKa2xJdnlWWHlFNll5YUNUN2FaQ1k2QS8zRDRZZExMMXVkVXNrSnZxRFFUM21pZU5sS3dNQWo5Nkw0U1ZaSWpkaEhqWHNaUEVlRWhOOTVjSERZUWRMcjF0OUhJbUp2cUt4eDJ4NTI4dkRHOXJhdXh6ZXNQWk1kOG84NmJ4c0xGKzc3VmlkMG5hbU1yOFFZSkIrcVdWSlRQU1ZCd2RERHBaZXQ3b1pFaE45UkZ1UDJmSzJsNFY0Y0w1WWVSeElySmVTb1JOZjB0eEpJM3N6MlVJNmZHd0Vleml0R05VTzgzajRhOGt6SWpIUlI3dzYrUFhzU0V6MGtULzVENVhwNGo3KzJlWDJlLzZmZjk5dVlybFd0NzBzeExQUlVuS3IyVjA0ejNxbnpQWi9RY0xSMk5Ib3FWU2h4YTZBQVlZY0xaNURZcUt2SEJ3TU9WaDYzZXJqU0V6MGxZL1BMOXZMaWIxa2JjK1B6emV0ZXV0dWUxbDdyaERQUnR0TTl0SHNKYTJkTUY0Mm04bE1XNGVDODl1bmlBbDQxTUd3azhWN1NFejBsZnNQaGgwc3ZXNzFjU1FtK29xK0h2UDRiUy9McWV1WnpMUmxCZWVMbWVtNlViSnRYdExPU2VkbGs4bVNPbFJLanAwaUp1QlJCczB3MGhhSmliNXlvQ3dIUzlOUXphNFhxZDdHcFBwczVSS3RTdmRaV2RNeDF3Q0ppYjZpcThjTXpNelp0M0l2WkxmbVp1elJBdFhaNjBySlVMUEptSnU5cEowVHpzdnVTRjJNY3VycTlrVkcvY0JjL1hMdEY0bUp2bkx3MEhLd05BblU5SHFSOHRyMlhFa3BWWnBiV1NyWTMyd3FwVlJlcHVNRkthZDI3TFh4K1NYWDR3RklUUFFWYlQxbXN6dGxIbGVJQitlTG1XbjdZK1VaNzVUWjZ0cXZjbXFxY25YWi9IemQwNkZrV2NJdWI4RDVnUTk4eDEyQVJ0Lyswdy9xRFNnaWdVLytoZDZBSDMzZnZ0NkFYL25yRCtrTktDTGZlZmVjM29EM2RBZDB5Wk1uV2Mra2c0bjVQZS9UbkpoN3IzK3Yzb0FpOHNNLzlGVzlBWDJQdnFVMzRPdmY5dWtOS0NLV3BmUUc5RnBpbHVjVzdRY2YrODFmYWIvbjYvLzRYN1dMMCtKNmthM3Rra2lndEQwZVRVZzVKV016SWlMaGE4bnNXamxRMlNrY2pWM2ZjWjVGSFV6TVMyT3Z1d3ZRNk10M245SWJVRVIrNUNPN2VnUCt4UGQ4UlcvQThqdjZlOHdITGI0Y2NPeXhrUWQ2QTdxa3NjZHNjcWZNWXlzTnQ4WTgwNTB5VzlXeWdjUzZTa2dobFFxZWVQa1lZQXBsemgzNVdpQXgwWWVlL28xZnJUNDhvVGlvMjFQdS9QUXZIdHRlZDczSVR2VzVRR0k5R3JlczZWaGVwVVhLc3JYUzlMTG9zZE44azlrS2lZaytaRkNQZWNKNDJZYTA1S3BNR0sxdnhzdVNtT2duNnNCeXNEU0wxUFI2RVhzY2dUMm1RQUtKeGZINW9HVlpWbkJsckZhOUZ1TFppKzZMVUJJVGZjV2dIdk9FdDYyTWl1ZXFUUFNGZmhrdlMyS2l2eHhZVHBaam1sOHZVbGhha2FCSU9KMlhiRUhzcnk2VnlzZGlpNVhLc3hDMzJrNE9kSG9rSnZxSlFUMW0relBJaGF6a0ZaTThvMTk0OGlTckF5UW0rb3BxZWlHWEE0SEVvbGlXSmFGa2FUMGc1ZFRVMHNYMWRQamEzUFdnTlM4aXNieXFqV3kxUnh6VVZqTldScHBkVG4wbUpDYjZpa0U5NWdsakRLNk43ZFIvUmNJM0pqQ2FRWjh5MnlJeDBWZXNoNWFEcFdrbys2U3JmUmZaUUdJOUhaYkQyWDlVT255NFVxbGFhOXNPbjNLT3hFUmZNYWpIUEtIcUxtM1BNL016K29aQm8zL2FJekhSVnpTTk1lZzVFaFA5eEtBZTg2UXhCbHZKa3VLeVRQUUpOYUo1YnFNZUlUSFJWMXFkWkRVTmlZbStZbENQZWNJWWcvVGl4VkxkT3QrWXdHZ0dmY3BzaThSRWZ6bHd0SGdPaVltK1lsQ1BlY0o5ditMVDAzeGpncjZoaHBXRHBkZXRQbzdFUkYvUk9GNjJwMGhNOUJXRGVzd1R6c3R5ZDJuMEZjdlI0amtrSnZxS2RlQms4UjRTRS8xRlg0OVpUazFabGpWMWVHdnB1ZzNWRzlvZTNjZGVhL3FhSms0NEhkd3c5WE1na1dDNkVaaExqU2dIUzY5YjNRU0ppWDVpUGJBY0xMMXVkUk1rSnZxSnRoNnpuTHE2dmFpVVd0eStlclF5TGNRcjkzNCt0azk1Ylh1dXBKUXF6YTBzbldLa2pqbDNLQVBjRy9KaVlRb01PRStlWkFVRzNkMmYrd1g3d1lYTTBnbDd4cTYxMlZwZVd4bVByb3RJT0RwK3ZlNE8wb1Y0TmxwS2JpMDEyMmZHdm9sZm9MUTlIazJjM0ZScVdRd1FUdzUrQlFhZDliRFhMUUJ3ekZQLytZWEtvNU5talQzY1UrU3IvL3p6eDdhUGp3VkZSQ1E0TnI1VGZhNFF6MGJUYVVsZGI3cFBJTEVlalZ2V2RPV21KaWR4ZWNuWnhuSWtFb2xFRXF0Nzl2cmVhcUorRmZBVWExZzVXSHJkYWdkSVRKaWtYOGJMbm9qRWhFbjA5WmhiMi9ZRUg2WHRyY296NWRUMVRHYmFzb0x6eGN5MEZTOGMyNmVjMm9rcWxaZnArR2ttQTNGVnkrNnQ3b1p5dVZ6dStRdTNWalpFWkcvMWhkMW5jN25jczdzdmtKdndvaUhsWkRFTmlRbXpXQStkTE1ZaE1XRVlUVDFtWUdadUsxc1FrVUoyYTI3R0htQlF2ZU5lS1JtSzVWVTYzTGhQWVdsRmdpTGhkRjZ5blI0djY1K2Q5WXVJVElhZWVYbDNUNTU4OVpVTG9aU0lUSVl1dlB6cVhtV2p5TVRFaFAxZ2YzL2Z6ZHNCTGc4aHk4REMxQUVTRTEzbU5qR05QTWw2WmlRbXVzd3JQV1lnc1NpV1pVa29XVm9QU0RrMXRYUnh2ZkdXMFVmM2tjQzF1ZXRCYTE1RVl2bFR0RUxUdExhamx5LzVSZVRDNkpNaUl2TGs2SVc2alp1Ym01dWJteUxpOC9sOFBwK2VkOFJBOGxVNWUvblFpSEt3TkEzVmZJYVJRdHl5TE11eXZ4T3ByQnp1YzJSclY1Q1k2QXFYaVRrZzUyVVBrWmpvQ3UvMG1PRzBVa3F0SndJaUVralVGYkoxSy9YN0hKNjRWWTFGYi9PbU92c0pqOWhZTG83YW55anY3cjRoSWlKdjdON1ZFQmZRekJvNmNMQTBDZFJpaHBHQ1JHdTVady8yVVNvL1BsK1pVYVIrYXplUW1EREVZTld5SkNZTW9hM0g3RHpYdGV6R2NxUVlXcGdVRWZGZnVueTN1Q0VpRzhXNzlxZE93RlBLYzR2Mk1qU3MyaSsxUGN0emkwM2lySzJNUjhNaUVvNk9yNnpWaXRsQ2RucTZkaHEyT3JWa09CcmIyaWszYnUwNEVoUG1HS0JhbHNTRU9VN3NLSnN1UFdtcXEvR3llNnVKNTI3ZEVia2R1UzNQUEo5Ym1KeDlWaUtSaUR4OTVXYUt4SVQzL09Cdi83TDlZT2lrZWRacmU0ckluLzJqWHpxMnZka01JK1hnTmFYU2hiZzFsU3F0MTAyWlBqWTNFMmk5dFFOSVRKaGxRTWJMa3Bnd3k1Qmx6QlVtTHEvOVN1Vm1qend6dVpETExiaHFFTkE1SXlPNlR1YllzempiczRmTVZKNExCQUlpRWs2WGR1SnJaYW1VcTRWNDltSTYzV3ByWjVDWU1NdVFvU2RaejRqRWhGbjA5WmdkcCtuYUw4QUV3ME1IRHBiamNack5NRkpUWGx1Umk5VkMxc3BHanc2UHJkc0t3SGJnYUFIUVNicDZ6Qzdndmw4WUlPZUdOYVZac3hsR3J1MU1CZWVMSXFGa2FUMHNVazdacXhrckk3RzhhdGdLb0daQXpzc0NadEhXWTNZZTUyVXhRRWFHRGh3c1RVTWRuMkdrT29OSVpUQnNiVUlSZSthQ2hxMEFhalJlKzlWc3Nqejd1Y05uR3liSGF6Ni9IakR3TlBhWW5VWXRpd0V5TXZ6UXdkTHJWZ045VGxzdDIzU3l2UExhOWx4SktWV2FXMWtxMkhlQlY2cDJjOHdXOCtzQk1LakhaSXdCQnNnNXZzc0V2T2VQLzFQbEFxaS8rODllYkwvbmwzLzljMjIybHRkV3hxUHJJaEtPamw5Zkt5ZXFYNExZbDJxV3RzZWpDU21uWkd4R1JDUjhMWmxkSzVkM21yOEVnRUU5SnVkbE1VRE9EUjA0V0hyZGFxRFBmZkpuWDdRWDYwRGFMN1U5UC9telRhdmV1c255YXM4RkV1dlJyR1hWcnNQY3Fwc1R1c1ZMQUdqdE1WdU81Q21ucGxxUDlqbjkrQjlxV1F5UTg4TVBIQ3k5YmpYUTU0WWVPRm1hMmRvdWlZZzlXVjZOZlErK3lwaUNRR0p4ZkQ1b1daWVZYQm1iQ2JSNENRQjlQV2JMa1R5RmVIQysyR0tmY21ycXFyeDB5cXRNcUdVeFFEZ3ZDM2lRZGFBY0xNZmpOSjhzcjdDMElrR1JjRG92MllKVXI5dk14MktMaVVENytmV0FnZmE3bDMvTlhrN3NKV3Q3L3U3bFh6c2VwOFdkTXFVUXowWkx5VkR6ZlFwTDg4WGlmUER3SXMyMkdDK0xBWExlbk5FL3dPQ3dkSDM1MFd5eXZIVDQydHoxb0RVdklyRzhxazJXRjh1cjlQR1hBS2o1cVZkL3puNXcvcVRUbnJVOVJlUUxsLzdqc2UzTjdwUlppR2VqNmJTa3JqZmRwNUNWdkZKaEthZW1ycWJLNFpOT3pWTExZb0NjYS9IRkpJQWVHbnFvN1ZhWjRiU3lhMVN4Sjh1ci9Lc1N0VDJPckRTK0JFQ052aDd6K0oweXk2bnJtVXd4a3hFUkVVdnlwYkZtZDlNVUNjek1qYStkL0FZOXFHVS9GL3hEdlFHZi9kRy8waHRRUkZiZmVrSnZ3S2ZPZlZOdndLLy9yZmZyRFNnaTc2cGh2UUZMNzN5LzNvQXVQY0xnMTliK2JmQzM5QWFjK21IOVE1aSsrSmJtdy82ajUvOVNiOEJ2K3Q2ck42Q0l2SDF3WG0vQXY3ai9QWG9EdW1UcHEyWDd6MDk4OEN0NkE3NTg0YmJlZ0NKeTk4R2JlZ00rTWFTNU03cjcyQjI5QVVYazYrL1QvT2ZvSy9kK1FHOUFsM1QxbUlHWnVhMmxnb1REaGV6VzNEWDdER3YxRTJiMTJ4TXA3eHpkWjh4ZWxkSzJYRXkwankrY2w4VkFPZDlxZ25VQXZXTXhLQjN3SG0wOVp2UEJQKzMyRVVtOE5EWmxXZE8xMFVEdFVjdGlnREFwQWVCQlEvYzVMd3Q0anNZZXM5bmduOGFWaHRFK2dXUERnZHFnbHNVQWVVVGJOU1lBdEdrNktRR0EzaktveDZTV3hRQTV6N1ZmZ1Bjd1hoYndJSU42VEdwWkRKQkh6Zm1VQ1F3T2FsbkFnd3pxTWFsbE1VQWVHYjdmNnlZQWFEVDBnSXUvQU04eHFNZWtsc1VBTVdqMER6QkFPQzhMZUk5QlBTYTFMQWJJSTVZeG56S0J3V0Z4WGhid0hvTjZUR3BaREpCSGhvekpUR0J3V0ErWitCbndISU42VEdwWkRCQ0RScklEZzRQenNvQUhHZFJqVXN0aWdCajBqUWt3UUI1U3l3S2VZMUNQU1MyTEFmS29PZCtZQUlQRG9wWUZ2TDBuSFBrQUFBeTJTVVJCVk1lZ0huT28xdzBBdXVjUjY3NkRwZGV0QnZyZGc0ZE9GZ0NkcExISExLZW1MTXVhU3BXYmJJZ1hXdTVUdDdVOWw3WHMzbW9pRW9rc2J4eDdLckc2NXk2eWZrTWZMdGxMcnh1Q25obVlXcGJFaEZFZVBIQ3ltSWZFaEVtMDlaamwxTlh0UmFYVTR2YlZvOVZzSVI2Y0w3YmNwMjdyU1Z5T01mRFBwbTVLWXFXMnZyZWFlRUUrbjh2NTNZWFZyejRoaHo1Y092aGFzSWVOUWE4OGFnM0l1UndTRTBZWmxERUdKQ1pNTXZYVW45c1Avdmd2bm1xLzV5Yys4dFUyVzh0cksrUFJkUkVKUjhldnI1VVRpWUQ5ZkNHZWpaYVNXMHZOOTZuZmVpSzk0MlUzVm03ZHVTUFBSVzQ5ODN4dVliTDY3TVRFaFAxZ2YzOWY2OXRoNExnOGhBeWErVmtyRWhPZDVmWVFNdklrcTNza0pqckw1U0cwdFZ2NWxQV0lkZG85UldSODlQaVhET05qOXFlaDROajRUdlc1UWp3YlRhY2xkYjNwUG8xYlQ2QzFsdDBveXZPNTNLVHNyU1plV04yYm5LMzhiSnVibXlJeU1USGg4L2xFUkw2bDh6MHhVQ3FIa0ZPUFdnTjVlNkZUSnVaYlBXd2l6T1l5TVFkMDhPc3BFL092ZXRoRW1NMHpQZWJXZGtra0lGTGEzcElaRVJFcHA2NW5Nc1ZNUmtSRUxNbVh4dXIzdWRpd1ZhWEQ3ZCtnSTlkKytTOWR2dENKdUM3VWYwWEMxeVVENjFGTE9WaDYzV3B0U0V4NGszcnd3TUhTNjFaclEyTENtM1QxbUlHWnVhMXNRVVFLMmEyNUdYdUFRU0N4cnBSU3FwUU14ZklxSFQ2NlQ3aGg2NGxOMVZyTFBqbDZ0N2doSXZMR3JveDZiZ0RRd2RlQzl0THJocUJuSHJHR0hDeTliclZySkNZOFR0KzFYODB1bDdhZnF6M2JmcldMU0V4NG03WWVNNUJZbEduTHNxNlB2WlFJdEppYzRPZytaK1cybjk1WWZ1N1duZHMzN0lzdy9iT2ZIMzA1RW9sRWlxSERzVCtBWnp3aXd3NldYcmZhQ1JJVEJsSDNIemhZbWdScWVybDBlVzE3cnFTVUtzMnRMQlZPV3Uwd0VoTUcwZGhqaHROS0tiV2VDSWhJSUxGK2VLYTFicVYrbitOYjIzTTdYblp5SVpkYk9GejF6Nlp5c3k1REFwMXkzakt5TUhXQXhJUkJmdS90LzJJLytBZm4vMG43UFgvLzNmL2FabXVyeTZYdGdYaWw3ZkZvUXFUY2RyWERTRXdZeEtBZWsvdCtZWUE4K3VFN3ZXNENnSmJhbDZxbjBPeHk2VUJpUFJxM3JPbFlYcVZQWEFWUVpWQ1BhZjVZUUFBQVJDcG5ZTVcrRkxxbW5OcUpLcFdYYVh1UVh2dFZBT2FobGdVQTlJTm1sMHVMRkpaV0pDZ1NUdWNsV3pocEZZQ0JxR1VCQUgyaDZlWFM0V3R6SzBITHNxeHBpWVpQV2dWZ0lNYkxBZ0Q2UkRpdGF1TmVBNG4xZE9WZlZYZFpWL3RWQU9iaHZDd0FBQUJNUlMwTEFBQUFVMUhMQWdBQXdGVFVzZ0FBQURBVnRTd0FBQUJNMVlONURQNzEvL2lNM29ELzVxLzFWK1RmZStscmVnT2VHM3FvTitCVGozOUxiMEFSVVdKcERxZzBCMFRueFAvM1Qrc04rUFpiaitnTktDSS8vZkV2NlEzNCtydmZwemZnUjgvL3BkNkFJaklrQjNvRC9zQTUvWDg5MENHL3V2a1A5UWI4dGZlOW96ZWdpUHo4RC82aDNvRGFqL2tIU24rMTg5alFQYjBCUDNMdW0zb0REZzdPeXdJQUFNQlUxTElBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk5SeXdJQUFNQlUxTElBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk5SeXdJQUFNQlUxTElBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk5SeXdJQUFNQlUxTElBQUFBd2xjdGFkbTgxRVlsRWxqZU9yaWRXOTl5MkM0QnpKQ2JnUVNRbTBCRXVhMW4vYk9ybWxhZXJhM3VyTCt3K204dmxudDE5Z2R3RWVvZkVCRHlJeEFRNllrUmpyTDFYWDdrUVNvbklaT2pDeTYvdXpjNzY3ZWNuSmlic0IvdjcreHJmRGdPSVE4Z0JFaE9keGlIa0FJbUpUaHVjUTBobkxTdHlZZlJKRVJGNWN2VEM3dUd6bTV1YklqSXhNZUh6K2JTK0hRWU9oNUFqSkNZNmkwUElFUklUblRVNGg1RGVhNy91N3I0aElpSnY3TjdWR2hlQUN5UW00RUVrSnFDSHpscldmK255M2VLR2lHd1U3MTYrNU5jWUdZQmpKQ2JnUVNRbW9JdmJNUVlieTgvZHVpT1NHTDJabXZYN1o1K1ZTQ1FpVDErNW1TSXhnZDRoTVFFUElqR0JUbkJieTA0dTVISUxMVmNCOUFTSkNYZ1FpUWwwQXZkS0FBQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXF0L2V3ZFdEMER3LzBCdno2ejN4WGIwQVIrWC9iSDlJYmNPUXR6UjhiM254ZC93MjgzN3hnNlEwNC9MYmVlQ0tUdWdPaTZxa1Bma3R2d0M5ODhyL3BEU2dpdi9PZEg5QWI4TS92ZlovZWdML3hOZjNINk4vMy9abmVnUHNQSHRjYjhETjZ3NkZPOEY5by91M2Z1UlhVRzFCRWxqS2FENEhoZC9YR2t3OTk2UzNORVVXKysrSEg5QVljdnFlNU92cXBOYjN4dkl2enNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBRENWN2xwMll6a1NpVVFpeXh1YTR3SndnY1FFUElqRUJIUVkwUnR1UTBLNTNJTGVtQUJjSWpFQkR5SXhBUzMwMXJJYnhSczNiang5NVdacTFsLzM3TVRFaFAxZ2YzOWY2OXRoNEhBSU9VSmlvck00aEJ3aE1kRlpnM01JYVIxanNQZmtYQzZYZTNiM3VjVHFYdDNUbTV1Ym01dWJJdUx6K1h3K244NTN4SUR4VmZXNklVWWhNZEZoSktZVEpDWTZiSEFTVTJzdDYvZjdSV1J5NGVibDNWZjNUdHdiUUZlUW1JQUhrWmlBSnAyWXgyRHYxVmRrMUgveWZnQzZpTVFFUElqRUJOelNPVjUyYnpYeDNLMDdJazlmdVptYTFCZ1hnQXNrSnVCQkpDYWdpODVhMWorYnlzMXFqQWRBQXhJVDhDQVNFOUNGZXlVQUFBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1KWE9lOWllMGgvOXpyVlQ3cm0vdisveitUUyt0ZmNEZGlLbTl3TjJLQ2JPcFBEanFWUHVlZXBmbHZhQThqTzZBNTZlOS9QSWlKOGFaL1Y3MzdsMXlqMTdlVVQ5cE82QXArYjlQRExpcHpZZDUyVUJBQUJnS21wWkFBQUFtSXBhRmdBQUFLYnE2bmpaaVltSmJyNGRnTk1nTVFFUElqR0IwMUllOW9sUGZHTFFBbllpcHZjRGRpZ21Pc1Q3UjVRUmg2ajNBM1lvSmpyRSswZVVFWWVvOXdOMktLYlJHR01BQUFBQVUxbEtxVjYzQVFBQUFIQ0M4N0lBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk41cEpiZFdJNUVJcEZJWW5YdjZCUExHeUlpZTZ1SjJ1T3pocXk4eWc1UmpYK21nSTA3SHczbExQS3gzZHkydHYxL29OTWZmMjgxVWQxTHgwL2QyQ3A5dnlOMENJbEpZcEtZSGtSaWtwZ2s1bEc5bmtoQkthWGUrT0lYWDFOS3FkZGUvUFNMcnltbGxIcnR0ZGNhZC9uc2k2OGRlMkViUnlKVVgvM2FpNS85NGhzT0F0YnQzQkRLZWVRanU3bHM3UW4vZ1E0YitkcUxuLzUwSlo2bW43cmgxNnIxZHdUOVNFd1NrOFQwSUJLVHhDUXhHM2ppdkt4L2RuWlNSR1F5OU16ZDNUMFIyU2pldUZIM2ljbUJJeEgyWG4zbFFtaFNSQ1pERjE1NTFVWFVZNkUwUlhiYjJ2Yi9nYzRhdWJGY0ROMjg4blN6Q0U1LzZvWmZhNmQrUjlDRnhDUXhTVXdQSWpGSlRCS3pnU2RxMlVPamx5LzVSZmFlbk12bGNzL3VQdWM0T1JzalhCaDlVa1JFbmh5OTRMYUpEYUYwUk5iWTJ1Yi9nV2NQdUxGY0RDMU1IcTdyK0trYld0WEIzeEYwSXpGZHhpUXgwUWtrcHN1WUpHYS84Rkl0dTdGY0hKMzFpNGpmN3hlUnlZV2JsM2NkZnQ1b2pIQjM5dzBSRVhsajk2N2JWamFFMGhGWlYydGIvZ2VlTmVEZTZzdTNiOStJUko2N2RlZjJqY2p5aHA2ZnVxRlZIZndkUVNzU2s4UThhMHgwQVlsSllwNDFadi95VEMyN3NSdzUrcmxHWk8vVlYyVFU3eVpvSllMLzB1Vzd4UTBSMlNqZXZYekpWY1NHVUJvanUyMXQ2Ly9Bc3dmMHo2Wnl1Vnd1ZC9QSzA4ODhuMXVZMVBwVE4veGE5ZitPb0JPSlNXS1NtQjVFWXBLWUpHYTlYZy9ZVlVxcE43NzQyVTlYdmZoYWJiVTJvdGtlVTEzL3hDa0ROa2Fvclo4cFlNUE9UVU9kTlhMOWJ1NWJlOHIvd0RQLytIVkR5ZDMvMUEydDB2czdRaWVRbUNTbTgwYWlZMGhNRXRONUkvc1U5N0FGQUFDQXFUd3p4Z0FBQUFBNEkycFpBQUFBbUlwYUZnQUFBS2FpbGdVQUFJQ3BxR1Y3cjV5S3A4cTliZ1NBbzBoTXdJTklUQnhITGR0N3BlMnRYamNCUUNNU0UvQWdFaFBIVWN0MldTRnV4UXVGdUdWWjFsU3FMQ0tGK0hTbU9CKzA0b1hLMWxScXl0NW03MVhaVFJwWEFlaERZZ0llUkdMaWRIbzl3ZTFBS1NWRElpSVN5eXVWajBrb1dWS2xVajRaQ2lWTGgxdnRGWldQMlE4cSt6V3NBdENHeEFROGlNVEVhWTMwb0h3ZVhJSEVlbjdieWtiVFlaSHlXRWhFSkJBSU5tNU5CRVNrdkxOVm5BOWE4eUlpRWl1VjVjaXFTS0FIelFmNkU0a0plQkNKaWROaWpJRjN4ZkxWVHh6cDhQRlZBRDFCWWdJZVJHSU9NbXBaandwY0hNOWtDeUlpVW9qSEN3MnJ2V3daTU1CSVRNQ0RTTXhCMTlraEREZ3FIeE1Sa1ZpK2ZxU1AvV1FzWDkxYUhkMVRXYTErdkd4WUJhQUxpUWw0RUltSlU3S1VVanBMWXdBQUFLQmJHR01BQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBRERWL3djendEYWJkOEVvR2dBQUFBQkpSVTVFcmtKZ2dnPT1cIiAvPlxuXG48IS0tIHJuYi1wbG90LWVuZCAtLT5cbiJ9 -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA5kAAAEzCAIAAAA0LFDQAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO3df2wj6XnY8Wck7d6dfT7XDhPH4cm3Z5PbQFFqJFYtLJUNekhdlBJMEI2stNdkN2hRMvePKTlZF+mp+SPdTYpTcSIbFFuyaIDbBtdYVlKGjcjmB7BoruKdbAVpAUVORV52HZ1qw5HjxHf23d7u6u0fQ1IURVLSzEtyXvL7wQDL4QwfvlrNo/fh8J13LKWUAAAAAAYa6nUDAAAAAIeoZQEAAGAqalkAAACYiloWAAAAphrp2jtNTEx07b0wCDY3N3vdhH5AYkIvElMLEhN69Xdidq+WlbP/V+7v7/t8Po0N8H7ATsT0fkAHMflDrxGJ2ZOY3g/oICaJqRGJ2ZOY3g/oIGbfJyZjDAAAAGAqalkAAACYqqtjDGyfGvqM3oAjH3tab0AREcvSHFD3PSneHf2A3oAicnBO92cb3TfiuP37/1JzRFQZkZjq0XOaIw5pPubf+fDjegOKiNKemLr9z/9+rddN6FvaE/PhT3xCb0ARGX77od6A737gvN6Af/20/mrn/Ftev9XUl3/9c71uQpd4/U8kAAAA0Aq1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMJWOWnZvNbG80XIVQE+QmIAHkZiAbu5r2Y3l527dabkKoCdITMCDSExAvxGXr99YLoZuXrm70nzVNjExYT/Y3993+XYYcBxCp0Riops4hE6JxEQ3Dc4h5O687MZyMbQw2Wq1anNzc3NzU0R8Pp/P53P1jhhsvqpeN8TbSEx0F4l5KiQmumtwEtPNedm91Zdv375z+7aIiETkypW79avP55okKYBOIzEBDyIxgU5xU8v6Z1O5WRHZW02sjKYWJkVmj64C6D4SE/AgEhPoFObkAgAAgKncXvslIuKfTS20XgXQEyQm4EEkJqAb52UBAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgKmpZAAAAmErHPWzPyJr8O3oD/nn4cb0BRWTovuaAw/c0B1TDmgOKyPA7mgNq/29E5xz8+I/oDfjVH3tMb0AREaU5nvbEPOhAYmrPo6EDzQHROd+MhfQGfDDzLb0BReTNu+/XG1ANa071ofu6/3aIjLxpaQ74tt54A4TzsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADDViKtX760mnrt1R+TpKzdTs/7aqog883xuYVJHAwGcFYkJeBCJCXSGu1pWLn0+N+uXjeXEq3uzs/LG6OdzOb+IbKyuPqmleQAcIDEBDyIxgY5wV8v6/X4R2dsdfXbWLyKTlc+VG7tyqe4j5sTEhP1gf3/f1dth4HEInQqJie7iEDoVEhPdNTiHkMvzsrKxHLlxW+SZ0dnJWi42JKZsbm6KyMTEhM/nc/l2GHAcQqdEYqKbOIROicRENw3OIeT22q/JhVwud/PK3eJG7amNXbnkdxkWgBskJuBBJCbQCVrmMfCPXh6tjfYhMQFvIDEBDyIxAc1cjTGofF1iX4NZfa7h6xIAXUZiAh5EYgId4qqWnVzI1TKy9tzsrJuQANwiMQEPIjGBDuFeCQAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU410/y2/ek3pDfj+9/yl3oAi8o1vPKE34PndR/QGPDinN56IiBrR/KsR3fHQOXef0/zbeu97vqU3oIh8+5vv1Rtw5Bvn9QZUQ/oPejWsOaBFYprjb/7e23oDPnrQgXNYluZ4576t+aB/8PiB3oAi8uCj7+gNeF/p/n8cGJyXBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWxeAop6aselOp8pHn44XjrynED3e1H0+lyoVUqlzdUqfZ6wGcoFVidrMBXX9PwOtO2zPWPVW/a1e7SHe17N5qIhKJRCKJ1T0REdlYPrIKeEogsV5KhiSWV0oplY8V54Pxgv28KiVDkrne2J+VU9czEkqW1HoiUIhPbyVLSr0kV6dXRCScVqVkKJQsKVspOdaLH6oZEhMmaZWYXVKIB+eLXXknEhMmOV3PWH2ukJVYLJM9zNyudpEuz8te+nwul8s9f+GVV/dE9lZ3Q/bqrZUNPc0DOiZ8LRmSrZ1ajs4lkzK/dKQLLa/JXDJ0uD5+MSASSKzn55rECyQS4Y419oxITBirMTE7/4bpUn2WdxKJCeOcomcUESlkJZqOHilmG3S0i3RXy/r9fhHZ2x19dtYv4p+dnRQRmQw9c3e37nPmxMTExMSEiOzv7+/v77t6Rwy2/Sr3ocqpq/PF0NxM7VOlXEwsHk3EwtL2xZnaWjgay0zbX5KEE4cfRqvRUh4aYEBiors6lpiVbznjqULBLm4r31vGU6l4qmyvxAuVp+3vO2vfbNrndgtxK55KTdlbG78Yrax367wsiYnu0pKYJ/SMtvLOWDQs4ZbFbKe7SLfjZTeWI5Hnbt0qHv1UOXr5kv9wbXNzc3NzU0R8Pp/P53P5jhhkvio3QTLTlmVZwZW5I1+QiIiEryW3at+mlFPZsWv1HyPDaZWPZaaPDhEqzgftznDbTZO0IzHRTZ1KzMLSylxJKRXdvr4jIuXU1PWxklJKRbfntyopKSJ151bLqetbyZJSpWRoa6dcTk1NZySzIi8ptZ4oxe1X58fnr6bKUk5NTUteKdW107IkJrpLS2Ke1DOKiJTX5GJYpEkx26Uu0m0tO7mQy+VuXrlbl5oby8XRWX+b1wA9FcsrlY/ZAwYaBBKL45VvU8prEm08+yrhtFKlpMwHa+VsZTCQhwbLigiJCQM1SczgmMwHralUML2eCEh5bUUqJ2yDYy3Kz0BifT0hqangfLG4XQok1vMxiS0mAiJS3tmy+9XpjBS3S+W1FUleC4tIYGauW8UsiQkTndQzltdW5qcty06uo8Vsl7pILfMY+Ecvjz5pP9xYjhRDC5M6ogKdE07nZbrZ9SXhaCxzPVWWwtL2xaMfPQtxe/9AYj0fK26Xjmz00mDZGhITpmlIzEBiXanS3Erw9JdAF+KWdVVean6utXJ5mVIq3cN8JTFhnNY9o4iU12SxmlmqVHcO91Cnu0hXtWzlIsxIxP5YubeaiNy4LbdvRCKRZYayw9taVbPha0mZvzrV5FuU2tWc5Z2tZhHLqbg35vUhMWGuI4lZSKXKEkisq3xsa6ccuDheXFlrkWOl7WJxPhiPZzOx/Pqx80YiIoGL49UzRoV4vBC4OF48vKSlG3MnkJgwV5uesTrAwBaYmZPmadrJLnLEzYsnF3K5hcNV/2wqN+u2QUDHlFNTwfmiyLQleZUOh9P5rGVZIqFQqFgsisyvJEvriUBiMTafja4HavtL0FpJlhbHkoty1bKKIhLLq3Ahbk1nRCRozVfih5KlRO9+ukMkJozSKjFj+fzYylVrvpJyAZF0PmtVEy6UFBEJR2PT01ZGJBQKhZIvpRMlsaatjIRCISlOxyWWyYhkpsZK64lALbDE8iotEs7HrGkrYzcilu/4qVoSE0apJma7njEWk0ymKLIiJfsjZDl1db5YlKC1UulXu9NFWkqpDoVuMDExYY9n/9u//ct6I7//Pe/oDSgi3/jGE3oDnt99RG/Ag3N644mIqBHdB4PueK///OfsB7XDCS7V/ic/9oUbeiO/9z339AYUkW9/8716A45847zegGpI/19UNaw5oKU9MT/X5cQsp6auykvNz7/2h8PE/M1f0Rv50cfe1RtQRL67+z69AUfe0nwjpwePH+gNKCLWBzX/iVPK0hvwzj/9RftB3/eY3PcLAAAApnI1xgAAgC6r3KkrGL/Y02u4AHgEtSwAwCThtFLpXjcCgGcwxgAAAACmopYFAACAqRhjgAHyqaHPOHjVHxx8UXtLANQcfP2ig1cNff+O9pYAqDGox6SWxQCxRjjgAc+5rx44eJXmaQ4BHGVQj2lMQwH3rGEOeMBz7lHLAt5jUI9pTEMB96xzHPCA59yTh71uAoBGBvWYPWjou29rvmPV2yP6/w4+8rjmO6M88aPf1htwSPP9QURE3nxH8z2QznXgV+OKOd+YdN+5c5p/WZb2u0uJPPqE5hvtPPH9f6M34PCQ/tsLfedenyfmPaX/P61vPPiu5r9aP/iRN/QGFJGS7sP+sXNOTtW38aH3vqk3oIi88eb79QZ88NBjl+Ob02Ma01DAPYNG/wCD4x3dt+4E4J5BPaYxDQU0GNF9Y3sArt2jlgU8yJwek1oWg8ScT5nA4HhHkZiA95jTY3pscAbQUcNDThYAnXRPDTtYmoYqp6Ysy5pKlY89d/hsIW5ZlmXFC0d2qV8FICb1mPTTGCQjI04WAJ10T51zsDQJVE5d3V5USi1uXz2sZstr23MlpVRpbmWpIFKIZ6NKKZWX6Wr5WogH54td+lkBc5jTY9JPY5BwkhXwnmcu/F/7QeHOD7XfM/z0n7bZWl5bGY+ui0g4On59rZxIBOznt7ZLIoHS9ng0IeWUjM2IiISvJbNrZQkHCvFstJTcWnL/cwD9xZwek1oWA0SZM5IdGBzZ13+k+vCE2cfq9pTox/7k2PbxsaCIiATHxms3uA0k1qNxy5qO5VVapCxbK3VlrhTi2Wg6Lanrbn4AoB8Z1GNSy2KQmPMpExgc7zQdMOCEfQZWpLS9JTPVJ8upnahS0bgVL6h0OLE4bgWteREJJUszqauZTDGTERERS/IqHdbUEsB85vSYxjQUcE+NDDlYet1qoM+9o0YcLMfjBGbmtrIFESlkt+Zmamdel1YkKBJO5yVbEJFwWiml8rHYYiIQSKwrpZQqJUMxClngCI09ZrOLMqsbKuPW7V1q12BWLtFs8pJm6KcxQNTwsIOl160G+ty9g3MOliaBAolFmbYs6/rYS4lAtZcMX5tbCVqWZU1LNFyb1CAbpXIF2tLWYza9KFPk6GWXgcR6KRmqvWLHvkRzfH7pNDOMMMYAA4STrIAHNZ+UwJFwWql05XEgsZ6u/KsStT2OrEjDrgBqfv9Lv2Q/+FTohPHkf1BcbLO11UWZbS67DFR2Ckdj13fKEg402acetSwGyTC3FwI85x73SgC851OXb1QendR1Hu4p8gevPH9se7OLMk952eXY4XChNvgLggFywHlZwHuaDxgA0FP6eszjF2WWU9dPcdllIZ69mD7NVyYuG7qxHIlEIpHE6t7hc3urieUNd2GBjlDDloOl1612gMSESe4djDhYet1qB0hMmERXj9nsosxTXHZZiJ9+WLurWnZvdTeUy+Vyz1+4tVLNxY3l527dcRMU6JgBqWVJTJhlQGpZEhNm0dZjNr0o85hCPDhfzExPpcr2pAbTGclMN9xtuhVXtax/dnZSRGQy9Mzd3T0RkY3lYujmlaeP7jYxMTExMSEi+/v7+/v7bt4RA26/ytnL1ZDlYGkaqvkMI/U3em+8CXzrSUl0IzHRZS4T854acbDo/RG6gMREl3mnx7RnwltPBMS+0rJ2trVuxd7H3ql62lYpdaq58jQNhhi9fMlv5+XC5LGNm5ubm5ubIuLz+Xw+n553xEDyVTl7+cE5y8HSJFCLGUYKEq1LvZmX7ClFVtbKrV/SWSQmusJlYr77cMTBovdH6CoSE13hlR6z83T8OdhYLo4uLMje6su3b9+5fVtERCLyfK5JkgK99Ee5a/aDy9ETbr7+SvZam60tZhgpZKenp0PJUuWzZyAgIuWdscVEoPWkJB1EYsIQ76pBmsWZxIQhlDkXS7uuZTeWI8VQbkFE/LOp3KyI7K0mVkZTpCW858d+8t9VHp00CvZwT5H/9Vu/cGx7sxlGysFrSqULcWsqZZezhbg1nRGJXUyEw81f0jkkJsxxz+iTrGdCYsIcBl0u4vLar0Tkxm25fSMSiXAhJrzvYNhysDSLtLVdEhF7hpEq+0RsOF2a214ri1RG/5SS9gWcTV/SGSQmzHL/YMTB0utWnxmJCbPo6zE7ztWfg+rnymPPLriJCnSKrstFAjNzW0sFCYcL2a25aw2jBcprK3Lx8MZCgYtzY8ETXqIZiQmzvHswEGMMSEyYxaALLNufly3Eu3HVNdAl2q7KbDbDSHXegqvyUjpcm9LAsrIXK5du1r/EHRITfeX+wZCDpdetPo7ERF/ROI9Bp7WvusNpFUxNWVZRpNVktoA5NH4t2eS27+Ej93mv36HVMy7enMRE/3jXwAEDzZCY6CsG5eWJH22rk3xFs0fnygTMo4acLJ5EYqJ/3H845GDpdaubIjHRPwzqMU/1tvYNGELJklIvyVXyE6YyaCT7aZCY6A/3D4YdLL1udUskJvqDQT3mieNlKwMAj96L4SVZIjdhHjXsZPEeEhN95cHDYQdLr1t9HImJvqKxx2x528vDG9rauxzesPZMd8o86bxsLF+77Vid0namMr8QYJB+qWVJTPSVBwdDDpZet7oZEhN9RFuP2fK2l4V4cL5YeRxIrJeSoRNf0txJI3sz2UI6fGwEezitGNUO83j4a8kzIjHRR7w6+PXsSEz0kT/5D5Xp4j7+2eX2e/6ff99uYrlWt70sxLPRUnKr2V04z3qnzPZ/QcLR2NHoqVShxa6AAYYcLZ5DYqKvHBwMOVh63erjSEz0lY/PL9vLib1kbc+Pzzeteutue1l7rhDPRttM9tHsJa2dMF42m8lMW4eC89uniAl41MGwk8V7SEz0lfsPhh0svW71cSQm+oq+HvP4bS/LqeuZzLRlBeeLmem6UbJtXtLOSedlk8mSOlRKjp0iJuBRBs0w0haJib5yoCwHS9NQza4Xqd7GpPps5RKtSvdZWdMx1wCJib6iq8cMzMzZt3IvZLfmZuzRAtXZ60rJULPJmJu9pJ0TzsvuSF2Mcurq9kVG/cBc/XLtF4mJvnLw0HKwNAnU9HqR8tr2XEkpVZpbWSrY32wqpVRepuMFKad27LXx+SXX4wFITPQVbT1msztlHleIB+eLmWn7Y+UZ75TZ6tqvcmqqcnXZ/Hzd06FkWcIub8D5gQ98x12ARt/+0w/qDSgigU/+hd6AH33fvt6AX/nrD+kNKCLfefec3oD3dAd0yZMnWc+kg4n5Pe/TnJh7r3+v3oAi8sM/9FW9AX2PvqU34Ovf9ukNKCKWpfQG9FpilucW7Qcf+81fab/n6//4X7WL0+J6ka3tkkigtD0eTUg5JWMzIiLha8nsWjlQ2SkcjV3fcZ5FHUzMS2OvuwvQ6Mt3n9IbUER+5CO7egP+xPd8RW/A8jv6e8wHLb4ccOyxkQd6A7qkscdscqfMYysNt8Y8050yW9WygcS6SkghlQqeePkYYAplzh35WiAx0Yee/o1frT48oTio21Pu/PQvHtted73ITvW5QGI9Gres6VhepUXKsrXS9LLosdN8k9kKiYk+ZFCPecJ42Ya05KpMGK1vxsuSmOgn6sBysDSL1PR6EXscgT2mQAKJxfH5oGVZVnBlrFa9FuLZi+6LUBITfcWgHvOEt62MiueqTPSFfhkvS2KivxxYTpZjml8vUlhakaBIOJ2XbEHsry6Vysdii5XKsxC32k4OdHokJvqJQT1m+zPIhazkFZM8o1948iSrAyQm+opqeiGXA4HEoliWJaFkaT0g5dTU0sX1dPja3PWgNS8isbyqjWy1RxzUVjNWRppdTn0mJCb6ikE95gljDK6N7dR/RcI3JjCaQZ8y2yIx0Vesh5aDpWko+6SrfRfZQGI9HZbD2X9UOny4Uqlaa9sOn3KOxERfMajHPKHqLm3PM/Mz+oZBo3/aIzHRVzSNMeg5EhP9xKAe86QxBlvJkuKyTPQJNaJ5bqMeITHRV1qdZDUNiYm+YlCPecIYg/TixVLdOt+YwGgGfcpsi8REfzlwtHgOiYm+YlCPecJ9v+LT03xjgr6hhpWDpdetPo7ERF/ROF62p0hM9BWDeswTzstyd2n0FcvR4jkkJvqKdeBk8R4SE/1FX49ZTk1ZljV1eGvpug3VG9oe3cdea/qaJk44Hdww9XMgkWC6EZhLjSgHS69b3QSJiX5iPbAcLL1udRMkJvqJth6znLq6vaiUWty+erQyLcQr934+tk95bXuupJQqza0snWKkjjl3KAPcG/JiYQoMOE+eZAUG3d2f+wX7wYXM0gl7xq612VpeWxmProtIODp+ve4O0oV4NlpKbi0122fGvolfoLQ9Hk2c3FRqWQwQTw5+BQad9bDXLQBwzFP/+YXKo5NmjT3cU+Sr//zzx7aPjwVFRCQ4Nr5Tfa4Qz0bTaUldb7pPILEejVvWdOWmJidxecnZxnIkEolEEqt79vreaqJ+FfAUa1g5WHrdagdITJikX8bLnojEhEn09Zhb2/YEH6Xtrcoz5dT1TGbasoLzxcy0FS8c26ec2okqlZfp+GkmA3FVy+6t7oZyuVzu+Qu3VjZEZG/1hd1nc7ncs7svkJvwoiHlZDENiQmzWA+dLMYhMWEYTT1mYGZuK1sQkUJ2a27GHmBQveNeKRmK5VU63LhPYWlFgiLhdF6ynR4v65+d9YuITIaeeXl3T5589ZULoZSITIYuvPzqXmWjyMTEhP1gf3/fzdsBLg8hy8DC1AESE13mNjGNPMl6ZiQmuswrPWYgsSiWZUkoWVoPSDk1tXRxvfGW0Uf3kcC1uetBa15EYvlTtELTtLajly/5ReTC6JMiIvLk6IW6jZubm5ubmyLi8/l8Pp+ed8RA8lU5e/nQiHKwNA3VfIaRQtyyLMuyvxOprBzuc2RrV5CY6AqXiTkg52UPkZjoCu/0mOG0UkqtJwIiEkjUFbJ1K/X7HJ64VY1Fb/OmOvsJj9hYLo7anyjv7r4hIiJv7N7VEBfQzBo6cLA0CdRihpGCRGu5Zw/2USo/Pl+ZUaR+azeQmDDEYNWyJCYMoa3H7DzXtezGcqQYWpgUEfFfuny3uCEiG8W79qdOwFPKc4v2MjSs2i+1Pctzi03irK2MR8MiEo6Or6zVitlCdnq6dhq2OrVkOBrb2ik3bu04EhPmGKBalsSEOU7sKJsuPWmqq/Gye6uJ527dEbkduS3PPJ9bmJx9ViKRiDx95WaKxIT3/OBv/7L9YOikedZre4rIn/2jXzq2vdkMI+XgNaXShbg1lSqt102ZPjY3E2i9tQNITJhlQMbLkpgwy5BlzBUmLq/9SuVmjzwzuZDLLbhqENA5IyO6TubYszjbs4fMVJ4LBAIiEk6XduJrZamUq4V49mI63WprZ5CYMMuQoSdZz4jEhFn09Zgdp+naL8AEw0MHDpbjcZrNMFJTXluRi9VC1spGjw6PrdsKwHbgaAHQSbp6zC7gvl8YIOeGNaVZsxlGru1MBeeLIqFkaT0sUk7ZqxkrI7G8atgKoGZAzssCZtHWY3Ye52UxQEaGDhwsTUMdn2GkOoNIZTBsbUIRe+aChq0AajRe+9Vssjz7ucNnGybHaz6/HjDwNPaYnUYtiwEyMvzQwdLrVgN9Tlst23SyvPLa9lxJKVWaW1kq2HeBV6p2c8wW8+sBMKjHZIwBBsg5vssEvOeP/1PlAqi/+89ebL/nl3/9c222ltdWxqPrIhKOjl9fKyeqX4LYl2qWtsejCSmnZGxGRCR8LZldK5d3mr8EgEE9JudlMUDODR04WHrdaqDPffJnX7QX60DaL7U9P/mzTaveusnyas8FEuvRrGXVrsPcqpsTusVLAGjtMVuO5CmnplqP9jn9+B9qWQyQ88MPHCy9bjXQ54YeOFma2douiYg9WV6NfQ++ypiCQGJxfD5oWZYVXBmbCbR4CQB9PWbLkTyFeHC+2GKfcmrqqrx0yqtMqGUxQDgvC3iQdaAcLMfjNJ8sr7C0IkGRcDov2YJUr9vMx2KLiUD7+fWAgfa7l3/NXk7sJWt7/u7lXzsep8WdMqUQz0ZLyVDzfQpL88XifPDwIs22GC+LAXLenNE/wOCwdH350WyyvHT42tz1oDUvIrG8qk2WF8ur9PGXAKj5qVd/zn5w/qTTnrU9ReQLl/7jse3N7pRZiGej6bSkrjfdp5CVvFJhKaemrqbK4ZNOzVLLYoCca/HFJIAeGnqo7VaZ4bSya1SxJ8ur/KsStT2OrDS+BECNvh7z+J0yy6nrmUwxkxEREUvypbFmd9MUCczMja+d/AY9qGU/F/xDvQGf/dG/0htQRFbfekJvwKfOfVNvwK//rffrDSgi76phvQFL73y/3oAuPcLg19b+bfC39Aac+mH9Q5i++Jbmw/6j5/9Sb8Bv+t6rN6CIvH1wXm/Av7j/PXoDumTpq2X7z0988Ct6A7584bbegCJy98GbegM+MaS5M7r72B29AUXk6+/T/OfoK/d+QG9Al3T1mIGZua2lgoTDhezW3DX7DGv1E2b12xMp7xzdZ8xeldK2XEy0jy+cl8VAOd9qgnUAvWMxKB3wHm09ZvPBP+32EUm8NDZlWdO10UDtUctigDApAeBBQ/c5Lwt4jsYes9ngn8aVhtE+gWPDgdqglsUAeUTbNSYAtGk6KQGA3jKox6SWxQA5z7VfgPcwXhbwIIN6TGpZDJBHzfmUCQwOalnAgwzqMallMUAeGb7f6yYAaDT0gIu/AM8xqMeklsUAMWj0DzBAOC8LeI9BPSa1LAbII5YxnzKBwWFxXhbwHoN6TGpZDJBHhozJTGBwWA+Z+BnwHIN6TGpZDBCDRrIDg4PzsoAHGdRjUstigBj0jQkwQB5SywKeY1CPSS2LAfKoOd+YAIPDopYFvL0nHPkAAAy2SURBVMegHnOo1w0AuucR676DpdetBvrdg4dOFgCdpLHHLKemLMuaSpWbbIgXWu5Tt7U9l7Xs3moiEoksbxx7KrG65y6yfkMfLtlLrxuCnhmYWpbEhFEePHCymIfEhEm09Zjl1NXtRaXU4vbVo9VsIR6cL7bcp27rSVyOMfDPpm5KYqW2vreaeEE+n8v53YXVrz4hhz5cOvhasIeNQa88ag3IuRwSE0YZlDEGJCZMMvXUn9sP/vgvnmq/5yc+8tU2W8trK+PRdREJR8evr5UTiYD9fCGejZaSW0vN96nfeiK942U3Vm7duSPPRW4983xuYbL67MTEhP1gf39f69th4Lg8hAya+VkrEhOd5fYQMvIkq3skJjrL5SG0tVv5lPWIddo9RWR89PiXDONj9qeh4Nj4TvW5QjwbTacldb3pPo1bT6C1lt0oyvO53KTsrSZeWN2bnK38bJubmyIyMTHh8/lERL6l8z0xUCqHkFOPWgN5e6FTJuZbPWwizOYyMQd08OspE/OvethEmM0zPebWdkkkIFLa3pIZEREpp65nMsVMRkRELMmXxur3udiwVaXD7d+gI9d++S9dvtCJuC7Uf0XC1yUD61FLOVh63WptSEx4k3rwwMHS61ZrQ2LCm3T1mIGZua1sQUQK2a25GXuAQSCxrpRSqpQMxfIqHT66T7hh64lN1VrLPjl6t7ghIvLGrox6bgDQwdeC9tLrhqBnHrGGHCy9brVrJCY8Tt+1X80ul7afqz3bfrWLSEx4m7YeM5BYlGnLsq6PvZQItJic4Og+Z+W2n95Yfu7Wnds37Isw/bOfH305EolEiqHDsT+AZzwiww6WXrfaCRITBlH3HzhYmgRqerl0eW17rqSUKs2tLBVOWu0wEhMG0dhjhtNKKbWeCIhIILF+eKa1bqV+n+Nb23M7XnZyIZdbOFz1z6Zysy5DAp1y3jKyMHWAxIRBfu/t/2I/+Afn/0n7PX//3f/aZmury6XtgXil7fFoQqTcdrXDSEwYxKAek/t+YYA8+uE7vW4CgJbal6qn0Oxy6UBiPRq3rOlYXqVPXAVQZVCPaf5YQAAARCpnYMW+FLqmnNqJKpWXaXuQXvtVAOahlgUA9INml0uLFJZWJCgSTuclWzhpFYCBqGUBAH2h6eXS4WtzK0HLsqxpiYZPWgVgIMbLAgD6RDitauNeA4n1dOVfVXdZV/tVAObhvCwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABM1YN5DP71//iM3oD/5q/1V+Tfe+lregOeG3qoN+BTj39Lb0ARUWJpDqg0B0TnxP/3T+sN+PZbj+gNKCI//fEv6Q34+rvfpzfgR8//pd6AIjIkB3oD/sA5/X890CG/uvkP9Qb8tfe9ozegiPz8D/6h3oDaj/kHSn+189jQPb0BP3Lum3oDDg7OywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwlctadm81EYlEljeOridW99y2C4BzJCbgQSQm0BEua1n/bOrmlaera3urL+w+m8vlnt19gdwEeofEBDyIxAQ6YkRjrL1XX7kQSonIZOjCy6/uzc767ecnJibsB/v7+xrfDgOIQ8gBEhOdxiHkAImJThucQ0hnLStyYfRJERF5cvTC7uGzm5ubIjIxMeHz+bS+HQYOh5AjJCY6i0PIERITnTU4h5Dea7/u7r4hIiJv7N7VGheACyQm4EEkJqCHzlrWf+ny3eKGiGwU716+5NcYGYBjJCbgQSQmoIvbMQYby8/duiOSGL2ZmvX7Z5+VSCQiT1+5mSIxgd4hMQEPIjGBTnBby04u5HILLVcB9ASJCXgQiQl0AvdKAAAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqt/ewdWD0Dw/0Bvz6z3xXb0AR+X/bH9IbcOQtzR8b3nxd/w2837xg6Q04/LbeeCKTugOi6qkPfktvwC988r/pDSgiv/OdH9Ab8M/vfZ/egL/xNf3H6N/3/ZnegPsPHtcb8DN6w6FO8F9o/u3fuRXUG1BEljKaD4Hhd/XGkw996S3NEUW+++HH9AYcvqe5OvqpNb3xvIvzsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADCV7lp2YzkSiUQiyxua4wJwgcQEPIjEBHQY0RtuQ0K53ILemABcIjEBDyIxAS301rIbxRs3bjx95WZq1l/37MTEhP1gf39f69th4HAIOUJiorM4hBwhMdFZg3MIaR1jsPfkXC6Xe3b3ucTqXt3Tm5ubm5ubIuLz+Xw+n853xIDxVfW6IUYhMdFhJKYTJCY6bHASU2st6/f7RWRy4ebl3Vf3TtwbQFeQmIAHkZiAJp2Yx2Dv1Vdk1H/yfgC6iMQEPIjEBNzSOV52bzXx3K07Ik9fuZma1BgXgAskJuBBJCagi85a1j+bys1qjAdAAxIT8CASE9CFeyUAAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMJXOe9ie0h/9zrVT7rm/v+/z+TS+tfcDdiKm9wN2KCbOpPDjqVPueepflvaA8jO6A56e9/PIiJ8aZ/V737l1yj17eUT9pO6Ap+b9PDLipzYd52UBAABgKmpZAAAAmIpaFgAAAKbq6njZiYmJbr4dgNMgMQEPIjGB01Ie9olPfGLQAnYipvcDdigmOsT7R5QRh6j3A3YoJjrE+0eUEYeo9wN2KKbRGGMAAAAAU1lKqV63AQAAAHCC87IAAAAwFbUsAAAATEUtCwAAAFN5pJbdWI5EIpFIYnXv6BPLGyIie6uJ2uOzhqy8yg5RjX+mgI07Hw3lLPKx3dy2tv1/oNMff281Ud1Lx0/d2Cp9vyN0CIlJYpKYHkRikpgk5lG9nkhBKaXe+OIXX1NKqdde/PSLrymllHrttdcad/nsi68de2EbRyJUX/3ai5/94hsOAtbt3BDKeeQju7ls7Qn/gQ4b+dqLn/50JZ6mn7rh16r1dwT9SEwSk8T0IBKTxCQxG3jivKx/dnZSRGQy9Mzd3T0R2SjeuFH3icmBIxH2Xn3lQmhSRCZDF1551UXUY6E0RXbb2vb/gc4aubFcDN288nSzCE5/6oZfa6d+R9CFxCQxSUwPIjFJTBKzgSdq2UOjly/5RfaenMvlcs/uPuc4ORsjXBh9UkREnhy94LaJDaF0RNbY2ub/gWcPuLFcDC1MHq7r+KkbWtXB3xF0IzFdxiQx0QkkpsuYJGa/8FItu7FcHJ31i4jf7xeRyYWbl3cdft5ojHB39w0REXlj967bVjaE0hFZV2tb/geeNeDe6su3b9+IRJ67def2jcjyhp6fuqFVHfwdQSsSk8Q8a0x0AYlJYp41Zv/yTC27sRw5+rlGZO/VV2TU7yZoJYL/0uW7xQ0R2SjevXzJVcSGUBoju21t6//Aswf0z6ZyuVwud/PK0888n1uY1PpTN/xa9f+OoBOJSWKSmB5EYpKYJGa9Xg/YVUqpN7742U9XvfhabbU2otkeU13/xCkDNkaorZ8pYMPOTUOdNXL9bu5be8r/wDP/+HVDyd3/1A2t0vs7QieQmCSm80aiY0hMEtN5I/sU97AFAACAqTwzxgAAAAA4I2pZAAAAmIpaFgAAAKailgUAAICpqGV7r5yKp8q9bgSAo0hMwINITBxHLdt7pe2tXjcBQCMSE/AgEhPHUct2WSFuxQuFuGVZ1lSqLCKF+HSmOB+04oXK1lRqyt5m71XZTRpXAehDYgIeRGLidHo9we1AKSVDIiISyyuVj0koWVKlUj4ZCiVLh1vtFZWP2Q8q+zWsAtCGxAQ8iMTEaY30oHweXIHEen7bykbTYZHyWEhEJBAINm5NBESkvLNVnA9a8yIiEiuV5ciqSKAHzQf6E4kJeBCJidNijIF3xfLVTxzp8PFVAD1BYgIeRGIOMmpZjwpcHM9kCyIiUojHCw2rvWwZMMBITMCDSMxB19khDDgqHxMRkVi+fqSP/WQsX91aHd1TWa1+vGxYBaALiQl4EImJU7KUUjpLYwAAAKBbGGMAAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADDV/wczwDabd8EoGgAAAABJRU5ErkJggg==" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0ExTURGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU5TbGNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 501
mtry <- as.integer(length(iVars)/1.5)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTFNREZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TlNsY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDUwMVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS41KVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNSlcblxuYGBgXG5gYGAifQ== -->
```r
```r
ntree <- 501
mtry <- as.integer(length(iVars)/1.5)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0F4TUZ4dVhHNXlaWE4xYkhSelQzVjBSR2xtWm5NZ1BDMGdZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITmJNVG95WFN3Z2JuUnlaV1U5Ym5SeVpXVXNJRzEwY25rOWJYUnllU3dnY0dWeWJVbHRjRU52Ym1SVWFISmxjejF3WlhKdFNXMXdRMjl1WkZSb2NtVnpMQ0J1Y0dWeWJUMXVjR1Z5YlN3Z2JXbHVjM0JzYVhROWJXbHVjM0JzYVhRc0lHMXBibUoxWTJ0bGREMXRhVzVpZFdOclpYUXBYRzVjYmlNZ2NISnBiblFnYlc5a1pXd2djSEpsWkdsamRHbHZiaUJ5WlhOMWJIUnpYRzV5WlhOMWJIUnpUM1YwUkdsbVpuTWtUMDlDWDFKTlUwVmNibUJnWUNKOSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSAxMFxuXG5yZXN1bHRzT3V0RGlmZnMgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0RGlmZnMkT09CX1JNU0VcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
nperm <- 10
resultsOutDiffs <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutDiffs$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQXhNRnh1WEc1eVpYTjFiSFJ6VDNWMFJHbG1abk1nUEMwZ1kzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhOYk1Ub3lYU3dnYm5SeVpXVTliblJ5WldVc0lHMTBjbms5YlhSeWVTd2djR1Z5YlVsdGNFTnZibVJVYUhKbGN6MXdaWEp0U1cxd1EyOXVaRlJvY21WekxDQnVjR1Z5YlQxdWNHVnliU3dnYldsdWMzQnNhWFE5YldsdWMzQnNhWFFzSUcxcGJtSjFZMnRsZEQxdGFXNWlkV05yWlhRcFhHNWNiaU1nY0hKcGJuUWdiVzlrWld3Z2NISmxaR2xqZEdsdmJpQnlaWE4xYkhSelhHNXlaWE4xYkhSelQzVjBSR2xtWm5Na1QwOUNYMUpOVTBWY2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxubnBlcm0gPC0gMTBcblxucmVzdWx0c091dERpZmZzIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dERpZmZzJE9PQl9STVNFXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSAxMFxuXG5yZXN1bHRzT3V0RGlmZnMgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0RGlmZnMkT09CX1JNU0VcbmBgYFxuYGBgIn0= -->
```r
```r
nperm <- 10
resultsOutDiffs <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutDiffs$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTMxMjU0MlxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRVJwWm1aekpFOVBRbDlOUVVWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0RGlmZnMkT09CX01BRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.5312542
resultsOutDiffs$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFUnBabVp6SkU5UFFsOU5RVVZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutDiffs$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNDEyODU5MVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRVJwWm1aekpGSnpjWFZoY21Wa1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dERpZmZzJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.4128591
resultsOutDiffs$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFUnBabVp6SkZKemNYVmhjbVZrWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJFJzcXVhcmVkXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutDiffs$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODg5NDEyN1xuIn0= -->
```
[1] 0.8894127
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwUkdsbVpuTWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRFUnBabVp6SkU5UFFsOVNUVk5GWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbnJlc3VsdHNPdXREaWZmcyA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0RGlmZnMkT09CX1JNU0VcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
resultsOutDiffs <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutDiffs$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBSR2xtWm5NZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEVScFptWnpKRTlQUWw5U1RWTkZYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXREaWZmcyA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0RGlmZnMkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0RGlmZnMgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dERpZmZzJE9PQl9STVNFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutDiffs <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutDiffs$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNTI5NTk3MVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRVJwWm1aekpFOVBRbDlOUVVWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0RGlmZnMkT09CX01BRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 0.5295971
resultsOutDiffs$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFUnBabVp6SkU5UFFsOU5RVVZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutDiffs$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNDEwOTQzOVxuXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6ZFd4MGMwOTFkRVJwWm1aekpGSnpjWFZoY21Wa1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dERpZmZzJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 0.4109439
resultsOutDiffs$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFUnBabVp6SkZKemNYVmhjbVZrWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJFJzcXVhcmVkXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutDiffs$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuODkwMjE3MVxuIn0= -->
```
[1] 0.8902171
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMFJwWm1ZZ2RtRnljeWNzSUNkU1RWTkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRFUnBabVp6SkU5UFFsOVNUVk5GWEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkRWFXWm1JSFpoY25NbkxDQW5UVUZGSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRVJwWm1aekpFOVBRbDlOUVVWY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowUnBabVlnZG1GeWN5Y3NJQ2RTYzNGMVlYSmxaQ2RkSUR3dElISmxjM1ZzZEhOUGRYUkVhV1ptY3lSU2MzRjFZWEpsWkZ4dWNtVnpaRUZ1Ym05NVRXNVFaWEp0U1cxd1FVSWtSR2xtWmxaaGNuTWdQQzBnY21WemRXeDBjMDkxZEVScFptWnpKR052Ym1ScGRHbHZibUZzWDNCbGNtMXBiWEJjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEFubm95TW5GaXRBQlsnRGlmZiB2YXJzJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0RGlmZnMkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgdmFycycsICdNQUUnXSA8LSByZXN1bHRzT3V0RGlmZnMkT09CX01BRVxucmVzZEFubm95TW5GaXRBQlsnRGlmZiB2YXJzJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dERpZmZzJFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiREaWZmVmFycyA8LSByZXN1bHRzT3V0RGlmZnMkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdAnnoyMnFitAB['Diff vars', 'RMSE'] <- resultsOutDiffs$OOB_RMSE
resdAnnoyMnFitAB['Diff vars', 'MAE'] <- resultsOutDiffs$OOB_MAE
resdAnnoyMnFitAB['Diff vars', 'Rsquared'] <- resultsOutDiffs$Rsquared
resdAnnoyMnPermImpAB$DiffVars <- resultsOutDiffs$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowUnBabVlnZG1GeWN5Y3NJQ2RTVFZORkoxMGdQQzBnY21WemRXeDBjMDkxZEVScFptWnpKRTlQUWw5U1RWTkZYRzV5WlhOa1FXNXViM2xOYmtacGRFRkNXeWRFYVdabUlIWmhjbk1uTENBblRVRkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRFUnBabVp6SkU5UFFsOU5RVVZjYm5KbGMyUkJibTV2ZVUxdVJtbDBRVUpiSjBScFptWWdkbUZ5Y3ljc0lDZFNjM0YxWVhKbFpDZGRJRHd0SUhKbGMzVnNkSE5QZFhSRWFXWm1jeVJTYzNGMVlYSmxaRnh1Y21WelpFRnVibTk1VFc1UVpYSnRTVzF3UVVJa1JHbG1abFpoY25NZ1BDMGdjbVZ6ZFd4MGMwOTFkRVJwWm1aekpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQmNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgdmFycycsICdSTVNFJ10gPC0gcmVzdWx0c091dERpZmZzJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIHZhcnMnLCAnTUFFJ10gPC0gcmVzdWx0c091dERpZmZzJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgdmFycycsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXREaWZmcyRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZlZhcnMgPC0gcmVzdWx0c091dERpZmZzJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgdmFycycsICdSTVNFJ10gPC0gcmVzdWx0c091dERpZmZzJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIHZhcnMnLCAnTUFFJ10gPC0gcmVzdWx0c091dERpZmZzJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgdmFycycsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXREaWZmcyRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZlZhcnMgPC0gcmVzdWx0c091dERpZmZzJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdAnnoyMnFitAB['Diff vars', 'RMSE'] <- resultsOutDiffs$OOB_RMSE
resdAnnoyMnFitAB['Diff vars', 'MAE'] <- resultsOutDiffs$OOB_MAE
resdAnnoyMnFitAB['Diff vars', 'Rsquared'] <- resultsOutDiffs$Rsquared
resdAnnoyMnPermImpAB$DiffVars <- resultsOutDiffs$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRVJwWm1aekxtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUkVhV1ptY3lSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJFYVdabWN5NWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSRWFXWm1jeTVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRVJwWm1aekxtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iT0Ywc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9iV1ZoYmlCamFHRnVaMlVnYVc0Z1lXNXViM2xoYm1ObEtWd2lLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWENKelpYSnBabHdpS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLeUJqYjI5eVpGOW1iR2x3S0NsY2JuQkNZWEpjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXREaWZmcy5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0RGlmZnMkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0RGlmZnMuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXREaWZmcy5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzhdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutDiffs.conimp <- arrange(resultsOutDiffs$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutDiffs.conimp) + geom_col(aes(x=factor(rownames(resultsOutDiffs.conimp), levels=rownames(resultsOutDiffs.conimp)), y=CondPermImp), fill=mycolours[8], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRFUnBabVp6TG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSRWFXWm1jeVJqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUkVhV1ptY3k1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJFYVdabWN5NWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRFUnBabVp6TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJPRjBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb2JXVmhiaUJqYUdGdVoyVWdhVzRnWVc1dWIzbGhibU5sS1Z4Y0tTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYRnh6WlhKcFpseGNLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1NrZ0t5QmpiMjl5WkY5bWJHbHdLQ2xjYm5CQ1lYSmNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0RGlmZnMuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dERpZmZzJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dERpZmZzLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s4XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dERpZmZzLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXREaWZmcyRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXREaWZmcy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXREaWZmcy5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbOF0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuYGBgIn0= -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutDiffs.conimp <- arrange(resultsOutDiffs$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutDiffs.conimp) + geom_col(aes(x=factor(rownames(resultsOutDiffs.conimp), levels=rownames(resultsOutDiffs.conimp)), y=CondPermImp), fill=mycolours[8], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qRXdMQ0ozYVdSMGFDSTZPQ3dpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjEwLCJ3aWR0aCI6OCwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFNQUNBTUFBQUM1S0Z0TEFBQUJ5MUJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qcXROanNoUTllbG1BQUJtQURwbUFHWm1PcEJtWmdCbVpyWm1rTnRtdHR0bXR2OXVUVTF1VFc1dVRZNXViazF1Ym01dWJxdHVqbzV1anNodXE2dHVxOGh1cStTT1RVMk9UVzZPVFk2T2JrMk9ibzZPYnF1T2prMk9qbTZPam82T2pzaU9xNnVPcThpT3ErU095TWlPeU9TT3lQK1FPZ0NRT2pxUU9tYVFaZ0NRWnBDUWtEcVFrR2FRa0xhUWtOdVF0cENRdHYrUTI3YVEyOXVRMi8rcmJrMnJibTZyYm82cmprMnJqbzZyanF1cnEyNnJxNDZycTZ1cnE4aXJxK1NyeUt1cnlNaXJ5UCtyNU1pcjVPU3I1UCsyWmdDMlpqcTJabWEya0RxMmtKQzJ0bWEyMjVDMi83YTIvOXUyLy8vSWprM0lqbTdJam83SXEyN0lxNDdJcTZ2SXlJN0l5S3ZJeU1qSXlPVEl5UC9JNUt2STVQL0kvOGpJLytUSS8vL2JrRHJia0diYmtKRGJ0bWJiMjVEYjI3YmIvN2JiLy8va3EyN2txNDdrcTZ2a3lJN2t5S3ZreU1qazVLdms1TWprLzhqay8rVGsvLy95OHZMMzkvZi90bWIvdHBEL3lJNy95S3YveU1qLzI1RC81S3YvNU1qLzVPVC8vN2IvLzhqLy85di8vK1QvLy8reG5XeE9BQUFBQ1hCSVdYTUFBQXV3QUFBTHNBRWFPQkJ5QUFBZ0FFbEVRVlI0bk8yZGo1OGJ4M25lVHovaXVuWExQVWlnSWNlcFU1NGxVMGNCa25LSnpqNFRhaEkzYW1wQlZFNDFWVkVFMjdodGhLTk1SWkZEZ1duYWFFbGF6aEVSczVRUUVjTCt1WjMzbmRuRllySEFZWDlnTURQN1BCOWJDeXgyWCt6aXZwemRtV2ZmZDNaQ0NOcTRkclo5QUZBZEJNd2dEUUpta0FZQk0waURUTVhzZHlCSHhIOU9ZekhiOWdGQTFjaEN6TDZvOUNzcWpXWnVzQzBmR2pDclJ6Qmd0a0xBek14b2RjRHNPY2hrcmZoRGJnaXpTY2RyanVqRitJZjljTnJ6UEcvMy9lUXE4YmtuM2daZVl4ajZYcHRXbi9RbnJ3eDUwM1lJekd4VUpnbWJiYzBtQjR4VStPVWZ0dVdiUi8zNVZZZmg5SGowc1hnNzNoZUVTZmpFZjQvR1I0bWpTMm5idnlPMFVwa2c2TUhzNDBBMFllTE5vMzVxMWVIMHFtalR4Q3UvR3dadDBZcnRDZzVQTzl5WTBYRExGMS93YmNBWHllVzJmMGRvcFJiK1hyVFVndG5rRTNFbHBFdmtibjloVlN2OGVpU0l1OXNYYlpqZkZrMmFMNjZpN1lDdm9Hak5MRlFtQ0Zvd0MwVHIxSjF2emRRcWFzMkU3dmE1TlJPWHpidDljUlVGWmhZckU0VE5ZeVp1c3o0ZmhVRkx2dG1mWDNYSW0wMnZEUG5lVExSbWZ2UEJXWmk1MU5IWEZzemxBUTN1U2U1ZTc0bDJhK0E5KzZwNDQvMDB1ZXFaUGVwUCtuUXRGZS9hdkgwMzhDNzN1S2tMZ1ptcDBjekNyTFNBbVpuUjZvQVpaSitBR2FSQndBelNJR0FHYVpDRm1HMTdZQWhhcHJQK2tFVXhrM1o0UCtzalpZV0hOQkxiR0lyRnlmdnNJWWxkV3VxRFNZZDJuZmI0NHpCeTJua1VwSnM4dXBTMi9XTkN5N1FjbEpLdEdRKzJzdDBkRGJXcWw4b0tKMzNNL3hWYmtWRitaUmlabXVMZDVDMUIzTC84d1RBWmpUOEk1Rk1jd013dUxlZWtBc3pDb0UzdFV1RHhRalJHYmZHU3phUGdVcWN4WkdkY211SVJadU1maS9XMC9TOWVHWWFmLzhYUXB3SGI1dHZ0R1diVTRNRTZ0MDJMbG5sRjFqbURNZDYvMncvYTkvZERXZ2krUW40WmpuOGlMb2QrbTUxeE5zVWo3L3lCV0gvU0Z4dE4zaDEwcDM5elU3Um1RWGR5OEY3VW1uWGl5eXBhTTZ1MG5KTnFXck9CNTdYRVpaSVdCSTE0S1Z1ek5yMGtaNXhOY1dyTmVsMXF6WTdFdXpGaE5yNzRqMzk3VXpSNEhtMGVYelRIRjBmQXpFSnRGRE54MTNWUHNrVUxhczNFUzc0M0UrU0lab3l1bEd5S240cTd0OEU4WnRPM2ZqSzZPYnc1RExyai9aTyt0TlVGalg1N0JXYVFmYXFtcDBuWHVVbW5MUmY4a3Ezd2dCN0I5dFVHMGpWdlBoQTl6VUhqZGtkc2RFazBZdUlxNnpYZThieG5YNzNjZTJaUFBjWXR1cU95K3dyTUhORkd4ODJDOXRuYnJCU3Njek9qR1dXZHowYkVpZ3FZbVJuTktNektDNWlaR1EyWTVaVzVaTGgwbmhaaUJ0a25DekhiOXVpUUFkTDhaeWl2elZ2blVVY0ExbmwxS3ZqbjJwNDBXT2ZUSzRRUnJQTUtWZlRQdFRWdDNqcG56R0NkVjZxbEZ2WHk1VC9sM0g3bDhwL3k3cmQ1NjV3eGczVmVxUXI4cGF6dWFhNWpuUk5tc000clZZRy9sUFdZbldXZHE5YXNNdXZjcGZFa2JjR3N4bXdkNjF5OGFvNWduZGRiRmxybmtIMnkwRHFIN0pPRkxnQmtueXpFektWYlkyM0JyTzRDYkZyQXpNeG9kY0JzMjROV1cxQUZQNldUbU1YVjJXbmNkbzlLR0h0Y20zMitoanNLdHErcEN2NGlUbUttcXJOUHJ3aGt1dE9lUU9hZThzeFJzTDJBS3YvejZOWUdNWHZVVndiQTlCZTk3Z0ptS05pZVExVlozbHRiYmd3enRzbFZhM1oxOG5JL2hSa0t0dWRSNVg4ZTNkcHdheVp1c2xxaGFMSEdGMi9OWTRhQzdYbFUrWjlIdHpaNWJ6YmVsMDgwRWtwK1k2aU1jUlJzMzBZd043c0EzRmNrczd6Qmp6UUthRzdlN3NTZFR4UnMxeDdNVGN3cUVqQXpNeG93eXl0enlYRHBQQzNFRExKUHdBelNJQXN4Mi9ib3dydzAveUtXQ3BpVmxPWmZ4RktaTU5mNWdCTG1iTFhPNXc0TlhZQWxNbUN1OC92ZGNOQzExanFmT3pSZ3RrUUd6SFV1N1V4YnJmTnkyZGlybGw5VWFtRmJuWFYraHRhYTY5eHZDOHlzdGM3bkRnMnQyUklaTU5jNTQyZXRkYjZoWDg0eEdUSFhlVlJCYUQzckhMSlBSc3gxVHVtYzYxdm5rSDJ5Y053TXNrOFdZdWJTcmJHMllFNTNBY29LbUprWkRaamxsYmxrdUhTZUZtSlc3VUNFdVdRQU0xM1NnQm1rUXhvd084dEFuNU0yNjN5VFp3eWxwYU0xTzh0QVQwaWZkYjY1MDRVV3BST3pwUVk2VFVNeDhGNjhwdE02TnlNYnV5NUxqWmd0TmRDcHpqdFZRKzdxdE02amFPYmV0YU1Ma0U5bkdlaFU1LzJrTHpEVGFaMUgwY3dsQTVqbDAxa0dPdGQ1VjYwWnNzNDNFOHg5ek00eTBKdW5zczY3MTBYVytjYUN1WS9adXZLN0M2dGduVHNpY3pBYjd5Mldkd2RtanNnY3pMSUV6QndSTUlNMHlFTE15ZzlpSkdYdVhUdTZBR2NxVnlWdGJlbkFXZEhNSlFPWW5hMGNsYlQxcFFOblJUT1hER0IydG5KVTB0YVhEbXhlbXV5cTVSZVZlb3R1cGdQbnFLU3RMeDI0OHJPRTFwUUJsYlQxcFFOWGZwYlFtaktpa25hK2RHQmdacCtNcUtTTmRHRFhaZUc0bVVzOU1HM0JITzFwVmlOZ1ptWTBZSlpYNXBMaDBua0NzM29FQTJZcmhDNkFJN0lRTXd4azJLZU5ZRGJKc3N4cC9pOGU1OUJ2blZkN2RsQitiYVkxeTdMTTN4SXMvY3NmRExkaG5WZDhkbEJ1YlF5ekJjdjhGNjhNdzgvL1lyZ042OXhjU3huV2VSbGxXZWJ2RHJyVHY3azUzSVoxdnVwUXplMGNvcWQ1bHJJczgzZkhGLy94YjJQTXRGcm5xdzdWWERLQTJWbktzc3pmbmI3MWs5SE40VGFzODFXSGFpNFp3T3dNVFRJdDgyN1E1bjRuclBQNnljSnhNOGcrQVROSWc0QVpwRUVXWXViU3JiRzJZQzUyQVNvVE1ETXpXaDB3S3ptQ2taSzVaQUN6NVpyTEtoZnZtci9xTC85Y1dlY0JqV2hVYXAzbk9HQnp5UUJtS3pSbmpmdmRoWXJzaTliNTZHUHh0bHJydkxyVGdTclJ4akJqYTV6K0gvcXZlYTk1WFo4R1padHZ0eGV0YzlIa2pjSnFyZk1LTFdjc3ExaHVDak5walllQjE1NTBXa0dMV3FlZ096bDRMeVByL091UklLNWE2N3k2MDRFcTBhWXdDeUsveU84RzNhQTlQaEpFVVlPVmtYVXVkTGRpNjd5NjA0RXEwVVl3aTYzeGdPQ1JtTjBjQnQzeC9ray95enFmWGhsV2E1M25PRjV6NzlyUkJWaXV1YkxaemQrODREVStGWGRrbnRkNHgvT2VmZlZ5NzVtOURPdWNudDllM3pwMzZlZlhGc3d4ektvVk1ETXpHakRMSzNQSmNPazhMY1FNc2svQUROSWdZQVpwa0lXWVljek1QcG1RZFY2dGRaN3pXTTI5YTBjWDRDemx5anF2MkRyUGVham1rZ0hNemxLdXJQT0tyZk9GN1ZjdmtYV3U0endOeURxdjJEclBlYWptTmtCb3pjNVNycXp6c0ZycnZPSlRnYXFRRVZubitheHp5RDRaa1hXZXp6cUg3Sk9GNDJhUWZiSVFNNWR1amJVRmM3SUxVSldBbVpuUmdGbGVtVXVHUytjSnpPb1JESml0MExyalpwb1BDOHFyM0ppZDlBZmtpOGZ2NHpUeThPUTZUM0RlRHdPdjhldjNsRlhlR001TThsWXExSHlxOEVSYVRKeDNOMzkwS1FFeis1UVhzL0VQcngrZkhqeTRPbHNUbVpRQ0dqbkIrZmppYU5KcFIxYTVNc21sL1RRZml6OUlCRHBVdzdycG8wc0ptTm1uZkppeHQ4MWdpVmZOMGZqSG5ZWnlqNVRyVFZNQzMrVTJLckxLbFVtdXpIU3gxMm1uK2FIWDlrVXp4eDhNZHZ1REpwbmxMWW1aaU1GaHd6elcrY2F5cGJHc1pwa1BNL2EyR1RPL0cvb3ZpVXVpVEx4VW44Z0p6bTl5aXhSWjVjb2tsNjBaN1VWRzBzM2g1SlBJUFNjMGc5bmVmdk1CaCtYdjA5Q2FtWHZYWHQ4dUFIdmJqSmw0TmQ0Zkg0bTNFalArUkxabUVwSElLbGNtdVRUVGVhL3BsZHUzanU1Rkg0aDF0MGFVMHptaTFxelhuUjZQT0d6aTZGSUNabHVQdG1ITTJOc2VjV3ZXQ2ltWFhHSEd6L0Q0elZPZTRGemNtNG5QSXF0Y21lVHlyb3YzQ3YyTG45SURqL0tEY1B5amE1U2R6dmRtNFdBTnpGejYrYlVGc3dvejlyYlo1ZVo3czBIamR1YzhPK04weFpPV04xWEtvQnN0WlpYdnZoQ1o1SFM3eFh1SmhpNjhSdzlpYzJMNmlDNnk0ejNQT3g4OXNkMmxzSzNFMFpVOXg1VXlsd3lYenRPTWNiTXZoK0gwYXNaNldPZU95QXpNZkI1dld4UXdjMFJtWUxaTXdNd1JBVE5JZ3l6RXpLVmJZMjNCMEFWWW9YWEd6VXAraGJsa0FMUGxLbEt3dmR4YzV5VVAyRnd5Z05rSzVTL1lYbkt1ODVMSGF5NFp3R3lGOGhkc0x6blgrY0xuV0pxM05LQmdlOG01enFzN2RHaGpNcUJnZThtNXpxczdkR2hqTXFKZ2U3NjV6aUg3WkVUQjlueHpuYnQwYTZ3dG1HdGRnRW9Gek15TUJzenl5bHd5WERwUFlGYVBZTUJzaGRBRmNFVEFETklnQ3pIRGFKbDkyc2lBeG55dDlwRFMxTSt2S05oZXhEcXY3SUFoSGFxOE5WdXMxVDdsTlBYbEJkc0xXZWVWSGErNWQrM29BcXhRUnExMmRnYVdGMnd2WkoxWFp1MmlZTHVPODl4VWE1YXMxUzR4VzFxd3ZaQjFYdG54bXRzQW9UVmJvWXhhN1FxelpRWGJDMW5ubFIydnVXUUFzeFhLcU5XdU1GdGVzQjNXdWV2YVFFOHpYYXU5VDdiNFpGWEI5bnpXT1dTZkxCdzNnK3dUTUlNMHlFTE1YTG8xMWhiTXRTNUFwUUptWmtZRFpubGxMaGt1bmFlRm1GWHJhSnBMQmpBcklzNDM1OEdMT0NFOXF2Qit4dEdsQk9QY1BtbHN6WGo4Lzk0d21aQXVLN3luTmp0TUgxMUt3TXcrYlFPeldVSzZySW1zYXJidjlybFNlK0MxeDN2blAxbFpzTDFDU3hsTEhjc3RZRFpMU0pkMnBvVHRiaitRQmVEdjc0ZDMrMS9LYVNqUW1qa2kzWmpGRmR4RHVtN0sxb3hydGcvb2FVZ3FvVDNlbDNQd3pJNHVKWFFCdGg3TjRDNUFPSDFMVGltUVNFaG5IMzJmYTdiVDFUVEM3QjVOZlQ0N3VwUmMrdm0xQmFzUFpsU1dmYmMvblV0SWx4WGVxWTJqUjgrNFV2dWswLzV0UnpaM3dNelFhRVpqbGwvQXpNeG9kY0FNc2svQUROSWdZQVpwa0lXWVlkak1QdFVlTTNQdjJ1dmNCWmd1ZDd0VjNuZ1lqNjZldk45UjJlTmtsa2Q3emlZem44em1RMWZ2ZVg2NlRqUjhDOHhNamJiNW5pYVBxTW9xN0FtVE84cE5rdTlrZGhOWjQycjZjcGxpUHRzejJpdWVEMzBXbTJNRnNnQUNNRE0wbWg3TWFQeGV0RVJjSnB1bjBteUxsNXhwR1Z5aWFjb0pMWmxCcmpDVEtlWnF6NE1SV2VPMFY1U0pQbC9NblRDajZUU1hXK2Z1WkdPdlduNVJxWVZ0V2RZNW96RGV2OXNQMm14eUI4Ulh5Qy9EOFUvRUJkQnZxd0lIOGZUbHMxbk5hVSsvT1NKcm5QYUs1ME9mSytiT3FlaFM2QUk0b3FLdEdUdmQrMVRzcDBXWWlKZXlOV3ZUUzhKTVRuN08wNWRIS2VaeXorbnhpRzdIYUs4NEUzMnVtUHZra0theFRoeGRTc0RNUGhXOU43c24yYUlGdFV2a2Y5TzlHYzFrSHJkbWZ2T1VweStQVXN6bG5nSXpzc1psYXlZejBlZUx1UXMyL1hieTZDRHJWYlNuU1ZlMlNhY3RGL3lTODhZRExsOUdVNWhUaC9HblhML3NnVFRMbjMxVjdobDRYYkxHeGVmblZTYjZmREYzMFQxdFQzdXlNd3ZNSEZIRjQyYXE5a1ZWZ25WdVpyUXRXK2V6TWJCcUJNek1qRmFISnpSYyt2bTFCUU5tS3dUTXpJeFdCOHd3b0dHZmdCbWtRU1lVYkE4b0ZUMVB3ZmJLamhiU0pBTUt0bzgrRHNNd1Y4SDI2bzRXMGlNRENyWlBPdFQwNVNuWTdvNmxET3U4b1BJWGJQOTZGSkNibnFOZ2UzVkh1KzBlbUxaZ3J2VTA4eGRzRjdxYnIyQjdkVWU3N1o5Zld6RG5NQ3RRc0Yzc2s2Tmd1MHMvdjdaZ2ptRldxR0E3ZFVKUnNOMWxXVGh1QnRrbllBWnBFRENETk1oQ3pGeTZOZFlXekxFdVFMWENnSWFaMFlCWlhwbExCakFMQzZXZkwyYVpJK3RjVnpCYk1TdVNmcjZRWlc1QTFqbWtRK1V3eTVsK3ZwQmxia0RXT1pZNmxpVXh5NWQrdnBCbGpxenptcWgwYTVZbi9Yd2h5eHhaNXpWUjZYdXpQT25uQzFubWhiTE9YYm8xMWhiTTFpNUFnZlR6MDhVczh5Slo1eTc5L05xQzJZclpHYW9tL1J5WW1Sbk5GTXdxU2o4SFptWkdNd1d6aWdUcjNCRUJNMGlETE1RTUF4cjJhYU9lWnNpSnZtWjdtcEFPYmRiVC9Kai9hN1NuYWU1ZE83b0FwRFU4VFU3ME5kelRSRHF3anZQY3FLZkppYjZHZTVybU5rQm96VWpyZUpxVTZHdTRwMmt1R2NDTXRJNm5TVmZLeWoxTmRBSHMwMFk5VFY5dFVLMm5DZGtuQ3oxTnlENVo2R2xDOXNsQ0Y4Q2xXMk50d2F6dEF1Z1FNRE16R2pETEszUEpjT2s4TGNUc3VVcS93bHd5YW84WmU5dysyZUpzYWs0NnpWOWRYNWhpT3BVV0xIM3hNRGtoOWZzRnJmTjhCd3Nab0dLdEdRL1gzNHRtbC9hN1pJNHZUREdkU2d1ZUw2RXQzanpxRjdUT2N4NHN0SDJWeEl6cllUTVVpMU5NcDlLQzUwdG9INHdlOWNPQzFubWxsaktXT3BibE1KUDFzTVBBYTJkTU1aMUtDMDZYME02eTB0ZXp6bk1lTExSOWxjQk00QkZFdDFGK2QzR0s2VlJhOEh3SmJkbWFGYlBPaTUzcEVwbDcxMTc3TGtBNGZhdlBUTWg2MkVGWFhpMVRVMHluMG9MblMyalRtLzJDMW5uZWMxd3BjOGtBWnVGNFQxejBwckllZHZNM0wzaU5UM3ZwS2FaYjgybkJQSFZKVkVLYko2UW1ReDNwd0pxQzJZbloyaXBub1FNek02T1pobGxKQ3gzV3VTT3kwQVdBN0JNd2d6UUltRUVhWkNGbXoxWDZGZWJldGRlNUMxQWcyVHhNMnVWSmM3MW8xdm5hQjd1T3pDV2p6cGdWU1RaUDJPWHo1cm9KMXJtNVpOUWVzNXpKNWpPN1BHV3VtMkNkSSt0Y3gza1d3eXhmc25sa2x5K1k2N0RPNjZLaXJWbWVaUE9aWFo0eTEwMnd6aUVkS25wdmxpZlpQR21YejVucnhheHp5RDRWN1dubVNEWi9rTERMNTh6MTg4V3NjOGcrVlR4dVZrMnllU3hZNTJaRzI3SjFYbEd5ZVN4Z1ptWTAwNTdRS0NsZ1ptWTBZSlpYNXBMaDBubGFpQmxrbnl6RTdEbk5Cd0dWVjBITTJOOXV6YjFYTnVSTUo3T3M4dkdlOTlMeGlMTFQrd094NC9uVTNxeDV1ek41ZENrOWwvZGdvYTJyYUdzMnZUS2s4WDJweVdHYzdEc1RPZWZLR3ArODNBLzk1b2l5MDY4Zm54NDh1RHEzdHhMYjY1bEhsOUp6dVE4VzJyWktZQmI2YlJxSURWNTgvaU5QdWQ3VEhxVXd0UVBPZXRydHg5YTRCRWcrZDBGYnlyM2wxczBQdmJiZkdFcDdmYkRiSDNBU1ZBdldlYTJ0YzZXb1BRb3U5NXFqKy91cU5mTzdncDZBVEhQcG5DdHJmTkFsQUJ0RHlrNlBNQk43UjF2ZkhFNCttZG5yai9vY2dMOEZEd0taR1UxYlQ1Tk1weGJka25XbFd5NHhFM1NNOTVrUzZad3JhOXh2eWVhUE9XVE1lRy9lZW5ybDlxMmplM0VDKzBuL2xwenROWEYwS1QyWCsyQlh5Vnd5Z0ZsRURYbmVNOHpHUjRLbm9EMCtDZ2VOZDlnNVY5YjRlSzlMT3dUeFl4aUtPZG82OUM5KzJoT05uTFRYdy9HUHJsRVcrOXpSbFQzSGxUS1hESmZPczNoUGsyd2wzL09hYjlOempKYzRwNXp1eU9TczAxM2xuRXRybkhxYW92VjY5QUx0TktDSElYbHYzanFjdkJ2ZUcwWUo3Q09xekNHM25oMGRaTDFNSERmN2NoaE9yL0lyWU9hSVRNVE1qNU5hZ0prak1oR3ptWUNaSTdJUU01ZHVqYlVGczdNTG9FbkF6TXhvZGNEc3VVcS93bHd5YW85WjNvTHRsSVorMjlDQzdlYVNVWHZNY2hkcy96amFKMFRCOWxwS1M4RjJUa05Id2ZZYUw3VVViT2MwZEJSc3I3SDBGR3duNWd3dDJBN3BrSjZDN2VTVlYxYXczYVZiWTIzQnJPd0M1Q3pZVGs4L1RsQ3dmWnZCN01Sc2JhRmd1eG5CM01ac0V3WGJYZnI1dFFWekc3T1Nnblh1aUlBWnBFSEFETklnQ3pGN1R2TkJRT1cxT2N6bUpqZlBYc3VESE0zUmdFYjlsYzkrMHArOE1tUm52UjNDT2pjMW1rbGRnRG12UEhzdDFhWTl2dDhOQjEzbHMwc2t4MGZqbzhUUnBmUmNwVWRwTGhuQWJDM05lK1gwME0vQWUvSGEvTnJENlZYMlBvL1ltWktwNmdlbmN0WUtaSjI3YzU2YngweDY1VlRabll5bmJ0cEJiNUd6TkQ2U3JIRytlblBFbTVMUW1wa1p6Y0RXVEhybFZObGRYQlZqekpTRFRxMFpQNjNCclJtbnFrK1B0V0lHNmRDR01ZdTljcTdzSHJWbU13ZGRUc2NUVGNYRFJkNGZuSVVaWko4MjJ0T2NlZVZVNWFjVjEzQ1AxajZ6Ui8xSmZ0cWJmWGJPVncrOHk3M28rU0pnNW9nMGo1djUzYk8zU1FpWU9TSzltSTMzOGpucHNNN05qR1pTRjZBQ0FUTXpvd0d6dkRLWERKZk9FNWpWSXhnd1d5R01tem1pL0pqbFRUbW5CMmlYMmVnR1pKMURPbFNnTmN1YmNrNFZRSmZZNk1nNnI0bktZTFpleXZrY1ppa2JIVm5uTlZtV3dHek5sUE1rWm1rYjNZQ3NjM1B2Mm12ZUJjaWJjcDdBTEcyakc1QjFiaTRaTmNjc2I4cDVoRm1Halk2c2MxM0I3TU1zWjhxNU1zNnpiWFJrbldzS1ppRm1hMnQxeXZrYU5qcXNjMGUwU2N4V3A1eXZZNk1ETTBka29Rc0EyU2RnQm1tUWhaaTVkR3VzTFpqTFhZRFNBbVptUnRPRDJRblBXSjZhckh4eXdKT1p2OS94bWc5NjNqTjcwaGJmZlNHNTNienZXZEE2ZCtubjF4Yk1Rc3lpR2N2bjE2ckp6SG1NbFpDTDVqbFhiaVluTWFYbU15OW1uYnYwODJzTFpoMW1uQm9lemZIYkhJMS8zR21ROTgzNWxaR05UcGdwVzV6c2ROcUVKNkJPeldkZXpEckgwcjVsZnN3NE5aeGhvcm5LWHhLWFBIcmlKK2dLektTTkx1dXZSTGI0NU9BQmIzSi9QMXlZejd5WWRRN1pwL3lZY1dvNEU4RnpsWStQcUJoN3gyUE1JaHVkV3JQSUZoZXRHVzFDWmR2VDg1a1hzODRoKzFTb05mUGxaQkxSek9aMysrUjkwMFV6c3RFWk0ybUxKekZMejJkZXpEcUg3Rk9oaDdUWkFXL0xlN05CNDNhblJYT2UzL2U2TkpuNTdhaW5LVzF4Nm1ueUpwUE9TK241ek0vRE90Y1d6TG91UURXYXpXZStTc0RNekdqV1lEYWJ6M3lWZ0ptWjBhekJiRDBCTXpPajFRRXp5RDRCTTBpRGdCbWtRV2RnZHRJbk83eXZDbHNubFhUQnB6MTZ1RjlzSjlNRTZMOXROZ05hSzNZcWJKMUQ5bWsxWmdJTHNzT3Y5eFlmNnA5endTY0gwallmUHo4TUp5LzN2NmJSMittVjRiVFhYYkVUckhPTndRenVBckJKem4veDJCOFBYbnorSTA0bFp4ZDgwbWtIdk83MmdiVE5lZlNlL2pPK3hubHpQdFZnYjU1Mm1oOTZiVi9zVllsMS9rV2wxaTRLdHVzNHoxV1lTWk9jN0hEUlNyRS9mcm5YZkNCVHlhVUxUZ2E0QUlTdEo5cHVRSzFYUU5senJWQzJabVN2VTFyd3plSGtrNHFzYzVmK2xXc0xabkJySmsxeXJzWVMrZU9DRHBsS0xsMXdoaVgydlAxdTNKb3hZM1J2eHZiNjlNcnRXMGYzaGhWWjV5NzkvTnFDR1l3Wm0rVDN1MGwvWEdJbVBwQXV1RmcvYUh6RWZMQnRUcmY0ZEg4V2hyZm8zb3hpdEhpSGk1L1M3UjJzODdwcUZXWnNrcE1kUG96OThiZnArVVQyeHFQOGNhODdvS3p6Rm0rbmVwb0RqMVBQNlJhTzdYWEJVM2h2T0szSU9vZnNVLzV4czNLemwwY3FZWjFEOWlrM1ppVm5MNDlVd2pxSDdKT0ZMb0JMdDhiYWdobmNCZGkrZ0ptWjBZQlpYcGxMaGt2bkNjenFFY3dsekU3ZTUrUzVVNVVCckpTUmkwN09WWnN5bmVJS2ZHckd1dlpjMFhkMEFWeFJsWmhSeWpsTlh2NWhjNFlaamJWbTVLTExldTRmaDlJdWY5UlhtOG9oM2ZUUlFkWnJBYk9ITytlKyt0YTVBcEhrUk9VMDNlLzArSlE5ZFNyY0hvai9aZVNpY3dWazBjeU5wTU01WmVPY01ZdXkxSkYxN3RJeWpkbmpIengrSTN6OC9RL0MzR0tqblcxdm5rYWFKdnZ0aHVIOS9UQXJGNTJuTnY5NnhFOTV5Rm9KNzhuSnFHbDZZSlhJSHFJMWMwWnB6TDc1TTRIWnc2Yyt5eCtKalhiVm1rbk02TkVMeWdMT3lFWG4xaXlrNlFPNE5XTnZnVnF6SG1VVnM0T2FPTHFVWExvMTFoYk10QzdBdzUyZG5TY0xOR2JTYUQrbHVqK1NsRUhqSFZtNFBTc1hYYzIxSXkrU1ZDS0JqSE94N3dDWWJTYVlhWml4L2s4QnpsUUpkdTVBZHRsMW4zQmg5blpHTG5walNGbnJ2cXo3TG5TNXA0eno1aWdnTC81MnA1VTR1cFJjK3ZtMUJUTUpzOGZmMjVFcTFKeHRRTURNekdnbFc3TmZxbnV5SXEzWkpvUXVnQ095MEFXQTdOTUNablRoZkhwTEI3TWdZT2FJRmdZMFhqOG5lcHRGaG1jM0lXRG1pQmFHWjMrUGJzL1d2emRMRjlXT3A1dW1sS2Rvd3JER3I5K2JaZjdLbE9BU25xWkx0OGJhZ2huVkJSRDZ1emZGZi83SHVwZ3RGdFdPS21jckgvTlJmM3lSOGpsbm1iK2NFbHpHMDNUcDU5Y1d6Q1RNNGdHTk5TK2FXVVcxSldiUzRPUUJmam5TR3BtWnFwcDJHVS96aTBvOU42UUQ2empQekFHTnIzNC9YRXRaUmJWVnlxWXlPQVdGTjdtQmlqTi9vM21vaTN1YUx2MHIxeGJNcE5hTWRDUEg4R3htVVczR1RCcWMzSnBKWWlJelU2VUVsL0UwSWZ1MCtJVEdOMzhXUG41anZaMnppbXJMbEY1cGNFcTc4dUtJTHBES3pJenlpRXQ0bXBCOVdzRHNqZkRoaFcvK2VMM1dMS09vOW5tZWJwcXVsOTVsdGl1NzFINjFKcDI0c0xaTUNTN2hhVUwyYWVHaWVlZkpEMjRZTXo0THpCeFJkVTlvYkVMb0FwZ1pyZVNBeHZjL2tHTWFlRUxEdFdBbVlVYjZaVDRYWUxNQ1ptWkdLNDFab1RTQWpRbVltUm10Zkd2R1BwUFJyUmxrbnhaYXM3WHV6ZEpsc21lRytVd243OGQyK1hqUGUrbjRWRzVEVHZ2NXM2dHNKNDhPc2w0Rjc4M215bVJQRG1QRGZDYXl6cU41cUYvdVI4TzRsTU41OE9EcUdsVzJFMGNIV2EvTUFZMnpQVTFaSmp1cXJlMjFZOE84S1RPQnBYVWU1ZjVLZmhTSzdMU2ZYV1ViNmNBdUxRdDZtbEZ6UkxXMVIvZjM0eHJIc216MlNkOVBGc29lZEFuQXh1MDV6TTZxc3MxZmd5NkFtZEhLOXpUWDh6UmxtV3hWVzNzY1ljWUdPa01pcmZNbzk3Y1Z1NWRoR0QwM2RGYVY3Y1RSbFQzSGxUS1hESmZPczZDbktaOC9WTFcxRldiam84aEFIelRlWWVzOHl2M2Q2OFltK1ZGODBUeWp5bmJpNk1xZTQwcVpTNFpMNTFuTTAxUmxzbFZ0N1VubmtqVE0yVUNQTW9FcE4xamwvbExaN05aRWJrTk8reHBWdHBFTzdOUjVtcGhBTjZ1eWpaNm1JeklSczFtVmJXRG1pT2F0OHg5czhVaXlCTXdjVVRybHhKUm5NNlNBbVNPYXgrd05OcHRNU1FaR0Y4RFVhSlYwQWU0WTA2WUJNek9qbFh5czhRMnFicERycVVaWlBMdWJYazJ6VmsrUmRXNU9NS013bzhjekx1VFpYUmJQRHRLUFoweDUxbXBrblpzVHpDak1jajdUcUlwbjAvRDl6RFduVnFrVkphQnZJdXNjUy91V3BjYk5ac1d6RTY0NS80ZG5yZDVRMWpsa24wcGhwb3BuVThMdnpEVm56eWpLREViV09VUXEyNXB4OFd4YXhxNzVSOVFmbUNXZ0krc2NLb2xaVkR4NzJ0dTlIcnZtYkh4VDR2aDNONVIxN3RLdHNiWmdKblVCS3RGNjAwdXZKMkJtWmpRRE1GdHZldW4xQk16TWpHWUFabFVLbUprWnJRNllRZllKbUVFYUJNd2dEYW9Hc3lKWjZDT2FuRnFWZTE4MDBwTkhCMW12aWxxeklsbm9ORG0xTFBlZVphUW5qaTRsbDI2TnRRVnpvd3RRSkF0ZFB0ZWg2bkF2R09rbzJPN1NlVmJjbXVYSlFoL1M1TlM4WlphUnprSnJabWEwcmJWbUJiTFFRK1l3YnMzQ2VTTTljWFFwdWZUemF3dm1DR1lGc3RCNWNtcTVaWWFSbmpnNnlIcFYxdFBNbllVZTB1VFVReTczSGk0YTZiS2pDc3djRWNiTklBMENacEFHV1lpWlM3Zkcyb0s1MFFYWWtJQ1ptZEdBV1Y2WlM0Wkw1d25NNmhITU9zellGcWRoQ1prL1RnWjROS3Q1TW1PYzNYQlc0RFZ1UjFiNlhGWDJ5U3dWZlJaWjJ2RGQ1TkZCMXF0QWE4WWovUGVpL0hFeXdHVU8wMXhkZnpYaVNvb3NjZEo4VmZaWktub2ljcGhJWXdkbWpxZ01acHcvemtUd3FvQU04L0hlK1U5RWU5Um0veWk0UkxubnloTG5mWGtYYnNVRzNvdlhZaS9kMjczT2VlY3hadlJRRWJMTzNWbVd3RXptajRka2dQT3E4YjdmSE4zdGZ6a1VpTEViL2hOeE9mVGIwaEpYVmJSVnlubEFocnJmalZQUnc2RExlZWNTczA3ODZCcGFNMGRVRkxNNGZ6eWs2NlpxemFiSEk3clRJbTVrYThiK1poalBnSzUyR1hoZVMxeFJDVFBwcFpQbEh2bWIxSnBSQm5IaTZGSnk2ZFpZV3pEcnVnRGg5SzArQXlIeng5a0FWL2RtQXJON1E5R29kZFc5R2F5ejZSTUFBQnZPU1VSQlZEVlo3VEJSckYzdVFoZGNYN1ptMGtzbnk1M3p6bm1yQ2FleEo0NnU3RG11bExsa3VIU2VSUVkweG52UzVlYjg4ZCs4TUh1Mk92QzZ2KzJ3VDk1aU56end1Rk1xcXdUUi9aZmM1YlFqeTdmSFh2bzdudmZzcXlydmZQZDltY2JlbngxZDJYTmNLWFBKY09rOE56cHVGaXhPOXBXUXYxQjhiMEhBek14b1JtRTJHeEhMMG5odjFhZFM2QUk0SWd0ZEFNZytBVE5JZzRBWnBFRVdZdWJTcmJHMllBNTNBVlRKZGk3cDNocnZVV1ZqajB2bHpiTFNGeVk0UCtsUFhobnlmdTBRbUprYXpTek1WQks1VE9Ma0l1NzMxT1N0MlZaNmhOMzRpT1lWQ0lHWnFkSE13K3hSUDVyWi9CZTk3Z0ptODFhNnpFMC9PSlVUVVNEcjNKM3ozREJtbkVTdVdyT3JrNWY3S2N4U1Zqcm5wdnZORWI4bG9RdmdpTFMwWnB5U1ByMGFqaS9lbXNjc1phVnpidnIwR0pnNXA4M2ZtNDMzWlVvNjFUMzJHOHBFejdiU3VRRDhBMkRtbmpiZjB5U0h2REdrMXdLZG03YzdjZWR6d1VybjNQUnU0RjN1Ulk4WUFUTkhaTkM0V1lhVmpwNm1tZEVNNjJubVVaYVZEc3pNakdZeFpsa0NabVpHQTJaNVpTNFpMcDJuaFpoQjlnbVlRUnFVRHpPYWlyWDVxNzV5SEpOS2V1RFRIZzFRaU8xazFnRDl0NTA5dXpteXptdWlYSmdKbHJqS2VtL3hHZjg1RDN4eXdOWFlhWTdnY1BKeS8ydEswOHljM1J4WjV6VlJEc3pZMkdZQWVETHlxRHI3Slo2WS9HTXVnMDIxMmNXNjJ3Y2ozbzd6NE9nLzQydlpzNXNYeWpwM3lWS0dkYjRnTnJZNXlaeG5NcGZWMlI5d1pybnl3S2xvdHVDRmM4eHB1d0ZkK3dKS3BtdGx6MjVlS092Y3BSNll0bUQyOURUWjJBNjVPQXRQTVMycnM4dk1jdW1CYzIzMk9IdWNQY293U2dqT25OMGNXZWU2Z3RtREdSdmI5N3V5QnZ2ZHZxck9MalBMMVF6bVBOYzU0OExKNk5Rdm9QdXpNTHcxeXB6ZEhGbm51b0xaZ3hrYjIxeGxuU2NqVjlYWktiUDh3Y3dEcDVuS1JWK3lKYXV4eTU3bWdIdU9tYk9iRjhrNmgreFQ2WEd6MVpubEpRWE1IRkZaekZabmxwY1ZNSE5FY0FFZ0RiSVFNNWR1amJVRnM2Y0xzQVVCTXpPakFiTzhNcGNNbDg2ekdzeE8rT0grNW1scTZta2V6NkN4MTZtMEM5Zy9uNWExemwzNitiVUZjd0V6S3RsK0dFNlBQMnpPTUJNcmxITk81V2ZIMXpncG1NZG9ZWjNYVHhWZ0puUEZENmRYQldoeVpuT3EyQjU0YmVVMVVhM2F6MGN5OTF3VnFpMWxuV05wMzdJQ3pPUTg1dVIzY3lZdkpZNkxhOTc5L2RnNUYyUzlLeWNRWnYrOHJIVU8yYWNLTUpQem1NdldUR0pHNElqclkrU2NUMTc1YStsbUpscXpFdFk1WkorcWFjMzg1dW1oZUNVd2t6T2J5NHJ0c1hNK29GdXR1WHN6V09lYWc5bmZCVkMxMS9rUjdHNlVQZDZhZE5yS09WZSs1NEM2a1FQVjB5eGpuYnYwODJzTFpqOW1HeFF3TXpNYU1Nc3JjOGx3NlR3dHhBeXlUOEFNMGlCZ0Jta1FNSU0wYUJ1WVVVYjZmNHZydDVOUFBrbDU3dEY3ZEFITWpHWkZGNEF6MHFQNjdleVQrODE1elB4VjFybExQNysyWURYRWpKKy9pT3EzczA4K1BSN1JVMEVEOGIvbXFYZ2gzaVByM0tYejNNcTlHV1drUi9YYjJTY1hXRkhWZG5ZNzZRVmpGcUkxTXpXYUZhMVpTTmZOcUg0NysrUUNLNnJhSHA3MGIvR0xsWmhCOW1rckYwMTZIQ09xMzg0K09VK1NMajRaLytnYWwyOEhabzVwRzVnOWt0T2pxL3J0NUpQL1Z6VkJlbmh6eUkrYkJlb3BiV0RtaURCdUJtbVFoWmk1ZEd1c0xWZzl1d0JyQ3BpWkdRMlk1Wlc1WkxoMG5zQ3NIc0dBMlFxaEMrQ0l5bUZHcGRrelA2Qkt0SFA1NDJvVktmQWF2NzVHUmR4UnNMMDJLdG1hUlk5U1RBNFhQenBNNUk4blBoOWZwSkxiWE1RZFdlZDFVWG5NdUhwN0lOdW00TVhuMzNuTmU4M3JVdlZac1lwOWNhN3M3cEZoS1JxLzV1aXVtcWRpZkMxRTFubGRscVV4b3hJc0ovMzcrelJqK1V1OTVtbW5GYlRHUjM1ekpGWkYrZU5CVjd3UnEveHU2TGR2eXNhTGlyaWpZTHUyWUhaM0FhZzFvN0xhNDMyZXNad3FhM2VwMGpZbEJ1K3IvSEhLS1JkdnhLcVRma2hadjNKWHFxbU5ndTI2Z2ptREdWbmVDNWlSTHk1enlna3puK3BwRUVPY0gzeHJoS3h6YmNHc3hveDZtbHk5WGR6VTA3V09pclUzMy9hOHhrZmtoVitTdnZnZlVlV3pUanVnTW1mVWxRem9rWitCVEU1SDFybW1ZRlpqdG1taHArbUlnQm1rUWNBTTBpQmdCbW1RaFppNWRHdXNMUmk2QUNzRXpNeU1waDB6V2FxOW0xNU5zNkZIbGRuSktuOXY1cEx6ck9qVHJQTHQ0bFY3NXJEUGppNGxsMzUrYmNIc3hreVdhZzlTU2VNaHA1U3JTYzJsVlQ1enllV3M2Rm5sMnc5NTdlTFJwZVRTejY4dG1NMllxVkx0bkRmZWsyT3dYSzNkYTdHZkxtc1pTNnM4Y3NubHJPanBnc2V5ZlB1aG10U1ZkNFoxN3RLeUZHYXpVdTBodStMUkpOUW5mWjROWFZabWwxWjU3SkxMV2RFenk3ZnpLNzhwelhqK0F2UTBIVkVwekZTcGRuSXAyUlZud3JpV3Nad05uVnN6U1V6a2txdFowVFBMdDR2V3JOZVYxYmp2QWpPblZMWTE0MUx0dEd6Sk9kQUhqWStvUHhCaFJwWFoyU3FQWEhJMUszcG0rZmJETUJ3QU15ZFZDck9vVlB1MHQzdWRYSEd1MWo3ZTg2U2YvdDJlTEY1R1ZubmtrdSsrSUdkRkgyV1diL2ZFeW9CbVM3L2RhU1dPTGlXWGJvMjFCYk81QzVDcEw0Y2gxY2VvUk1ETXpHZ0dZT2FyY2JBcUJNek1qR1lBWmxVS21Ka1pyUTZZUWZZSm1FRWF0Qm5NWkdKdkdFb0RreXBuOTFkOG50UkpmL0xLa0x1ZjdSQ1lPYU1OdFdaUm1qQWJtRnc1ZThYbkNja054MGRrdllmQXpCbHRHRE0yTU5uRTlEbE5lRDd4VjMzT1JRNEczb3ZYcEVkNmNDcWYxVUFsYlhmT2M3T1lLUU9UYzlJNVRYZys4VmQ5VHJXemc3Wm85TmdqOVpzamZrdENUOVBNYUtiME5CVkdRZlFzbXQrVitadnppYi9xYzBva1B1bUxiZGdqNVptc2dabGI1N2xCekVUYkpRMU1ycHd0TVp0UC9GV2ZVeUt4cjFvenYva0FtRzBnbUpPWThaT3c1SE95Z2ZrYnJwek5hY0p6aWIvUjU2YzhaN1duWnJBT3ZNdTlxQkZFRjhBUkdUUnU1aTg4NmczTVhKRTVtSTMzR3NQME9tRG1pTXpCTEV2QXpCRlppSmxMdDhiYWdqblpCYWhLd016TWFNQXNyOHdsdzZYejNDQm1QS3JSR3NlelRVZTJrc3dUTG02ZHUvVHphd3ZtTG1hVVZrS3BTbXEyYVZud1UyVUZ3enF2bHphTVdlaTNvOW1tSldZcUs3aU1kWTZsZlVzTnJabWFiVnBpcHJLQ3kxam5rSDNhS0dZOXFqSWJ6VGF0TUZPMXMwdFk1NUI5MnZSRk13eWoyYVpsbFd5VkZRenJYSE13ZDdzQW9xZlpHRktUcG1hYmxsV3lPU3VZVmRRNmQrbm4xeGJNWGN6eWFsM3IzS1dmWDFzd1lLYTB0blh1MHMrdkxSZ3dXeUYwQVJ3Uk1JTTBDSmhCR2dUTUlBM2FZQzdBdkd0T2c3RGVlVmpuV3dybVpoZGcwVFdmSHA4ZVBMaGFoWFh1MHMrdkxaaXptS1ZkYzA2cXE4STYvNkpTYXhkWjV6ck9jN090V2RJMWw1aFZZSjI3OUs5Y1d6QkhXN05GMTF4aEJ1dThqdHJnUlRQbG1pdk15bHZua0gzYVdFOHo3WnJUM1ZkN1VvVjFEdGtuZzhiTmtIWHVyc3pCRE5iNUpvTzUyUVdvU01ETXpHakFMSy9NSmNPbDh3Um05UWdHekZZSVhRQkhWQWxtMGltZmU1K2VMNWhtcTQ3bW9SN3ZlUzhkbjNaaVE3MUZzMUhUV0czajAzaEs2dVRSUWRhcm10Wk1la3ZxemVRd0xxUTlFODFXSGRubUw5UGtyS09Fb2M0ekhvWWZoOUc4MWFtamc2eFhaWmlGUHMxajJBOWVmUDRqVDlWam4wMU1MVDF4Wlp2N2NvUS9ZVUhKK1ZzNzVLTEhVMUpqRW1xWGx0VzJac0hsWG5OMGYxOGhOSnVZV3M1V3JXenpRWmNBYk55ZVljYXpVWDg5Q25oR1RqVWxOUXRkQURPamJha0xJSjF5YVNYUnBMOFNzOW5FMUhLMmFtV2IrM0p5NEhSckpsNUg4MWFIeXRJRVpvWkcyeFptN0pSVE5mWVpadU9qMmNUVTcvQnMxY28ySCs5MUk4eVVvUzd2emVLVlBDVjE0dWhTY3VubjF4Yk1CY3lrVTA3UFl6ZmZiZ3dublV2U0xKL0dFMU9yMmFyWk51ZWVwdlRLbGFFZThuOTh1WWVha2xyMlZJR1ptZEV3YmdhWktHQUdhUkF3Z3pRSW1FRWFaQ0ZtTHQwYWF3dUdMc0FLQVRNem8rbkQ3S1EvbVBmTFNaT0RCOHI4RHJ6R3I5K0x6ZklvdTN3K3lYd3krMXk5bDBYZG8wd0FZR1pxTkcyWWpYOTRuVjN2K2JYS0VYL1VIMThjVFRydHlDeVBzOHRUU2Vheno5VjdXWi8yVUU1YkhRSXpVNk5wd295dGNLYUNoMkRIUCs0MGhqeThlanlTZHRGZGJyVWlzMXhsbDZ2RllMYy9vR3dtcnhXYjZYTXpvQk5tMUVyQ09uZG5XUXd6dHNJak85Si9TVnoyeUIwS3VvUVptOTgzdVlXS3pQSm96bk81WUJDRHBKaytQd082aUJCZGk5SFRkRVRGTUdNcm5LbGdlM3g4Uks1M3grdkdyWm4wSkNPelBKcnpYQzFPK3JkR2xKODVpblBRNTJaQW54eUtTMjd5NkNEclZiZzFVN2Roa1QxK3QwL0d1Y1NNd0JPZ0JPMG94MXhsbDBlTDhZK3UwZnpuWVp5RFBqOER1cmhvK3F1ZTBJRHNVekhNMkE5bnc1dnZ6UWFOMjUwV0dlZjNaY1k0dFUzU0hXZXpmUGNGM3ZqWlYyV1MrWWd1cVdTZm40L005TGtaME4vdmVPMXBUejZwalM2QW1kR3NHVGY3Y3NnVk5zNFFNRE16bWpXWStYT3BKY3NFek15TVpnMW02d21ZbVJtdERwaEI5Z21ZUVJvRXpDQU5Lam84bTk4M1g4d3NMMmlkUS9hcEVHWkZmUE9zekhKWTU5cUMyZGNGS09hYloyV1dGN1BPdjZqVTJrWEJkaDNuV1FDellyNTVWbVo1TWV2Y3BYL2wyb0xaMTVvVjg4MnpNc3VMV2VjdS9memFndG1IV1RIZlBDdXpITlo1WFZRQXMwSyt1ZGh1SWJQOG1iMUMxamxrbnpCdUJta1FNSU0weUVMTVhMbzExaGJNdmk2QVJnRXpNNk1Cczd3eWx3eVh6aE9ZMVNPWS9aaWR2Sjh3dTJlaWVhVFpCbS8rZHM4angxeFcybXRQWVozWFQrVXhvMUxzTTdNN0ZzOXpUdjdrOVBoK2QvcFdud3VIOGhodFdlc2NzazlsTVpPbDJObnNudFZucHdhcHhaYjY1SkFUUzhobTRxTHU3SitYdE02eHRHOVpGak5aaXAzTjdsbDlkdjdQK1BsaDlBbW5uQk5tN0orWHRjNGgrMVFXTTFtS25jM3VXWDEyTnBla3BjNnQyWUJ1dGVaYk0xam5lb05aM2dWZ0gvMlV6ZTVaZmZhUENDdUZtWGhGRjlTcjgvZG1aYXh6bDM1K2JjRXN4MHlWWWlleiszcGNuNTByc3BPbGZyNGpEWFpQTERqZmZLQjZtbVdzYzVkK2ZtM0JMTWNzVSt1bGxLOGhZR1ptTkRNd1d5K2xmQTJoQytDSUxIUUJJUHNFekNBTkFtYVFCbG1JbVV1M3h0cUMyZDhGV004NkgxYVdkZTdTejY4dG1QV1lyV21kSSt0OHE4RXN4Mnh0Nnh4WjUzbVhMcDJuTnV1OHVxeHp5RDVwczg2cnl6cUg3Sk0yNnh4WjUzV1dUdXNjV2VlMUZhenplZ1N6dktlWnFjMWE1eTc5L05xQ3VZaFpaUUptWmtZRFpubGxMaGt1bmFlRm1FSDJDWmhCR2xRcFp0SkViNTRlelBtYmswN3pWK0tENW9PZTk4eWVNc3N6YzlCNTNJT1Q3ZWFQRHJKZVZXSW1UZlRwOFljSkc1M0dXcnYwd1FHYm1iRlpucFdEZnNockY0OE9zbDdWWWFaTWRFcVZPNDRkOUhZZy9rZlVSWmhGVmR5emN0QVBsVWZBcGp1c2M1Zk9zenJNWmliNjlIakUxcWJBS0x5L1R3K1p0ZFdUWjZQWUxNL0tRZWRYdnJpNHloTHdJWHFhcGtiYllrOVRtZWpjbWtuTTZORUxjV0VNeVRlUFdyT29pbnRXRHJwb3pYcFVqNXZkME1UUnBlVFN6Njh0bURPWVJTWjZHRXBTQm8xM3VveFpvR2lTbUtrcTdsazU2SWYwTEFjdzIwZ3daekNMVEhTNlNIYlpRYWNyNktUVGZ2U0MxN2dkOVRTVldUN016RUdueTZyWW1VdkFKNDRPc2w0WU40TTBDSmhCR2dUTUlBMnlFRE9YYm8yMUJYT21DN0FKQVRNem93R3p2REtYREpmT3N4ck1zajN6Y0x6bjdjcXBObnZORWJMT3R4bk1CY3lXZU9iajU0Zmg1R1hLTncvSDE2ckxPb2ZzVXdXWUxmWE1PUTNPYjlPa0FKK1Bxc3M2eDlLK1pRV1lMZlhNdVlCMjBPS1pncEYxWG10VlVSRm9tV2V1V3JOdzhzcGY5NUYxWG10VjA1cGxlK2JpbG8zdno4SkJjMVRoWE9jdTNScHJDMlovRjJDcFp5NTdtcUdjUzZlNnJIT1hmbjV0d2V6SGJJTUNabVpHQTJaNVpTNFpMcDJuaFpoQjlnbVlRUm9FekNBTkFtYVFCcDJCR1Ezdk4zL1ZwK0xyS2RHZ1dLeU14SElhdFloSDh6TjNnbld1TVpqUlhRQ0JCZVdNWCsrMUZ6NzY4ZzhUNjdJU3k2ZFhodE5lZDhWT0tOaXVNWmpCbUxFbnpuOXh6Z09uc2RYZ3hlYy91c1E1NFIrek8wbEdPYTNMU0N6blRNeTJyT0xlL05CcisySXYyaWtjN1BZSFlwMW82MUN3ZmRYU3BmTmNoUmw3NHB3enpzWFh3ekM0M09PY2NQSXBQNkdhS3VSZ0NrQkdXWW5sc2pXTHFyamZIRTQrVVR1eHA4bmVaekhyM0tWLzVkcUNHZHlhc1NjZThpV1JxMkozeUJzaXRDakhsMitnb2xrQXdvekVjcm85YThrcTd0TXJ0MjhkM1J1cW5jUzZXeU91NlE3cnZDNDZvelh6bS9lN3NnejczVDRaM0JJejhjSG5JN3F5eWZMczdjekVjbG5kaDZ1NGgvN0ZUK24yVHU0VWpuOTBqZllRUUtGZ2UwMjBDak8yd1NsbmZNaDU0TDY0Skw3ZEdJb21pWHFVWFdxUDZBNnJPMmdNTXhMTFBab09qTy92cVBmNGJuaVBtcmV1blBGY1hDYXBwdnY1RGdxMjEwVDV4ODJDeFY1bkFhMVgweDJZT2FMY21NMkd1VXBwdlpydTZBS1lHYTBPMXJsTFA3KzJZTUJzaFlDWm1kR0FXVjZaUzRaTDU1a1BzK0lXWjRXVFVFUDJLUmRtWlN4T3BBUFhXVGt3SzJkeEloMjR6c3NjbUpXek9KRU9YR2Zsd0t5Y3hWbGRPckJMdDhiYWd0blRCU2huY1NJZGVLdkI3TUdzbE1WSnRiT1JEcnk5WVBaZ2xxMXFMTTRsQW1abVJ0T09XVVVXNXhLaEMrQ0lMSFFCSVBzRXpDQU5BbWFRQmxtSW1VdTN4dHFDV2RNRk9MbmVXMGp2VlFPcVNBYzJQcGd0bUNrelBDVmZldHhJQnpZOW1CMll5V3JaQnlQL05lODFyeHRjNmpSdXMwOU9aVUQzem4rU05jODAwb0ZMTGwwNnp6VXhrOVd5RDA0N3JhQTEvZ25iNVd4Z0NzenU5cjhjYWswSGh1elRtcGpKYXRrSEk3SXh4MGRzbDBlWXFYc3JwQU5EeTdWK2ErYlRYRGt4Wm42YmZmSlBqMGYzaGdJNXBBTkRxN1FtWm5SQnZOenp2aXZ1b0R5djhSRmZITWtuRDd6dWJ6dlNVRWM2TUxSVWhjYk5LckRMUzZRRHU5UUQweGJNanA3bW5LcXd5NUVPckRlWWhaanBFekF6TXhvd3l5dHp5WERwUEMzRURMSlB3QXpTb0RLWTVUVFRSYitoRXVzY3NrOGxNTXR0cGxka25VUDJxVEJtQmN6MEVOWTVyUE9jS21DbW81TDI5b0xaMnRNc1lLWlhaSjI3OVBOckMyWXJaZ1hNOUlxc2M1ZCtmbTNCYk1Vc3Y1bSsrd0tzODdxcW9uR3ozR1k2S21uWFN0VmdsdDlNTDJHZFEvWUpMZ0NrUVJaaTV0S3RzYlpndG5ZQnRBaVltUmtObU9XVnVXUzRkSjdGaDJmeit1YVZGV3gzNmVmWEZzeFN6SEw3NWlqWVhtY1Z3NnlBYjQ2QzdYVmVGc09zZ0crT2d1MTFWakhNQ3ZqbTFSVnNoK3hUNGRZc3IyK09ndTFiRFdabEZ5Qy9iNDZDN2RzTlppVm04OXBjelhaZ1ptYTBiV0Myd1pydHdNek1hSFZ3QVNEN0JNd2dEUUpta0FZQk0waUR5bUUyemJEUFdaUW9OMmVDcTFXa3dHdjgrcHI0ckEzclhGOHd1N3NBa1gwK09Wejg2REJoZ2ljK0gxK2syYXJ2RFFWMktOaXVMWmoxbVBIRTU0RnNtNElYbjMrSDNYUXlvc1FxTnNGNVVuU1BYQUd1RUhvM1NnRTQ2U1ByZk5YU3BmTXNqUmxOZG43U3Y3OGYzdTBITC9XYTBrMC84cHNqc1NveXdZT3VlQ05XY2ZYMm0xSGpkV3VFckhOdHdleHZ6V2hHNnZGK09QQzhGazFLelRZblBSRzByMHh3TXNiRkc3R0txN2VmcU5ZczZNSTZyNDJxdyt6ZWtHMm5lY3pJQkpmR09HSEcxZHVKSWRxdWhZTHQ5Vkg1bmlaUGZDNXU2dWxhTjJoOEdybnAzVW5ua2pUQi84aWorWFRhZ2RlVjFkc0RtcGFDS3JyL0ZGbm5kUkhHelNBTnNoQXpsMjZOdFFXenV3dXdZUUV6TTZNQnM3d3lsd3lYemhPWTFTTVlNRnNoZEFFYzBiYXNjL3J2YlJSc3I0dTJaWjNML0hOa25kZEUyN0xPWmY0NXNzNXJzdHlXZFM3enoyR2Q2d3BtZHhlZ2hIVk8rZWNvMks0cm1ET1k1YlRPT2Y4Y1dlZTZnbG1OV1JucmZMYy9LV2FkdS9UemF3dG1OV2FiRm5xYWpnaVlRUm9FekNBTkFtYVFCbG1JbVV1M3h0cUNvUXV3UXNETXpHZ2FNRHZwRHp3djdaaFRXY2JGS3UyN0x5UzJROEgyYlFhekRiUHhENjhmbng0OFNNMGV4MDdTWXBYMmhMTmVYY0YybDM1K2JjSHN3b3dydFRNT1BOVEt0amxYK2p3ZVpWVnBUempyS05oZTUyVk96TGhTTzhORU52aExiSnVUOFMwd3k2clNQdWVzbzJCN2ZaVVRNNjdVemppd0RjNStKbmxHaEZsR2xmYUU1WW1DN1hWVy90Wk0zSVp4YThZMk9ERkV4amRkTkRPcXRDY3dxNjVnTzJTZmNtTEdaZGxEcXIzTzkyWnNtL3ZpTW5sLzJlem1zYk1lb21EN05vUFoxUVhRTEdCbVpqUmdsbGZta3VIU2VRS3plZ1FEWml2ME81QWo0aitucVpobHl1RHVKdzV0cFlCWk5jS2hyWlJWbUVHMkNwaEJHZ1RNSUEwQ1pwQUcyWUlaUHhvWkw0eVNQS1lOemkxYVhQTFFhUHFpTFIrSUpaZ3ArMTB0akZKMFROTXJ4bUdtRG8ybkw5cnVrVmlDbVhxWUtIcW15Q1JGeDJRZ1pyT2ZhOXYvT0MzQmpCK05qQmRHS1RvbUF6R2IvVnkzUnRzOUVrc3dRMnRXUlBIUEZYVFAyblREc2dRejNKc1ZVWFJvUVhiOVZvMnlCRFA1YUtSOHJOSTB4WWZXM1BLVmFWSHkwUHhrSWVEdHlCYk1JS3NGekNBTkFtYVFCZ0V6U0lPQUdhUkJ3QXpTSU1jd3U3T3pjKzd2M2t5dC9PWS92dm40ZDNtbFdzd3BhMTI4OHF2dmZMWnNrN08xdUZ2QlFId2svL2JzVGI3OVFhNmp5YVgvWG1wdnR6Qzc4ZFJuNFowbjBqL0lEYmxtQWIrNVR6UDErSHRQZlhiR0ppbkZYN0xrMjliYU4wT1M5NVg2NXZVblYyRldVdVVvZFFxenIvNFYvUlFQTDZSV2k5YU1Ga3YrUGFwUGwwVGt2KzdLVGVZVmYwbUJmLzByZHZubWo5Y2c2UEgzTjRoWitQajN6Z1I5dVp6QzdNNVQ2cGVnYTZmNDFmL25qbGp4Y0dmbkNicG9pdVVGK2llWitPeng5M2FlL0lBWit1YjFuYWRGYS9DL2FjWGo3Ly9zaWYveXUyL3loMTk5NTA5Mm5tYk1idXh3Y05wUjdNOXZhY1AvL0oyLzNIbnE3M2VlK29mdlBmbUJhUFQ0UzJqSGpHOEx1VW40U3Uzd1dSUkpiZkd6Si81VHRLL2EvSTU0R1gzdHc2Y0plYlduL1BMRWxuekcwYnZFQitLc3hPc2I4WGZQam1PMlRmeGxPK2ZrR1g4citoWFNCM0VqL2M4M2g1ekVUTFJCWDMzclB3aHk2TS82N1E5RUl5Y0krSC9FeWhOdkpqKzdjMDRBSkpzcWFnbittVmY4L0hYeFp4Y2I4b2RmZmV2Q042OWZFQzhlaW5YbkpJNmhXRWx2LzUzWVVMd1hmNTJuNmU3dit3UXNmUW52bVBGdElWMTlmeDd0OEhNVktkcmlYQmp0KzNPNXVTRHJ4am4xdFdKOU9Qc3FYcG5ZTW1RTWI5Q242cVRVQjNlZW5oMjUvRzYxK1d3YnRZNlA0b0w0SDEyNmx4ekVuWFBGL3pKT1lrWS9pUGpWK1E5UGZ5Qm1pWENTNytQUDZFOTNRVjBSeFEvNXk4OTRCUkVYZlVnWFRjWkcvR3NYV0tnTDA1MXovSlpleTBBQ1JmVkNOWTBYc3I1TmRrWVNPM0NrYUlzdzNsZHV3bzFIOUxXMFZieW5YRG5iTWxRdFRlS2s1TXVIVHllT1BQNXVPdHZaTnZHdlJMK0ErQUVmLzJEWlFRQXpKWGx2OXRXZjMrRWZaUWxtaWM4ZWluL2dFV1pmZmZ0Ly9YbklLOVNmbkYvUE1GTlhqQWdPOVdmTndpeU9tdnEyTUJ1emFJc3czamY1RjFaZk80OFpyVXhzR2M1aGx2aUEyOTRvUkJLenhEYnFWM3BhdFpnWC9tN3BRUUN6U05UVEZMZXFBcmY0QjN3bzdyNWVmL0t2WXN5U245MVFWOFI0WDE2aC91VDhXbUFtTGgzY01JVDA3NXc3WFBKaTh2Z0hhY3dlZjQrK0o0eWpwcjR0VEdFbUk4VmJ5RHZBQ3pHeEQ2bGxpYjZXN3MzaVBYbGxZa3Y2bkRaT25KUUtjVTd1eWlHU3g1SFlSdjVYSG9YWWVDZnhLNlFPQXZkbXNXN1FQUzgzOHhmRTY2ZnZpRjlOck5xNUlGL3dJdkhaMys4ODhhK2YvSm02aWY3cTkrbFhGaXYrUFc4a1AveXIxMmxydVRjUEY0amI1QjBhM3JpaDdxMUZJTEg0UzM3MXhMK2huc0lGRHZMQjRyZDlSc2YxMUo5RU8veURpcVMyNER2N0Mrb0ExSUUvOFdhb3ZwWjZtc212b2o3R2JFcys4U2ZlVEp5VS9PRC9mb3U2RnlxRS9HNjVlV0pudFk2UElwUXNaUjhFZXBvYVZkMmdRYjVJcTRkZWwraWZCY1cvekFYSE4zKzZiUE1jZ3pvWkFtYjV0QzNNMW5FQjBpSXlIcitSYTVlRk1jZFljQUUwU3R4VVAxWGkyckdSU012MVVONUNySzBiM0NYZGhJQVpwRUhBRE5JZ1lBWnBFRENETkFpWVFScjAvd0ZOUFBkYlpZMys0Z0FBQUFCSlJVNUVya0pnZ2c9PVwiIC8+XG5cbjwhLS0gcm5iLXBsb3QtZW5kIC0tPlxuIn0= -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAMACAMAAAC5KFtLAAABy1BMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshQ9elmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojm6Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq46rq6urq8irq+SryKuryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///+xnWxOAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO2dj58bx3neTz/iunXLPUigIcepU54lU0cBknKJzj4TahI3ampBVE41VVEE27hthKNMRZFDgWnaaElazhERs5QQEcL+uZ33ndnFYrHAYX9gMDP7PB9bCyx2X+zivpzdmWffd3ZCCNq4drZ9AFAdBMwgDQJmkAYBM0iDTMXsdyBHxH9OYzHb9gFA1chCzL6o9CsqjWZusC0fGjCrRzBgtkLAzMxodcDsOchkrfhDbgizScdrjujF+If9cNrzPG/3/eQq8bkn3gZeYxj6XptWn/Qnrwx503YIzGxUJgmbbc0mB4xU+OUftuWbR/35VYfh9Hj0sXg73heESfjEf4/GR4mjS2nbvyO0Upkg6MHs40A0YeLNo35q1eH0qmjTxCu/GwZt0YrtCg5PO9yY0XDLF1/wbcAXyeW2f0dopRb+XrTUgtnkE3ElpEvkbn9hVSv8eiSIu9sXbZjfFk2aL66i7YCvoGjNLFQmCFowC0Tr1J1vzdQqas2E7va5NROXzbt9cRUFZhYrE4TNYyZusz4fhUFLvtmfX3XIm02vDPneTLRmfvPBWZi51NHXFszlAQ3uSe5e74l2a+A9+6p44/00ueqZPepP+nQtFe/avH038C73uKkLgZmp0czCrLSAmZnR6oAZZJ+AGaRBwAzSIGAGaZCFmG17YAhaprP+kEUxk3Z4P+sjZYWHNBLbGIrFyfvsIYldWuqDSYd2nfb44zBy2nkUpJs8upS2/WNCy7QclJKtGQ+2st0dDbWql8oKJ33M/xVbkVF+ZRiZmuLd5C1B3L/8wTAZjT8I5FMcwMwuLeekAszCoE3tUuDxQjRGbfGSzaPgUqcxZGdcmuIRZuMfi/W0/S9eGYaf/8XQpwHb5tvtGWbU4ME6t02LlnlF1jmDMd6/2w/a9/dDWgi+Qn4Zjn8iLod+m51xNsUj7/yBWH/SFxtN3h10p39zU7RmQXdy8F7UmnXiyypaM6u0nJNqWrOB57XEZZIWBI14KVuzNr0kZ5xNcWrNel1qzY7EuzFhNr74j397UzR4Hm0eXzTHF0fAzEJtFDNx13VPskULas3ES743E+SIZoyulGyKn4q7t8E8ZtO3fjK6Obw5DLrj/ZO+tNUFjX57BWaQfaqmp0nXuUmnLRf8kq3wgB7B9tUG0jVvPhA9zUHjdkdsdEk0YuIq6zXe8bxnX73ce2ZPPcYtuqOy+wrMHNFGx82C9tnbrBSsczOjGWWdz0bEigqYmRnNKMzKC5iZGQ2Y5ZW5ZLh0nhZiBtknCzHb9uiQAdL8ZyivzVvnUUcA1nl1Kvjn2p40WOfTK4QRrPMKVfTPtTVt3jpnzGCdV6qlFvXy5T/l3H7l8p/y7rd565wxg3VeqQr8pazuaa5jnRNmsM4rVYG/lPWYnWWdq9asMuvcpfEkbcGsxmwd61y8ao5gnddbFlrnkH2y0DqH7JOFLgBknyzEzKVbY23BrO4CbFrAzMxodcBs24NWW1AFP6WTmMXV2Wncdo9KGHtcm32+hjsKtq+pCv4iTmKmqrNPrwhkutOeQOae8sxRsL2AKv/z6NYGMXvUVwbA9Be97gJmKNieQ1VZ3ltbbgwztslVa3Z18nI/hRkKtudR5X8e3dpwayZuslqhaLHGF2/NY4aC7XlU+Z9HtzZ5bzbel080Ekp+Y6iMcRRs30YwN7sA3Fcks7zBjzQKaG7e7sSdTxRs1x7MTcwqEjAzMxowyytzyXDpPC3EDLJPwAzSIAsx2/bowrw0/yKWCpiVlOZfxFKZMNf5gBLmbLXO5w4NXYAlMmCu8/vdcNC11jqfOzRgtkQGzHUu7UxbrfNy2dirll9UamFbnXV+htaa69xvC8ystc7nDg2t2RIZMNc542etdb6hX84xGTHXeVRBaD3rHLJPRsx1Tumc61vnkH2ycNwMsk8WYubSrbG2YE53AcoKmJkZDZjllblkuHSeFmJW7UCEuWQAM13SgBmkQxowO8tAn5M263yTZwylpaM1O8tAT0ifdb6504UWpROzpQY6TUMx8F68ptM6NyMbuy5LjZgtNdCpzjtVQ+7qtM6jaObetaMLkE9nGehU5/2kLzDTaZ1H0cwlA5jl01kGOtd5V60Zss43E8x9zM4y0Junss6710XW+caCuY/ZuvK7C6tgnTsiczAb7y2WdwdmjsgczLIEzBwRMIM0yELMyg9iJGXuXTu6AGcqVyVtbenAWdHMJQOYna0clbT1pQNnRTOXDGB2tnJU0taXDmxemuyq5ReVeotupgPnqKStLx248rOE1pQBlbT1pQNXfpbQmjKikna+dGBgZp+MqKSNdGDXZeG4mUs9MG3BHO1pViNgZmY0YJZX5pLh0nkCs3oEA2YrhC6AI7IQMwxk2KeNYDbJssxp/i8e59BvnVd7dlB+baY1y7LM3xIs/csfDLdhnVd8dlBubQyzBcv8F68Mw8//YrgN69xcSxnWeRllWebvDrrTv7k53IZ1vupQze0coqd5lrIs83fHF//xb2PMtFrnqw7VXDKA2VnKsszfnb71k9HN4Tas81WHai4ZwOwMTTIt827Q5n4nrPP6ycJxM8g+ATNIg4AZpEEWYubSrbG2YC52ASoTMDMzWh0wKzmCkZK5ZACz5ZrLKhfvmr/qL/9cWecBjWhUap3nOGBzyQBmKzRnjfvdhYrsi9b56GPxtlrrvLrTgSrRxjBja5z+H/qvea95XZ8GZZtvtxetc9HkjcJqrfMKLWcsq1huCjNpjYeB1550WkGLWqegOzl4LyPr/OuRIK5a67y604Eq0aYwCyK/yO8G3aA9PhJEUYOVkXUudLdi67y604Eq0UYwi63xgOCRmN0cBt3x/kk/yzqfXhlWa53nOF5z79rRBViuubLZzd+84DU+FXdkntd4x/OeffVy75m9DOucnt9e3zp36efXFswxzKoVMDMzGjDLK3PJcOk8LcQMsk/ADNIgYAZpkIWYYczMPpmQdV6tdZ7zWM29a0cX4Czlyjqv2DrPeajmkgHMzlKurPOKrfOF7VcvkXWu4zwNyDqv2DrPeajmNkBozc5SrqzzsFrrvOJTgaqQEVnn+axzyD4ZkXWezzqH7JOF42aQfbIQM5dujbUFc7ILUJWAmZnRgFlemUuGS+cJzOoRDJit0LrjZpoPC8qr3Jid9Afki8fv4zTy8OQ6T3DeDwOv8ev3lFXeGM5M8lYq1Hyq8ERaTJx3N390KQEz+5QXs/EPrx+fHjy4OlsTmZQCGjnB+fjiaNJpR1a5Msml/TQfiz9IBDpUw7rpo0sJmNmnfJixt81giVfN0fjHnYZyj5TrTVMC3+U2KrLKlUmuzHSx12mn+aHX9kUzxx8MdvuDJpnlLYmZiMFhwzzW+caypbGsZpkPM/a2GTO/G/oviUuiTLxUn8gJzm9yixRZ5cokl60Z7UVG0s3h5JPIPSc0g9nefvMBh+Xv09CamXvXXt8uAHvbjJl4Nd4fH4m3EjP+RLZmEpHIKlcmuTTTea/pldu3ju5FH4h1t0aU0zmi1qzXnR6POGzi6FICZluPtmHM2NsecWvWCimXXGHGz/D4zVOe4Fzcm4nPIqtcmeTyrov3Cv2Ln9IDj/KDcPyja5Sdzvdm4WANzFz6+bUFswoz9rbZ5eZ7s0Hjduc8O+N0xZOWN1XKoBstZZXvvhCZ5HS7xXuJhi68Rw9ic2L6iC6y4z3POx89sd2lsK3E0ZU9x5UylwyXztOMcbMvh+H0asZ6WOeOyAzMfB5vWxQwc0RmYLZMwMwRATNIgyzEzKVbY23B0AVYoXXGzUp+hblkALPlKlKwvdxc5yUP2FwygNkK5S/YXnKu85LHay4ZwGyF8hdsLznX+cLnWJq3NKBge8m5zqs7dGhjMqBge8m5zqs7dGhjMqJge765ziH7ZETB9nxznbt0a6wtmGtdgEoFzMyMBszyylwyXDpPYFaPYMBshdAFcETADNIgCzHDaJl92siAxnyt9pDS1M+vKNhexDqv7IAhHaq8NVus1T7lNPXlBdsLWeeVHa+5d+3oAqxQRq12dgaWF2wvZJ1XZu2iYLuO89xUa5as1S4xW1qwvZB1XtnxmtsAoTVboYxa7QqzZQXbC1nnlR2vuWQAsxXKqNWuMFtesB3WuevaQE8zXau9T7b4ZFXB9nzWOWSfLBw3g+wTMIM0yELMXLo11hbMtS5ApQJmZkYDZnllLhkunaeFmFXraJpLBjArIs4358GLOCE9qvB+xtGlBOPcPmlszXj8/94wmZAuK7ynNjtMH11KwMw+bQOzWUK6rImsarbv9rlSe+C1x3vnP1lZsL1CSxlLHcstYDZLSJd2poTtbj+QBeDv74d3+1/KaSjQmjki3ZjFFdxDum7K1oxrtg/oaUgqoT3el3PwzI4uJXQBth7N4C5AOH1LTimQSEhnH32fa7bT1TTC7B5NfT47upRc+vm1BasPZlSWfbc/nUtIlxXeqY2jR8+4Uvuk0/5tRzZ3wMzQaEZjll/AzMxodcAMsk/ADNIgYAZpkIWYYdjMPtUeM3Pv2uvcBZgud7tV3ngYj66evN9R2eNklkd7ziYzn8zmQ1fveX66TjR8C8xMjbb5niaPqMoq7AmTO8pNku9kdhNZ42r6cpliPtsz2iueD30Wm2MFsgACMDM0mh7MaPxetERcJpun0myLl5xpGVyiacoJLZlBrjCTKeZqz4MRWeO0V5SJPl/MnTCj6TSXW+fuZGOvWn5RqYVtWdY5ozDev9sP2mxyB8RXyC/D8U/EBdBvqwIH8fTls1nNaU+/OSJrnPaK50OfK+bOqehS6AI4oqKtGTvd+1Tsp0WYiJeyNWvTS8JMTn7O05dHKeZyz+nxiG7HaK84E32umPvkkKaxThxdSsDMPhW9N7sn2aIFtUvkf9O9Gc1kHrdmfvOUpy+PUszlngIzssZlayYz0eeLuQs2/Xby6CDrVbSnSVe2SactF/yS88YDLl9GU5hTh/GnXL/sgTTLn31V7hl4XbLGxefnVSb6fDF30T1tT3uyMwvMHFHF42aq9kVVgnVuZrQtW+ezMbBqBMzMjFaHJzRc+vm1BQNmKwTMzIxWB8wwoGGfgBmkQSYUbA8oFT1PwfbKjhbSJAMKto8+DsMwV8H26o4W0iMDCrZPOtT05SnY7o6lDOu8oPIXbP96FJCbnqNge3VHu+0emLZgrvU08xdsF7qbr2B7dUe77Z9fWzDnMCtQsF3sk6Ngu0s/v7ZgjmFWqGA7dUJRsN1lWThuBtknYAZpEDCDNMhCzFy6NdYWzLEuQLXCgIaZ0YBZXplLBjALC6WfL2aZI+tcVzBbMSuSfr6QZW5A1jmkQ+Uwy5l+vpBlbkDWOZY6liUxy5d+vpBljqzzmqh0a5Yn/XwhyxxZ5zVR6XuzPOnnC1nmhbLOXbo11hbM1i5AgfTz08Us8yJZ5y79/NqC2YrZGaom/RyYmRnNFMwqSj8HZmZGMwWzigTr3BEBM0iDLMQMAxr2aaOeZsiJvmZ7mpAObdbT/Jj/a7Snae5dO7oApDU8TU70NdzTRDqwjvPcqKfJib6Ge5rmNkBozUjreJqU6Gu4p2kuGcCMtI6nSVfKyj1NdAHs00Y9TV9tUK2nCdknCz1NyD5Z6GlC9slCF8ClW2NtwaztAugQMDMzGjDLK3PJcOk8LcTsuUq/wlwyao8Ze9w+2eJsak46zV9dX5hiOpUWLH3xMDkh9fsFrfN8BwsZoGKtGQ/X34tml/a7ZI4vTDGdSgueL6Et3jzqF7TOcx4stH2VxIzrYTMUi1NMp9KC50toH4we9cOC1nmlljKWOpblMJP1sMPAa2dMMZ1KC06X0M6y0tezznMeLLR9lcBM4BFEt1F+d3GK6VRa8HwJbdmaFbPOi53pEpl71177LkA4favPTMh62EFXXi1TU0yn0oLnS2jTm/2C1nnec1wpc8kAZuF4T1z0prIedvM3L3iNT3vpKaZb82nBPHVJVEKbJ6QmQx3pwJqC2YnZ2ipnoQMzM6OZhllJCx3WuSOy0AWA7BMwgzQImEEaZCFmz1X6Febetde5C1Ag2TxM2uVJc71o1vnaB7uOzCWjzpgVSTZP2OXz5roJ1rm5ZNQes5zJ5jO7PGWum2CdI+tcx3kWwyxfsnlkly+Y67DO66KirVmeZPOZXZ4y102wziEdKnpvlifZPGmXz5nrxaxzyD4V7WnmSDZ/kLDL58z188Wsc8g+VTxuVk2yeSxY52ZG27J1XlGyeSxgZmY0057QKClgZmY0YJZX5pLh0nlaiBlknyzE7DnNBwGVV0HM2N9uzb1XNuRMJ7Os8vGe99LxiLLT+wOx4/nU3qx5uzN5dCk9l/dgoa2raGs2vTKk8X2pyWGc7DsTOefKGp+83A/95oiy068fnx48uDq3txLb65lHl9JzuQ8W2rZKYBb6bRqIDV58/iNPud7THqUwtQPOetrtx9a4BEg+d0Fbyr3l1s0PvbbfGEp7fbDbH3ASVAvWea2tc6WoPQou95qj+/uqNfO7gp6ATHPpnCtrfNAlABtDyk6PMBN7R1vfHE4+mdnrj/ocgL8FDwKZGU1bT5NMpxbdknWlWy4xE3SM95kS6Zwra9xvyeaPOWTMeG/eenrl9q2je3EC+0n/lpztNXF0KT2X+2BXyVwygFlEDXneM8zGR4KnoD0+CgeNd9g5V9b4eK9LOwTxYxiKOdo69C9+2hONnLTXw/GPrlEW+9zRlT3HlTKXDJfOs3hPk2wl3/Oab9NzjJc4p5zuyOSs013lnEtrnHqaovV69ALtNKCHIXlv3jqcvBveG0YJ7COqzCG3nh0dZL1MHDf7chhOr/IrYOaITMTMj5NagJkjMhGzmYCZI7IQM5dujbUFs7MLoEnAzMxodcDsuUq/wlwyao9Z3oLtlIZ+29CC7eaSUXvMchds/zjaJ0TB9lpKS8F2TkNHwfYaL7UUbOc0dBRsr7H0FGwn5gwt2A7pkJ6C7eSVV1aw3aVbY23BrOwC5CzYTk8/TlCwfZvB7MRsbaFguxnB3MZsEwXbXfr5tQVzG7OSgnXuiIAZpEHADNIgCzF7TvNBQOW1OczmJjfPXsuDHM3RgEb9lc9+0p+8MmRnvR3COjc1mkldgDmvPHst1aY9vt8NB13ls0skx0fjo8TRpfRcpUdpLhnAbC3Ne+X00M/Ae/Ha/NrD6VX2Po/YmZKp6genctYKZJ27c56bx0x65VTZnYynbtpBb5GzND6SrHG+enPEm5LQmpkZzcDWTHrlVNldXBVjzJSDTq0ZP63BrRmnqk+PtWIG6dCGMYu9cq7sHrVmMwddTscTTcXDRd4fnIUZZJ822tOceeVU5acV13CP1j6zR/1JftqbfXbOVw+8y73o+SJg5og0j5v53bO3SQiYOSK9mI338jnpsM7NjGZSF6ACATMzowGzvDKXDJfOE5jVIxgwWyGMmzmi/JjlTTmnB2iX2egGZJ1DOlSgNcubck4VQJfY6Mg6r4nKYLZeyvkcZikbHVnnNVmWwGzNlPMkZmkb3YCsc3Pv2mveBcibcp7ALG2jG5B1bi4ZNccsb8p5hFmGjY6sc13B7MMsZ8q5Ms6zbXRknWsKZiFma2t1yvkaNjqsc0e0ScxWp5yvY6MDM0dkoQsA2SdgBmmQhZi5dGusLZjLXYDSAmZmRtOD2QnPWJ6arHxywJOZv9/xmg963jN70hbffSG53bzvWdA6d+nn1xbMQsyiGcvn16rJzHmMlZCL5jlXbiYnMaXmMy9mnbv082sLZh1mnBoezfHbHI1/3GmQ9835lZGNTpgpW5zsdNqEJ6BOzWdezDrH0r5lfsw4NZxhornKXxKXPHriJ+gKzKSNLuuvRLb45OABb3J/P1yYz7yYdQ7Zp/yYcWo4E8FzlY+PqBh7x2PMIhudWrPIFhetGW1CZdvT85kXs84h+1SoNfPlZBLRzOZ3++R900UzstEZM2mLJzFLz2dezDqH7FOhh7TZAW/Le7NB43anRXOe3/e6NJn57ainKW1x6mnyJpPOS+n5zM/DOtcWzLouQDWazWe+SsDMzGjWYDabz3yVgJmZ0azBbD0BMzOj1QEzyD4BM0iDgBmkQWdgdtInO7yvClsnlXTBpz16uF9sJ9ME6L9tNgNaK3YqbJ1D9mk1ZgILssOv9xYf6p9zwScH0jYfPz8MJy/3v6bR2+mV4bTXXbETrHONwQzuArBJzn/x2B8PXnz+I04lZxd80mkHvO72gbTNefSe/jO+xnlzPtVgb552mh96bV/sVYl1/kWl1i4Ktus4z1WYSZOc7HDRSrE/frnXfCBTyaULTga4AIStJ9puQK1XQNlzrVC2ZmSvU1rwzeHkk4qsc5f+lWsLZnBrJk1yrsYS+eOCDplKLl1whiX2vP1u3JoxY3Rvxvb69MrtW0f3hhVZ5y79/NqCGYwZm+T3u0l/XGImPpAuuFg/aHzEfLBtTrf4dH8Whrfo3oxitHiHi5/S7R2s87pqFWZskpMdPoz98bfp+UT2xqP8ca87oKzzFm+nepoDj1PP6RaO7XXBU3hvOK3IOofsU/5xs3Kzl0cqYZ1D9ik3ZiVnL49UwjqH7JOFLoBLt8baghncBdi+gJmZ0YBZXplLhkvnCczqEcwlzE7e5+S5U5UBrJSRi07OVZsyneIKfGrGuvZc0Xd0AVxRlZhRyjlNXv5hc4YZjbVm5KLLeu4fh9Iuf9RXm8oh3fTRQdZrAbOHO+e++ta5ApHkROU03e/0+JQ9dSrcHoj/ZeSicwVk0cyNpMM5ZeOcMYuy1JF17tIyjdnjHzx+I3z8/Q/C3GKjnW1vnkaaJvvthuH9/TArF52nNv96xE95yFoJ78nJqGl6YJXIHqI1c0ZpzL75M4HZw6c+yx+JjXbVmknM6NELygLOyEXn1iyk6QO4NWNvgVqzHmUVs4OaOLqUXLo11hbMtC7Aw52dnScLNGbSaD+luj+SlEHjHVm4PSsXXc21Iy+SVCKBjHOx7wCYbSaYaZix/k8BzlQJdu5Adtl1n3Bh9nZGLnpjSFnrvqz7LnS5p4zz5iggL/52p5U4upRc+vm1BTMJs8ff25Eq1JxtQMDMzGglW7NfqnuyIq3ZJoQugCOy0AWA7NMCZnThfHpLB7MgYOaIFgY0Xj8neptFhmc3IWDmiBaGZ3+Pbs/WvzdLF9WOp5umlKdowrDGr9+bZf7KlOASnqZLt8baghnVBRD6uzfFf/7HupgtFtWOKmcrH/NRf3yR8jlnmb+cElzG03Tp59cWzCTM4gGNNS+aWUW1JWbS4OQBfjnSGpmZqpp2GU/zi0o9N6QD6zjPzAGNr34/XEtZRbVVyqYyOAWFN7mBijN/o3moi3uaLv0r1xbMpNaMdCPH8GxmUW3GTBqc3JpJYiIzU6UEl/E0Ifu0+ITGN38WPn5jvZ2zimrLlF5pcEq78uKILpDKzIzyiEt4mpB9WsDsjfDhhW/+eL3WLKOo9nmebpqul95ltiu71H61Jp24sLZMCS7haUL2aeGieefJD24YMz4LzBxRdU9obELoApgZreSAxvc/kGMaeELDtWAmYUb6ZT4XYLMCZmZGK41ZoTSAjQmYmRmtfGvGPpPRrRlknxZas7XuzdJlsmeG+Uwn78d2+XjPe+n4VG5DTvv5s6tsJ48Osl4F783mymRPDmPDfCayzqN5qF/uR8O4lMN58ODqGlW2E0cHWa/MAY2zPU1ZJjuqre21Y8O8KTOBpXUe5f5KfhSK7LSfXWUb6cAuLQt6mlFzRLW1R/f34xrHsmz2Sd9PFsoedAnAxu05zM6qss1fgy6AmdHK9zTX8zRlmWxVW3scYcYGOkMirfMo97cVu5dhGD03dFaV7cTRlT3HlTKXDJfOs6CnKZ8/VLW1FWbjo8hAHzTeYes8yv3d68Ym+VF80Tyjynbi6Mqe40qZS4ZL51nM01RlslVt7UnnkjTM2UCPMoEpN1jl/lLZ7NZEbkNO+xpVtpEO7NR5mphAN6uyjZ6mIzIRs1mVbWDmiOat8x9s8UiyBMwcUTrlxJRnM6SAmSOax+wNNptMSQZGF8DUaJV0Ae4Y06YBMzOjlXys8Q2qbpDrqUZZPLubXk2zVk+RdW5OMKMwo8czLuTZXRbPDtKPZ0x51mpknZsTzCjMcj7TqIpn0/D9zDWnVqkVJaBvIuscS/uWpcbNZsWzE645/4dnrd5Q1jlkn0phpopnU8LvzDVnzyjKDEbWOUQq25px8Wxaxq75R9QfmCWgI+scKolZVDx72tu9HrvmbHxT4vh3N5R17tKtsbZgJnUBKtF600uvJ2BmZjQDMFtveun1BMzMjGYAZlUKmJkZrQ6YQfYJmEEaBMwgDaoGsyJZ6COanFqVe1800pNHB1mvilqzIlnoNDm1LPeeZaQnji4ll26NtQVzowtQJAtdPteh6nAvGOko2O7SeVbcmuXJQh/S5NS8ZZaRzkJrZma0rbVmBbLQQ+Ywbs3CeSM9cXQpufTzawvmCGYFstB5cmq5ZYaRnjg6yHpV1tPMnYUe0uTUQy73Hi4a6bKjCswcEcbNIA0CZpAGWYiZS7fG2oK50QXYkICZmdGAWV6ZS4ZL5wnM6hHMOszYFqdhCZk/TgZ4NKt5MmOc3XBW4DVuR1b6XFX2ySwVfRZZ2vDd5NFB1qtAa8Yj/Pei/HEywGUO01xdfzXiSooscdJ8VfZZKnoicphIYwdmjqgMZpw/zkTwqoAM8/He+U9Ee9Rm/yi4RLnnyhLnfXkXbsUG3ovXYi/d273OeecxZvRQEbLO3VmWwEzmj4dkgPOq8b7fHN3tfzkUiLEb/hNxOfTb0hJXVbRVynlAhrrfjVPRw6DLeecSs0786BpaM0dUFLM4fzyk66ZqzabHI7rTIm5ka8b+ZhjPgK52GXheS1xRCTPppZPlHvmb1JpRBnHi6FJy6dZYWzDrugDh9K0+AyHzx9kAV/dmArN7Q9GoddW9Gayz6RMAABvOSURBVDVZ7TBRrF3uQhdcX7Zm0ksny53zznmrCaexJ46u7DmulLlkuHSeRQY0xnvS5eb88d+8MHu2OvC6v+2wT95iNzzwuFMqqwTR/Zfc5bQjy7fHXvo7nvfsqyrvfPd9mcbenx1d2XNcKXPJcOk8NzpuFixO9pWQv1B8b0HAzMxoRmE2GxHL0nhv1adS6AI4IgtdAMg+ATNIg4AZpEEWYubSrbG2YA53AVTJdi7p3hrvUWVjj0vlzbLSFyY4P+lPXhnyfu0QmJkazSzMVBK5TOLkIu731OSt2VZ6hN34iOYVCIGZqdHMw+xRP5rZ/Be97gJm81a6zE0/OJUTUSDr3J3z3DBmnESuWrOrk5f7KcxSVjrnpvvNEb8loQvgiLS0ZpySPr0aji/emscsZaVzbvr0GJg5p83fm433ZUo61T32G8pEz7bSuQD8A2Dmnjbf0ySHvDGk1wKdm7c7cedzwUrn3PRu4F3uRY8YATNHZNC4WYaVjp6mmdEM62nmUZaVDszMjGYxZlkCZmZGA2Z5ZS4ZLp2nhZhB9gmYQRqUDzOairX5q75yHJNKeuDTHg1QiO1k1gD9t509uzmyzmuiXJgJlrjKem/xGf85D3xywNXYaY7gcPJy/2tK08yc3RxZ5zVRDszY2GYAeDLyqDr7JZ6Y/GMug0212cW62wcj3o7z4Og/42vZs5sXyjp3yVKGdb4gNrY5yZxnMpfV2R9wZrnywKlotuCFc8xpuwFd+wJKpmtlz25eKOvcpR6YtmD29DTZ2A65OAtPMS2rs8vMcumBc232OHucPcowSgjOnN0cWee6gtmDGRvb97uyBvvdvqrOLjPL1QzmPNc548LJ6NQvoPuzMLw1ypzdHFnnuoLZgxkb21xlnScjV9XZKbP8wcwDp5nKRV+yJauxy57mgHuOmbObF8k6h+xT6XGz1ZnlJQXMHFFZzFZnlpcVMHNEcAEgDbIQM5dujbUFs6cLsAUBMzOjAbO8MpcMl86zGsxO+OH+5mlq6mkez6Cx16m0C9g/n5a1zl36+bUFcwEzKtl+GE6PP2zOMBMrlHNO5WfH1zgpmMdoYZ3XTxVgJnPFD6dXBWhyZnOq2B54beU1Ua3az0cy91wVqi1lnWNp37ICzOQ85uR3cyYvJY6La979/dg5F2S9KycQZv+8rHUO2acKMJPzmMvWTGJG4IjrY+ScT175a+lmJlqzEtY5ZJ+qac385umheCUwkzOby4rtsXM+oFutuXszWOeag9nfBVC11/kR7G6UPd6adNrKOVe+54C6kQPV0yxjnbv082sLZj9mGxQwMzMaMMsrc8lw6TwtxAyyT8AM0iBgBmkQMIM0aBuYUUb6f4vrt5NPPkl57tF7dAHMjGZFF4Az0qP67eyT+815zPxV1rlLP7+2YDXEjJ+/iOq3s08+PR7RU0ED8b/mqXgh3iPr3KXz3Mq9GWWkR/Xb2ScXWFHVdnY76QVjFqI1MzWaFa1ZSNfNqH47++QCK6raHp70b/GLlZhB9mkrF016HCOq384+OU+SLj4Z/+gal28HZo5pG5g9ktOjq/rt5JP/VzVBenhzyI+bBeopbWDmiDBuBmmQhZi5dGusLVg9uwBrCpiZGQ2Y5ZW5ZLh0nsCsHsGA2QqhC+CIymFGpdkzP6BKtHP542oVKfAav75GRdxRsL02KtmaRY9STA4XPzpM5I8nPh9fpJLbXMQdWed1UXnMuHp7INum4MXn33nNe83rUvVZsYp9ca7s7pFhKRq/5uiumqdifC1E1nldlqUxoxIsJ/37+zRj+Uu95mmnFbTGR35zJFZF+eNBV7wRq/xu6LdvysaLirijYLu2YHZ3Aag1o7La432esZwqa3ep0jYlBu+r/HHKKRdvxKqTfkhZv3JXqqmNgu26gjmDGVneC5iRLy5zygkzn+ppEEOcH3xrhKxzbcGsxox6mly9XdzU07WOirU33/a8xkfkhV+SvvgfUeWzTjugMmfUlQzokZ+BTE5H1rmmYFZjtmmhp+mIgBmkQcAM0iBgBmmQhZi5dGusLRi6ACsEzMyMph0zWaq9m15Ns6FHldnJKn9v5pLzrOjTrPLt4lV75rDPji4ll35+bcHsxkyWag9SSeMhp5SrSc2lVT5zyeWs6Fnl2w957eLRpeTSz68tmM2YqVLtnDfek2OwXK3da7GfLmsZS6s8csnlrOjpgseyfPuhmtSVd4Z17tKyFGazUu0hu+LRJNQnfZ4NXVZml1Z57JLLWdEzy7fzK78pzXj+AvQ0HVEpzFSpdnIp2RVnwriWsZwNnVszSUzkkqtZ0TPLt4vWrNeV1bjvAjOnVLY141LttGzJOdAHjY+oPxBhRpXZ2SqPXHI1K3pm+fbDMBwAMydVCrOoVPu0t3udXHGu1j7e86Sf/t2eLF5GVnnkku++IGdFH2WWb/fEyoBmS7/daSWOLiWXbo21BbO5C5CpL4ch1ceoRMDMzGgGYOarcbAqBMzMjGYAZlUKmJkZrQ6YQfYJmEEatBnMZGJvGEoDkypn91d8ntRJf/LKkLuf7RCYOaMNtWZRmjAbmFw5e8XnCckNx0dkvYfAzBltGDM2MNnE9DlNeD7xV33ORQ4G3ovXpEd6cCqf1UAlbXfOc7OYKQOTc9I5TXg+8Vd9TrWzg7Zo9Ngj9ZsjfktCT9PMaKb0NBVGQfQsmt+V+Zvzib/qc0okPumLbdgj5ZmsgZlb57lBzETbJQ1MrpwtMZtP/FWfUyKxr1ozv/kAmG0gmJOY8ZOw5HOygfkbrpzNacJzib/R56c8Z7WnZrAOvMu9qBFEF8ARGTRu5i886g3MXJE5mI33GsP0OmDmiMzBLEvAzBFZiJlLt8bagjnZBahKwMzMaMAsr8wlw6Xz3CBmPKrRGsezTUe2kswTLm6du/TzawvmLmaUVkKpSmq2aVnwU2UFwzqvlzaMWei3o9mmJWYqK7iMdY6lfUsNrZmabVpiprKCy1jnkH3aKGY9qjIbzTatMFO1s0tY55B92vRFMwyj2aZllWyVFQzrXHMwd7sAoqfZGFKTpmabllWyOSuYVdQ6d+nn1xbMXczyal3r3KWfX1swYKa0tnXu0s+vLRgwWyF0ARwRMIM0CJhBGgTMIA3aYC7AvGtOg7DeeVjnWwrmZhdg0TWfHp8ePLhahXXu0s+vLZizmKVdc06qq8I6/6JSaxdZ5zrOc7OtWdI1l5hVYJ279K9cWzBHW7NF11xhBuu8jtrgRTPlmivMylvnkH3aWE8z7ZrT3Vd7UoV1Dtkng8bNkHXurszBDNb5JoO52QWoSMDMzGjALK/MJcOl8wRm9QgGzFYIXQBHVAlm0imfe5+eL5hmq47moR7veS8dn3ZiQ71Fs1HTWG3j03hK6uTRQdarmtZMekvqzeQwLqQ9E81WHdnmL9PkrKOEoc4zHoYfh9G81amjg6xXZZiFPs1j2A9efP4jT9Vjn01MLT1xZZv7coQ/YUHJ+Vs75KLHU1JjEmqXltW2ZsHlXnN0f18hNJuYWs5WrWzzQZcAbNyeYcazUX89CnhGTjUlNQtdADOjbakLIJ1yaSXRpL8Ss9nE1HK2amWb+3Jy4HRrJl5H81aHytIEZoZG2xZm7JRTNfYZZuOj2cTU7/Bs1co2H+91I8yUoS7vzeKVPCV14uhScunn1xbMBcykU07PYzffbgwnnUvSLJ/GE1Or2arZNueepvTKlaEe8n98uYeaklr2VIGZmdEwbgaZKGAGaRAwgzQImEEaZCFmLt0aawuGLsAKATMzo+nD7KQ/mPfLSZODB8r8DrzGr9+LzfIou3w+yXwy+1y9l0Xdo0wAYGZqNG2YjX94nV3v+bXKEX/UH18cTTrtyCyPs8tTSeazz9V7WZ/2UE5bHQIzU6NpwoytcKaCh2DHP+40hjy8ejySdtFdbrUis1xll6vFYLc/oGwmrxWb6XMzoBNm1ErCOndnWQwztsIjO9J/SVz2yB0KuoQZm983uYWKzPJoznO5YBCDpJk+PwO6iBBdi9HTdETFMGMrnKlge3x8RK53x+vGrZn0JCOzPJrzXC1O+rdGlJ85inPQ52ZAnxyKS27y6CDrVbg1U7dhkT1+t0/GucSMwBOgBO0ox1xll0eL8Y+u0fznYZyDPj8Durho+que0IDsUzHM2A9nw5vvzQaN250WGef3ZcY4tU3SHWezfPcF3vjZV2WS+YguqWSfn4/M9LkZ0N/veO1pTz6pjS6AmdGsGTf7csgVNs4QMDMzmjWY+XOpJcsEzMyMZg1m6wmYmRmtDphB9gmYQRoEzCANKjo8m983X8wsL2idQ/apEGZFfPOszHJY59qC2dcFKOabZ2WWF7POv6jU2kXBdh3nWQCzYr55VmZ5MevcpX/l2oLZ15oV882zMsuLWecu/fzagtmHWTHfPCuzHNZ5XVQAs0K+udhuIbP8mb1C1jlknzBuBmkQMIM0yELMXLo11hbMvi6ARgEzM6MBs7wylwyXzhOY1SOY/ZidvJ8wu2eieaTZBm/+ds8jx1xW2mtPYZ3XT+Uxo1LsM7M7Fs9zTv7k9Ph+d/pWnwuH8hhtWescsk9lMZOl2NnsntVnpwapxZb65JATS8hm4qLu7J+XtM6xtG9ZFjNZip3N7ll9dv7P+Plh9AmnnBNm7J+Xtc4h+1QWM1mKnc3uWX12Npekpc6t2YButeZbM1jneoNZ3gVgH/2Uze5ZffaPCCuFmXhFF9Sr8/dmZaxzl35+bcEsx0yVYiez+3pcn50rspOlfr4jDXZPLDjffKB6mmWsc5d+fm3BLMcsU+ullK8hYGZmNDMwWy+lfA2hC+CILHQBIPsEzCANAmaQBlmImUu3xtqC2d8FWM86H1aWde7Sz68tmPWYrWmdI+t8q8Esx2xt6xxZ53mXLp2nNuu8uqxzyD5ps86ryzqH7JM26xxZ53WWTuscWee1FazzegSzvKeZqc1a5y79/NqCuYhZZQJmZkYDZnllLhkunaeFmEH2CZhBGlQpZtJEb54ezPmbk07zV+KD5oOe98yeMsszc9B53IOT7eaPDrJeVWImTfTp8YcJG53GWrv0wQGbmbFZnpWDfshrF48Osl7VYaZMdEqVO44d9HYg/kfURZhFVdyzctAPlUfApjusc5fOszrMZib69HjE1qbAKLy/Tw+ZtdWTZ6PYLM/KQedXvri4yhLwIXqapkbbYk9TmejcmknM6NELcWEMyTePWrOointWDrpozXpUj5vd0MTRpeTSz68tmDOYRSZ6GEpSBo13uoxZoGiSmKkq7lk56If0LAcw20gwZzCLTHS6SHbZQacr6KTTfvSC17gd9TSVWT7MzEGny6rYmUvAJ44Osl4YN4M0CJhBGgTMIA2yEDOXbo21BXOmC7AJATMzowGzvDKXDJfOsxrMsj3zcLzn7cqpNnvNEbLOtxnMBcyWeObj54fh5GXKNw/H16rLOofsUwWYLfXMOQ3Ob9OkAJ+Pqss6x9K+ZQWYLfXMuYB20OKZgpF1XmtVURFomWeuWrNw8spf95F1XmtV05ple+bilo3vz8JBc1ThXOcu3RprC2Z/F2CpZy57mqGcS6e6rHOXfn5twezHbIMCZmZGA2Z5ZS4ZLp2nhZhB9gmYQRoEzCANAmaQBp2BGQ3vN3/Vp+LrKdGgWKyMxHIatYhH8zN3gnWuMZjRXQCBBeWMX++1Fz768g8T67ISy6dXhtNed8VOKNiuMZjBmLEnzn9xzgOnsdXgxec/usQ54R+zO0lGOa3LSCznTMy2rOLe/NBr+2Iv2ikc7PYHYp1o61CwfdXSpfNchRl74pwzzsXXwzC43OOccPIpP6GaKuRgCkBGWYnlsjWLqrjfHE4+UTuxp8neZzHr3KV/5dqCGdyasSce8iWRq2J3yBsitCjHl2+golkAwozEcro9a8kq7tMrt28d3RuqncS6WyOu6Q7rvC46ozXzm/e7sgz73T4Z3BIz8cHnI7qyyfLs7czEclndh6u4h/7FT+n2Tu4Ujn90jfYQQKFge020CjO2wSlnfMh54L64JL7dGIomiXqUXWqP6A6rO2gMMxLLPZoOjO/vqPf4bniPmreunPFcXCappvv5Dgq210T5x82CxV5nAa1X0x2YOaLcmM2GuUppvZru6AKYGa0O1rlLP7+2YMBshYCZmdGAWV6ZS4ZL55kPs+IWZ4WTUEP2KRdmZSxOpAPXWTkwK2dxIh24zsscmJWzOJEOXGflwKycxVldOrBLt8bagtnTBShncSIdeKvB7MGslMVJtbORDry9YPZglq1qLM4lAmZmRtOOWUUW5xKhC+CILHQBIPsEzCANAmaQBlmImUu3xtqCWdMFOLneW0jvVQOqSAc2PpgtmCkzPCVfetxIBzY9mB2YyWrZByP/Ne81rxtc6jRus09OZUD3zn+SNc800oFLLl06zzUxk9WyD047raA1/gnb5WxgCszu9r8cak0HhuzTmpjJatkHI7Ixx0dsl0eYqXsrpANDy7V+a+bTXDkxZn6bffJPj0f3hgI5pANDq7QmZnRBvNzzvivuoDyv8RFfHMknD7zubzvSUEc6MLRUhcbNKrDLS6QDu9QD0xbMjp7mnKqwy5EOrDeYhZjpEzAzMxowyytzyXDpPC3EDLJPwAzSoDKY5TTTRb+hEuscsk8lMMttpldknUP2qTBmBcz0ENY5rPOcKmCmo5L29oLZ2tMsYKZXZJ279PNrC2YrZgXM9Iqsc5d+fm3BbMUsv5m++wKs87qqonGz3GY6KmnXStVglt9ML2GdQ/YJLgCkQRZi5tKtsbZgtnYBtAiYmRkNmOWVuWS4dJ7Fh2fz+uaVFWx36efXFsxSzHL75ijYXmcVw6yAb46C7XVeFsOsgG+Ogu11VjHMCvjm1RVsh+xT4dYsr2+Ogu1bDWZlFyC/b46C7dsNZiVm89pczXZgZma0bWC2wZrtwMzMaHVwASD7BMwgDQJmkAYBM0iDymE2zbDPWZQoN2eCq1WkwGv8+pr4rA3rXF8wu7sAkX0+OVz86DBhgic+H1+k2arvDQV2KNiuLZj1mPHE54Fsm4IXn3+H3XQyosQqNsF5UnSPXAGuEHo3SgE46SPrfNXSpfMsjRlNdn7Sv78f3u0HL/Wa0k0/8psjsSoywYOueCNWcfX2m1HjdWuErHNtwexvzWhG6vF+OPC8Fk1KzTYnPRG0r0xwMsbFG7GKq7efqNYs6MI6r42qw+zekG2neczIBJfGOGHG1duJIdquhYLt9VH5niZPfC5u6ulaN2h8Grnp3UnnkjTB/8ij+XTagdeV1dsDmpaCKrr/FFnndRHGzSANshAzl26NtQWzuwuwYQEzM6MBs7wylwyXzhOY1SMYMFshdAEc0basc/rvbRRsr4u2ZZ3L/HNknddE27LOZf45ss5rstyWdS7zz2Gd6wpmdxeghHVO+eco2K4rmDOY5bTOOf8cWee6glmNWRnrfLc/KWadu/TzawtmNWabFnqajgiYQRoEzCANAmaQBlmImUu3xtqCoQuwQsDMzGgaMDvpDzwv7ZhTWcbFKu27LyS2Q8H2bQazDbPxD68fnx48SM0ex07SYpX2hLNeXcF2l35+bcHswowrtTMOPNTKtjlX+jweZVVpTzjrKNhe52VOzLhSO8NENvhLbJuT8S0wy6rSPueso2B7fZUTM67UzjiwDc5+JnlGhFlGlfaE5YmC7XVW/tZM3IZxa8Y2ODFExjddNDOqtCcwq65gO2SfcmLGZdlDqr3O92Zsm/viMnl/2ezmsbMeomD7NoPZ1QXQLGBmZjRgllfmkuHSeQKzegQDZiv0O5Aj4j+nqZhlyuDuJw5tpYBZNcKhrZRVmEG2CphBGgTMIA0CZpAG2YIZPxoZL4ySPKYNzi1aXPLQaPqiLR+IJZgp+10tjFJ0TNMrxmGmDo2nL9rukViCmXqYKHqmyCRFx2QgZrOfa9v/OC3BjB+NjBdGKTomAzGb/Vy3Rts9EkswQ2tWRPHPFXTP2nTDsgQz3JsVUXRoQXb9Vo2yBDP5aKR8rNI0xYfW3PKVaVHy0PxkIeDtyBbMIKsFzCANAmaQBgEzSIOAGaRBwAzSIMcwu7Ozc+7v3kyt/OY/vvn4d3mlWswpa1288qvvfLZsk7O1uFvBQHwk//bsTb79Qa6jyaX/XmpvtzC78dRn4Z0n0j/IDblmAb+5TzP1+HtPfXbGJinFX7Lk29baN0OS95X65vUnV2FWUuUodQqzr/4V/RQPL6RWi9aMFkv+PapPl0Tkv+7KTeYVf0mBf/0rdvnmj9cg6PH3N4hZ+Pj3zgR9uZzC7M5T6pega6f41f/njljxcGfnCbpoiuUF+ieZ+Ozx93ae/IAZ+ub1nadFa/C/acXj7//sif/yu2/yh1995092nmbMbuxwcNpR7M9vacP//J2/3Hnq73ee+ofvPfmBaPT4S2jHjG8LuUn4Su3wWRRJbfGzJ/5TtK/a/I54GX3tw6cJebWn/PLElnzG0bvEB+KsxOsb8XfPjmO2TfxlO+fkGX8r+hXSB3Ej/c83h5zETLRBX33rPwhy6M/67Q9EIycI+H/EyhNvJj+7c04AJJsqagn+mVf8/HXxZxcb8odffevCN69fEC8einXnJI6hWElv/53YULwXf52n6e7v+wQsfQnvmPFtIV19fx7t8HMVKdriXBjt+3O5uSDrxjn1tWJ9OPsqXpnYMmQMb9Cn6qTUB3eenh25/G61+WwbtY6P4oL4H126lxzEnXPF/zJOYkY/iPjV+Q9PfyBmiXCS7+PP6E93QV0RxQ/5y894BREXfUgXTcZG/GsXWKgL051z/JZey0ACRfVCNY0Xsr5NdkYSO3CkaIsw3lduwo1H9LW0VbynXDnbMlQtTeKk5MuHTyeOPP5uOtvZNvGvRL+A+AEf/2DZQQAzJXlv9tWf3+EfZQlmic8ein/gEWZffft//XnIK9SfnF/PMFNXjAgO9WfNwiyOmvq2MBuzaIsw3jf5F1ZfO48ZrUxsGc5hlviA294oRBKzxDbqV3patZgX/m7pQQCzSNTTFLeqArf4B3wo7r5ef/KvYsySn91QV8R4X16h/uT8WmAmLh3cMIT075w7XPJi8vgHacwef4++J4yjpr4tTGEmI8VbyDvACzGxD6llib6W7s3iPXllYkv6nDZOnJQKcU7uyiGSx5HYRv5XHoXYeCfxK6QOAvdmsW7QPS838xfE66fviF9NrNq5IF/wIvHZ3+888a+f/Jm6if7q9+lXFiv+PW8kP/yr12lruTcPF4jb5B0a3rih7q1FILH4S371xL+hnsIFDvLB4rd9Rsf11J9EO/yDiqS24Dv7C+oA1IE/8WaovpZ6msmvoj7GbEs+8SfeTJyU/OD/fou6FyqE/G65eWJntY6PIpQsZR8EepoaVd2gQb5Iq4del+ifBcW/zAXHN3+6bPMcgzoZAmb5tC3M1nEB0iIyHr+Ra5eFMcdYcAE0StxUP1Xi2rGRSMv1UN5CrK0b3CXdhIAZpEHADNIgYAZpEDCDNAiYQRr0/wFNPPdbZY3+4gAAAABJRU5ErkJggg==" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrUnBabVpXWVhKelEyOXVVR1Z5YldsdGNDNXpkbWRjSWl3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRFd0xDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNJbk4yWjF3aUtTbGNiaUFnZFc1c2FXNXJLRndpVUhSelFVSmtRVzV1YjNsTmJrUnBabVpXWVhKelEyOXVVR1Z5YldsdGNDNXpkbWRjSWlsY2JseHVJQ0JuWjNOaGRtVW9abWxzWlc1aGJXVTlYQ0pRZEhOQlFtUkJibTV2ZVUxdVJHbG1abFpoY25ORGIyNVFaWEp0YVcxd0xuQmtabHdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TVRBc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGd2ljR1JtWENJcEtWeHVJQ0IxYm14cGJtc29YQ0pRZEhOQlFtUkJibTV2ZVUxdVJHbG1abFpoY25ORGIyNVFaWEp0YVcxd0xuQmtabHdpS1Z4dWZWeHVYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5EaWZmVmFyc0NvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0xMCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5EaWZmVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG5cbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTEwLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnDiffVarsConPermimp.svg\, width=8, height=10, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnDiffVarsConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnDiffVarsConPermimp.pdf\, width=8, height=10, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnDiffVarsConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtScFptWldZWEp6UTI5dVVHVnliV2x0Y0M1emRtZGNYQ3dnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVEV3TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY1hITjJaMXhjS1NsY2JpQWdkVzVzYVc1cktGeGNVSFJ6UVVKa1FXNXViM2xOYmtScFptWldZWEp6UTI5dVVHVnliV2x0Y0M1emRtZGNYQ2xjYmx4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhGeFFkSE5CUW1SQmJtNXZlVTF1UkdsbVpsWmhjbk5EYjI1UVpYSnRhVzF3TG5Ca1pseGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNVEFzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ4Y2NHUm1YRndwS1Z4dUlDQjFibXhwYm1zb1hGeFFkSE5CUW1SQmJtNXZlVTF1UkdsbVpsWmhjbk5EYjI1UVpYSnRhVzF3TG5Ca1pseGNLVnh1ZlZ4dVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5EaWZmVmFyc0NvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0xMCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5EaWZmVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG5cbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTEwLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTEwLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcC5zdmdcXClcblxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uRGlmZlZhcnNDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MTAsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uRGlmZlZhcnNDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnDiffVarsConPermimp.svg\, width=8, height=10, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnDiffVarsConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnDiffVarsConPermimp.pdf\, width=8, height=10, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnDiffVarsConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZCc2IzUWdiMjVzZVNCd2IzTnBkR2wyWlNCMllXeDFaWE5jYm5KbGMzVnNkSE5QZFhSRWFXWm1jeTVqYjI1cGJYQlFkSFlnUEMwZ2NtVnpkV3gwYzA5MWRFUnBabVp6TG1OdmJtbHRjQ0I4UGx4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJSEp2ZDI1aGJXVnpYM1J2WDJOdmJIVnRiaWduVFdWMGNtbGpKeWtnZkQ1Y2JpQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ1ptbHNkR1Z5WDJsbUtHbHpMbTUxYldWeWFXTXNJR0ZzYkY5MllYSnpLQzRnUGlBd0tTa2dmRDVjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdZMjlzZFcxdVgzUnZYM0p2ZDI1aGJXVnpLQ2ROWlhSeWFXTW5LVnh1WEc1d1FtRnlJRHd0SUdkbmNHeHZkQ2h5WlhOMWJIUnpUM1YwUkdsbVpuTXVZMjl1YVcxd1VIUjJLU0FySUdkbGIyMWZZMjlzS0dGbGN5aDRQV1poWTNSdmNpaHliM2R1WVcxbGN5aHlaWE4xYkhSelQzVjBSR2xtWm5NdVkyOXVhVzF3VUhSMktTd2diR1YyWld4elBYSnZkMjVoYldWektISmxjM1ZzZEhOUGRYUkVhV1ptY3k1amIyNXBiWEJRZEhZcEtTd2dlVDFEYjI1a1VHVnliVWx0Y0Nrc0lHWnBiR3c5YlhsamIyeHZkWEp6V3poZExDQjNhV1IwYUQwd0xqVXBJQ3NnYkdGaWN5aDRQVndpVm1GeWFXRmliR1ZjSWl3Z2VUMWNJa052Ym1ScGRHbHZibUZzSUhaaGNtbGhZbXhsSUhCbGNtMTFkR0YwYVc5dUlHbHRjRzl5ZEdGdVkyVWdLRzFsWVc0Z1kyaGhibWRsSUdsdUlHRnVibTk1WVc1alpTbGNJaWtnS3lCMGFHVnRaU2gwWlhoMElEMGdaV3hsYldWdWRGOTBaWGgwS0daaGJXbHNlU0E5SUZ3aWMyVnlhV1pjSWlrc0lIQmhibVZzTG1keWFXUTlaV3hsYldWdWRGOXNhVzVsS0dOdmJHOXlJRDBnY21kaUtESXpOU3dnTWpNMUxDQXlNelVzSURFd01Dd2diV0Y0UTI5c2IzSldZV3gxWlNBOUlESTFOU2tzSUd4cGJtVjNhV1IwYUNBOUlEQXVNalVzSUd4cGJtVjBlWEJsSUQwZ01pa3BJQ3NnWTI5dmNtUmZabXhwY0NncFhHNXdRbUZ5WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbiMgUGxvdCBvbmx5IHBvc2l0aXZlIHZhbHVlc1xucmVzdWx0c091dERpZmZzLmNvbmltcFB0diA8LSByZXN1bHRzT3V0RGlmZnMuY29uaW1wIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXNfdG9fY29sdW1uKCdNZXRyaWMnKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXJfaWYoaXMubnVtZXJpYywgYWxsX3ZhcnMoLiA+IDApKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW5fdG9fcm93bmFtZXMoJ01ldHJpYycpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXREaWZmcy5jb25pbXBQdHYpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXREaWZmcy5jb25pbXBQdHYpLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcFB0dikpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbOF0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# Plot only positive values
resultsOutDiffs.conimpPtv <- resultsOutDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > 0)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutDiffs.conimpPtv) + geom_col(aes(x=factor(rownames(resultsOutDiffs.conimpPtv), levels=rownames(resultsOutDiffs.conimpPtv)), y=CondPermImp), fill=mycolours[8], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkJzYjNRZ2IyNXNlU0J3YjNOcGRHbDJaU0IyWVd4MVpYTmNibkpsYzNWc2RITlBkWFJFYVdabWN5NWpiMjVwYlhCUWRIWWdQQzBnY21WemRXeDBjMDkxZEVScFptWnpMbU52Ym1sdGNDQjhQbHh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lISnZkMjVoYldWelgzUnZYMk52YkhWdGJpZ25UV1YwY21sakp5a2dmRDVjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnWm1sc2RHVnlYMmxtS0dsekxtNTFiV1Z5YVdNc0lHRnNiRjkyWVhKektDNGdQaUF3S1NrZ2ZENWNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ1kyOXNkVzF1WDNSdlgzSnZkMjVoYldWektDZE5aWFJ5YVdNbktWeHVYRzV3UW1GeUlEd3RJR2RuY0d4dmRDaHlaWE4xYkhSelQzVjBSR2xtWm5NdVkyOXVhVzF3VUhSMktTQXJJR2RsYjIxZlkyOXNLR0ZsY3loNFBXWmhZM1J2Y2loeWIzZHVZVzFsY3loeVpYTjFiSFJ6VDNWMFJHbG1abk11WTI5dWFXMXdVSFIyS1N3Z2JHVjJaV3h6UFhKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSRWFXWm1jeTVqYjI1cGJYQlFkSFlwS1N3Z2VUMURiMjVrVUdWeWJVbHRjQ2tzSUdacGJHdzliWGxqYjJ4dmRYSnpXemhkTENCM2FXUjBhRDB3TGpVcElDc2diR0ZpY3loNFBWeGNWbUZ5YVdGaWJHVmNYQ3dnZVQxY1hFTnZibVJwZEdsdmJtRnNJSFpoY21saFlteGxJSEJsY20xMWRHRjBhVzl1SUdsdGNHOXlkR0Z1WTJVZ0tHMWxZVzRnWTJoaGJtZGxJR2x1SUdGdWJtOTVZVzVqWlNsY1hDa2dLeUIwYUdWdFpTaDBaWGgwSUQwZ1pXeGxiV1Z1ZEY5MFpYaDBLR1poYldsc2VTQTlJRnhjYzJWeWFXWmNYQ2tzSUhCaGJtVnNMbWR5YVdROVpXeGxiV1Z1ZEY5c2FXNWxLR052Ykc5eUlEMGdjbWRpS0RJek5Td2dNak0xTENBeU16VXNJREV3TUN3Z2JXRjRRMjlzYjNKV1lXeDFaU0E5SURJMU5Ta3NJR3hwYm1WM2FXUjBhQ0E5SURBdU1qVXNJR3hwYm1WMGVYQmxJRDBnTWlrcElDc2dZMjl2Y21SZlpteHBjQ2dwWEc1d1FtRnlYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbiMgUGxvdCBvbmx5IHBvc2l0aXZlIHZhbHVlc1xucmVzdWx0c091dERpZmZzLmNvbmltcFB0diA8LSByZXN1bHRzT3V0RGlmZnMuY29uaW1wIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXNfdG9fY29sdW1uKCdNZXRyaWMnKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXJfaWYoaXMubnVtZXJpYywgYWxsX3ZhcnMoLiA+IDApKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW5fdG9fcm93bmFtZXMoJ01ldHJpYycpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXREaWZmcy5jb25pbXBQdHYpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXREaWZmcy5jb25pbXBQdHYpLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcFB0dikpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbOF0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSBwb3NpdGl2ZSB2YWx1ZXNcbnJlc3VsdHNPdXREaWZmcy5jb25pbXBQdHYgPC0gcmVzdWx0c091dERpZmZzLmNvbmltcCB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJvd25hbWVzX3RvX2NvbHVtbignTWV0cmljJykgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyX2lmKGlzLm51bWVyaWMsIGFsbF92YXJzKC4gPiAwKSkgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uX3RvX3Jvd25hbWVzKCdNZXRyaWMnKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0RGlmZnMuY29uaW1wUHR2KSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wUHR2KSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXREaWZmcy5jb25pbXBQdHYpKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzhdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcbmBgYCJ9 -->
```r
```r
# Plot only positive values
resultsOutDiffs.conimpPtv <- resultsOutDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > 0)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutDiffs.conimpPtv) + geom_col(aes(x=factor(rownames(resultsOutDiffs.conimpPtv), levels=rownames(resultsOutDiffs.conimpPtv)), y=CondPermImp), fill=mycolours[8], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qZ3NJbmRwWkhSb0lqbzRMQ0p6YVhwbFgySmxhR0YyYVc5eUlqb3hMQ0pqYjI1a2FYUnBiMjV6SWpwYlhYMD0gLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjgsIndpZHRoIjo4LCJzaXplX2JlaGF2aW9yIjoxLCJjb25kaXRpb25zIjpbXX0= -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFKbUNBTUFBQURCOHJ5NEFBQUJ5MUJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qcXROanNoUTllbG1BQUJtQURwbUFHWm1PcEJtWmdCbVpyWm1rTnRtdHR0bXR2OXVUVTF1VFc1dVRZNXViazF1Ym01dWJxdHVqbzV1anNodXE2dHVxOGh1cStTT1RVMk9UVzZPVFk2T2JrMk9ibzZPYnF1T2prMk9qbTZPam82T2pzaU9xNnVPcThpT3ErU095TWlPeU9TT3lQK1FPZ0NRT2pxUU9tYVFaZ0NRWnBDUWtEcVFrR2FRa0xhUWtOdVF0cENRdHYrUTI3YVEyOXVRMi8rcmJrMnJibTZyYm82cmprMnJqbzZyanF1cnEyNnJxNDZycTZ1cnE4aXJxK1NyeUt1cnlNaXJ5UCtyNU1pcjVPU3I1UCsyWmdDMlpqcTJabWEya0RxMmtKQzJ0bWEyMjVDMi83YTIvOXUyLy8vSWprM0lqbTdJam83SXEyN0lxNDdJcTZ2SXlJN0l5S3ZJeU1qSXlPVEl5UC9JNUt2STVQL0kvOGpJLytUSS8vL2JrRHJia0diYmtKRGJ0bWJiMjVEYjI3YmIvN2JiLy8va3EyN2txNDdrcTZ2a3lJN2t5S3ZreU1qazVLdms1TWprLzhqay8rVGsvLy95OHZMMzkvZi90bWIvdHBEL3lJNy95S3YveU1qLzI1RC81S3YvNU1qLzVPVC8vN2IvLzhqLy85di8vK1QvLy8reG5XeE9BQUFBQ1hCSVdYTUFBQXV3QUFBTHNBRWFPQkJ5QUFBZ0FFbEVRVlI0bk8yZGo1L2JSbnJlVjdiclhIdXRzR3RUb1J5blRyVm5uYncyYVR0S2I4OTdocHYwR2pjNXIrWElQYm1XUmJXNXRqRlhQcm1LTHpKMVRSdEQwdDFsUlZtQkpNYWlpRCszODc0ekFFRVEvQUVRR000TW4rZGpMMGtRZURrQXZ4cGdNQS9mZHl1Q29OcTF0ZTRHUUpzZ1lBWnBFRENETkFpWVFScGtLbWIvQW5KRS9IVWFpMW5ld204ci9ZaEtvNWtiYk0xTkEyYWJFUXlZelJFd016UGFKbUFHMlNkZ0JtbVFoWmlkaGt6V25DK3lKc3lHYmEvUnB5ZURIM1NpMGFIbmVkdWZwUmVKOXozeE12UjJlbEhndFdqeFVXZjRWbzlYYlVYQXpFYmxrbEJ2YnpZOHowaEZqLzZrSlY4ODdFd3UybzlHRi9zM3hNdkJuaUJNd2lmK0hnd09VcTNMYU4zSEVacXJYQkQwWUhZakZGMlllUEd3azFtMFA3b2sralR4TFBDanNDVjZzVzNCNFhHYk96TzZxL2Z0dHp5bytUYjl1TzdqQ00zVjFQZEZqMW93RzM0bHpvUjBpdHp1VEMxcVJ0LzFCWEczTzZJUEMxcWlTd3ZFV2JRVjhoa1V2Wm1GeWdWQkMyYWg2SjM4eWQ1TUxhTGVUT2gyaDNzemNkcTgzUkZuVVdCbXNYSkJxQjh6Y1puMTIzNFVOdVdMdmNsRis3emE2RUtQcjgxRWJ4WTA3Z0V6cTVVTFF0MGpUVEc0dkhJbytxMnU5K0xiNG9YM2svU2lGM1pwUEJuUXVWUzhhdkg2ZnVpOWU4aGQzU3pNSVB0azRYMHp5RDRCTTBpRExNVE1wU2xsYmNFd2RUNUh3TXpNYU1Dc3FNd2x3Nlg5QkdhYkVReVl6Ukh1bTFtbFJWOGtNSU1xMEtJdnNpeG0wdHpUeVh0TEdYc2ltbGZhNlltSG84OTRSbHhzMGxSdkROdTA2ZWlRMzQ1aTN4RGYwL1hUcmN0bzNRY1RtcVhab0t6WW0vSFVFWnQzNG9rajlWUVplMGczK0s5WWkydy9GM3F4UlVPOEduNG9pUHZuUCs2bG8vRWJvZlNrQVRPN05KdVRDakNMd2hiMVM2SEhENkl6YW9tblBCVWV2dDdlNmJIUFIxcDhZc3dHUHhiTGFmMmZ2OVdMZnZ0WHZZQ21ueG9mdGNhWVVZY0hJNUJ0bWpZQVZXUUVZakFHZTdjN1lldnVYa1FQZ3ErSW4wYURkOFRwTUdpeHo0Y3RQckVUNko1WWZ0UVJLdzAvNmZxanY3MG1lclBRSDU3L05PN04yc2xwRmIyWlZack5TVFc5V2Rmem11STBTUThFalhncWU3TVdQU1dmRDF0OHFEYzc5S2szT3hDdkJvVFo0TncvL3QwMTBlRjV0SHB5MGh5YzZ3TXpDMVVyWnVLcTY0NWtpeDZvTnhOUCtkcE1rQ082TVRwVHNzWG5XRnk5ZFNjeEczMzRUdjlhNzFvdjlBZDdSeDFwRWhJMEJpMWdacUhxd2l3ZWFkSjVidGh1eVFkK3lzYWVrSDVRRXFnVnBBZW9jVStNTkxzN045dGlwZGRGSnliT3N0N094NTczNHR2dkhyNndxMzZVSW9hamN2aUtxWE5IVk90OXM3QzFlSjI1QW1hT3FFN014bmZFeWdxWU9TSUxad0VnKzJRaFppNU5LV3NMaHFuek9RSm1aa1lEWmtWbExoa3U3YWVGbUszNzdwQUJLbkVvZ2Rsc0FiTjhhZjRhVmxmOVJxRDR0Z2FNUU5XcDVOZTFQbWt3QW8wdUVFWXdBbFdvc2wvWDJsUy9FWWd4Z3hHb1VzMDAzSmo2V0w4UmlER0RFYWhTbGZpbXJCNENMR01FSXN4Z0JLcFVKYjRwNnpGYlpBUlN2Um1NUU5XcHhEZGxNMmJMR0lIRXMwYS9TaU9RUzdjdHRRV3pHck1GZ2hFSWtvSVJDTklnQzJjQklQc0V6Q0FOc2hBemx5Nk50UVZ6ZVFpd3NvQ1ptZEUyQWJOMTM3UmFneW80bE1Cc3RvQ1pWQVdIMGtuTWtqcGdOQXUxUzhWeVBLNENObGt0REtYQmxsVFZYNDkyMWRXYnlUcGdvd3NDR1g5MEtKQzVveHhBS0ExV1FwVi9QYnBWSTJZUE8ybzZjL1R6UTM4S001UUdLNkMxRzNuV2JBU2FLV242VWIzWnBlR2JuUXhtS0ExV1JKVi9QYnBWYzI4bUxyS2FrZWl4QnVldVQyS0cwbUJGVk1FWDR1UVFRTlVCay81c1Fpblk2U21iRDBxREZWY0ZYNGlUbVBGWWthdy9PMnpRRnRCY3U5bE9CcCtybFFaejZiYWx0bUJ1WWxhUmdKbVowVFlCTThnK0FUTklnNEFacEVIQUROSWdDekZ6NmRKWVd6QU1BZWJJZ3Z0bUUwMERaak1FekZiVVJOT0EyUXpWaXRtRTZ5ZnhCazBaZ2JxVXpNQldJOUJFMDREWkROWGJtMDI2ZnRnYk5HMEV1dXRIWGQ5YUkxQk5SODR4NmNGTXVuNTRObjNhQ0NUTkdiWWFnY3d3MnBqK3FBV3p4UFd6M2NreEFnVXRnWm0xUnFDYWpweGowb0taY3Yya2U3T1VFWWp4czlZSVZOT1JjMHoxWXpaMi9iQTNLTThJRkdkM3RORUlOTkUwREFGbXFPNlI1dGoxOCtMYnloczBiUVNpVkJzd0F0VWF6R1hNVmhZd016TWFNQ3NxYzhsd2FUOHR4QXl5VDhBTTBpQmdCbWtRTUlNMHlFTE1xcjNmWmU1Vk80WUF1Z1RNekl4bUltYUw3RUFUMG1ZRWlxT1pTd1l3SzZaRmRxQ1U5Qm1CNG1qbWtnSE1pbW1oSFlnS0huYTkxeTdyTkFLWllaRFpsRWVObU0yMEExRkZNYXE3NCtzMEF0VzZ4MUJHR2pHYmFRZWlpbUpISFlHWlRpTlFyWHNNWmFRTHMzbDJJSzRvcG5vemJVYWdXdmNZeWtqUFNIT3VIYWh4TEN1S2VUNk1RTFVGMjRBaHdKSUsvS2xGd016TWFCWmpOdGlkTGlRR3pNeU1aakZtZVFKbVprYmJCTXdnK3dUTUlBMENacEFHV1lnWjdwWFpwNDNIek55cmRnd0JGcXBRYVRCdEdZSHlvcGxMQmpCYnJBS2x3ZlJsQk1xTFppNFp3R3l4Q3BRRzA1Y1JLTStvY244cS9ncVA5NnMwMEh4YnFTRm52ZnRwUUdrd2ZSbUJLdDlMYUVrWlVCcE1YMGFneXZjU1dsSkdsQWJUbFJHbzhyMkVscFFScGNHS1pRU0M3Sk9GOTgxY0dvRnBDK2JvU0xNYUFUTXpvd0d6b2pLWERKZjJFNWh0UmpCZ05rY1lBamdpWUFacGtJV1k0WDZaZlFKbWtBYlZndGt3endDMDNWRjNiZlViZ2VhMTFkeXJkZ3dCRmluUEFQU2hZT21mLzdpM0RpUFF2S2FhU3dZd1c2UThBOURQMytwRnYvMnIzanFNUU9ZYVpHQUVXa1Y1QnFCUHV2N29iNi8xMW1FRW10ZFVjenNnOUdhTGxHY0ErbVJ3N2gvL0xzRk1xeEdvNHIyRENxdStrMmJXQVBUSjZNTjMrdGQ2NnpBQ1ZieDNVR0hWTmRMTU1RRDVZWXZIblRBQ2JaNHN2RzhHMlNjTE1YUHAwbGhiTUNlSEFGVUptSmtaRFpnVmxibGt1TFNmd0d3emdnR3pPY0lRd0JGWmlCbHVsTmtuWUFacFVOV1lUV1Q4RWE4YXYrek1mbDhaZ1VLNlAxdXBFYWl5M1lHcVVlVzkyWVRSSi9DblNzeE5HNEg2TjhUTGFvMUFCZHByN2xVN2hnQnpOR0gwb2YrajRFZmVqencvb0NtbXhrZXRhU09RNlBMNlViVkdJR3NNTWpBQ2xkU0UwU2NLdmRhdzNReWIxRHVGL3ZEOHB6a1pnYjdyQytLcU5RSVZhSys1SFJCNnN6bWFNUHBFZE40TS9iQTFPQkJFVVllVmt4Rkk2SGJGUnFBQzdUV1hER0EyUnhOR241RGdrWmhkNjRYK1lPK29rMmNFR2wzb1ZXc0VxbTUzb0VwVXcwZ3pWZlRyTjJlOW5hL0ZGWm5uN1h6c2VTKysvZTdoQzdzNVJpRDZOUXFNUUM3THd2dG1rSDBDWnBBR1dZaVpTNWZHMm9LNU5nU29WTURNekdqQXJLak1KY09sL1FSbW14RU1tTTFSbWZ0bW1wc0lMU05nQm1tUUNSbUJxalVDVmJzclVDVXlJQ05ReFVhZ2luY0Zxa0lHWkFTcTJBZzB0Zjc4UnhpQmRPeW5BUm1CS2pZQ0ZXeXF1WU5EakRRWHFWQkdvS2hhSTFEQnBwcExCakJicElJWmdTbzFBaFZzcXJsa0FMTUZLcG9SQ0VZZzEyWGhmVFBJUGdFelNJT0FHYVJCRm1MbTBxV3h0bUF1RGdFcUV6QXpNeG93S3lwenlYQnBQeTNFYlBWN1pXbVpTd1l3MHlVTm1FRTZWQml6bzA2WFhEN0o2eVRGVDNSMGhXNnJibmVpME52NTFhZksrTFBURzF0K21wbFFrMmxjaG5MQ25ITWlUTFl1STJCbW40cGlOdmpCbFl2SDUrOWRHaStKTFJjQ0ducjZzRE00MXgrMlc3SHhSMWwrNUdUNlpDeCtJeFZvWDAxU1pWdVhFVEN6VDhVd1k2Y09neVdlTmZxREg3ZDMxRnk0OHZEMEg5THNONjBhRzMrVTVVZFpnOFJXeCszR0YxNHJFTjBjdjlIZDduUWJaUDFwU3N4RURBNGJGVEVDVldpWXdXTWRqOFV3WTZjT1l4YjRVZkNHT0NYS3BCanFIYTYrRkYzakhpazIvaWpMait6TmFDdWFGci9XRzM0VmU0RUl6WEM4ZGRDNHgySDU4ekFFTUROYXpVTUFkdW93WnVMWllHOXdJRjVLelBnZDJadEpSR0xqajdMOFNHc1Fielc2Y1BQNndaMzREYkhzZXAveWJmU3BOenYwUnhmN0hEYlZ1b3lBMmRxajFZd1pPM1g2M0pzMUk4cnpvekJqUjJMUU9LYW5lK0xhVEx3WEczK1U1VWRlZGZGV1VYRHVhN0p2eXplaXdROHZVK1lndmphTHVzQ3NubUJXWWNaT0hmYnM4TFZaZCtkbSt4VDdmT2lNSncwOGxNV01MclNVOFdmN2JHejVvY3N0M2twMGRORWQrbGtKSnczcTAwbDJzT3Q1cCtMZm4vZ1V0cGxxM2FyN09GZm1rdUhTZnBweDMreFJMeHBkeWxtT3FYTkhaQVptQWQ5dm14WXdjMFJtWURaTHdNd1JBVE5JZ3l6RXpLVkxZMjNCTUFTWUkyQm1aclJOd0t6YStVeHp5UUJtdWdUTXpJeTJkc3pLbEFicmtrV29kRWFneXBvTzFTY0RTb1BkOWFPdVh6NGpVSFZOaDJxVEFhWEJaSmFXMGhtQnB0N0hvM21QQnBRR0Mxb0NzL0laZ2Fwck9sU2JEQ2dOeGo2ejhobUJWbXl2dVZmdEdBTE1VWm5TWU9LaGZFYWdGZHRyTGhuQWJMWktsUVlqajlEeUdZRmNPdnphZ2ptR1diVUNabVpHMndUTUlQc0V6Q0FOQW1hUUJnRXpTSU1zeE15bFMyTnR3VEFFbUtQWjk4MHErd2h6eVFCbXVnVE16SXkyZHN4eXFvSkZsRUxvMUp6U1lHV01RSlUxMkZ3eWdOa2NUVmNGRzNFS29kbWx3VW9aZ2Fwck1LUkJkV0NXclFyRzg1eXpTNE9WTWdJWlluREI0NXFNUURsVndTUm1NMHVEbFRJQ1ZkZGdTSU9xeDJ5NktwakNiRlpwc0ZKR29Pb2FER2xRTFNmTlRGVXdoZG5zMG1ERmpFQXVYUnByQytiWUVDQ25LbGlIVEQ3RGVhWEJZQVNxUFpoam1GVXJZR1ptTkdCV1ZPYVM0ZEorV29nWlpKK0FHYVJCd0F6U0lHQUdhWkNGbUZWN2M5YmNxM1lNQVhRSm1Ka1p6V0RNT0JjUTM0cE5rZ1hGdGNRV3RDNGpZTGIyYUFaakp0TWEzT21sa3dYSldtS1oxZmF6cmNzSW1LMDltaFdZalpNRnllbzdxanJZZG9kcmdvVmVhN0I3NnF1NXBjSFdibXpCNDVxTlFMTVZZelpPRmlUTkdSSzIyNTFRbGhxN3V4ZmQ3anlTQlE4MTlHYVFEdW5HTEtrVkZ0RjVVL1ptWEIyc1M5NXVLdFkwMkpQVlhzZXR5d2lZMlNlTm1JMCtsTVhyVXNtQzJCVzB4OVhCNkd3YVkzYW5KLzZNV3dkWkw1MDNOQWE3NGhRNW1rZ1dKR3VKVVI5SFJscXVDVFpzdDM3WGx0MGRwczROaldieUVLQ0VnSm1aMFlCWlVabExoa3Y3Q2N3Mkl4Z3dteU1NQVJ3Uk1JTTBDSmhCR21RaFpyZzdhNTgySGpOenI5bzNlUWd3bXUzZFVUbDlvbVN1Nk9penRzcnNROWFmZUV1ZTBHUU5WWllnTmJPa3lvWnhtaUEvM2JxTWdObmFvOVUvMHVUNUlWbnZLMlhaaVg4M0xsL0pYNTZUMFdkZlBwZnBmOFpieGx1cExFSHAyQndybE1tcGdKbWgwZlJnUnJPUm9pZmlna3piSGRIOXRNUlR6b0lSdnQ2bUg1MWY0QitlYnllWXlmUS9hc3Z6ZlRMNjBGWnhscURKc21HRVdUT2Fad1NxMHFoeXY2STQvSGkvU2dQTnQ1VWFjdGE3bitVd0cremQ3b1F0dHV5RXhGZkVUNlBCTytJRUdMUlU4aWxLaWNkR256ajlqOXd5YVBUSjZFTmJ4Vm1DSnN1R2Nab2dLUXdCSEZIWjNveDlPM3VVaUxGSm1JaW5zamRyMFZQQ2pMUDdVRzkyNk1mcGYrU1dvNHQ5dWh5anJaSXNRUk5sdzRiN2czUDlkT3N5QW1iMnFleTEyUjNKRmoxUXYwUnVIcm8yRTZ5TWU3T2djU3l1M3JwK25QNUhiaWt3STZPUDdNMWtscURKc21HQ3phQ1ZiaDFrdmNxT05Pbk1ObXkzNUFNLzVadytJYWVXN1lvL05HRDhDZWVXdlNldFB5KytMYmNNUForTVB1TDlVeXBMMEdUWk1ERThiWTBPNVdBV21EbWlpdSticWJ4a1ZRbFQ1MlpHVy9QVStmZ2VXRFVDWm1aRzJ3U0hoa3VIWDFzd1lEWkh3TXpNYUp1QUdXU2ZnQm1rUVJaaWh0dXo5Z21ZUVJwa1FtbXdrTklFRlNrTlZsbHJvM1ZmR21zTDV0b1FvSGhwc1A2TktJb0tsUWFycnJYclB2emFnam1JV2NIU1lNTTJkWDFGU29PNVk1Q0JFYWlraXBjRys2NGZramVvUUdtdzZscTc3bi9sMm9JNTE1c1ZMZzBtZEx0WWFiRHFXZ3Zwa1JHbHdjUTJCVXFEUWZiSmlOSmdOQWhkdmpRWVpKOHN2RzhHMlNjTE1YUHAwbGhiTU5lR0FKVUttSmtaRFpnVmxibGt1TFNmd0d3emdnR3pPY0lRd0JGWmlCbHV6OW9uWUFacFVHbk1TcVFHbXM0QVpFQkdJRWlIeXZkbUpWSURUV1VBUWtZZ1hjR3NIUUtVU0EwMGxRRUlHWUZnQkZxZ0VxbUJwaklBR1pBUnlOd09DTDBacVVScW9La01RQVprQkRLWERHQkdLcEVhYUNvREVESUNiWWhXSG1rV1NBMTBQSjBCQ0JtQk5rTjEzVGVySmpVUU1ITkVOV0ZXVVdvZ1lPYUlMSndGY09uU1dGc3dhNGNBT2dUTXpJd0d6SXJLWERKYzJrOWd0aG5CZ05rY1llcmNFUUV6U0lOcU5RSkZuT3NIUmlDb1hpUFFEZjVydEJFSTBxRmFqVUNjNndkR0lCaUI2alVDY2E0ZkdJRk1DR2J0U0hNWkl4RGwrb0VSeUlSZ3BtSDJZT3ZrNCtkUExySGxNa1lnT2xOV2JnUnk2ZkJyQzJZWVprOWVlZkorOU9UbHp4ZHV1SXdSS0ZBcndBaTA2Y3BpOXZUUEJXWVBudjFtMWJnd0FrRXA1WncwdDdhZVdkeVpMUkNNUUZCYStVT0EvN015WjlVSW1EbWlDY3lldkxRbHRYcDNWbzB3QkRBejJvcERnRitvYXpLamV6T1hEcisyWUVaaFpwcUFtWm5SVnNlTVRwelBWZGFlRlpWL2U3YlNqekNYREpjeGUvcmVTVEhhWEhCN2xxMFVBYmt2ZU81ODJHNzg4a3A4RysydDhRaHpJbVdMdEY5RXNsNk92T24yV1VtSFJ0RjloTmF1cWR1emYwaVhaNHV1elhoV2lHNzhjK1dsd0NjUHh0aXdvWlJKMlRKWnJFbThlTmdwNmRBb3RvZVFBWm82YWY3NkEvSG52eStMR1ZkZVlpaGl3OGI1L21EMzFGZGsxc2lrYkprczFuUysvN0FUbFhSb1ZPcGN3S09PeC93Ykdvdm1OR1BNWk9XbEtQUmFzV0Vqb1BKTGozbzB2WmxKMlpJdDFwVG4yRmpPb2JHZ2NaQjV5cjJoOGZpUEZtekZQQWc4d3ZneUt2QlZiemE2MktlTHJXdHlKajJkc21XeVdKUHN6Y281TkZiYjQ0ek12V3AzZVFnUVhWM205dXpvd3c0eklTc3ZoYjQ4VzlLMW1jRHNUazkwYW42VVRka3lXYXlKWHV5VmMyaWNMcnFQYzJVdUdTNWo5dVNWcDM4ZVBYbC8wV2FEWFhIU0c4bktTNDNmblBWMnZsWWp6ZER6ZnlmNkpqN3hUYVJzNFNLWmNiR21GOSttMGswL21YWnNMT1BRY09ud2F3dG1HbWJ2UncvT1BQM1R5bVlCVm5OcUFETXpvNjErMHJ6MXpPZFhxN3MvdTZKVEExUG5qZ2dPRFVpREptOW92UHk1dktkaHRFTURzazlUdmRrdmxwa0YwQ1ZnNW9pbWhnQkwvQXhBbnpBRU1EUGE2a01Bbm1jeXVqZHo2ZkJyQzJZWVpoWmNtNTJ1OUNQTUpjTmx6QlpkbTVYSTBCS2x6VDlwcTFEWlZDMUw3dHB5TXBjTXB6RWp6WnZUTEpHaEpXWCttYlFLd1FpMEtTbzhwMWtpUTh2WS9KT3hDc0VJdENtUGhlYzBTMlJvaWMwL1UxWWhHSUUyUllYbk5FdGthQm1iZnpKV0lST01RSkFPRlo3VExKR2hKVzMrbWJBS3dRaWtMWmlKUTRBNUtwR2g1VjdLL0ROaEZUb0ZJNUMyWUpaaHRrRFZaR2hKQk16TWpMWWFaazllV2ZIaks4clFrZ2lZbVJsdFJjeGVNdWIrdnhTbXpoM1JKR2J2ODJUVE1ya2E5UWlZT2FLOGE3TmJ4dlJwd013UlpYdXo2T2w3NXN5Y0F6TlhOUDF6NEROcmJFMVdHQUtZR1czRklZQlJuc1lJdDJkTmphYnJ2aG03ZFpvVHI1V3BZcXlqY2NhZndhNzN4c1UrWlE3cWRNV0dwekpic3liTkcrbldaWFM2YUdQbnlsd3lnQmxQSjlGc3BkUndQMG5FTWhiNWdKVFJaL2htSndvYWZjb2NkT1hpOGZsN2x5YTJWbUt6VUc3ck1qcGR1TEh6WkM0WndFeW1rZ3BhTkswVXZ2YnFsNTd5OEl3TzZlZmxyWkIva2I3ZFNZdytFaURwSXFNMTVkWnk3Y1lYWGl2WTZVbXpVSGU3MCtVZnFEZGhCSExwY2RYZUxIejNzTkcvdTZkNnM4QVg5SVJrQVpJK0lHWDA2Zm9FNEU2UE1nZkZtSW10NDdXdjlZWmZqYzFDRHpzY2dEOEZEZzFIVkJxelErcHhoano1VGVZTWlabWdZN0RIbEVnZmtETDZCRTNaL1RHSGpCbHZ6V3VQTHR5OGZuQW5TUzUwMUxuT0tUZmdublZLcTV3MEtmZFVtTUpzY0NCNENsdURnNmk3OHpIN2dKVFJaN0RyMHdaaFlpcFR6TkhhVVhEdTYwUFJ5VW16VURUNDRXWEtNRFRSdW94T2w5cFJhSjBxUDlLa1NmTEE4eG9ma1N2N2RjNzNRMWRralQ2TlFuM2xBNUpHSHhwcGl0N3I0Vm5hcUV2V2J0NmExNDZHbjBSM2VuRnlvVDVsVFpOcmoxdVhrVXVYeHRxQ1dUb0VxRk9QZXRIb0VqOERabVpHY3dLeklQbUpIakF6TTVvVG1JMEZ6TXlNdGdtWVFmWUptRUVhQk13Z0RRSm1rQVpaaU5ucFNqL0MzS3YyalI4Q0ZDME5SaW1DYmhwYUdzeGNNalllczhLbHdXN0UyMFRHbFFZemx3eGdWckEwR0tjSU1yUTAyUDJLNHZEai9Tb05OTjg2dEorclliWmthVEJPRVlUU1lCdXNGVEFyVUJxTW1ETzBOQmlrUStVd0sxb2FqSncvaHBZR2czU281QTJOWXFYQnlNczlyS3cwR0dTZjZyNXZodEpnWmdTemNxUzV0T29vRGViUzRkY1d6RzNNVmhRd016TWFNQ3NxYzhsd2FUOHR4QXl5VDhBTTBpQmdCbW1RaFppZDF0d0lhSFhWaDlrdzdmekpYOHEzYkJ2OUxzMWhLdGZRVVdmNFZvOTlRcTBJRGcxVG81azBCSmh3L3VRdnBTb29GKy82VWRkWHJpR0o1T0JnY0pCcVhVYW5LMjJsdVdRQXM2VTA2ZndoQzJQWGUrM3k1Tkw5MFNWMmNoendQTHRNSTNUK1dOWkhoQkhJbmYyc0h6UHAvS0VhWWpTTjdtZjlRRTJhSng4Y1NOWTRsMUNqejZ1UzBKdVpHYzNBM2t3NmY2aUdtRGdySnBncFB4RDFadXc5NDk2TTB3aU5MbXJGRE5LaG1qRkxuRDljUXl6dXpjWitJRm40TlM3Nnl1WEU3Z0V6OTFUclNIUHMvS0VNak0ya1dsaTg5SVZkR2sveWIxZllOY1M1aEVMdjNjUFlMWW43Wm81STgzMnp3Ris4VGtyQXpCSHB4V3l3Vzh3WGhLbHpNNk9aTkFTb1FNRE16R2pBcktqTUpjT2wvUVJtbXhFTW1NMFJoZ0NPQ0poQkdtUWhacWMxTndKYVhjVXhLNW9PaUg3Y05Nc1VaRUJHSUVpSFN2Um1SZE1CVWEySkdhWWdaQVRTRmN5K0lVREJkRUFUbUdWTVFjZ0lCQ1BRTEJWTUI1VEdMR3NLTWlBamtMa2RFSHF6UXVtQVVwaGxUVUVHWkFReWw0d054NnhvT3FBWXN4eFRFRElDYllqSzNOQW9sZzVJMllEeVRVSElDTFFacXZXKzJmeDBRRXVZZ29DWkk2b1RzL25wZ0pZeEJRRXpSMlRoTElCTGw4YmFndGszQk5Bb1lHWm1OR0JXVk9hUzRkSitBclBOQ0FiTTVnaERBRWNFekNBTktvWFpVYWZyZWNuRW85THdmSjlNUVorMXZjYTlRKytGWFdueTJUNmJYbS9TeFZIU0NBVFpwMUt6QUQrNGN2SDQvTDFMazB1RFJqOHhCUkZ5eXVRVGV6UDRCK2FUUHFDU1JpRElQaFhIak5QMk1CSGlXYU0vK0hGN2g1dzhuUHNpTmdVUlpzcmtRK1lnV29XTUhOSUgxTjN1ZEhuNnFWbk9DT1NTUVFaR29Gbml0RDBNVStCSHdSdmlsRWYreGRBWG1FbFRrTXlORjV0OGh1ZnY4U3AzOTVJMFFGU3ZLYVFvNVl4QUxvM0F0QVd6YnFUSmFYdVlDUEZzc0RjNG9MSmZiWTh4aTAxQjFKdkZKaC9SbTlFcVZDQk1XWWVPT3RkNVFyMWZ6Z2prMHVIWEZzdzZ6RGh0RDVjdERKcUNEV2FJbkR4MDBveE5RWXlaTlBta01aTStvR2p3dzh2a0h4SkFsVElDdVhUNHRRV3pEak5PMjhNK0g3NDI2KzdjYkRjRGNacTg2L2tQejhwaTB6elNsQ1lmR21ueUtzUDJHOG9IMUNkUDVHRFg4MDdCQ0xRcFd0ZDlzMGU5YUhScDRWckF6Qkd0QzdPQWZaQ0xCTXdjRVdZQklBMnlFRE9YTG8yMUJiTnVDS0JUd016TWFNQ3NxTXdsdzZYOUJHYWJFUXlZelJHR0FJNW9BV1pISFRMM2RGUUpwYlRTbnA3UklmM3dVcXduZjhKSmYxczh0ZG1jc3hHTVFCdWsrWmdKTE1qY2MrVncrZ2VYRTU2ZTRYbHBBaHE4Mm91R2IzYStvN21vMFlYZTZOQ2ZzeEdNUUp1amVaaXg1WWUvOGNUdEU3NzI2cGVjNW9jOVBjTjJLK1JsTjg5TEV4RFBSZEtmd1dYT2FSQlF0YS9HY2J2eGhkY0t4RmFWR0lId2FOL2pQTXlrNVlmTVBhS1hZcmZQdTRlTmV6TE5qL1Qwa0oxSEFNSVQ2YlJlbDNxdmtESWJOQ1BabTVGWmlGSzJYT3NOdjRJUmFIM0JEQjRDU01zUFo4cUwzVDZDRHBubVIzcDZHSmJFd1JQNFNXL0dqTkcxR1p1RlJoZHVYais0MDRNUmFIM0JETWFNTFQ5My9iVGJSMkltM3BDZUhyRzh1L01sODhFbUlMckVwK3V6S0xwTzEyWVVvOGtiblB1YUx1OWdCRnBiTUlNeFk4c1BtWHQ2aWR2bkkzSmJzOU1uenUzaitWM0tDTlRrOWRSSXMrdHhXaUM2aEdPemtPQXB1dE1iVldRRWN1bndhd3RtTUdiNW1wL21aMW5CQ0xSUktvelovRFEvU3d0R29JMFNaZ0VnRFFKbWtBWlppSmxMbDhiYWdsazNCTkFwWUdabU5HQldWT2FTNGRKK0FyUE5DT1lTWmtlZmNXS0RZNVdkUlNrblR4RE53N2ZvVitoSnJuZDVNNWh5STZUS2kyRUk0SXFxeEl6U0FlMUhvNHRmTk1hWTBjeFJUcDRnV1Ruc1JpVE5Qdzg3YWxVNVFaVnRIV1M5cXNPTWJVUEQvZEVsQWRveE80U29SRmdvL3N2SkU4UzFka1EzMTVkK2pSSGJnQml6T0lNUWpFQXVQVmFIR2R1RzJNUkQyVFRvQmRXWHVMc1g1ZVVKb3NwaEI5LzEyYk1tODFoOUdzbG5RZU9lU2pJVW9UZHpSdFZoeHJZaDFadEp6TWhJUmhsYWN2SUVjVzhXVWFFNjdzMTRwcFI2czBQSytNSitrRlRyTW5McDBsaGJNR2VHQUd3Yk9xYWNqSktVN3M3SHNrUllYcDRnVmRWVm5pUXBmUlhaZ01TMlhXQldUekJuTUZQRnZuZ0E2Yk9IYU1nbHdGbzVlWUoyZXBSUktKQVZ4b1RlUFZRMm9FWS9KR2ZSelhZejFicU1YRHI4Mm9JNWcxa2RBbVptUnRzRXpDRDdCTXdnRFFKbWtBWUJNMGlETE1UTXBVdGpiY0V3QkpnallHWm1OR0JXVk9hUzRkSityb3BadGtxWXpPckQ3MXhSSHAvUTIvblZwK1BrUHpJcjBBcEdJSmNPdjdaZ2RtTTJYU1VzTGdXbXpEOFBPNE56bE5KbG5QeUhzd0xCQ0xSWldnbXp2Q3BoRWpQcEN1SlpjVGs5R1R1QVZIa3dHSUUyNjNFbHpQS3FoS21zTGNvVkpDaTh4aDFVa3Z4SFpnV0NFV2l6dEJKbXVWWENHRFBwQ3VMZVRCSVRPNEJVVnFCVmpFQ1FmVnExTjV1cUVpYXora2hYa1BUNG5PdlRDVkk1Z09KVVFqQUM2UTFtOHhBZ3AwcllxVGFQSE9tZGQ5bmo0MVAvMVJ5MmswcGhNaXNRakVCNmc5bU1XZTBDWm1aR0EyWkZaUzRaTHUybmhaaEI5Z21ZUVJvRXpDQU5BbWFRQmxtSW1VdVh4dHFDWVFnd1I4RE16R2lhTU12Vy9ScmJmOFk2K2l3eC93eDJ2VGN1SHN0MXlEZDBhbkhac0hUck1uTHA4R3NMWmlWbTBVVGRyK0YrWXY4Wmk0eEF5dnd6ZkxNVFQwcFJHcGZ6OXk0dFVUWXMxYnFNWERyODJvSlppMWtVdE9KaVlWNHJzZjgwWkRJZ2FRU0swLzlJZmhTSzdCdGFYRFlNUmlDWEhsZnN6YWhZV1AvdVhsSzBTZFlCTytvRTZjcGZYWjhBM0xrNWdkbWlzbUg4TVJocE9xS3ltSEhkTDFVc2JCQmp4bllnaGtRYWdlTDBQODNFaXhGRnNRdHlVZG13Vk9zZzY3WENTVE9LVkxFd2hkbmdJTFlEZFhjK1ppTlFuUDVuMTA4c1B3ZkpTWE5CMmJCVTZ5RHJWWHFrU1RacVZTeHMySDVkMm4vWURoUW5BNkwwUUNyOUQ5VUJhdzdsT3VRYldxSnNHSXhBVHUybmlmZk54bVhEZ0ptWjBaekFiRncyREppWkdjMEp6TVlDWm1aRzJ3VE1JUHNFekNBTkFtYVFCZ0V6U0lNc3hNeWxTMk50d1N3ZkFzaHFZSDUyOGVCQVRrZ2hJNUFod2V6R1RGWURDN05tc3hGTkgwVTFaUVJ5NmZCckMyWXpacW9hR0UxR2pqMUExQ3MxNCtSQWRXUUUrclpTbzhyOWl1THc0LzBxRFRRdTdlZnFHWUc0R2xqS0E4Ui9CcS8ya0tFN3dRRUFBQThxU1VSQlZCRUlTclI2UnFEaFBpVmpHWHVBZUFZOHp0cUNqRUFRYWZXTVFNZjcvSmg0Z0w2azhjQTRPVkQxR1lFZys3UnlSaUNxQmpZNjNMNlNlSURZeGtOSmZYNi9wb3hBa0gycS9yN1oyTWF6dWpEU05ET2FBVlBuWXh2UDZnSm1aa1l6QUxNcUJjek1qQWJNaXNwY01semFUd3N4Zyt3VE1JTTBDSmhCR2dUTUlBMnFCck15R1lMNnczYmpsNnF3MkxRdEtOMjZqRnk2Tk5ZV3pJMGhRSmtNUVlFZkZ4Ykxzd1dsV3BlUlM0ZGZXekJuTUN1Y0lVaTYxRlRGcHlsYkVJeEFMdTFueGIxWmtReEJ2WkJPbGJSbW5pMkloZDdNekdocjY4MUtaQWlLbU1Pa040c21iVUdwMWtIV3E4S1RadEVNUVNIREpZMUEwN2FnVk9zZzYxWFpTTE53aHFEbzRWbmFpQnhCMGJRdFNBNVVnWmtqd24welNJTXN4TXlsUzJOdHdkd1lBdFFrWUdabU5HQldWT2FTNGRKK0FyUE5DQWJNNWdoREFFY0V6Q0FOQW1hUUJoWEhqRTArZEpOVjV2WWhPODhWNWQ5SlovTmhidzhyOUhadXhzYWdpZnBmdzNHYW9IRmthU3J5MDYyRHJGZUozb3puSysvRXVYM0l6aU4vWHo1UlFVN05INUZpZ3c5cHN2N1hPRTFRS25LVVNqR0VJWUNaMFhRTUFSTE1PTGNQRThHTFFyTC9ESFpQZlNYNm94YlBob2V2VTE0Z1pmRGhiWGtUN3NXNjNtdVhFMmVRdDMyRmN3SWxtSkZGRWtZZ2QvWnpCY3hrYnArSTdEeThhTEFYTlBxM080OTZBakgyOXJ3alRvZEJTeHA4VkwwbWxRNG9KSHRRNENkcGdxTFE1NXhBRXJOMllzUkZiMlptTkcyOVdaTGJKNkx6cHVyTlJoZjdkS1ZGM01qZWpOMGF5dUJEYThwTnVwN1hGR2RVd2t3Nmc4aEFGTHMxcURlajdDNnAxcTI2ajNObExoa3U3V2NKekVZZmRoZ0ltZHVIN1R6cTJreGdkcWNuT2pWZlhadFJsOVdLVW1YQjVDWjB3ZzFrYnlhZFFXUWc0cHhBdk5hUVV3eWxXZ2RacnpJM05BYTcwclBEdVgxK2MzYjhTNUhRODMvWFp0ZFBrNzA5b2NlRFVwbkJrYTYvNUNiSGJWa29MSEVHZmV4NUw3NnRjZ0p0ZnlaVERIWEdyWU9zVjYzM3pjTHBzdElwQlZPSmthY0V6QnhSblppTjc0amxhYkE3NzEwcFlPYUlMSndGY09uU1dGc3crNFlBR2dYTXpJd0d6SXJLWERKYzJrOWd0aG5CZ05rY1lRamdpSUFacEVHMVlpYUxnM0h4c09aZ2wycm9lSnlVZlp3eGFOTFdFZEVQMVlkdjlYaTdWZ1RNbkZHOXZabE04Q01UYkhDNXNEczlOVytaYXd5S3NSc2NVQVc3Q0pnNW85b3hlOWhSNllKR1B6LzBwekNiTkFiSnZFSG5qMlhKUXhpQjNOblBtakhqQkQrcU43czBmTE9Ud1N4akRPSzhRVUdqenk5SkdHbWFHYzJ3a2FicXpUaGQwT2hTTkRoM2ZSS3pqREdJOHdhTkxnS3o2b081amxrMDJKUHBncWpDVHJDakxFSDV4aUF1TlhZUG1OVVF6R1hNWklLZm4zQzZJUEZjb0hQdFpqc1pmRTRaZ3podmtCOTY3eDdHaGtrTUFSeVJRZmZOY294QndNd1JtWU5abmpFSW1Ea2ljekRMRXpCelJCWmk1dEtsc2JaZ0xnOEJWaFl3TXpNYU1Dc3FjOGx3YVQrQjJXWUVBMlp6aENHQUl5cUcyVkdINjNrcC8wUmFhVWZQNkpCdXQ0cjE1Qzg2Nlc4cnlpbi9oWXhBRzZOQ21BbVd1SjdYNGZUdkx5Y2NQY1B6WFBlck0zaTFGdzNmN0h4SEtUVHl5bitWeXdnRTJhY0NtTEZOaHdFWS9MaTkwNHZyZ0ZIV0grbm9HWElWTUxIczV2aytyOGM1Q3VqUDRISnUrYTl5R1lId2FOOWpBY3pZcHNNSmdFUXZSY25McUE3WVBjNzZveHc5Vko1SjhNTDVmMmk5THAzN1FrcDAwTXd0LzRXTVFOcUMyVE1FWUp0T3hJbnpEaWpKajZ3REpyUCtTRWNQVndGTE12dXc0eUtLazdYa2xmOUNSaUJ0d2V6QmpHMDZkMzFaN2V0MlI5VUJrMWwvcEtPSHE0Qjl5Ymh3b2lBYUY5RDFXUlJkNytlVi95cVhFY2lsdzY4dG1EMllzVTJINjNsMWQyNjJtNm9PR0dYOXVUZDI5SGgrbDhhU1RWbjNTNDQwdXp4eW5DNy85Y0p1cVl4QUxoMStiY0hzd1N4Zjg3UCtyQ2lNTkIzUnFwak56L3F6cW9DWkk4SXNBS1JCd0F6U0lBc3hjK25TV0ZzdzI0Y0F0UXFZbVJrTm1CV1Z1V1M0dEovQWJET0NPWUhaRWYvd3NuR3NNbVBFNHJ1ek5KTTBrcE9mN0FZYXdRaTBlYW9FTXlvT3RoK05MbjdSR0dNbUZpZ2ZFQlU2R1Z6bWhDMDg0d1FqME9hcEFzeGtIcC85MFNVQjJqRjdnYWcyV09pMTFNdzVWVVg1YlYvbUJWSWxVV0FFMnJESENqQmpneEM3ZHpqTENpWDFFZWU4dTN1SkQwaVE5UWxQbWtzMzBLcEdJTWcrVllBWkc0UlVieVl4STNERStUSDJBUTNmK3QvU201SHF6V0FFMGh2TS9pRUFHNFNPOThVemdSbDdnVDZXdGNFU0gxQ1hMclVtcnMxZ0JOSWN6SDdNVkpVdi9rR0pIMmYyYVE3YkxlVURVaTZPTGcwanUycWtDU09RNW1EMlkxYWpnSm1aMFRZQk04ZytBVE5JZzRBWnBFSEFETklnQ3pGejZkSllXekFNQWVZSW1Ka1pEWmdWbGJsa3VMU2Y2OENNc2dYOTE2UlNHTGwraGhrSFVmd2FtSmtaelFyTU9GdFFYQ21NWFQ5Qll4S3pBRVlndDdRT3pOaE5GbGNLWTlmUDZHS2ZQSTVkOFYvaldEd1JyMkVFY3VseExkZG1sQzBvcmhUR3JoK0JGZFVIWSs4R1BXSE1JdlJtem1oTlE0REFqeXVGc2V0SFlFWDF3YUtqem5WK0Fzd2MwMXBPbW1RdWl5dUZzZXRIWUVYMXdhTEJEeTl6b2JDNW1MbDBhYXd0MkFZT0FTaGIwTmRKcFRCeS9md1hhUjRTQzNwc25nM1ZiMDZBbVpuUnJNQnNlUUV6TTZNQnM2SXlsd3lYOXROQ3pDRDdCTXdnRFFKbWtBWUJNMGlETE1UTXBVdGpiY0V3QkpnallHWm1OTTJZVVJHdzNEZW81c2xFYmgrMWlCUjZPNys2VE9YQ1NtWUVjdW53YXd0bU5XYUpNV3k0UC8zV2ZpcTNUK3I5d1RrcTdzVGx3c3BsQkhMcDhHc0xaajFtWENjc2xIMVQrTnFySC8vSSs1SG5VNTBUc1loZFBseER6Q1A3aGVqOEd2M2JxaUxpNEhLRWpFQ2I4cmd5WnBRZTc2aHpkeSs2M1FuZk9Hd2N0NXRoYzNBUU5QcGlVWnpiSi9URkM3RW84S09nZFUxMlhsUXVEQm1CTmtVVjlHWlV3R213UnlWem1sVER5YWVhVHBTMFpVL2w5cUY4UCtLRldIVFVpU2dqaTl5VXFqZVZ5Z2dFMmFmcU1DTUR6eFJtNVBLUitYNElzNEJ5blJGRG5MdmxlcjljUmlESVBxMCswdVE2WWVLaW5zNTFWQmFzOFpIbjdYeEp6cDdYcGN2bjMxTlcybllycEJTME5KUU15Y0RZbFltRGtCRklVekM3aHdBMUM1aVpHUTJZRlpXNVpMaTBuOEJzTTRJQnN6bkNFTUFSQVROSWc0QVpwRUhBRE5JZ0N6Rno2ZEpZV3pETGh3Q3lLSmlmWFR3NDRIdTNYQU9NakQrZmpqMC9WQzFBdVg4eWhjTEVzOWJZTHpSdVhVWXVIWDV0d2V6R1RCWUZDek1KZlNKTzl4UEpHbURTK0RQMi9EejZFM292cjFEWVBpK2RibDFHTGgxK2JjRnN4a3dWQmVPY1BvZHlSb25yZ25sTmRnZkpxam5TK0JON2ZxTG9SaGpYUE1rV0NtUE1ZbXZSYkNQUXQ1VWFWZTVYRkljZjcxZHBvSEZwUDFmQ2JGd1VMR0tQRHhkczRqK0RWM3Y4ampnZFN1TlA0dmtaZnNXbnhieENZZndzYUVockVYOEFoZ0NPYUNYTVZGRXc4bHl3eDRjSjQ2bzViTnVRdlpra0p2YjgwTVE1WGNybEZRb1R2ZG1oTCtzKzNRWm1UbW5WM295TGd0RWplM3lvTHRpWE5CNklNYU1hWUd6OGlUMC9WRm1UdkxGNWhjTDJvNmdMekp6VVNwakZSY0ZHaDl0WHlPUERkY0VHdTU1MEIvMytvVXdzUzhhZjJQT3pmVllzb080dXQxQ1lKeGFHbnMvV29sVHJJT3RWL1gyelI3MkljcGRWSW93MHpZeG13TlI1b082RFZTRmdabVkwQXpDclVzRE16R2pBcktqTUpjT2wvVFFjTThnUjhkZHBLbWE1TW5qNGlhYk5GVENyUm1qYVhGbUZHV1NyZ0Jta1FjQU0waUJnQm1tUUxaZ0ZYaXYxWUpSa204WTVBUTJTYk5xd3ZmYWpaZ2xtYk9sSUhveFMzS2FzLzljQXFhYmQ2VTM0MzljaFN6QmpnMXJ5WUpUaU5obUkyZmh3cmZzZnB5V1lzZDAyZVRCS2Nac014R3g4dUs3M0Y2eGFzeXpCREwxWkdTV0hLNXo2QVpwbVdZSVpyczNLS0c1YW1KLzBYS01zd1l6c3R2U1BzN3YyTWRPMGtxWmxmMHk0ZnNtbUJYbS9wOVVyV3pDRHJCWXdnelFJbUVFYUJNd2dEUUpta0FZQk0waURITVBzMXRiV3lWOS9rRm40OUQ5ODhPUVBlS0Y2bUZEZXNtVGg0KzkvTTJ1VnhacmVyR1FnYnNtL1hyeks5ejR2MUpwQyttOHJiZTBXWmxlZi9TYTZkU0o3UUs3S0pWUDRUYnlicXljdlBmdk5nbFV5U2o1a3hxY3R0VzJPSk85ejlmUzlaK1podHFKV285UXB6QjcvSGgyS0IyY3lpMFZ2Umc4ei9qMnFkMmRFNUc5MzdpcVRTajZreEwvK09aczgvZE1sQ0hyeWNvMllSVS8rY0NIb3MrVVVacmVlVlVlQ3pwM2lxUCtQTGJIZ3dkYldDVHBwaXNjejlFOHk5ZDZUbDdhZStad1pldnJlMW5PaU4vaGZ0T0RKeXo4OThaZC84QUcvK2ZqN2Y3YjFIR04yZFl1RDA0WmllMzVKSy83bjcvLzExck4vdi9Yc1A3ejB6T2VpMCtNUG9RMXpQaTNpTHVHeDJ1Q2JPSkphNDZjbi9sTzhyVnI5bG5nYWYreUQ1d2g1dGFYODhOU2F2TWZ4cTlRYllxL0U4NnZKWjQvYk1WNG4rYkN0azNLUG40K1BRcllSVjdQL2ZBdklTY3hFSC9UNCtYOG55S0d2OVh1ZmkwNU9FUEQvaUpVVEg2VGZ1M1ZTQUNTN0t1b0ovb2tYL093OThiV0xGZm5OeDgrZmVmcmVHZkhrZ1ZoMlV1SVlpWVgwOHQrSUZjVnI4ZTA4UjFkL0x4T3c5Q0c4WWM2blJYVDIvVm04d2M5VXBIaU5rMUc4N2MvazZvS3NxeWZWeDRybDBmaWplR0ZxellneHZFcnZxcDFTYjl4NmJ0eHkrZGxxOWZFNmFobTM0b3o0ajA3ZE14cHg2MlQ1YjhaSnpPaUFpS1BPWHp4OVFjd1M0U1JmSisvUlYzZEduUkhGZ2Z6Rk43eUFpSXZmcEpNbVl5UCt0UXNzMUlucDFrbCtTYzlsSUlHaWVxSzZ4ak41bnlZSEk2a05PRks4UnBSc0sxZmh6aVArV0ZvcjJWSXVISzhacVo0bXRWUHk2WVBuVWkxUFBwdjJkcnhPY3BUb0NJZ0QrT1NWV1kwQVprcnkydXp4WDl6aWd6SURzOVI3RDhRLzhCaXp4OS83bjM4UjhRTDFsZlB6TVdicWpCSERvYjdXUE15U3FKbFBpL0l4aTllSWttM1QzN0Q2MkVuTWFHRnF6V2dDczlRYjNQZkdJZEtZcGRaUlIrazUxV09lK2ZYTVJnQ3pXRFRTRkplcUFyZmtBRDRRVjEvdlBmTTNDV2JwOTY2cU0yS3lMUzlRWHprL0Y1aUpVd2QzREJIOU8rY0JsenlaUEhrbGk5bVRsK2h6b2lScTV0T2lER1l5VXJLR3ZBSThreEQ3Z0hxVytHUHAyaXpaa2hlbTFxVDNhZVhVVHFrUUorV21IQ0xkanRRNjhxOXNoVmg1SzNVVU1vM0F0Vm1pcTNUTnk5MzhHZkg4dVZ2aXFJbEZXMmZrRTM1SXZmZjNXeWYrNVRNL1ZSZlJqLytJanJKWThHOTVKZm5tMzd4SGE4dXQrWGFCdUV6ZW90c2JWOVcxdFFna0h2NmFuNTM0VnpSU09NTkJQcC8rdEcrb1hjLytXYnpCUDZoSWFnMitzaitqR3FBYWZ1S0RTSDBzalRUVEgwVmpqUEdhdk9NblBranRsSHpqL3o1UHd3c1ZRbjYyWEQyMXNWckdyWWdrUy9tTndFaFRvNnE3YVZBczB2eGJyelAwVDRMaVh4U0M0K2wvbkxWNmdaczZPUUpteGJRdXpKYVpCY2lLeUhqeWZxRk5wdTQ1SnNJc2dFYUppK3BuVnpoMzFCSnB0aDdJUzRpbGRaV0hwSFVJbUVFYUJNd2dEUUpta0FZQk0waURnQm1rUWY4ZktJc1E5R2RvVVpBQUFBQUFTVVZPUks1Q1lJST1cIiAvPlxuXG48IS0tIHJuYi1wbG90LWVuZCAtLT5cbiJ9 -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAJmCAMAAADB8ry4AAABy1BMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshQ9elmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojm6Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq46rq6urq8irq+SryKuryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///+xnWxOAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO2dj5/bRnreV7brXHutsGtToRynTrVnnbw2aTtKb897hpv0Gjc5r+XIPbmWRbW5tjFXPrmKLzJ1TRtD0t1lRVmBJMaiiD+3874zAEEQ/AEQGM4Mn+djL0kQeDkAvxpgMA/fdyuCoNq1te4GQJsgYAZpEDCDNAiYQRpkKmb/AnJE/HUai1newm8r/YhKo5kbbM1NA2abEQyYzREwMzPaJmAG2SdgBmmQhZidhkzWnC+yJsyGba/RpyeDH3Si0aHnedufpReJ9z3xMvR2elHgtWjxUWf4Vo9XbUXAzEblklBvbzY8z0hFj/6kJV887Ewu2o9GF/s3xMvBniBMwif+HgwOUq3LaN3HEZqrXBD0YHYjFF2YePGwk1m0P7ok+jTxLPCjsCV6sW3B4XGbOzO6q/fttzyo+Tb9uO7jCM3V1PdFj1owG34lzoR0itzuTC1qRt/1BXG3O6IPC1qiSwvEWbQV8hkUvZmFygVBC2ah6J38yd5MLaLeTOh2h3szcdq83RFnUWBmsXJBqB8zcZn1234UNuWLvclF+7za6EKPr81EbxY07gEzq5ULQt0jTTG4vHIo+q2u9+Lb4oX3k/SiF3ZpPBnQuVS8avH6fui9e8hd3SzMIPtk4X0zyD4BM0iDLMTMpSllbcEwdT5HwMzMaMCsqMwlw6X9BGabEQyYzRHum1mlRV8kMIMq0KIvsixm0tzTyXtLGXsimlfa6YmHo894Rlxs0lRvDNu06eiQ345i3xDf0/XTrcto3QcTmqXZoKzYm/HUEZt34okj9VQZe0g3+K9Yi2w/F3qxRUO8Gn4oiPvnP+6lo/EbofSkATO7NJuTCjCLwhb1S6HHD6IzaomnPBUevt7e6bHPR1p8YswGPxbLaf2fv9WLfvtXvYCmnxoftcaYUYcHI5BtmjYAVWQEYjAGe7c7YevuXkQPgq+In0aDd8TpMGixz4ctPrET6J5YftQRKw0/6fqjv70merPQH57/NO7N2slpFb2ZVZrNSTW9WdfzmuI0SQ8EjXgqe7MWPSWfD1t8qDc79Kk3OxCvBoTZ4Nw//t010eF5tHpy0hyc6wMzC1UrZuKq645kix6oNxNP+dpMkCO6MTpTssXnWFy9dScxG334Tv9a71ov9Ad7Rx1pEhI0Bi1gZqHqwiweadJ5bthuyQd+ysaekH5QEqgVpAeocU+MNLs7N9tipddFJybOst7Ox5734tvvHr6wq36UIoajcviKqXNHVOt9s7C1eJ25AmaOqE7MxnfEygqYOSILZwEg+2QhZi5NKWsLhqnzOQJmZkYDZkVlLhku7aeFmK377pABKnEogdlsAbN8af4aVlf9RqD4tgaMQNWp5Ne1PmkwAo0uEEYwAlWosl/X2lS/EYgxgxGoUs003Jj6WL8RiDGDEahSlfimrB4CLGMEIsxgBKpUJb4p6zFbZARSvRmMQNWpxDdlM2bLGIHEs0a/SiOQS7cttQWzGrMFghEIkoIRCNIgC2cBIPsEzCANshAzly6NtQVzeQiwsoCZmdE2AbN137Ragyo4lMBstoCZVAWH0knMkjpgNAu1S8VyPK4CNlktDKXBllTVX4921dWbyTpgowsCGX90KJC5oxxAKA1WQpV/PbpVI2YPO2o6c/TzQ38KM5QGK6C1G3nWbASaKWn6Ub3ZpeGbnQxmKA1WRJV/PbpVc28mLrKakeixBueuT2KG0mBFVMEX4uQQQNUBk/5sQinY6SmbD0qDFVcFX4iTmPFYkaw/O2zQFtBcu9lOBp+rlQZz6baltmBuYlaRgJmZ0TYBM8g+ATNIg4AZpEHADNIgCzFz6dJYWzAMAebIgvtmE00DZjMEzFbURNOA2QzVitmE6yfxBk0ZgbqUzMBWI9BE04DZDNXbm026ftgbNG0EuutHXd9aI1BNR84x6cFMun54Nn3aCCTNGbYagcww2pj+qAWzxPWz3ckxAgUtgZm1RqCajpxj0oKZcv2ke7OUEYjxs9YIVNORc0z1YzZ2/bA3KM8IFGd3tNEINNE0DAFmqO6R5tj18+Lbyhs0bQSiVBswAtUazGXMVhYwMzMaMCsqc8lwaT8txAyyT8AM0iBgBmkQMIM0yELMqr3fZe5VO4YAugTMzIxmImaL7EAT0mYEiqOZSwYwK6ZFdqCU9BmB4mjmkgHMimmhHYgKHna91y7rNAKZYZDZlEeNmM20A1FFMaq74+s0AtW6x1BGGjGbaQeiimJHHYGZTiNQrXsMZaQLs3l2IK4opnozbUagWvcYykjPSHOuHahxLCuKeT6MQLUF24AhwJIK/KlFwMzMaBZjNtidLiQGzMyMZjFmeQJmZkbbBMwg+wTMIA0CZpAGWYgZ7pXZp43HzNyrdgwBFqpQaTBtGYHyoplLBjBbrAKlwfRlBMqLZi4ZwGyxCpQG05cRKM+ocn8q/gqP96s00HxbqSFnvftpQGkwfRmBKt9LaEkZUBpMX0agyvcSWlJGlAbTlRGo8r2ElpQRpcGKZQSC7JOF981cGoFpC+boSLMaATMzowGzojKXDJf2E5htRjBgNkcYAjgiYAZpkIWY4X6ZfQJmkAbVgtkwzwC03VF3bfUbgea11dyrdgwBFinPAPShYOmf/7i3DiPQvKaaSwYwW6Q8A9DP3+pFv/2r3jqMQOYaZGAEWkV5BqBPuv7ob6/11mEEmtdUczsg9GaLlGcA+mRw7h//LsFMqxGo4r2DCqu+k2bWAPTJ6MN3+td66zACVbx3UGHVNdLMMQD5YYvHnTACbZ4svG8G2ScLMXPp0lhbMCeHAFUJmJkZDZgVlblkuLSfwGwzggGzOcIQwBFZiBlulNknYAZpUNWYTWT8Ea8av+zMfl8ZgUK6P1upEaiy3YGqUeW92YTRJ/CnSsxNG4H6N8TLao1ABdpr7lU7hgBzNGH0of+j4Efejzw/oCmmxketaSOQ6PL6UbVGIGsMMjACldSE0ScKvdaw3Qyb1DuF/vD8pzkZgb7rC+KqNQIVaK+5HRB6szmaMPpEdN4M/bA1OBBEUYeVkxFI6HbFRqAC7TWXDGA2RxNGn5DgkZhd64X+YO+ok2cEGl3oVWsEqm53oEpUw0gzVfTrN2e9na/FFZnn7XzseS++/e7hC7s5RiD6NQqMQC7LwvtmkH0CZpAGWYiZS5fG2oK5NgSoVMDMzGjArKjMJcOl/QRmmxEMmM1RmftmmpsILSNgBmmQCRmBqjUCVbsrUCUyICNQxUagincFqkIGZASq2Ag0tf78RxiBdOynARmBKjYCFWyquYNDjDQXqVBGoKhaI1DBpppLBjBbpIIZgSo1AhVsqrlkALMFKpoRCEYg12XhfTPIPgEzSIOAGaRBFmLm0qWxtmAuDgEqEzAzMxowKypzyXBpPy3EbPV7ZWmZSwYw0yUNmEE6VBizo06XXD7J6yTFT3R0hW6rbnei0Nv51afK+LPTG1t+mplQk2lchnLCnHMiTLYuI2Bmn4piNvjBlYvH5+9dGi+JLRcCGnr6sDM41x+2W7HxR1l+5GT6ZCx+IxVoX01SZVuXETCzT8UwY6cOgyWeNfqDH7d31Fy48vD0H9LsN60aG3+U5UdZg8RWx+3GF14rEN0cv9Hd7nQbZP1pSsxEDA4bFTECVWiYwWMdj8UwY6cOYxb4UfCGOCXKpBjqHa6+FF3jHik2/ijLj+zNaCuaFr/WG34Ve4EIzXC8ddC4x2H58zAEMDNazUMAduowZuLZYG9wIF5KzPgd2ZtJRGLjj7L8SGsQbzW6cPP6wZ34DbHsep/ybfSpNzv0Rxf7HDbVuoyA2dqj1YwZO3X63Js1I8rzozBjR2LQOKane+LaTLwXG3+U5UdedfFWUXDua7JvyzeiwQ8vU+YgvjaLusCsnmBWYcZOHfbs8LVZd+dm+xT7fOiMJw08lMWMLrSU8Wf7bGz5ocst3kp0dNEd+lkJJw3q00l2sOt5p+Lfn/gUtplq3ar7OFfmkuHSfppx3+xRLxpdylmOqXNHZAZmAd9vmxYwc0RmYDZLwMwRATNIgyzEzKVLY23BMASYI2BmZrRNwKza+UxzyQBmugTMzIy2dszKlAbrkkWodEagypoO1ScDSoPd9aOuXz4jUHVNh2qTAaXBZJaW0hmBpt7Ho3mPBpQGC1oCs/IZgaprOlSbDCgNxj6z8hmBVmyvuVftGALMUZnSYOKhfEagFdtrLhnAbLZKlQYjj9DyGYFcOvzagjmGWbUCZmZG2wTMIPsEzCANAmaQBgEzSIMsxMylS2NtwTAEmKPZ980q+whzyQBmugTMzIy2dsxyqoJFlELo1JzSYGWMQJU12FwygNkcTVcFG3EKodmlwUoZgaprMKRBdWCWrQrG85yzS4OVMgIZYnDB45qMQDlVwSRmM0uDlTICVddgSIOqx2y6KpjCbFZpsFJGoOoaDGlQLSfNTFUwhdns0mDFjEAuXRprC+bYECCnKliHTD7DeaXBYASqPZhjmFUrYGZmNGBWVOaS4dJ+WogZZJ+AGaRBwAzSIGAGaZCFmFV7c9bcq3YMAXQJmJkZzWDMOBcQ34pNkgXFtcQWtC4jYLb2aAZjJtMa3OmlkwXJWmKZ1fazrcsImK09mhWYjZMFyeo7qjrYdodrgoVea7B76qu5pcHWbmzB45qNQLMVYzZOFiTNGRK2251Qlhq7uxfd7jySBQ819GaQDunGLKkVFtF5U/ZmXB2sS95uKtY02JPVXsetywiY2SeNmI0+lMXrUsmC2BW0x9XB6GwaY3anJ/6MWwdZL503NAa74hQ5mkgWJGuJUR9HRlquCTZst37Xlt0dps4NjWbyEKCEgJmZ0YBZUZlLhkv7Ccw2IxgwmyMMARwRMIM0CJhBGmQhZrg7a582HjNzr9o3eQgwmu3dUTl9omSu6OiztsrsQ9afeEue0GQNVZYgNbOkyoZxmiA/3bqMgNnao9U/0uT5IVnvK2XZiX83Ll/JX56T0WdfPpfpf8ZbxlupLEHp2BwrlMmpgJmh0fRgRrORoifigkzbHdH9tMRTzoIRvt6mH51f4B+ebyeYyfQ/asvzfTL60FZxlqDJsmGEWTOaZwSq0qhyv6I4/Hi/SgPNt5Uacta7n+UwG+zd7oQttuyExFfET6PBO+IEGLRU8ilKicdGnzj9j9wyaPTJ6ENbxVmCJsuGcZogKQwBHFHZ3ox9O3uUiLFJmIinsjdr0VPCjLP7UG926Mfpf+SWo4t9uhyjrZIsQRNlw4b7g3P9dOsyAmb2qey12R3JFj1Qv0RuHro2E6yMe7OgcSyu3rp+nP5HbikwI6OP7M1klqDJsmGCzaCVbh1kvcqONOnMNmy35AM/5Zw+IaeW7Yo/NGD8CeeWvSetPy++LbcMPZ+MPuL9UypL0GTZMDE8bY0O5WAWmDmiiu+bqbxkVQlT52ZGW/PU+fgeWDUCZmZG2wSHhkuHX1swYDZHwMzMaJuAGWSfgBmkQRZihtuz9gmYQRpkQmmwkNIEFSkNVllro3VfGmsL5toQoHhpsP6NKIoKlQarrrXrPvzagjmIWcHSYMM2dX1FSoO5Y5CBEaikipcG+64fkjeoQGmw6lq77n/l2oI515sVLg0mdLtYabDqWgvpkRGlwcQ2BUqDQfbJiNJgNAhdvjQYZJ8svG8G2ScLMXPp0lhbMNeGAJUKmJkZDZgVlblkuLSfwGwzggGzOcIQwBFZiBluz9onYAZpUGnMSqQGms4AZEBGIEiHyvdmJVIDTWUAQkYgXcGsHQKUSA00lQEIGYFgBFqgEqmBpjIAGZARyNwOCL0ZqURqoKkMQAZkBDKXDGBGKpEaaCoDEDICbYhWHmkWSA10PJ0BCBmBNkN13TerJjUQMHNENWFWUWogYOaILJwFcOnSWFswa4cAOgTMzIwGzIrKXDJc2k9gthnBgNkcYercEQEzSINqNQJFnOsHRiCoXiPQDf5rtBEI0qFajUCc6wdGIBiB6jUCca4fGIFMCGbtSHMZIxDl+oERyIRgpmH2YOvk4+dPLrHlMkYgOlNWbgRy6fBrC2YYZk9eefJ+9OTlzxduuIwRKFArwAi06cpi9vTPBWYPnv1m1bgwAkEp5Zw0t7aeWdyZLRCMQFBa+UOA/7MyZ9UImDmiCcyevLQltXp3Vo0wBDAz2opDgF+oazKjezOXDr+2YEZhZpqAmZnRVseMTpzPVdaeFZV/e7bSjzCXDJcxe/reSTHaXHB7lq0UAbkveO582G788kp8G+2t8QhzImWLtF9Esl6OvOn2WUmHRtF9hNauqduzf0iXZ4uuzXhWiG78c+WlwCcPxtiwoZRJ2TJZrEm8eNgp6dAotoeQAZo6af76A/Hnvy+LGVdeYihiw8b5/mD31Fdk1sikbJks1nS+/7ATlXRoVOpcwKOOx/wbGovmNGPMZOWlKPRasWEjoPJLj3o0vZlJ2ZIt1pTn2FjOobGgcZB5yr2h8fiPFmzFPAg8wvgyKvBVbza62KeLrWtyJj2dsmWyWJPszco5NFbb44zMvWp3eQgQXV3m9uzoww4zISsvhb48W9K1mcDsTk90an6UTdkyWayJXuyVc2icLrqPc2UuGS5j9uSVp38ePXl/0WaDXXHSG8nKS43fnPV2vlYjzdDzfyf6Jj7xTaRs4SKZcbGmF9+m0k0/mXZsLOPQcOnwawtmGmbvRw/OPP3TymYBVnNqADMzo61+0rz1zOdXq7s/u6JTA1PnjggODUiDJm9ovPy5vKdhtEMDsk9TvdkvlpkF0CVg5oimhgBL/AxAnzAEMDPa6kMAnmcyujdz6fBrC2YYZhZcm52u9CPMJcNlzBZdm5XI0BKlzT9pq1DZVC1L7tpyMpcMpzEjzZvTLJGhJWX+mbQKwQi0KSo8p1kiQ8vY/JOxCsEItCmPhec0S2Roic0/U1YhGIE2RYXnNEtkaBmbfzJWIROMQJAOFZ7TLJGhJW3+mbAKwQikLZiJQ4A5KpGh5V7K/DNhFToFI5C2YJZhtkDVZGhJBMzMjLYaZk9eWfHjK8rQkgiYmRltRcxeMub+vxSmzh3RJGbv82TTMrka9QiYOaK8a7NbxvRpwMwRZXuz6Ol75sycAzNXNP1z4DNrbE1WGAKYGW3FIYBRnsYIt2dNjabrvhm7dZoTr5WpYqyjccafwa73xsU+ZQ7qdMWGpzJbsybNG+nWZXS6aGPnylwygBlPJ9FspdRwP0nEMhb5gJTRZ/hmJwoafcocdOXi8fl7lya2VmKzUG7rMjpduLHzZC4ZwEymkgpaNK0Uvvbql57y8IwO6eflrZB/kb7dSYw+EiDpIqM15dZy7cYXXivY6UmzUHe70+UfqDdhBHLpcdXeLHz3sNG/u6d6s8AX9IRkAZI+IGX06foE4E6PMgfFmImt47Wv9YZfjc1CDzscgD8FDg1HVBqzQ+pxhjz5TeYMiZmgY7DHlEgfkDL6BE3Z/TGHjBlvzWuPLty8fnAnSS501LnOKTfgnnVKq5w0KfdUmMJscCB4CluDg6i78zH7gJTRZ7Dr0wZhYipTzNHaUXDu60PRyUmzUDT44WXKMDTRuoxOl9pRaJ0qP9KkSfLA8xofkSv7dc73Q1dkjT6NQn3lA5JGHxppit7r4VnaqEvWbt6a146Gn0R3enFyoT5lTZNrj1uXkUuXxtqCWToEqFOPetHoEj8DZmZGcwKzIPmJHjAzM5oTmI0FzMyMtgmYQfYJmEEaBMwgDQJmkAZZiNnpSj/C3Kv2jR8CFC0NRimCbhpaGsxcMjYes8KlwW7E20TGlQYzlwxgVrA0GKcIMrQ02P2K4vDj/SoNNN86tJ+rYbZkaTBOEYTSYBusFTArUBqMmDO0NBikQ+UwK1oajJw/hpYGg3So5A2NYqXByMs9rKw0GGSf6r5vhtJgZgSzcqS5tOooDebS4dcWzG3MVhQwMzMaMCsqc8lwaT8txAyyT8AM0iBgBmmQhZid1twIaHXVh9kw7fzJX8q3bBv9Ls1hKtfQUWf4Vo99Qq0IDg1To5k0BJhw/uQvpSooF+/6UddXriGJ5OBgcJBqXUanK22luWQAs6U06fwhC2PXe+3y5NL90SV2chzwPLtMI3T+WNZHhBHInf2sHzPp/KEaYjSN7mf9QE2aJx8cSNY4l1Cjz6uS0JuZGc3A3kw6f6iGmDgrJpgpPxD1Zuw9496M0wiNLmrFDNKhmjFLnD9cQyzuzcZ+IFn4NS76yuXE7gEz91TrSHPs/KEMjM2kWli89IVdGk/yb1fYNcS5hELv3cPYLYn7Zo5I832zwF+8TkrAzBHpxWywW8wXhKlzM6OZNASoQMDMzGjArKjMJcOl/QRmmxEMmM0RhgCOCJhBGmQhZqc1NwJaXcUxK5oOiH7cNMsUZEBGIEiHSvRmRdMBUa2JGaYgZATSFcy+IUDBdEATmGVMQcgIBCPQLBVMB5TGLGsKMiAjkLkdEHqzQumAUphlTUEGZAQyl4wNx6xoOqAYsxxTEDICbYjK3NAolg5I2YDyTUHICLQZqvW+2fx0QEuYgoCZI6oTs/npgJYxBQEzR2ThLIBLl8bagtk3BNAoYGZmNGBWVOaS4dJ+ArPNCAbM5ghDAEcEzCANKoXZUafrecnEo9LwfJ9MQZ+1vca9Q++FXWny2T6bXm/SxVHSCATZp1KzAD+4cvH4/L1Lk0uDRj8xBRFyyuQTezP4B+aTPqCSRiDIPhXHjNP2MBHiWaM/+HF7h5w8nPsiNgURZsrkQ+YgWoWMHNIH1N3udHn6qVnOCOSSQQZGoFnitD0MU+BHwRvilEf+xdAXmElTkMyNF5t8hufv8Sp395I0QFSvKaQo5YxALo3AtAWzbqTJaXuYCPFssDc4oLJfbY8xi01B1JvFJh/Rm9EqVCBMWYeOOtd5Qr1fzgjk0uHXFsw6zDhtD5ctDJqCDWaInDx00oxNQYyZNPmkMZM+oGjww8vkHxJAlTICuXT4tQWzDjNO28M+H7426+7cbDcDcZq86/kPz8pi0zzSlCYfGmnyKsP2G8oH1CdP5GDX807BCLQpWtd9s0e9aHRp4VrAzBGtC7OAfZCLBMwcEWYBIA2yEDOXLo21BbNuCKBTwMzMaMCsqMwlw6X9BGabEQyYzRGGAI5oAWZHHTL3dFQJpbTSnp7RIf3wUqwnf8JJf1s8tdmcsxGMQBuk+ZgJLMjcc+Vw+geXE56e4XlpAhq82ouGb3a+o7mo0YXe6NCfsxGMQJujeZix5Ye/8cTtE7726pec5oc9PcN2K+RlN89LExDPRdKfwWXOaRBQta/GcbvxhdcKxFaVGIHwaN/jPMyk5YfMPaKXYrfPu4eNezLNj/T0kJ1HAMIT6bRel3qvkDIbNCPZm5FZiFK2XOsNv4IRaH3BDB4CSMsPZ8qL3T6CDpnmR3p6GJbEwRP4SW/GjNG1GZuFRhduXj+404MRaH3BDMaMLT93/bTbR2Im3pCeHrG8u/Ml88EmILrEp+uzKLpO12YUo8kbnPuaLu9gBFpbMIMxY8sPmXt6idvnI3Jbs9Mnzu3j+V3KCNTk9dRIs+txWiC6hGOzkOAputMbVWQEcunwawtmMGb5mp/mZ1nBCLRRKozZ/DQ/SwtGoI0SZgEgDQJmkAZZiJlLl8baglk3BNApYGZmNGBWVOaS4dJ+ArPNCOYSZkefcWKDY5WdRSknTxDNw7foV+hJrnd5M5hyI6TKi2EI4IqqxIzSAe1Ho4tfNMaY0cxRTp4gWTnsRiTNPw87alU5QZVtHWS9qsOMbUPD/dElAdoxO4SoRFgo/svJE8S1dkQ315d+jRHbgBizOIMQjEAuPVaHGduG2MRD2TToBdWXuLsX5eUJosphB9/12bMm81h9GslnQeOeSjIUoTdzRtVhxrYh1ZtJzMhIRhlacvIEcW8WUaE67s14ppR6s0PK+MJ+kFTrMnLp0lhbMGeGAGwbOqacjJKU7s7HskRYXp4gVdVVniQpfRXZgMS2XWBWTzBnMFPFvngA6bOHaMglwFo5eYJ2epRRKJAVxoTePVQ2oEY/JGfRzXYz1bqMXDr82oI5g1kdAmZmRtsEzCD7BMwgDQJmkAYBM0iDLMTMpUtjbcEwBJgjYGZmNGBWVOaS4dJ+ropZtkqYzOrD71xRHp/Q2/nVp+PkPzIr0ApGIJcOv7ZgdmM2XSUsLgWmzD8PO4NzlNJlnPyHswLBCLRZWgmzvCphEjPpCuJZcTk9GTuAVHkwGIE263ElzPKqhKmsLcoVJCi8xh1UkvxHZgWCEWiztBJmuVXCGDPpCuLeTBITO4BUVqBVjECQfVq1N5uqEiaz+khXkPT4nOvTCVI5gOJUQjAC6Q1m8xAgp0rYqTaPHOmdd9nj41P/1Ry2k0phMisQjEB6g9mMWe0CZmZGA2ZFZS4ZLu2nhZhB9gmYQRoEzCANAmaQBlmImUuXxtqCYQgwR8DMzGiaMMvW/Rrbf8Y6+iwx/wx2vTcuHst1yDd0anHZsHTrMnLp8GsLZiVm0UTdr+F+Yv8Zi4xAyvwzfLMTT0pRGpfz9y4tUTYs1bqMXDr82oJZi1kUtOJiYV4rsf80ZDIgaQSK0/9IfhSK7BtaXDYMRiCXHlfszahYWP/uXlK0SdYBO+oE6cpfXZ8A3Lk5gdmismH8MRhpOqKymHHdL1UsbBBjxnYghkQageL0P83EixFFsQtyUdmwVOsg67XCSTOKVLEwhdngILYDdXc+ZiNQnP5n108sPwfJSXNB2bBU6yDrVXqkSTZqVSxs2H5d2n/YDhQnA6L0QCr9D9UBaw7lOuQbWqJsGIxATu2niffNxmXDgJmZ0ZzAbFw2DJiZGc0JzMYCZmZG2wTMIPsEzCANAmaQBgEzSIMsxMylS2NtwSwfAshqYH528eBATkghI5AhwezGTFYDC7NmsxFNH0U1ZQRy6fBrC2YzZqoaGE1Gjj1A1Cs14+RAdWQE+rZSo8r9iuLw4/0qDTQu7efqGYG4GljKA8R/Bq/2kKE7wQEAAA8qSURBVBEISrR6RqDhPiVjGXuAeAY8ztqCjEAQafWMQMf7/Jh4gL6k8cA4OVD1GYEg+7RyRiCqBjY63L6SeIDYxkNJfX6/poxAkH2q/r7Z2MazujDSNDOaAVPnYxvP6gJmZkYzALMqBczMjAbMispcMlzaTwsxg+wTMIM0CJhBGgTMIA2qBrMyGYL6w3bjl6qw2LQtKN26jFy6NNYWzI0hQJkMQYEfFxbLswWlWpeRS4dfWzBnMCucIUi61FTFpylbEIxALu1nxb1ZkQxBvZBOlbRmni2Ihd7MzGhr681KZAiKmMOkN4smbUGp1kHWq8KTZtEMQSHDJY1A07agVOsg61XZSLNwhqDo4VnaiBxB0bQtSA5UgZkjwn0zSIMsxMylS2NtwdwYAtQkYGZmNGBWVOaS4dJ+ArPNCAbM5ghDAEcEzCANAmaQBhXHjE0+dJNV5vYhO88V5d9JZ/Nhbw8r9HZuxsagifpfw3GaoHFkaSry062DrFeJ3oznK+/EuX3IziN/Xz5RQU7NH5Figw9psv7XOE1QKnKUSjGEIYCZ0XQMARLMOLcPE8GLQrL/DHZPfSX6oxbPhoevU14gZfDhbXkT7sW63muXE2eQt32FcwIlmJFFEkYgd/ZzBcxkbp+I7Dy8aLAXNPq3O496AjH29rwjTodBSxp8VL0mlQ4oJHtQ4CdpgqLQ55xAErN2YsRFb2ZmNG29WZLbJ6LzpurNRhf7dKVF3MjejN0ayuBDa8pNup7XFGdUwkw6g8hAFLs1qDej7C6p1q26j3NlLhku7WcJzEYfdhgImduH7Tzq2kxgdqcnOjVfXZtRl9WKUmXB5CZ0wg1kbyadQWQg4pxAvNaQUwylWgdZrzI3NAa70rPDuX1+c3b8S5HQ83/XZtdPk709oceDUpnBka6/5CbHbVkoLHEGfex5L76tcgJtfyZTDHXGrYOsV633zcLpstIpBVOJkacEzBxRnZiN74jlabA7710pYOaILJwFcOnSWFsw+4YAGgXMzIwGzIrKXDJc2k9gthnBgNkcYQjgiIAZpEG1YiaLg3HxsOZgl2roeJyUfZwxaNLWEdEP1Ydv9Xi7VgTMnFG9vZlM8CMTbHC5sDs9NW+ZawyKsRscUAW7CJg5o9oxe9hR6YJGPz/0pzCbNAbJvEHnj2XJQxiB3NnPmjHjBD+qN7s0fLOTwSxjDOK8QUGjzy9JGGmaGc2wkabqzThd0OhSNDh3fRKzjDGI8waNLgKz6oO5jlk02JPpgqjCTrCjLEH5xiAuNXYPmNUQzGXMZIKfn3C6IPFcoHPtZjsZfE4ZgzhvkB967x7GhkkMARyRQffNcoxBwMwRmYNZnjEImDkiczDLEzBzRBZi5tKlsbZgLg8BVhYwMzMaMCsqc8lwaT+B2WYEA2ZzhCGAIyqG2VGH63kp/0RaaUfP6JBut4r15C866W8ryin/hYxAG6NCmAmWuJ7X4fTvLyccPcPzXPerM3i1Fw3f7HxHKTTyyn+VywgE2acCmLFNhwEY/Li904vrgFHWH+noGXIVMLHs5vk+r8c5CujP4HJu+a9yGYHwaN9jAczYpsMJgEQvRcnLqA7YPc76oxw9VJ5J8ML5f2i9Lp37Qkp00Mwt/4WMQNqC2TMEYJtOxInzDijJj6wDJrP+SEcPVwFLMvuw4yKKk7Xklf9CRiBtwezBjG06d31Z7et2R9UBk1l/pKOHq4B9ybhwoiAaF9D1WRRd7+eV/yqXEcilw68tmD2YsU2H63l1d262m6oOGGX9uTd29Hh+l8aSTVn3S440uzxynC7/9cJuqYxALh1+bcHswSxf87P+rCiMNB3RqpjNz/qzqoCZI8IsAKRBwAzSIAsxc+nSWFsw24cAtQqYmRkNmBWVuWS4tJ/AbDOCOYHZEf/wsnGsMmPE4ruzNJM0kpOf7AYawQi0eaoEMyoOth+NLn7RGGMmFigfEBU6GVzmhC084wQj0OapAsxkHp/90SUB2jF7gag2WOi11Mw5VUX5bV/mBVIlUWAE2rDHCjBjgxC7dzjLCiX1Eee8u3uJD0iQ9QlPmks30KpGIMg+VYAZG4RUbyYxI3DE+TH2AQ3f+t/Sm5HqzWAE0hvM/iEAG4SO98UzgRl7gT6WtcESH1CXLrUmrs1gBNIczH7MVJUv/kGJH2f2aQ7bLeUDUi6OLg0ju2qkCSOQ5mD2Y1ajgJmZ0TYBM8g+ATNIg4AZpEHADNIgCzFz6dJYWzAMAeYImJkZDZgVlblkuLSf68CMsgX916RSGLl+hhkHUfwamJkZzQrMOFtQXCmMXT9BYxKzAEYgt7QOzNhNFlcKY9fP6GKfPI5d8V/jWDwRr2EEculxLddmlC0orhTGrh+BFdUHY+8GPWHMIvRmzmhNQ4DAjyuFsetHYEX1waKjznV+Aswc01pOmmQuiyuFsetHYEX1waLBDy9zobC5mLl0aawt2AYOAShb0NdJpTBy/fwXaR4SC3psng3Vb06AmZnRrMBseQEzM6MBs6IylwyX9tNCzCD7BMwgDQJmkAYBM0iDLMTMpUtjbcEwBJgjYGZmNM2YURGw3Deo5slEbh+1iBR6O7+6TOXCSmYEcunwawtmNWaJMWy4P/3Wfiq3T+r9wTkq7sTlwsplBHLp8GsLZj1mXCcslH1T+NqrH//I+5HnU50TsYhdPlxDzCP7hej8Gv3bqiLi4HKEjECb8rgyZpQe76hzdy+63QnfOGwct5thc3AQNPpiUZzbJ/TFC7Eo8KOgdU12XlQuDBmBNkUV9GZUwGmwRyVzmlTDyaeaTpS0ZU/l9qF8P+KFWHTUiSgji9yUqjeVyggE2afqMCMDzxRm5PKR+X4Is4BynRFDnLvler9cRiDIPq0+0uQ6YeKins51VBas8ZHn7XxJzp7Xpcvn31NW2nYrpBS0NJQMycDYlYmDkBFIUzC7hwA1C5iZGQ2YFZW5ZLi0n8BsM4IBsznCEMARATNIg4AZpEHADNIgCzFz6dJYWzDLhwCyKJifXTw44Hu3XAOMjD+fjj0/VC1AuX8yhcLEs9bYLzRuXUYuHX5twezGTBYFCzMJfSJO9xPJGmDS+DP2/Dz6E3ovr1DYPi+dbl1GLh1+bcFsxkwVBeOcPodyRonrgnlNdgfJqjnS+BN7fqLoRhjXPMkWCmPMYmvRbCPQt5UaVe5XFIcf71dpoHFpP1fCbFwULGKPDxds4j+DV3v8jjgdSuNP4vkZfsWnxbxCYfwsaEhrEX8AhgCOaCXMVFEw8lywx4cJ46o5bNuQvZkkJvb80MQ5XcrlFQoTvdmhL+s+3QZmTmnV3oyLgtEje3yoLtiXNB6IMaMaYGz8iT0/VFmTvLF5hcL2o6gLzJzUSpjFRcFGh9tXyOPDdcEGu550B/3+oUwsS8af2POzfVYsoO4ut1CYJxaGns/WolTrIOtV/X2zR72IcpdVIow0zYxmwNR5oO6DVSFgZmY0AzCrUsDMzGjArKjMJcOl/TQcM8gR8ddpKma5Mnj4iabNFTCrRmjaXFmFGWSrgBmkQcAM0iBgBmmQLZgFXiv1YJRkm8Y5AQ2SbNqwvfajZglmbOlIHoxS3Kas/9cAqabd6U3439chSzBjg1ryYJTiNhmI2fhwrfsfpyWYsd02eTBKcZsMxGx8uK73F6xasyzBDL1ZGSWHK5z6AZpmWYIZrs3KKG5amJ/0XKMswYzstvSPs7v2MdO0kqZlf0y4fsmmBXm/p9UrWzCDrBYwgzQImEEaBMwgDQJmkAYBM0iDHMPs1tbWyV9/kFn49D988OQPeKF6mFDesmTh4+9/M2uVxZrerGQgbsm/XrzK9z4v1JpC+m8rbe0WZlef/Sa6dSJ7QK7KJVP4TbybqycvPfvNglUySj5kxqcttW2OJO9z9fS9Z+ZhtqJWo9QpzB7/Hh2KB2cyi0VvRg8z/j2qd2dE5G937iqTSj6kxL/+OZs8/dMlCHryco2YRU/+cCHos+UUZreeVUeCzp3iqP+PLbHgwdbWCTppiscz9E8y9d6Tl7ae+ZwZevre1nOiN/hftODJyz898Zd/8AG/+fj7f7b1HGN2dYuD04Zie35JK/7n7//11rN/v/XsP7z0zOei0+MPoQ1zPi3iLuGx2uCbOJJa46cn/lO8rVr9lngaf+yD5wh5taX88NSavMfxq9QbYq/E86vJZ4/bMV4n+bCtk3KPn4+PQrYRV7P/fAvIScxEH/T4+X8nyKGv9Xufi05OEPD/iJUTH6Tfu3VSACS7KuoJ/okX/Ow98bWLFfnNx8+fefreGfHkgVh2UuIYiYX08t+IFcVr8e08R1d/LxOw9CG8Yc6nRXT2/Vm8wc9UpHiNk1G87c/k6oKsqyfVx4rl0fijeGFqzYgxvErvqp1Sb9x6btxy+dlq9fE6ahm34oz4j07dMxpx62T5b8ZJzOiAiKPOXzx9QcwS4SRfJ+/RV3dGnRHFgfzFN7yAiIvfpJMmYyP+tQss1Inp1kl+Sc9lIIGieqK6xjN5nyYHI6kNOFK8RpRsK1fhziP+WFor2VIuHK8ZqZ4mtVPy6YPnUi1PPpv2drxOcpToCIgD+OSVWY0AZkry2uzxX9zigzIDs9R7D8Q/8Bizx9/7n38R8QL1lfPzMWbqjBHDob7WPMySqJlPi/Ixi9eIkm3T37D62EnMaGFqzWgCs9Qb3PfGIdKYpdZRR+k51WOe+fXMRgCzWDTSFJeqArfkAD4QV1/vPfM3CWbp966qM2KyLS9QXzk/F5iJUwd3DBH9O+cBlzyZPHkli9mTl+hzoiRq5tOiDGYyUrKGvAI8kxD7gHqW+GPp2izZkhem1qT3aeXUTqkQJ+WmHCLdjtQ68q9shVh5K3UUMo3AtVmiq3TNy938GfH8uVviqIlFW2fkE35Ivff3Wyf+5TM/VRfRj/+IjrJY8G95Jfnm37xHa8ut+XaBuEzeotsbV9W1tQgkHv6an534VzRSOMNBPp/+tG+oXc/+WbzBP6hIag2+sj+jGqAafuKDSH0sjTTTH0VjjPGavOMnPkjtlHzj/z5PwwsVQn62XD21sVrGrYgkS/mNwEhTo6q7aVAs0vxbrzP0T4LiXxSC4+l/nLV6gZs6OQJmxbQuzJaZBciKyHjyfqFNpu45JsIsgEaJi+pnVzh31BJpth7IS4ildZWHpHUImEEaBMwgDQJmkAYBM0iDgBmkQf8fKIsQ9GdoUZAAAAAASUVORK5CYII=" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrUnBabVpXWVhKelEyOXVVR1Z5YldsdGNGQjBkaTV6ZG1kY0lpd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUZ3NJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpYzNablhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJCYm01dmVVMXVSR2xtWmxaaGNuTkRiMjVRWlhKdGFXMXdVSFIyTG5OMloxd2lLVnh1WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY0lsQjBjMEZDWkVGdWJtOTVUVzVFYVdabVZtRnljME52YmxCbGNtMXBiWEJRZEhZdWNHUm1YQ0lzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDA0TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luQmtabHdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1FXNXViM2xOYmtScFptWldZWEp6UTI5dVVHVnliV2x0Y0ZCMGRpNXdaR1pjSWlsY2JuMWNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5EaWZmVmFyc0NvblBlcm1pbXBQdHYuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD04LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcFB0di5zdmdcXClcblxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uRGlmZlZhcnNDb25QZXJtaW1wUHR2LnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9OCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5EaWZmVmFyc0NvblBlcm1pbXBQdHYucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnDiffVarsConPermimpPtv.svg\, width=8, height=8, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnDiffVarsConPermimpPtv.svg\)
ggsave(filename=\PtsABdAnnoyMnDiffVarsConPermimpPtv.pdf\, width=8, height=8, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnDiffVarsConPermimpPtv.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtScFptWldZWEp6UTI5dVVHVnliV2x0Y0ZCMGRpNXpkbWRjWEN3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRnc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjM1puWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUkJibTV2ZVUxdVJHbG1abFpoY25ORGIyNVFaWEp0YVcxd1VIUjJMbk4yWjF4Y0tWeHVYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjWEZCMGMwRkNaRUZ1Ym05NVRXNUVhV1ptVm1GeWMwTnZibEJsY20xcGJYQlFkSFl1Y0dSbVhGd3NJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMDRMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhCa1pseGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprUVc1dWIzbE5ia1JwWm1aV1lYSnpRMjl1VUdWeWJXbHRjRkIwZGk1d1pHWmNYQ2xjYm4xY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uRGlmZlZhcnNDb25QZXJtaW1wUHR2LnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9OCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5EaWZmVmFyc0NvblBlcm1pbXBQdHYuc3ZnXFwpXG5cbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcFB0di5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTgsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uRGlmZlZhcnNDb25QZXJtaW1wUHR2LnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcFB0di5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTgsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uRGlmZlZhcnNDb25QZXJtaW1wUHR2LnN2Z1xcKVxuXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5EaWZmVmFyc0NvblBlcm1pbXBQdHYucGRmXFwsIHdpZHRoPTgsIGhlaWdodD04LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcFB0di5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnDiffVarsConPermimpPtv.svg\, width=8, height=8, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnDiffVarsConPermimpPtv.svg\)
ggsave(filename=\PtsABdAnnoyMnDiffVarsConPermimpPtv.pdf\, width=8, height=8, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnDiffVarsConPermimpPtv.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZCc2IzUWdiMjVzZVNCMllXeDFaWE1nZDJsMGFHbHVJREVsSUc5bUlIUm9aU0J0WVhocGJYVnRYRzV5WlhOMWJIUnpUM1YwUkdsbVpuTXVZMjl1YVcxd01YQmpJRHd0SUhKbGMzVnNkSE5QZFhSRWFXWm1jeTVqYjI1cGJYQWdmRDVjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQnliM2R1WVcxbGMxOTBiMTlqYjJ4MWJXNG9KMDFsZEhKcFl5Y3BJSHcrWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUdacGJIUmxjbDlwWmlocGN5NXVkVzFsY21sakxDQmhiR3hmZG1GeWN5Z3VJRDRnYldGNEtISmxjM1ZzZEhOUGRYUkVhV1ptY3k1amIyNXBiWEFwTHpFd01Da3BJSHcrWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJR052YkhWdGJsOTBiMTl5YjNkdVlXMWxjeWduVFdWMGNtbGpKeWxjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEVScFptWnpMbU52Ym1sdGNERndZeWtnS3lCblpXOXRYMk52YkNoaFpYTW9lRDFtWVdOMGIzSW9jbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRVJwWm1aekxtTnZibWx0Y0RGd1l5a3NJR3hsZG1Wc2N6MXliM2R1WVcxbGN5aHlaWE4xYkhSelQzVjBSR2xtWm5NdVkyOXVhVzF3TVhCaktTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzNFhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjSWxaaGNtbGhZbXhsWENJc0lIazlYQ0pEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxJQ2h0WldGdUlHTm9ZVzVuWlNCcGJpQmhibTV2ZVdGdVkyVXBYQ0lwSUNzZ2RHaGxiV1VvZEdWNGRDQTlJR1ZzWlcxbGJuUmZkR1Y0ZENobVlXMXBiSGtnUFNCY0luTmxjbWxtWENJcExDQndZVzVsYkM1bmNtbGtQV1ZzWlcxbGJuUmZiR2x1WlNoamIyeHZjaUE5SUhKbllpZ3lNelVzSURJek5Td2dNak0xTENBeE1EQXNJRzFoZUVOdmJHOXlWbUZzZFdVZ1BTQXlOVFVwTENCc2FXNWxkMmxrZEdnZ1BTQXdMakkxTENCc2FXNWxkSGx3WlNBOUlESXBLU0FySUdOdmIzSmtYMlpzYVhBb0tWeHVjRUpoY2x4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbiMgUGxvdCBvbmx5IHZhbHVlcyB3aXRoaW4gMSUgb2YgdGhlIG1heGltdW1cbnJlc3VsdHNPdXREaWZmcy5jb25pbXAxcGMgPC0gcmVzdWx0c091dERpZmZzLmNvbmltcCB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJvd25hbWVzX3RvX2NvbHVtbignTWV0cmljJykgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyX2lmKGlzLm51bWVyaWMsIGFsbF92YXJzKC4gPiBtYXgocmVzdWx0c091dERpZmZzLmNvbmltcCkvMTAwKSkgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uX3RvX3Jvd25hbWVzKCdNZXRyaWMnKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXREaWZmcy5jb25pbXAxcGMpKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzhdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Plot only values within 1% of the maximum
resultsOutDiffs.conimp1pc <- resultsOutDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > max(resultsOutDiffs.conimp)/100)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutDiffs.conimp1pc) + geom_col(aes(x=factor(rownames(resultsOutDiffs.conimp1pc), levels=rownames(resultsOutDiffs.conimp1pc)), y=CondPermImp), fill=mycolours[8], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkJzYjNRZ2IyNXNlU0IyWVd4MVpYTWdkMmwwYUdsdUlERWxJRzltSUhSb1pTQnRZWGhwYlhWdFhHNXlaWE4xYkhSelQzVjBSR2xtWm5NdVkyOXVhVzF3TVhCaklEd3RJSEpsYzNWc2RITlBkWFJFYVdabWN5NWpiMjVwYlhBZ2ZENWNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCeWIzZHVZVzFsYzE5MGIxOWpiMngxYlc0b0owMWxkSEpwWXljcElIdytYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJR1pwYkhSbGNsOXBaaWhwY3k1dWRXMWxjbWxqTENCaGJHeGZkbUZ5Y3lndUlENGdiV0Y0S0hKbGMzVnNkSE5QZFhSRWFXWm1jeTVqYjI1cGJYQXBMekV3TUNrcElIdytYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lHTnZiSFZ0Ymw5MGIxOXliM2R1WVcxbGN5Z25UV1YwY21sakp5bGNibHh1Y0VKaGNpQThMU0JuWjNCc2IzUW9jbVZ6ZFd4MGMwOTFkRVJwWm1aekxtTnZibWx0Y0RGd1l5a2dLeUJuWlc5dFgyTnZiQ2hoWlhNb2VEMW1ZV04wYjNJb2NtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRFUnBabVp6TG1OdmJtbHRjREZ3WXlrc0lHeGxkbVZzY3oxeWIzZHVZVzFsY3loeVpYTjFiSFJ6VDNWMFJHbG1abk11WTI5dWFXMXdNWEJqS1Nrc0lIazlRMjl1WkZCbGNtMUpiWEFwTENCbWFXeHNQVzE1WTI5c2IzVnljMXM0WFN3Z2QybGtkR2c5TUM0MUtTQXJJR3hoWW5Nb2VEMWNYRlpoY21saFlteGxYRndzSUhrOVhGeERiMjVrYVhScGIyNWhiQ0IyWVhKcFlXSnNaU0J3WlhKdGRYUmhkR2x2YmlCcGJYQnZjblJoYm1ObElDaHRaV0Z1SUdOb1lXNW5aU0JwYmlCaGJtNXZlV0Z1WTJVcFhGd3BJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjWEhObGNtbG1YRndwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJJR052YjNKa1gyWnNhWEFvS1Z4dWNFSmhjbHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSB2YWx1ZXMgd2l0aGluIDElIG9mIHRoZSBtYXhpbXVtXG5yZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjIDwtIHJlc3VsdHNPdXREaWZmcy5jb25pbXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlcl9pZihpcy5udW1lcmljLCBhbGxfdmFycyguID4gbWF4KHJlc3VsdHNPdXREaWZmcy5jb25pbXApLzEwMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbl90b19yb3duYW1lcygnTWV0cmljJylcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dERpZmZzLmNvbmltcDFwYykgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcDFwYyksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s4XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSB2YWx1ZXMgd2l0aGluIDElIG9mIHRoZSBtYXhpbXVtXG5yZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjIDwtIHJlc3VsdHNPdXREaWZmcy5jb25pbXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlcl9pZihpcy5udW1lcmljLCBhbGxfdmFycyguID4gbWF4KHJlc3VsdHNPdXREaWZmcy5jb25pbXApLzEwMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbl90b19yb3duYW1lcygnTWV0cmljJylcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dERpZmZzLmNvbmltcDFwYykgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcDFwYyksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s4XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGAifQ== -->
```r
```r
# Plot only values within 1% of the maximum
resultsOutDiffs.conimp1pc <- resultsOutDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > max(resultsOutDiffs.conimp)/100)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutDiffs.conimp1pc) + geom_col(aes(x=factor(rownames(resultsOutDiffs.conimp1pc), levels=rownames(resultsOutDiffs.conimp1pc)), y=CondPermImp), fill=mycolours[8], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqbzRMQ0p6YVhwbFgySmxhR0YyYVc5eUlqb3hMQ0pqYjI1a2FYUnBiMjV6SWpwYlhYMD0gLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjo4LCJzaXplX2JlaGF2aW9yIjoxLCJjb25kaXRpb25zIjpbXX0= -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFFekNBTUFBQUNzV1Q5aEFBQUJzMUJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qc2hROWVsbUFBQm1BRHBtQUdabU9wQm1aZ0JtWnJabWtOdG10dHRtdHY5dVRVMXVUVzV1YmsxdWJtNXVicXR1am81dWpzaHVxNnR1cThodXErU09UVTJPVFc2T1RZNk9iazJPYm82T2JxdU9qazJPam82T2pzaU9xNnVPcThpT3ErU095TWlPeU9TT3lQK1FPZ0NRT2pxUU9tYVFaZ0NRWnBDUWtEcVFrR2FRa0xhUWtOdVF0cENRdHYrUTI3YVEyOXVRMi8rcmJrMnJibTZyYm82cmprMnJqbzZyanF1cnEyNnJxNnVycThpcnErU3J5TWlyeVArcjVNaXI1T1NyNVArMlpnQzJaanEyWm1hMmtEcTJrSkMydG1hMjI1QzIvN2EyLzl1Mi8vL0lqazNJam03SWpvN0lxMjdJcTQ3SXE2dkl5TWpJeU9USXlQL0k1S3ZJNVAvSS84akkvK1RJLy8vYmtEcmJrR2Jia0pEYnRtYmIyNURiMjdiYi83YmIvLy9rcTI3a3E0N2txNnZreUk3a3lLdmt5TWprNU1qay84amsvK1RrLy8veTh2TDM5L2YvdG1iL3RwRC95STcveUt2L3lNai8yNUQvNUt2LzVNai81T1QvLzdiLy84ai8vOXYvLytULy8vOExVM0pUQUFBQUNYQklXWE1BQUF1d0FBQUxzQUVhT0JCeUFBQVdaa2xFUVZSNG5PMmRqWC9ieG5uSDZaZGwyYklKa3Mxd3JqdDNValBQSFpXNGJ0eDRwdGN1cTlmRml0UEVUdHBRVzdPdGxyWGF6ZXBRV2JlYWRwcmFuRlU0WWl1Szl5ZnZ1ZWNPSUVDQ2I4RHg4UER4OC8wa0JnZ2NIanpFL1hTNEE1NkhWMUdDc0hBcVpUc2d2QWlJekFRUGlNd0VENGpNQkEvUWtOa2ZDV3pCQ2lZaXM3SWRFQmFGeUV6d2dNaE04SURJVFBBQWZaazljM3dXMS9iRXdSa1FtWkV6eU5GQitqTDdDMkdabUZTMUlqUEJFWk9xVm1RbU9HSlMxVHFSV1c4enFIYjBTdmViVGRYZkNvSmc5U2ZKVGJBL2dJOWhzTlpTN2FDdU45OXQ5dDVvWWRHNnlJd0hDNWVaNmwxQ1NhbXZ2bE0zSDU0MzA1c3VxLzc3bmZ0YWRSZEFZVVo4OE8rVjdwV0VMeUt6cGNhZnpPNkgwSVRCaCtmTm9VMlgrN2VoVFlPMWRrT0ZkV2pGVmtHSFR6YXhNZE12dnA0OXcwSE1zOVN5N09zbXpNVkkvZUZ5QVRMcmZRcDNRbjJMWEcyT2JLcXBQM1JBY1krYTBJYTE2OUNrdGVFdVdnL3hEaXF0R1FleXBiRUFtWVhRT2pYU3JabmRwRnN6NEZFVFd6TzRiVDVxd2wxVVpNWUpQektEYnRhWEhSWFd6SWNMNlUyWHNWai9aZ3Y3WnRDYXRhdFBSV2E4V0xqTWNDUzUrdkVXdEZzN3dlbUw4Q0g0dStTbVV4dDZQTm5XOTFMNFZNZnlqVEM0dW9WTm5jaU1Cd3VYV1dIazFUbGJSR2FDQjBSbWdnZEVab0lINk11TVFCaUxYNE1jSFJTWmtUUEkwVUdSR1RtREhCMFVtWkV6eU5GQitqSVRHQ0F5RXp4QVgyWmx2ejBSWm1WcTFZck1oT0pNclZxUm1WQ2NxVlU3bTh4TWZIOHphNWVON1ZjNnRHeXRCWXU3UDhHZ1dEaWtabmYwTnZXaC9TM2NyYUxVQVF6cmFJak1PT0JJWmlhR0RPUDNvOWd4dTJwait6WDM4VjhvcFNQL2I3YWlLRzM0MUhzWEZQZjdiN2VTMW5CSGFOSlNSR1pMamt1WnFiQ3UyNlV3d0FVMFJuVll4V2pZOEZ1YmF5ME05VGRSL3BITXV0K0Y3YnI4clRkYTZzc2Z0ZG82QXEzNlhuMGdNOTNnU1M3QTBwT1JBNUFyRndDRjBiM3dxQm5XdjdpZzlBTDBwWEJWZGQrQzIyRzdqcUgrR09VZkpRTThoZTEzbTFDbzkrRk9vLytMWFdqTndrYnYwa2RSYTdZWjMxYWxOVnR1SmlnblQydTJFd1ExdUUzcWhSWU5ySnJXcks1WGRhZy9Sdm5yMW15cm9WdXpLL0NwcTJYV1BmL2JYKzVDZ3hmbzR2Rk5zM3UrSXpMamdFdVpRYS9yc2RHV1h1aldERmF4YndiS2dXWk0zeWt4eXY4SjlONTIwakxydi90V1o3ZTEyd29iM1F0M215WlBBTlRZcm92TU9PQkladEZJVTkvbmVwdDFzOEJWak8wUGRVNTUyeFl3YVFEVnB6RFMzRmw3c0FtRnZnV05HTnhsZzdVUGd1RDB4YXRicHpac1hqb01SODN3VldTMjNEaVMyUlRDK3ZReUU1Rlg1d3V4UjhGQmR6SWJQQkhMaThoc0lmWW9PRWovTFFDQmkrVFhJRWNIUldia0RISjBrTDdNQkFhSXpBUVBpTXdFRDRqTUJBL1FseG1CRHF4Zmd4d2RGSm1STThqUlFmb3lLL3NWQ2lseVhWZVJXUXFSMlZSeVhWZVJXUXFSMlZRODE0Z3pYT2NDUkc4MkpSZGdJY3hVVHdSeG5ndlF2NmxsSkxrQWkyR3V1aVdFNjF3QWxKbmtBaXlLY2JIMjFKZXVjd0ZRWnBJTHNDaG1xNmNobG0wSU1Fc3VnSmFaNUFJc2l2a3JXQzJuektibEF0aldUSElCRnNMOEZheVdUbWF6NUFMQVdyVWp1UUNMWXY0S1Zrc25zeWtzS0JkQVlBRDlYQUNCQWZUZkFnZ01FSmtKSHFBdk13SWRXTDhHT1Rvb01pTm5rS09ESWpOeUJqazZLRElqWjVDamcvUmxKakJBWkNaNGdMN015bjYvVXlxZWEyQmhpTXhJNDdrR0ZvYklqRFJPcml1WElZQUozY0RvLzFwM285cFI3U0FJYktTL0NjRFdvZDBZOWwvdDRNUUJObmZnYnJQM1JndVByaXVSV1FiRjZzWENSV1lZaVBhODJiOEprbW4wdDBBeWoyMFNRSlFLOE5WMzZoaVAzWCsvb3ljT3NMa0RKcStnZTZWN0plSExNR1hYZEtrVXJCY0RKNWs5YjlxSXh2NnRyY2FJek83cnRKTGU1ZjV0aFJNSFlMU3R5Umk0OUFSVG9DUVhJQk1uc2ZqLzV6aTJQNGM5UnpMRHVIL2JtdDN1dmQ0Y2tsbnZVN2c1bXJCL25EaEE1dzVjd1l5Qk50eEY2elpTVFZxekVRcldDeG1jdG1iUXlhb3BhTEc2NSsrbFpSWmlNaWEyWmtwUEhJQ3RHV1lNd0YxVVpEYWVndlZDQm5kOXMrNEZrNktwcGRSZWE5bElmL3hYZmRuUldYSTJ0eE9LWWQ4TU13YWVpc3dtVWJCZXlPQnVwS21qLzljd1J4TkVzL3RnTXg1OHJuNjhCVTNaVG5CcVErL0JpUU13ZDBDUFBCdGhjSFVyeWpzWG1ZMVFyRjdvUVArNUdZRnhrbCtESEIwVW1aRXp5TkZCa1JrNWd4d2RGSm1STThqUlFmb3lFeGdnTWhNOElESVRQQ0F5RXp4QVgyWUVPckIrRFhKMFVHUkd6aUJIQituTHJPejNQVm1rSENSUWkzNE5pc3c4a1hLUVFDMzZOU2d5ODRUbkM3UDhPSlJaS3ZBL1RnOFl5UVhZMFQ5cHZPUzVBQzR1MXd1Rnk5WXNIZmlQNlFHanVRQmZOTlJPWTlsekFaeGNyaGVKUmNqTUJQNWpRTzFvTG9DSnoxN3lYSURTZjJkLzJaWUxrRmtjK0wvYXpNZ0ZhTmRCWnN1ZUM1QnlrRUFQMjYvQmtvY0E2Y0QvWkd1V3lBVkErUzE3TGtES1FRSzE2TmNnQVprTkF2OHhQU0FyRnlDYTQybUpjd0ZTRGhLb1JiOEd5NVZaTHhuNGYvcWlUUThZelFYUVA3aTk1TGtBS1FjSjFLSmZneXlmbXdrTUVKa0pIaENaQ1I0UW1Ra2VvQzh6QWgxWXZ3WTVPaWd5STJlUW80TWlNM0lHT1Rvb01pTm5rS09EOUdVbU1FQmtKbmlBdnN3Vzg0Wkk4SXJJVFBEQWl5Y3pqajFzdndZcERBR21aUVNrOEpvTFlPMXhyRVcvQmluSWJHcEdRQUsvdVFEV0hzZGE5R3VRbE16R1pnUnNyamJWVHZBM1AvYWRDMkR0UFhNZDYvNk11RDJTOHdMc1YxWU9YbHJKa00rc1RNc0llTlRFY05sMnczY3VRSUh2SkJSa1dHYUg1dzZ2cThPemQvSmJuSllSc0JNRXRidE5rSm52WElEOFgwa295ckRNam40QU10cy84VEMveFdrWkFZOWJTcWMzWVd2bU5SY2cvMWNTaXBKeDA2eFVqaGRwektaa0JGU2hMMWJETkFEZnVRRDV2NU5RbE93aHdIOFgwTm1NdEJ0amZCbUd3RGpKcjBHT0RxWmtkbmltWWlqU25NMUdkME1uT0dYNU1neUJpK1RYSUVjSDA2M1pKN1pQNXFFMUcrdkxNQVF1a2wrREhCMmsvN0tKd0VYeWE1Q2pneU15MHpmT2s0Nzh5ZVdMd0pDUkJ4clhWbUMwV2VUeGJGRmZCSWFNUEo3OXV1NmVVZXFiQ1F3WXVXbCtmZ1ArK1ZlUm1lQ1M3QWNhbEc2YUJEcXdmZzF5ZEREemdjYkJOeHc1bE1lWFlRaGNKTDhHT1RvNGN0UGM5dk40ZHJ3dnc3aCt2OFN4RnYwYWRDQ3p3M05IUDFDSDExMTVsTU9YWVVSbTFBeTZrTmwxdGI5KzlEM0dyWmxRQWlNM3piM2pkN2JuZlQ0Ymgvd0hRYTI3VWUyb2RvQlRBS1FUQTBxWUZ5REhCUkVXZ1pzSURSUHkzNzhKa21uMHQwQXlqMXNtbExIa2VRSG0reGJDd2tnLzBEaDd4enpUbUhjSVlJSmtRV2FxWGUvZjJtcU15S3lrZVFGSy96MThXYXJzWElCUDhyd0ZNQ0gvdGpXNzNYdTlPU1N6c3VZRnlMTEhzWWZ0MTZDTElVQ3VOQURibWtFbnE2YWd4ZXFldjVlV1dWbnpBbVRaNDFpTGZnMjZlRzZHNzVueTlNMjZGL1JOVTJtWnFmWmF5OFQvbHp3dlFKWTlqclhvMTZDTDFpeFAzd3pIaWpya2Y2MmwxMEUwdXc4MjQ4Rm5pZk1DWk5ualdJdCtEYnBvelhMMXpkd2dyODdaa3ZsQWc5UTdUWUVCOU45cENneWcvMDVUWUFEOWQ1b0VPckIrRFhKMDBNazdUVWVJekJaaWo0S0Rra0JIemlCSEIwVm01QXh5ZEREOTZ2eWNRMmZtUjRZQWJCbE9PU25uVVViU0Y0RWhhWmxkeDVkTjVlUTFPWHpaNU5sdllTcFpmYk05VW85blJXWU1HRzdOMU5HMXNsNENlSklaeHg2Mlg0T0Zod0E2UEdOOVhoTzlyQnlBMWFZTjNDZ2pGMkNpdXh4cjBhL0J3akxMOTlQR1dUa0E3NEtXZnYvdFZqbTVBQk85NVZpTGZnMlc5TndzS3dmZzFoc3Q5ZVdQV3VYa0FreU1UWmQ1QVVxdzUwaG1JemtBSCs0MCtyL1liWldUQzFEbzJ3Z0x3SW5NTW5JQVB1eWUvKzB2WTVsNXpnVW85RzJFQmVEcXBqbWNBL0JoLzkyM09ydXRjbklCQ24wYllRRTRrRmt2TXdlZ0VkWngzRmxHTGtDUmJ5TXNBbmwxVHM0Z1J3ZEZadVFNY25SUVpFYk9JRWNIUldia0RISjBrTDdNQkFhSXpBUVBpTXdFRDRqTUJBL1FseG1CRHF4Zmd4d2RGSm1STThqUlFmb3ljLzE2aVdNdCtqVW9NcHNCanJYbzE2RElUS0NKeUV6d1FER1pwYWFYZ0UvVm56Zkg3N2NwSjZHT0JIS2RjcExUZjhFVEJWdXpWRXBKdTJGeVNNYnR4NVNUem4zNDZEemxKSy8vZ2g4Y3lReFRTdlQvcXYxbThHYlFhT3RneHVwNzlkR1VFMmp5T3NwNXlza2NLUkNTY3JKOEtTZXBsQklWQnZYZVppMnM2ZFlwYlBRdWZaUXgvY1FmT3FBNDV5a25jN2pNY1NEbjE2RC9rV1lxcFVUcCsyYllDT3ZkSzZBbzNXQmxURDhCUEhLZmNqS0h5eHhyMGEvQmNtUVdwNVNFV2p4R1pydXRzTkc5QUQzOGpKU1QvczJXODVTVE9Wem1XSXQrRFhxWFdTODV2VVQxTjY4RmE1OUJqeXdJMWo0SWd0TVhyMjZkMnNoSU9kRy9lK0E2NVNTbi80SW42RDgzRXhnZ01oTThJRElUUEVCZlpnUTZzSDROY25SUVpFYk9JRWNIUldia0RISjBVR1JHemlCSEIrbkxUR0NBeUV6d2dNaE04QUI5bWNsN0pnYThlRExqMk1QMmE1RGxFRUJrUnMxZ09US2JjL29KMTdrQTg3ckxzUmI5R2l5cE5adHIrZ25udVFEemVzdXhGdjBhTEU5bXMwOC80VHdYd0YyTXV5d1h0dlErL1lUelhJQkNyZ3QrOEQ3OWhIS2RDMURJZGNFUEpVdy80VGdYb0pEcmdoOUttSDdDY1M3QXZPNXk3R0g3TmNqeXVSbUJpK1RYSUVjSFJXYmtESEowVUdSR3ppQkhCK25MVEdDQXlFendnTWhNOElESVRQQUFmWmtSNk1ENk5jalJRWkVaT1lNY0hSU1prVFBJMFVINk1uUDlHcE5qTGZvMUtESVRhQ0l5RXp3d1JXWjNtenM2MEQvK0hQL1F2N3I3c1k2c1dHMnFNRmo3cjQ5czdQOWFheEQxWHhzeWxmNHg5NTZKbWNWZlJrNzdNb3pJakFHVFpkYjk1c2Z2UDduMDlQWmdTeFIxRGFMUnE4K2IzZk9kM21ZOWl2MjNVZjhtbmpadEMzY2tERjIyY1dyRHZnd2pNbVBBSkpsaHNENEtDOWFxbmU1M045ZHNPS3dONCs4ODF3R3d1bWdVKzIrai9tMTJBQnoxWkxQNm4wRzlEYzBjN3RoWmJlNVVkZlIvemNnTWJLQlpOVmN1UUtIWWRKa1hvQVI3azJTR3dmb29zM1pEdGY4V2Jvbm1wN0h0SHJqdmdRcDNzVVdLWXY5dDFMOXB6ZlJST2pKMnQ5WDdORW9IME5JTUIwZTNxMC9STEo1UFJwb0xzVWZCd1VreXcyQjlsQm1zZFM5MHI4QkhJelBjWTFvekk1RW85dDlHL1p2c0FEeXFmL1BCdlN1UG94Mnc3VjVILytwMlI3ZG1XNDMrK3gwMG0vQmxHSkVaTllPT1pZYkIraDFzeldwSy85cS9sUmttSmJXclQvVHFCZWlid2I0bzl0OUcvWnRlRng2bDJ1Yy8weG1jWm9mcS92V1A5ZndCMkRkVE95SXpEL1lvT0RoSlpoaXNqMkg3MkRmYldYdXcrU3FHK3VzN25vbmgxM09aNkk2V2pmMWZmUzJLK3RmZExUd0tHanIxV0dlVzQ5UUJIWDJUN1c0RXdhdFJDbnBEbTYwbGZCbEdoZ0FNS09PNTJWY3RaVExwTW4wUkdGS0d6TnI0dkcyY0x3SkQ2TDhGRUJoQVgyWUVPckIrRFhKMFVHUkd6aUJIQjBWbTVBeHlkRkJrUnM0Z1J3ZnB5MHhnZ01oTThJRElUUEFBZlpuSml5WUd2SGd5NDlqRDltdVE1UkJBWkViTm9IZVp4YWtCR09qZjI2eit2RGwrdjUwWFlFZG5DZVNmRnlDbnB3TTQxcUpmZy81YnM5VHYvcmNiNmJTUzRmMDRMOEFYRGJYVEtEQXZRRjVQWXpqV29sK0Q1Y2tNQS8zMS82cjladkJtMEdqclg1eXR2bGNmblJmQS9GWjcvbmtCUnZiTGNnbVdibVJtQXYxVkdOUjdtN1d3cGx1bnNORzc5SkVhblJlZ1hRZVpGWmdYSUsrblFwbTRrVmtZL1JoMnV4RTJkRGkzRHFmVkVkcWo4d0pncWttQmVRSHllaXFVaVFPWnhiLzdIMnJ4R0pudHRrTG9nTjF0WnMwTEFJc0M4d0xrOVZRb2s4SWp6Y0h2L2xkLzgxcXc5aG4weUlKZzdZTWdPSDN4NnRhcGpZeDVBWFNhUVA1NUFYSjZPb0JqRDl1dlFaYlB6UWhjSkw4R09Ub29NaU5ua0tPRElqTnlCams2U0Y5bUFnTkVab0lIUkdhQ0IwUm1nZ2ZveTR4QUI5YXZRWTRPaXN6SUdlVG9vTWlNbkVHT0R0S1htZXMzbVJ4cjBhOUJrWmxBRTVHWjRBRUhFUnExN2thMW8zKzBMTURBZnoyUndLdDJuZ0M3cVhndVFFNy9CQ0lVYk0zTVQyYjM5WS9MUGpZLzV0N0hpUVNpZVFKYzVRTGs5VStnUVhHWjZRa0FibTAxSXBtWlVNZG9uZ0JYdVFBT1k5TmxYb0FTN0xscHpXNzNYbSttWldibkNYQ1ZDNURYdnd3NER1VDhHdlEvMGpRVEFFQWoxVDEvTHkwek0wK0FxMXlBdlA1bHdMRVcvUm9zUVdZNEFZRCtYZXkybVdnSHVsbEdabWFlQUZlNUFIbjl5NEJqTGZvMTZGMW0wRFN0dFhTVEJqclpmV0RtRE5CeC90RThBWWlMWElDYy9nbEVvUC9jVEdDQXlFendnTWhNOEFCOW1SSG93UG8xeU5GQmtSazVneHdkRkptUk04alJRWkVaT1lNY0hTUWxNNEV0V01FMFpKWU4rZkduT0RncklyTUNpSU96UWxsbUFodEVab0lIUkdhQ0IwUm1nZ2VJeXN3bXB0Z0ZRWXhuL1MwZDIwUVM0MkJ2azhZVnBDbXpLREhGTEFnU2VXYUNPd2xpSFh6Y3d0L1RMeDJhTXNOUTduaEJrTWd6c2pJYlhEb1NmNmcwWllhSktmR0NJSkZuWkdVMnVIVDNPaVc3b3FFcE0ybk5paEpmdXJCUnRpc2FtaktUdmxsUklnZkRXdG1lSURSbGhva3A3UVl1YUJJN1dLVndUOHJBT05pT2tucEtocWpNQkY2SXpBUVBpTXdFRDRqTUJBK0l6QVFQaU13RUQvQ1EyVjZsc3ZMNWphR05SMzkvNC9CcnVORXVVbVJ0aXpjZXZQSndYSkhwakI2VzB4QjY4bWZUaTd4OFp5NXY1dUpmQ2gwZHcwSm0yeWNlcXIxand4ZGsyMndaa1Y5cWJ5YUhaMDQ4bkZKa2lQZ2tZODQyMDdFWkdMMVA1T2phOFVreUswaEJsVVp3a05uQkgrdExzYjgrdEJsYU03MFk4L2RvOTQ2eGlMVTdzVWlhK0NRNS92b25ISEwwdlJrVWRIaDJnVEpUaDErZkt2UVo0Q0N6dlJQMlN1aDdKMXoxZjZ2QWh2MUs1WmkrYWNKeVhmOUpKdllkbnFrY3Y0TWFPcnBXT1FtdHdYL29EWWRuM3o3MnoxKzdnVHNQWHZsKzVTVEtiTHVDeHZXQmNEeCsxQVgvNlpXZlZrNzhxbkxpMTJlTzM0RkdEMCtpRDh3NG04SW00Y0FlOERDeVpFdThmZXdmbzJOdDhUMVlqVTY3ZjFKTDNoNXBUcDRvaWQ4NCtwVFlBZDhLMXJmamN3LzhHSlNKVDFaWk1kLzRwZWdxRER1eFBmem5td2RPTW9NMjZPQ2x2d0xsNkdwOStRNDBjcUNBLzlWYU9YWWp1Vzl2QlFSa21pcmRFdndPTjd4ekRhb2RDdUxPZzVmV2o2NnR3OG8rYkZzeGNsU3dVWC84Y3lnSW42RjJUdXJlMzFrdFdIMFNQRERqYkVyZmZkK0pEbmpIV29wS3JLam8ySGRNY1ZEVzlvbzlMV3hYZzFQaHhrUkpoVExjMW52dGw3STc5azRPUERmbnRzVUhaZXcyOUdJZC90TzM3akZPN0swNHFDSk9NdE1YQks0NlZyeXVJTlNTbHBQNUhPL1RWYmR1NzRod0lUOTVpQnUwNHFLZCtxYUpzb0cvZHBDRnZUSHRyZUJIdlc0TWdSVHRpbTBhMTdQT1pnWWppUVBRVWxSQ3hjZWFJdGg0UktmVnBlSWp6Y1pCU1dWYm1zU1hNcXY3SnhPZXgrZlczM1pRSnI1SytnckFCVHc4Tjg0SmtabkY5TTBPZnJpSEYyV016Qkw3OXVFUFBKTFp3Y3YvL2tPRkcyeVY0L3BBWnZhT0VZbkRWbXVXekdLclEyZFQyVEtMU3FqNDJHUU4yOU9tWmFZM0prcXFsTXdTTzdEdGpVd2taWllvWTYvU1NkdGlybjgrMWdtUldZUWVhVUpYRmVRV1g4Qjk2SDFkTy82eldHYkpmZHYyamhnZml4dHNsZU02eUF4dUhkZ3dLUDEzamdNdWN6TTVQRGNzczhNeitqd3F0anAwTmpVa00yTXBMbUY2Z091eFl2ZDF5eEtkVnZmTjRpTnhZNktrM3E4TEo3NlVOYkZpRGtVVFNUOFNaY3kveGdzb1hFbGNoU0VucEc4V3M2Mzd2TmpNcjhQNnlUMjRhckNwc201V2NKSFk5NnZLc1Q4NS9yYnRSQjk4UTE5bDJQQ1hXTWpzL05rMVhkb2NqWThMb0p0YzBZODN0bTNmR2d6QjRxZTRkdXhQOVVoaEhZM2NHVDNiUSszWGllOUhCL3phV3JJbHNHZS9iaDJ3amgrN29leHA5VWd6ZVNvOXhoaVV4QzkrN0ViaVM1a2QvL09TSGw1WUUrYmNwbmppWUxzTnZWQkdTOWxPeUVqVEkrNGVHc3huYWZLajF6SDhEbFQ4eVZ6aU9QcUhjY1huZUtnekNaSFpUSlFsczFuZUFneWpsWEY0ZmE1RFJwNDV4c2hiQUk5QXAvcUVpM3VIUzB2ajJUZGRpSm5aeGlIcFFoR1pDUjRRbVFrZUVKa0pIaENaQ1I0UW1Ra2UrSDkwNFRma1JMT0NnQUFBQUFCSlJVNUVya0pnZ2c9PVwiIC8+XG5cbjwhLS0gcm5iLXBsb3QtZW5kIC0tPlxuIn0= -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAEzCAMAAACsWT9hAAABs1BMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjshQ9elmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Mjk/8jk/+Tk///y8vL39/f/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///8LU3JTAAAACXBIWXMAAAuwAAALsAEaOBByAAAWZklEQVR4nO2djX/bxnnH6Zdl2bIJks1wrjt3UjPPHZW4btx4ptcuq9fFitPETtpQW7OtlrXazepQWbeadpranFU4YiuK9yfvuecOIECCb8Dx8PDx8/0kBggcHjzE/XS4A56HV1GCsHAqZTsgvAiIzAQPiMwED4jMBA/QkNkfCWzBCiYis7IdEBaFyEzwgMhM8IDITPAAfZk9c3wW1/bEwRkQmZEzyNFB+jL7C2GZmFS1IjPBEZOqVmQmOGJS1TqRWW8zqHb0SvebTdXfCoJg9SfJTbA/gI9hsNZS7aCuN99t9t5oYdG6yIwHC5eZ6l1CSamvvlM3H54305suq/77nftadRdAYUZ88O+V7pWELyKzpcafzO6H0ITBh+fNoU2X+7ehTYO1dkOFdWjFVkGHTzaxMdMvvp49w0HMs9Sy7OsmzMVI/eFyATLrfQp3Qn2LXG2ObKqpP3RAcY+a0Ia169CkteEuWg/xDiqtGQeypbEAmYXQOjXSrZndpFsz4FETWzO4bT5qwl1UZMYJPzKDbtaXHRXWzIcL6U2XsVj/Zgv7ZtCatatPRWa8WLjMcCS5+vEWtFs7wemL8CH4u+SmUxt6PNnW91L4VMfyjTC4uoVNnciMBwuXWWHk1TlbRGaCB0RmggdEZoIH6MuMQBiLX4McHRSZkTPI0UGRGTmDHB0UmZEzyNFB+jITGCAyEzxAX2Zlvz0RZmVq1YrMhOJMrVqRmVCcqVU7m8xMfH8za5eN7Vc6tGytBYu7P8GgWDikZnf0NvWh/S3craLUAQzraIjMOOBIZiaGDOP3o9gxu2pj+zX38V8opSP/b7aiKG341HsXFPf7b7eS1nBHaNJSRGZLjkuZqbCu26UwwAU0RnVYxWjY8Fubay0M9TdR/pHMut+F7br8rTda6ssftdo6Aq36Xn0gM93gSS7A0pORA5ArFwCF0b3wqBnWv7ig9AL0pXBVdd+C22G7jqH+GOUfJQM8he13m1Co9+FOo/+LXWjNwkbv0kdRa7YZ31alNVtuJignT2u2EwQ1uE3qhRYNrJrWrK5Xdag/Rvnr1myroVuzK/Cpq2XWPf/bX+5Cgxfo4vFNs3u+IzLjgEuZQa/rsdGWXujWDFaxbwbKgWZM3ykxyv8J9N520jLrv/tWZ7e12wob3Qt3myZPANTYrovMOOBIZtFIU9/nept1s8BVjO0PdU552xYwaQDVpzDS3Fl7sAmFvgWNGNxlg7UPguD0xatbpzZsXjoMR83wVWS23DiS2RTC+vQyE5FX5wuxR8FBdzIbPBHLi8hsIfYoOEj/LQCBi+TXIEcHRWbkDHJ0kL7MBAaIzAQPiMwED4jMBA/QlxmBDqxfgxwdFJmRM8jRQfoyK/sVCilyXVeRWQqR2VRyXVeRWQqR2VQ814gzXOcCRG82JRdgIcxUTwRxngvQv6llJLkAi2GuuiWE61wAlJnkAiyKcbH21JeucwFQZpILsChmq6chlm0IMEsugJaZ5AIsivkrWC2nzKblAtjWTHIBFsL8FayWTmaz5ALAWrUjuQCLYv4KVksnsyksKBdAYAD9XACBAfTfAggMEJkJHqAvMwIdWL8GOTooMiNnkKODIjNyBjk6KDIjZ5Cjg/RlJjBAZCZ4gL7Myn6/Uyqea2BhiMxI47kGFobIjDROriuXIYAJ3cDo/1p3o9pR7SAIbKS/CcDWod0Y9l/t4MQBNnfgbrP3RguPriuRWQbF6sXCRWYYiPa82b8Jkmn0t0Ayj20SQJQK8NV36hiP3X+/oycOsLkDJq+ge6V7JeHLMGXXdKkUrBcDJ5k9b9qIxv6trcaIzO7rtJLe5f5thRMHYLStyRi49ARToCQXIBMnsfj/5zi2P4c9RzLDuH/bmt3uvd4cklnvU7g5mrB/nDhA5w5cwYyBNtxF6zZSTVqzEQrWCxmctmbQyaopaLG65++lZRZiMia2ZkpPHICtGWYMwF1UZDaegvVCBnd9s+4Fk6KppdRea9lIf/xXfdnRWXI2txOKYd8MMwaeiswmUbBeyOBupKmj/9cwRxNEs/tgMx58rn68BU3ZTnBqQ+/BiQMwd0CPPBthcHUryjsXmY1QrF7oQP+5GYFxkl+DHB0UmZEzyNFBkRk5gxwdFJmRM8jRQfoyExggMhM8IDITPCAyEzxAX2YEOrB+DXJ0UGRGziBHB+nLrOz3PVmkHCRQi34Nisw8kXKQQC36NSgy84TnC7P8OJRZKvA/Tg8YyQXY0T9pvOS5AC4u1wuFy9YsHfiP6QGjuQBfNNROY9lzAZxcrheJRcjMBP5jQO1oLoCJz17yXIDSf2d/2ZYLkFkc+L/azMgFaNdBZsueC5BykEAP26/BkocA6cD/ZGuWyAVA+S17LkDKQQK16NcgAZkNAv8xPSArFyCa42mJcwFSDhKoRb8Gy5VZLxn4f/qiTQ8YzQXQP7i95LkAKQcJ1KJfgyyfmwkMEJkJHhCZCR4QmQkeoC8zAh1YvwY5OigyI2eQo4MiM3IGOTooMiNnkKOD9GUmMEBkJniAvswW84ZI8IrITPDAiyczjj1svwYpDAGmZQSk8JoLYO1xrEW/BinIbGpGQAK/uQDWHsda9GuQlMzGZgRsrjbVTvA3P/adC2DtPXMd6/6MuD2S8wLsV1YOXlrJkM+sTMsIeNTEcNl2w3cuQIHvJBRkWGaH5w6vq8Ozd/JbnJYRsBMEtbtNkJnvXID8X0koyrDMjn4AMts/8TC/xWkZAY9bSqc3YWvmNRcg/1cSipJx06xUjhdpzKZkBFShL1bDNADfuQD5v5NQlOwhwH8X0NmMtBtjfBmGwDjJr0GODqZkdnimYijSnM1Gd0MnOGX5MgyBi+TXIEcH063ZJ7ZP5qE1G+vLMAQukl+DHB2k/7KJwEXya5CjgyMy0zfOk478yeWLwJCRBxrXVmC0WeTxbFFfBIaMPJ79uu6eUeqbCQwYuWl+fgP++VeRmeCS7AcalG6aBDqwfg1ydDDzgcbBNxw5lMeXYQhcJL8GOTo4ctPc9vN4drwvw7h+v8SxFv0adCCzw3NHP1CH1115lMOXYURm1Ay6kNl1tb9+9D3GrZlQAiM3zb3jd7bnfT4bh/wHQa27Ue2odoBTAKQTA0qYFyDHBREWgZsIDRPy378Jkmn0t0Ayj1smlLHkeQHm+xbCwkg/0Dh7xzzTmHcIYIJkQWaqXe/f2mqMyKykeQFK/z18WarsXIBP8rwFMCH/tjW73Xu9OSSzsuYFyLLHsYft16CLIUCuNADbmkEnq6agxeqev5eWWVnzAmTZ41iLfg26eG6G75ny9M26F/RNU2mZqfZay8T/lzwvQJY9jrXo16CL1ixP3wzHijrkf62l10E0uw8248FnifMCZNnjWIt+DbpozXL1zdwgr87ZkvlAg9Q7TYEB9N9pCgyg/05TYAD9d5oEOrB+DXJ00Mk7TUeIzBZij4KDkkBHziBHB0Vm5AxydDD96vycQ2fmR4YAbBlOOSnnUUbSF4EhaZldx5dN5eQ1OXzZ5NlvYSpZfbM9Uo9nRWYMGG7N1NG1sl4CeJIZxx62X4OFhwA6PGN9XhO9rByA1aYN3CgjF2Ciuxxr0a/BwjLL99PGWTkA74KWfv/tVjm5ABO95ViLfg2W9NwsKwfg1hst9eWPWuXkAkyMTZd5AUqw50hmIzkAH+40+r/YbZWTC1Do2wgLwInMMnIAPuye/+0vY5l5zgUo9G2EBeDqpjmcA/Bh/923OrutcnIBCn0bYQE4kFkvMwegEdZx3FlGLkCRbyMsAnl1Ts4gRwdFZuQMcnRQZEbOIEcHRWbkDHJ0kL7MBAaIzAQPiMwED4jMBA/QlxmBDqxfgxwdFJmRM8jRQfoyc/16iWMt+jUoMpsBjrXo16DITKCJyEzwQDGZpaaXgE/VnzfH77cpJ6GOBHKdcpLTf8ETBVuzVEpJu2FySMbtx5STzn346DzlJK//gh8cyQxTSvT/qv1m8GbQaOtgxup79dGUE2jyOsp5yskcKRCScrJ8KSeplBIVBvXeZi2s6dYpbPQufZQx/cQfOqA45yknc7jMcSDn16D/kWYqpUTp+2bYCOvdK6Ao3WBlTD8BPHKfcjKHyxxr0a/BcmQWp5SEWjxGZrutsNG9AD38jJST/s2W85STOVzmWIt+DXqXWS85vUT1N68Fa59BjywI1j4IgtMXr26d2shIOdG/e+A65SSn/4In6D83ExggMhM8IDITPEBfZgQ6sH4NcnRQZEbOIEcHRWbkDHJ0UGRGziBHB+nLTGCAyEzwgMhM8AB9mcl7Jga8eDLj2MP2a5DlEEBkRs1gOTKbc/oJ17kA87rLsRb9GiypNZtr+gnnuQDzesuxFv0aLE9ms08/4TwXwF2MuywXtvQ+/YTzXIBCrgt+8D79hHKdC1DIdcEPJUw/4TgXoJDrgh9KmH7CcS7AvO5y7GH7NcjyuRmBi+TXIEcHRWbkDHJ0UGRGziBHB+nLTGCAyEzwgMhM8IDITPAAfZkR6MD6NcjRQZEZOYMcHRSZkTPI0UH6MnP9GpNjLfo1KDITaCIyEzwwRWZ3mzs60D/+HP/Qv7r7sY6sWG2qMFj7r49s7P9aaxD1Xxsylf4x956JmcVfRk77MozIjAGTZdb95sfvP7n09PZgSxR1DaLRq8+b3fOd3mY9iv23Uf8mnjZtC3ckDF22cWrDvgwjMmPAJJlhsD4KC9aqne53N9dsOKwN4+881wGwumgU+2+j/m12ABz1ZLP6n0G9Dc0c7thZbe5UdfR/zcgMbKBZNVcuQKHYdJkXoAR7k2SGwfoos3ZDtf8Wbonmp7HtHrjvgQp3sUWKYv9t1L9pzfRROjJ2t9X7NEoH0NIMB0e3q0/RLJ5PRpoLsUfBwUkyw2B9lBmsdS90r8BHIzPcY1ozI5Eo9t9G/ZvsADyqf/PBvSuPox2w7V5H/+p2R7dmW43++x00m/BlGJEZNYOOZYbB+h1szWpK/9q/lRkmJbWrT/TqBeibwb4o9t9G/ZteFx6l2uc/0xmcZofq/vWP9fwB2DdTOyIzD/YoODhJZhisj2H72DfbWXuw+SqG+us7nonh13OZ6I6Wjf1ffS2K+tfdLTwKGjr1WGeW49QBHX2T7W4EwatRCnpDm60lfBlGhgAMKOO52VctZTLpMn0RGFKGzNr4vG2cLwJD6L8FEBhAX2YEOrB+DXJ0UGRGziBHB0Vm5AxydFBkRs4gRwfpy0xggMhM8IDITPAAfZnJiyYGvHgy49jD9muQ5RBAZEbNoHeZxakBGOjf26z+vDl+v50XYEdnCeSfFyCnpwM41qJfg/5bs9Tv/rcb6bSS4f04L8AXDbXTKDAvQF5PYzjWol+D5ckMA/31/6r9ZvBm0GjrX5ytvlcfnRfA/FZ7/nkBRvbLcgmWbmRmAv1VGNR7m7WwplunsNG79JEanRegXQeZFZgXIK+nQpm4kVkY/Rh2uxE2dDi3DqfVEdqj8wJgqkmBeQHyeiqUiQOZxb/7H2rxGJnttkLogN1tZs0LAIsC8wLk9VQok8IjzcHv/ld/81qw9hn0yIJg7YMgOH3x6tapjYx5AXSaQP55AXJ6OoBjD9uvQZbPzQhcJL8GOTooMiNnkKODIjNyBjk6SF9mAgNEZoIHRGaCB0Rmggfoy4xAB9avQY4OiszIGeTooMiMnEGODtKXmes3mRxr0a9BkZlAE5GZ4AEHERq17ka1o3+0LMDAfz2RwKt2ngC7qXguQE7/BCIUbM3MT2b39Y/LPjY/5t7HiQSieQJc5QLk9U+gQXGZ6QkAbm01IpmZUMdongBXuQAOY9NlXoAS7LlpzW73Xm+mZWbnCXCVC5DXvww4DuT8GvQ/0jQTAEAj1T1/Ly0zM0+Aq1yAvP5lwLEW/RosQWY4AYD+Xey2mWgHullGZmaeAFe5AHn9y4BjLfo16F1m0DSttXSTBjrZfWDmDNBx/tE8AYiLXICc/glEoP/cTGCAyEzwgMhM8AB9mRHowPo1yNFBkRk5gxwdFJmRM8jRQZEZOYMcHSQlM4EtWME0ZJYN+fGnODgrIrMCiIOzQllmAhtEZoIHRGaCB0RmggeIyswmptgFQYxn/S0d20QS42Bvk8YVpCmzKDHFLAgSeWaCOwliHXzcwt/TLx2aMsNQ7nhBkMgzsjIbXDoSf6g0ZYaJKfGCIJFnZGU2uHT3OiW7oqEpM2nNihJfurBRtisamjKTvllRIgfDWtmeIDRlhokp7QYuaBI7WKVwT8rAONiOknpKhqjMBF6IzAQPiMwED4jMBA+IzAQPiMwED/CQ2V6lsvL5jaGNR39/4/BruNEuUmRtizcevPJwXJHpjB6W0xB68mfTi7x8Zy5v5uJfCh0dw0Jm2yceqr1jwxdk22wZkV9qbyaHZ048nFJkiPgkY84207EZGL1P5Oja8UkyK0hBlUZwkNnBH+tLsb8+tBlaM70Y8/do946xiLU7sUia+CQ5/vonHHL0vRkUdHh2gTJTh1+fKvQZ4CCzvRP2Suh7J1z1f6vAhv1K5Zi+acJyXf9JJvYdnqkcv4MaOrpWOQmtwX/oDYdn3z72z1+7gTsPXvl+5STKbLuCxvWBcDx+1AX/6ZWfVk78qnLi12eO34FGD0+iD8w4m8Im4cAe8DCyZEu8fewfo2Nt8T1YjU67f1JL3h5pTp4oid84+pTYAd8K1rfjcw/8GJSJT1ZZMd/4pegqDDuxPfznmwdOMoM26OClvwLl6Gp9+Q40cqCA/9VaOXYjuW9vBQRkmirdEvwON7xzDaodCuLOg5fWj66tw8o+bFsxclSwUX/8cygIn6F2Ture31ktWH0SPDDjbErffd+JDnjHWopKrKjo2HdMcVDW9oo9LWxXg1PhxkRJhTLc1nvtl7I79k4OPDfntsUHZew29GId/tO37jFO7K04qCJOMtMXBK46VryuINSSlpP5HO/TVbdu74hwIT95iBu04qKd+qaJsoG/dpCFvTHtreBHvW4MgRTtim0a17POZgYjiQPQUlRCxceaIth4RKfVpeIjzcZBSWVbmsSXMqv7JxOex+fW33ZQJr5K+grABTw8N84JkZnF9M0OfriHF2WMzBL79uEPPJLZwcv//kOFG2yV4/pAZvaOEYnDVmuWzGKrQ2dT2TKLSqj42GQN29OmZaY3JkqqlMwSO7DtjUwkZZYoY6/SSdtirn8+1gmRWYQeaUJXFeQWX8B96H1dO/6zWGbJfdv2jhgfixtsleM6yAxuHdgwKP13jgMuczM5PDcss8Mz+jwqtjp0NjUkM2MpLmF6gOuxYvd1yxKdVvfN4iNxY6Kk3q8LJ76UNbFiDkUTST8SZcy/xgsoXElchSEnpG8Ws637vNjMr8P6yT24arCpsm5WcJHY96vKsT85/rbtRB98Q19l2PCXWMjs/Nk1XdocjY8LoJtc0Y83tm3fGgzB4qe4duxP9UhhHY3cGT3bQ+3Xie9HB/zaWrIlsGe/bh2wjh+7oexp9UgzeSo9xhiUxC9+7EbiS5kd//OSHl5YE+bcpnjiYLsNvVBGS9lOyEjTI+4eGsxnafKj1zH8DlT8yVziOPqHccXneKgzCZHZTJQls1neAgyjlXF4fa5DRp45xshbAI9Ap/qEi3uHS0vj2TddiJnZxiHpQhGZCR4QmQkeEJkJHhCZCR4QmQke+H904TfkRLOCgAAAAABJRU5ErkJggg==" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrUnBabVpXWVhKelEyOXVVR1Z5YldsdGNERndZeTV6ZG1kY0lpd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUUXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpYzNablhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJCYm01dmVVMXVSR2xtWmxaaGNuTkRiMjVRWlhKdGFXMXdNWEJqTG5OMloxd2lLVnh1WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY0lsQjBjMEZDWkVGdWJtOTVUVzVFYVdabVZtRnljME52YmxCbGNtMXBiWEF4Y0dNdWNHUm1YQ0lzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDAwTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luQmtabHdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1FXNXViM2xOYmtScFptWldZWEp6UTI5dVVHVnliV2x0Y0RGd1l5NXdaR1pjSWlsY2JuMWNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5EaWZmVmFyc0NvblBlcm1pbXAxcGMuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD00LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcDFwYy5zdmdcXClcblxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uRGlmZlZhcnNDb25QZXJtaW1wMXBjLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5EaWZmVmFyc0NvblBlcm1pbXAxcGMucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnDiffVarsConPermimp1pc.svg\, width=8, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnDiffVarsConPermimp1pc.svg\)
ggsave(filename=\PtsABdAnnoyMnDiffVarsConPermimp1pc.pdf\, width=8, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnDiffVarsConPermimp1pc.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtScFptWldZWEp6UTI5dVVHVnliV2x0Y0RGd1l5NXpkbWRjWEN3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRRc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjM1puWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUkJibTV2ZVUxdVJHbG1abFpoY25ORGIyNVFaWEp0YVcxd01YQmpMbk4yWjF4Y0tWeHVYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjWEZCMGMwRkNaRUZ1Ym05NVRXNUVhV1ptVm1GeWMwTnZibEJsY20xcGJYQXhjR011Y0dSbVhGd3NJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMDBMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhCa1pseGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprUVc1dWIzbE5ia1JwWm1aV1lYSnpRMjl1VUdWeWJXbHRjREZ3WXk1d1pHWmNYQ2xjYm4xY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uRGlmZlZhcnNDb25QZXJtaW1wMXBjLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5EaWZmVmFyc0NvblBlcm1pbXAxcGMuc3ZnXFwpXG5cbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcDFwYy5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uRGlmZlZhcnNDb25QZXJtaW1wMXBjLnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcDFwYy5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uRGlmZlZhcnNDb25QZXJtaW1wMXBjLnN2Z1xcKVxuXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5EaWZmVmFyc0NvblBlcm1pbXAxcGMucGRmXFwsIHdpZHRoPTgsIGhlaWdodD00LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcDFwYy5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnDiffVarsConPermimp1pc.svg\, width=8, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnDiffVarsConPermimp1pc.svg\)
ggsave(filename=\PtsABdAnnoyMnDiffVarsConPermimp1pc.pdf\, width=8, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnDiffVarsConPermimp1pc.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZCc2IzUWdiMjVzZVNCMllXeDFaWE1nZDJsMGFHbHVJREVsSUc5bUlIUm9aU0J0WVhocGJYVnRYRzV5WlhOMWJIUnpUM1YwUkdsbVpuTXVZMjl1YVcxd01YQmpJRHd0SUhKbGMzVnNkSE5QZFhSRWFXWm1jeTVqYjI1cGJYQWdmRDVjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQnliM2R1WVcxbGMxOTBiMTlqYjJ4MWJXNG9KMDFsZEhKcFl5Y3BJSHcrWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUdacGJIUmxjbDlwWmlocGN5NXVkVzFsY21sakxDQmhiR3hmZG1GeWN5Z3VJRDRnYldGNEtISmxjM1ZzZEhOUGRYUkVhV1ptY3k1amIyNXBiWEFwTHpFd01Da3BJSHcrWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJR052YkhWdGJsOTBiMTl5YjNkdVlXMWxjeWduVFdWMGNtbGpKeWxjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEVScFptWnpMbU52Ym1sdGNERndZeWtnS3lCblpXOXRYMk52YkNoaFpYTW9lRDFtWVdOMGIzSW9jbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRVJwWm1aekxtTnZibWx0Y0RGd1l5a3NJR3hsZG1Wc2N6MXliM2R1WVcxbGN5aHlaWE4xYkhSelQzVjBSR2xtWm5NdVkyOXVhVzF3TVhCaktTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzNFhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjSWxaaGNtbGhZbXhsWENJc0lIazlYQ0pEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJseGNibWx0Y0c5eWRHRnVZMlVnS0cxbFlXNGdZMmhoYm1kbElHbHVJR0Z1Ym05NVlXNWpaU2xjSWlrZ0t5QjBhR1Z0WlNoMFpYaDBJRDBnWld4bGJXVnVkRjkwWlhoMEtHWmhiV2xzZVNBOUlGd2ljMlZ5YVdaY0lpa3NJR0Y0YVhNdWRHbDBiR1V1ZUQxbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYQ0p6WlhKcFpsd2lMQ0J6YVhwbFBUa3BMQ0J3WVc1bGJDNW5jbWxrUFdWc1pXMWxiblJmYkdsdVpTaGpiMnh2Y2lBOUlISm5ZaWd5TXpVc0lESXpOU3dnTWpNMUxDQXhNREFzSUcxaGVFTnZiRzl5Vm1Gc2RXVWdQU0F5TlRVcExDQnNhVzVsZDJsa2RHZ2dQU0F3TGpJMUxDQnNhVzVsZEhsd1pTQTlJRElwS1NBcklHTnZiM0prWDJac2FYQW9LVnh1Y0VKaGNseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG4jIFBsb3Qgb25seSB2YWx1ZXMgd2l0aGluIDElIG9mIHRoZSBtYXhpbXVtXG5yZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjIDwtIHJlc3VsdHNPdXREaWZmcy5jb25pbXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlcl9pZihpcy5udW1lcmljLCBhbGxfdmFycyguID4gbWF4KHJlc3VsdHNPdXREaWZmcy5jb25pbXApLzEwMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbl90b19yb3duYW1lcygnTWV0cmljJylcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dERpZmZzLmNvbmltcDFwYykgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcDFwYyksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s4XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvblxcbmltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIGF4aXMudGl0bGUueD1lbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcLCBzaXplPTkpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Plot only values within 1% of the maximum
resultsOutDiffs.conimp1pc <- resultsOutDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > max(resultsOutDiffs.conimp)/100)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutDiffs.conimp1pc) + geom_col(aes(x=factor(rownames(resultsOutDiffs.conimp1pc), levels=rownames(resultsOutDiffs.conimp1pc)), y=CondPermImp), fill=mycolours[8], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation\nimportance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), axis.title.x=element_text(family = \serif\, size=9), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkJzYjNRZ2IyNXNlU0IyWVd4MVpYTWdkMmwwYUdsdUlERWxJRzltSUhSb1pTQnRZWGhwYlhWdFhHNXlaWE4xYkhSelQzVjBSR2xtWm5NdVkyOXVhVzF3TVhCaklEd3RJSEpsYzNWc2RITlBkWFJFYVdabWN5NWpiMjVwYlhBZ2ZENWNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCeWIzZHVZVzFsYzE5MGIxOWpiMngxYlc0b0owMWxkSEpwWXljcElIdytYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJR1pwYkhSbGNsOXBaaWhwY3k1dWRXMWxjbWxqTENCaGJHeGZkbUZ5Y3lndUlENGdiV0Y0S0hKbGMzVnNkSE5QZFhSRWFXWm1jeTVqYjI1cGJYQXBMekV3TUNrcElIdytYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lHTnZiSFZ0Ymw5MGIxOXliM2R1WVcxbGN5Z25UV1YwY21sakp5bGNibHh1Y0VKaGNpQThMU0JuWjNCc2IzUW9jbVZ6ZFd4MGMwOTFkRVJwWm1aekxtTnZibWx0Y0RGd1l5a2dLeUJuWlc5dFgyTnZiQ2hoWlhNb2VEMW1ZV04wYjNJb2NtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRFUnBabVp6TG1OdmJtbHRjREZ3WXlrc0lHeGxkbVZzY3oxeWIzZHVZVzFsY3loeVpYTjFiSFJ6VDNWMFJHbG1abk11WTI5dWFXMXdNWEJqS1Nrc0lIazlRMjl1WkZCbGNtMUpiWEFwTENCbWFXeHNQVzE1WTI5c2IzVnljMXM0WFN3Z2QybGtkR2c5TUM0MUtTQXJJR3hoWW5Nb2VEMWNYRlpoY21saFlteGxYRndzSUhrOVhGeERiMjVrYVhScGIyNWhiQ0IyWVhKcFlXSnNaU0J3WlhKdGRYUmhkR2x2Ymx4Y2JtbHRjRzl5ZEdGdVkyVWdLRzFsWVc0Z1kyaGhibWRsSUdsdUlHRnVibTk1WVc1alpTbGNYQ2tnS3lCMGFHVnRaU2gwWlhoMElEMGdaV3hsYldWdWRGOTBaWGgwS0daaGJXbHNlU0E5SUZ4Y2MyVnlhV1pjWENrc0lHRjRhWE11ZEdsMGJHVXVlRDFsYkdWdFpXNTBYM1JsZUhRb1ptRnRhV3g1SUQwZ1hGeHpaWEpwWmx4Y0xDQnphWHBsUFRrcExDQndZVzVsYkM1bmNtbGtQV1ZzWlcxbGJuUmZiR2x1WlNoamIyeHZjaUE5SUhKbllpZ3lNelVzSURJek5Td2dNak0xTENBeE1EQXNJRzFoZUVOdmJHOXlWbUZzZFdVZ1BTQXlOVFVwTENCc2FXNWxkMmxrZEdnZ1BTQXdMakkxTENCc2FXNWxkSGx3WlNBOUlESXBLU0FySUdOdmIzSmtYMlpzYVhBb0tWeHVjRUpoY2x4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxuIyBQbG90IG9ubHkgdmFsdWVzIHdpdGhpbiAxJSBvZiB0aGUgbWF4aW11bVxucmVzdWx0c091dERpZmZzLmNvbmltcDFwYyA8LSByZXN1bHRzT3V0RGlmZnMuY29uaW1wIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXNfdG9fY29sdW1uKCdNZXRyaWMnKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXJfaWYoaXMubnVtZXJpYywgYWxsX3ZhcnMoLiA+IG1heChyZXN1bHRzT3V0RGlmZnMuY29uaW1wKS8xMDApKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW5fdG9fcm93bmFtZXMoJ01ldHJpYycpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXREaWZmcy5jb25pbXAxcGMpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXREaWZmcy5jb25pbXAxcGMpLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcDFwYykpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbOF0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb25cXG5pbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBheGlzLnRpdGxlLng9ZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCwgc2l6ZT05KSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSB2YWx1ZXMgd2l0aGluIDElIG9mIHRoZSBtYXhpbXVtXG5yZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjIDwtIHJlc3VsdHNPdXREaWZmcy5jb25pbXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlcl9pZihpcy5udW1lcmljLCBhbGxfdmFycyguID4gbWF4KHJlc3VsdHNPdXREaWZmcy5jb25pbXApLzEwMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbl90b19yb3duYW1lcygnTWV0cmljJylcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dERpZmZzLmNvbmltcDFwYykgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcDFwYyksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s4XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvblxcbmltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIGF4aXMudGl0bGUueD1lbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcLCBzaXplPTkpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGAifQ== -->
```r
```r
# Plot only values within 1% of the maximum
resultsOutDiffs.conimp1pc <- resultsOutDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > max(resultsOutDiffs.conimp)/100)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutDiffs.conimp1pc) + geom_col(aes(x=factor(rownames(resultsOutDiffs.conimp1pc), levels=rownames(resultsOutDiffs.conimp1pc)), y=CondPermImp), fill=mycolours[8], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation\nimportance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), axis.title.x=element_text(family = \serif\, size=9), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqbzBMQ0p6YVhwbFgySmxhR0YyYVc5eUlqb3hMQ0pqYjI1a2FYUnBiMjV6SWpwYlhYMD0gLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjo0LCJzaXplX2JlaGF2aW9yIjoxLCJjb25kaXRpb25zIjpbXX0= -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBVE1BQUFFekNBTUFBQUJxaGhSc0FBQUJ0bEJNVkVVQUFBQUFBRG9BQUdZQU9wQUFabVlBWnBBQVpyWXpNek02QUFBNkFEbzZPZ0E2T2pvNk9wQTZabVk2WnBBNlpyWTZrSkE2a0xZNmtOdE5UVTFOVFc1TlRZNU5ibTVOYm81TmJxdE5qbzVOanNoUTllbG1BQUJtQUdabU9wQm1aZ0JtWm1abVpyWm1rSkJta050bXRyWm10dHRtdHY5dVRVMXVUVzV1YmsxdWJtNXVicXR1am81dWpzaHVxNnR1cThodXErU09UVTJPVFc2T1RZNk9iazJPYm82T2JxdU9qazJPam82T2pzaU9xNnVPcThpT3ErU095TWlPeU9TT3lQK1FPZ0NRT2pxUU9tYVFaZ0NRa0xhUWtOdVF0ditRMjdhUTIvK3JiazJyYm02cmJvNnJqazJyam82cmpxdXJxMjZycTZ1cnE4aXJxK1NyeU1pcnlQK3I1TWlyNU9TcjVQKzJaZ0MyWmpxMlptYTJrRHEya0pDMnRtYTIyNUMyLzdhMi85dTIvLy9JamszSWptN0lqbzdJcTI3SXE0N0lxNnZJeU1qSXlPVEl5UC9JNUt2STVQL0kvOGpJLytUSS8vL2JrRHJia0diYmtKRGJ0bWJiMjVEYi83YmIvOXZiLy8va3EyN2txNDdrcTZ2a3lJN2t5S3ZreU1qazVNamsvOGprLytUay8vL3k4dkwzOS9mL3RtYi90cmIveUk3L3lLdi95TWovMjVELzVLdi81TWovNU9ULy83Yi8vOGovLzl2Ly8rVC8vLzh3UkI0bkFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFRblVsRVFWUjRuTzJkaTM4YnhSSEhGYWNZdDVTRzZtSXdya05MQVFlYW1zcUZwanhTNUtiUTJvVHlLQStaUjZGK3RFbHBnd3kwUkFtbGlXSlZZTFdXdmY5eFoyYjNKSjEwSjkzYzdVVjcwdncrbjBoM3Q3dW52YS9uYm5kbk4zTUZKZUtxTU80SzVGRENqQzloeHBjdzQ4c05abmZuUlZSYlI1aVo3LzNnNFRTN05zL1YyWFdSbWVzU1pud0pNNzZFR1Y4dU1wTTJJTDU4Wmo5d1ZNRjZDck00Q3RaVG1NVlJzSjVXbUxWWHZZVTZiclFlcjZqakRjL3pUci9kZXdqU1BkaHRldk5WVmZOS2VIaW4wbjZxU2xsTDA4bE10YzhUSC9YTkwwdDY1K3RLOE5DejZ2alYraFZFdUFLNE5FbjR2TkM2MEZPWDZXUjJwUW5HQlR0ZlYvb09QWHY4QmxnYmJOWEtxbGtDK3pvTlVHK3VrcG5oT0c1L2Y5OWxadnVtZmhrd2EzOE1OeHplaWFjckE0Y1cxZi9xZ085NkJheXJWZ0pqcThITldtclNqVHJOZHRZRXV5a0g3Y3djUWpzRFhhK1FuY0hkZWIwQ04rdlVNNE5IMDFkMTFWelVPeXZCUTg5U3R1TkxWWHFlZ1ozVkZtNU5Oek5xRjArL3N3RVd0ZTA5OERUc2VML3FQWFQvV1d3ZGEzakx3bDZKOHBlYjNnc2JaSVRUeVN5MVpPekVsNHpSK1JKbWZBa3p2b1FaWDlJRzhDWE0rQkptZkFrenZxUU40TXZSc1ZORVBZWFpFRVhVVTVnTlVVUTk0ekhUUHY1S1dKTHg3eXQwbGMxWDRXdm5iWEsvUXBGRms5QmV4YUxIRzVTcy9Pa0Rjb2FVYzhFc1dSdEEzakR5NGZ1K01MTnAvUHVvSy9RSnVkRDdmNm5xTzdkaHIvMHk0UHZ2TDZxOVo2T0VwcDVubVZ4bXFsbENpMmw2OUFWbVVvSk44cnMybjF5ZHI1SzdYM3Y2ZldhdDUrQTQ1bi85cWFyNjZ2ZlZHbnJVRmw0cGRabWhLYm83SDZETVBNQitvdmtBdXNyV3l2VktzL1RsaXNJdmdLVm9VN1dlaDd1dVZpSjNQM242L1FtQlczQjhwd0taMm4vWUxoLy9kUmZzckZsdW4zL1R0N1BWenQwN3lYYTI3WG1MY0RmaUZ4S0FUVzFuSmR4RWR6OTUrdEhPTnNwb1p4ZGdyNFhNV3VmKy9mZGRNRVVQczNmdXpkYTVlaTZZZFpUa2VYWkRnOEl2dERQWXBPY1pZQUFEd3h1U1BQMDM0WW0zSFdSMi9QTHo5ZDNxYnJWWmJxM3NWUFJjQWFDdGxTYVhtZDl1NHUzVVhpM3BMOW9rLzM0VFo4bHJKb09lQ2xpNEJlM205dnpWVmNqMEpKZ1gzTXplL0d1ZTk4RFRMMnpjZjliTXRFUGpxaHZqS1J3SE5FdWo4d3pWOURIcjlyelMxVVhHNkJ3Sk03NkVHVi9DaksvcGF3UFNTNWp4SmN6NEVtWjhqWG5zbE9zMlFKakYxeVF5aStQYjlrZFFPZlJ0WjJObmNYemJ4NWVRU1I1OTIvRVlKR0Uyd3JkTnpQTHAyL1o5MkNPL2JmdTJpVmsrZmR2eEdDUmlOc0szamN6eTZkdk9qdGtvMzdheHN4ejZ0ak50TjRmNXRtRnJvWjdTdHoxSnpFYkltbTk3ZW54QjR0c2VoMlNNenBjdzQwdVk4U1hNK0pJMmdDOWh4cGN3NDB1WThaWDUyTWxxUFlVWnY1N0NqRi9QbE13NmdXN1FzWFlXWTQ1NEZPWW1HQTVuL0xGdjBsMWxSM2JzVEFlNk9iNEUxMTgrM29EcnYyRW1BdHlLZmVOVUc2QURrR2gzNC9IckcrVUJabTdFdnRuZnYwMFgzL0h2M3c3NisyOEgvZjYzZy9NQXlkYTZSek1qMzcreHN6ZmFQNi8wTVhNazlvMkxkZ1lQcGtVRnR0UTZkem5JekpIWU42NHhnMmVVbnRwRUxyWDVxdkgyT3hYN0p1VlYrckxYYnVJTXdEek5iUUtCM2F1cm5hYVVIZnZHZGJuWVAzTmR3b3d2RjVuSkdEMitoQmxmd293dlljYVh0QUY4Q1RPK2hCbGZGc2RPZDZDZWs4dHNXdHFBS1dJV002NzdOcTZmemRxM3pjWEEyclZwWjdIaXVuOVpWdHZsekgzYlhBeXMzU3lZRFkzcnJsMjBXZnUyZ3o1cnk5OFpNQnNlMTcxV0FtYVorN2F0WEUrVU1tQTJQSzQ3c2N6Y3QyM2xlcUprbTFtTXVPNysvL1hKMHJkdDVYcWlaTGZkakJYWEhaY3FaeDNYdlZNcDE5dUF0QksvQmwvQ2pDOWh4cGY0TmZnU1pud0pNNzZFR1YvU0J2QWx6UGdTWm56RkhqdjFGaEptcFBHT3dFZExtUEZsbmRtb1dZR0FFczRIMkt0dEl0bTNzMUd6QWoxS09oOWdzYlpKTk1Dc1VTZ2V6QlZUbkhIa3JBREdXdHIyZnZwVzh2bUFYdi84ZnRCZnY2K0c3bWV5MXYzdzRjT1gxT0dacmRUTUltY0ZNR1FPaGk4cEo1OFA2UDA1QjlyTm94ZUJXZVBrTlpWWW8yWUZNR1RPVGdXWUpaOFBpSCtkZDZhdjBTZ1VDak1wekd6a3JBQ0Z6REYybG5BK0lQNTEzc0grMldmSm9ZMmFGVmk0cVVQbWVPWEpXT3QrdUZUUVNtVm84VlFyUjlURmZRWHQ3QVB6SEV0aFp6SFZPanNZS1NlZnpNYXIzRExEKzNOMm5IWEpuMS9qYUEzNnM0MDBmZHJreWl1enc0ZndrWmI5OHl4TWVXV21QbDJIai9lRTJaRGQ4TDdHZU85TjF4WGExemg0Wkl4MWNWOEQ5K2JtSGVyVFJ0Wmx5TmhwSEpVSzBhQmY0K2hGQmNQMDhkVWxoOHhlVW8zbG80c08yNWxqYlFCcWIyWnJrOXVwWmNWeFNiSFduWCtkRHZzMUdIRmMwcXgxNTEvbkhlaHJuTm5TM1ExdUc4Q0k0NUptclR1bDd3ZlhuanZnMjliZERiYWR4WS9qa21hdE82OVNtV21nRFVnMEZjQ0k0NUptclh1YUM3V29BVHVqWVZPUzUxbnNPQzdKMTdxbnVsSjdHckN6Sk04elhoeVg1R3ZkN1Z4eWF0bDVudG1zUzg3RzZMN0dQTjdNSFRNSHhwdDVZK2JDZUROM3pCd1liN291SytOTnEzVnhYekpYeDVjdzR5czRSbjk0akRYSmFSc0FnNER4OURKNjY1STNaaS9SMkdrOHMwNUR4MDQ5dVJ4alpyVG4zaHhLVHk3SG1HRmY5bWh0WE1PQW1NekdyOEU1NFdYdUtkcGg4d0Q2bmE1NlQ2V2ZEN0J3cGZiVTc5dE9jbzZ3ZVFEelRsZGI4d0ZwTHRHNmJQVFB3dVlCekR0ZGJjMEhCUDMyWS82MnhHeGdIc0M4MDlYV2ZFRFByem5XQmlSVTJEeUEvMDVYUy9NQlNhL1RYV1loOHdEbW5hNjI1Z09TWHFlcnpOcWg4d0QwVGxjU2V6NGdWK09BTVN1WFkvUXhTNWp4SmN6NEVtWjhTUnZBbHpEalM1anhKY3o0a2phQXIvQ3gwMWlyRkNwaHhwY3c0OHZPR0ozajIrYStzM1F5MndDV2I1djl6dEtKWlJiZnQ4MStaMmwzamZtK3EydmRrekdMNzl0bXY3TjBRdTJNNDl0VzNIZVdwcXBhSmhxRGI1djV6dEpVVmN0RVkvQnRqM3huNlJRd3N5WVpPL0VsWTNTK2hCbGZ3b3d2WWNhWHRBRjhDVE8raEJsZndvd3ZhUVA0bWlhL2hpMEpNNzZtZzFrZ3RnMjZZUDlTaVU1UE9oL2duRkxhV2NEZlh5c1BCTHUzTVIvZ25Dd3hJMzgvL2xPMVo3eG52SElOdldZTHI1UnN6QWVNZlcyNzViWHVBWCsvYW5xbDl1cGljeEh0cGxsdW4zOHpKUFlOZno3QU9kbGgxdlJkcmJWeXM5d3N0UzRBSGpTbGtOZzNpajBmTUdGdFFEQ0lleE5KYUdhNzFXYTV0YkpUc1RFZk1HSE1Ba0hjRi83MWhEZi9DVHpGUEcvK05jOTc0T2tYTnU0L2EyRStZTUtZMlpXTW5maVNNVHBmd293dlljYVhNT05MMmdDK2hCbGZ3b3d2WWNiWHdEaGdyTFdKbGpEalM1anhOWUxaVG1VYkY3SjM5anZPYXJYekRnVnpyNmltTi8rM044M2E5dmxxMTR1OTJIZXFvQSszclQyTjVIWUwxaVh2ekZxUHYvUHF6Zk8zM3VnZThSMnZRRUFIYzIrZHE3ZFhTLzdhZHVQRjFxdVNnK2ZxZTJFcE9yb3ZCVjhsRnNFc1YyMEFPWitKRW13dDFGdlByYzZiUmNYR0xZMUJ0cStUOWZocjI0MFgyNngrMzhBMytpMzgyU3ZWd0FBcFlmdDBaUnZmOHVjdGFtWndEanF0Q3ZWdDk2MHh6OE5hZDNJK0U3TmFXZFYrQm5mZWpubk5MYVhvWU82N1pDdisybmJqeGRaMmhxWFFuN2hiYlgvc3U3ZVJjN05idXJad2kwN2I4L2ZMdDUyUjg1bVl3VlpycFhVQmRqVXpTdEYycHEvWFg5dHV2Tmg2OVR1Vk9yNTA5ZktGRzM0Q0hMdGNSLzlrSGUxc28zejhhcDFPMjFPWGZETWo1M09kN0d4Um9jZmFNS1BwajlyQ1RRcm1Eczh6U1BQWHRoc3Z0bjVTVVNsVk8vY0ovcThlbmFCYVAza0xmZUQwUEZQYnNaZzVwMkhNeVBsTWJtaDZubTNQWDExOWtKelplR05wbnpUT2xIajBEbEphMjM3NkNkK0xqWThvS2dVbXFHN2d2Qys1dit0NEw3Zk9ldDZEL2dSeEdVKzcyRk9YZkRQTFN0OVVsWjZBQ3EyTCt4b0hzeHIxNjZMcTRyNWNIQWZJR0QyK2hCbGZ3b3d2WWNhWHRBRjhDVE8raEJsZndveXY0TmlwYzFqYWdDRVNabnhOQjdNa2E5M2p4blZQZVdFV0NtZGtaL3kxN3JIanVpZXRVdmE2NDJ2ZFk4ZDFWMk5mMCs3TVd2ZlljZDJUVmlsNzNmRzE3ckhqdXFlNHFJdzFoclh1TWVPNmQzNWp3dHFBUkd2ZFk3N24xY3AxT3NqTXJzUVh4SmN3NDB2RzZId0pNNzZFR1YvQ2pDOXBBL2dTWm53Sk03NjY0NERBWVdFMlJCSE1uSk13NDh2Q0dEMFkwbDNoNHZnSFU3NnpOTzFWWmF1VWRqWVkwdjJZRnNlbmZHZHBxa3ZLWE9tWjlZZDBKNTlheW5lV2hxOHh6OE5hOTNqTStrTzZhMmJwM2xrYStJMUphemREUXJvYlpxbmVXV3Jod2l3VXpvclpZRWgzd3l6Vk8wc3RYSmlGd3BuNXR2dER1bGZRYjkxTzljN1NDVzhEckVyOEdud0pNNzZFR1YvaTErQkxtUEVselBnU1puemRuUmRSYmQxZzVtdDQrNWttMWVhcGhSay8xUzFtK1pBdzQwdVk4U1hNK0hLRG1abFlxV21YVVdsSUtzWFREMG1saUVVaFpRUEpVWVhicThOK1dLZjJsSFdDbVQreGdsOW1PeUpWWFlrb1N6N1F3YktCNU1qQ042cnRwNnFSUDB5cHZXV2RZRVlPYi9ObHRpTlNLWjUrV0txZTB4a29HMGlPTG94emg1RS9US205WloxZ1JoTXI1c3RzUjZSU1BQMndWSUl5V0RhUUhGMVlxY3YxeUIrbTFONnlUakNMYjJkSytlRnkrbExqMkZsMFlWeXNQOFRPS0dSUHQ2d1R6QmpQczRIUWFaem5XV1JoaW1jVTljT1UybHZXQ1dZMHNWTFRBWXIwUjFScWJUQU9UQ2NWZzZ3TnRwczl5WkdGYTU0Zkhpa3l0YmVzRzh6eUpXSEdsekRqUzVqeEpjejRFbVo4dWNyc2NLbHc4dlBsd0tHOTVjTXpXNWhFbjcxNSt3LzRSeHJGME5SaFB4c25zNlBNRHBlVzFjRmNnSm5lUFhweE1QUGVUUGlGSGk0Vmg2VDJ5SncwN054aGNwVFozaXg5SGEwVlRsNXIzTFUyc3dWYkJiU3pSbUVXUHJ2SEQrWUt5MGNYdHpEcmlmVzltUTlodDNIdjNLTm5LS0Z4M3hLVXZMaDF1SFJpSGM1R3U3Z05PWDc4dmJYQ28wc3pIeTBWRzVDdk1FdlorODRkVlRsWG1SWDlyODN2STR4bDNGb0drM24vRkJwT3ozRklJV2JxNEpRNitDM3MzcmQwOGhwbWdZUUdmTTFDNnFmcmpWazBPOXlGN1c4dG5meUNDRU1tdUgzM2x2R2trTDMvM0ZHVmM1V1p0clBOWmRXWVBjQXJlbmNkUHVEeVlRYyt1OGZWWnNFd1UrK3V2N2VGdTRBQmoraXRnMU9ZdlFDbVE0KzNnMU80L1RsdUtNSkZIN0NEMlFmT0hTRkhtZUh6REt3TTBEV0tWUDlOdUxhWlAvbk1lbzUzN0V3ZDNQTUkycUpoWnJZbzlkTjFPaWtZMjE0UnR4dGRabmlTbVE5UFVjSCtjMGRWemxGbThNUXZGSXI2ZWJaNTRuZExKLys1Vk1BSFR2RndhUlkrdThmZkw5d3o4OGVDdnBQQnpQWUs5NXo0RGp5d0NzVTlTaWdBQUN4VVFMdHRvTG5COWwxdzUyMFdIbHVEcDVrK0w1d1VzMy9VZCs1ckVYVnpsVmtXYWhUdG5HZUttR0hMYXVWRVU4VE1tdHhoeHVxdmc4eVRQMEtOV1Z1L2cwVWVDanphM0dFV3BZamUrZEd2aDkxb1IydVJ6SktvRVdnUDNHRUdmLzhEM1RuZjB2MTM2by9mTy9jajAwbkhuamswZWtXL1V3LzlCWk1kajNTeUtCcXJGaUZORHhMOGN0REgxd1Z4TUdFeWR0TDlvUVkwbzUzUlJPRDNBaDBQZDVoQjk4dDB6aCtsRGp2Mng3RlByenZwZnE5ZktkMnBoeDdza2QrWHh5T2RMSGdtK0RqNHRoNGs2SU9OSXBpbEtXaCtSMmZVNlk5MWhocEZmelRSOTN1Qlc5MGRacnFUNzNmT29jT08vWEhkK3pTZGRCb05LTk9waDAwL094M3hzeWhLVXAxQkFtM29QcGN1cUg5SEc0NmZicnJIaUdaeitZTnJnNytIbGVqSVRXYXovaGhBTXpPZGRQL3ZUdG5oQ3Yzc2VLU1RSUms3OHdjSnROSEF3NlpnRDdOT3VqNzVMTjN3YzhXUTMzUFV6cUFMN25mT1A4Yy9MZG9HRHFWTkovMkhaalF3NjNmcTRkSzZmZmx1bG12MFBKdnREQkxvNEQvbUN0MkM4RHNtWTZmUWIvRGppeld5dzgrMjFPRHZPZm84NjFHY0R2dndkck5QLzltSzdSdzdmRGprNE1GMzNXdzN1NHJYWVIvZVB3c0tua2t4eHdDYllXNnozUFhQM0pNdzQwdVk4U1hNK0JKbWZQMGYzZkZFc09aTzJXTUFBQUFBU1VWT1JLNUNZSUk9XCIgLz5cblxuPCEtLSBybmItcGxvdC1lbmQgLS0+XG4ifQ== -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAATMAAAEzCAMAAABqhhRsAAABtlBMVEUAAAAAADoAAGYAOpAAZmYAZpAAZrYzMzM6AAA6ADo6OgA6Ojo6OpA6ZmY6ZpA6ZrY6kJA6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjshQ9elmAABmAGZmOpBmZgBmZmZmZrZmkJBmkNtmtrZmtttmtv9uTU1uTW5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQkLaQkNuQtv+Q27aQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db/7bb/9vb///kq27kq47kq6vkyI7kyKvkyMjk5Mjk/8jk/+Tk///y8vL39/f/tmb/trb/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///8wRB4nAAAACXBIWXMAAAuwAAALsAEaOBByAAAQnUlEQVR4nO2di38bxRHHFacYt5SG6mIwrkNLAQeamsqFpjxS5KbQ2oTyKA+ZR6F+tElpgwy0RAmliWJVYLWWvf9xZ2b3JJ10J93c7UV70vw+n0h3t7unva/nbndnN3MFJeKqMO4K5FDCjC9hxpcw48sNZnfnRVRbR5iZ7/3g4TS7Ns/V2XWRmesSZnwJM76EGV8uMpM2IL58Zj9wVMF6CrM4CtZTmMVRsJ5WmLVXvYU6brQer6jjDc/zTr/dewjSPdhtevNVVfNKeHin0n6qSllL08lMtc8TH/XNL0t65+tK8NCz6vjV+hVEuAK4NEn4vNC60FOX6WR2pQnGBTtfV/oOPXv8BlgbbNXKqlkC+zoNUG+ukpnhOG5/f99lZvumfhkwa38MNxzeiacrA4cW1f/qgO96BayrVgJjq8HNWmrSjTrNdtYEuykH7cwcQjsDXa+QncHdeb0CN+vUM4NH01d11VzUOyvBQ89StuNLVXqegZ3VFm5NNzNqF0+/swEWte098DTseL/qPXT/WWwda3jLwl6J8peb3gsbZITTySy1ZOzEl4zR+RJmfAkzvoQZX9IG8CXM+BJmfAkzvqQN4MvRsVNEPYXZEEXUU5gNUUQ94zHTPv5KWJLx7yt0lc1X4WvnbXK/QpFFk9BexaLHG5Ss/OkDcoaUc8EsWRtA3jDy4fu+MLNp/PuoK/QJudD7f6nqO7dhr/0y4PvvL6q9Z6OEpp5nmVxmqllCi2l69AVmUoJN8rs2n1ydr5K7X3v6fWat5+A45n/9qar66vfVGnrUFl4pdZmhKbo7H6DMPMB+ovkAusrWyvVKs/TlisIvgKVoU7Weh7uuViJ3P3n6/QmBW3B8pwKZ2n/YLh//dRfsrFlun3/Tt7PVzt07yXa27XmLcDfiFxKATW1nJdxEdz95+tHONspoZxdgr4XMWuf+/fddMEUPs3fuzda5ei6YdZTkeXZDg8IvtDPYpOcZYAADwxuSPP034Ym3HWR2/PLz9d3qbrVZbq3sVPRcAaCtlSaXmd9u4u3UXi3pL9ok/34TZ8lrJoOeCli4Be3m9vzVVcj0JJgX3Mze/Gue98DTL2zcf9bMtEPjqhvjKRwHNEuj8wzV9DHr9rzS1UXG6BwJM76EGV/CjK/pawPSS5jxJcz4EmZ8jXnslOs2QJjF1yQyi+Pb9kdQOfRtZ2NncXzbx5eQSR592/EYJGE2wrdNzPLp2/Z92CO/bfu2iVk+fdvxGCRiNsK3jczy6dvOjtko37axsxz6tjNtN4f5tmFroZ7Stz1JzEbImm97enxB4tseh2SMzpcw40uY8SXM+JI2gC9hxpcw40uY8ZX52MlqPYUZv57CjF/PlMw6gW7QsXYWY454FOYmGA5n/LFv0l1lR3bsTAe6Ob4E118+3oDrv2EmAtyKfeNUG6ADkGh34/HrG+UBZm7Evtnfv00X3/Hv3w76+28H/f63g/MAyda6RzMj37+xszfaP6/0MXMk9o2LdgYPpkUFttQ6dznIzJHYN64xg2eUntpELrX5qvH2OxX7JuVV+rLXbuIMwDzNbQKB3aurnaaUHfvGdbnYP3NdwowvF5nJGD2+hBlfwowvYcaXtAF8CTO+hBlfFsdOd6Cek8tsWtqAKWIWM677Nq6fzdq3zcXA2rVpZ7Hiun9ZVtvlzH3bXAys3SyYDY3rrl20Wfu2gz5ry98ZMBse171WAmaZ+7atXE+UMmA2PK47sczct23leqJkm1mMuO7+//XJ0rdt5XqiZLfdjBXXHZcqZx3XvVMp19uAtBK/Bl/CjC9hxpf4NfgSZnwJM76EGV/SBvAlzPgSZnzFHjv1FhJmpPGOwEdLmPFlndmoWYGAEs4H2KttItm3s1GzAj1KOh9gsbZJNMCsUSgezBVTnHHkrADGWtr2fvpW8vmAXv/8ftBfv6+G7mey1v3w4cOX1OGZrdTMImcFMGQOhi8pJ58P6P05B9rNoxeBWePkNZVYo2YFMGTOTgWYJZ8PiH+dd6av0SgUCjMpzGzkrACFzDF2lnA+IP513sH+2WfJoY2aFVi4qUPmeOXJWOt+uFTQSmVo8VQrR9TFfQXt7APzHEthZzHVOjsYKSefzMar3DLD+3N2nHXJn1/jaA36s400fdrkyiuzw4fwkZb98yxMeWWmPl2Hj/eE2ZDd8L7GeO9N1xXa1zh4ZIx1cV8D9+bmHerTRtZlyNhpHJUK0aBf4+hFBcP08dUlh8xeUo3lo4sO25ljbQBqb2Zrk9upZcVxSbHWnX+dDvs1GHFc0qx151/nHehrnNnS3Q1uG8CI45JmrTul7wfXnjvg29bdDbadxY/jkmatO69SmWmgDUg0FcCI45JmrXuaC7WoATujYVOS51nsOC7J17qnulJ7GrCzJM8zXhyX5Gvd7Vxyatl5ntmsS87G6L7GPN7MHTMHxpt5Y+bCeDN3zBwYb7ouK+NNq3VxXzJXx5cw4ys4Rn94jDXJaRsAg4Dx9DJ665I3Zi/R2Gk8s05Dx049uRxjZrTn3hxKTy7HmGFf9mhtXMOAmMzGr8E54WXuKdph8wD6na56T6WfD7BwpfbU79tOco6weQDzTldb8wFpLtG6bPTPwuYBzDtdbc0HBP32Y/62xGxgHsC809XWfEDPrznWBiRU2DyA/05XS/MBSa/TXWYh8wDmna625gOSXqerzNqh8wD0TlcSez4gV+OAMSuXY/QxS5jxJcz4EmZ8SRvAlzDjS5jxJcz4kjaAr/Cx01irFCphxpcw48vOGJ3j2+a+s3Qy2wCWb5v9ztKJZRbft81+Z2l3jfm+q2vdkzGL79tmv7N0Qu2M49tW3HeWpqpaJhqDb5v5ztJUVctEY/Btj3xn6RQwsyYZO/ElY3S+hBlfwowvYcaXtAF8CTO+hBlfwowvaQP4mia/hi0JM76mg1kgtg26YP9SiU5POh/gnFLaWcDfXysPBLu3MR/gnCwxI38//lO1Z7xnvHINvWYLr5RszAeMfW275bXuAX+/anql9upicxHtpllun38zJPYNfz7AOdlh1vRdrbVys9wstS4AHjSlkNg3ij0fMGFtQDCIexNJaGa71Wa5tbJTsTEfMGHMAkHcF/71hDf/CTzFPG/+Nc974OkXNu4/a2E+YMKY2ZWMnfiSMTpfwowvYcaXMONL2gC+hBlfwowvYcbXwDhgrLWJljDjS5jxNYLZTmUbF7J39jvOarXzDgVzr6imN/+3N83a9vlq14u92HeqoA+3rT2N5HYL1iXvzFqPv/PqzfO33uge8R2vQEAHc2+dq7dXS/7aduPF1quSg+fqe2EpOrovBV8lFsEsV20AOZ+JEmwt1FvPrc6bRcXGLY1Btq+T9fhr240X26x+38A3+i382SvVwAApYft0ZRvf8uctamZwDjqtCvVt960xz8Nad3I+E7NaWdV+BnfejnnNLaXoYO67ZCv+2nbjxdZ2hqXQn7hbbX/su7eRc7NburZwi07b8/fLt52R85mYwVZrpXUBdjUzStF2pq/XX9tuvNh69TuVOr509fKFG34CHLtcR/9kHe1so3z8ap1O21OXfDMj53Od7GxRocfaMKPpj9rCTQrmDs8zSPPXthsvtn5SUSlVO/cJ/q8enaBaP3kLfeD0PFPbsZg5p2HMyPlMbmh6nm3PX119kJzZeGNpnzTOlHj0DlJa2376Cd+LjY8oKgUmqG7gvC+5v+t4L7fOet6D/gRxGU+72FOXfDPLSt9UlZ6ACq2L+xoHsxr166Lq4r5cHAfIGD2+hBlfwowvYcaXtAF8CTO+hBlfwoyv4Nipc1jagCESZnxNB7Mka93jxnVPeWEWCmdkZ/y17rHjuietUva642vdY8d1V2Nf0+7MWvfYcd2TVil73fG17rHjuqe4qIw1hrXuMeO6d35jwtqARGvdY77n1cp1OsjMrsQXxJcw40vG6HwJM76EGV/CjC9pA/gSZnwJM76644DAYWE2RBHMnJMw48vCGD0Y0l3h4vgHU76zNO1VZauUdjYY0v2YFsenfGdpqkvKXOmZ9Yd0J59ayneWhq8xz8Na93jM+kO6a2bp3lka+I1JazdDQrobZqneWWrhwiwUzorZYEh3wyzVO0stXJiFwpn5tvtDulfQb91O9c7SCW8DrEr8GnwJM76EGV/i1+BLmPElzPgSZnzdnRdRbd1g5mt4+5km1eaphRk/1S1m+ZAw40uY8SXM+HKDmZlYqWmXUWlIKsXTD0mliEUhZQPJUYXbq8N+WKf2lHWCmT+xgl9mOyJVXYkoSz7QwbKB5MjCN6rtp6qRP0ypvWWdYEYOb/NltiNSKZ5+WKqe0xkoG0iOLoxzh5E/TKm9ZZ1gRhMr5stsR6RSPP2wVIIyWDaQHF1Yqcv1yB+m1N6yTjCLb2dK+eFy+lLj2Fl0YVysP8TOKGRPt6wTzBjPs4HQaZznWWRhimcU9cOU2lvWCWY0sVLTAYr0R1RqbTAOTCcVg6wNtps9yZGFa54fHikytbesG8zyJWHGlzDjS5jxJcz4EmZ8ucrscKlw8vPlwKG95cMzW5hEn715+w/4RxrF0NRhPxsns6PMDpeW1cFcgJnePXpxMPPeTPiFHi4Vh6T2yJw07NxhcpTZ3ix9Ha0VTl5r3LU2swVbBbSzRmEWPrvHD+YKy0cXtzDrifW9mQ9ht3Hv3KNnKKFx3xKUvLh1uHRiHc5Gu7gNOX78vbXCo0szHy0VG5CvMEvZ+84dVTlXmRX9r83vI4xl3FoGk3n/FBpOz3FIIWbq4JQ6+C3s3rd08hpmgYQGfM1C6qfrjVk0O9yF7W8tnfyCCEMmuH33lvGkkL3/3FGVc5WZtrPNZdWYPcArencdPuDyYQc+u8fVZsEwU++uv7eFu4ABj+itg1OYvQCmQ4+3g1O4/TluKMJFH7CD2QfOHSFHmeHzDKwM0DWKVP9NuLaZP/nMeo537Ewd3PMI2qJhZrYo9dN1OikY214RtxtdZniSmQ9PUcH+c0dVzlFm8MQvFIr6ebZ54ndLJ/+5VMAHTvFwaRY+u8ffL9wz88eCvpPBzPYK95z4DjywCsU9SigAACxUQLttoLnB9l1w520WHluDp5k+L5wUs3/Ud+5rEXVzlVkWahTtnGeKmGHLauVEU8TMmtxhxuqvg8yTP0KNWVu/g0UeCjza3GEWpYje+dGvh91oR2uRzJKoEWgP3GEGf/8D3Tnf0v136o/fO/cj00nHnjk0ekW/Uw/9BZMdj3SyKBqrFiFNDxL8ctDH1wVxMGEydtL9oQY0o53RROD3Ah0Pd5hB98t0zh+lDjv2x7FPrzvpfq9fKd2phx7skd+XxyOdLHgm+Dj4th4k6IONIpilKWh+R2fU6Y91hhpFfzTR93uBW90dZrqT73fOocOO/XHd+zSddBoNKNOph00/Ox3xsyhKUp1BAm3oPpcuqH9HG46fbrrHiGZz+YNrg7+HlejITWaz/hhAMzOddP/vTtnhCv3seKSTRRk78wcJtNHAw6ZgD7NOuj75LN3wc8WQ33PUzqAL7nfOP8c/LdoGDqVNJ/2HZjQw63fq4dK6fflulmv0PJvtDBLo4D/mCt2C8DsmY6fQb/DjizWyw8+21ODvOfo861GcDvvwdrNP/9mK7Rw7fDjk4MF33Ww3u4rXYR/ePwsKnkkxxwCbYW6z3PXP3JMw40uY8SXM+BJmfP0f3fFEsOZO2WMAAAAASUVORK5CYII=" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVtYVd4bGJtRnRaU0E5SUZ3aVVIUnpRVUprUVc1dWIzbE5ia1JwWm1aV1lYSnpRMjl1VUdWeWJXbHRjREZ3WTA1M1hDSmNibHh1YVdZZ0tITmhkbVZ3Ykc5MGN5bDdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDF3WVhOMFpTaG1hV3hsYm1GdFpTd2dYQ0l1YzNablhDSXBMQ0IzYVdSMGFEMDBMQ0JvWldsbmFIUTlOQ3dnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWENKemRtZGNJaWtwWEc0Z0lIVnViR2x1YXlod1lYTjBaU2htYVd4bGJtRnRaU3dnWENJdWMzWm5YQ0lwS1Z4dVhHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMXdZWE4wWlNobWFXeGxibUZ0WlN3Z1hDSXVjR1JtWENJcExDQjNhV1IwYUQwMExDQm9aV2xuYUhROU5Dd2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p3WkdaY0lpa3BYRzRnSUhWdWJHbHVheWh3WVhOMFpTaG1hV3hsYm1GdFpTd2dYQ0l1YzNablhDSXBLVnh1ZlZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5maWxlbmFtZSA9IFxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcDFwY053XFxcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1wYXN0ZShmaWxlbmFtZSwgXFwuc3ZnXFwpLCB3aWR0aD00LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhwYXN0ZShmaWxlbmFtZSwgXFwuc3ZnXFwpKVxuXG4gIGdnc2F2ZShmaWxlbmFtZT1wYXN0ZShmaWxlbmFtZSwgXFwucGRmXFwpLCB3aWR0aD00LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhwYXN0ZShmaWxlbmFtZSwgXFwuc3ZnXFwpKVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
filename = \PtsABdAnnoyMnDiffVarsConPermimp1pcNw\
if (saveplots){
ggsave(filename=paste(filename, \.svg\), width=4, height=4, path=file.path(outFigPath, \svg\))
unlink(paste(filename, \.svg\))
ggsave(filename=paste(filename, \.pdf\), width=4, height=4, path=file.path(outFigPath, \pdf\))
unlink(paste(filename, \.svg\))
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNW1hV3hsYm1GdFpTQTlJRnhjVUhSelFVSmtRVzV1YjNsTmJrUnBabVpXWVhKelEyOXVVR1Z5YldsdGNERndZMDUzWEZ4Y2JseHVhV1lnS0hOaGRtVndiRzkwY3lsN1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMXdZWE4wWlNobWFXeGxibUZ0WlN3Z1hGd3VjM1puWEZ3cExDQjNhV1IwYUQwMExDQm9aV2xuYUhROU5Dd2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYRnh6ZG1kY1hDa3BYRzRnSUhWdWJHbHVheWh3WVhOMFpTaG1hV3hsYm1GdFpTd2dYRnd1YzNablhGd3BLVnh1WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxd1lYTjBaU2htYVd4bGJtRnRaU3dnWEZ3dWNHUm1YRndwTENCM2FXUjBhRDAwTENCb1pXbG5hSFE5TkN3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHdaR1pjWENrcFhHNGdJSFZ1YkdsdWF5aHdZWE4wWlNobWFXeGxibUZ0WlN3Z1hGd3VjM1puWEZ3cEtWeHVmVnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5maWxlbmFtZSA9IFxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcDFwY053XFxcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1wYXN0ZShmaWxlbmFtZSwgXFwuc3ZnXFwpLCB3aWR0aD00LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhwYXN0ZShmaWxlbmFtZSwgXFwuc3ZnXFwpKVxuXG4gIGdnc2F2ZShmaWxlbmFtZT1wYXN0ZShmaWxlbmFtZSwgXFwucGRmXFwpLCB3aWR0aD00LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhwYXN0ZShmaWxlbmFtZSwgXFwuc3ZnXFwpKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5maWxlbmFtZSA9IFxcUHRzQUJkQW5ub3lNbkRpZmZWYXJzQ29uUGVybWltcDFwY053XFxcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1wYXN0ZShmaWxlbmFtZSwgXFwuc3ZnXFwpLCB3aWR0aD00LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhwYXN0ZShmaWxlbmFtZSwgXFwuc3ZnXFwpKVxuXG4gIGdnc2F2ZShmaWxlbmFtZT1wYXN0ZShmaWxlbmFtZSwgXFwucGRmXFwpLCB3aWR0aD00LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhwYXN0ZShmaWxlbmFtZSwgXFwuc3ZnXFwpKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
filename = \PtsABdAnnoyMnDiffVarsConPermimp1pcNw\
if (saveplots){
ggsave(filename=paste(filename, \.svg\), width=4, height=4, path=file.path(outFigPath, \svg\))
unlink(paste(filename, \.svg\))
ggsave(filename=paste(filename, \.pdf\), width=4, height=4, path=file.path(outFigPath, \pdf\))
unlink(paste(filename, \.svg\))
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVrYVdabVZtRnlJRHd0SUZ3aVRFRkZURUZHTlRCa2FXWm1YQ0pjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbmRpZmZWYXIgPC0gXFxMQUVMQUY1MGRpZmZcXFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
diffVar <- \LAELAF50diff\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWthV1ptVm1GeUlEd3RJRnhjVEVGRlRFRkdOVEJrYVdabVhGeGNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG5kaWZmVmFyIDwtIFxcTEFFTEFGNTBkaWZmXFxcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5kaWZmVmFyIDwtIFxcTEFFTEFGNTBkaWZmXFxcblxuYGBgXG5gYGAifQ== -->
```r
```r
diffVar <- \LAELAF50diff\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
### dSQM analysis
The ambient-only stimuli are NOT replaced here, as the difference analysis includes dB metrics.
#### Individual SQMs
##### dSharpness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dScFptWldZWElzSUdWMlpXNTBWbUZ5TENCY0ltUlRhR0Z5Y0VGMWNrbFRUek5RYjNkQmRtZE5ZWGhNVWx3aUxDQmNJbVJUYUdGeWNFRjFja2xUVHpNd05VVjRUV0Y0VEZKY0lpd2dYQ0prVTJoaGNuQkJkWEpUU0UxUWIzZEJkbWROWVhoTVVsd2lMQ0JjSW1SVGFHRnljRUYxY2xOSVRUQTFSWGhOWVhoTVVsd2lLVnh1WkZaaGNpQThMU0JjSW1SQmJtNXZlVTFsWVc1Y0lseHVYRzV6WldWa2N5QThMU0JqS0RnME1UazBMQ0E1TURVc0lEWTBPREUxTENBNU1qZ3dOVFFzSURZeU5UQTVNU2xjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbmlWYXJzIDwtIGMoZGlmZlZhciwgZXZlbnRWYXIsIFxcZFNoYXJwQXVySVNPM1Bvd0F2Z01heExSXFwsIFxcZFNoYXJwQXVySVNPMzA1RXhNYXhMUlxcLCBcXGRTaGFycEF1clNITVBvd0F2Z01heExSXFwsIFxcZFNoYXJwQXVyU0hNMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoODQxOTQsIDkwNSwgNjQ4MTUsIDkyODA1NCwgNjI1MDkxKVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
iVars <- c(diffVar, eventVar, \dSharpAurISO3PowAvgMaxLR\, \dSharpAurISO305ExMaxLR\, \dSharpAurSHMPowAvgMaxLR\, \dSharpAurSHM05ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(84194, 905, 64815, 928054, 625091)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR1JwWm1aV1lYSXNJR1YyWlc1MFZtRnlMQ0JjWEdSVGFHRnljRUYxY2tsVFR6TlFiM2RCZG1kTllYaE1VbHhjTENCY1hHUlRhR0Z5Y0VGMWNrbFRUek13TlVWNFRXRjRURkpjWEN3Z1hGeGtVMmhoY25CQmRYSlRTRTFRYjNkQmRtZE5ZWGhNVWx4Y0xDQmNYR1JUYUdGeWNFRjFjbE5JVFRBMVJYaE5ZWGhNVWx4Y0tWeHVaRlpoY2lBOExTQmNYR1JCYm01dmVVMWxZVzVjWEZ4dVhHNXpaV1ZrY3lBOExTQmpLRGcwTVRrMExDQTVNRFVzSURZME9ERTFMQ0E1TWpnd05UUXNJRFl5TlRBNU1TbGNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRTaGFycEF1cklTTzNQb3dBdmdNYXhMUlxcLCBcXGRTaGFycEF1cklTTzMwNUV4TWF4TFJcXCwgXFxkU2hhcnBBdXJTSE1Qb3dBdmdNYXhMUlxcLCBcXGRTaGFycEF1clNITTA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDg0MTk0LCA5MDUsIDY0ODE1LCA5MjgwNTQsIDYyNTA5MSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRTaGFycEF1cklTTzNQb3dBdmdNYXhMUlxcLCBcXGRTaGFycEF1cklTTzMwNUV4TWF4TFJcXCwgXFxkU2hhcnBBdXJTSE1Qb3dBdmdNYXhMUlxcLCBcXGRTaGFycEF1clNITTA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDg0MTk0LCA5MDUsIDY0ODE1LCA5MjgwNTQsIDYyNTA5MSlcblxuYGBgXG5gYGAifQ== -->
```r
```r
iVars <- c(diffVar, eventVar, \dSharpAurISO3PowAvgMaxLR\, \dSharpAurISO305ExMaxLR\, \dSharpAurSHMPowAvgMaxLR\, \dSharpAurSHM05ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(84194, 905, 64815, 928054, 625091)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMVEkxTVZ4dWJYUnllU0E4TFNCaGN5NXBiblJsWjJWeUtHeGxibWQwYUNocFZtRnljeWt2TVM0M05TbGNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxubnRyZWUgPC0yNTFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <-251
mtry <- as.integer(length(iVars)/1.75)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExUSTFNVnh1YlhSeWVTQThMU0JoY3k1cGJuUmxaMlZ5S0d4bGJtZDBhQ2hwVm1GeWN5a3ZNUzQzTlNsY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtMjUxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjc1KVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LTI1MVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS43NSlcblxuYGBgXG5gYGAifQ== -->
```r
```r
ntree <-251
mtry <- as.integer(length(iVars)/1.75)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlRhR0Z5Y0NBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJUYUdGeWNDUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRk5vWVhKd0pFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTaGFycCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc3VsdHNPdXRTaGFycCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutSharp <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
resultsOutSharp$OOB_MAE
resultsOutSharp$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSVGFHRnljQ0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3SkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSVGFHRnljQ1JTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTaGFycCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc3VsdHNPdXRTaGFycCRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTaGFycCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc3VsdHNPdXRTaGFycCRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutSharp <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
resultsOutSharp$OOB_MAE
resultsOutSharp$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVTJoaGNuQWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3SkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFUyaGhjbkFrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZOb1lYSndKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dFNoYXJwIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc3VsdHNPdXRTaGFycCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutSharp <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
resultsOutSharp$OOB_MAE
resultsOutSharp$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVMmhoY25BZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZOb1lYSndKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwVTJoaGNuQWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRk5vWVhKd0pGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRTaGFycCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U2hhcnAkT09CX1JNU0VcbnJlc3VsdHNPdXRTaGFycCRPT0JfTUFFXG5yZXN1bHRzT3V0U2hhcnAkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0U2hhcnAgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFNoYXJwJE9PQl9STVNFXG5yZXN1bHRzT3V0U2hhcnAkT09CX01BRVxucmVzdWx0c091dFNoYXJwJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSharp <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
resultsOutSharp$OOB_MAE
resultsOutSharp$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEc5eVpTQnlaWE4xYkhSelhHNXlaWE5rUVc1dWIzbE5ia1pwZEVGQ1d5ZEVhV1ptSUhOb1lYSndKeXdnSjFKTlUwVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFUyaGhjbkFrVDA5Q1gxSk5VMFZjYm5KbGMyUkJibTV2ZVUxdVJtbDBRVUpiSjBScFptWWdjMmhoY25BbkxDQW5UVUZGSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRk5vWVhKd0pFOVBRbDlOUVVWY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowUnBabVlnYzJoaGNuQW5MQ0FuVW5OeGRXRnlaV1FuWFNBOExTQnlaWE4xYkhSelQzVjBVMmhoY25Ba1VuTnhkV0Z5WldSY2JuSmxjMlJCYm01dmVVMXVVR1Z5YlVsdGNFRkNKRVJwWm1aVGFHRnljQ0E4TFNCeVpYTjFiSFJ6VDNWMFUyaGhjbkFrWTI5dVpHbDBhVzl1WVd4ZmNHVnliV2x0Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIHNoYXJwJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U2hhcnAkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgc2hhcnAnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgc2hhcnAnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U2hhcnAkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJERpZmZTaGFycCA8LSByZXN1bHRzT3V0U2hhcnAkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdAnnoyMnFitAB['Diff sharp', 'RMSE'] <- resultsOutSharp$OOB_RMSE
resdAnnoyMnFitAB['Diff sharp', 'MAE'] <- resultsOutSharp$OOB_MAE
resdAnnoyMnFitAB['Diff sharp', 'Rsquared'] <- resultsOutSharp$Rsquared
resdAnnoyMnPermImpAB$DiffSharp <- resultsOutSharp$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkRzl5WlNCeVpYTjFiSFJ6WEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkRWFXWm1JSE5vWVhKd0p5d2dKMUpOVTBVblhTQThMU0J5WlhOMWJIUnpUM1YwVTJoaGNuQWtUMDlDWDFKTlUwVmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMFJwWm1ZZ2MyaGhjbkFuTENBblRVRkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRGTm9ZWEp3SkU5UFFsOU5RVVZjYm5KbGMyUkJibTV2ZVUxdVJtbDBRVUpiSjBScFptWWdjMmhoY25BbkxDQW5Vbk54ZFdGeVpXUW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFUyaGhjbkFrVW5OeGRXRnlaV1JjYm5KbGMyUkJibTV2ZVUxdVVHVnliVWx0Y0VGQ0pFUnBabVpUYUdGeWNDQThMU0J5WlhOMWJIUnpUM1YwVTJoaGNuQWtZMjl1WkdsMGFXOXVZV3hmY0dWeWJXbHRjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIHNoYXJwJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U2hhcnAkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgc2hhcnAnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgc2hhcnAnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U2hhcnAkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJERpZmZTaGFycCA8LSByZXN1bHRzT3V0U2hhcnAkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIHNoYXJwJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U2hhcnAkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgc2hhcnAnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgc2hhcnAnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U2hhcnAkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJERpZmZTaGFycCA8LSByZXN1bHRzT3V0U2hhcnAkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# store results
resdAnnoyMnFitAB['Diff sharp', 'RMSE'] <- resultsOutSharp$OOB_RMSE
resdAnnoyMnFitAB['Diff sharp', 'MAE'] <- resultsOutSharp$OOB_MAE
resdAnnoyMnFitAB['Diff sharp', 'Rsquared'] <- resultsOutSharp$Rsquared
resdAnnoyMnPermImpAB$DiffSharp <- resultsOutSharp$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRk5vWVhKd0xtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJUYUdGeWNDNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVGFHRnljQzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRk5vWVhKd0xtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTWwwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9iV1ZoYmlCamFHRnVaMlVnYVc0Z1lXNXViM2xoYm1ObEtWd2lLU0FySUdkbmRHbDBiR1VvWENKa1UyaGhjbkJ1WlhOelhDSXBJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjSW5ObGNtbG1YQ0lwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJJR052YjNKa1gyWnNhWEFvS1Z4dWNFSmhjbHh1WEc1cFppQW9jMkYyWlhCc2IzUnpLWHRjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ3aVVIUnpRVUprUVc1dWIzbE5ibVJUYUdGeWNFTnZibEJsY20xcGJYQXVjM1puWENJc0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQweUxqWXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpYzNablhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJCYm01dmVVMXVaRk5vWVhKd1EyOXVVR1Z5YldsdGNDNXpkbWRjSWlsY2JpQWdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjSWxCMGMwRkNaRUZ1Ym05NVRXNWtVMmhoY25CRGIyNVFaWEp0YVcxd0xuQmtabHdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWk0MkxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNJbkJrWmx3aUtTbGNiaUFnZFc1c2FXNXJLRndpVUhSelFVSmtRVzV1YjNsTmJtUlRhR0Z5Y0VOdmJsQmxjbTFwYlhBdWNHUm1YQ0lwWEc1OVhHNWNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRTaGFycC5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0U2hhcnAkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0U2hhcnAuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0U2hhcnAuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRTaGFycC5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzJdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyBnZ3RpdGxlKFxcZFNoYXJwbmVzc1xcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5kU2hhcnBDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi42LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbmRTaGFycENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uZFNoYXJwQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5kU2hhcnBDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSharp.conimp <- arrange(resultsOutSharp$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSharp.conimp) + geom_col(aes(x=factor(rownames(resultsOutSharp.conimp), levels=rownames(resultsOutSharp.conimp)), y=CondPermImp), fill=mycolours[2], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\dSharpness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMndSharpConPermimp.svg\, width=8, height=2.6, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMndSharpConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMndSharpConPermimp.pdf\, width=8, height=2.6, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMndSharpConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3TG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSVGFHRnljQ1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlRhR0Z5Y0M1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJUYUdGeWNDNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGTm9ZWEp3TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJNbDBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb2JXVmhiaUJqYUdGdVoyVWdhVzRnWVc1dWIzbGhibU5sS1Z4Y0tTQXJJR2RuZEdsMGJHVW9YRnhrVTJoaGNuQnVaWE56WEZ3cElDc2dkR2hsYldVb2RHVjRkQ0E5SUdWc1pXMWxiblJmZEdWNGRDaG1ZVzFwYkhrZ1BTQmNYSE5sY21sbVhGd3BMQ0J3WVc1bGJDNW5jbWxrUFdWc1pXMWxiblJmYkdsdVpTaGpiMnh2Y2lBOUlISm5ZaWd5TXpVc0lESXpOU3dnTWpNMUxDQXhNREFzSUcxaGVFTnZiRzl5Vm1Gc2RXVWdQU0F5TlRVcExDQnNhVzVsZDJsa2RHZ2dQU0F3TGpJMUxDQnNhVzVsZEhsd1pTQTlJRElwS1NBcklHTnZiM0prWDJac2FYQW9LVnh1Y0VKaGNseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVnhjVUhSelFVSmtRVzV1YjNsTmJtUlRhR0Z5Y0VOdmJsQmxjbTFwYlhBdWMzWm5YRndzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB5TGpZc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjM1puWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUkJibTV2ZVUxdVpGTm9ZWEp3UTI5dVVHVnliV2x0Y0M1emRtZGNYQ2xjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNYRkIwYzBGQ1pFRnVibTk1VFc1a1UyaGhjbkJEYjI1UVpYSnRhVzF3TG5Ca1pseGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNaTQyTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY1hIQmtabHhjS1NsY2JpQWdkVzVzYVc1cktGeGNVSFJ6UVVKa1FXNXViM2xOYm1SVGFHRnljRU52YmxCbGNtMXBiWEF1Y0dSbVhGd3BYRzU5WEc1Y2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0U2hhcnAuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFNoYXJwJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dFNoYXJwLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dFNoYXJwLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0U2hhcnAuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1syXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgZ2d0aXRsZShcXGRTaGFycG5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uZFNoYXJwQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5kU2hhcnBDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbmRTaGFycENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjYsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uZFNoYXJwQ29uUGVybWltcC5wZGZcXClcbn1cblxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNoYXJwLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTaGFycCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTaGFycC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTaGFycC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNoYXJwLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbMl0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxkU2hhcnBuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbmRTaGFycENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjYsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uZFNoYXJwQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5kU2hhcnBDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi42LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbmRTaGFycENvblBlcm1pbXAucGRmXFwpXG59XG5cblxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSharp.conimp <- arrange(resultsOutSharp$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSharp.conimp) + geom_col(aes(x=factor(rownames(resultsOutSharp.conimp), levels=rownames(resultsOutSharp.conimp)), y=CondPermImp), fill=mycolours[2], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\dSharpness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMndSharpConPermimp.svg\, width=8, height=2.6, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMndSharpConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMndSharpConPermimp.pdf\, width=8, height=2.6, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMndSharpConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVrVTJoaGNuQldZWElnUEMwZ1hDSmtVMmhoY25CQmRYSkpVMDh6VUc5M1FYWm5UV0Y0VEZKY0lseHVYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcblxuZFNoYXJwVmFyIDwtIFxcZFNoYXJwQXVySVNPM1Bvd0F2Z01heExSXFxcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
dSharpVar <- \dSharpAurISO3PowAvgMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWtVMmhoY25CV1lYSWdQQzBnWEZ4a1UyaGhjbkJCZFhKSlUwOHpVRzkzUVhablRXRjRURkpjWEZ4dVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcblxuZFNoYXJwVmFyIDwtIFxcZFNoYXJwQXVySVNPM1Bvd0F2Z01heExSXFxcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5kU2hhcnBWYXIgPC0gXFxkU2hhcnBBdXJJU08zUG93QXZnTWF4TFJcXFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
dSharpVar <- \dSharpAurISO3PowAvgMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### dTonal loudness and dtonality
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dScFptWldZWElzSUdWMlpXNTBWbUZ5TENCY0ltUlViMjVoYkVWRFRVRkJkbWROWVhoTVVsd2lMQ0JjSW1SVWIyNWhiRk5JVFVsdWREQTFSWGhOWVhoTVVsd2lMQ0JjSW1SVWIyNWhiRk5JVFVsdWRFRjJaMDFoZUV4U1hDSXNJRndpWkZSdmJtRnNSVU5OUVRBMVJYaE5ZWGhNVWx3aUxDQmNJbVJVYjI1TVpFVkRUVUZRYjNkQmRtZENhVzVjSWl3Z1hDSmtWRzl1VEdSRlEwMUJNRFZGZUVKcGJsd2lLVnh1WkZaaGNpQThMU0JjSW1SQmJtNXZlVTFsWVc1Y0lseHVYRzV6WldWa2N5QThMU0JqS0RVMk1UWTROQ3dnTVRBME56azRMQ0F4TlRNMkxDQTBPQ3dnTkRnMU5qRXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgXFxkVG9uYWxFQ01BQXZnTWF4TFJcXCwgXFxkVG9uYWxTSE1JbnQwNUV4TWF4TFJcXCwgXFxkVG9uYWxTSE1JbnRBdmdNYXhMUlxcLCBcXGRUb25hbEVDTUEwNUV4TWF4TFJcXCwgXFxkVG9uTGRFQ01BUG93QXZnQmluXFwsIFxcZFRvbkxkRUNNQTA1RXhCaW5cXClcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYyg1NjE2ODQsIDEwNDc5OCwgMTUzNiwgNDgsIDQ4NTYxKVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
iVars <- c(diffVar, eventVar, \dTonalECMAAvgMaxLR\, \dTonalSHMInt05ExMaxLR\, \dTonalSHMIntAvgMaxLR\, \dTonalECMA05ExMaxLR\, \dTonLdECMAPowAvgBin\, \dTonLdECMA05ExBin\)
dVar <- \dAnnoyMean\
seeds <- c(561684, 104798, 1536, 48, 48561)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR1JwWm1aV1lYSXNJR1YyWlc1MFZtRnlMQ0JjWEdSVWIyNWhiRVZEVFVGQmRtZE5ZWGhNVWx4Y0xDQmNYR1JVYjI1aGJGTklUVWx1ZERBMVJYaE5ZWGhNVWx4Y0xDQmNYR1JVYjI1aGJGTklUVWx1ZEVGMlowMWhlRXhTWEZ3c0lGeGNaRlJ2Ym1Gc1JVTk5RVEExUlhoTllYaE1VbHhjTENCY1hHUlViMjVNWkVWRFRVRlFiM2RCZG1kQ2FXNWNYQ3dnWEZ4a1ZHOXVUR1JGUTAxQk1EVkZlRUpwYmx4Y0tWeHVaRlpoY2lBOExTQmNYR1JCYm01dmVVMWxZVzVjWEZ4dVhHNXpaV1ZrY3lBOExTQmpLRFUyTVRZNE5Dd2dNVEEwTnprNExDQXhOVE0yTENBME9Dd2dORGcxTmpFcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbmlWYXJzIDwtIGMoZGlmZlZhciwgZXZlbnRWYXIsIFxcZFRvbmFsRUNNQUF2Z01heExSXFwsIFxcZFRvbmFsU0hNSW50MDVFeE1heExSXFwsIFxcZFRvbmFsU0hNSW50QXZnTWF4TFJcXCwgXFxkVG9uYWxFQ01BMDVFeE1heExSXFwsIFxcZFRvbkxkRUNNQVBvd0F2Z0JpblxcLCBcXGRUb25MZEVDTUEwNUV4QmluXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoNTYxNjg0LCAxMDQ3OTgsIDE1MzYsIDQ4LCA0ODU2MSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRUb25hbEVDTUFBdmdNYXhMUlxcLCBcXGRUb25hbFNITUludDA1RXhNYXhMUlxcLCBcXGRUb25hbFNITUludEF2Z01heExSXFwsIFxcZFRvbmFsRUNNQTA1RXhNYXhMUlxcLCBcXGRUb25MZEVDTUFQb3dBdmdCaW5cXCwgXFxkVG9uTGRFQ01BMDVFeEJpblxcKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDU2MTY4NCwgMTA0Nzk4LCAxNTM2LCA0OCwgNDg1NjEpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
iVars <- c(diffVar, eventVar, \dTonalECMAAvgMaxLR\, \dTonalSHMInt05ExMaxLR\, \dTonalSHMIntAvgMaxLR\, \dTonalECMA05ExMaxLR\, \dTonLdECMAPowAvgBin\, \dTonLdECMA05ExBin\)
dVar <- \dAnnoyMean\
seeds <- c(561684, 104798, 1536, 48, 48561)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F4TlRBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDE1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 1501
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXhOVEF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDE1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAxNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 1501
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlU0IzYVhSb0lIUnZibUZzSUd4dmRXUnVaWE56WEc1Y2JtNXdaWEp0SUR3dElEVmNibHh1Y21WemRXeDBjMDkxZEZSdmJtRnNNU0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRFa1QwOUNYMUpOVTBWY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRFa1QwOUNYMDFCUlZ4dWNtVnpkV3gwYzA5MWRGUnZibUZzTVNSU2MzRjFZWEpsWkZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG4jIFRvbmFsaXR5IHdpdGggdG9uYWwgbG91ZG5lc3NcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0VG9uYWwxIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFRvbmFsMSRPT0JfUk1TRVxucmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5yZXN1bHRzT3V0VG9uYWwxJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Tonality with tonal loudness
nperm <- 5
resultsOutTonal1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
resultsOutTonal1$OOB_MAE
resultsOutTonal1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVTQjNhWFJvSUhSdmJtRnNJR3h2ZFdSdVpYTnpYRzVjYm01d1pYSnRJRHd0SURWY2JseHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TQThMU0JqY21aU1pXY29aR0YwWVVsdVBYTjBhVzFFWVhSaFRuVnRMQ0JwVm1GeWN6MXBWbUZ5Y3l3Z1pGWmhjajFrVm1GeUxDQnpaV1ZrY3oxelpXVmtjMXN4T2pKZExDQnVkSEpsWlQxdWRISmxaU3dnYlhSeWVUMXRkSEo1TENCd1pYSnRTVzF3UTI5dVpGUm9jbVZ6UFhCbGNtMUpiWEJEYjI1a1ZHaHlaWE1zSUc1d1pYSnRQVzV3WlhKdExDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYmx4dUl5QndjbWx1ZENCdGIyUmxiQ0J3Y21Wa2FXTjBhVzl1SUhKbGMzVnNkSE5jYm5KbGMzVnNkSE5QZFhSVWIyNWhiREVrVDA5Q1gxSk5VMFZjYm5KbGMzVnNkSE5QZFhSVWIyNWhiREVrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZSdmJtRnNNU1JTYzNGMVlYSmxaRnh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuIyBUb25hbGl0eSB3aXRoIHRvbmFsIGxvdWRuZXNzXG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dFRvbmFsMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDEkT09CX01BRVxucmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eSB3aXRoIHRvbmFsIGxvdWRuZXNzXG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dFRvbmFsMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDEkT09CX01BRVxucmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxuYGBgXG5gYGAifQ== -->
```r
```r
# Tonality with tonal loudness
nperm <- 5
resultsOutTonal1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
resultsOutTonal1$OOB_MAE
resultsOutTonal1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlU0IzYVhSb0lIUnZibUZzSUd4dmRXUnVaWE56WEc1Y2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRFZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZSdmJtRnNNU1JQVDBKZlVrMVRSVnh1Y21WemRXeDBjMDkxZEZSdmJtRnNNU1JQVDBKZlRVRkZYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3hKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbiMgVG9uYWxpdHkgd2l0aCB0b25hbCBsb3VkbmVzc1xuXG5yZXN1bHRzT3V0VG9uYWwxIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDEkT09CX01BRVxucmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Tonality with tonal loudness
resultsOutTonal1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
resultsOutTonal1$OOB_MAE
resultsOutTonal1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVTQjNhWFJvSUhSdmJtRnNJR3h2ZFdSdVpYTnpYRzVjYm5KbGMzVnNkSE5QZFhSVWIyNWhiREVnUEMwZ2JYVnNkR2xmWTNKbVVtVm5LR1JoZEdGSmJqMXpkR2x0UkdGMFlVNTFiU3dnYVZaaGNuTTlhVlpoY25Nc0lHUldZWEk5WkZaaGNpd2djMlZsWkhNOWMyVmxaSE1zSUc1MGNtVmxQVzUwY21WbExDQnRkSEo1UFcxMGNua3NJSEJsY20xSmJYQkRiMjVrVkdoeVpYTTljR1Z5YlVsdGNFTnZibVJVYUhKbGN5d2dibkJsY20wOWJuQmxjbTBzSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVYRzRqSUhCeWFXNTBJRzF2WkdWc0lIQnlaV1JwWTNScGIyNGdjbVZ6ZFd4MGMxeHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TUlBUMEpmVFVGRlhHNXlaWE4xYkhSelQzVjBWRzl1WVd3eEpGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG4jIFRvbmFsaXR5IHdpdGggdG9uYWwgbG91ZG5lc3NcblxucmVzdWx0c091dFRvbmFsMSA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwxJE9PQl9STVNFXG5yZXN1bHRzT3V0VG9uYWwxJE9PQl9NQUVcbnJlc3VsdHNPdXRUb25hbDEkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eSB3aXRoIHRvbmFsIGxvdWRuZXNzXG5cbnJlc3VsdHNPdXRUb25hbDEgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFRvbmFsMSRPT0JfUk1TRVxucmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5yZXN1bHRzT3V0VG9uYWwxJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# Tonality with tonal loudness
resultsOutTonal1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
resultsOutTonal1$OOB_MAE
resultsOutTonal1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEc5eVpTQnlaWE4xYkhSelhHNXlaWE5rUVc1dWIzbE5ia1pwZEVGQ1d5ZEVhV1ptSUhSdmJtRnNJR2x1WXlCc2IzVmtKeXdnSjFKTlUwVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFZHOXVZV3d4SkU5UFFsOVNUVk5GWEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkRWFXWm1JSFJ2Ym1Gc0lHbHVZeUJzYjNWa0p5d2dKMDFCUlNkZElEd3RJSEpsYzNWc2RITlBkWFJVYjI1aGJERWtUMDlDWDAxQlJWeHVjbVZ6WkVGdWJtOTVUVzVHYVhSQlFsc25SR2xtWmlCMGIyNWhiQ0JwYm1NZ2JHOTFaQ2NzSUNkU2MzRjFZWEpsWkNkZElEd3RJSEpsYzNWc2RITlBkWFJVYjI1aGJERWtVbk54ZFdGeVpXUmNibkpsYzJSQmJtNXZlVTF1VUdWeWJVbHRjRUZDSkVScFptWlViMjVoYkRFZ1BDMGdjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TUmpiMjVrYVhScGIyNWhiRjl3WlhKdGFXMXdYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbiMgc3RvcmUgcmVzdWx0c1xucmVzZEFubm95TW5GaXRBQlsnRGlmZiB0b25hbCBpbmMgbG91ZCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFRvbmFsMSRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnRGlmZiB0b25hbCBpbmMgbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0VG9uYWwxJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgdG9uYWwgaW5jIGxvdWQnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0VG9uYWwxJFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiREaWZmVG9uYWwxIDwtIHJlc3VsdHNPdXRUb25hbDEkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdAnnoyMnFitAB['Diff tonal inc loud', 'RMSE'] <- resultsOutTonal1$OOB_RMSE
resdAnnoyMnFitAB['Diff tonal inc loud', 'MAE'] <- resultsOutTonal1$OOB_MAE
resdAnnoyMnFitAB['Diff tonal inc loud', 'Rsquared'] <- resultsOutTonal1$Rsquared
resdAnnoyMnPermImpAB$DiffTonal1 <- resultsOutTonal1$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkRzl5WlNCeVpYTjFiSFJ6WEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkRWFXWm1JSFJ2Ym1Gc0lHbHVZeUJzYjNWa0p5d2dKMUpOVTBVblhTQThMU0J5WlhOMWJIUnpUM1YwVkc5dVlXd3hKRTlQUWw5U1RWTkZYRzV5WlhOa1FXNXViM2xOYmtacGRFRkNXeWRFYVdabUlIUnZibUZzSUdsdVl5QnNiM1ZrSnl3Z0owMUJSU2RkSUR3dElISmxjM1ZzZEhOUGRYUlViMjVoYkRFa1QwOUNYMDFCUlZ4dWNtVnpaRUZ1Ym05NVRXNUdhWFJCUWxzblJHbG1aaUIwYjI1aGJDQnBibU1nYkc5MVpDY3NJQ2RTYzNGMVlYSmxaQ2RkSUR3dElISmxjM1ZzZEhOUGRYUlViMjVoYkRFa1VuTnhkV0Z5WldSY2JuSmxjMlJCYm01dmVVMXVVR1Z5YlVsdGNFRkNKRVJwWm1aVWIyNWhiREVnUEMwZ2NtVnpkV3gwYzA5MWRGUnZibUZzTVNSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgdG9uYWwgaW5jIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgdG9uYWwgaW5jIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIHRvbmFsIGluYyBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZlRvbmFsMSA8LSByZXN1bHRzT3V0VG9uYWwxJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIHRvbmFsIGluYyBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0VG9uYWwxJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIHRvbmFsIGluYyBsb3VkJywgJ01BRSddIDwtIHJlc3VsdHNPdXRUb25hbDEkT09CX01BRVxucmVzZEFubm95TW5GaXRBQlsnRGlmZiB0b25hbCBpbmMgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRUb25hbDEkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJERpZmZUb25hbDEgPC0gcmVzdWx0c091dFRvbmFsMSRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# store results
resdAnnoyMnFitAB['Diff tonal inc loud', 'RMSE'] <- resultsOutTonal1$OOB_RMSE
resdAnnoyMnFitAB['Diff tonal inc loud', 'MAE'] <- resultsOutTonal1$OOB_MAE
resdAnnoyMnFitAB['Diff tonal inc loud', 'Rsquared'] <- resultsOutTonal1$Rsquared
resdAnnoyMnPermImpAB$DiffTonal1 <- resultsOutTonal1$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3WVhJb2JXRnBQV01vTUN3ekxEQXNNQ2twWEc1Y2JpTWdjR3h2ZENCamIyNWthWFJwYjI1aGJDQnBiWEJ2Y25SaGJtTmxYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3hMbU52Ym1sdGNDQThMU0JoY25KaGJtZGxLSEpsYzNWc2RITlBkWFJVYjI1aGJERWtZMjl1WkdsMGFXOXVZV3hmY0dWeWJXbHRjQ3dnWkdWell5aHliM2RmYm5WdFltVnlLQ2twS1Z4dVhHNXdRbUZ5SUR3dElHZG5jR3h2ZENoeVpYTjFiSFJ6VDNWMFZHOXVZV3d4TG1OdmJtbHRjQ2tnS3lCblpXOXRYMk52YkNoaFpYTW9lRDFtWVdOMGIzSW9jbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGUnZibUZzTVM1amIyNXBiWEFwS1N3Z2VUMURiMjVrVUdWeWJVbHRjQ2tzSUdacGJHdzliWGxqYjJ4dmRYSnpXek5kTENCM2FXUjBhRDB3TGpVcElDc2diR0ZpY3loNFBWd2lWbUZ5YVdGaWJHVmNJaXdnZVQxY0lrTnZibVJwZEdsdmJtRnNJSFpoY21saFlteGxJSEJsY20xMWRHRjBhVzl1SUdsdGNHOXlkR0Z1WTJVZ0tHMWxZVzRnWTJoaGJtZGxJR2x1SUdGdWJtOTVZVzVqWlNsY0lpa2dLeUJuWjNScGRHeGxLRndpWkZSdmJtRnNhWFI1SUdsdVl5NGdaSFJ2Ym1Gc0lHeHZkV1J1WlhOelhDSXBJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjSW5ObGNtbG1YQ0lwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJJR052YjNKa1gyWnNhWEFvZVd4cGJUMWpLREFzSURJdU1pa3BYRzV3UW1GeVhHNWNibWxtSUNoellYWmxjR3h2ZEhNcGUxeHVJQ0JuWjNOaGRtVW9abWxzWlc1aGJXVTlYQ0pRZEhOQlFtUkJibTV2ZVUxdVpGUnZibUZzVEdSRGIyNVFaWEp0YVcxd0xuTjJaMXdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWk0MkxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNJbk4yWjF3aUtTbGNiaUFnZFc1c2FXNXJLRndpVUhSelFVSmtRVzV1YjNsTmJtUlViMjVoYkV4a1EyOXVVR1Z5YldsdGNDNXpkbWRjSWlsY2JpQWdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjSWxCMGMwRkNaRUZ1Ym05NVRXNWtWRzl1WVd4TVpFTnZibEJsY20xcGJYQXVjR1JtWENJc0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQweUxqWXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpY0dSbVhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJCYm01dmVVMXVaRlJ2Ym1Gc1RHUkRiMjVRWlhKdGFXMXdMbkJrWmx3aUtWeHVmVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRUb25hbDEuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFRvbmFsMSRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRUb25hbDEuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbM10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxkVG9uYWxpdHkgaW5jLiBkdG9uYWwgbG91ZG5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgMi4yKSlcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5kVG9uYWxMZENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjYsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uZFRvbmFsTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbmRUb25hbExkQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5kVG9uYWxMZENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal1.conimp <- arrange(resultsOutTonal1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal1.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal1.conimp), levels=rownames(resultsOutTonal1.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\dTonality inc. dtonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 2.2))
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMndTonalLdConPermimp.svg\, width=8, height=2.6, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMndTonalLdConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMndTonalLdConPermimp.pdf\, width=8, height=2.6, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMndTonalLdConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdZWElvYldGcFBXTW9NQ3d6TERBc01Da3BYRzVjYmlNZ2NHeHZkQ0JqYjI1a2FYUnBiMjVoYkNCcGJYQnZjblJoYm1ObFhHNXlaWE4xYkhSelQzVjBWRzl1WVd3eExtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlViMjVoYkRFa1kyOXVaR2wwYVc5dVlXeGZjR1Z5YldsdGNDd2daR1Z6WXloeWIzZGZiblZ0WW1WeUtDa3BLVnh1WEc1d1FtRnlJRHd0SUdkbmNHeHZkQ2h5WlhOMWJIUnpUM1YwVkc5dVlXd3hMbU52Ym1sdGNDa2dLeUJuWlc5dFgyTnZiQ2hoWlhNb2VEMW1ZV04wYjNJb2NtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGUnZibUZzTVM1amIyNXBiWEFwTENCc1pYWmxiSE05Y205M2JtRnRaWE1vY21WemRXeDBjMDkxZEZSdmJtRnNNUzVqYjI1cGJYQXBLU3dnZVQxRGIyNWtVR1Z5YlVsdGNDa3NJR1pwYkd3OWJYbGpiMnh2ZFhKeld6TmRMQ0IzYVdSMGFEMHdMalVwSUNzZ2JHRmljeWg0UFZ4Y1ZtRnlhV0ZpYkdWY1hDd2dlVDFjWEVOdmJtUnBkR2x2Ym1Gc0lIWmhjbWxoWW14bElIQmxjbTExZEdGMGFXOXVJR2x0Y0c5eWRHRnVZMlVnS0cxbFlXNGdZMmhoYm1kbElHbHVJR0Z1Ym05NVlXNWpaU2xjWENrZ0t5Qm5aM1JwZEd4bEtGeGNaRlJ2Ym1Gc2FYUjVJR2x1WXk0Z1pIUnZibUZzSUd4dmRXUnVaWE56WEZ3cElDc2dkR2hsYldVb2RHVjRkQ0E5SUdWc1pXMWxiblJmZEdWNGRDaG1ZVzFwYkhrZ1BTQmNYSE5sY21sbVhGd3BMQ0J3WVc1bGJDNW5jbWxrUFdWc1pXMWxiblJmYkdsdVpTaGpiMnh2Y2lBOUlISm5ZaWd5TXpVc0lESXpOU3dnTWpNMUxDQXhNREFzSUcxaGVFTnZiRzl5Vm1Gc2RXVWdQU0F5TlRVcExDQnNhVzVsZDJsa2RHZ2dQU0F3TGpJMUxDQnNhVzVsZEhsd1pTQTlJRElwS1NBcklHTnZiM0prWDJac2FYQW9lV3hwYlQxaktEQXNJREl1TWlrcFhHNXdRbUZ5WEc1Y2JtbG1JQ2h6WVhabGNHeHZkSE1wZTF4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhGeFFkSE5CUW1SQmJtNXZlVTF1WkZSdmJtRnNUR1JEYjI1UVpYSnRhVzF3TG5OMloxeGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNaTQyTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY1hITjJaMXhjS1NsY2JpQWdkVzVzYVc1cktGeGNVSFJ6UVVKa1FXNXViM2xOYm1SVWIyNWhiRXhrUTI5dVVHVnliV2x0Y0M1emRtZGNYQ2xjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNYRkIwYzBGQ1pFRnVibTk1VFc1a1ZHOXVZV3hNWkVOdmJsQmxjbTFwYlhBdWNHUm1YRndzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB5TGpZc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjR1JtWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUkJibTV2ZVUxdVpGUnZibUZzVEdSRGIyNVFaWEp0YVcxd0xuQmtabHhjS1Z4dWZWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRUb25hbDEuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFRvbmFsMSRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRUb25hbDEuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbM10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxkVG9uYWxpdHkgaW5jLiBkdG9uYWwgbG91ZG5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgMi4yKSlcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5kVG9uYWxMZENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjYsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uZFRvbmFsTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbmRUb25hbExkQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5kVG9uYWxMZENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0VG9uYWwxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRUb25hbDEkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dFRvbmFsMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFRvbmFsMS5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzNdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKG1lYW4gY2hhbmdlIGluIGFubm95YW5jZSlcXCkgKyBnZ3RpdGxlKFxcZFRvbmFsaXR5IGluYy4gZHRvbmFsIGxvdWRuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDIuMikpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uZFRvbmFsTGRDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi42LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbmRUb25hbExkQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5kVG9uYWxMZENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjYsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uZFRvbmFsTGRDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal1.conimp <- arrange(resultsOutTonal1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal1.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal1.conimp), levels=rownames(resultsOutTonal1.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\dTonality inc. dtonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 2.2))
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMndTonalLdConPermimp.svg\, width=8, height=2.6, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMndTonalLdConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMndTonalLdConPermimp.pdf\, width=8, height=2.6, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMndTonalLdConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVrVkc5dVRHUldZWElnUEMwZ1hDSmtWRzl1VEdSRlEwMUJVRzkzUVhablFtbHVYQ0pjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbmRUb25MZFZhciA8LSBcXGRUb25MZEVDTUFQb3dBdmdCaW5cXFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
dTonLdVar <- \dTonLdECMAPowAvgBin\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWtWRzl1VEdSV1lYSWdQQzBnWEZ4a1ZHOXVUR1JGUTAxQlVHOTNRWFpuUW1sdVhGeGNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG5kVG9uTGRWYXIgPC0gXFxkVG9uTGRFQ01BUG93QXZnQmluXFxcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5kVG9uTGRWYXIgPC0gXFxkVG9uTGRFQ01BUG93QXZnQmluXFxcblxuYGBgXG5gYGAifQ== -->
```r
```r
dTonLdVar <- \dTonLdECMAPowAvgBin\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### dTonality without dtonal loudness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dScFptWldZWElzSUdWMlpXNTBWbUZ5TENCY0ltUlViMjVoYkVWRFRVRkJkbWROWVhoTVVsd2lMQ0JjSW1SVWIyNWhiRk5JVFVsdWREQTFSWGhOWVhoTVVsd2lMQ0JjSW1SVWIyNWhiRk5JVFVsdWRFRjJaMDFoZUV4U1hDSXNJRndpWkZSdmJtRnNSVU5OUVRBMVJYaE5ZWGhNVWx3aUtWeHVaRlpoY2lBOExTQmNJbVJCYm01dmVVMWxZVzVjSWx4dVhHNXpaV1ZrY3lBOExTQmpLRFF4TURnMk5Td2dNamsxTkN3Z056QTRNVElzSURJd015d2dOems0TkNsY2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRUb25hbEVDTUFBdmdNYXhMUlxcLCBcXGRUb25hbFNITUludDA1RXhNYXhMUlxcLCBcXGRUb25hbFNITUludEF2Z01heExSXFwsIFxcZFRvbmFsRUNNQTA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDQxMDg2NSwgMjk1NCwgNzA4MTIsIDIwMywgNzk4NClcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
iVars <- c(diffVar, eventVar, \dTonalECMAAvgMaxLR\, \dTonalSHMInt05ExMaxLR\, \dTonalSHMIntAvgMaxLR\, \dTonalECMA05ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(410865, 2954, 70812, 203, 7984)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR1JwWm1aV1lYSXNJR1YyWlc1MFZtRnlMQ0JjWEdSVWIyNWhiRVZEVFVGQmRtZE5ZWGhNVWx4Y0xDQmNYR1JVYjI1aGJGTklUVWx1ZERBMVJYaE5ZWGhNVWx4Y0xDQmNYR1JVYjI1aGJGTklUVWx1ZEVGMlowMWhlRXhTWEZ3c0lGeGNaRlJ2Ym1Gc1JVTk5RVEExUlhoTllYaE1VbHhjS1Z4dVpGWmhjaUE4TFNCY1hHUkJibTV2ZVUxbFlXNWNYRnh1WEc1elpXVmtjeUE4TFNCaktEUXhNRGcyTlN3Z01qazFOQ3dnTnpBNE1USXNJREl3TXl3Z056azROQ2xjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgXFxkVG9uYWxFQ01BQXZnTWF4TFJcXCwgXFxkVG9uYWxTSE1JbnQwNUV4TWF4TFJcXCwgXFxkVG9uYWxTSE1JbnRBdmdNYXhMUlxcLCBcXGRUb25hbEVDTUEwNUV4TWF4TFJcXClcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYyg0MTA4NjUsIDI5NTQsIDcwODEyLCAyMDMsIDc5ODQpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRUb25hbEVDTUFBdmdNYXhMUlxcLCBcXGRUb25hbFNITUludDA1RXhNYXhMUlxcLCBcXGRUb25hbFNITUludEF2Z01heExSXFwsIFxcZFRvbmFsRUNNQTA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDQxMDg2NSwgMjk1NCwgNzA4MTIsIDIwMywgNzk4NClcblxuYGBgXG5gYGAifQ== -->
```r
```r
iVars <- c(diffVar, eventVar, \dTonalECMAAvgMaxLR\, \dTonalSHMInt05ExMaxLR\, \dTonalSHMIntAvgMaxLR\, \dTonalECMA05ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(410865, 2954, 70812, 203, 7984)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F4TlRBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqYzFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDE1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 1501
mtry <- as.integer(length(iVars)/1.75)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXhOVEF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpjMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDE1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAxNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjc1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 1501
mtry <- as.integer(length(iVars)/1.75)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlVnh1WEc1dWNHVnliU0E4TFNBMVhHNWNibkpsYzNWc2RITlBkWFJVYjI1aGJESWdQQzBnWTNKbVVtVm5LR1JoZEdGSmJqMXpkR2x0UkdGMFlVNTFiU3dnYVZaaGNuTTlhVlpoY25Nc0lHUldZWEk5WkZaaGNpd2djMlZsWkhNOWMyVmxaSE5iTVRveVhTeGNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWlSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWlSUFQwSmZUVUZGWEc1eVpYTjFiSFJ6VDNWMFZHOXVZV3d5SkZKemNYVmhjbVZrWEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG4jIFRvbmFsaXR5XG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dFRvbmFsMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc3VsdHNPdXRUb25hbDIkUnNxdWFyZWRcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Tonality
nperm <- 5
resultsOutTonal2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2],
ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
resultsOutTonal2$OOB_MAE
resultsOutTonal2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVWeHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRJZ1BDMGdZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITmJNVG95WFN4Y2JpQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZSdmJtRnNNaVJQVDBKZlVrMVRSVnh1Y21WemRXeDBjMDkxZEZSdmJtRnNNaVJQVDBKZlRVRkZYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3lKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuIyBUb25hbGl0eVxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRUb25hbDIgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFRvbmFsMiRPT0JfUk1TRVxucmVzdWx0c091dFRvbmFsMiRPT0JfTUFFXG5yZXN1bHRzT3V0VG9uYWwyJFJzcXVhcmVkXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eVxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRUb25hbDIgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFRvbmFsMiRPT0JfUk1TRVxucmVzdWx0c091dFRvbmFsMiRPT0JfTUFFXG5yZXN1bHRzT3V0VG9uYWwyJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# Tonality
nperm <- 5
resultsOutTonal2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2],
ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
resultsOutTonal2$OOB_MAE
resultsOutTonal2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlVnh1WEc1eVpYTjFiSFJ6VDNWMFZHOXVZV3d5SUR3dElHMTFiSFJwWDJOeVpsSmxaeWhrWVhSaFNXNDljM1JwYlVSaGRHRk9kVzBzSUdsV1lYSnpQV2xXWVhKekxDQmtWbUZ5UFdSV1lYSXNJSE5sWldSelBYTmxaV1J6TENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJVYjI1aGJESWtUMDlDWDFKTlUwVmNibkpsYzNWc2RITlBkWFJVYjI1aGJESWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pUlNjM0YxWVhKbFpGeHVYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbiMgVG9uYWxpdHlcblxucmVzdWx0c091dFRvbmFsMiA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc3VsdHNPdXRUb25hbDIkUnNxdWFyZWRcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Tonality
resultsOutTonal2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
resultsOutTonal2$OOB_MAE
resultsOutTonal2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVWeHVYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3lJRHd0SUcxMWJIUnBYMk55WmxKbFp5aGtZWFJoU1c0OWMzUnBiVVJoZEdGT2RXMHNJR2xXWVhKelBXbFdZWEp6TENCa1ZtRnlQV1JXWVhJc0lITmxaV1J6UFhObFpXUnpMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRJa1QwOUNYMUpOVTBWY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRJa1QwOUNYMDFCUlZ4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWlSU2MzRjFZWEpsWkZ4dVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbiMgVG9uYWxpdHlcblxucmVzdWx0c091dFRvbmFsMiA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc3VsdHNPdXRUb25hbDIkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eVxuXG5yZXN1bHRzT3V0VG9uYWwyIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDIkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDIkT09CX01BRVxucmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# Tonality
resultsOutTonal2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
resultsOutTonal2$OOB_MAE
resultsOutTonal2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMFJwWm1ZZ2RHOXVZV3dnYm04Z2JHOTFaQ2NzSUNkU1RWTkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRGUnZibUZzTWlSUFQwSmZVazFUUlZ4dWNtVnpaRUZ1Ym05NVRXNUdhWFJCUWxzblJHbG1aaUIwYjI1aGJDQnVieUJzYjNWa0p5d2dKMDFCUlNkZElEd3RJSEpsYzNWc2RITlBkWFJVYjI1aGJESWtUMDlDWDAxQlJWeHVjbVZ6WkVGdWJtOTVUVzVHYVhSQlFsc25SR2xtWmlCMGIyNWhiQ0J1YnlCc2IzVmtKeXdnSjFKemNYVmhjbVZrSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pUlNjM0YxWVhKbFpGeHVjbVZ6WkVGdWJtOTVUVzVRWlhKdFNXMXdRVUlrUkdsbVpsUnZibUZzTWlBOExTQnlaWE4xYkhSelQzVjBWRzl1WVd3eUpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQmNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIHRvbmFsIG5vIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRUb25hbDIkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgdG9uYWwgbm8gbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgdG9uYWwgbm8gbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRUb25hbDIkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJERpZmZUb25hbDIgPC0gcmVzdWx0c091dFRvbmFsMiRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# store results
resdAnnoyMnFitAB['Diff tonal no loud', 'RMSE'] <- resultsOutTonal2$OOB_RMSE
resdAnnoyMnFitAB['Diff tonal no loud', 'MAE'] <- resultsOutTonal2$OOB_MAE
resdAnnoyMnFitAB['Diff tonal no loud', 'Rsquared'] <- resultsOutTonal2$Rsquared
resdAnnoyMnPermImpAB$DiffTonal2 <- resultsOutTonal2$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowUnBabVlnZEc5dVlXd2dibThnYkc5MVpDY3NJQ2RTVFZORkoxMGdQQzBnY21WemRXeDBjMDkxZEZSdmJtRnNNaVJQVDBKZlVrMVRSVnh1Y21WelpFRnVibTk1VFc1R2FYUkJRbHNuUkdsbVppQjBiMjVoYkNCdWJ5QnNiM1ZrSnl3Z0owMUJSU2RkSUR3dElISmxjM1ZzZEhOUGRYUlViMjVoYkRJa1QwOUNYMDFCUlZ4dWNtVnpaRUZ1Ym05NVRXNUdhWFJCUWxzblJHbG1aaUIwYjI1aGJDQnVieUJzYjNWa0p5d2dKMUp6Y1hWaGNtVmtKMTBnUEMwZ2NtVnpkV3gwYzA5MWRGUnZibUZzTWlSU2MzRjFZWEpsWkZ4dWNtVnpaRUZ1Ym05NVRXNVFaWEp0U1cxd1FVSWtSR2xtWmxSdmJtRnNNaUE4TFNCeVpYTjFiSFJ6VDNWMFZHOXVZV3d5SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhCY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEFubm95TW5GaXRBQlsnRGlmZiB0b25hbCBubyBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIHRvbmFsIG5vIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFRvbmFsMiRPT0JfTUFFXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIHRvbmFsIG5vIGxvdWQnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0VG9uYWwyJFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiREaWZmVG9uYWwyIDwtIHJlc3VsdHNPdXRUb25hbDIkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgdG9uYWwgbm8gbG91ZCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFRvbmFsMiRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnRGlmZiB0b25hbCBubyBsb3VkJywgJ01BRSddIDwtIHJlc3VsdHNPdXRUb25hbDIkT09CX01BRVxucmVzZEFubm95TW5GaXRBQlsnRGlmZiB0b25hbCBubyBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZlRvbmFsMiA8LSByZXN1bHRzT3V0VG9uYWwyJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdAnnoyMnFitAB['Diff tonal no loud', 'RMSE'] <- resultsOutTonal2$OOB_RMSE
resdAnnoyMnFitAB['Diff tonal no loud', 'MAE'] <- resultsOutTonal2$OOB_MAE
resdAnnoyMnFitAB['Diff tonal no loud', 'Rsquared'] <- resultsOutTonal2$Rsquared
resdAnnoyMnPermImpAB$DiffTonal2 <- resultsOutTonal2$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pNWpiMjVwYlhBZ1BDMGdZWEp5WVc1blpTaHlaWE4xYkhSelQzVjBWRzl1WVd3eUpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQXNJR1JsYzJNb2NtOTNYMjUxYldKbGNpZ3BLU2xjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEZSdmJtRnNNaTVqYjI1cGJYQXBJQ3NnWjJWdmJWOWpiMndvWVdWektIZzlabUZqZEc5eUtISnZkMjVoYldWektISmxjM1ZzZEhOUGRYUlViMjVoYkRJdVkyOXVhVzF3S1N3Z2JHVjJaV3h6UFhKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVWIyNWhiREl1WTI5dWFXMXdLU2tzSUhrOVEyOXVaRkJsY20xSmJYQXBMQ0JtYVd4c1BXMTVZMjlzYjNWeWMxc3pYU3dnZDJsa2RHZzlNQzQxS1NBcklHeGhZbk1vZUQxY0lsWmhjbWxoWW14bFhDSXNJSGs5WENKRGIyNWthWFJwYjI1aGJDQjJZWEpwWVdKc1pTQndaWEp0ZFhSaGRHbHZiaUJwYlhCdmNuUmhibU5sSUNodFpXRnVJR05vWVc1blpTQnBiaUJoYm01dmVXRnVZMlVwWENJcElDc2daMmQwYVhSc1pTaGNJbVJVYjI1aGJHbDBlU0IzTDI4Z2RHOXVZV3dnYkc5MVpHNWxjM05jSWlrZ0t5QjBhR1Z0WlNoMFpYaDBJRDBnWld4bGJXVnVkRjkwWlhoMEtHWmhiV2xzZVNBOUlGd2ljMlZ5YVdaY0lpa3NJSEJoYm1Wc0xtZHlhV1E5Wld4bGJXVnVkRjlzYVc1bEtHTnZiRzl5SUQwZ2NtZGlLREl6TlN3Z01qTTFMQ0F5TXpVc0lERXdNQ3dnYldGNFEyOXNiM0pXWVd4MVpTQTlJREkxTlNrc0lHeHBibVYzYVdSMGFDQTlJREF1TWpVc0lHeHBibVYwZVhCbElEMGdNaWtwSUNzZ1kyOXZjbVJmWm14cGNDaDViR2x0UFdNb01Dd2dNaTR5S1NsY2JuQkNZWEpjYmx4dWFXWWdLSE5oZG1Wd2JHOTBjeWw3WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY0lsQjBjMEZDWkVGdWJtOTVUVzVrVkc5dVlXeERiMjVRWlhKdGFXMXdMbk4yWjF3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pd2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p6ZG1kY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNaRUZ1Ym05NVRXNWtWRzl1WVd4RGIyNVFaWEp0YVcxd0xuTjJaMXdpS1Z4dUlDQmNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJtUlViMjVoYkVOdmJsQmxjbTFwYlhBdWNHUm1YQ0lzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB5TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luQmtabHdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1FXNXViM2xOYm1SVWIyNWhiRU52YmxCbGNtMXBiWEF1Y0dSbVhDSXBYRzU5WEc1Y2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFRvbmFsMi5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0VG9uYWwyJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dFRvbmFsMi5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1szXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgZ2d0aXRsZShcXGRUb25hbGl0eSB3L28gdG9uYWwgbG91ZG5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgMi4yKSlcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5kVG9uYWxDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5kVG9uYWxDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbmRUb25hbENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbmRUb25hbENvblBlcm1pbXAucGRmXFwpXG59XG5cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal2.conimp <- arrange(resultsOutTonal2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal2.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal2.conimp), levels=rownames(resultsOutTonal2.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\dTonality w/o tonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 2.2))
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMndTonalConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMndTonalConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMndTonalConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMndTonalConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWk1amIyNXBiWEFnUEMwZ1lYSnlZVzVuWlNoeVpYTjFiSFJ6VDNWMFZHOXVZV3d5SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhBc0lHUmxjMk1vY205M1gyNTFiV0psY2lncEtTbGNibHh1Y0VKaGNpQThMU0JuWjNCc2IzUW9jbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVWIyNWhiREl1WTI5dWFXMXdLU3dnYkdWMlpXeHpQWEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJVYjI1aGJESXVZMjl1YVcxd0tTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzelhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjWEZaaGNtbGhZbXhsWEZ3c0lIazlYRnhEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxJQ2h0WldGdUlHTm9ZVzVuWlNCcGJpQmhibTV2ZVdGdVkyVXBYRndwSUNzZ1oyZDBhWFJzWlNoY1hHUlViMjVoYkdsMGVTQjNMMjhnZEc5dVlXd2diRzkxWkc1bGMzTmNYQ2tnS3lCMGFHVnRaU2gwWlhoMElEMGdaV3hsYldWdWRGOTBaWGgwS0daaGJXbHNlU0E5SUZ4Y2MyVnlhV1pjWENrc0lIQmhibVZzTG1keWFXUTlaV3hsYldWdWRGOXNhVzVsS0dOdmJHOXlJRDBnY21kaUtESXpOU3dnTWpNMUxDQXlNelVzSURFd01Dd2diV0Y0UTI5c2IzSldZV3gxWlNBOUlESTFOU2tzSUd4cGJtVjNhV1IwYUNBOUlEQXVNalVzSUd4cGJtVjBlWEJsSUQwZ01pa3BJQ3NnWTI5dmNtUmZabXhwY0NoNWJHbHRQV01vTUN3Z01pNHlLU2xjYm5CQ1lYSmNibHh1YVdZZ0tITmhkbVZ3Ykc5MGN5bDdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjWEZCMGMwRkNaRUZ1Ym05NVRXNWtWRzl1WVd4RGIyNVFaWEp0YVcxd0xuTjJaMXhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWl3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHpkbWRjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1pFRnVibTk1VFc1a1ZHOXVZV3hEYjI1UVpYSnRhVzF3TG5OMloxeGNLVnh1SUNCY2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYm1SVWIyNWhiRU52YmxCbGNtMXBiWEF1Y0dSbVhGd3NJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHlMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhCa1pseGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprUVc1dWIzbE5ibVJVYjI1aGJFTnZibEJsY20xcGJYQXVjR1JtWEZ3cFhHNTlYRzVjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRUb25hbDIuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFRvbmFsMiRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwyLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwyLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbM10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxkVG9uYWxpdHkgdy9vIHRvbmFsIGxvdWRuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDIuMikpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uZFRvbmFsQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uZFRvbmFsQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5kVG9uYWxDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5kVG9uYWxDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFRvbmFsMi5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0VG9uYWwyJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dFRvbmFsMi5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1szXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgZ2d0aXRsZShcXGRUb25hbGl0eSB3L28gdG9uYWwgbG91ZG5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgMi4yKSlcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5kVG9uYWxDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5kVG9uYWxDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbmRUb25hbENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbmRUb25hbENvblBlcm1pbXAucGRmXFwpXG59XG5cblxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal2.conimp <- arrange(resultsOutTonal2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal2.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal2.conimp), levels=rownames(resultsOutTonal2.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\dTonality w/o tonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 2.2))
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMndTonalConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMndTonalConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMndTonalConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMndTonalConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selectec metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVrVkc5dVlXeFdZWElnUEMwZ1hDSmtWRzl1WVd4VFNFMUpiblJCZG1kTllYaE1VbHdpWEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbmRUb25hbFZhciA8LSBcXGRUb25hbFNITUludEF2Z01heExSXFxcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
dTonalVar <- \dTonalSHMIntAvgMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWtWRzl1WVd4V1lYSWdQQzBnWEZ4a1ZHOXVZV3hUU0UxSmJuUkJkbWROWVhoTVVseGNYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG5kVG9uYWxWYXIgPC0gXFxkVG9uYWxTSE1JbnRBdmdNYXhMUlxcXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5kVG9uYWxWYXIgPC0gXFxkVG9uYWxTSE1JbnRBdmdNYXhMUlxcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
dTonalVar <- \dTonalSHMIntAvgMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### dFluctuation strength
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUVac2RXTjBkV0YwYVc5dUlITjBjbVZ1WjNSb1hHNXBWbUZ5Y3lBOExTQmpLR1JwWm1aV1lYSXNJR1YyWlc1MFZtRnlMQ0JjSW1SR2JIVmpkRk5JVFRFd1JYaENhVzVjSWl3Z1hDSmtSbXgxWTNSVFNFMHdOVVY0UW1sdVhDSXNJRndpWkVac2RXTjBUMVl4TUVWNFRXRjRURkpjSWl3Z1hDSmtSbXgxWTNSUFZqQTFSWGhOWVhoTVVsd2lLVnh1WkZaaGNpQThMU0JjSW1SQmJtNXZlVTFsWVc1Y0lseHVYRzV6WldWa2N5QThMU0JqS0RReE9EWTFOeXdnT0RRc0lERTJNekFzSURFNE5qVTVMQ0F6TmpnM0tWeHVYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcblxuIyBGbHVjdHVhdGlvbiBzdHJlbmd0aFxuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgXFxkRmx1Y3RTSE0xMEV4QmluXFwsIFxcZEZsdWN0U0hNMDVFeEJpblxcLCBcXGRGbHVjdE9WMTBFeE1heExSXFwsIFxcZEZsdWN0T1YwNUV4TWF4TFJcXClcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYyg0MTg2NTcsIDg0LCAxNjMwLCAxODY1OSwgMzY4NylcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Fluctuation strength
iVars <- c(diffVar, eventVar, \dFluctSHM10ExBin\, \dFluctSHM05ExBin\, \dFluctOV10ExMaxLR\, \dFluctOV05ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(418657, 84, 1630, 18659, 3687)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRVpzZFdOMGRXRjBhVzl1SUhOMGNtVnVaM1JvWEc1cFZtRnljeUE4TFNCaktHUnBabVpXWVhJc0lHVjJaVzUwVm1GeUxDQmNYR1JHYkhWamRGTklUVEV3UlhoQ2FXNWNYQ3dnWEZ4a1JteDFZM1JUU0Uwd05VVjRRbWx1WEZ3c0lGeGNaRVpzZFdOMFQxWXhNRVY0VFdGNFRGSmNYQ3dnWEZ4a1JteDFZM1JQVmpBMVJYaE5ZWGhNVWx4Y0tWeHVaRlpoY2lBOExTQmNYR1JCYm01dmVVMWxZVzVjWEZ4dVhHNXpaV1ZrY3lBOExTQmpLRFF4T0RZMU55d2dPRFFzSURFMk16QXNJREU0TmpVNUxDQXpOamczS1Z4dVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcblxuIyBGbHVjdHVhdGlvbiBzdHJlbmd0aFxuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgXFxkRmx1Y3RTSE0xMEV4QmluXFwsIFxcZEZsdWN0U0hNMDVFeEJpblxcLCBcXGRGbHVjdE9WMTBFeE1heExSXFwsIFxcZEZsdWN0T1YwNUV4TWF4TFJcXClcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYyg0MTg2NTcsIDg0LCAxNjMwLCAxODY1OSwgMzY4NylcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIEZsdWN0dWF0aW9uIHN0cmVuZ3RoXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRGbHVjdFNITTEwRXhCaW5cXCwgXFxkRmx1Y3RTSE0wNUV4QmluXFwsIFxcZEZsdWN0T1YxMEV4TWF4TFJcXCwgXFxkRmx1Y3RPVjA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDQxODY1NywgODQsIDE2MzAsIDE4NjU5LCAzNjg3KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# Fluctuation strength
iVars <- c(diffVar, eventVar, \dFluctSHM10ExBin\, \dFluctSHM05ExBin\, \dFluctOV10ExMaxLR\, \dFluctOV05ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(418657, 84, 1630, 18659, 3687)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F5TlRBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqYzFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDI1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 2501
mtry <- as.integer(length(iVars)/1.75)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXlOVEF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpjMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDI1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAyNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjc1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 2501
mtry <- as.integer(length(iVars)/1.75)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUkdiSFZqZENBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJHYkhWamRDUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRVpzZFdOMEpFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUkdiSFZqZENSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutFluct <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
resultsOutFluct$OOB_MAE
resultsOutFluct$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSR2JIVmpkQ0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUkdiSFZqZENSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRFWnNkV04wSkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSR2JIVmpkQ1JTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutFluct <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
resultsOutFluct$OOB_MAE
resultsOutFluct$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwUm14MVkzUWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRFWnNkV04wSkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFJteDFZM1FrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEVac2RXTjBKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dEZsdWN0IDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutFluct <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
resultsOutFluct$OOB_MAE
resultsOutFluct$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBSbXgxWTNRZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEVac2RXTjBKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwUm14MVkzUWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRVpzZFdOMEpGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0Rmx1Y3QkT09CX1JNU0VcbnJlc3VsdHNPdXRGbHVjdCRPT0JfTUFFXG5yZXN1bHRzT3V0Rmx1Y3QkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0Rmx1Y3QgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEZsdWN0JE9PQl9STVNFXG5yZXN1bHRzT3V0Rmx1Y3QkT09CX01BRVxucmVzdWx0c091dEZsdWN0JFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutFluct <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
resultsOutFluct$OOB_MAE
resultsOutFluct$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMFJwWm1ZZ1pteDFZM1FuTENBblVrMVRSU2RkSUR3dElISmxjM1ZzZEhOUGRYUkdiSFZqZENSUFQwSmZVazFUUlZ4dWNtVnpaRUZ1Ym05NVRXNUdhWFJCUWxzblJHbG1aaUJtYkhWamRDY3NJQ2ROUVVVblhTQThMU0J5WlhOMWJIUnpUM1YwUm14MVkzUWtUMDlDWDAxQlJWeHVjbVZ6WkVGdWJtOTVUVzVHYVhSQlFsc25SR2xtWmlCbWJIVmpkQ2NzSUNkU2MzRjFZWEpsWkNkZElEd3RJSEpsYzNWc2RITlBkWFJHYkhWamRDUlNjM0YxWVhKbFpGeHVjbVZ6WkVGdWJtOTVUVzVRWlhKdFNXMXdRVUlrUkdsbVprWnNkV04wSUR3dElISmxjM1ZzZEhOUGRYUkdiSFZqZENSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd1hHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgZmx1Y3QnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnRGlmZiBmbHVjdCcsICdNQUUnXSA8LSByZXN1bHRzT3V0Rmx1Y3QkT09CX01BRVxucmVzZEFubm95TW5GaXRBQlsnRGlmZiBmbHVjdCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZkZsdWN0IDwtIHJlc3VsdHNPdXRGbHVjdCRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# store results
resdAnnoyMnFitAB['Diff fluct', 'RMSE'] <- resultsOutFluct$OOB_RMSE
resdAnnoyMnFitAB['Diff fluct', 'MAE'] <- resultsOutFluct$OOB_MAE
resdAnnoyMnFitAB['Diff fluct', 'Rsquared'] <- resultsOutFluct$Rsquared
resdAnnoyMnPermImpAB$DiffFluct <- resultsOutFluct$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowUnBabVlnWm14MVkzUW5MQ0FuVWsxVFJTZGRJRHd0SUhKbGMzVnNkSE5QZFhSR2JIVmpkQ1JQVDBKZlVrMVRSVnh1Y21WelpFRnVibTk1VFc1R2FYUkJRbHNuUkdsbVppQm1iSFZqZENjc0lDZE5RVVVuWFNBOExTQnlaWE4xYkhSelQzVjBSbXgxWTNRa1QwOUNYMDFCUlZ4dWNtVnpaRUZ1Ym05NVRXNUdhWFJCUWxzblJHbG1aaUJtYkhWamRDY3NJQ2RTYzNGMVlYSmxaQ2RkSUR3dElISmxjM1ZzZEhOUGRYUkdiSFZqZENSU2MzRjFZWEpsWkZ4dWNtVnpaRUZ1Ym05NVRXNVFaWEp0U1cxd1FVSWtSR2xtWmtac2RXTjBJRHd0SUhKbGMzVnNkSE5QZFhSR2JIVmpkQ1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3WEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIGZsdWN0JywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0Rmx1Y3QkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgZmx1Y3QnLCAnTUFFJ10gPC0gcmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgZmx1Y3QnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0Rmx1Y3QkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJERpZmZGbHVjdCA8LSByZXN1bHRzT3V0Rmx1Y3QkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgZmx1Y3QnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnRGlmZiBmbHVjdCcsICdNQUUnXSA8LSByZXN1bHRzT3V0Rmx1Y3QkT09CX01BRVxucmVzZEFubm95TW5GaXRBQlsnRGlmZiBmbHVjdCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZkZsdWN0IDwtIHJlc3VsdHNPdXRGbHVjdCRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# store results
resdAnnoyMnFitAB['Diff fluct', 'RMSE'] <- resultsOutFluct$OOB_RMSE
resdAnnoyMnFitAB['Diff fluct', 'MAE'] <- resultsOutFluct$OOB_MAE
resdAnnoyMnFitAB['Diff fluct', 'Rsquared'] <- resultsOutFluct$Rsquared
resdAnnoyMnPermImpAB$DiffFluct <- resultsOutFluct$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRVpzZFdOMExtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUkdiSFZqZENSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJHYkhWamRDNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSR2JIVmpkQzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRVpzZFdOMExtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTkYwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9iV1ZoYmlCamFHRnVaMlVnYVc0Z1lXNXViM2xoYm1ObEtWd2lLU0FySUdkbmRHbDBiR1VvWENKa1JteDFZM1IxWVhScGIyNGdjM1J5Wlc1bmRHaGNJaWtnS3lCMGFHVnRaU2gwWlhoMElEMGdaV3hsYldWdWRGOTBaWGgwS0daaGJXbHNlU0E5SUZ3aWMyVnlhV1pjSWlrc0lIQmhibVZzTG1keWFXUTlaV3hsYldWdWRGOXNhVzVsS0dOdmJHOXlJRDBnY21kaUtESXpOU3dnTWpNMUxDQXlNelVzSURFd01Dd2diV0Y0UTI5c2IzSldZV3gxWlNBOUlESTFOU2tzSUd4cGJtVjNhV1IwYUNBOUlEQXVNalVzSUd4cGJtVjBlWEJsSUQwZ01pa3BJQ3NnWTI5dmNtUmZabXhwY0NncFhHNXdRbUZ5WEc1Y2JtbG1JQ2h6WVhabGNHeHZkSE1wZTF4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhDSlFkSE5CUW1SQmJtNXZlVTF1WkVac2RXTjBRMjl1VUdWeWJXbHRjQzV6ZG1kY0lpd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUSXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpYzNablhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJCYm01dmVVMXVSbXgxWTNSRGIyNVFaWEp0YVcxd0xuTjJaMXdpS1Z4dUlDQmNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJtUkdiSFZqZEVOdmJsQmxjbTFwYlhBdWNHUm1YQ0lzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB5TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luQmtabHdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1FXNXViM2xOYmtac2RXTjBRMjl1VUdWeWJXbHRjQzV3WkdaY0lpbGNibjFjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0Rmx1Y3QuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dEZsdWN0JGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEZsdWN0LmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dEZsdWN0LmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0Rmx1Y3QuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s0XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgZ2d0aXRsZShcXGRGbHVjdHVhdGlvbiBzdHJlbmd0aFxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5kRmx1Y3RDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5GbHVjdENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uZEZsdWN0Q29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uRmx1Y3RDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutFluct.conimp <- arrange(resultsOutFluct$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutFluct.conimp) + geom_col(aes(x=factor(rownames(resultsOutFluct.conimp), levels=rownames(resultsOutFluct.conimp)), y=CondPermImp), fill=mycolours[4], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\dFluctuation strength\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMndFluctConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnFluctConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMndFluctConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnFluctConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRFWnNkV04wTG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSR2JIVmpkQ1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUkdiSFZqZEM1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJHYkhWamRDNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRFWnNkV04wTG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJORjBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb2JXVmhiaUJqYUdGdVoyVWdhVzRnWVc1dWIzbGhibU5sS1Z4Y0tTQXJJR2RuZEdsMGJHVW9YRnhrUm14MVkzUjFZWFJwYjI0Z2MzUnlaVzVuZEdoY1hDa2dLeUIwYUdWdFpTaDBaWGgwSUQwZ1pXeGxiV1Z1ZEY5MFpYaDBLR1poYldsc2VTQTlJRnhjYzJWeWFXWmNYQ2tzSUhCaGJtVnNMbWR5YVdROVpXeGxiV1Z1ZEY5c2FXNWxLR052Ykc5eUlEMGdjbWRpS0RJek5Td2dNak0xTENBeU16VXNJREV3TUN3Z2JXRjRRMjlzYjNKV1lXeDFaU0E5SURJMU5Ta3NJR3hwYm1WM2FXUjBhQ0E5SURBdU1qVXNJR3hwYm1WMGVYQmxJRDBnTWlrcElDc2dZMjl2Y21SZlpteHBjQ2dwWEc1d1FtRnlYRzVjYm1sbUlDaHpZWFpsY0d4dmRITXBlMXh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WEZ4UWRITkJRbVJCYm01dmVVMXVaRVpzZFdOMFEyOXVVR1Z5YldsdGNDNXpkbWRjWEN3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRJc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjM1puWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUkJibTV2ZVUxdVJteDFZM1JEYjI1UVpYSnRhVzF3TG5OMloxeGNLVnh1SUNCY2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYm1SR2JIVmpkRU52YmxCbGNtMXBiWEF1Y0dSbVhGd3NJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHlMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhCa1pseGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprUVc1dWIzbE5ia1pzZFdOMFEyOXVVR1Z5YldsdGNDNXdaR1pjWENsY2JuMWNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEZsdWN0LmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRGbHVjdCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRGbHVjdC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRGbHVjdC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEZsdWN0LmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNF0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxkRmx1Y3R1YXRpb24gc3RyZW5ndGhcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uZEZsdWN0Q29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uRmx1Y3RDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbmRGbHVjdENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkZsdWN0Q29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEZsdWN0LmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRGbHVjdCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRGbHVjdC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRGbHVjdC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEZsdWN0LmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNF0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxkRmx1Y3R1YXRpb24gc3RyZW5ndGhcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uZEZsdWN0Q29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uRmx1Y3RDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbmRGbHVjdENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkZsdWN0Q29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutFluct.conimp <- arrange(resultsOutFluct$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutFluct.conimp) + geom_col(aes(x=factor(rownames(resultsOutFluct.conimp), levels=rownames(resultsOutFluct.conimp)), y=CondPermImp), fill=mycolours[4], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\dFluctuation strength\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMndFluctConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnFluctConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMndFluctConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnFluctConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVrUm14MVkzUldZWElnUEMwZ1hDSmtSbXgxWTNSVFNFMHdOVVY0UW1sdVhDSmNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuZEZsdWN0VmFyIDwtIFxcZEZsdWN0U0hNMDVFeEJpblxcXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
dFluctVar <- \dFluctSHM05ExBin\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWtSbXgxWTNSV1lYSWdQQzBnWEZ4a1JteDFZM1JUU0Uwd05VVjRRbWx1WEZ4Y2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbmRGbHVjdFZhciA8LSBcXGRGbHVjdFNITTA1RXhCaW5cXFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5kRmx1Y3RWYXIgPC0gXFxkRmx1Y3RTSE0wNUV4QmluXFxcblxuYGBgXG5gYGAifQ== -->
```r
```r
dFluctVar <- \dFluctSHM05ExBin\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### dRoughness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZKdmRXZG9ibVZ6YzF4dWFWWmhjbk1nUEMwZ1l5aGthV1ptVm1GeUxDQmxkbVZ1ZEZaaGNpd2dYQ0prVW05MVoyaEZRMDFCTVRCRmVFSnBibHdpTENCY0ltUlNiM1ZuYUVWRFRVRXdOVVY0UW1sdVhDSXNJRndpWkZKdmRXZG9SbG94TUVWNFRXRjRURkpjSWl3Z1hDSmtVbTkxWjJoR1dqQTFSWGhOWVhoTVVsd2lLVnh1WkZaaGNpQThMU0JjSW1SQmJtNXZlVTFsWVc1Y0lseHVYRzV6WldWa2N5QThMU0JqS0RZNU9EVXhMQ0E0TlRFd09Td2dOREV3T1RnMkxDQXhOVFl6TENBNE9UWXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuIyBSb3VnaG5lc3NcbmlWYXJzIDwtIGMoZGlmZlZhciwgZXZlbnRWYXIsIFxcZFJvdWdoRUNNQTEwRXhCaW5cXCwgXFxkUm91Z2hFQ01BMDVFeEJpblxcLCBcXGRSb3VnaEZaMTBFeE1heExSXFwsIFxcZFJvdWdoRlowNUV4TWF4TFJcXClcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYyg2OTg1MSwgODUxMDksIDQxMDk4NiwgMTU2MywgODk2KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Roughness
iVars <- c(diffVar, eventVar, \dRoughECMA10ExBin\, \dRoughECMA05ExBin\, \dRoughFZ10ExMaxLR\, \dRoughFZ05ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(69851, 85109, 410986, 1563, 896)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkp2ZFdkb2JtVnpjMXh1YVZaaGNuTWdQQzBnWXloa2FXWm1WbUZ5TENCbGRtVnVkRlpoY2l3Z1hGeGtVbTkxWjJoRlEwMUJNVEJGZUVKcGJseGNMQ0JjWEdSU2IzVm5hRVZEVFVFd05VVjRRbWx1WEZ3c0lGeGNaRkp2ZFdkb1Jsb3hNRVY0VFdGNFRGSmNYQ3dnWEZ4a1VtOTFaMmhHV2pBMVJYaE5ZWGhNVWx4Y0tWeHVaRlpoY2lBOExTQmNYR1JCYm01dmVVMWxZVzVjWEZ4dVhHNXpaV1ZrY3lBOExTQmpLRFk1T0RVeExDQTROVEV3T1N3Z05ERXdPVGcyTENBeE5UWXpMQ0E0T1RZcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbiMgUm91Z2huZXNzXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRSb3VnaEVDTUExMEV4QmluXFwsIFxcZFJvdWdoRUNNQTA1RXhCaW5cXCwgXFxkUm91Z2hGWjEwRXhNYXhMUlxcLCBcXGRSb3VnaEZaMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoNjk4NTEsIDg1MTA5LCA0MTA5ODYsIDE1NjMsIDg5NilcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFJvdWdobmVzc1xuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgXFxkUm91Z2hFQ01BMTBFeEJpblxcLCBcXGRSb3VnaEVDTUEwNUV4QmluXFwsIFxcZFJvdWdoRloxMEV4TWF4TFJcXCwgXFxkUm91Z2hGWjA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDY5ODUxLCA4NTEwOSwgNDEwOTg2LCAxNTYzLCA4OTYpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# Roughness
iVars <- c(diffVar, eventVar, \dRoughECMA10ExBin\, \dRoughECMA05ExBin\, \dRoughFZ10ExMaxLR\, \dRoughFZ05ExMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(69851, 85109, 410986, 1563, 896)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0ExTlRBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqYzFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDU1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 5501
mtry <- as.integer(length(iVars)/1.75)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTFOVEF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpjMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDU1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA1NTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjc1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 5501
mtry <- as.integer(length(iVars)/1.75)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlNiM1ZuYUNBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJTYjNWbmFDUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0pFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUlNiM1ZuYUNSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc3VsdHNPdXRSb3VnaCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutRough <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
resultsOutRough$OOB_MAE
resultsOutRough$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSU2IzVm5hQ0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlNiM1ZuYUNSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRGSnZkV2RvSkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSU2IzVm5hQ1JTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc3VsdHNPdXRSb3VnaCRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc3VsdHNPdXRSb3VnaCRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutRough <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
resultsOutRough$OOB_MAE
resultsOutRough$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVW05MVoyZ2dQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGSnZkV2RvSkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFVtOTFaMmdrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZKdmRXZG9KRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dFJvdWdoIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc3VsdHNPdXRSb3VnaCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutRough <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
resultsOutRough$OOB_MAE
resultsOutRough$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVbTkxWjJnZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZKdmRXZG9KRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwVW05MVoyZ2tUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0pGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0Um91Z2gkT09CX1JNU0VcbnJlc3VsdHNPdXRSb3VnaCRPT0JfTUFFXG5yZXN1bHRzT3V0Um91Z2gkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0Um91Z2ggPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFJvdWdoJE9PQl9STVNFXG5yZXN1bHRzT3V0Um91Z2gkT09CX01BRVxucmVzdWx0c091dFJvdWdoJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutRough <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
resultsOutRough$OOB_MAE
resultsOutRough$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEc5eVpTQnlaWE4xYkhSelhHNXlaWE5rUVc1dWIzbE5ia1pwZEVGQ1d5ZEVhV1ptSUhKdmRXZG9KeXdnSjFKTlUwVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFVtOTFaMmdrVDA5Q1gxSk5VMFZjYm5KbGMyUkJibTV2ZVUxdVJtbDBRVUpiSjBScFptWWdjbTkxWjJnbkxDQW5UVUZGSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0pFOVBRbDlOUVVWY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowUnBabVlnY205MVoyZ25MQ0FuVW5OeGRXRnlaV1FuWFNBOExTQnlaWE4xYkhSelQzVjBVbTkxWjJna1VuTnhkV0Z5WldSY2JuSmxjMlJCYm01dmVVMXVVR1Z5YlVsdGNFRkNKRVJwWm1aU2IzVm5hQ0E4TFNCeVpYTjFiSFJ6VDNWMFVtOTFaMmdrWTI5dVpHbDBhVzl1WVd4ZmNHVnliV2x0Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIHJvdWdoJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0Um91Z2gkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgcm91Z2gnLCAnTUFFJ10gPC0gcmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgcm91Z2gnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0Um91Z2gkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJERpZmZSb3VnaCA8LSByZXN1bHRzT3V0Um91Z2gkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdAnnoyMnFitAB['Diff rough', 'RMSE'] <- resultsOutRough$OOB_RMSE
resdAnnoyMnFitAB['Diff rough', 'MAE'] <- resultsOutRough$OOB_MAE
resdAnnoyMnFitAB['Diff rough', 'Rsquared'] <- resultsOutRough$Rsquared
resdAnnoyMnPermImpAB$DiffRough <- resultsOutRough$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkRzl5WlNCeVpYTjFiSFJ6WEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkRWFXWm1JSEp2ZFdkb0p5d2dKMUpOVTBVblhTQThMU0J5WlhOMWJIUnpUM1YwVW05MVoyZ2tUMDlDWDFKTlUwVmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMFJwWm1ZZ2NtOTFaMmduTENBblRVRkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRGSnZkV2RvSkU5UFFsOU5RVVZjYm5KbGMyUkJibTV2ZVUxdVJtbDBRVUpiSjBScFptWWdjbTkxWjJnbkxDQW5Vbk54ZFdGeVpXUW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFVtOTFaMmdrVW5OeGRXRnlaV1JjYm5KbGMyUkJibTV2ZVUxdVVHVnliVWx0Y0VGQ0pFUnBabVpTYjNWbmFDQThMU0J5WlhOMWJIUnpUM1YwVW05MVoyZ2tZMjl1WkdsMGFXOXVZV3hmY0dWeWJXbHRjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIHJvdWdoJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0Um91Z2gkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgcm91Z2gnLCAnTUFFJ10gPC0gcmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgcm91Z2gnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0Um91Z2gkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJERpZmZSb3VnaCA8LSByZXN1bHRzT3V0Um91Z2gkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIHJvdWdoJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0Um91Z2gkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgcm91Z2gnLCAnTUFFJ10gPC0gcmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgcm91Z2gnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0Um91Z2gkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJERpZmZSb3VnaCA8LSByZXN1bHRzT3V0Um91Z2gkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# store results
resdAnnoyMnFitAB['Diff rough', 'RMSE'] <- resultsOutRough$OOB_RMSE
resdAnnoyMnFitAB['Diff rough', 'MAE'] <- resultsOutRough$OOB_MAE
resdAnnoyMnFitAB['Diff rough', 'Rsquared'] <- resultsOutRough$Rsquared
resdAnnoyMnPermImpAB$DiffRough <- resultsOutRough$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0xtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlNiM1ZuYUNSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJTYjNWbmFDNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSU2IzVm5hQzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRkp2ZFdkb0xtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTlYwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9iV1ZoYmlCamFHRnVaMlVnYVc0Z1lXNXViM2xoYm1ObEtWd2lLU0FySUdkbmRHbDBiR1VvWENKa1VtOTFaMmh1WlhOelhDSXBJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjSW5ObGNtbG1YQ0lwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJJR052YjNKa1gyWnNhWEFvS1Z4dWNFSmhjbHh1WEc1cFppQW9jMkYyWlhCc2IzUnpLWHRjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ3aVVIUnpRVUprUVc1dWIzbE5ibVJTYjNWbmFFTnZibEJsY20xcGJYQXVjM1puWENJc0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQweUxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNJbk4yWjF3aUtTbGNiaUFnZFc1c2FXNXJLRndpVUhSelFVSmtRVzV1YjNsTmJtUlNiM1ZuYUVOdmJsQmxjbTFwYlhBdWMzWm5YQ0lwWEc0Z0lGeHVJQ0JuWjNOaGRtVW9abWxzWlc1aGJXVTlYQ0pRZEhOQlFtUkJibTV2ZVUxdVpGSnZkV2RvUTI5dVVHVnliV2x0Y0M1d1pHWmNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVElzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ3aWNHUm1YQ0lwS1Z4dUlDQjFibXhwYm1zb1hDSlFkSE5CUW1SQmJtNXZlVTF1WkZKdmRXZG9RMjl1VUdWeWJXbHRjQzV3WkdaY0lpbGNibjFjYmx4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFJvdWdoLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRSb3VnaCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRSb3VnaC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRSb3VnaC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFJvdWdoLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxkUm91Z2huZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbmRSb3VnaENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbmRSb3VnaENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uZFJvdWdoQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uZFJvdWdoQ29uUGVybWltcC5wZGZcXClcbn1cblxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutRough.conimp <- arrange(resultsOutRough$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutRough.conimp) + geom_col(aes(x=factor(rownames(resultsOutRough.conimp), levels=rownames(resultsOutRough.conimp)), y=CondPermImp), fill=mycolours[5], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\dRoughness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMndRoughConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMndRoughConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMndRoughConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMndRoughConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGSnZkV2RvTG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSU2IzVm5hQ1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlNiM1ZuYUM1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJTYjNWbmFDNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGSnZkV2RvTG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJOVjBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb2JXVmhiaUJqYUdGdVoyVWdhVzRnWVc1dWIzbGhibU5sS1Z4Y0tTQXJJR2RuZEdsMGJHVW9YRnhrVW05MVoyaHVaWE56WEZ3cElDc2dkR2hsYldVb2RHVjRkQ0E5SUdWc1pXMWxiblJmZEdWNGRDaG1ZVzFwYkhrZ1BTQmNYSE5sY21sbVhGd3BMQ0J3WVc1bGJDNW5jbWxrUFdWc1pXMWxiblJmYkdsdVpTaGpiMnh2Y2lBOUlISm5ZaWd5TXpVc0lESXpOU3dnTWpNMUxDQXhNREFzSUcxaGVFTnZiRzl5Vm1Gc2RXVWdQU0F5TlRVcExDQnNhVzVsZDJsa2RHZ2dQU0F3TGpJMUxDQnNhVzVsZEhsd1pTQTlJRElwS1NBcklHTnZiM0prWDJac2FYQW9LVnh1Y0VKaGNseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVnhjVUhSelFVSmtRVzV1YjNsTmJtUlNiM1ZuYUVOdmJsQmxjbTFwYlhBdWMzWm5YRndzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB5TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY1hITjJaMXhjS1NsY2JpQWdkVzVzYVc1cktGeGNVSFJ6UVVKa1FXNXViM2xOYm1SU2IzVm5hRU52YmxCbGNtMXBiWEF1YzNablhGd3BYRzRnSUZ4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhGeFFkSE5CUW1SQmJtNXZlVTF1WkZKdmRXZG9RMjl1VUdWeWJXbHRjQzV3WkdaY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUSXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRnhjY0dSbVhGd3BLVnh1SUNCMWJteHBibXNvWEZ4UWRITkJRbVJCYm01dmVVMXVaRkp2ZFdkb1EyOXVVR1Z5YldsdGNDNXdaR1pjWENsY2JuMWNibHh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFJvdWdoLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRSb3VnaCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRSb3VnaC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRSb3VnaC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFJvdWdoLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxkUm91Z2huZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbmRSb3VnaENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbmRSb3VnaENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uZFJvdWdoQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uZFJvdWdoQ29uUGVybWltcC5wZGZcXClcbn1cblxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFJvdWdoLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRSb3VnaCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRSb3VnaC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRSb3VnaC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFJvdWdoLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxkUm91Z2huZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbmRSb3VnaENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbmRSb3VnaENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uZFJvdWdoQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uZFJvdWdoQ29uUGVybWltcC5wZGZcXClcbn1cblxuXG5gYGBcbmBgYCJ9 -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutRough.conimp <- arrange(resultsOutRough$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutRough.conimp) + geom_col(aes(x=factor(rownames(resultsOutRough.conimp), levels=rownames(resultsOutRough.conimp)), y=CondPermImp), fill=mycolours[5], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\dRoughness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMndRoughConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMndRoughConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMndRoughConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMndRoughConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVrVW05MVoyaFdZWElnUEMwZ1hDSmtVbTkxWjJoRlEwMUJNRFZGZUVKcGJsd2lYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuZFJvdWdoVmFyIDwtIFxcZFJvdWdoRUNNQTA1RXhCaW5cXFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
dRoughVar <- \dRoughECMA05ExBin\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWtVbTkxWjJoV1lYSWdQQzBnWEZ4a1VtOTFaMmhGUTAxQk1EVkZlRUpwYmx4Y1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbmRSb3VnaFZhciA8LSBcXGRSb3VnaEVDTUEwNUV4QmluXFxcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5kUm91Z2hWYXIgPC0gXFxkUm91Z2hFQ01BMDVFeEJpblxcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
dRoughVar <- \dRoughECMA05ExBin\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### dImpulsiveness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJKYlhCMWJITnBkbVZ1WlhOelhHNXBWbUZ5Y3lBOExTQmpLR1JwWm1aV1lYSXNJR1YyWlc1MFZtRnlMQ0JjSW1SSmJYQjFiSE5UU0UxQmRtZE5ZWGhNVWx3aUxDQmNJbVJKYlhCMWJITlRTRTB3TlVWNFRXRjRURkpjSWl3Z1hDSmtTVzF3ZFd4elUwaE5VRzkzUVhablRXRjRURkpjSWlsY2JtUldZWElnUEMwZ1hDSmtRVzV1YjNsTlpXRnVYQ0pjYmx4dWMyVmxaSE1nUEMwZ1l5ZzBNVGcyTlRrc0lEYzRNRFVzSURNNE5EYzFMQ0EyTlRnek5Dd2dNVFkxTXlsY2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuIyBJbXB1bHNpdmVuZXNzXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRJbXB1bHNTSE1BdmdNYXhMUlxcLCBcXGRJbXB1bHNTSE0wNUV4TWF4TFJcXCwgXFxkSW1wdWxzU0hNUG93QXZnTWF4TFJcXClcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYyg0MTg2NTksIDc4MDUsIDM4NDc1LCA2NTgzNCwgMTY1MylcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Impulsiveness
iVars <- c(diffVar, eventVar, \dImpulsSHMAvgMaxLR\, \dImpulsSHM05ExMaxLR\, \dImpulsSHMPowAvgMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(418659, 7805, 38475, 65834, 1653)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QkpiWEIxYkhOcGRtVnVaWE56WEc1cFZtRnljeUE4TFNCaktHUnBabVpXWVhJc0lHVjJaVzUwVm1GeUxDQmNYR1JKYlhCMWJITlRTRTFCZG1kTllYaE1VbHhjTENCY1hHUkpiWEIxYkhOVFNFMHdOVVY0VFdGNFRGSmNYQ3dnWEZ4a1NXMXdkV3h6VTBoTlVHOTNRWFpuVFdGNFRGSmNYQ2xjYm1SV1lYSWdQQzBnWEZ4a1FXNXViM2xOWldGdVhGeGNibHh1YzJWbFpITWdQQzBnWXlnME1UZzJOVGtzSURjNE1EVXNJRE00TkRjMUxDQTJOVGd6TkN3Z01UWTFNeWxjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbiMgSW1wdWxzaXZlbmVzc1xuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgXFxkSW1wdWxzU0hNQXZnTWF4TFJcXCwgXFxkSW1wdWxzU0hNMDVFeE1heExSXFwsIFxcZEltcHVsc1NITVBvd0F2Z01heExSXFwpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoNDE4NjU5LCA3ODA1LCAzODQ3NSwgNjU4MzQsIDE2NTMpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBJbXB1bHNpdmVuZXNzXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRJbXB1bHNTSE1BdmdNYXhMUlxcLCBcXGRJbXB1bHNTSE0wNUV4TWF4TFJcXCwgXFxkSW1wdWxzU0hNUG93QXZnTWF4TFJcXClcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYyg0MTg2NTksIDc4MDUsIDM4NDc1LCA2NTgzNCwgMTY1MylcblxuYGBgXG5gYGAifQ== -->
```r
```r
# Impulsiveness
iVars <- c(diffVar, eventVar, \dImpulsSHMAvgMaxLR\, \dImpulsSHM05ExMaxLR\, \dImpulsSHMPowAvgMaxLR\)
dVar <- \dAnnoyMean\
seeds <- c(418659, 7805, 38475, 65834, 1653)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F5TlRBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDI1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 2501
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXlOVEF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDI1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAyNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 2501
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUkpiWEIxYkhNZ1BDMGdZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITmJNVG95WFN3Z2JuUnlaV1U5Ym5SeVpXVXNJRzEwY25rOWJYUnllU3dnY0dWeWJVbHRjRU52Ym1SVWFISmxjejF3WlhKdFNXMXdRMjl1WkZSb2NtVnpMQ0J1Y0dWeWJUMXVjR1Z5YlN3Z2JXbHVjM0JzYVhROWJXbHVjM0JzYVhRc0lHMXBibUoxWTJ0bGREMXRhVzVpZFdOclpYUXBYRzVjYmlNZ2NISnBiblFnYlc5a1pXd2djSEpsWkdsamRHbHZiaUJ5WlhOMWJIUnpYRzV5WlhOMWJIUnpUM1YwU1cxd2RXeHpKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwU1cxd2RXeHpKRTlQUWw5TlFVVmNibkpsYzNWc2RITlBkWFJKYlhCMWJITWtVbk54ZFdGeVpXUmNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEltcHVscyRPT0JfUk1TRVxucmVzdWx0c091dEltcHVscyRPT0JfTUFFXG5yZXN1bHRzT3V0SW1wdWxzJFJzcXVhcmVkXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
nperm <- 5
resultsOutImpuls <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
resultsOutImpuls$OOB_MAE
resultsOutImpuls$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSSmJYQjFiSE1nUEMwZ1kzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhOYk1Ub3lYU3dnYm5SeVpXVTliblJ5WldVc0lHMTBjbms5YlhSeWVTd2djR1Z5YlVsdGNFTnZibVJVYUhKbGN6MXdaWEp0U1cxd1EyOXVaRlJvY21WekxDQnVjR1Z5YlQxdWNHVnliU3dnYldsdWMzQnNhWFE5YldsdWMzQnNhWFFzSUcxcGJtSjFZMnRsZEQxdGFXNWlkV05yWlhRcFhHNWNiaU1nY0hKcGJuUWdiVzlrWld3Z2NISmxaR2xqZEdsdmJpQnlaWE4xYkhSelhHNXlaWE4xYkhSelQzVjBTVzF3ZFd4ekpFOVBRbDlTVFZORlhHNXlaWE4xYkhSelQzVjBTVzF3ZFd4ekpFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUkpiWEIxYkhNa1VuTnhkV0Z5WldSY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dEltcHVscyA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbnJlc3VsdHNPdXRJbXB1bHMkT09CX01BRVxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRJbXB1bHMgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0SW1wdWxzJE9PQl9STVNFXG5yZXN1bHRzT3V0SW1wdWxzJE9PQl9NQUVcbnJlc3VsdHNPdXRJbXB1bHMkUnNxdWFyZWRcblxuYGBgXG5gYGAifQ== -->
```r
```r
nperm <- 5
resultsOutImpuls <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
resultsOutImpuls$OOB_MAE
resultsOutImpuls$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwU1cxd2RXeHpJRHd0SUcxMWJIUnBYMk55WmxKbFp5aGtZWFJoU1c0OWMzUnBiVVJoZEdGT2RXMHNJR2xXWVhKelBXbFdZWEp6TENCa1ZtRnlQV1JXWVhJc0lITmxaV1J6UFhObFpXUnpMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUkpiWEIxYkhNa1QwOUNYMUpOVTBWY2JuSmxjM1ZzZEhOUGRYUkpiWEIxYkhNa1QwOUNYMDFCUlZ4dWNtVnpkV3gwYzA5MWRFbHRjSFZzY3lSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbnJlc3VsdHNPdXRJbXB1bHMkT09CX01BRVxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutImpuls <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
resultsOutImpuls$OOB_MAE
resultsOutImpuls$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBTVzF3ZFd4eklEd3RJRzExYkhScFgyTnlabEpsWnloa1lYUmhTVzQ5YzNScGJVUmhkR0ZPZFcwc0lHbFdZWEp6UFdsV1lYSnpMQ0JrVm1GeVBXUldZWElzSUhObFpXUnpQWE5sWldSekxDQnVkSEpsWlQxdWRISmxaU3dnYlhSeWVUMXRkSEo1TENCd1pYSnRTVzF3UTI5dVpGUm9jbVZ6UFhCbGNtMUpiWEJEYjI1a1ZHaHlaWE1zSUc1d1pYSnRQVzV3WlhKdExDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYmx4dUl5QndjbWx1ZENCdGIyUmxiQ0J3Y21Wa2FXTjBhVzl1SUhKbGMzVnNkSE5jYm5KbGMzVnNkSE5QZFhSSmJYQjFiSE1rVDA5Q1gxSk5VMFZjYm5KbGMzVnNkSE5QZFhSSmJYQjFiSE1rVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEVsdGNIVnNjeVJTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbnJlc3VsdHNPdXRJbXB1bHMkT09CX01BRVxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbnJlc3VsdHNPdXRJbXB1bHMkT09CX01BRVxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutImpuls <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
resultsOutImpuls$OOB_MAE
resultsOutImpuls$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMFJwWm1ZZ2FXMXdkV3h6Snl3Z0oxSk5VMFVuWFNBOExTQnlaWE4xYkhSelQzVjBTVzF3ZFd4ekpFOVBRbDlTVFZORlhHNXlaWE5rUVc1dWIzbE5ia1pwZEVGQ1d5ZEVhV1ptSUdsdGNIVnNjeWNzSUNkTlFVVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFNXMXdkV3h6SkU5UFFsOU5RVVZjYm5KbGMyUkJibTV2ZVUxdVJtbDBRVUpiSjBScFptWWdhVzF3ZFd4ekp5d2dKMUp6Y1hWaGNtVmtKMTBnUEMwZ2NtVnpkV3gwYzA5MWRFbHRjSFZzY3lSU2MzRjFZWEpsWkZ4dWNtVnpaRUZ1Ym05NVRXNVFaWEp0U1cxd1FVSWtSR2xtWmtsdGNIVnNjeUE4TFNCeVpYTjFiSFJ6VDNWMFNXMXdkV3h6SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhCY2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgaW1wdWxzJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0SW1wdWxzJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIGltcHVscycsICdNQUUnXSA8LSByZXN1bHRzT3V0SW1wdWxzJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgaW1wdWxzJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZkltcHVscyA8LSByZXN1bHRzT3V0SW1wdWxzJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# store results
resdAnnoyMnFitAB['Diff impuls', 'RMSE'] <- resultsOutImpuls$OOB_RMSE
resdAnnoyMnFitAB['Diff impuls', 'MAE'] <- resultsOutImpuls$OOB_MAE
resdAnnoyMnFitAB['Diff impuls', 'Rsquared'] <- resultsOutImpuls$Rsquared
resdAnnoyMnPermImpAB$DiffImpuls <- resultsOutImpuls$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowUnBabVlnYVcxd2RXeHpKeXdnSjFKTlUwVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFNXMXdkV3h6SkU5UFFsOVNUVk5GWEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkRWFXWm1JR2x0Y0hWc2N5Y3NJQ2ROUVVVblhTQThMU0J5WlhOMWJIUnpUM1YwU1cxd2RXeHpKRTlQUWw5TlFVVmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMFJwWm1ZZ2FXMXdkV3h6Snl3Z0oxSnpjWFZoY21Wa0oxMGdQQzBnY21WemRXeDBjMDkxZEVsdGNIVnNjeVJTYzNGMVlYSmxaRnh1Y21WelpFRnVibTk1VFc1UVpYSnRTVzF3UVVJa1JHbG1aa2x0Y0hWc2N5QThMU0J5WlhOMWJIUnpUM1YwU1cxd2RXeHpKR052Ym1ScGRHbHZibUZzWDNCbGNtMXBiWEJjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIGltcHVscycsICdSTVNFJ10gPC0gcmVzdWx0c091dEltcHVscyRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnRGlmZiBpbXB1bHMnLCAnTUFFJ10gPC0gcmVzdWx0c091dEltcHVscyRPT0JfTUFFXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIGltcHVscycsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRJbXB1bHMkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJERpZmZJbXB1bHMgPC0gcmVzdWx0c091dEltcHVscyRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgaW1wdWxzJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0SW1wdWxzJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIGltcHVscycsICdNQUUnXSA8LSByZXN1bHRzT3V0SW1wdWxzJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgaW1wdWxzJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZkltcHVscyA8LSByZXN1bHRzT3V0SW1wdWxzJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdAnnoyMnFitAB['Diff impuls', 'RMSE'] <- resultsOutImpuls$OOB_RMSE
resdAnnoyMnFitAB['Diff impuls', 'MAE'] <- resultsOutImpuls$OOB_MAE
resdAnnoyMnFitAB['Diff impuls', 'Rsquared'] <- resultsOutImpuls$Rsquared
resdAnnoyMnPermImpAB$DiffImpuls <- resultsOutImpuls$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5NWpiMjVwYlhBZ1BDMGdZWEp5WVc1blpTaHlaWE4xYkhSelQzVjBTVzF3ZFd4ekpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQXNJR1JsYzJNb2NtOTNYMjUxYldKbGNpZ3BLU2xjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEVsdGNIVnNjeTVqYjI1cGJYQXBJQ3NnWjJWdmJWOWpiMndvWVdWektIZzlabUZqZEc5eUtISnZkMjVoYldWektISmxjM1ZzZEhOUGRYUkpiWEIxYkhNdVkyOXVhVzF3S1N3Z2JHVjJaV3h6UFhKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSSmJYQjFiSE11WTI5dWFXMXdLU2tzSUhrOVEyOXVaRkJsY20xSmJYQXBMQ0JtYVd4c1BXMTVZMjlzYjNWeWMxczJYU3dnZDJsa2RHZzlNQzQxS1NBcklHeGhZbk1vZUQxY0lsWmhjbWxoWW14bFhDSXNJSGs5WENKRGIyNWthWFJwYjI1aGJDQjJZWEpwWVdKc1pTQndaWEp0ZFhSaGRHbHZiaUJwYlhCdmNuUmhibU5sSUNodFpXRnVJR05vWVc1blpTQnBiaUJoYm01dmVXRnVZMlVwWENJcElDc2daMmQwYVhSc1pTaGNJbVJKYlhCMWJITnBkbVZ1WlhOelhDSXBJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjSW5ObGNtbG1YQ0lwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJJR052YjNKa1gyWnNhWEFvS1Z4dWNFSmhjbHh1WEc1cFppQW9jMkYyWlhCc2IzUnpLWHRjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ3aVVIUnpRVUprUVc1dWIzbE5ibVJKYlhCMWJITkRiMjVRWlhKdGFXMXdMbk4yWjF3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pd2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p6ZG1kY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNaRUZ1Ym05NVRXNWtTVzF3ZFd4elEyOXVVR1Z5YldsdGNDNXpkbWRjSWlsY2JpQWdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjSWxCMGMwRkNaRUZ1Ym05NVRXNWtTVzF3ZFd4elEyOXVVR1Z5YldsdGNDNXdaR1pjSWl3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRJc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGd2ljR1JtWENJcEtWeHVJQ0IxYm14cGJtc29YQ0pRZEhOQlFtUkJibTV2ZVUxdVpFbHRjSFZzYzBOdmJsQmxjbTFwYlhBdWNHUm1YQ0lwWEc1OVhHNWNibUJnWUNKOSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEltcHVscy5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0SW1wdWxzJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEltcHVscy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s2XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgZ2d0aXRsZShcXGRJbXB1bHNpdmVuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbmRJbXB1bHNDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5kSW1wdWxzQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5kSW1wdWxzQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uZEltcHVsc0NvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutImpuls.conimp <- arrange(resultsOutImpuls$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutImpuls.conimp) + geom_col(aes(x=factor(rownames(resultsOutImpuls.conimp), levels=rownames(resultsOutImpuls.conimp)), y=CondPermImp), fill=mycolours[6], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\dImpulsiveness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMndImpulsConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMndImpulsConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMndImpulsConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMndImpulsConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRFbHRjSFZzY3k1amIyNXBiWEFnUEMwZ1lYSnlZVzVuWlNoeVpYTjFiSFJ6VDNWMFNXMXdkV3h6SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhBc0lHUmxjMk1vY205M1gyNTFiV0psY2lncEtTbGNibHh1Y0VKaGNpQThMU0JuWjNCc2IzUW9jbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5NWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSSmJYQjFiSE11WTI5dWFXMXdLU3dnYkdWMlpXeHpQWEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJKYlhCMWJITXVZMjl1YVcxd0tTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzMlhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjWEZaaGNtbGhZbXhsWEZ3c0lIazlYRnhEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxJQ2h0WldGdUlHTm9ZVzVuWlNCcGJpQmhibTV2ZVdGdVkyVXBYRndwSUNzZ1oyZDBhWFJzWlNoY1hHUkpiWEIxYkhOcGRtVnVaWE56WEZ3cElDc2dkR2hsYldVb2RHVjRkQ0E5SUdWc1pXMWxiblJmZEdWNGRDaG1ZVzFwYkhrZ1BTQmNYSE5sY21sbVhGd3BMQ0J3WVc1bGJDNW5jbWxrUFdWc1pXMWxiblJmYkdsdVpTaGpiMnh2Y2lBOUlISm5ZaWd5TXpVc0lESXpOU3dnTWpNMUxDQXhNREFzSUcxaGVFTnZiRzl5Vm1Gc2RXVWdQU0F5TlRVcExDQnNhVzVsZDJsa2RHZ2dQU0F3TGpJMUxDQnNhVzVsZEhsd1pTQTlJRElwS1NBcklHTnZiM0prWDJac2FYQW9LVnh1Y0VKaGNseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVnhjVUhSelFVSmtRVzV1YjNsTmJtUkpiWEIxYkhORGIyNVFaWEp0YVcxd0xuTjJaMXhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWl3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHpkbWRjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1pFRnVibTk1VFc1a1NXMXdkV3h6UTI5dVVHVnliV2x0Y0M1emRtZGNYQ2xjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNYRkIwYzBGQ1pFRnVibTk1VFc1a1NXMXdkV3h6UTI5dVVHVnliV2x0Y0M1d1pHWmNYQ3dnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVElzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ4Y2NHUm1YRndwS1Z4dUlDQjFibXhwYm1zb1hGeFFkSE5CUW1SQmJtNXZlVTF1WkVsdGNIVnNjME52YmxCbGNtMXBiWEF1Y0dSbVhGd3BYRzU5WEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRJbXB1bHMuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dEltcHVscyRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0SW1wdWxzLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0SW1wdWxzLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNl0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIGdndGl0bGUoXFxkSW1wdWxzaXZlbmVzc1xcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5kSW1wdWxzQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uZEltcHVsc0NvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uZEltcHVsc0NvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbmRJbXB1bHNDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEltcHVscy5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0SW1wdWxzJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEltcHVscy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s2XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgZ2d0aXRsZShcXGRJbXB1bHNpdmVuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbmRJbXB1bHNDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5kSW1wdWxzQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5kSW1wdWxzQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uZEltcHVsc0NvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgIn0= -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutImpuls.conimp <- arrange(resultsOutImpuls$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutImpuls.conimp) + geom_col(aes(x=factor(rownames(resultsOutImpuls.conimp), levels=rownames(resultsOutImpuls.conimp)), y=CondPermImp), fill=mycolours[6], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + ggtitle(\dImpulsiveness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMndImpulsConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMndImpulsConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMndImpulsConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMndImpulsConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVrU1cxd2RXeHpWbUZ5SUR3dElGd2laRWx0Y0hWc2MxTklUVEExUlhoTllYaE1VbHdpWEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbmRJbXB1bHNWYXIgPC0gXFxkSW1wdWxzU0hNMDVFeE1heExSXFxcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
dImpulsVar <- \dImpulsSHM05ExMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWtTVzF3ZFd4elZtRnlJRHd0SUZ4Y1pFbHRjSFZzYzFOSVRUQTFSWGhOWVhoTVVseGNYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG5kSW1wdWxzVmFyIDwtIFxcZEltcHVsc1NITTA1RXhNYXhMUlxcXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5kSW1wdWxzVmFyIDwtIFxcZEltcHVsc1NITTA1RXhNYXhMUlxcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
dImpulsVar <- \dImpulsSHM05ExMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### dSQM and loudness comparison
Now the highest importance dSQMs are ranked against each other, controlling for loudness difference.
##### Include dtonal loudness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dScFptWldZWElzSUdWMlpXNTBWbUZ5TENCa1UyaGhjbkJXWVhJc0lHUlViMjVNWkZaaGNpd2daRVpzZFdOMFZtRnlMQ0JrVW05MVoyaFdZWElzSUdSSmJYQjFiSE5XWVhJcFhHNWtWbUZ5SUR3dElGd2laRUZ1Ym05NVRXVmhibHdpWEc1Y2JuTmxaV1J6SUR3dElHTW9PVGcwTmpVc0lEVTBNVFl6TENBMk5UUXhMQ0F6TmpRNE5Td2dPRFE1TmpjMUtWeHVYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcblxuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgZFNoYXJwVmFyLCBkVG9uTGRWYXIsIGRGbHVjdFZhciwgZFJvdWdoVmFyLCBkSW1wdWxzVmFyKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDk4NDY1LCA1NDE2MywgNjU0MSwgMzY0ODUsIDg0OTY3NSlcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
iVars <- c(diffVar, eventVar, dSharpVar, dTonLdVar, dFluctVar, dRoughVar, dImpulsVar)
dVar <- \dAnnoyMean\
seeds <- c(98465, 54163, 6541, 36485, 849675)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR1JwWm1aV1lYSXNJR1YyWlc1MFZtRnlMQ0JrVTJoaGNuQldZWElzSUdSVWIyNU1aRlpoY2l3Z1pFWnNkV04wVm1GeUxDQmtVbTkxWjJoV1lYSXNJR1JKYlhCMWJITldZWElwWEc1a1ZtRnlJRHd0SUZ4Y1pFRnVibTk1VFdWaGJseGNYRzVjYm5ObFpXUnpJRHd0SUdNb09UZzBOalVzSURVME1UWXpMQ0EyTlRReExDQXpOalE0TlN3Z09EUTVOamMxS1Z4dVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcblxuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgZFNoYXJwVmFyLCBkVG9uTGRWYXIsIGRGbHVjdFZhciwgZFJvdWdoVmFyLCBkSW1wdWxzVmFyKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDk4NDY1LCA1NDE2MywgNjU0MSwgMzY0ODUsIDg0OTY3NSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBkU2hhcnBWYXIsIGRUb25MZFZhciwgZEZsdWN0VmFyLCBkUm91Z2hWYXIsIGRJbXB1bHNWYXIpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoOTg0NjUsIDU0MTYzLCA2NTQxLCAzNjQ4NSwgODQ5Njc1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
iVars <- c(diffVar, eventVar, dSharpVar, dTonLdVar, dFluctVar, dRoughVar, dImpulsVar)
dVar <- \dAnnoyMean\
seeds <- c(98465, 54163, 6541, 36485, 849675)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F5TlRGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU1qVXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gMjUxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 251
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXlOVEZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TWpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDI1MVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS4yNSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAyNTFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 251
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlRVVTF6TVNBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJUVVUxek1TUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUlRVVTF6TVNSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutSQMs1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
resultsOutSQMs1$OOB_MAE
resultsOutSQMs1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSVFVVMXpNU0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlRVVTF6TVNSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRGTlJUWE14SkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSVFVVMXpNU1JTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutSQMs1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
resultsOutSQMs1$OOB_MAE
resultsOutSQMs1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVTFGTmN6RWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGTlJUWE14SkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFUxRk5jekVrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZOUlRYTXhKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dFNRTXMxIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutSQMs1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
resultsOutSQMs1$OOB_MAE
resultsOutSQMs1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVMUZOY3pFZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZOUlRYTXhKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwVTFGTmN6RWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U1FNczEkT09CX1JNU0VcbnJlc3VsdHNPdXRTUU1zMSRPT0JfTUFFXG5yZXN1bHRzT3V0U1FNczEkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0U1FNczEgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFNRTXMxJE9PQl9STVNFXG5yZXN1bHRzT3V0U1FNczEkT09CX01BRVxucmVzdWx0c091dFNRTXMxJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSQMs1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
resultsOutSQMs1$OOB_MAE
resultsOutSQMs1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMFJwWm1ZZ1UxRk5jeUJwYm1NZ2RHOXVZV3dnYkc5MVpDY3NJQ2RTVFZORkoxMGdQQzBnY21WemRXeDBjMDkxZEZOUlRYTXhKRTlQUWw5U1RWTkZYRzV5WlhOa1FXNXViM2xOYmtacGRFRkNXeWRFYVdabUlGTlJUWE1nYVc1aklIUnZibUZzSUd4dmRXUW5MQ0FuVFVGRkoxMGdQQzBnY21WemRXeDBjMDkxZEZOUlRYTXhKRTlQUWw5TlFVVmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMFJwWm1ZZ1UxRk5jeUJwYm1NZ2RHOXVZV3dnYkc5MVpDY3NJQ2RTYzNGMVlYSmxaQ2RkSUR3dElISmxjM1ZzZEhOUGRYUlRVVTF6TVNSU2MzRjFZWEpsWkZ4dWNtVnpaRUZ1Ym05NVRXNVFaWEp0U1cxd1FVSWtSR2xtWmxOUlRYTXhJRHd0SUhKbGMzVnNkSE5QZFhSVFVVMXpNU1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3WEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEFubm95TW5GaXRBQlsnRGlmZiBTUU1zIGluYyB0b25hbCBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U1FNczEkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0U1FNczEkT09CX01BRVxucmVzZEFubm95TW5GaXRBQlsnRGlmZiBTUU1zIGluYyB0b25hbCBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFNRTXMxJFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiREaWZmU1FNczEgPC0gcmVzdWx0c091dFNRTXMxJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# store results
resdAnnoyMnFitAB['Diff SQMs inc tonal loud', 'RMSE'] <- resultsOutSQMs1$OOB_RMSE
resdAnnoyMnFitAB['Diff SQMs inc tonal loud', 'MAE'] <- resultsOutSQMs1$OOB_MAE
resdAnnoyMnFitAB['Diff SQMs inc tonal loud', 'Rsquared'] <- resultsOutSQMs1$Rsquared
resdAnnoyMnPermImpAB$DiffSQMs1 <- resultsOutSQMs1$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowUnBabVlnVTFGTmN5QnBibU1nZEc5dVlXd2diRzkxWkNjc0lDZFNUVk5GSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpFOVBRbDlTVFZORlhHNXlaWE5rUVc1dWIzbE5ia1pwZEVGQ1d5ZEVhV1ptSUZOUlRYTWdhVzVqSUhSdmJtRnNJR3h2ZFdRbkxDQW5UVUZGSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpFOVBRbDlOUVVWY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowUnBabVlnVTFGTmN5QnBibU1nZEc5dVlXd2diRzkxWkNjc0lDZFNjM0YxWVhKbFpDZGRJRHd0SUhKbGMzVnNkSE5QZFhSVFVVMXpNU1JTYzNGMVlYSmxaRnh1Y21WelpFRnVibTk1VFc1UVpYSnRTVzF3UVVJa1JHbG1abE5SVFhNeElEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1TUmpiMjVrYVhScGIyNWhiRjl3WlhKdGFXMXdYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFNRTXMxJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIFNRTXMgaW5jIHRvbmFsIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZlNRTXMxIDwtIHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFNRTXMxJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIFNRTXMgaW5jIHRvbmFsIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZlNRTXMxIDwtIHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# store results
resdAnnoyMnFitAB['Diff SQMs inc tonal loud', 'RMSE'] <- resultsOutSQMs1$OOB_RMSE
resdAnnoyMnFitAB['Diff SQMs inc tonal loud', 'MAE'] <- resultsOutSQMs1$OOB_MAE
resdAnnoyMnFitAB['Diff SQMs inc tonal loud', 'Rsquared'] <- resultsOutSQMs1$Rsquared
resdAnnoyMnPermImpAB$DiffSQMs1 <- resultsOutSQMs1$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeExtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlRVVTF6TVNSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJUVVUxek1TNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVFVVMXpNUzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRk5SVFhNeExtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTjEwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9iV1ZoYmlCamFHRnVaMlVnYVc0Z1lXNXViM2xoYm1ObEtWd2lLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWENKelpYSnBabHdpS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLeUJqYjI5eVpGOW1iR2x3S0hsc2FXMDlZeWd3TENBeUxqUXBLVnh1Y0VKaGNseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrUnBabVpUVVUxelZHOXVUR1JEYjI1UVpYSnRhVzF3TG5OMloxd2lMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNaTQwTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luTjJaMXdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1FXNXViM2xOYmtScFptWlRVVTF6Vkc5dVRHUkRiMjVRWlhKdGFXMXdMbk4yWjF3aUtWeHVJQ0JjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ3aVVIUnpRVUprUVc1dWIzbE5ia1JwWm1aVFVVMXpWRzl1VEdSRGIyNVFaWEp0YVcxd0xuQmtabHdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWk0MExDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNJbkJrWmx3aUtTbGNiaUFnZFc1c2FXNXJLRndpVUhSelFVSmtRVzV1YjNsTmJrUnBabVpUVVUxelZHOXVUR1JEYjI1UVpYSnRhVzF3TG5Ca1psd2lLVnh1ZlZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMS5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMxLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCAyLjQpKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs1.conimp <- arrange(resultsOutSQMs1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs1.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs1.conimp), levels=rownames(resultsOutSQMs1.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 2.4))
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnDiffSQMsTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnDiffSQMsTonLdConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnDiffSQMsTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnDiffSQMsTonLdConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGTlJUWE14TG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSVFVVMXpNU1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlRVVTF6TVM1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJUVVUxek1TNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGTlJUWE14TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJOMTBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb2JXVmhiaUJqYUdGdVoyVWdhVzRnWVc1dWIzbGhibU5sS1Z4Y0tTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYRnh6WlhKcFpseGNLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1NrZ0t5QmpiMjl5WkY5bWJHbHdLSGxzYVcwOVl5Z3dMQ0F5TGpRcEtWeHVjRUpoY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtScFptWlRVVTF6Vkc5dVRHUkRiMjVRWlhKdGFXMXdMbk4yWjF4Y0xDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pNDBMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhOMloxeGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprUVc1dWIzbE5ia1JwWm1aVFVVMXpWRzl1VEdSRGIyNVFaWEp0YVcxd0xuTjJaMXhjS1Z4dUlDQmNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVnhjVUhSelFVSmtRVzV1YjNsTmJrUnBabVpUVVUxelZHOXVUR1JEYjI1UVpYSnRhVzF3TG5Ca1pseGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNaTQwTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY1hIQmtabHhjS1NsY2JpQWdkVzVzYVc1cktGeGNVSFJ6UVVKa1FXNXViM2xOYmtScFptWlRVVTF6Vkc5dVRHUkRiMjVRWlhKdGFXMXdMbkJrWmx4Y0tWeHVmVnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMS5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMxLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCAyLjQpKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMS5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMxLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCAyLjQpKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs1.conimp <- arrange(resultsOutSQMs1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs1.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs1.conimp), levels=rownames(resultsOutSQMs1.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 2.4))
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnDiffSQMsTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnDiffSQMsTonLdConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnDiffSQMsTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnDiffSQMsTonLdConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### Exclude tonal loudness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dScFptWldZWElzSUdWMlpXNTBWbUZ5TENCa1UyaGhjbkJXWVhJc0lHUlViMjVoYkZaaGNpd2daRVpzZFdOMFZtRnlMQ0JrVW05MVoyaFdZWElzSUdSSmJYQjFiSE5XWVhJcFhHNWtWbUZ5SUR3dElGd2laRUZ1Ym05NVRXVmhibHdpWEc1Y2JuTmxaV1J6SUR3dElHTW9ORGs0TmpVc0lEYzROVElzSURnME5UazJNU3dnTkRFd05UZ3pMQ0F6TmpjME9DbGNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgZFNoYXJwVmFyLCBkVG9uYWxWYXIsIGRGbHVjdFZhciwgZFJvdWdoVmFyLCBkSW1wdWxzVmFyKVxuZFZhciA8LSBcXGRBbm5veU1lYW5cXFxuXG5zZWVkcyA8LSBjKDQ5ODY1LCA3ODUyLCA4NDU5NjEsIDQxMDU4MywgMzY3NDgpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
iVars <- c(diffVar, eventVar, dSharpVar, dTonalVar, dFluctVar, dRoughVar, dImpulsVar)
dVar <- \dAnnoyMean\
seeds <- c(49865, 7852, 845961, 410583, 36748)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR1JwWm1aV1lYSXNJR1YyWlc1MFZtRnlMQ0JrVTJoaGNuQldZWElzSUdSVWIyNWhiRlpoY2l3Z1pFWnNkV04wVm1GeUxDQmtVbTkxWjJoV1lYSXNJR1JKYlhCMWJITldZWElwWEc1a1ZtRnlJRHd0SUZ4Y1pFRnVibTk1VFdWaGJseGNYRzVjYm5ObFpXUnpJRHd0SUdNb05EazROalVzSURjNE5USXNJRGcwTlRrMk1Td2dOREV3TlRnekxDQXpOamMwT0NsY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbmlWYXJzIDwtIGMoZGlmZlZhciwgZXZlbnRWYXIsIGRTaGFycFZhciwgZFRvbmFsVmFyLCBkRmx1Y3RWYXIsIGRSb3VnaFZhciwgZEltcHVsc1ZhcilcbmRWYXIgPC0gXFxkQW5ub3lNZWFuXFxcblxuc2VlZHMgPC0gYyg0OTg2NSwgNzg1MiwgODQ1OTYxLCA0MTA1ODMsIDM2NzQ4KVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBkU2hhcnBWYXIsIGRUb25hbFZhciwgZEZsdWN0VmFyLCBkUm91Z2hWYXIsIGRJbXB1bHNWYXIpXG5kVmFyIDwtIFxcZEFubm95TWVhblxcXG5cbnNlZWRzIDwtIGMoNDk4NjUsIDc4NTIsIDg0NTk2MSwgNDEwNTgzLCAzNjc0OClcblxuYGBgXG5gYGAifQ== -->
```r
```r
iVars <- c(diffVar, eventVar, dSharpVar, dTonalVar, dFluctVar, dRoughVar, dImpulsVar)
dVar <- \dAnnoyMean\
seeds <- c(49865, 7852, 845961, 410583, 36748)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0ExTlRBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDU1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 5501
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTFOVEF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDU1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA1NTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 5501
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlRVVTF6TWlBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJUVVUxek1pUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeUpFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUlRVVTF6TWlSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutSQMs2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
resultsOutSQMs2$OOB_MAE
resultsOutSQMs2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSVFVVMXpNaUE4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlRVVTF6TWlSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRGTlJUWE15SkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSVFVVMXpNaVJTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutSQMs2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
resultsOutSQMs2$OOB_MAE
resultsOutSQMs2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVTFGTmN6SWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGTlJUWE15SkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFUxRk5jeklrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZOUlRYTXlKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dFNRTXMyIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutSQMs2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
resultsOutSQMs2$OOB_MAE
resultsOutSQMs2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVMUZOY3pJZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZOUlRYTXlKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwVTFGTmN6SWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeUpGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U1FNczIkT09CX1JNU0VcbnJlc3VsdHNPdXRTUU1zMiRPT0JfTUFFXG5yZXN1bHRzT3V0U1FNczIkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0U1FNczIgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFNRTXMyJE9PQl9STVNFXG5yZXN1bHRzT3V0U1FNczIkT09CX01BRVxucmVzdWx0c091dFNRTXMyJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSQMs2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
resultsOutSQMs2$OOB_MAE
resultsOutSQMs2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMFJwWm1ZZ1UxRk5jeUJ1YnlCMGIyNWhiQ0JzYjNWa0p5d2dKMUpOVTBVblhTQThMU0J5WlhOMWJIUnpUM1YwVTFGTmN6SWtUMDlDWDFKTlUwVmNibkpsYzJSQmJtNXZlVTF1Um1sMFFVSmJKMFJwWm1ZZ1UxRk5jeUJ1YnlCMGIyNWhiQ0JzYjNWa0p5d2dKMDFCUlNkZElEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1pUlBUMEpmVFVGRlhHNXlaWE5rUVc1dWIzbE5ia1pwZEVGQ1d5ZEVhV1ptSUZOUlRYTWdibThnZEc5dVlXd2diRzkxWkNjc0lDZFNjM0YxWVhKbFpDZGRJRHd0SUhKbGMzVnNkSE5QZFhSVFVVMXpNaVJTYzNGMVlYSmxaRnh1Y21WelpFRnVibTk1VFc1UVpYSnRTVzF3UVVJa1JHbG1abE5SVFhNeUlEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1pUmpiMjVrYVhScGIyNWhiRjl3WlhKdGFXMXdYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuIyBzdG9yZSByZXN1bHRzXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIFNRTXMgbm8gdG9uYWwgbG91ZCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFNRTXMyJE9PQl9STVNFXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIFNRTXMgbm8gdG9uYWwgbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0U1FNczIkT09CX01BRVxucmVzZEFubm95TW5GaXRBQlsnRGlmZiBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U1FNczIkUnNxdWFyZWRcbnJlc2RBbm5veU1uUGVybUltcEFCJERpZmZTUU1zMiA8LSByZXN1bHRzT3V0U1FNczIkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdAnnoyMnFitAB['Diff SQMs no tonal loud', 'RMSE'] <- resultsOutSQMs2$OOB_RMSE
resdAnnoyMnFitAB['Diff SQMs no tonal loud', 'MAE'] <- resultsOutSQMs2$OOB_MAE
resdAnnoyMnFitAB['Diff SQMs no tonal loud', 'Rsquared'] <- resultsOutSQMs2$Rsquared
resdAnnoyMnPermImpAB$DiffSQMs2 <- resultsOutSQMs2$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowUnBabVlnVTFGTmN5QnVieUIwYjI1aGJDQnNiM1ZrSnl3Z0oxSk5VMFVuWFNBOExTQnlaWE4xYkhSelQzVjBVMUZOY3pJa1QwOUNYMUpOVTBWY2JuSmxjMlJCYm01dmVVMXVSbWwwUVVKYkowUnBabVlnVTFGTmN5QnVieUIwYjI1aGJDQnNiM1ZrSnl3Z0owMUJSU2RkSUR3dElISmxjM1ZzZEhOUGRYUlRVVTF6TWlSUFQwSmZUVUZGWEc1eVpYTmtRVzV1YjNsTmJrWnBkRUZDV3lkRWFXWm1JRk5SVFhNZ2JtOGdkRzl1WVd3Z2JHOTFaQ2NzSUNkU2MzRjFZWEpsWkNkZElEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1pUlNjM0YxWVhKbFpGeHVjbVZ6WkVGdWJtOTVUVzVRWlhKdFNXMXdRVUlrUkdsbVpsTlJUWE15SUR3dElISmxjM1ZzZEhOUGRYUlRVVTF6TWlSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEFubm95TW5GaXRBQlsnRGlmZiBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzZEFubm95TW5GaXRBQlsnRGlmZiBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgU1FNcyBubyB0b25hbCBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFNRTXMyJFJzcXVhcmVkXG5yZXNkQW5ub3lNblBlcm1JbXBBQiREaWZmU1FNczIgPC0gcmVzdWx0c091dFNRTXMyJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgU1FNcyBubyB0b25hbCBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U1FNczIkT09CX1JNU0VcbnJlc2RBbm5veU1uRml0QUJbJ0RpZmYgU1FNcyBubyB0b25hbCBsb3VkJywgJ01BRSddIDwtIHJlc3VsdHNPdXRTUU1zMiRPT0JfTUFFXG5yZXNkQW5ub3lNbkZpdEFCWydEaWZmIFNRTXMgbm8gdG9uYWwgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxucmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZlNRTXMyIDwtIHJlc3VsdHNPdXRTUU1zMiRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# store results
resdAnnoyMnFitAB['Diff SQMs no tonal loud', 'RMSE'] <- resultsOutSQMs2$OOB_RMSE
resdAnnoyMnFitAB['Diff SQMs no tonal loud', 'MAE'] <- resultsOutSQMs2$OOB_MAE
resdAnnoyMnFitAB['Diff SQMs no tonal loud', 'Rsquared'] <- resultsOutSQMs2$Rsquared
resdAnnoyMnPermImpAB$DiffSQMs2 <- resultsOutSQMs2$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeUxtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlRVVTF6TWlSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJUVVUxek1pNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVFVVMXpNaTVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRk5SVFhNeUxtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTjEwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9iV1ZoYmlCamFHRnVaMlVnYVc0Z1lXNXViM2xoYm1ObEtWd2lLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWENKelpYSnBabHdpS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLeUJqYjI5eVpGOW1iR2x3S0hsc2FXMDlZeWd3TENBeUxqUXBLVnh1Y0VKaGNseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtRVzV1YjNsTmJrUnBabVpUVVUxelRtOVViMjVNWkVOdmJsQmxjbTFwYlhBdWMzWm5YQ0lzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB5TGpRc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGd2ljM1puWENJcEtWeHVJQ0IxYm14cGJtc29YQ0pRZEhOQlFtUkJibTV2ZVUxdVJHbG1abE5SVFhOT2IxUnZia3hrUTI5dVVHVnliV2x0Y0M1emRtZGNJaWxjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNJbEIwYzBGQ1pFRnVibTk1VFc1RWFXWm1VMUZOYzA1dlZHOXVUR1JEYjI1UVpYSnRhVzF3TG5Ca1psd2lMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNaTQwTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luQmtabHdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1FXNXViM2xOYmtScFptWlRVVTF6VG05VWIyNU1aRU52YmxCbGNtMXBiWEF1Y0dSbVhDSXBYRzU5WEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0U1FNczIuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFNRTXMyJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dFNRTXMyLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dFNRTXMyLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0U1FNczIuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s3XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlIChtZWFuIGNoYW5nZSBpbiBhbm5veWFuY2UpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDIuNCkpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRBbm5veU1uRGlmZlNRTXNOb1RvbkxkQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEFubm95TW5EaWZmU1FNc05vVG9uTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zTm9Ub25MZENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uRGlmZlNRTXNOb1RvbkxkQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs2.conimp <- arrange(resultsOutSQMs2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs2.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs2.conimp), levels=rownames(resultsOutSQMs2.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 2.4))
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnDiffSQMsNoTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnDiffSQMsNoTonLdConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnDiffSQMsNoTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnDiffSQMsNoTonLdConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGTlJUWE15TG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSVFVVMXpNaVJqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlRVVTF6TWk1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJUVVUxek1pNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGTlJUWE15TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJOMTBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb2JXVmhiaUJqYUdGdVoyVWdhVzRnWVc1dWIzbGhibU5sS1Z4Y0tTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYRnh6WlhKcFpseGNLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1NrZ0t5QmpiMjl5WkY5bWJHbHdLSGxzYVcwOVl5Z3dMQ0F5TGpRcEtWeHVjRUpoY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1FXNXViM2xOYmtScFptWlRVVTF6VG05VWIyNU1aRU52YmxCbGNtMXBiWEF1YzNablhGd3NJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHlMalFzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ4Y2MzWm5YRndwS1Z4dUlDQjFibXhwYm1zb1hGeFFkSE5CUW1SQmJtNXZlVTF1UkdsbVpsTlJUWE5PYjFSdmJreGtRMjl1VUdWeWJXbHRjQzV6ZG1kY1hDbGNiaUFnWEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY1hGQjBjMEZDWkVGdWJtOTVUVzVFYVdabVUxRk5jMDV2Vkc5dVRHUkRiMjVRWlhKdGFXMXdMbkJrWmx4Y0xDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pNDBMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhCa1pseGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprUVc1dWIzbE5ia1JwWm1aVFVVMXpUbTlVYjI1TVpFTnZibEJsY20xcGJYQXVjR1JtWEZ3cFhHNTlYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMyLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMiRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMi5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMi5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMyLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCAyLjQpKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zTm9Ub25MZENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uRGlmZlNRTXNOb1RvbkxkQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5EaWZmU1FNc05vVG9uTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zTm9Ub25MZENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMyLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMiRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMi5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMi5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMyLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAobWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCAyLjQpKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zTm9Ub25MZENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRBbm5veU1uRGlmZlNRTXNOb1RvbkxkQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEFubm95TW5EaWZmU1FNc05vVG9uTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkQW5ub3lNbkRpZmZTUU1zTm9Ub25MZENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgIn0= -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs2.conimp <- arrange(resultsOutSQMs2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs2.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs2.conimp), levels=rownames(resultsOutSQMs2.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (mean change in annoyance)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 2.4))
pBar
if (saveplots){
ggsave(filename=\PtsABdAnnoyMnDiffSQMsNoTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdAnnoyMnDiffSQMsNoTonLdConPermimp.svg\)
ggsave(filename=\PtsABdAnnoyMnDiffSQMsNoTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdAnnoyMnDiffSQMsNoTonLdConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
### Save the results outputs to file
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaV1JoZEdFcGUxeHVJQ0IxZEdsc2N6bzZkM0pwZEdVdVkzTjJLSEpsYzJSQmJtNXZlVTF1Um1sMFFVSXNJSEJoYzNSbEtHOTFkRVJoZEdGUVlYUm9MQ0JjSWx4Y1hGeFFkSE5CUWtOU1JtUkJibTV2ZVUxdVQwOUNSbWwwTG1OemRsd2lMQ0J6WlhBOVhDSmNJaWtwWEc0Z0lHbHBJRHd0SURCY2JpQWdkR1Z0Y0NBOUlHeHBjM1FvS1Z4dUlDQm1iM0lnS0hKbGN5QnBiaUJ5WlhOa1FXNXViM2xOYmxCbGNtMUpiWEJCUWlsN1hHNGdJQ0FnYVdrZ1BDMGdhV2tnS3lBeFhHNGdJQ0FnZEdWdGNGdGJhV2xkWFNBOExTQmhjeTVrWVhSaExtWnlZVzFsS0hKbGMyUkJibTV2ZVUxdVVHVnliVWx0Y0VGQ1cybHBYU2xjYmlBZ0lDQnVZVzFsY3loMFpXMXdXMXRwYVYxZEtTQThMU0J1WVcxbGN5aHlaWE5rUVc1dWIzbE5ibEJsY20xSmJYQkJRbHRwYVYwcFhHNGdJSDFjYmlBZ2IzQmxibmhzYzNnNk9uZHlhWFJsTG5oc2MzZ29kR1Z0Y0N3Z2NHRnpkR1VvYjNWMFJHRjBZVkJoZEdnc0lGd2lYRnhjWEZCMGMwRkNRMUpHWkVGdWJtOTVUVzVEYjI1UVpYSnRhVzF3TG5oc2MzaGNJaXhjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnYzJWd1BWd2lYQ0lwTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0J5YjNkT1lXMWxjejFVVWxWRktWeHVmVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmlmIChzYXZlZGF0YSl7XG4gIHV0aWxzOjp3cml0ZS5jc3YocmVzZEFubm95TW5GaXRBQiwgcGFzdGUob3V0RGF0YVBhdGgsIFxcXFxcXFB0c0FCQ1JGZEFubm95TW5PT0JGaXQuY3N2XFwsIHNlcD1cXFxcKSlcbiAgaWkgPC0gMFxuICB0ZW1wID0gbGlzdCgpXG4gIGZvciAocmVzIGluIHJlc2RBbm5veU1uUGVybUltcEFCKXtcbiAgICBpaSA8LSBpaSArIDFcbiAgICB0ZW1wW1tpaV1dIDwtIGFzLmRhdGEuZnJhbWUocmVzZEFubm95TW5QZXJtSW1wQUJbaWldKVxuICAgIG5hbWVzKHRlbXBbW2lpXV0pIDwtIG5hbWVzKHJlc2RBbm5veU1uUGVybUltcEFCW2lpXSlcbiAgfVxuICBvcGVueGxzeDo6d3JpdGUueGxzeCh0ZW1wLCBwYXN0ZShvdXREYXRhUGF0aCwgXFxcXFxcUHRzQUJDUkZkQW5ub3lNbkNvblBlcm1pbXAueGxzeFxcLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzZXA9XFxcXCksXG4gICAgICAgICAgICAgICAgICAgICAgIHJvd05hbWVzPVRSVUUpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (savedata){
utils::write.csv(resdAnnoyMnFitAB, paste(outDataPath, \\\PtsABCRFdAnnoyMnOOBFit.csv\, sep=\\))
ii <- 0
temp = list()
for (res in resdAnnoyMnPermImpAB){
ii <- ii + 1
temp[[ii]] <- as.data.frame(resdAnnoyMnPermImpAB[ii])
names(temp[[ii]]) <- names(resdAnnoyMnPermImpAB[ii])
}
openxlsx::write.xlsx(temp, paste(outDataPath, \\\PtsABCRFdAnnoyMnConPermimp.xlsx\,
sep=\\),
rowNames=TRUE)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpXUmhkR0VwZTF4dUlDQjFkR2xzY3pvNmQzSnBkR1V1WTNOMktISmxjMlJCYm01dmVVMXVSbWwwUVVJc0lIQmhjM1JsS0c5MWRFUmhkR0ZRWVhSb0xDQmNYRnhjWEZ4UWRITkJRa05TUm1SQmJtNXZlVTF1VDA5Q1JtbDBMbU56ZGx4Y0xDQnpaWEE5WEZ4Y1hDa3BYRzRnSUdscElEd3RJREJjYmlBZ2RHVnRjQ0E5SUd4cGMzUW9LVnh1SUNCbWIzSWdLSEpsY3lCcGJpQnlaWE5rUVc1dWIzbE5ibEJsY20xSmJYQkJRaWw3WEc0Z0lDQWdhV2tnUEMwZ2FXa2dLeUF4WEc0Z0lDQWdkR1Z0Y0Z0YmFXbGRYU0E4TFNCaGN5NWtZWFJoTG1aeVlXMWxLSEpsYzJSQmJtNXZlVTF1VUdWeWJVbHRjRUZDVzJscFhTbGNiaUFnSUNCdVlXMWxjeWgwWlcxd1cxdHBhVjFkS1NBOExTQnVZVzFsY3loeVpYTmtRVzV1YjNsTmJsQmxjbTFKYlhCQlFsdHBhVjBwWEc0Z0lIMWNiaUFnYjNCbGJuaHNjM2c2T25keWFYUmxMbmhzYzNnb2RHVnRjQ3dnY0dGemRHVW9iM1YwUkdGMFlWQmhkR2dzSUZ4Y1hGeGNYRkIwYzBGQ1ExSkdaRUZ1Ym05NVRXNURiMjVRWlhKdGFXMXdMbmhzYzNoY1hDeGNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdjMlZ3UFZ4Y1hGd3BMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQnliM2RPWVcxbGN6MVVVbFZGS1Z4dWZWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlZGF0YSl7XG4gIHV0aWxzOjp3cml0ZS5jc3YocmVzZEFubm95TW5GaXRBQiwgcGFzdGUob3V0RGF0YVBhdGgsIFxcXFxcXFB0c0FCQ1JGZEFubm95TW5PT0JGaXQuY3N2XFwsIHNlcD1cXFxcKSlcbiAgaWkgPC0gMFxuICB0ZW1wID0gbGlzdCgpXG4gIGZvciAocmVzIGluIHJlc2RBbm5veU1uUGVybUltcEFCKXtcbiAgICBpaSA8LSBpaSArIDFcbiAgICB0ZW1wW1tpaV1dIDwtIGFzLmRhdGEuZnJhbWUocmVzZEFubm95TW5QZXJtSW1wQUJbaWldKVxuICAgIG5hbWVzKHRlbXBbW2lpXV0pIDwtIG5hbWVzKHJlc2RBbm5veU1uUGVybUltcEFCW2lpXSlcbiAgfVxuICBvcGVueGxzeDo6d3JpdGUueGxzeCh0ZW1wLCBwYXN0ZShvdXREYXRhUGF0aCwgXFxcXFxcUHRzQUJDUkZkQW5ub3lNbkNvblBlcm1pbXAueGxzeFxcLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzZXA9XFxcXCksXG4gICAgICAgICAgICAgICAgICAgICAgIHJvd05hbWVzPVRSVUUpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZWRhdGEpe1xuICB1dGlsczo6d3JpdGUuY3N2KHJlc2RBbm5veU1uRml0QUIsIHBhc3RlKG91dERhdGFQYXRoLCBcXFxcXFxQdHNBQkNSRmRBbm5veU1uT09CRml0LmNzdlxcLCBzZXA9XFxcXCkpXG4gIGlpIDwtIDBcbiAgdGVtcCA9IGxpc3QoKVxuICBmb3IgKHJlcyBpbiByZXNkQW5ub3lNblBlcm1JbXBBQil7XG4gICAgaWkgPC0gaWkgKyAxXG4gICAgdGVtcFtbaWldXSA8LSBhcy5kYXRhLmZyYW1lKHJlc2RBbm5veU1uUGVybUltcEFCW2lpXSlcbiAgICBuYW1lcyh0ZW1wW1tpaV1dKSA8LSBuYW1lcyhyZXNkQW5ub3lNblBlcm1JbXBBQltpaV0pXG4gIH1cbiAgb3Blbnhsc3g6OndyaXRlLnhsc3godGVtcCwgcGFzdGUob3V0RGF0YVBhdGgsIFxcXFxcXFB0c0FCQ1JGZEFubm95TW5Db25QZXJtaW1wLnhsc3hcXCxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2VwPVxcXFwpLFxuICAgICAgICAgICAgICAgICAgICAgICByb3dOYW1lcz1UUlVFKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
if (savedata){
utils::write.csv(resdAnnoyMnFitAB, paste(outDataPath, \\\PtsABCRFdAnnoyMnOOBFit.csv\, sep=\\))
ii <- 0
temp = list()
for (res in resdAnnoyMnPermImpAB){
ii <- ii + 1
temp[[ii]] <- as.data.frame(resdAnnoyMnPermImpAB[ii])
names(temp[[ii]]) <- names(resdAnnoyMnPermImpAB[ii])
}
openxlsx::write.xlsx(temp, paste(outDataPath, \\\PtsABCRFdAnnoyMnConPermimp.xlsx\,
sep=\\),
rowNames=TRUE)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
## (Change to) High annoyance
### Initialise results output variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjbVZ6WkVocFFXNXViM2xHYVhSQlFpQThMU0JrWVhSaExtWnlZVzFsS0ZKTlUwVWdQU0J1ZFcxbGNtbGpLQ2tzWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lFMUJSU0E5SUc1MWJXVnlhV01vS1N4Y2JpQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdVbk54ZFdGeVpXUWdQU0J1ZFcxbGNtbGpLQ2twWEc1eVpYTmtTR2xCYm01dmVWQmxjbTFKYlhCQlFpQThMU0JzYVhOMEtDbGNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbnJlc2RIaUFubm95Rml0QUIgPC0gZGF0YS5mcmFtZShSTVNFID0gbnVtZXJpYygpLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICBNQUUgPSBudW1lcmljKCksXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgIFJzcXVhcmVkID0gbnVtZXJpYygpKVxucmVzZEhpQW5ub3lQZXJtSW1wQUIgPC0gbGlzdCgpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
resdHiAnnoyFitAB <- data.frame(RMSE = numeric(),
MAE = numeric(),
Rsquared = numeric())
resdHiAnnoyPermImpAB <- list()
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpaRWhwUVc1dWIzbEdhWFJCUWlBOExTQmtZWFJoTG1aeVlXMWxLRkpOVTBVZ1BTQnVkVzFsY21saktDa3NYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUUxQlJTQTlJRzUxYldWeWFXTW9LU3hjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ1VuTnhkV0Z5WldRZ1BTQnVkVzFsY21saktDa3BYRzV5WlhOa1NHbEJibTV2ZVZCbGNtMUpiWEJCUWlBOExTQnNhWE4wS0NsY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5yZXNkSGlBbm5veUZpdEFCIDwtIGRhdGEuZnJhbWUoUk1TRSA9IG51bWVyaWMoKSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgTUFFID0gbnVtZXJpYygpLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICBSc3F1YXJlZCA9IG51bWVyaWMoKSlcbnJlc2RIaUFubm95UGVybUltcEFCIDwtIGxpc3QoKVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzZEhpQW5ub3lGaXRBQiA8LSBkYXRhLmZyYW1lKFJNU0UgPSBudW1lcmljKCksXG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgIE1BRSA9IG51bWVyaWMoKSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgUnNxdWFyZWQgPSBudW1lcmljKCkpXG5yZXNkSGlBbm5veVBlcm1JbXBBQiA8LSBsaXN0KClcblxuYGBgXG5gYGAifQ== -->
```r
```r
resdHiAnnoyFitAB <- data.frame(RMSE = numeric(),
MAE = numeric(),
Rsquared = numeric())
resdHiAnnoyPermImpAB <- list()
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
### All variables (absolute and difference)
#### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0J1WVcxbGN5aHpkR2x0UkdGMFlVNTFiU2xiZDJocFkyZ29ibUZ0WlhNb2MzUnBiVVJoZEdGT2RXMHBJRDA5SUNkVlFWTkZkbVZ1ZEhNbktUcDNhR2xqYUNodVlXMWxjeWh6ZEdsdFJHRjBZVTUxYlNrZ1BUMGdKMVZCVTBsdGNIVnNjMU5JVFRBMVJYaE5ZWGhNVWljcFhWeHVhVlpoY25NZ1BDMGdhVlpoY25OYklTQnBWbUZ5Y3lBbGFXNGxJQ2RUVGxKc1pYWmxiQ2RkWEc1cFZtRnljeUE4TFNCaktHbFdZWEp6TEZ4dUlDQWdJQ0FnSUNBZ0lDQnVZVzFsY3loemRHbHRSR0YwWVU1MWJTbGJkMmhwWTJnb1kyOXNibUZ0WlhNb2MzUnBiVVJoZEdGT2RXMHBQVDFjSWt4QlpYRk1RVVk1TUdScFptWmNJaWs2WEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdkMmhwWTJnb1kyOXNibUZ0WlhNb2MzUnBiVVJoZEdGT2RXMHBQVDFjSW1SSmJYQjFiSE5UU0Uwd05VVjRUV0Y0VEZKY0lpbGRMQ0JjSWxOT1VteGxkbVZzWENJcFhHNWtWbUZ5SUR3dElGd2laRWhwWjJoQmJtNXZlVkJqWENKY2JseHVjMlZsWkhNZ1BDMGdZeWd5TENBek1USXNJREU0T1Rjc0lEUTJOVGszT0N3Z09ESXhOalU1S1Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5pVmFycyA8LSBuYW1lcyhzdGltRGF0YU51bSlbd2hpY2gobmFtZXMoc3RpbURhdGFOdW0pID09ICdVQVNFdmVudHMnKTp3aGljaChuYW1lcyhzdGltRGF0YU51bSkgPT0gJ1VBU0ltcHVsc1NITTA1RXhNYXhMUicpXVxuaVZhcnMgPC0gaVZhcnNbISBpVmFycyAlaW4lICdTTlJsZXZlbCddXG5pVmFycyA8LSBjKGlWYXJzLFxuICAgICAgICAgICBuYW1lcyhzdGltRGF0YU51bSlbd2hpY2goY29sbmFtZXMoc3RpbURhdGFOdW0pPT1cXExBZXFMQUY5MGRpZmZcXCk6XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgd2hpY2goY29sbmFtZXMoc3RpbURhdGFOdW0pPT1cXGRJbXB1bHNTSE0wNUV4TWF4TFJcXCldLCBcXFNOUmxldmVsXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYygyLCAzMTIsIDE4OTcsIDQ2NTk3OCwgODIxNjU5KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
iVars <- names(stimDataNum)[which(names(stimDataNum) == 'UASEvents'):which(names(stimDataNum) == 'UASImpulsSHM05ExMaxLR')]
iVars <- iVars[! iVars %in% 'SNRlevel']
iVars <- c(iVars,
names(stimDataNum)[which(colnames(stimDataNum)==\LAeqLAF90diff\):
which(colnames(stimDataNum)==\dImpulsSHM05ExMaxLR\)], \SNRlevel\)
dVar <- \dHighAnnoyPc\
seeds <- c(2, 312, 1897, 465978, 821659)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQnVZVzFsY3loemRHbHRSR0YwWVU1MWJTbGJkMmhwWTJnb2JtRnRaWE1vYzNScGJVUmhkR0ZPZFcwcElEMDlJQ2RWUVZORmRtVnVkSE1uS1RwM2FHbGphQ2h1WVcxbGN5aHpkR2x0UkdGMFlVNTFiU2tnUFQwZ0oxVkJVMGx0Y0hWc2MxTklUVEExUlhoTllYaE1VaWNwWFZ4dWFWWmhjbk1nUEMwZ2FWWmhjbk5iSVNCcFZtRnljeUFsYVc0bElDZFRUbEpzWlhabGJDZGRYRzVwVm1GeWN5QThMU0JqS0dsV1lYSnpMRnh1SUNBZ0lDQWdJQ0FnSUNCdVlXMWxjeWh6ZEdsdFJHRjBZVTUxYlNsYmQyaHBZMmdvWTI5c2JtRnRaWE1vYzNScGJVUmhkR0ZPZFcwcFBUMWNYRXhCWlhGTVFVWTVNR1JwWm1aY1hDazZYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ2QyaHBZMmdvWTI5c2JtRnRaWE1vYzNScGJVUmhkR0ZPZFcwcFBUMWNYR1JKYlhCMWJITlRTRTB3TlVWNFRXRjRURkpjWENsZExDQmNYRk5PVW14bGRtVnNYRndwWEc1a1ZtRnlJRHd0SUZ4Y1pFaHBaMmhCYm01dmVWQmpYRnhjYmx4dWMyVmxaSE1nUEMwZ1l5Z3lMQ0F6TVRJc0lERTRPVGNzSURRMk5UazNPQ3dnT0RJeE5qVTVLVnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5pVmFycyA8LSBuYW1lcyhzdGltRGF0YU51bSlbd2hpY2gobmFtZXMoc3RpbURhdGFOdW0pID09ICdVQVNFdmVudHMnKTp3aGljaChuYW1lcyhzdGltRGF0YU51bSkgPT0gJ1VBU0ltcHVsc1NITTA1RXhNYXhMUicpXVxuaVZhcnMgPC0gaVZhcnNbISBpVmFycyAlaW4lICdTTlJsZXZlbCddXG5pVmFycyA8LSBjKGlWYXJzLFxuICAgICAgICAgICBuYW1lcyhzdGltRGF0YU51bSlbd2hpY2goY29sbmFtZXMoc3RpbURhdGFOdW0pPT1cXExBZXFMQUY5MGRpZmZcXCk6XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgd2hpY2goY29sbmFtZXMoc3RpbURhdGFOdW0pPT1cXGRJbXB1bHNTSE0wNUV4TWF4TFJcXCldLCBcXFNOUmxldmVsXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYygyLCAzMTIsIDE4OTcsIDQ2NTk3OCwgODIxNjU5KVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBuYW1lcyhzdGltRGF0YU51bSlbd2hpY2gobmFtZXMoc3RpbURhdGFOdW0pID09ICdVQVNFdmVudHMnKTp3aGljaChuYW1lcyhzdGltRGF0YU51bSkgPT0gJ1VBU0ltcHVsc1NITTA1RXhNYXhMUicpXVxuaVZhcnMgPC0gaVZhcnNbISBpVmFycyAlaW4lICdTTlJsZXZlbCddXG5pVmFycyA8LSBjKGlWYXJzLFxuICAgICAgICAgICBuYW1lcyhzdGltRGF0YU51bSlbd2hpY2goY29sbmFtZXMoc3RpbURhdGFOdW0pPT1cXExBZXFMQUY5MGRpZmZcXCk6XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgd2hpY2goY29sbmFtZXMoc3RpbURhdGFOdW0pPT1cXGRJbXB1bHNTSE0wNUV4TWF4TFJcXCldLCBcXFNOUmxldmVsXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYygyLCAzMTIsIDE4OTcsIDQ2NTk3OCwgODIxNjU5KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
iVars <- names(stimDataNum)[which(names(stimDataNum) == 'UASEvents'):which(names(stimDataNum) == 'UASImpulsSHM05ExMaxLR')]
iVars <- iVars[! iVars %in% 'SNRlevel']
iVars <- c(iVars,
names(stimDataNum)[which(colnames(stimDataNum)==\LAeqLAF90diff\):
which(colnames(stimDataNum)==\dImpulsSHM05ExMaxLR\)], \SNRlevel\)
dVar <- \dHighAnnoyPc\
seeds <- c(2, 312, 1897, 465978, 821659)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0J1ZEhKbFpYTTliblJ5WldWekxDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICAgbnRyZWVzPW50cmVlcywgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQnVkSEpsWlhNOWJuUnlaV1Z6TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnAgPC0gbXRyeVR1bmUoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkPXNlZWRzWzE6Ml0sXG4gICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbmBgYFxuYGBgIn0= -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTk5GTkVlREJqZFhSbVZ5dGFaelpTYUdkbFlVOVpkMFZQYTJ0aUx5OWFhVTA1YW14Sk4zUTBlRmRZVDNCcE5GQnJjVFpuYW5KNGJEWklVMUYyV0haME1ITnNZa1ZSV1hKU1NtcDBNV3cwVDBSc1VHSmlhV0p4YUc5VVFubzNTamhYYkc5VGJHUlBNbmRtZVhKM1pYbFdSSGhFVURkd05IbGhlQzloWXpSeVdpOHdkbnAxSzBwSmFsWm1XbEJSY2s5dFpTczNlbk5ZSzFNd04yVjJhRVF2U0M5dmJsUm9iVTVtUkZweWMyNHdhRkJEU21vd1kyaDJZMUJqU2tacFUyTnhaSFp2TkVOS1pXOWliRFJsYzJNMVFrOUZWbEIyWm5RMmNrbFFkMDFoWVhGekx6bFhUMmRuZGs4elpuSXZVVzluZG1SVWJHVjBPREpNVVdab00xcGpjVUUxWjJsSVdWSlFjbkpxWVhWTU5FWmhRVmwyZVVKM1owSnZWMGxEUWtSTVFUZEZSMFZDYzBGelVqQlJaWGRLZUVKT2R5dFdVVmwzWTBKRFJqQnFlRkZ0WnpGTFRUQkdieXQ2T1ZFcloyVlZMM05KUVVKVFowSjZTbkZZYlVwMFlVUkhVVWxuUVUxYVNYTm5VelZDZG5ORGJWWjZRa0pWV0d4cFdWZHdZVnBCSzJONUsycHFRWEJzZEhsVGIydHZiMjE1YzNwTVRFZHZUMEkwYzJkdGIwUmFNVVlyZFZJM1RVWndRbGh0VW05bk4zVkNRV1F3Y0hsVWJVbDRla05yZDFGaE5sVjRTa3BGZG1KUmFXOUlOR2MzZUN0aFJuWmlPR2R3VEUwdlJIbG5TbWxhVVVsMVIwVkNhVWxxUmtOTlluaEdaMFZFVlVaSFFuY3hXVk5GUkRWQmJrRXJjMmRpS3pCcWVWRnhNVTR3YTNwT1N6ZzNTakY2WkVOcmJWRjJlVEJ3UjNOWk5FSTJhbWhGWVd4NlFUSkxPRlJHVkZBcmFESnFiR2haV21WaGJrcEZVRnBpVDJ3MWNWWnVOWEZZUTNkcGMzUk5NVEoyVUVSUGJFcEJUVmRDUTBOQ2FrNVVUVGxKZDFOWFJXcHNTa05oYkRWelFXTnJjRXBoUW0xWWVVRlpUV0ZJVGtvMlFsVlhXbVZVUkZaWVJVUlNXWEl5VXk5S1NrVnRRbUYxTlZCM1kyMUJaelJWUW00clFWRkJiQ3RHTUROc1FVMUJRVUU5UFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcNi4yMzU2MzVcXCxcXDJcXDpcXDAuNjcwMDk5NFxcLFxcM1xcOlxcNC44NjE3MDFcXCxcXDRcXDpcXDEwXFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFw2LjI5ODI3OVxcLFxcMlxcOlxcMC42NTgzMjMxXFwsXFwzXFw6XFw0Ljg2MzQyNVxcLFxcNFxcOlxcMjBcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcNi4yOTk4MDJcXCxcXDJcXDpcXDAuNjU2MzkyMFxcLFxcM1xcOlxcNC44NDc4MzJcXCxcXDRcXDpcXDMxXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDYuNDMzMzIxXFwsXFwyXFw6XFwwLjY0MTEwNTFcXCxcXDNcXDpcXDQuOTQzMzY5XFwsXFw0XFw6XFw0MFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFw2LjQ3ODg2MlxcLFxcMlxcOlxcMC42MzU0MjY4XFwsXFwzXFw6XFw0LjkxMjg5OFxcLFxcNFxcOlxcNDhcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcNi40NTQ5MjJcXCxcXDJcXDpcXDAuNjM4MjUxN1xcLFxcM1xcOlxcNC45MTEzOTVcXCxcXDRcXDpcXDYyXFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDYuNTAxMjA3XFwsXFwyXFw6XFwwLjYzMzE0MDlcXCxcXDNcXDpcXDQuOTMzNDIwXFwsXFw0XFw6XFw3M1xcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFw2LjU0Mjg5OFxcLFxcMlxcOlxcMC42MjgzNjQ3XFwsXFwzXFw6XFw0Ljk0NjkzM1xcLFxcNFxcOlxcODhcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG5cbjwhLS0gcm5iLWZyYW1lLWJlZ2luIGV5SnRaWFJoWkdGMFlTSTZleUpqYkdGemMyVnpJanBiSW1SaGRHRXVabkpoYldVaVhTd2libkp2ZHlJNk9Dd2libU52YkNJNk5Td2ljM1Z0YldGeWVTSTZleUpFWlhOamNtbHdkR2x2YmlJNld5SmtaaUJiT0NERGx5QTFYU0pkZlgwc0luSmtaaUk2SWtnMGMwbEJRVUZCUVVGQlFVSm5kSGxwVkVSdGFYVkNhVmxIUW1kYWJVSm9XVmRLWjFwblZYbEhWbWhFVVRsNE1FeFNaMWxuUVVsTlJFbDNUVXhCZVdOSlRHOURjVVZuV1VwQmRrVm1SVVJOTkZOQ2VDc3ZZbkEzUmxaVVNFTlJWa2hPVDNKNWVYTmpTa2N4TDFoYWQzVjZkVWxuVDJSdUwyVm5Ra3hwU1ZCcmVXRm9kWG95U1ZwQ09HMXVOWGc1Y3l0a1RHaEpVRzFRU1dOSE1qVnZhVVJzVFhSVlZEaFBLMXBVUW5vM1Nqa3ljV2syT0dGMU5Xc3ZNVk5zWmxCUFVqZ3pMM051TTNsUVRYQnljSGRYYWk5YVRGY3dMelZKV0VGbVdsQlRhRGRZU0dKeE5IaDJOVXBHVG5OSVJURldOeXQ1WTNWQmMxZGljSFUyZVdZNFMybDFOR1pXWW1relkxQmpTMFpuVW5WemJUUXlRblJLZWswd2VGWmtSSE5KTlhKc1RTdE1VRGRuU1V4NlpYa3pOMkYyUVRCUGQyOTFibk50YUZsUWJrbFJVSFpTTkhweFYwRkJkemREV2pOaU1ucFZkRXRrUWtRck5XNXVSMk01UlZWdlFtMDRTVWhQUVVkQ1VXbEphMEZ6UkRoUllWRkhkMEY0U0ZwQk4wRnVSVVZZUkRkV1FtNUJkMFZGVlZOMlRrRmhWRmx2ZWxGVGFEZG1PVUUyVWpsUksyZHpSRVpMUVVWTlIzUmxXVzAxY1UxYVFXaEJRVFZyYVVOQ1RHdEhLM2RMTlZST1JWWlNZMWRLY0Zsc1NtOUROVlJRTjA5elMydFhTRXBNYVdseGFHSkxOMDF6VFZOcE5HNXBkME5MYjA1dVJWZzFOVmh2ZDFjd1FtVmFWM0ZCZFVsTlJETlRia3BQV1c1R1RVdG1RVUpNYkZORmEzTlRPV1JMUzJkUWNVSjJTRGx2VjNScWVrTXdiM2s0TDA5QmJYQm9RV2xaVVZSSGIybE5WVWw0YzBWSFRWSk9RVkZhU0ZSU1owbFJTR3hET0VRMWVVSnlORk12VGtGeWF6ZFNWR00wYjNwamRsZE9WVTlVV21rM1NWTXdaWGxxWjBoeFQxVmFiMWhOVEZseVFrRllUUzh5U0dGMVpVVm9WakZ4WTJ0WksyeE5NbGR0Y0dWbGJWcGpTME0yS3pCNlNGTTVPSE41Vld0bmVGbEZTVUZGVFd4SmVqQjZUa3RaUTBkV2F6VnBWVzFuVG5wVFJYQnhSMXBVU2tKM2VIRmpSV3B5UmxKU2JEVnpSbFZqZDBaR2FTOVdTemhyYzFOWlZuRTBhM1pPZWxsRFRHZFJSMWcwUW5kRVZIcEtVSEpzUVUxQlFVRTlQU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFw2LjIxNDcwNlxcLFxcMlxcOlxcMC42NzI5OTE2XFwsXFwzXFw6XFw0Ljg2MDY2M1xcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDEwLjUwXFx9LHtcXDFcXDpcXDYuMjgxNDk5XFwsXFwyXFw6XFwwLjY2MDcwMTZcXCxcXDNcXDpcXDQuODYwNDY2XFwsXFw0XFw6XFwyMFxcLFxcNVxcOlxcNS4yNVxcfSx7XFwxXFw6XFw2LjMxMDUyN1xcLFxcMlxcOlxcMC42NTUxOTQ0XFwsXFwzXFw6XFw0Ljg1NTczNFxcLFxcNFxcOlxcMzFcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcNi4zOTM4NTlcXCxcXDJcXDpcXDAuNjQ1ODg3MFxcLFxcM1xcOlxcNC45MjExODJcXCxcXDRcXDpcXDQwXFwsXFw1XFw6XFwyLjc1XFx9LHtcXDFcXDpcXDYuNDQ2NjM0XFwsXFwyXFw6XFwwLjYzOTI2ODZcXCxcXDNcXDpcXDQuOTA5NzQ4XFwsXFw0XFw6XFw0OFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFw2LjQ3NDQyNlxcLFxcMlxcOlxcMC42MzU5ODk2XFwsXFwzXFw6XFw0Ljk0MDMyMVxcLFxcNFxcOlxcNjJcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcNi40OTgwNDhcXCxcXDJcXDpcXDAuNjMzMzA4NlxcLFxcM1xcOlxcNC45NDk5MjdcXCxcXDRcXDpcXDczXFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDYuNTY2OTc2XFwsXFwyXFw6XFwwLjYyNTUxMDFcXCxcXDNcXDpcXDQuOTkwNTE2XFwsXFw0XFw6XFw4OFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzhdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNNFNEeDBjdXRmVytaZzZSaGdlYU9Zd0VPa2tiLy9aaU05amxJN3Q0eFdYT3BpNFBrcTZnanJ4bDZIU1F2WHZ0MHNsYkVRWXJSSmp0MWw0T0RsUGJiaWJxaG9UQno3SjhXbG9TbGRPMndmeXJ3ZXlWRHhEUDdwNHlheC9hYzRyWi8wdnp1K0pJalZmWlBRck9tZSs3enNYK1MwN2V2aEQvSC9vblRobU5mRFpyc24waFBDSmowY2h2Y1BjSkZpU2NxZHZvNENKZW9ibDRlc2M1Qk9FVlB2ZnQ2cklQd01hYXFzLzlXT2dndk8zZnIvUW9ndmRUbGV0ODJMUWZoM1pjcUE1Z2lIWVJQcnJqYXVMNEZhQVl2eUJ3Z0JvV0lDQkRMQTdFR0VCc0FzUjBRZXdKeEJOdytWUVl3Y0JDRjBqeFFtZzFLTTBGbyt6OVErZ2VVL3NJQUJTZ0J6SnFYbUp0YURHUUlnQU1aSXNnUzVCdnNDbVZ6QkJVWGxpWVdwYVpBK2N5K2pqQXBsdHlTb2tvb215c3pMTEdvT0I0c2dtb0RaMUYrdVI3TUZwQlhtUm9nN3VCQWQwcHlUbUl4ekNrd1FhNlV4SkpFdmJRaW9INGc3eCthRnZiOGdwTE0vRHlnSmlaUUl1R0VCaUlqRkNNYnhGZ0VEVUZHQncxWVNFRDVBbkErc2diKzBqeVFxMU4wa3pOSzg3SjF6ZENrbVF2eTBwR3NZNEI2amhFYWx6QTJLOFRGVFAraDJqbGhZWmVhbkpFUFpiT2w1cVZuNXFYQ3dpc3RNMTJ2UERPbEpBTVdCQ0NCak5UTTlJd1NXRWpsSkNhbDVzQWNrcEphQm1YeUFZTWFITko2QlVXWmVURFZYRURSWXIyUy9KSkVtQmF1NVB3Y21BZzRVQm4rQVFBbCtGMDNsQU1BQUE9PSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\6.235635\,\2\:\0.6700994\,\3\:\4.861701\,\4\:\10\,\5\:\10.50\},{\1\:\6.298279\,\2\:\0.6583231\,\3\:\4.863425\,\4\:\20\,\5\:\5.25\},{\1\:\6.299802\,\2\:\0.6563920\,\3\:\4.847832\,\4\:\31\,\5\:\3.50\},{\1\:\6.433321\,\2\:\0.6411051\,\3\:\4.943369\,\4\:\40\,\5\:\2.75\},{\1\:\6.478862\,\2\:\0.6354268\,\3\:\4.912898\,\4\:\48\,\5\:\2.25\},{\1\:\6.454922\,\2\:\0.6382517\,\3\:\4.911395\,\4\:\62\,\5\:\1.75\},{\1\:\6.501207\,\2\:\0.6331409\,\3\:\4.933420\,\4\:\73\,\5\:\1.50\},{\1\:\6.542898\,\2\:\0.6283647\,\3\:\4.946933\,\4\:\88\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNNFNCeCsvYnA3RlZUSENRVkhOT3J5eXNjSkcxL1had3V6dUlnT2RuL2VnQkxpSVBreWFodXoySVpCOG1uNXg5cytkTGhJUG1QSWNHMjVvaURsTXRVVDhPK1pUQno3SjkycWk2OGF1NWsvMVNsZlBPUjgzL3NuM3lQTXBycHdXai9aTFcwLzVJWEFmWlBTaDdYSGJxNHh2NUpGTnNIRTFWNyt5Y3VBc1dicHU2eWY4S2l1NGZWYmkzY1BjS0ZnUnVzbTQyQnRKek0weFZkRHNJNXJsTStMUDdnSUx6ZXkzN2F2QTBPd291bnNtaFlQbklRUHZSNHpxV0FBdzdDWjNiMnpVdEtkQkQrNW5uR2M5RVVvQm04SUhPQUdCUWlJa0FzRDhRYVFHd0F4SFpBN0FuRUVYRDdWQm5Bd0VFVVN2TkFhVFlvelFTaDdmOUE2UjlRK2dzREZLQUVNR3RlWW01cU1aQWhBQTVraUNCTGtHK3dLNVRORVZSY1dKcFlsSm9DNVRQN09zS2tXSEpMaWlxaGJLN01zTVNpNG5pd0NLb05uRVg1NVhvd1cwQmVaV3FBdUlNRDNTbkpPWW5GTUtmQUJMbFNFa3NTOWRLS2dQcUJ2SDlvV3RqekMwb3k4L09BbXBoQWlZUVRHb2lNVUl4c0VHTVJOQVFaSFRSZ0lRSGxDOEQ1eUJyNFMvTkFyazdSVGM0b3pjdldOVU9UWmk3SVMwZXlqZ0hxT1Vab1hNTFlyQkFYTS8ySGF1ZUVoVjFxY2tZK2xNMldtcGVlbVpjS0M2KzB6SFM5OHN5VWtneFlFSUFFTWxJejB6TktZQ0dWazVpVW1nTnpTRXBxR1pUSkJ3eHFjRWpyRlJSbDVzRlVjd0ZGaS9WSzhrc1NZVnE0a3ZOellDTGdRR1g0QndEVHpKUHJsQU1BQUE9PSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\6.214706\,\2\:\0.6729916\,\3\:\4.860663\,\4\:\10\,\5\:\10.50\},{\1\:\6.281499\,\2\:\0.6607016\,\3\:\4.860466\,\4\:\20\,\5\:\5.25\},{\1\:\6.310527\,\2\:\0.6551944\,\3\:\4.855734\,\4\:\31\,\5\:\3.50\},{\1\:\6.393859\,\2\:\0.6458870\,\3\:\4.921182\,\4\:\40\,\5\:\2.75\},{\1\:\6.446634\,\2\:\0.6392686\,\3\:\4.909748\,\4\:\48\,\5\:\2.25\},{\1\:\6.474426\,\2\:\0.6359896\,\3\:\4.940321\,\4\:\62\,\5\:\1.75\},{\1\:\6.498048\,\2\:\0.6333086\,\3\:\4.949927\,\4\:\73\,\5\:\1.50\},{\1\:\6.566976\,\2\:\0.6255101\,\3\:\4.990516\,\4\:\88\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTAwVTBSNE1HTjFkR1pYSzFwbk5sSm9aMlZoVDFsM1JVOXJhMkl2TDFwcFRUbHFiRWszZERSNFYxaFBjR2swVUd0eE5tZHFjbmhzTmtoVFVYWllkblF3YzJ4aVJWRlpjbEpLYW5ReGJEUlBSR3hRWW1KcFluRm9iMVJDZWpkS09GZHNiMU5zWkU4eWQyWjVjbmRsZVZaRWVFUlFOM0EwZVdGNEwyRmpOSEphTHpCMmVuVXJTa2xxVm1aYVVGRnlUMjFsS3pkNmMxZ3JVekEzWlhab1JDOUlMMjl1VkdodFRtWkVXbkp6YmpCb1VFTkthakJqYUhaalVHTktSbWxUWTNGa2RtODBRMHBsYjJKc05HVnpZelZDVDBWV1VIWm1kRFp5U1ZCM1RXRmhjWE12T1ZkUFoyZDJUek5tY2k5UmIyZDJaRlJzWlhRNE1reFJabWd6V21OeFFUVm5hVWhaVWxCeWNtcGhkVXcwUm1GQldYWjVRbmRuUW05WFNVTkNSRXhCTjBWSFJVSnpRWE5TTUZGbGQwcDRRazUzSzFaUldYZGpRa05HTUdwNFVXMW5NVXROTUVadkszbzVVU3RuWlZVdmMwbEJRbE5uUW5wS2NWaHRTblJoUkVkUlNXZEJUVnBKYzJkVE5VSjJjME50Vm5wQ1FsVlliR2xaVjNCaFdrRXJZM2tyYW1wQmNHeDBlVk52YTI5dmJYbHpla3hNUjI5UFFqUnpaMjF2UkZveFJpdDFVamROUm5CQ1dHMVNiMmMzZFVKQlpEQndlVlJ0U1hoNlEydDNVV0UyVlhoS1NrVjJZbEZwYjBnMFp6ZDRLMkZHZG1JNFozQk1UUzlFZVdkS2FWcFJTWFZIUlVKcFNXcEdRMDFpZUVablJVUlZSa2RDZHpGWlUwVkVOVUZ1UVN0eloySXJNR3A1VVhFeFRqQnJlazVMT0RkS01YcGtRMnR0VVhaNU1IQkhjMWswUWpacWFFVmhiSHBCTWtzNFZFWlVVQ3RvTW1wc2FGbGFaV0Z1U2tWUVdtSlBiRFZ4Vm00MWNWaERkMmx6ZEUweE1uWlFSRTlzU2tGTlYwSkRRMEpxVGxSTk9VbDNVMWRGYW14S1EyRnNOWE5CWTJ0d1NtRkNiVmg1UVZsTllVaE9TalpDVlZkYVpWUkVWbGhGUkZKWmNqSlRMMHBLUlcxQ1lYVTFVSGRqYlVGbk5GVkNiaXRCVVVGc0swWXdNMnhCVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCI2LjIzNTYzNVwiLFwiMlwiOlwiMC42NzAwOTk0XCIsXCIzXCI6XCI0Ljg2MTcwMVwiLFwiNFwiOlwiMTBcIixcIjVcIjpcIjEwLjUwXCJ9LHtcIjFcIjpcIjYuMjk4Mjc5XCIsXCIyXCI6XCIwLjY1ODMyMzFcIixcIjNcIjpcIjQuODYzNDI1XCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCI2LjI5OTgwMlwiLFwiMlwiOlwiMC42NTYzOTIwXCIsXCIzXCI6XCI0Ljg0NzgzMlwiLFwiNFwiOlwiMzFcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiNi40MzMzMjFcIixcIjJcIjpcIjAuNjQxMTA1MVwiLFwiM1wiOlwiNC45NDMzNjlcIixcIjRcIjpcIjQwXCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjYuNDc4ODYyXCIsXCIyXCI6XCIwLjYzNTQyNjhcIixcIjNcIjpcIjQuOTEyODk4XCIsXCI0XCI6XCI0OFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCI2LjQ1NDkyMlwiLFwiMlwiOlwiMC42MzgyNTE3XCIsXCIzXCI6XCI0LjkxMTM5NVwiLFwiNFwiOlwiNjJcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiNi41MDEyMDdcIixcIjJcIjpcIjAuNjMzMTQwOVwiLFwiM1wiOlwiNC45MzM0MjBcIixcIjRcIjpcIjczXCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjYuNTQyODk4XCIsXCIyXCI6XCIwLjYyODM2NDdcIixcIjNcIjpcIjQuOTQ2OTMzXCIsXCI0XCI6XCI4OFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE00U0R4MGN1dGZXK1pnNlJoZ2VhT1l3RU9ra2IvL1ppTTlqbEk3dDR4V1hPcGk0UGtxNmdqcnhsNkhTUXZYdnQwc2xiRVFZclJKanQxbDRPRGxQYmJpYnFob1RCejdKOFdsb1NsZE8yd2Z5cndleVZEeERQN3A0eWF4L2FjNHJaLzB2enUrSklqVmZaUFFyT21lKzd6c1grUzA3ZXZoRC9IL29uVGhtTmZEWnJzbjBoUENKajBjaHZjUGNKRmlTY3Fkdm80Q0plb2JsNGVzYzVCT0VWUHZmdDZySVB3TWFhcXMvOVdPZ2d2TzNmci9Rb2d2ZFRsZXQ4MkxRZmgzWmNxQTVnaUhZUlBycmphdUw0RmFBWXZ5QndnQm9XSUNCRExBN0VHRUJzQXNSMFFld0p4Qk53K1ZRWXdjQkNGMGp4UW1nMUtNMEZvK3o5UStnZVUvc0lBQlNnQnpKcVhtSnRhREdRSWdBTVpJc2dTNUJ2c0NtVnpCQlVYbGlZV3BhWkErY3krampBcGx0eVNva29vbXlzekxMR29PQjRzZ21vRFoxRit1UjdNRnBCWG1Sb2c3dUJBZDBweVRtSXh6Q2t3UWE2VXhKSkV2YlFpb0g0Zzd4K2FGdmI4Z3BMTS9EeWdKaVpRSXVHRUJpSWpGQ01ieEZnRURVRkdCdzFZU0VENUFuQStzZ2IrMGp5UXExTjBrek5LODdKMXpkQ2ttUXZ5MHBHc1k0QjZqaEVhbHpBMks4VEZUUCtoMmpsaFlaZWFuSkVQWmJPbDVxVm41cVhDd2lzdE0xMnZQRE9sSkFNV0JDQ0JqTlRNOUl3U1dFamxKQ2FsNXNBY2twSmFCbVh5QVlNYUhOSjZCVVdaZVREVlhFRFJZcjJTL0pKRW1CYXU1UHdjbUFnNFVCbitBUUFsK0YwM2xBTUFBQT09In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"6.235635","2":"0.6700994","3":"4.861701","4":"10","5":"10.50"},{"1":"6.298279","2":"0.6583231","3":"4.863425","4":"20","5":"5.25"},{"1":"6.299802","2":"0.6563920","3":"4.847832","4":"31","5":"3.50"},{"1":"6.433321","2":"0.6411051","3":"4.943369","4":"40","5":"2.75"},{"1":"6.478862","2":"0.6354268","3":"4.912898","4":"48","5":"2.25"},{"1":"6.454922","2":"0.6382517","3":"4.911395","4":"62","5":"1.75"},{"1":"6.501207","2":"0.6331409","3":"4.933420","4":"73","5":"1.50"},{"1":"6.542898","2":"0.6283647","3":"4.946933","4":"88","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTk5GTkNlR3gyWkRCaFYzbFBaelpUT0hBMGNrVlFlSE5JZVZkQ2RuWnNaSEJtWnpaVE1DdGtkVGRXVm1JMlEwTTFOalJFTVZvMFQxaEVjRXBtVUN0NU1UQXJkSGRyVUhvNWMxTllPSHBSYzBoTFlXVjZjVkoxWlRkWlIxcFpMemt3TDNWR0wyZ3JVVU0zV2poeEwyWTRWMHRqY0drdksxSTFiRlZ3VXk5V2NqZEtPSFo1Vm5sWldtMWtieTloV2t4eWJWTnphV0YyTDBVcmQyRnFOQzlZTnpsckwyTnJjbGRtZFVjeWVXWTRURk5sZWxCdE9FRkxOR1UwVkdwNFYyRlpVa2xSTlVOSFl6UmlURUpqT1UxQ1FuVkllak5LWkd4dlluZG1hSFJSWkdsMFZVdGpTRWxSV0RaNk1WbE9NakppWnk5RFdreGFjVVkyWkhkUGQzTmtibmt3TkZOTVNFbFJMM0JxTWxOUE5HVjVRbmhsYTBSc1FVUkJiMUpGVTBOWFFqSkpUa2xFV1VGWmFuTm5PV2RVYVVOTWFEbHhaM2huTkVOQlMzQlliV2RPUW5WVldtOU1VVGx1SzJjNVFUaHZMMWxWUWtOc1FVTnRSRlYyVFZSbE1VZE5aMUZCUVdONVVrcEJiSGxFWmxsR1kzSnRRME52ZFV4Rk1ITlRhekpDT0hCc09VaFhSbE5NVEd0c1VscFdVVTVzWkcxWFIwcFNZMVI0V1VKT1ZVZDZjVXc0WTJveVdVeFRRM1pOYWxaQk0wMUhRamR3Vkd0dVRWSnBiVVpPWjJkc2QzQnBVMWRLWlcxc1JsRlFNVUV6YWpnd1RHVjZOVUpUVjFvcldHeEJWRlY1WjFKTlNVcEVWVkpIUzBWWk1tbE1SVWxIYjB0TlJHaHhkMnRKUkhsQ1pVSTRXa0V6T0hCWWEyZFdObVp2U20xbFZUVnRXSEp0Y1VaS1RYaG1hM0JUVGxwNGQwUXhTRU5OTUV4dFJuTldiMmxNYldZMVJIUllVRU4zYVRReFQxTk5abmx0V2t4NlZYWlFla1YxUm1oV1pHRmFjbkJsWlZkYVMxTlJXWE5EUlVGRFIyRnRXalpTYTJ4elNrUkxVMVY0UzNwWlJUVktRMWN4UkUxeWEwRjNXVEZQUzFReFEyOXZlVGd5UTNGMVdVTnBlRmh2YkN0VFYwcE5RekZqZVdack5VMUNSbmR2UkV3NFFYZENkM0p1TjAxc1FVMUJRVUU5UFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcNi4yMDAyNDhcXCxcXDJcXDpcXDAuNjc1NzUyNlxcLFxcM1xcOlxcNC44NDI4NjBcXCxcXDRcXDpcXDEwXFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFw2LjI4MDU1MlxcLFxcMlxcOlxcMC42NjA1MjI0XFwsXFwzXFw6XFw0Ljg1MTgwOVxcLFxcNFxcOlxcMjBcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcNi4zMzEzNDFcXCxcXDJcXDpcXDAuNjUzMjU2NVxcLFxcM1xcOlxcNC44NjY5MjdcXCxcXDRcXDpcXDMxXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDYuMzk4MDYzXFwsXFwyXFw6XFwwLjY0NTMxNjlcXCxcXDNcXDpcXDQuOTE5Njc5XFwsXFw0XFw6XFw0MFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFw2LjQzMjM3NFxcLFxcMlxcOlxcMC42NDA4ODM3XFwsXFwzXFw6XFw0LjkwOTM1OVxcLFxcNFxcOlxcNDhcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcNi40OTAxNzZcXCxcXDJcXDpcXDAuNjM0MjU4M1xcLFxcM1xcOlxcNC45NDk5MDZcXCxcXDRcXDpcXDYyXFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDYuNDk2MDM5XFwsXFwyXFw6XFwwLjYzMzU5MjJcXCxcXDNcXDpcXDQuOTQ0OTI4XFwsXFw0XFw6XFw3M1xcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFw2LjU2NTIzN1xcLFxcMlxcOlxcMC42MjU1NTU5XFwsXFwzXFw6XFw0Ljk4NTc0NFxcLFxcNFxcOlxcODhcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNNFNCeGx2ZDBhV3lPZzZTOHA0ckVQeHNIeVdCdnZsZHBmZzZTMCtkdTdWVmI2Q0M1NjREMVo0T1hEcEpmUCt5MTArdHdrUHo5c1NYOHpRc0hLYWV6cVJ1ZTdZR1pZLzkwL3VGL2grUUM3WjhxL2Y4V0tjcGkvK1I1bFVwUy9WcjdKOHZ5VnlZWm1kby9hWkxybVNzaWF2L0Urd2FqNC9YNzlrL2NrcldmdUcyeWY4TFNlelBtOEFLNGU0VGp4V2FZUklRNUNHYzRiTEJjOU1CQnVIejNKZGxvYndmaHRRZGl0VUtjSElRWDZ6MVlOMjJiZy9DWkxacUY2ZHdPd3NkbnkwNFNMSElRL3BqMlNPNGV5Qnhla0RsQURBb1JFU0NXQjJJTklEWUFZanNnOWdUaUNMaDlxZ3hnNENBS3BYbWdOQnVVWm9MUTluK2c5QThvL1lVQkNsQUNtRFV2TVRlMUdNZ1FBQWN5UkpBbHlEZllGY3JtQ0NvdUxFMHNTazJCOHBsOUhXRlNMTGtsUlpWUU5sZG1XR0pSY1R4WUJOVUd6cUw4Y2oyWUxTQ3ZNalZBM01HQjdwVGtuTVJpbUZOZ2dsd3BpU1dKZW1sRlFQMUEzajgwTGV6NUJTV1orWGxBVFV5Z1JNSUpEVVJHS0VZMmlMRUlHb0tNRGhxd2tJRHlCZUI4WkEzOHBYa2dWNmZvSm1lVTVtWHJtcUZKTXhma3BTTlp4d0QxSENNMExtRnNWb2lMbWY1RHRYUEN3aTQxT1NNZnltWkx6VXZQekV1RmhWZGFacnBlZVdaS1NRWXNDRUFDR2FtWjZSa2xzSkRLU1V4S3pZRTVKQ1cxRE1ya0F3WTFPS1QxQ29veTgyQ3F1WUNpeFhvbCtTV0pNQzFjeWZrNU1CRndvREw4QXdCd3JuN01sQU1BQUE9PSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\6.200248\,\2\:\0.6757526\,\3\:\4.842860\,\4\:\10\,\5\:\10.50\},{\1\:\6.280552\,\2\:\0.6605224\,\3\:\4.851809\,\4\:\20\,\5\:\5.25\},{\1\:\6.331341\,\2\:\0.6532565\,\3\:\4.866927\,\4\:\31\,\5\:\3.50\},{\1\:\6.398063\,\2\:\0.6453169\,\3\:\4.919679\,\4\:\40\,\5\:\2.75\},{\1\:\6.432374\,\2\:\0.6408837\,\3\:\4.909359\,\4\:\48\,\5\:\2.25\},{\1\:\6.490176\,\2\:\0.6342583\,\3\:\4.949906\,\4\:\62\,\5\:\1.75\},{\1\:\6.496039\,\2\:\0.6335922\,\3\:\4.944928\,\4\:\73\,\5\:\1.50\},{\1\:\6.565237\,\2\:\0.6255559\,\3\:\4.985744\,\4\:\88\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTAwVTBKNEt5OWljRGRHVmxSSVExRldTRTVQY25sNWMyTktSekV2V0ZwM2RYcDFTV2RQWkc0dlpXZENUR2xKVUd0NVlXaDFlakpKV2tJNGJXNDFlRGx6SzJSTWFFbFFiVkJKWTBjeU5XOXBSR3hOZEZWVU9FOHJXbFJDZWpkS09USnhhVFk0WVhVMWF5OHhVMnhtVUU5U09ETXZjMjR6ZVZCTmNISndkMWRxTDFwTVZ6QXZOVWxZUVdaYVVGTm9OMWhJWW5FMGVIWTFTa1pPYzBoRk1WWTNLM2xqZFVGelYySndkVFo1WmpoTGFYVTBabFppYVROalVHTkxSbWRTZFhOdE5ESkNkRXA2VFRCNFZtUkVjMGsxY214TksweFFOMmRKVEhwbGVUTTNZWFpCTUU5M2IzVnVjMjFvV1ZCdVNWRlFkbEkwZW5GWFFVRjNOME5hTTJJeWVsVjBTMlJDUkNzMWJtNUhZemxGVlc5Q2JUaEpTRTlCUjBKUmFVbHJRWE5FT0ZGaFVVZDNRWGhJV2tFM1FXNUZSVmhFTjFaQ2JrRjNSVVZWVTNaT1FXRlVXVzk2VVZOb04yWTVRVFpTT1ZFclozTkVSa3RCUlUxSGRHVlpiVFZ4VFZwQmFFRkJOV3RwUTBKTWEwY3JkMHMxVkU1RlZsSmpWMHB3V1d4S2IwTTFWRkEzVDNOTGExZElTa3hwYVhGb1lrczNUWE5OVTJrMGJtbDNRMHR2VG01RldEVTFXRzkzVnpCQ1pWcFhjVUYxU1UxRU0xTnVTazlaYmtaTlMyWkJRa3hzVTBWcmMxTTVaRXRMWjFCeFFuWklPVzlYZEdwNlF6QnZlVGd2VDBGdGNHaEJhVmxSVkVkdmFVMVZTWGh6UlVkTlVrNUJVVnBJVkZKblNWRkliRU00UkRWNVFuSTBVeTlPUVhKck4xSlVZelJ2ZW1OMlYwNVZUMVJhYVRkSlV6QmxlV3BuU0hGUFZWcHZXRTFNV1hKQ1FWaE5MekpJWVhWbFJXaFdNWEZqYTFrcmJFMHlWMjF3WldWdFdtTkxRellyTUhwSVV6azRjM2xWYTJkNFdVVkpRVVZOYkVsNk1IcE9TMWxEUjFack5XbFZiV2RPZWxORmNIRkhXbFJLUW5kNGNXTkZhbkpHVWxKc05YTkdWV04zUmtacEwxWkxPR3R6VTFsV2NUUnJkazU2V1VOTVoxRkhXRFJDZDBSVWVrcFFjbXhCVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCI2LjIxNDcwNlwiLFwiMlwiOlwiMC42NzI5OTE2XCIsXCIzXCI6XCI0Ljg2MDY2M1wiLFwiNFwiOlwiMTBcIixcIjVcIjpcIjEwLjUwXCJ9LHtcIjFcIjpcIjYuMjgxNDk5XCIsXCIyXCI6XCIwLjY2MDcwMTZcIixcIjNcIjpcIjQuODYwNDY2XCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCI2LjMxMDUyN1wiLFwiMlwiOlwiMC42NTUxOTQ0XCIsXCIzXCI6XCI0Ljg1NTczNFwiLFwiNFwiOlwiMzFcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiNi4zOTM4NTlcIixcIjJcIjpcIjAuNjQ1ODg3MFwiLFwiM1wiOlwiNC45MjExODJcIixcIjRcIjpcIjQwXCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjYuNDQ2NjM0XCIsXCIyXCI6XCIwLjYzOTI2ODZcIixcIjNcIjpcIjQuOTA5NzQ4XCIsXCI0XCI6XCI0OFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCI2LjQ3NDQyNlwiLFwiMlwiOlwiMC42MzU5ODk2XCIsXCIzXCI6XCI0Ljk0MDMyMVwiLFwiNFwiOlwiNjJcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiNi40OTgwNDhcIixcIjJcIjpcIjAuNjMzMzA4NlwiLFwiM1wiOlwiNC45NDk5MjdcIixcIjRcIjpcIjczXCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjYuNTY2OTc2XCIsXCIyXCI6XCIwLjYyNTUxMDFcIixcIjNcIjpcIjQuOTkwNTE2XCIsXCI0XCI6XCI4OFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE00U0J4Ky9icDdGVlRIQ1FWSE5Pcnl5c2NKRzEvWFp3dXp1SWdPZG4vZWdCTGlJUGt5YWh1ejJJWkI4bW41eDlzK2RMaElQbVBJY0cyNW9pRGxNdFVUOE8rWlRCejdKOTJxaTY4YXU1ay8xU2xmUE9SODMvc24zeVBNcHJwd1dqL1pMVzAvNUlYQWZaUFNoN1hIYnE0eHY1SkZOc0hFMVY3K3ljdUFzV2JwdTZ5ZjhLaXU0ZlZiaTNjUGNLRmdSdXNtNDJCdEp6TTB4VmREc0k1cmxNK0xQN2dJTHpleTM3YXZBME93b3Vuc21oWVBuSVFQdlI0enFXQUF3N0NaM2IyelV0S2RCRCs1bm5HYzlFVW9CbThJSE9BR0JRaUlrQXNEOFFhUUd3QXhIWkE3QW5FRVhEN1ZCbkF3RUVVU3ZOQWFUWW96UVNoN2Y5QTZSOVErZ3NERktBRU1HdGVZbTVxTVpBaEFBNWtpQ0JMa0crd0s1VE5FVlJjV0pwWWxKb0M1VFA3T3NLa1dISkxpaXFoYks3TXNNU2k0bml3Q0tvTm5FWDU1WG93VzBCZVpXcUF1SU1EM1NuSk9ZbkZNS2ZBQkxsU0Vrc1M5ZEtLZ1BxQnZIOW9XdGp6QzBveTgvT0FtcGhBaVlRVEdvaU1VSXhzRUdNUk5BUVpIVFJnSVFIbEM4RDV5QnI0Uy9OQXJrN1JUYzRvemN2V05VT1RaaTdJUzBleWpnSHFPVVpvWE1MWXJCQVhNLzJIYXVlRWhWMXFja1krbE0yV21wZWVtWmNLQzYrMHpIUzk4c3lVa2d4WUVJQUVNbEl6MHpOS1lDR1ZrNWlVbWdOelNFcHFHWlRKQnd4cWNFanJGUlJsNXNGVWN3RkZpL1ZLOGtzU1lWcTRrdk56WUNMZ1FHWDRCd0RUekpQcmxBTUFBQT09In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"6.214706","2":"0.6729916","3":"4.860663","4":"10","5":"10.50"},{"1":"6.281499","2":"0.6607016","3":"4.860466","4":"20","5":"5.25"},{"1":"6.310527","2":"0.6551944","3":"4.855734","4":"31","5":"3.50"},{"1":"6.393859","2":"0.6458870","3":"4.921182","4":"40","5":"2.75"},{"1":"6.446634","2":"0.6392686","3":"4.909748","4":"48","5":"2.25"},{"1":"6.474426","2":"0.6359896","3":"4.940321","4":"62","5":"1.75"},{"1":"6.498048","2":"0.6333086","3":"4.949927","4":"73","5":"1.50"},{"1":"6.566976","2":"0.6255101","3":"4.990516","4":"88","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTk5GTkNlRFUwY0ZjcllUaE1SSEJLZVdJdmRHVXhiV3MxVTBGaVNUTjJOWFJsVFhoQ2Myd3ZZelZyVjNKc05GQnJkSEpXTXpKVWNuVlBWV2dyWW5KdU0yWmtUa1JDT0d0bU4ydDJVQ3ROZUhsclJFeEtkbTFFTlRob04wMUlVSFZ1Wm1Sak1tTXpObHBaZGpsVk9GSTFNMUprYjBncmVXVjJRa0UzTUdrM1dGbFFNV3h5U1dWTVlrZ3lZaTl3UlRGNVpTOUhaR1ZtV2xCbVVGWkRWVFl4WmpKcUwzZ3pTMnAzWlVrcldDOVNVR2gwVVdac1VsWllaemRvU0U4emFFSlpkaXQ1U0djelF5dFRiblEwTTFWTloySmtla05ZVEhwTlVWaHFkV1ZpUmtaTlZscEJaV3RoVUhZd2JVOW5MMEZ3TmpaUVZrZGhNRTkzZFdSTU9XTjBkbkZxYTBsbWVscHZibWhSZEVKcVUwUkdNbEZQUlVsT1ExSkJVMGsxV1VaWlFUUm5UbWRPWjA5cFJESkNUMEZLZFc1NWIwUkhSR2xKVVcxclpVdE5NRWR3V210bmRGQXdaa3RRTUVSVGJqbG9aMEZMVlVGSFlrNVRPSGhPVEZGWmVVSk5RMEpFUWtaclEyWkpUbVJ2VjNsUFdVdExRekJ6VkdreFNsUnZTSGh0V0RCbFdVWkZkSFZUVmtWc2JFMHlWa2RhV2xsV1FuZFFSbXRITVdkaVRXOTJNWGRRV21kMlNYRXdkMDVGU0dSM2IwUnpiRTlUWlhoSFQxbFZiVU5DV0ZOdFNrcHZiRFZoUlZaQkwydFFZMUJVVVhRM1ptdEdTbHB1TkdWVlFrMVVTMHBHZDFGblQxSkZXWEZTUkZkSmMyZHZXV2R2TkUxSFRFTlRaMlpCUlRSSU1XdEVaakpyWlhsT1ZYQjFjMnRhY0ZodVduVnRXbTh3YzNkR1pXVnNTVEZxUmtGUVkyTkphbFZ6V1cxNFdHbFpjV0l2VlU4eVkzTk1Ra3hVWXpkSmFEZE1XbFYyVUZOTkwwNVRXV1ZIVm14d2JYVldOVFphVlhCSlFrTjNTMUZSUlZweFdtNXdSME5UZVd0amFFdFVWVzVPWjBScmJFcE1XVTE1SzFsQ1FrUlJOWEIyV1V0cGVrUjVXV0ZwTm1kaFRFWmxVMWcxU2tscmQweFdNMG9yUkd0M1JVaExaMDB2ZDBOWk5XTkRhbXhCVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFw2LjIxNTY1M1xcLFxcMlxcOlxcMC42NzM2ODY0XFwsXFwzXFw6XFw0Ljg1NTE2NVxcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDEwLjUwXFx9LHtcXDFcXDpcXDYuMjgwMjAzXFwsXFwyXFw6XFwwLjY2MDM4NDJcXCxcXDNcXDpcXDQuODU4NTM4XFwsXFw0XFw6XFwyMFxcLFxcNVxcOlxcNS4yNVxcfSx7XFwxXFw6XFw2LjMyODIzOVxcLFxcMlxcOlxcMC42NTM1NzI0XFwsXFwzXFw6XFw0Ljg1ODU5NVxcLFxcNFxcOlxcMzFcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcNi4zODk3MzdcXCxcXDJcXDpcXDAuNjQ2MTQ0OVxcLFxcM1xcOlxcNC45MDQxMTBcXCxcXDRcXDpcXDQwXFwsXFw1XFw6XFwyLjc1XFx9LHtcXDFcXDpcXDYuNDI4Mzk4XFwsXFwyXFw6XFwwLjY0MTM2OTdcXCxcXDNcXDpcXDQuOTAzOTAyXFwsXFw0XFw6XFw0OFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFw2LjQ4NzgxMlxcLFxcMlxcOlxcMC42MzQ0MjE1XFwsXFwzXFw6XFw0Ljk0NzQ5NFxcLFxcNFxcOlxcNjJcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcNi40OTI0NjFcXCxcXDJcXDpcXDAuNjMzOTk1NlxcLFxcM1xcOlxcNC45NTI1OTVcXCxcXDRcXDpcXDczXFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDYuNTUxMTkzXFwsXFwyXFw6XFwwLjYyNzQwMjJcXCxcXDNcXDpcXDQuOTg3NDkwXFwsXFw0XFw6XFw4OFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzhdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNNFNCeDU0cFcrYThMRHBKeWIvdGUxbWs1U0FiSTN2NXRlTXhCc2wvYzVrV3JsNFBrdHJWMzJUcnVPVWgrYnJuM2ZkTkRCOGtmN2t2UCtNeHlrRExKdm1ENThoN01IUHVuZmRjMmMzNlpZdjlVOFI1M1Jkb0greWV2QkE3MGk3WFlQMWxySWVMYkgyYi9wRTF5ZS9HZGVmWlBmUFZDVTYxZjJqL3gzS2p3ZUkrWC9SUGh0UWZsUlZYZzdoSE8zaEJZdit5SGczQytTbnQ0M1VNZ2JkekNYTHpNUVhqdWViRkZNVlpBZWthUHYwbU9nL0FwNjZQVkdhME93dWRMOWN0dnFqa0lmelpvbmhRdEJqU0RGMlFPRUlOQ1JBU0k1WUZZQTRnTmdOZ09pRDJCT0FKdW55b0RHRGlJUW1rZUtNMEdwWmtndFAwZktQMERTbjloZ0FLVUFHYk5TOHhOTFFZeUJNQ0JEQkZrQ2ZJTmRvV3lPWUtLQzBzVGkxSlRvSHhtWDBlWUZFdHVTVkVsbE0yVkdaWllWQndQRmtHMWdiTW92MXdQWmd2SXEwd05FSGR3b0RzbE9TZXhHT1lVbUNCWFNtSkpvbDVhRVZBL2tQY1BUUXQ3ZmtGSlpuNGVVQk1US0pGd1FnT1JFWXFSRFdJc2dvWWdvNE1HTENTZ2ZBRTRIMWtEZjJrZXlOVXB1c2tacFhuWnVtWm8wc3dGZWVsSTFqRkFQY2NJalVzWW14WGlZcWIvVU8yY3NMQkxUYzdJaDdMWlV2UFNNL05TWWVHVmxwbXVWNTZaVXBJQkN3S1FRRVpxWm5wR0NTeWtjaEtUVW5OZ0RrbEpMWU15K1lCQkRRNXB2WUtpekR5WWFpNmdhTEZlU1g1Sklrd0xWM0orRGt3RUhLZ00vd0NZNWNDamxBTUFBQT09In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\6.215653\,\2\:\0.6736864\,\3\:\4.855165\,\4\:\10\,\5\:\10.50\},{\1\:\6.280203\,\2\:\0.6603842\,\3\:\4.858538\,\4\:\20\,\5\:\5.25\},{\1\:\6.328239\,\2\:\0.6535724\,\3\:\4.858595\,\4\:\31\,\5\:\3.50\},{\1\:\6.389737\,\2\:\0.6461449\,\3\:\4.904110\,\4\:\40\,\5\:\2.75\},{\1\:\6.428398\,\2\:\0.6413697\,\3\:\4.903902\,\4\:\48\,\5\:\2.25\},{\1\:\6.487812\,\2\:\0.6344215\,\3\:\4.947494\,\4\:\62\,\5\:\1.75\},{\1\:\6.492461\,\2\:\0.6339956\,\3\:\4.952595\,\4\:\73\,\5\:\1.50\},{\1\:\6.551193\,\2\:\0.6274022\,\3\:\4.987490\,\4\:\88\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTAwVTBKNGJIWmtNR0ZYZVU5bk5sTTRjRFJ5UlZCNGMwaDVWMEoyZG14a2NHWm5ObE13SzJSMU4xWldZalpEUXpVMk5FUXhXalJQV0VSd1NtWlFLM2t4TUN0MGQydFFlamx6VTFnNGVsRnpTRXRoWlhweFVuVmxOMWxIV2xrdk9UQXZkVVl2YUN0UlF6ZGFPSEV2WmpoWFMyTndhUzhyVWpWc1ZYQlRMMVp5TjBvNGRubFdlVmxhYldSdkwyRmFUSEp0VTNOcFlYWXZSU3QzWVdvMEwxZzNPV3N2WTJ0eVYyWjFSeko1WmpoTVUyVjZVRzA0UVVzMFpUUlVhbmhYWVZsU1NWRTFRMGRqTkdKTVFtTTVUVUpDZFVoNk0wcGtiRzlpZDJab2RGRmthWFJWUzJOSVNWRllObm94V1U0eU1tSm5MME5hVEZweFJqWmtkMDkzYzJSdWVUQTBVMHhJU1ZFdmNHb3lVMDgwWlhsQ2VHVnJSR3hCUkVGdlVrVlRRMWRDTWtsT1NVUlpRVmxxYzJjNVoxUnBRMHhvT1hGbmVHYzBRMEZMY0ZodFowNUNkVlZhYjB4Uk9XNHJaemxCT0c4dldWVkNRMnhCUTIxRVZYWk5WR1V4UjAxblVVRkJZM2xTU2tGc2VVUm1XVVpqY20xRFEyOTFURVV3YzFOck1rSTRjR3c1U0ZkR1UweE1hMnhTV2xaUlRteGtiVmRIU2xKalZIaFpRazVWUjNweFREaGphakpaVEZORGRrMXFWa0V6VFVkQ04zQlVhMjVOVW1sdFJrNW5aMngzY0dsVFYwcGxiV3hHVVZBeFFUTnFPREJNWlhvMVFsTlhXaXRZYkVGVVZYbG5VazFKU2tSVlVrZExSVmt5YVV4RlNVZHZTMDFFYUhGM2EwbEVlVUpsUWpoYVFUTTRjRmhyWjFZMlptOUtiV1ZWTlcxWWNtMXhSa3BOZUdacmNGTk9XbmgzUkRGSVEwMHdURzFHYzFadmFVeHRaalZFZEZoUVEzZHBOREZQVTAxbWVXMWFUSHBWZGxCNlJYVkdhRlprWVZweWNHVmxWMXBMVTFGWmMwTkZRVU5IWVcxYU5sSnJiSE5LUkV0VFZYaExlbGxGTlVwRFZ6RkVUWEpyUVhkWk1VOUxWREZEYjI5NU9ESkRjWFZaUTJsNFdHOXNLMU5YU2sxRE1XTjVabXMxVFVKR2QyOUVURGhCZDBKM2NtNDNUV3hCVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCI2LjIwMDI0OFwiLFwiMlwiOlwiMC42NzU3NTI2XCIsXCIzXCI6XCI0Ljg0Mjg2MFwiLFwiNFwiOlwiMTBcIixcIjVcIjpcIjEwLjUwXCJ9LHtcIjFcIjpcIjYuMjgwNTUyXCIsXCIyXCI6XCIwLjY2MDUyMjRcIixcIjNcIjpcIjQuODUxODA5XCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCI2LjMzMTM0MVwiLFwiMlwiOlwiMC42NTMyNTY1XCIsXCIzXCI6XCI0Ljg2NjkyN1wiLFwiNFwiOlwiMzFcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiNi4zOTgwNjNcIixcIjJcIjpcIjAuNjQ1MzE2OVwiLFwiM1wiOlwiNC45MTk2NzlcIixcIjRcIjpcIjQwXCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjYuNDMyMzc0XCIsXCIyXCI6XCIwLjY0MDg4MzdcIixcIjNcIjpcIjQuOTA5MzU5XCIsXCI0XCI6XCI0OFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCI2LjQ5MDE3NlwiLFwiMlwiOlwiMC42MzQyNTgzXCIsXCIzXCI6XCI0Ljk0OTkwNlwiLFwiNFwiOlwiNjJcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiNi40OTYwMzlcIixcIjJcIjpcIjAuNjMzNTkyMlwiLFwiM1wiOlwiNC45NDQ5MjhcIixcIjRcIjpcIjczXCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjYuNTY1MjM3XCIsXCIyXCI6XCIwLjYyNTU1NTlcIixcIjNcIjpcIjQuOTg1NzQ0XCIsXCI0XCI6XCI4OFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE00U0J4bHZkMGFXeU9nNlM4cDRyRVB4c0h5V0J2dmxkcGZnNlMwK2R1N1ZWYjZDQzU2NEQxWjRPWERwSmZQK3kxMCt0d2tQejlzU1g4elFzSEthZXpxUnVlN1lHWlkvOTAvdUYvaCtRQzdaOHEvZjhXS2NwaS8rUjVsVXBTL1ZyN0o4dnlWeVlabWRvL2FaTHJtU3NpYXYvRSt3YWo0L1g3OWsvY2tyV2Z1RzJ5ZjhMU2V6UG04QUs0ZTRUanhXYVlSSVE1Q0djNGJMQmM5TUJCdUh6M0pkbG9id2ZodFFkaXRVS2NISVFYNnoxWU4yMmJnL0NaTFpxRjZkd093c2RueTA0U0xISVEvcGoyU080ZXlCeGVrRGxBREFvUkVTQ1dCMklOSURZQVlqc2c5Z1RpQ0xoOXFneGc0Q0FLcFhtZ05CdVVab0xROW4rZzlBOG8vWVVCQ2xBQ21EVXZNVGUxR01nUUFBY3lSSkFseURmWUZjcm1DQ291TEUwc1NrMkI4cGw5SFdGU0xMa2xSWlZRTmxkbVdHSlJjVHhZQk5VR3pxTDhjajJZTFNDdk1qVkEzTUdCN3BUa25NUmltRk5nZ2x3cGlTV0plbWxGUVAxQTNqODBMZXo1QlNXWitYbEFUVXlnUk1JSkRVUkdLRVkyaUxFSUdvS01EaHF3a0lEeUJlQjhaQTM4cFhrZ1Y2Zm9KbWVVNW1Ycm1xRkpNeGZrcFNOWnh3RDFIQ00wTG1Gc1ZvaUxtZjVEdFhQQ3dpNDFPU01meW1aTHpVdlB6RXVGaFZkYVpycGVlV1pLU1FZc0NFQUNHYW1aNlJrbHNKREtTVXhLellFNUpDVzFETXJrQXdZMU9LVDFDb295ODJDcXVZQ2l4WG9sK1NXSk1DMWN5Zms1TUJGd29ETDhBd0J3cm43TWxBTUFBQT09In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"6.200248","2":"0.6757526","3":"4.842860","4":"10","5":"10.50"},{"1":"6.280552","2":"0.6605224","3":"4.851809","4":"20","5":"5.25"},{"1":"6.331341","2":"0.6532565","3":"4.866927","4":"31","5":"3.50"},{"1":"6.398063","2":"0.6453169","3":"4.919679","4":"40","5":"2.75"},{"1":"6.432374","2":"0.6408837","3":"4.909359","4":"48","5":"2.25"},{"1":"6.490176","2":"0.6342583","3":"4.949906","4":"62","5":"1.75"},{"1":"6.496039","2":"0.6335922","3":"4.944928","4":"73","5":"1.50"},{"1":"6.565237","2":"0.6255559","3":"4.985744","4":"88","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTk5GTkVlRWxtS3pKbVJuVlhaelpSZVRFMFZ6TlphWGRQYTJ0SGFEQjFNa05OZUhkcmNDOVRibGQ1TjB4ak5VRTRkbE54Vms1Uk4wa3ZlSE5aWmpNM1FsQkJaa3BtTW1aYWFtNUVkV05LUkZORmNUZGFUWG93UlZwdk56a3dOWEEzVkZwNlprWmxlV1o1YkhaNk9YSkRkSE16TDNrdlEzSTNkR1J3VURscksxZHlVa1JvVDJadVFpOXJibEkyTTNSak9UZFVkRzQzYW5Nd1RHSTVjMUU1U1hONk9GaGpibmhwTHpCUk1qUlFhVGM1VjNCM09YZHBXREZuWWpSMVRsazJRMFprT0hSVU1HdDBaSGhDZFU1NlFrc3ZiR3B1TkZCM2VrdERNREp5TVN0RWMweHlhbWt5VG1sYWNuSkpTSG9yTUZwM2VtOW5jMk5vUXpoemNYUmhVbXBZWTFFdmNscHlNemxrVm1rMFJtMDRTVXhOUVZkS1VXbEpaMEZ6VkhkUllYZERlRUZTUkdKQllrVnVSVVZtUVRkV1RteEJRVTFJVlZOcVRrRTJXRnB2UkZGVWFFeGlMMEUyVmk5UlQydDJSRVpEUVVWelEzTmxXVzAxY1dOV1FXaG5RVFJyUTBkRFRFVkhLM2RoTlZGT2EyUlJZMWRHY0Zsc1JuRkRjRlJRTjA5elNXc3lURXBNVTIxeGFFeExOVTF6VFZOcE5ISnFkMU5MYjA1dVFWYzFXbVp5ZDFkM1FtVmFWM0JCWlVsUFJHNVRia3BQWTJ0R2MwOWpRV2hRYTFOcmEzTlRaRkpNUzNkTWNVSXZUQ3R2VjJ4b2VuazRiM2xqZWxCQk1uQnBRV2xWVTFSdFoyZE5hMGw0YzJ0SFRWSmtRVkZhU0ZSUlowbFZSV3hET0VFMWVVNXlORU12VGtFM2F6WlNWR00xYjNwUmRsYzVZMDFVV25FMVNVTTRaSGxVYjBkeFQyTlpiMWhGU2xrM1RrTllUWG93U0RaeFpFVjRXakp4WTJ0YUsxWkJNbGN5Y0dWbGJWcGxTMmw1T0RCcVRGUTVZMjk2VlRCdmVWbEZSVUZGYzJoSmVsVjZVRXRKUjBaV1JUVnBWVzF2VDNwRFJYQnhWMVpSU21nNGQzRk5SV2h5Vm1SUmJFcHJTRlU0TUVaR1F6TlhTemhyZGxOWlVuQTBWWEpQZWpSSFNtZEJUMVkwVWpoQk5YbEllVWh3VVVSQlFVRTlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFw2LjIzNDgwMlxcLFxcMlxcOlxcMC42NzE0OTI4XFwsXFwzXFw6XFw0Ljg2NDczNlxcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDEwLjUwXFx9LHtcXDFcXDpcXDYuMjg0MjIxXFwsXFwyXFw6XFwwLjY2MDA2MjNcXCxcXDNcXDpcXDQuODY4MTIzXFwsXFw0XFw6XFwyMFxcLFxcNVxcOlxcNS4yNVxcfSx7XFwxXFw6XFw2LjMzMDQwM1xcLFxcMlxcOlxcMC42NTMyOTk4XFwsXFwzXFw6XFw0Ljg2NjQ1NlxcLFxcNFxcOlxcMzFcXCxcXDVcXDpcXDMuNTBcXH0se1xcMVxcOlxcNi4zOTUwNzhcXCxcXDJcXDpcXDAuNjQ1MzQzOFxcLFxcM1xcOlxcNC44OTk3MjhcXCxcXDRcXDpcXDQwXFwsXFw1XFw6XFwyLjc1XFx9LHtcXDFcXDpcXDYuNDQ4ODkyXFwsXFwyXFw6XFwwLjYzOTAyODVcXCxcXDNcXDpcXDQuOTIwNjgwXFwsXFw0XFw6XFw0OFxcLFxcNVxcOlxcMi4yNVxcfSx7XFwxXFw6XFw2LjQ5NzM4MVxcLFxcMlxcOlxcMC42MzMzODg2XFwsXFwzXFw6XFw0Ljk1MzAxM1xcLFxcNFxcOlxcNjJcXCxcXDVcXDpcXDEuNzVcXH0se1xcMVxcOlxcNi40OTg4MjlcXCxcXDJcXDpcXDAuNjMzMzA0NVxcLFxcM1xcOlxcNC45NTM3NDVcXCxcXDRcXDpcXDczXFwsXFw1XFw6XFwxLjUwXFx9LHtcXDFcXDpcXDYuNTQxMDkwXFwsXFwyXFw6XFwwLjYyODU3ODZcXCxcXDNcXDpcXDQuOTkwOTQ3XFwsXFw0XFw6XFw4OFxcLFxcNVxcOlxcMS4yNVxcfV0sXFxvcHRpb25zXFw6e1xcY29sdW1uc1xcOntcXG1pblxcOnt9LFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzVdfSxcXHJvd3NcXDp7XFxtaW5cXDpbMTBdLFxcbWF4XFw6WzEwXSxcXHRvdGFsXFw6WzhdfSxcXHBhZ2VzXFw6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNNFNEeElmKzJmRnVXZzZReTE0VzNZaXdPa2tHaDB1MkNNeHdrcC9Tbld5N0xjNUE4dlNxVk5RN0kveHNZZjM3QlBBZkpmMmZaam5EdWNKRFNFcTdaTXowRVpvNzkwNXA3VFp6ZkZleWZ5bHZ6OXJDdHMzL3kvQ3I3dGRwUDlrK1dyUkRoT2ZuQi9rblI2M3RjOTdUdG43anMwTGI5c1E5SXN6OFhjbnhpLzBRMjRQaTc5V3B3OXdpWDFnYjR1Tlk2Q0ZkOHRUMGt0ZHhCdU56QksvbGpuNFB3ektDMDJyMStEc0xyamkyTmlacnJJSHorMFp3em9nc2NoQzhzcXRhUmpYY1EvclpyMzlkVmk0Rm04SUxNQVdKUWlJZ0FzVHdRYXdDeEFSRGJBYkVuRUVmQTdWTmxBQU1IVVNqTkE2WFpvRFFUaExiL0E2Vi9RT2t2REZDQUVzQ3NlWW01cWNWQWhnQTRrQ0dDTEVHK3dhNVFOa2RRY1dGcFlsRnFDcFRQN09zSWsyTEpMU21xaExLNU1zTVNpNHJqd1NLb05uQVc1WmZyd1d3QmVaV3BBZUlPRG5TbkpPY2tGc09jQWhQa1Nra3NTZFJMS3dMcUIvTCtvV2xoenk4b3ljelBBMnBpQWlVU1RtZ2dNa0l4c2tHTVJkQVFaSFRRZ0lVRWxDOEE1eU5yNEMvTkE3azZSVGM1b3pRdlc5Y01UWnE1SUM4ZHlUb0dxT2NZb1hFSlk3TkNYTXowSDZxZEV4WjJxY2taK1ZBMlcycGVlbVplS2l5ODBqTFQ5Y296VTBveVlFRUFFc2hJelV6UEtJR0ZWRTVpVW1vT3pDRXBxV1ZRSmg4d3FNRWhyVmRRbEprSFU4MEZGQzNXSzhrdlNZUnA0VXJPejRHSmdBT1Y0UjhBNXlIeUhwUURBQUE9In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\6.234802\,\2\:\0.6714928\,\3\:\4.864736\,\4\:\10\,\5\:\10.50\},{\1\:\6.284221\,\2\:\0.6600623\,\3\:\4.868123\,\4\:\20\,\5\:\5.25\},{\1\:\6.330403\,\2\:\0.6532998\,\3\:\4.866456\,\4\:\31\,\5\:\3.50\},{\1\:\6.395078\,\2\:\0.6453438\,\3\:\4.899728\,\4\:\40\,\5\:\2.75\},{\1\:\6.448892\,\2\:\0.6390285\,\3\:\4.920680\,\4\:\48\,\5\:\2.25\},{\1\:\6.497381\,\2\:\0.6333886\,\3\:\4.953013\,\4\:\62\,\5\:\1.75\},{\1\:\6.498829\,\2\:\0.6333045\,\3\:\4.953745\,\4\:\73\,\5\:\1.50\},{\1\:\6.541090\,\2\:\0.6285786\,\3\:\4.990947\,\4\:\88\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTAwVTBKNE5UUndWeXRoT0V4RWNFcDVZaTkwWlRGdGF6VlRRV0pKTTNZMWRHVk5lRUp6YkM5ak5XdFhjbXcwVUd0MGNsWXpNbFJ5ZFU5VmFDdGljbTR6Wm1ST1JFSTRhMlkzYTNaUUswMTRlV3RFVEVwMmJVUTFPR2czVFVoUWRXNW1aR015WXpNMldsbDJPVlU0VWpVelVtUnZTQ3Q1WlhaQ1FUY3dhVGRZV1ZBeGJISkpaVXhpU0RKaUwzQkZNWGxsTDBka1pXWmFVR1pRVmtOVk5qRm1NbW92ZUROTGFuZGxTU3RZTDFKUWFIUlJabXhTVmxobk4yaElUek5vUWxsMkszbElaek5ESzFOdWREUXpWVTFuWW1SNlExaE1lazFSV0dwMVpXSkdSazFXV2tGbGEyRlFkakJ0VDJjdlFYQTJObEJXUjJFd1QzZDFaRXc1WTNSMmNXcHJTV1o2V205dWFGRjBRbXBUUkVZeVVVOUZTVTVEVWtGVFNUVlpSbGxCTkdkT1owNW5UMmxFTWtKUFFVcDFibmx2UkVkRWFVbFJiV3RsUzAwd1IzQmFhMmQwVURCbVMxQXdSRk51T1doblFVdFZRVWRpVGxNNGVFNU1VVmw1UWsxRFFrUkNSbXREWmtsT1pHOVhlVTlaUzB0RE1ITlVhVEZLVkc5SWVHMVlNR1ZaUmtWMGRWTldSV3hzVFRKV1IxcGFXVlpDZDFCR2EwY3haMkpOYjNZeGQxQmFaM1pKY1RCM1RrVklaSGR2UkhOc1QxTmxlRWRQV1ZWdFEwSllVMjFLU205c05XRkZWa0V2YTFCalVGUlJkRGRtYTBaS1dtNDBaVlZDVFZSTFNrWjNVV2RQVWtWWmNWSkVWMGx6WjI5WloyODBUVWRNUTFOblprRkZORWd4YTBSbU1tdGxlVTVWY0hWemExcHdXRzVhZFcxYWJ6QnpkMFpsWld4Sk1XcEdRVkJqWTBscVZYTlpiWGhZYVZseFlpOVZUekpqYzB4Q1RGUmpOMGxvTjB4YVZYWlFVMDB2VGxOWlpVZFdiSEJ0ZFZZMU5scFZjRWxDUTNkTFVWRkZXbkZhYm5CSFExTjVhMk5vUzFSVmJrNW5SR3RzU2t4WlRYa3JXVUpDUkZFMWNIWlpTMmw2UkhsWllXazJaMkZNUm1WVFdEVktTV3QzVEZZelNpdEVhM2RGU0V0blRTOTNRMWsxWTBOcWJFRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjYuMjE1NjUzXCIsXCIyXCI6XCIwLjY3MzY4NjRcIixcIjNcIjpcIjQuODU1MTY1XCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiMTAuNTBcIn0se1wiMVwiOlwiNi4yODAyMDNcIixcIjJcIjpcIjAuNjYwMzg0MlwiLFwiM1wiOlwiNC44NTg1MzhcIixcIjRcIjpcIjIwXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjYuMzI4MjM5XCIsXCIyXCI6XCIwLjY1MzU3MjRcIixcIjNcIjpcIjQuODU4NTk1XCIsXCI0XCI6XCIzMVwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCI2LjM4OTczN1wiLFwiMlwiOlwiMC42NDYxNDQ5XCIsXCIzXCI6XCI0LjkwNDExMFwiLFwiNFwiOlwiNDBcIixcIjVcIjpcIjIuNzVcIn0se1wiMVwiOlwiNi40MjgzOThcIixcIjJcIjpcIjAuNjQxMzY5N1wiLFwiM1wiOlwiNC45MDM5MDJcIixcIjRcIjpcIjQ4XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjYuNDg3ODEyXCIsXCIyXCI6XCIwLjYzNDQyMTVcIixcIjNcIjpcIjQuOTQ3NDk0XCIsXCI0XCI6XCI2MlwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCI2LjQ5MjQ2MVwiLFwiMlwiOlwiMC42MzM5OTU2XCIsXCIzXCI6XCI0Ljk1MjU5NVwiLFwiNFwiOlwiNzNcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiNi41NTExOTNcIixcIjJcIjpcIjAuNjI3NDAyMlwiLFwiM1wiOlwiNC45ODc0OTBcIixcIjRcIjpcIjg4XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbOF19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE00U0J4NTRwVythOExEcEp5Yi90ZTFtazVTQWJJM3Y1dGVNeEJzbC9jNWtXcmw0UGt0clYzMlRydU9VaCticm4zZmROREI4a2Y3a3ZQK014eWtETEp2bUQ1OGg3TUhQdW5mZGMyYzM2Wll2OVU4UjUzUmRvSCt5ZXZCQTcwaTdYWVAxbHJJZUxiSDJiL3BFMXllL0dkZWZaUGZQVkNVNjFmMmoveDNLandlSStYL1JQaHRRZmxSVlhnN2hITzNoQll2K3lIZzNDK1NudDQzVU1nYmR6Q1hMek1RWGp1ZWJGRk1WWkFla2FQdjBtT2cvQXA2NlBWR2EwT3d1ZEw5Y3R2cWprSWZ6Wm9uaFF0QmpTREYyUU9FSU5DUkFTSTVZRllBNGdOZ05nT2lEMkJPQUp1bnlvREdEaUlRbWtlS00wR3Baa2d0UDBmS1AwRFNuOWhnQUtVQUdiTlM4eE5MUVl5Qk1DQkRCRmtDZklOZG9XeU9ZS0tDMHNUaTFKVG9IeG1YMGVZRkV0dVNWRWxsTTJWR1paWVZCd1BGa0cxZ2JNb3Yxd1BaZ3ZJcTB3TkVIZHdvRHNsT1NleEdPWVVtQ0JYU21KSm9sNWFFVkEva1BjUFRRdDdma0ZKWm40ZVVCTVRLSkZ3UWdPUkVZcVJEV0lzZ29ZZ280TUdMQ1NnZkFFNEgxa0RmMmtleU5VcHVza1pwWG5adW1abzBzd0ZlZWxJMWpGQVBjY0lqVXNZbXhYaVlxYi9VTzJjc0xCTFRjN0loN0xaVXZQU00vTlNZZUdWbHBtdVY1NlpVcElCQ3dLUVFFWnFabnBHQ1N5a2NoS1RVbk5nRGtsSkxZTXkrWUJCRFE1cHZZS2l6RHlZYWk2Z2FMRmVTWDVKSWt3TFYzSitEa3dFSEtnTS93Q1k1Y0NqbEFNQUFBPT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"6.215653","2":"0.6736864","3":"4.855165","4":"10","5":"10.50"},{"1":"6.280203","2":"0.6603842","3":"4.858538","4":"20","5":"5.25"},{"1":"6.328239","2":"0.6535724","3":"4.858595","4":"31","5":"3.50"},{"1":"6.389737","2":"0.6461449","3":"4.904110","4":"40","5":"2.75"},{"1":"6.428398","2":"0.6413697","3":"4.903902","4":"48","5":"2.25"},{"1":"6.487812","2":"0.6344215","3":"4.947494","4":"62","5":"1.75"},{"1":"6.492461","2":"0.6339956","3":"4.952595","4":"73","5":"1.50"},{"1":"6.551193","2":"0.6274022","3":"4.987490","4":"88","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTk5GTkVlRFl4YUZGNmIyWkdSSEJMVTB4aVQycHRTbXRqU2tWT0szVkZWVVpLYW14SmVuQlNOV05YT1Zwck5GQnJTMlJOVERneldYSlBWV29yZWxweU9YTXhOMFJSV1hKV2N6bExPV3hPT1VKVGRTOVlhREp6V21ocVFubzNTamhYVkUxd1ZXVm1XRTR2Y1d4dGNUWTNiMmQ2TXpKVU5UZExXRFp3WVdKSEx5OWFTa1o0VlN0bWEyNHZXbEJwYnl0MlYySjFWekZtTmtwNU56VTNTbm8zU3pKRUszZ3pWRTVtVERaVVF5OXZiRVYzVTB0R2FXSjRkemwzYUZoNk0zQjROVllyV0djelJFSlNlR05NZDNkblNEUmpiMVIwTHpremVWUnJTWG96UkdNMlNFVm5lR3RHTkROVE1UTTFZWFpNU0VsUmRsQm5iM2h0WTJacFNVaDRWR1UyTDFSMVZXTlBkMm92VUd4REwySkhRVWt3UVRKUlYwSjRRMFJSYTFGRmFVOVhRbGRCVDBsRVdVUlpSRzluT1dkVVowTmljRGh4UVhobk5HbEZTbkJJYVdwT1FuRlhXa2xNVkRsSWVXbzVRVEJ3TDFsWlFVTnNRVUp0ZWxWMlRWUlRNRWROWjFSQloxRjNVbHBCYm5sRVdHRkdjMnB0UTJsbmRFeEZOSFJUVlRaQ09GcHNPVWh0UWxKTVltdHNVa3BhVkU1c1VtMVhWMFpSWTBSNFdrSjBXVWQ2UzB3NVkwUXlXVXg1UzNSTlJGSkNNMk5MUVRkS1ZHdHVjMUpxYlVaS1oyZFdNSEJwVTJGS1pWZG9SbEZRTlVRelJEQXdUR1V6TlVKVFYxb3JTR3hCVkVWNWFWSmpSVWxFYTFKSFMydFJNV2xNU1V0SFNVdFBSRUpwZDJ0dlNIZENUMEk1V2tFek9YQkljMnBXUzJKeVNrZGhWalV5WW5CdFlVNU1UVUpZYm5CVFRsbDRVVVF6U0VOSk1VeEhTbk5XTkcxTGJTOHhSSFJ1VEVOM1V6QXpUM2xKWlhreVZreDZNR3BRZWxWdFNHaHNXbUZhY214bFpXMVdTMU5CVVhORGEwVkNSMkZ0V2paU1oydHpjRWhKVTJzeFNucFpRVFZLVTFNeVJFMTJiVUZSVVRCUFlXSXlRMjl6ZHpodFIyOTFiMGRwZUZocmJDdFRVMHBOUXpGa2VXWm5OVTFDUW5sdlJGQTRRVVpCWjJWa05WRkVRVUZCUFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcNi4yNDQ4OTdcXCxcXDJcXDpcXDAuNjY5OTkxN1xcLFxcM1xcOlxcNC44NzA3MDhcXCxcXDRcXDpcXDEwXFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFw2LjI3NDkyMFxcLFxcMlxcOlxcMC42NjEzMTg0XFwsXFwzXFw6XFw0Ljg2MDI5NVxcLFxcNFxcOlxcMjBcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcNi4zMzI5NzhcXCxcXDJcXDpcXDAuNjUyOTY5M1xcLFxcM1xcOlxcNC44Njg5MzBcXCxcXDRcXDpcXDMxXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDYuMzk5NTI0XFwsXFwyXFw6XFwwLjY0NDgwMDBcXCxcXDNcXDpcXDQuODk4Njg4XFwsXFw0XFw6XFw0MFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFw2LjQ0NzQ3MVxcLFxcMlxcOlxcMC42MzkxMzMzXFwsXFwzXFw6XFw0LjkyMDc1NVxcLFxcNFxcOlxcNDhcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcNi40OTc0NzdcXCxcXDJcXDpcXDAuNjMzMzkxOFxcLFxcM1xcOlxcNC45NTQ5NjVcXCxcXDRcXDpcXDYyXFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDYuNTA1MTYzXFwsXFwyXFw6XFwwLjYzMjUzNjJcXCxcXDNcXDpcXDQuOTYyMDgxXFwsXFw0XFw6XFw3M1xcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFw2LjU0NTg3OVxcLFxcMlxcOlxcMC42Mjc5ODM0XFwsXFwzXFw6XFw0Ljk5Mzk0NFxcLFxcNFxcOlxcODhcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNNFNEeDYxaFF6b2ZGRHBLU0xiT2ptSmtjSkVOK3VFVUZKamxJenBSNWNXOVprNFBrS2RNTDgzWXJPVWorelpyOXMxN0RRWXJWczlLOWxOOUJTdS9YaDJzWmhqQno3SjhXVE1wVWVmWE4vcWxtcTY3b2d6MzJUNTdLWDZwYWJHLy9aSkZ4VStma24vWlBpbyt2V2J1VzFmNkp5NzU3Sno3SzJEK3gzVE5mTDZUQy9vbEV3U0tGaWJ4dzl3aFh6M3B4NVYrWGczREJSeGNMd3dnSDRjb1R0LzkzeVRrSXozRGM2SEVneGtGNDNTMTM1YXZMSElRdlBnb3htY2ZpSUh4VGU2L1R1VWNPd2ovUGxDL2JHQUkwQTJRV0J4Q0RRa1FFaU9XQldBT0lEWURZRG9nOWdUZ0NicDhxQXhnNGlFSnBIaWpOQnFXWklMVDlIeWo5QTBwL1lZQUNsQUJtelV2TVRTMEdNZ1RBZ1F3UlpBbnlEWGFGc2ptQ2lndExFNHRTVTZCOFpsOUhtQlJMYmtsUkpaVE5sUm1XV0ZRY0R4WkJ0WUd6S0w5Y0QyWUx5S3RNRFJCM2NLQTdKVGtuc1JqbUZKZ2dWMHBpU2FKZVdoRlFQNUQzRDAwTGUzNUJTV1orSGxBVEV5aVJjRUlEa1JHS2tRMWlMSUtHSUtPREJpd2tvSHdCT0I5WkEzOXBIc2pWS2JySkdhVjUyYnBtYU5MTUJYbnBTTll4UUQzSENJMUxHSnNWNG1LbS8xRHRuTEN3UzAzT3lJZXkyVkx6MGpQelVtSGhsWmFacmxlZW1WS1NBUXNDa0VCR2FtWjZSZ2tzcEhJU2sxSnpZQTVKU1MyRE12bUFRUTBPYWIyQ29zdzhtR291b0dpeFhrbCtTU0pNQzFkeWZnNU1CQnlvRFA4QUZBZ2VkNVFEQUFBPSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\6.244897\,\2\:\0.6699917\,\3\:\4.870708\,\4\:\10\,\5\:\10.50\},{\1\:\6.274920\,\2\:\0.6613184\,\3\:\4.860295\,\4\:\20\,\5\:\5.25\},{\1\:\6.332978\,\2\:\0.6529693\,\3\:\4.868930\,\4\:\31\,\5\:\3.50\},{\1\:\6.399524\,\2\:\0.6448000\,\3\:\4.898688\,\4\:\40\,\5\:\2.75\},{\1\:\6.447471\,\2\:\0.6391333\,\3\:\4.920755\,\4\:\48\,\5\:\2.25\},{\1\:\6.497477\,\2\:\0.6333918\,\3\:\4.954965\,\4\:\62\,\5\:\1.75\},{\1\:\6.505163\,\2\:\0.6325362\,\3\:\4.962081\,\4\:\73\,\5\:\1.50\},{\1\:\6.545879\,\2\:\0.6279834\,\3\:\4.993944\,\4\:\88\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTAwVTBSNFNXWXJNbVpHZFZkbk5sRjVNVFJYTTFscGQwOXJhMGRvTUhVeVEwMTRkMnR3TDFOdVYzazNUR00xUVRoMlUzRldUbEUzU1M5NGMxbG1NemRDVUVGbVNtWXlabHBxYmtSMVkwcEVVMFZ4TjFwTmVqQkZXbTgzT1RBMWNEZFVXbnBtUm1WNVpubHNkbm81Y2tOMGN6TXZlUzlEY2pkMFpIQlFPV3NyVjNKU1JHaFBabTVDTDJ0dVVqWXpkR001TjFSMGJqZHFjekJNWWpselVUbEpjM280V0dOdWVHa3ZNRkV5TkZCcE56bFhjSGM1ZDJsWU1XZGlOSFZPV1RaRFJtUTRkRlF3YTNSa2VFSjFUbnBDU3k5c2FtNDBVSGQ2UzBNd01uSXhLMFJ6VEhKcWFUSk9hVnB5Y2tsSWVpc3dXbmQ2YjJkelkyaERPSE54ZEdGU2FsaGpVUzl5V25Jek9XUldhVFJHYlRoSlRFMUJWMHBSYVVsblFYTlVkMUZoZDBONFFWSkVZa0ZpUlc1RlJXWkJOMVpPYkVGQlRVaFZVMnBPUVRaWVdtOUVVVlJvVEdJdlFUWldMMUZQYTNaRVJrTkJSWE5EYzJWWmJUVnhZMVpCYUdkQk5HdERSME5NUlVjcmQyRTFVVTVyWkZGalYwWndXV3hHY1VOd1ZGQTNUM05KYXpKTVNreFRiWEZvVEVzMVRYTk5VMmswY21wM1UwdHZUbTVCVnpWYVpuSjNWM2RDWlZwWGNFRmxTVTlFYmxOdVNrOWphMFp6VDJOQmFGQnJVMnRyYzFOa1VreExkMHh4UWk5TUsyOVhiR2g2ZVRodmVXTjZVRUV5Y0dsQmFWVlRWRzFuWjAxclNYaHphMGROVW1SQlVWcElWRkZuU1ZWRmJFTTRRVFY1VG5JMFF5OU9RVGRyTmxKVVl6VnZlbEYyVnpsalRWUmFjVFZKUXpoa2VWUnZSM0ZQWTFsdldFVktXVGRPUTFoTmVqQklObkZrUlhoYU1uRmphMW9yVmtFeVZ6SndaV1Z0V21WTGFYazRNR3BNVkRsamIzcFZNRzk1V1VWRlFVVnphRWw2VlhwUVMwbEhSbFpGTldsVmJXOVBla05GY0hGWFZsRkthRGgzY1UxRmFISldaRkZzU210SVZUZ3dSa1pETTFkTE9HdDJVMWxTY0RSVmNrOTZORWRLWjBGUFZqUlNPRUUxZVVoNVNIQlJSRUZCUVQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjYuMjM0ODAyXCIsXCIyXCI6XCIwLjY3MTQ5MjhcIixcIjNcIjpcIjQuODY0NzM2XCIsXCI0XCI6XCIxMFwiLFwiNVwiOlwiMTAuNTBcIn0se1wiMVwiOlwiNi4yODQyMjFcIixcIjJcIjpcIjAuNjYwMDYyM1wiLFwiM1wiOlwiNC44NjgxMjNcIixcIjRcIjpcIjIwXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjYuMzMwNDAzXCIsXCIyXCI6XCIwLjY1MzI5OThcIixcIjNcIjpcIjQuODY2NDU2XCIsXCI0XCI6XCIzMVwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCI2LjM5NTA3OFwiLFwiMlwiOlwiMC42NDUzNDM4XCIsXCIzXCI6XCI0Ljg5OTcyOFwiLFwiNFwiOlwiNDBcIixcIjVcIjpcIjIuNzVcIn0se1wiMVwiOlwiNi40NDg4OTJcIixcIjJcIjpcIjAuNjM5MDI4NVwiLFwiM1wiOlwiNC45MjA2ODBcIixcIjRcIjpcIjQ4XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjYuNDk3MzgxXCIsXCIyXCI6XCIwLjYzMzM4ODZcIixcIjNcIjpcIjQuOTUzMDEzXCIsXCI0XCI6XCI2MlwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCI2LjQ5ODgyOVwiLFwiMlwiOlwiMC42MzMzMDQ1XCIsXCIzXCI6XCI0Ljk1Mzc0NVwiLFwiNFwiOlwiNzNcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiNi41NDEwOTBcIixcIjJcIjpcIjAuNjI4NTc4NlwiLFwiM1wiOlwiNC45OTA5NDdcIixcIjRcIjpcIjg4XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbOF19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE00U0R4SWYrMmZGdVdnNlF5MTRXM1lpd09ra0doMHUyQ014d2twL1NuV3k3TGM1QTh2U3FWTlE3SS94c1lmMzdCUEFmSmYyZlpqbkR1Y0pEU0VxN1pNejBFWm83OTA1cDdUWnpmRmV5Znlsdno5ckN0czMveS9Dcjd0ZHBQOWsrV3JSRGhPZm5CL2tuUjYzdGM5N1R0bjdqczBMYjlzUTlJc3o4WGNueGkvMFEyNFBpNzlXcHc5d2lYMWdiNHVOWTZDRmQ4dFQwa3RkeEJ1TnpCSy9sam40UHd6S0MwMnIxK0RzTHJqaTJOaVpycklIeiswWnd6b2dzY2hDOHNxdGFSalhjUS9yWnIzOWRWaTRGbThJTE1BV0pRaUlnQXNUd1Fhd0N4QVJEYkFiRW5FRWZBN1ZObEFBTUhVU2pOQTZYWm9EUVRoTGIvQTZWL1FPa3ZERkNBRXNDc2VZbTVxY1ZBaGdBNGtDR0NMRUcrd2E1UU5rZFFjV0ZwWWxGcUNwVFA3T3NJazJMSkxTbXFoTEs1TXNNU2k0cmp3U0tvTm5BVzVaZnJ3V3dCZVpXcEFlSU9EblNuSk9ja0ZzT2NBaFBrU2trc1NkUkxLd0xxQi9MK29XbGh6eThveWN6UEEycGlBaVVTVG1nZ01rSXhza0dNUmRBUVpIVFFnSVVFbEM4QTV5TnI0Qy9OQTdrNlJUYzVvelF2VzljTVRacTVJQzhkeVRvR3FPY1lvWEVKWTdOQ1hNejBINnFkRXhaMnFja1orVkEyVzJwZWVtWmVLaXk4MGpMVDljb3pVMG95WUVFQUVzaEl6VXpQS0lHRlZFNWlVbW9PekNFcHFXVlFKaDh3cU1FaHJWZFFsSmtIVTgwRkZDM1dLOGt2U1lScDRVck96NEdKZ0FPVjRSOEE1eUh5SHBRREFBQT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"6.234802","2":"0.6714928","3":"4.864736","4":"10","5":"10.50"},{"1":"6.284221","2":"0.6600623","3":"4.868123","4":"20","5":"5.25"},{"1":"6.330403","2":"0.6532998","3":"4.866456","4":"31","5":"3.50"},{"1":"6.395078","2":"0.6453438","3":"4.899728","4":"40","5":"2.75"},{"1":"6.448892","2":"0.6390285","3":"4.920680","4":"48","5":"2.25"},{"1":"6.497381","2":"0.6333886","3":"4.953013","4":"62","5":"1.75"},{"1":"6.498829","2":"0.6333045","3":"4.953745","4":"73","5":"1.50"},{"1":"6.541090","2":"0.6285786","3":"4.990947","4":"88","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTk5GTkVlRGg0VERjeU1UbExSSEJMYVZSM04zTmhiSHBuU1U5cmVuUmhhSGMwVkdOSWVXTnJZMU40TjNvcmVteEpTRzR2YnpoSWRsWlBVV1pLU0RnNVpraDBaVmswYVVSR2RIRmljalpoWTB4RWJFdGhTRXA2VEc1Wk1XZzFkR2N2VEZSU2VqaHpiV05aWmpsVldpODBTSE00VVcwcmVXUjJVR052WkRVMWJtRlFNVzRyY0RaNWRUUTBlamxyTjB3Mk5sQndjMUV2YzI1SWJ6aDBkRTR6T1RkS0wxazVUSEJ0VmpNcmQyWjVTMjR5VURkb1VVTTNZMUJqU1ZaeE1GUkZUMm93WTJoUVRqTTRRalV2Y1hWbloxaEtUR1ZHVmxweU5WTkJPSFJtU21keFkzTllRaXRHVGt4SmNFZ3pOVFY0UlVRM2VtTldUbVF3VlhkSU5GSjBXazVSV0hZMVVubEZabnBvSzBNd2VWbENhbE5FUmpKUlQwVkpUa05TUVZOSk5WbEdXVUUwWjA1blRtZFBhVVF5UWs5QlNuVnVlVzlFUjBScFNWRnRhMlZMVFRCSGNGcHJaM1JRTUdaTFVEQkVVMjQ1YUdkQlMxVkJSMkpPVXpoNFRreFJXWGxDVFVOQ1JFSkdhME5tU1U1a2IxZDVUMWxMUzBNd2MxUnBNVXBVYjBoNGJWZ3daVmxHUlhSMVUxWkZiR3hOTWxaSFdscFpWa0ozVUVaclJ6Rm5ZazF2ZGpGM1VGcG5ka2x4TUhkT1JVaGtkMjlFYzJ4UFUyVjRSMDlaVlcxRFFsaFRiVXBLYjJ3MVlVVldRUzlyVUdOUVZGRjBOMlpyUmtwYWJqUmxWVUpOVkV0S1JuZFJaMDlTUlZseFVrUlhTWE5uYjFsbmJ6Uk5SMHhEVTJkbVFVVTBTREZyUkdZeWEyVjVUbFZ3ZFhOclduQllibHAxYlZwdk1ITjNSbVZsYkVreGFrWkJVR05qU1dwVmMxbHRlRmhwV1hGaUwxVlBNbU56VEVKTVZHTTNTV2czVEZwVmRsQlRUUzlPVTFsbFIxWnNjRzExVmpVMldsVndTVUpEZDB0UlVVVmFjVnB1Y0VkRFUzbHJZMmhMVkZWdVRtZEVhMnhLVEZsTmVTdFpRa0pFVVRWd2RsbExhWHBFZVZsaGFUWm5ZVXhHWlZOWU5VcEphM2RNVmpOS0swUnJkMFZJUzJkTkwzZEJXblp2T1c1c1FVMUJRVUU5UFNKOSAtLT5cblxuPGRpdiBkYXRhLXBhZ2VkdGFibGU9XFxmYWxzZVxcPlxuICA8c2NyaXB0IGRhdGEtcGFnZWR0YWJsZS1zb3VyY2UgdHlwZT1cXGFwcGxpY2F0aW9uL2pzb25cXD5cbntcXGNvbHVtbnNcXDpbe1xcbGFiZWxcXDpbXFxSTVNFXFxdLFxcbmFtZVxcOlsxXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXFJzcXVhcmVkXFxdLFxcbmFtZVxcOlsyXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXE1BRVxcXSxcXG5hbWVcXDpbM10sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxtdHJ5XFxdLFxcbmFtZVxcOls0XSxcXHR5cGVcXDpbXFxpbnRcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXGlWYXJzX210cnlcXF0sXFxuYW1lXFw6WzVdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19XSxcXGRhdGFcXDpbe1xcMVxcOlxcNi4yNDM5NjVcXCxcXDJcXDpcXDAuNjcwMDY5OFxcLFxcM1xcOlxcNC44Njc4MzZcXCxcXDRcXDpcXDEwXFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFw2LjI3MTM4MFxcLFxcMlxcOlxcMC42NjE2OTc0XFwsXFwzXFw6XFw0Ljg1OTEwMVxcLFxcNFxcOlxcMjBcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcNi4zMjQ3ODlcXCxcXDJcXDpcXDAuNjUzOTY1MlxcLFxcM1xcOlxcNC44NjM2NzZcXCxcXDRcXDpcXDMxXFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDYuMzkzNTg4XFwsXFwyXFw6XFwwLjY0NTUwNjFcXCxcXDNcXDpcXDQuODk1OTcyXFwsXFw0XFw6XFw0MFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFw2LjQ0NTE5NVxcLFxcMlxcOlxcMC42Mzk0NjUwXFwsXFwzXFw6XFw0LjkyMzg0NFxcLFxcNFxcOlxcNDhcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcNi40OTMwNzJcXCxcXDJcXDpcXDAuNjMzODk3NFxcLFxcM1xcOlxcNC45NTAxNDFcXCxcXDRcXDpcXDYyXFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDYuNTA2NTE4XFwsXFwyXFw6XFwwLjYzMjM5MTZcXCxcXDNcXDpcXDQuOTYxMzQ0XFwsXFw0XFw6XFw3M1xcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFw2LjU0MDA3MFxcLFxcMlxcOlxcMC42Mjg2NzgxXFwsXFwzXFw6XFw0Ljk5MjQzOVxcLFxcNFxcOlxcODhcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNNFNEeDh4TDcyMTlLRHBLaVR3N3NhbHpnSU9renRhaHc0VGNIeWNrY1N4N3oremxJSG4vbzhIdlZPUWZKSDg5Zkh0ZVk0aURGdHFicjZhY0xEbEthSEp6TG5ZMWg1dGcvTFRSejhzbWNZZjlVWi80SHM4UW0reWR2UGNvZDU1bmFQMW4rcDZ5dTQ0ejlrN0w2NlBwc1Evc25Ibzh0dE4zOTdKL1k5THBtVjMrd2Z5S24yUDdoUUM3Y1BjSVZxMFRFT2owY2hQTjM4QjUvcXVnZ1hKTGVGVlpyNVNBOHRmSmdxY3NYQitGTkxJcEgzNTV4RUQ3emNWTmQwVXdINFJ0Wk5RWHY1UnlFZnpoK0MweVlCalNERjJRT0VJTkNSQVNJNVlGWUE0Z05nTmdPaUQyQk9BSnVueW9ER0RpSVFta2VLTTBHcFprZ3RQMGZLUDBEU245aGdBS1VBR2JOUzh4TkxRWXlCTUNCREJGa0NmSU5kb1d5T1lLS0Mwc1RpMUpUb0h4bVgwZVlGRXR1U1ZFbGxNMlZHWlpZVkJ3UEZrRzFnYk1vdjF3UFpndklxMHdORUhkd29Ec2xPU2V4R09ZVW1DQlhTbUpKb2w1YUVWQS9rUGNQVFF0N2ZrRkpabjRlVUJNVEtKRndRZ09SRVlxUkRXSXNnb1lnbzRNR0xDU2dmQUU0SDFrRGYya2V5TlVwdXNrWnBYblp1bVpvMHN3RmVlbEkxakZBUGNjSWpVc1lteFhpWXFiL1VPMmNzTEJMVGM3SWg3TFpVdlBTTS9OU1llR1ZscG11VjU2WlVwSUJDd0tRUUVacVpucEdDU3lrY2hLVFVuTmdEa2xKTFlNeStZQkJEUTVwdllLaXpEeVlhaTZnYUxGZVNYNUpJa3dMVjNKK0Rrd0VIS2dNL3dBWnZvOW5sQU1BQUE9PSJ9 -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\6.243965\,\2\:\0.6700698\,\3\:\4.867836\,\4\:\10\,\5\:\10.50\},{\1\:\6.271380\,\2\:\0.6616974\,\3\:\4.859101\,\4\:\20\,\5\:\5.25\},{\1\:\6.324789\,\2\:\0.6539652\,\3\:\4.863676\,\4\:\31\,\5\:\3.50\},{\1\:\6.393588\,\2\:\0.6455061\,\3\:\4.895972\,\4\:\40\,\5\:\2.75\},{\1\:\6.445195\,\2\:\0.6394650\,\3\:\4.923844\,\4\:\48\,\5\:\2.25\},{\1\:\6.493072\,\2\:\0.6338974\,\3\:\4.950141\,\4\:\62\,\5\:\1.75\},{\1\:\6.506518\,\2\:\0.6323916\,\3\:\4.961344\,\4\:\73\,\5\:\1.50\},{\1\:\6.540070\,\2\:\0.6286781\,\3\:\4.992439\,\4\:\88\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTAwVTBSNE5qRm9VWHB2WmtaRWNFdFRUR0pQYW0xS2EyTktSVTRyZFVWVlJrcHFiRWw2Y0ZJMVkxYzVXbXMwVUd0TFpFMU1PRE5aY2s5VmFpdDZXbkk1Y3pFM1JGRlpjbFp6T1VzNWJFNDVRbE4xTDFob01uTmFhR3BDZWpkS09GZFVUWEJWWldaWVRpOXhiRzF4Tmpkdlozb3pNbFExTjB0WU5uQmhZa2N2TDFwS1JuaFZLMlpyYmk5YVVHbHZLM1pYWW5WWE1XWTJTbmszTlRkS2VqZExNa1FyZUROVVRtWk1ObFJETDI5c1JYZFRTMFpwWW5oM09YZG9XSG96Y0hnMVZpdFlaek5FUWxKNFkweDNkMmRJTkdOdlZIUXZPVE41Vkd0SmVqTkVZelpJUldkNGEwWTBNMU14TXpWaGRreElTVkYyVUdkdmVHMWpabWxKU0hoVVpUWXZWSFZWWTA5M2FpOVFiRU12WWtkQlNUQkJNbEZYUW5oRFJGRnJVVVZwVDFkQ1YwRlBTVVJaUkZsRWIyYzVaMVJuUTJKd09IRkJlR2MwYVVWS2NFaHBhazVDY1ZkYVNVeFVPVWg1YWpsQk1IQXZXVmxCUTJ4QlFtMTZWWFpOVkZNd1IwMW5WRUZuVVhkU1drRnVlVVJZWVVaemFtMURhV2QwVEVVMGRGTlZOa0k0V213NVNHMUNVa3hpYTJ4U1NscFVUbXhTYlZkWFJsRmpSSGhhUW5SWlIzcExURGxqUkRKWlRIbExkRTFFVWtJelkwdEJOMHBVYTI1elVtcHRSa3BuWjFZd2NHbFRZVXBsVjJoR1VWQTFSRE5FTURCTVpUTTFRbE5YV2l0SWJFRlVSWGxwVW1ORlNVUnJVa2RMYTFFeGFVeEpTMGRKUzA5RVFtbDNhMjlJZDBKUFFqbGFRVE01Y0VoemFsWkxZbkpLUjJGV05USmljRzFoVGt4TlFsaHVjRk5PV1hoUlJETklRMGt4VEVkS2MxWTBiVXR0THpGRWRHNU1RM2RUTUROUGVVbGxlVEpXVEhvd2FsQjZWVzFJYUd4YVlWcHliR1ZsYlZaTFUwRlJjME5yUlVKSFlXMWFObEpuYTNOd1NFbFRhekZLZWxsQk5VcFRVekpFVFhadFFWRlJNRTloWWpKRGIzTjNPRzFIYjNWdlIybDRXR3RzSzFOVFNrMURNV1I1Wm1jMVRVSkNlVzlFVURoQlJrRm5aV1ExVVVSQlFVRTlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCI2LjI0NDg5N1wiLFwiMlwiOlwiMC42Njk5OTE3XCIsXCIzXCI6XCI0Ljg3MDcwOFwiLFwiNFwiOlwiMTBcIixcIjVcIjpcIjEwLjUwXCJ9LHtcIjFcIjpcIjYuMjc0OTIwXCIsXCIyXCI6XCIwLjY2MTMxODRcIixcIjNcIjpcIjQuODYwMjk1XCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCI2LjMzMjk3OFwiLFwiMlwiOlwiMC42NTI5NjkzXCIsXCIzXCI6XCI0Ljg2ODkzMFwiLFwiNFwiOlwiMzFcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiNi4zOTk1MjRcIixcIjJcIjpcIjAuNjQ0ODAwMFwiLFwiM1wiOlwiNC44OTg2ODhcIixcIjRcIjpcIjQwXCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjYuNDQ3NDcxXCIsXCIyXCI6XCIwLjYzOTEzMzNcIixcIjNcIjpcIjQuOTIwNzU1XCIsXCI0XCI6XCI0OFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCI2LjQ5NzQ3N1wiLFwiMlwiOlwiMC42MzMzOTE4XCIsXCIzXCI6XCI0Ljk1NDk2NVwiLFwiNFwiOlwiNjJcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiNi41MDUxNjNcIixcIjJcIjpcIjAuNjMyNTM2MlwiLFwiM1wiOlwiNC45NjIwODFcIixcIjRcIjpcIjczXCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjYuNTQ1ODc5XCIsXCIyXCI6XCIwLjYyNzk4MzRcIixcIjNcIjpcIjQuOTkzOTQ0XCIsXCI0XCI6XCI4OFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE00U0R4NjFoUXpvZkZEcEtTTGJPam1Ka2NKRU4rdUVVRkpqbEl6cFI1Y1c5Wms0UGtLZE1MODNZck9Vait6WnI5czE3RFFZclZzOUs5bE45QlN1L1hoMnNaaGpCejdKOFdUTXBVZWZYTi9xbG1xNjdvZ3ozMlQ1N0tYNnBhYkcvL1pKRnhVK2Zrbi9aUGlvK3ZXYnVXMWY2Snk3NTdKejdLMkQreDNUTmZMNlRDL29sRXdTS0ZpYnh3OXdoWHozcHg1VitYZzNEQlJ4Y0x3d2dINGNvVHQvOTN5VGtJejNEYzZIRWd4a0Y0M1MxMzVhdkxISVF2UGdveG1jZmlJSHhUZTYvVHVVY093ai9QbEMvYkdBSTBBMlFXQnhDRFFrUUVpT1dCV0FPSURZRFlEb2c5Z1RnQ2JwOHFBeGc0aUVKcEhpak5CcVdaSUxUOUh5ajlBMHAvWVlBQ2xBQm16VXZNVFMwR01nVEFnUXdSWkFueURYYUZzam1DaWd0TEU0dFNVNkI4Wmw5SG1CUkxia2xSSlpUTmxSbVdXRlFjRHhaQnRZR3pLTDljRDJZTHlLdE1EUkIzY0tBN0pUa25zUmptRkpnZ1YwcGlTYUplV2hGUVA1RDNEMDBMZTM1QlNXWitIbEFURXlpUmNFSURrUkdLa1ExaUxJS0dJS09EQml3a29Id0JPQjlaQTM5cEhzalZLYnJKR2FWNTJicG1hTkxNQlhucFNOWXhRRDNIQ0kxTEdKc1Y0bUttLzFEdG5MQ3dTMDNPeUlleTJWTHowalB6VW1IaGxaYVpybGVlbVZLU0FRc0NrRUJHYW1aNlJna3NwSElTazFKellBNUpTUzJETXZtQVFRME9hYjJDb3N3OG1Hb3VvR2l4WGtsK1NTSk1DMWR5Zmc1TUJCeW9EUDhBRkFnZWQ1UURBQUE9In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"6.244897","2":"0.6699917","3":"4.870708","4":"10","5":"10.50"},{"1":"6.274920","2":"0.6613184","3":"4.860295","4":"20","5":"5.25"},{"1":"6.332978","2":"0.6529693","3":"4.868930","4":"31","5":"3.50"},{"1":"6.399524","2":"0.6448000","3":"4.898688","4":"40","5":"2.75"},{"1":"6.447471","2":"0.6391333","3":"4.920755","4":"48","5":"2.25"},{"1":"6.497477","2":"0.6333918","3":"4.954965","4":"62","5":"1.75"},{"1":"6.505163","2":"0.6325362","3":"4.962081","4":"73","5":"1.50"},{"1":"6.545879","2":"0.6279834","3":"4.993944","4":"88","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjRnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqb3hNaXdpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjoxMiwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTAwVTBSNE9IaE1Oekl4T1V0RWNFdHBWSGMzYzJGc2VtZEpUMnQ2ZEdGb2R6UlVZMGg1WTJ0alUzZzNlaXQ2YkVsSWJpOXZPRWgyVms5UlprcElPRGxtU0hSbFdUUnBSRVowY1dKeU5tRmpURVJzUzJGSVNucE1ibGt4YURWMFp5OU1WRko2T0hOdFkxbG1PVlZhTHpSSWN6aFJiU3Q1WkhaUVkyOWtOVFZ1WVZBeGJpdHdObmwxTkRSNk9XczNURFkyVUhCelVTOXpia2h2T0hSMFRqTTVOMG92V1RsTWNHMVdNeXQzWm5sTGJqSlFOMmhSUXpkalVHTkpWbkV3VkVWUGFqQmphRkJPTXpoQ05TOXhkV2RuV0VwTVpVWldXbkkxVTBFNGRHWktaM0ZqYzFoQ0swWk9URWx3U0RNMU5YaEZSRGQ2WTFaT1pEQlZkMGcwVW5SYVRsRllkalZTZVVWbWVtZ3JRekI1V1VKcVUwUkdNbEZQUlVsT1ExSkJVMGsxV1VaWlFUUm5UbWRPWjA5cFJESkNUMEZLZFc1NWIwUkhSR2xKVVcxclpVdE5NRWR3V210bmRGQXdaa3RRTUVSVGJqbG9aMEZMVlVGSFlrNVRPSGhPVEZGWmVVSk5RMEpFUWtaclEyWkpUbVJ2VjNsUFdVdExRekJ6VkdreFNsUnZTSGh0V0RCbFdVWkZkSFZUVmtWc2JFMHlWa2RhV2xsV1FuZFFSbXRITVdkaVRXOTJNWGRRV21kMlNYRXdkMDVGU0dSM2IwUnpiRTlUWlhoSFQxbFZiVU5DV0ZOdFNrcHZiRFZoUlZaQkwydFFZMUJVVVhRM1ptdEdTbHB1TkdWVlFrMVVTMHBHZDFGblQxSkZXWEZTUkZkSmMyZHZXV2R2TkUxSFRFTlRaMlpCUlRSSU1XdEVaakpyWlhsT1ZYQjFjMnRhY0ZodVduVnRXbTh3YzNkR1pXVnNTVEZxUmtGUVkyTkphbFZ6V1cxNFdHbFpjV0l2VlU4eVkzTk1Ra3hVWXpkSmFEZE1XbFYyVUZOTkwwNVRXV1ZIVm14d2JYVldOVFphVlhCSlFrTjNTMUZSUlZweFdtNXdSME5UZVd0amFFdFVWVzVPWjBScmJFcE1XVTE1SzFsQ1FrUlJOWEIyV1V0cGVrUjVXV0ZwTm1kaFRFWmxVMWcxU2tscmQweFdNMG9yUkd0M1JVaExaMDB2ZDBGYWRtODVibXhCVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCI2LjI0Mzk2NVwiLFwiMlwiOlwiMC42NzAwNjk4XCIsXCIzXCI6XCI0Ljg2NzgzNlwiLFwiNFwiOlwiMTBcIixcIjVcIjpcIjEwLjUwXCJ9LHtcIjFcIjpcIjYuMjcxMzgwXCIsXCIyXCI6XCIwLjY2MTY5NzRcIixcIjNcIjpcIjQuODU5MTAxXCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiNS4yNVwifSx7XCIxXCI6XCI2LjMyNDc4OVwiLFwiMlwiOlwiMC42NTM5NjUyXCIsXCIzXCI6XCI0Ljg2MzY3NlwiLFwiNFwiOlwiMzFcIixcIjVcIjpcIjMuNTBcIn0se1wiMVwiOlwiNi4zOTM1ODhcIixcIjJcIjpcIjAuNjQ1NTA2MVwiLFwiM1wiOlwiNC44OTU5NzJcIixcIjRcIjpcIjQwXCIsXCI1XCI6XCIyLjc1XCJ9LHtcIjFcIjpcIjYuNDQ1MTk1XCIsXCIyXCI6XCIwLjYzOTQ2NTBcIixcIjNcIjpcIjQuOTIzODQ0XCIsXCI0XCI6XCI0OFwiLFwiNVwiOlwiMi4yNVwifSx7XCIxXCI6XCI2LjQ5MzA3MlwiLFwiMlwiOlwiMC42MzM4OTc0XCIsXCIzXCI6XCI0Ljk1MDE0MVwiLFwiNFwiOlwiNjJcIixcIjVcIjpcIjEuNzVcIn0se1wiMVwiOlwiNi41MDY1MThcIixcIjJcIjpcIjAuNjMyMzkxNlwiLFwiM1wiOlwiNC45NjEzNDRcIixcIjRcIjpcIjczXCIsXCI1XCI6XCIxLjUwXCJ9LHtcIjFcIjpcIjYuNTQwMDcwXCIsXCIyXCI6XCIwLjYyODY3ODFcIixcIjNcIjpcIjQuOTkyNDM5XCIsXCI0XCI6XCI4OFwiLFwiNVwiOlwiMS4yNVwifV0sXCJvcHRpb25zXCI6e1wiY29sdW1uc1wiOntcIm1pblwiOnt9LFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzVdfSxcInJvd3NcIjp7XCJtaW5cIjpbMTBdLFwibWF4XCI6WzEwXSxcInRvdGFsXCI6WzhdfSxcInBhZ2VzXCI6e319fVxuICA8XC9zY3JpcHQ+XG48XC9kaXY+XG5cbjwhLS0gcm5iLWZyYW1lLWVuZCAtLT5cbiJ9 -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE00U0R4OHhMNzIxOUtEcEtpVHc3c2FsemdJT2t6dGFodzRUY0h5Y2tjU3g3eit6bElIbi9vOEh2Vk9RZkpIODlmSHRlWTRpREZ0cWJyNmFjTERsS2FISnpMblkxaDV0Zy9MVFJ6OHNtY1lmOVVaLzRIczhRbSt5ZHZQY29kNTVuYVAxbitwNnl1NDR6OWs3TDY2UHBzUS9zbkhvOHR0TjM5N0ovWTlMcG1WMyt3ZnlLbjJQN2hRQzdjUGNJVnEwVEVPajBjaFBOMzhCNS9xdWdnWEpMZUZWWnI1U0E4dGZKZ3Fjc1hCK0ZOTElwSDM1NXhFRDd6Y1ZOZDBVd0g0UnRaTlFYdjVSeUVmemgrQzB5WUJqU0RGMlFPRUlOQ1JBU0k1WUZZQTRnTmdOZ09pRDJCT0FKdW55b0RHRGlJUW1rZUtNMEdwWmtndFAwZktQMERTbjloZ0FLVUFHYk5TOHhOTFFZeUJNQ0JEQkZrQ2ZJTmRvV3lPWUtLQzBzVGkxSlRvSHhtWDBlWUZFdHVTVkVsbE0yVkdaWllWQndQRmtHMWdiTW92MXdQWmd2SXEwd05FSGR3b0RzbE9TZXhHT1lVbUNCWFNtSkpvbDVhRVZBL2tQY1BUUXQ3ZmtGSlpuNGVVQk1US0pGd1FnT1JFWXFSRFdJc2dvWWdvNE1HTENTZ2ZBRTRIMWtEZjJrZXlOVXB1c2tacFhuWnVtWm8wc3dGZWVsSTFqRkFQY2NJalVzWW14WGlZcWIvVU8yY3NMQkxUYzdJaDdMWlV2UFNNL05TWWVHVmxwbXVWNTZaVXBJQkN3S1FRRVpxWm5wR0NTeWtjaEtUVW5OZ0RrbEpMWU15K1lCQkRRNXB2WUtpekR5WWFpNmdhTEZlU1g1Sklrd0xWM0orRGt3RUhLZ00vd0Fadm85bmxBTUFBQT09In0= -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"6.243965","2":"0.6700698","3":"4.867836","4":"10","5":"10.50"},{"1":"6.271380","2":"0.6616974","3":"4.859101","4":"20","5":"5.25"},{"1":"6.324789","2":"0.6539652","3":"4.863676","4":"31","5":"3.50"},{"1":"6.393588","2":"0.6455061","3":"4.895972","4":"40","5":"2.75"},{"1":"6.445195","2":"0.6394650","3":"4.923844","4":"48","5":"2.25"},{"1":"6.493072","2":"0.6338974","3":"4.950141","4":"62","5":"1.75"},{"1":"6.506518","2":"0.6323916","3":"4.961344","4":"73","5":"1.50"},{"1":"6.540070","2":"0.6286781","3":"4.992439","4":"88","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBNWtBQUFFekNBSUFBQUEwTEZEUUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzNkZjJ3YmFYclk4V2NrK2NmbExwZWdKK1J5b2RYVDVraGRvZWlQQUdHcm1xclJHRzJBVXM0Uktxcm9qMFd3RHBwQ3hMWk5LS1h3SW9CVm9FQzhDTEFPTEE2S3dxV1FGckZSYkZLZC9sQ0pXaXp1Z25NQlEvU3lWWDhBSjZpSk9LblZ5c3BkVTZYSjV2WnUxMnRKYi84WVVxSW82aGZuSGM2OG8rOEhBM2htT0h6NG1weEg3OFBoT3pPV1Vrb0FBQUFBQTNVRjNRQUFBQUNnVGRTeUFBQUFNQlcxTEFBQUFFeEZMUXNBQUFCVDlYVHNsWkxKWk1kZUMxaFpXUW02Q1dZZ01lRUhFdEFqRWhPK2lsaUdkcTZXbGJiZXUrM3Q3ZDdlWHIzTjhDT21XV0VqMzFTNmdYTTViMkpxLzZERHMrZDBPR1pVRzBrQ2FoRjRZaEl6cWpHamw2R01NUUFBQUlDcHFHVUJBQUJncW82T01YQ2xmK0lmK3hGMjU3di94NCt3WXVrdjk3dC81UFBhWTRxSTlVT2Y4U09zN096b2ozbnBrdjZZSXFWTjI0K3dGMFQ2aTI5cmo3bnpmN2UxeDlTdSsvT2E4OUg2ekZXOUFVVjhTTU1lL1gvOFM5LzVGOXBqSXZuTEQ3VEgvTUx2L1hmdE1icys5MW50TWRWci9iMlArdmdUN1RIM1h1bVBhZm1Rb2QvNDlIZTF4d3dKanNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWQjVyMmEyRlhDYVR5V1J5QzFzdEZnRUVnc1FFUW9qRUJIemhyWmJkZXI1NTQyR3hXSHg0NDlsODVjZ2lnRUNRbUVBSWtaaUFQM284UG45ajg2Vkk3T1ZtZjJwY1pPdndZbDB5bVhSbnRyZTNQYjRjY0FKMnNIMGtKanFQSGVsVUpDWUNGT0U5eXR0eDJkaTRuU3BuTXBseWFucjQ2R0xkeXNyS3lzcUtpUFQyOXZiMjlucDZSZUI0dlhWQk55Um9KQ2FDUUFLZWdzUkVvQ0tjb1o3SHkyNm1pc1c3OHU1c3BjVWlnRUNRbUVBSWtaaUFMN3pWc3BYNVozSk5aSGo2cnBRclJ4WUJCSUxFQkVLSXhBVDg0VzI4N1BERWpmZmZ6andXa1p0M2l5TFN0QWdnQ0NRbUVFSWtKdUFQaitkK3hjYnQ0dml4aXdBQ1FXSUNJVVJpQXI3Z1hna0FBQUF3RmJVc0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVTFMSUFBQUF3RmJVc0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVTFMSUFBQUF3RmJVc0FBQUFUT1h4SHJidGVKMzRDVC9DcXEvRy9BZ3JsdjZRT3oyK2ZJWG8rblRYbDdDdjkvUUhWZnBEd3FQZEwzOUplMHlyWDNmTUx2MEp1YXM3cHJXalAyV3MxN3F6bXh3MHhNYy9wbitmLy9PLzk5UGFZNzcralA1Mlh2bWVENm5rUXo5NStjTWQvVUV0SDRxUDZPSzRMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV6VjQrblpXd3U1dHgrL0VCR1JtM2VMMDlkcWkyKzg5ZEFlaitsb0hvRHpJekdCRUNJeEFYOTRxbVczWHZhOVV5ekdSS1N5c0hCTlJLNi9VeHlQU1dVMjkzeHJuTlFFZ2tGaUFpRkVZZ0krOFZUTHhvYUgzWm5LcGx3ZkZwRllURVMyTnZ2ZVBKU1d5V1RTbmRuZTN2Ynljc0RKMk1GY0pDWUN3WTUwTWhJVHdZcndIdVZ0akVGTlBURkZLck9aZDUrSzNPd2JyeWV0aUt5c3JJaElNcG5zN2UzVjhYSkFhK3hnaDVHWTZDaDJwTE1oTVJHTUNPOVJPczc5cW16SzlkcTN5dUhwWXJINDhLMk5ja1ZEWEFBZWtKaEFDSkdZZ0c0YWF0bUd4SFRGK203MFhmTWVGNEFISkNZUVFpUW1vSjMzTVFaSGZpNXh6OUQwSEJlQUJ5UW1FRUlrSnFDZjkxcDJlSHk4UGpkZEpDT0JjQ0F4Z1JBaU1RSDl1RmNDQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVUFoxL3lRKy9jdFdQc0ZjKzNQTWo3S1dQZHJYSFZGMlc5cGdpSXBZdllmY3VkMnVQcVhyOGVRZmd3ZmYvOGc5cGozbjVlNXJUcCtjSE8zb0Rpb2pTdlROYSt2OW1pTktkaHFxYkF4bG0rT2dyK3ZmNW5oL283L3F2L3BuU0huUG5xdjZlb3Vkai9lMTgvY1A2MzgrZHo5QkxuZ04vemdBQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFUmNld1JxOUdJN1J4YW55MGRmVTRwZTdDcE96OWlPeVhiZHVxUE5HajFmQUExeHlWZ0p4dlE4ZGNFakhIV3JyQmhWZU9tdnZlSkdtclpyWVZjSnBQSkxXeUpWR1l6bWZvOFlKQjRicm1hVDhua2tsSktxYVhKOGxRaVczTFhxMm8rSlhQM212czV4NzQzSjZsOFZTM240cVhzNkdxK3F0UWp1VDA2THlMcGdxcm1VNmw4VmJtcStjSE8vNWRJVEpqanVBVHNrRkkyTVZYdTBHdVJtRERRMmJyQytyclNva3hPemkwZXBMRHZmYUxYV25acklmZWV2Rk1zRnUzeDJOYkNacXBZTEJidjlqK2VyMmhwSFJDSTlKMThTbGJYOTFOMklwK1hxZnVIdWxibmlVemtVd2ZMUXdOeGtYaHVlV21pUmJ4NExwZjJyYkV0a1pnd1dITUMrditDaFdwak52dUh4SVRKenRBVmlvaVVGbVdzTUhhb21HMml2VS8wV010VzVoKy9lUEg0N1V4bXRpSVNHeDhmRmhFWlR0M2MyR3o0bnBsTUpwUEpwSWhzYjI5dmIyOTdlMFhnV050MUh1TTQ5dTJwY21yaTF2NlhUQm5JelJ6T3k5TDl0WUZiKzB2cHNjbTVVZmMzazNUdTRMdHBQWnJkOFFFR0pDWUM0RThDMW43Y3pOcWxrbHZjMW42dXpOcDIxbmJjaFd5cHR0cjltWFAvQjAzMzJHNHBhMlZ0ZThSOXRQbjMwTnB5WjQ3TGtwZ0lrdmNNUGFVcmREbnJnMk5wU1I5YnpQclJKM3FyWlN0bHVWc3NGb3NQMzlwNHYvRlhrcjRiMTJNSFN5c3JLeXNyS3lMUzI5dmIyOXZyNlJXQjQvWFd0UjFoYnRTeUxDc3hQM0hvOXhJUmtmU2QvT3Iranl1T3ZUaDRwL0ZiWmJxZ2xpYm5SZytQR0NwUEpkeE9jcTN0OXJTSnhFUVFmRW5BMHYzNWlhcFNhbXp0M3JxSU9QYkl2Y0dxVWtxTnJVMnQxbEpQUkJxT3JUcjJ2ZFY4VmFscVByVzY3amoyeU9pY3pNM0xJNldXYzlXcysreWxvYW5idGlPT1BUSXFTMHFwemh5V0pURVJLTzhaZWxwWEtDTGlQSkdCdEVpTFl0YkhQbEhQdVYreDZ6ZjY5eGNxcytXKzhkanhHd09oTmJtazFOS2tPMkNnU1R3M00xVDdjY1Y1SW1QTlIxOGxYVkNxbXBlcHhINDVXeHNiRk1oZ1dSZUpDYk8wU01ERW9Fd2xyQkU3VVZqT3hjVjVNaSsxQTdhSndXUEt6M2h1ZVRrbjlraGlxbHhlcThaenkwdVRNam1UaTR1SXM3N3FkcWVqYzFKZXF6cFA1aVYvSnkwaThWc1RIUmxqNENJeFlhN1R1a0xueWZ6VXFHVzVXWGE0bVBXeFQvUld5MTdyMnloWFJFUmVia3BmVEVTa01wc3BwNmFITmJRTUNFYTZzQ1NqcmM0N1NZOU56dDJ6SFNuZFh4czQvRTIwbEhXM2orZVdseWJMYTlWREQzWitzQ3lKQ1lNMUpXQTh0NnhVZFdJK2NmWXpuMHRaeTdvdGoxb2ZhNjJkWHFhVUtuUTZMMGxNUk1MeFhhR0lPRTlrcHA1aXF0cHdEUGVBSDMyaXQxbzJOdjVPMy91WlRNYk54cTJGWE9iZHAvTDAzWXc3R2dndzAzSFZiUHBPWHFadWo3VDRVV1gvNUU1bmZiVlZSTWZPZHZKNlB5UW1USFlvQVV1MjdVZzh0NnlXSmxmWG5makFVSG4reVRHNVZGMHJsNmNTMmV6aTNPVFM4cEhEUlNJaThZR2grb0dpVWpaYmlnOE1sUS9PWlBILzJna2tKaUxoaEs2d1BzREFGYjgxSWEzelZYZWYyT1B4K2JGeHV6amVZaDR3aW1PUEpLYktJcU9XTEtsQ09sMVlXclFzU3lTVlNwWExaWkdwK1h4MU9SZlB6VXhPTFk0dHgvZTNsNFExbjYvT0RPWm41TFpsbFVWa2NrbWxTMWxyZEU1RUV0WlVMWDRxWDgxMTh2OURZc0lveHlYZzVOTFM0UHh0YTZxV1duR1J3dEtpVlUrc1ZGNUVKRDAyT1RwcXpZbWtVcWxVL2xFaFZ4VnIxSnFUVkNvbDVkR3NUTTdOaWN5TkRGYVhjL0g5d0RLNXBBb2k2YVZKYTlTYWN4c3h1ZVQ3b1ZvU0UyYXFaK2hKWGVIa3BNek5sVVhtcGVwK2wzVHMyMVBsc2lTcytWcEg2bCtmYUNtbE5JWTdRVEtaZE1lei85Vy8vOENQK0ZjKzNQTWo3S1dQZHJYSFZGMlc5cGdpMHYySi9xYjZSUFg0OGc1ODY1dS83czdzNzJ3NDFmNTdOVEwrVzlxRFgvNmU1bjJ5NXdjN2VnT0tpTks5TTNaOWFrQW1xbTc5TjhyNTV2S01POU9SQkhUc2tkdnlxUFh4MXdqWWZ3Ky8vTnYzdFFmLzBXOTdQWXgxMU5VLzAxOUw3T2x2cHZSOHJMK2RYZnIvTE1uT1ovVDNrcFhIditiT1JLK0w1TDVmQUFBQU1KVVAzM29BQVBCVDdVNWRpZXhBQU9kd0FRZ1hhbGtBZ0dIU0JhVUtRVGNDUURnd3hnQUFBQUNtb3BZRkFBQ0FxUmhqQU5UOFhOY3Z0UEdzYis1OVhYdExnQXRvNzdzRGJUeXI2OGZYdGJjRXdGRmg3aUtwWllFYXE0ZDBBQUx6V3JWelphTXIydHNCb0pVd2Q1SGhiUm5RWVZZMzZRQUU1aFcxTEJCaVllNGl3OXN5b01Pc1M2UURFSmhYWXNBOUpvQUxLOHhkWkFBdHUvci9mUG1EOWYwZjkrWC9zdlBsYnUweHRkOW55SFg1ZTVmOENPdExhOE41em1HSWYwRHBnQ3QvcnYvZU5SLy9tT1o5Y2llbWZ5ZFh1dmZHU3gvNWNETkYzV21vL1gvdDNTdmx5NzBiVFdmNThLNTgrTk92OWNlMDlPLzIzVmQ5cUJiKytLcittRDdvK3RTZlFzR0xFSGVSNFcwWjBHRmhIZ3dFUk40blBuM0xCNkJEbUx2SThMWU02TFFlL2NmZ0FaelJLMnBaSU14QzNFV0c3M2NtSUNnOVBlMU1BSFQ0UlBXME1SMk40OWdqbG1XTjJNNng2OTA1eTdJc0sxdnF5UDhOaUlBUWQ1SDB4RUJkTjEvdGdNQzhVanFPK2pqMjdiVVpwZEtsN0lqdExPZmkrNnRIYnNzanBlSWk0cFFHYW5NbDIwNW9lRTNnUWdoeEYwa3RDOVJ4a0JVSVR1ckwvOU9kZWJyeDFaTzN2Tm4vaDhkdDZUeVpIeHBiRnBIMDJOQzlKMDZ1VnN5VzdrK1Z5NUt3cGlhWFZDR2RUcnNibDlibFZscGIrNEdJQzNFWEdkNldBWjBXNGkrZFFPU1ZYdnhVZmZhVWp1bkVMWWNHM1VPdGljR2gvVHVDbFJabFNhbTBPUGJJYmR0SjF3dGNTbG5nSEVMY1JWTExBalVxeEFQYmdjaDd0WGRaUjVqVnRhcElYS1M2dGlxM21oNkwzNW9ZZWxKZm9KUUZ6aVBNWFdSNHEyeWcwN3E3MnBrQTZQQ0p1dFRHMUJRa2ZtdGlkYkVrSXFYRjFZbGI5ZEd5aVVGM3BWVFhaS0Myc3JRdSs0OERPRjJJdTBpT3l3STFxb2ZDRkFoTXk0c1NuRnM4TnlPV1pVa3FYMTJPaTJPUDNCOVlMcVJ6andaSExHdFVKcGRVd2QyT283TEErWVM1aXd4dnk0QU9VOTNkYlV3dFE3VzRLbEFweXlXQWdCTzgycnZVeG5RMFRycWdsRkx1SlF6aXVlVkNXdHdacFpRcTdKZXY2VnlPbzdMQU9XanNJclhqdUN4UW8rdExaK1BWZi9hVlpFelZqd2dCT09yVmtRRURBTUlqek1kbHFXV0JtbStXWjl5Wm43dng3aWxiUHJ0Ny9KYUhyLzVUWDdrNE9qcWF5bGVYT1JZRXRQWkt5eGdEQUQ3cER1K2QrY0piWlFNZDlyZHUvcVk3N2ZWMG5UdzFidGtjeGIzNmoxTFYvT3E5L1RFR1R1S09VbXBtTFhIMFprUUFSRVRmR0FNQWZqaTFaMnc1dFk3bDJDT0hCOXdkSFlWMzNBMzhXdEpSeTI0dDVHWXI5YmxNSnBQSjVCYTJOTVFGT2twMVcyMU14MFdMMzVvWU9saUl4MFVrWGFoT3JEM3BXREZMWXNJb3IvWjYycGlDYnZYNWtaZ3drNzR1c3BSTlRKVVByMWdjVTBxcEpSbDFxOW42VUQxMXh0OHl2ZGV5bGRtM0g3OXdaN2VlYjk1NFdDd1dIOTU0TmwveEhCam9MRDJKMnVycVAzWE9rL2tqNi94Q1lzSXdGNk9XSlRGaHFtLzkvcSs3MDZuZDR2NlczL3I5WHo4YXA1UmRIS3ZtVXcxcm5IVnhiM0dTdnBPWGRhYzJWRzhxY2ZhenBiMytJYWpNbGxNUDM5cVlyeTF1Ykw0VWliM2M3RStOSDJ5VFRDYmRtZTN0Ylk4dkI1ekE0dzZtdW5RTUJvb2Z1dnFQZTBtZ08rc2ppYW15U0NwZlhlN01aWUJJVEhTZXh4M3BJb3lYSlRFUklJOTcxTSttMzZ2Tm5kWlhIbXdwOGg5TDd4eDZySlJkSENzVXhMNTNhTzNxL01FZHA0KzdVZDlKdlAzdHFNeVdVOVBUc3ZDK3V4Z2J0MU96bWN5N04rOFdweHUyV2xsWkVaRmtNdG5iMit2cDVZQVRlZHpCOWk3cEdkZ2V6eTJyM01GOFFVVFNCMnM2Z2NSRUVEenVTSi91UnIyV0pURVJxQkIwa1k1OWIyNnVQRGNuSWlLVzFFNlFqdWRtaHF5RU5TVWlxWHcxSjlYYTFvZHUxSGNpTDM4N3RoYmVmL3IweGRPbklpS1NrYnZGNldzTG02bGlNVFdibWEwVXA0YzloQVk2VDBYa1RFZ1NFMGI2VklYM0RwazZrSmd3bTQ0dXNuNm9wMzRYay9yNmRFR3BncFN5V2NuRlJXUnc5WDVKMG1tcHJzbkFtWTREZWFsbFkrTjJjVnhFdGhaeTgzMzI5TEJVWnAvSnhMakVwdStXWnlzeVRHckNLQ2VjeUdVVUVoTkdlaFh4NDdJa0pzem1SeGQ1ZUJoZS9iNTg4YU0zNmp1RjFyOGR3eE0zM244NzgxaEVidDR0Nmd3TWRNQmVSR3JaSTBoTW1PQzFlU2R5ZVVOaXdpZzZ1OGphOEx0amgrRTFEdFU3Q3gxL08yTGo5dlQrWEhIODVJMkJzSXJhbVNja0pvenk2VjYweHhqVWtaZ3dVNWk3eUpPSFA1U3laNzFPTFdBODFXVzFNUVhSVWhJVEVmUjZyNnVONldpYzR5NngzclQrWEZkaVB4c1NFMUVXNWk3eTVGbzJYVkNQNUhienpSaUFTTnJyYVdjS0FvbUpDUHAwcjZlTnFUbUtZOTllbTFGS3phemRiaXdybXk2OWZ0NHJzWjhOaVlrb0MzTVhlZXBwYWZIY3NsSktxYkZGeTlMOUpSWUlFOVhWemhRUUVoTlI4NDIvT2V0T3IzZTdUcDRhdDJ3SzRqeVpIeHBMaTBoNmJHais0Q1o3VFpkZVAvZVYyTStNeEVSa2hibUxQTlByT1BhSU5UcVh5bGRWN1VzbitZa0kydXUyMnBnQ2JEQ0ppU2o1RzcvL2pqdTkzdXMrZVdyYzhraVlJZmNHUXBJWVBMaUp0SHZwZGFXcStkVjd0dE84cUJ1SmlVZ0tjeGQ1Nm5oWnk3S3NodDlpM0MrZGorUSt1WW1vVWQzdFRFRWdNUkZCTzd2ZGJVeEh3cXl1dVJkYXI2NnRIbmtzZm10aTZQaEZ6MGhNUkZtWXU4alRqc3RPTHJVYVVWUmRtMXVydG40Q1lLb3dKMm96RWhPUnM3UFgxY2JVRkNSK2EySjFzU1FpcGNYVmlWdjFCRWtNdWl1bHVpWUQ4ZVpGalVoTVJGZVl1OGpUeHVYT0xaWUs2U04za0U4WFZHZnVLZzkwamtsWEJDSXhFVGxIQjcrMkk1NmJFY3V5SkpXdkxzZjM3eTdVZE9uMWMxK0ovYXhJVEVSWG1MdklVNjVqTURaNWFObXhiVTdPUkdSMXRUVUZnTVJFQk8zdGRiVXhIWTJUTHFqOWc2UHhYTzAybWJWenN1cjN6R3hhMUlURVJLU0Z1SXM4WmJ6czR0emNxSFVnTWJYV29YWUJIYmZYM2M0VUJCSVRFZlI2cDd1TktlaFdOeUl4RVdWaDdpSlBPeTZiejFmVmdXcCtzRVB0QWpvdXpCY2NPWXpFUkFUdEthdU5LZWhXTnlJeEVXVmg3aUpQSGk5YldwZGJCNy9CT1BidHRZRmx2MXNFQkNTd0U3bk9qY1JFQk8zdGhxb3diUU9KaVNnTGN4ZDVYQzNyMkNPSnFiS0l5TlJVdytwVTNwRzB4OU0rUDN6RGx4dEIvT0JMZmtRVmExZC96TDNMU245UWtZLzk2UW02ZHZUSDNMdmt5enZnVVhBM1BqZzdIeFB6TDc1ODJWdUFGbjd3UmMzN3BMV25ONTZJRHpjWnQzYjBaNkwyUDBRaDdKWlVxOEd2aHZBeE1mL1NmOVBmWTM0WTEvOFgySmUvbjEvUzN3RmY2djlJZTh5dUx2MS9tQzcxK0ZCOGVCUG1Mdks0cHJrajQ1Y08vMkNpK1g1L1FLaW9ubmFtbGxyZjZ0MnhSN3plWm9qRVJHVHQ3Vmh0VEVHMzJrVmlJdm8wZHBIYW5USmVObmM0RXprckV4R21hekRRTWJkNkwyVnJCMjY4SXpFUlFXclBhbU1LdXRXTlNFeEVXWmpIeTU3eU9yWGJtSEJXSmk2QVAvaG4wKzUwNnNXZkc3Yzhvdld0M2t2WnhiRnFQcVdwcVNRbUltalBhbWNLRXhJVEVXYnV2UkxjdTFaemtXZGNDQVB2enRibVR2c3FlZEtXOWFSeDdKSGJ0cE4yajlPVXNvdGpoWUxZOS9TMGxNUkVCQ256ei8waU1SRmhKbzZYZGFYdkRLNDNIbHZpRnhORW1ONHZuUTIzZW5mc2UzTnpvNWFWbUNyUGpWcGVoOHdLaVlsSXNuYXROcWFnVzkySXhFU1U2ZXdpajV3OVV2dE5vN2F5dHRSOHpzbnhUaW16cTJ0VFhQa1pGNFNld1VBdGJ2VmV1OGVRcXVaVGswdGFialZFWWlLQ3pCOWpRR0lpd3ZTTmx6MXk5a2dwdXppbWxGSkxNcG90aVdPdnUwdERVL2ZQK0czd3RQdCtyVGFkbHFuNWxuOUFlS2dlMWNiVUhDV2VlelI0ejdJc2EzR3NrTlp4NllJV1NFeEVrSzdqc3Eydkl0SzAvdkJSSUUxSVRFU1o4ODYwTzUzYUxlNXY2Ynd6ZlRUTzBiTkhuSFVaVElpSXBPL2taZDJKNTNKcEVaSDAyT1RxK3RtT3pKNHl4cUF3TTFCdGZEMStNVUYwNmZyUzJYaXI5LzNid1V2emdoY2tKcUpvcjYycGlXUGZYcHRSU3MyczNXNnNacHV1TGxLU01SOXFUUklUVWZhVCtRZnVkR3EzdUwvbFQrWWZORWNwWlJmSGp1YmQ2dnlUVmtYcjRNU3RzMTNXN3BUanN0blJVWDR4d1FXaHVsVWJVeEF0SlRFUlFTOSs1Wis0MDZuSFlodTNiQXJpUEprZkdrdUxTSHBzcUtGM2JMcTZTR2x4ZFBRY1kvSE9pc1JFbE9ub0lsdWZQUkxQelF4TkpTekxzaEx6Zy92VmF5bTdPSERXS3pTZmNseVd1MHZqQXJIYW1nSkFZaUtDdnZMZ2dUdFplM0x5MUxqbEVVUHVqNVdTR0J6YVgrZGVZRUNwYW43MW51MklrN2lqbEpwWlMyZ3VaMGxNUkpxR0x2SzRzMGZTQmFXVVdwcWNuS2xWcjZXczFlcjQ3WEZPT2ZlcjZkTFA5VUVNUUFUcEdTL2JFU1Ftb3NmYXNkcVlqb1JaWFhOLzVxK3VyUjU1ckhaMWtYZzhMaUxwUW5WaXJlVVBtMjBqTVJGaGZuU1I3aWtsN2xoMnExNjlPdmFJTlRvbmM2Tm5IOUllNHN1RkFSM1dwZHFaQU9odzZ1SFlsbE9UK0swSjkwSWlwY1hWZzZGMkxhNHVJaUxPay9tR0pRQW4wOWhGMXM4ZWNmK3RINjJ0SFlldEw1NWpTSHVuN3BVTGhGNUFnMThCaUloWXV6cWl4SE16WWxtV3BQTFY1Ymc0OXNqOWdlVkNPdmRvY01TeVJtVnlTUlhFc1VjU1UyV1JWTDY2ekhGVDRJekMzRVhxT0M2N3RaQ2JyZXpQWmpLWjNNS1dockJBWjFuZHFvMHA2RllmajhTRVViUWNsNVg2eUR2M2VnWDcxdzVwdXJxSU90aWs0MGhNbUNuTVhhVDNXcll5Ky9iakYrN3Mxc0o3bTI4V2k4VTNOOThqTjJHZVNJMHhJREZoR0d1M25jazBKQ2FNRmVJdTB1c1lnOHBzT2ZYd3JZMTVFWkd0NTgvNlU3YUlES2Y2MzMrK05UNGVjN2RKSnBQdXpQYjJ0c2VYQTA3Z2NRZXp3bHVZbmh1SmljN3ptb0N0RHJKR0RJbUpBRVc0aS9SV3kxWm15Nm5wYVZsNHY3YmMzM2ROUkVTdTlmVnZIbXkxc3JJaUlzbGtzcmUzMTlQTEFTZnl1SU4xQlhSUkF2MUlUQVRCNDQ1azRFSFdjeUl4RWFnSWQ1RmVhdG10aGZlZlBuM3g5S21JaUdUazdzTytqYzJYSWpHUmw1c2JjbDFQQTRGT3NicWljVnlJeElTUm9sN0xrcGd3VzVpN1NDKzFiR3pjTG82THlOWkNicjdQbmg2V3JjMk4rWW9NRDFmS0d6Y21ZcnFhQ0hSR1Y1aFA1RG9IRWhOR2lub3RTMkxDYkdIdUlyVmVreXMyL3Faa01obDU0NjJITm9rSjAzUlo0VTFVVDBoTW1PQWlqSmM5aE1TRVVjTGNSZXFvWldQajluUnRkbmk2V0p3K2NXTWdySHA2b25WY2lNU0VVYnFpbFgvSElqRmhwakIza2R3ckFhanBEdkZnSUNENnlEOGd4TUxjUlZMTEFqV1h1c09icUVEa1haVGpzb0Nad3R4RlVzc0NOVDBoL3RJSlJGN1V6LzBDekJibUxsTEhQV3lCU09qcDNtMWpDcnJWUUVUb3V1K1hZNDlZbGpWaU82ZXNkK3lSYk1ubi94TVFIV0h1SXFsbGdacExYYnR0VEMxRHRlZzFMYXRsL3dyQTFiV3IycGlhb3pqMjdiVVpwZFRNMnUzR2JIUHNrZHZ5U0NtMW5JdUxpRWdwbTVncWQrei9CcGhQWXhlcEhXTU1nSnBMbW41QXFmZWE4WVoxdHg2cFhGeEsyWkVuVGk0WFAvYXB3TVgxbi8vMXI3a3pmKzJYSHB5ODVYLzZuV08zZEo3TUQ0MHRpMGg2Yk9qZVFiYVY3aytWeTVLd3BpYVhWQ0V0VXNvdWpsWHpxL2UxL2dlQVNOUFZSZnFCV2hhbytjYlB6cm96UC8vc1YwN2U4dC9mK09mSGI5bmNhNHFJeE9OeEVYSFdCMmNvWklIVy92b3YxZ3JUVTM4dVBISExvY0dFaUlna0JvZlc2K3RLaTdLa1ZGb2NlK1MyN2FRSDdpK09GUXBpMy9QZWFPREN1Tnk5RTNRVGpzVVlBNkRtN3k3L0kzZTYxTFYzOHRTNFpYTVV0OWRVcXBwZnZkZndHMmNwYTFtSnFhbEZ4dWNCclZsN3FvM3BTSmpWdGFxSWlGVFhWbzg4RnI4MU1TUlYrOTdjM0tobEphYktjNk1XUTJhQnN6bTFaMnc1dFk3VlBGcTlhUnpldVlmbFVjc0NOWmU3ZHR1WWpvc1d2elV4MUxDWUxyajFMY1VzMEpxMTA4N1VKSDVyd2syeTB1THF4SzM2cnlDSndWcm1WZGRrSUoxYlZ1N1h6VlREYnljQVRxYXZpend5V3QxNXNqWlJWVXBWSitidmw0NHNuZ0ZqRElDYVMxMDZma0JKREs3ZUwwazZMZFUxR2NnZGZpdytNRkg3L1JOQWt4WW5jclVobnBzUnk3SWtsYTh1eDhXeFIrNFBMQmZTdVVlREk1WTFLcE5McXFEaFJZQUw2TjllLzVmdXpDOVcvc0hKVy82YjRkOCs0ZEdXbzlWWDE2b2k4ZXJhMEZoT3hEbThlQVlCMUxLSlg2ajZFZmJEVjFmOUNQc25IMzFPZTh5dUxsOXVhcXoyTEQvQzdpcjlZYTllQ3VPd215dGFCZ1BGRC9XYWJsYzZ0bWlOem9sSXFIdlN2eGo5dnZhWU81OTI2dzI0KzdIK1AxbVc3aDFjK1pIZnVyUGJ1aFM2MHpnc0xiV3MreHRJUGMzaXVlVkNmVVkxZjdXc1B4WnUvK0dmL3BiMm1ILzArb3IybVAvMTQzN3RNUk5YdnFzOTVoOTkra1h0TWIrL2QxbDd6Qy8yZktnOXBzaHZlSG55TDYvOGtqdHo1YlMvNi90YmlzaS9TdjdPb2NkSzJSYWoxZU81NWJHc1pZM1d1c2lteFRQZ3VDeFFjMW5UdGRvYmU4MWFkNWxXNGExaGdYQ3dRbGRkQXppZ280dDA3SHR6YytXNU9SRVJzV1Iva0k5anI0OHBOWmExc2lWVlNEY3Zubzd4c2tETjVlNmROcWFnV3cxRVJOZHIxY1lVZEt1QmkwSkhGeGx2UFZxOWRIOWVFaUxwd3BJc2xvNHNuZ0hIWllHYUswZFBKQUhRS2EwdVNnQWdMUHpvSXVzajJ1OU0zRXRZVXlJeXVhUkVwR254ZE5TeVFNMWxMZWQrQVdpTHJ2R3lBUHlnczR1c2oxWnYrTGR4UUh1TDhlMG5vNVlGYXE1eVhCWUlEclVzRUdaaDdpS3BaWUdhSzkydmcyNENjSEYxN1hEeUZ4QmVZZTRpcVdXQkdzYkxBa0hpdUN3UVltSHVJcWxsZ1pvclZuaS9kQUtSWjNGY0ZnaXhNSGVSMUxKQXpaV3U4Q1lxRUhuV3JwNExQQVB3UTVpN1NHcFpvQ2JNQTl1QnlPTzRMQkJtWWU0aXVWY0NVSFBGZXQzR0ZIU3JnYWpZM1d0bk9zS3hSeXpMR3JHZFk5ZTdjNjIyQVhDY01IZVJISmNGYXE2RytBY1VJUEtzVm9YcHVUbjI3YlVacGRLbDdJanRMT2ZpKzZ0SGJzc2pwZUlpSXM2dFJ5b1hsMUoyNUltVDI5OEV3RW5DM0VWU3l3STFIR1FGQWxUNkg3L3B6cVFUNzV5eVpmVzk0N1owbnN3UGpTMkxTSHBzNk41QnBWcTZQMVV1UzhLYW1seFNoWFE4SGhjUlozMXdoa0lXT0tzd2Q1SGV4aGhzTGVReW1Vd21rMXZZYWxpZXJlaG9HZEJoWWY0QjVYeElUQmdvL2NhdnVaUHM3Snc4SGRxeTJkQmdRa1JFRW9ORCsrdEtpN0xrM2dSKzlaN3RpRWdwYTFtSnFha3ozdXRkRnhJVEpndHpGK2x4dk96MWQ0ckZZdkZ1LzdQbld5SWlzWEg3NFZ0djZHZ1gwSEZYcmQwMnBxQmIzUktKQ1FQcEdTKzd1bFlWRVpIcTJ1cVJ4K0szSnR3Q04xMXdLOXNPRjdNa0pnd1c1aTdTMnhpRFdDd21JbHViZlcrT3g0N2ZLcGxNdWpQYjI5dWVYZzQ0a2NjZExNd1hnajRmRWhOQjhMb2p0Wmx1N3hBQUFBdVJTVVJCVkRqSWVtN3hXeE9yOTB1U1RwY1dWeWZ1MUVjUUpBYmRsVkpkazRIOTI3ekhCeVpxeDNBN2hNUkVvQ0xjUlhvZEwxdVp6Yno3Vk9SbTMvanc4SEhickt5c2lFZ3ltZXp0N1JVUldmZjRta0JydFIyc1hWZXQ2TngycUozRUJMenh1aVB0NkRpRUU4L05pR1Zaa3NwWGwrUGkyQ1AzQjVZTDZkeWp3UkhMR3BYSkpWV1FVdFlhblJNUmQ2bWoya2pNUC9uanpqVVAwUmJoTHRKckxUczhYU3hPYnkzazVpdHlmR29DSmdoem9wNFhpUW5qS0IzSFpjVWRQMUF2VWVPNTVVSjlSdVZhYk5CaEpDYk1GZVl1VXN0MURHSjlOL3F1NlFnRUJPaUtGYkhMTFpPWU1JcW1XamIwU0V3WUtjeGRwS2RhdHZaemljak51OFhwMnBxM0g3OFF5ZlU5dEU4YUR3U0UwQlhwRHJvSmVwQ1lNSkY2SGZGYWxzU0UwY0xjUlhxcVpZZW5pN1dNUEg0TllJckxWbmdUOVZ4SVRKaEk3VWE4bGlVeFliUXdkNUhjS3dHb3VmcWxGMEUzQWJpNHZ2SHA3d2JkQkFESENuTVhHZDdSRHdBQUFNREpxR1VCQUFCZ0ttcFpBQUFBbUlwYUZnQUFBS2FpbGdVQUFJQ3BxR1VCQUFCZ0ttcFpBQUFBbUlwYUZnQUFBS2FpbGdVQUFJQ3BBcmp2VjVjb1A4SU8vdWgzL1FqN1V6K3F2N1dXOW9naUl2SksrWEovdVIvcCtVUjd6Q3RkRWI5WnBZaysrNWxYMm1OKzRRdmYxeHR3VCtuUEhxVTc1cDdTZjR6Z3M1YzBmem85WFh0NkE4SW4zL2grbi9hWW4rLytXSHZNdi8zWlA5QWU4My90L0lqMm1LLzI5SmM5QTFmMGx4K1hMWHJKYytDNExBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRVY3NDQUFEQVZOU3lBQUFBTUJXMUxBQUFBRXhGTFFzQUFBQlRlYXhsSzdPWlRDYVR5UzFzdWN0YkM3bkdSUUJCSURHQkVDSXhBVjk0cW1XM0ZqWlR4V0t4ZUxmLzhYeEZSTFlXM3R0OHMxZ3N2cm41SHJrSkJJWEVCRUtJeEFSODB1UGx5Ykh4OFppSXlIRHE1dnViVzNMdCtiUCtsQzBpdzZuKzk1OXYxUjRVU1NhVDdzejI5cmFueGdJbllnZHprWmdJQkR2U3lVaE1CQ3ZDZTVTbld2WkEzNDNyTVJIcDc3c21JaUxYK3ZvM0R4NWNXVmtSa1dReTJkdmJLeUt5cnVjMWdTYTFIUXo3enBXWWdEZnNTR2QxcnNUOHN3QWFpRWlLY0licU9QZXJNbHZ1Yzc5UmJteStGQkdSbDVzYkd1SUM4SURFQkVLSXhBUjA4MXpMVm1ZejVkVDBzSWhJN1BxTmpYSkZSQ3JsRGZkYko0QmdrSmhBQ0pHWWdBODhqVEhZV3NpOS9maUZ5TlBNVTdsNXR6ZzlQUDZtWkRJWmVlT3RoemFKQ1FTRXhBUkNpTVFFZk9MeDNDKzdPSDVvemZCMHNUanRxVUVBUENJeGdSQWlNUUdmY0s4RUFBQUFtSXBhRmdBQUFLYWlsZ1VBQUlDcHFHVUJBQUJnS21wWkFBQUFtSXBhRmdBQUFLYWlsZ1VBQUlDcHFHVUJBQUJnS21wWkFBQUFtSXBhRmdBQUFLYnlkQS9iOXZ6RG4vaVdIMkcvZXVsN2ZvVDk4ZTdQYVkvNXg3dStOUFdQWHYrd0gySC9kUGV6Mm1OMldVcDdUSGowRzMvbDMybVArZFhMZjZvMzRGZDY5T2ZqZDNZLzBodndmKzljMVJ0UVJMWjM5Zi9IWVlTclhhKzF4MVJpYVkrWnVLUi9GLzN6dlUrMHgveDg5OGZhWTM3NzR6N3RNVC9YcmYvLy9uZTBSd3dOanNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWQjVyMmEyRlhDYVRtYTBjWHM0dGJIbHRsMm02dmxSMXA2QWJBZ2lKU1Q0aWxDNTZZZ3E1Q1g5NHJHVmo0L2JEdDk2b0wyMHR2TGY1WnJGWWZIUHp2WXVVbTlLWWxxUW9RdUJDSnliNWlMQzYwSWtwNUNaODA2TXgxdGJ6Wi8wcFcwU0dVLzN2UDk4YUg0KzU2NVBKcER1enZiMnQ4ZVdBSnV4Z0xaR1k2QXgycEhNaE1kRmhFZDZqZE5heUl2MTkxMFJFNUZwZi8rYkIycFdWRlJGSkpwTzl2YjBpSWg5cGZVMmdycmFEb2RuWkV2TXZnbWdhSW9RRVBLZXpKZWFIUVRRTlVSVGhETlY3N3RmRzVrc1JFWG01dWFFMWJzanRmU2ZSY2g0SWg0dVZtT1FqREhHeEVsUElUZmhHWnkwYnUzNWpvMXdSa1VwNTQ4YjFtTWJJNGJmM25ZUTdCZDBRb05rRlRFenlFZUYzQVJOVHlFMzR3K3NZZzhyczI0OWZpT1Q2SHRyanNkajRtNUxKWk9TTnR4N2FGeVV4Z1RBaU1ZRVFJakVCUDNpdFpZZW5pOFhwWXhjQkJJTEVCRUtJeEFUOHdMMFNBQUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmpLNnoxczIzQ3ovdy9QdnZIMjluWnZiNi9lQnZnUjgxeGhyd1VkTnZCM0lOaVlhT25uZi9MYlo5eFMrNGNTN0o0VDB4MVRlOEJ6TWVMVHdkbU5mK1cvbkhGTEkzYW5jOFVjTmlUbTJaa1MwemdjbHdVQUFJQ3BxR1VCQUFCZ0ttcFpBQUFBbUtxajQyV1R5V1FuWHc3QVdaQ1lRQWlSbU1CWnFYRDdtWi81R1NOaW1oV1dwc0lMN1IrS0tYdk94ZnlQazRPbU1HSjNJcVlSTVkzREdBTUFBQUNZeWxKS0JkMEdBQUFBb0IwY2x3VUFBSUNwcUdVQkFBQmdLbXBaQUFBQW1Dbzh0V3hsTnBQSlpESzVoYTNESzJZcklpSmJDN245K1RhaTFwN29ScW0vUkJzeG01OXlPR0RiOFk5c3FhSFpKNytmM3Q2S3JZVmNmVnM5NzhEaHR1bisxTkEySDdKUzU0ZnJSejVxVDBiZk1sRnZHcEtESmdsL2QybEVib294Nlhta1lXUm9zNkF2cEZEejh1dGYvMEFwcFQ1NDhMVUhIeWlsbFByZ2d3K2FOL25WQng4Y2VlTEpEZ1dwQi9qZ3dhOSsvV1hiTVJ1ZTBoVFFVL3hEVzNwdjlpbnZwNmVtZnZEZ2ExK3JSZFgwRGpSOTFqNThhbWlISDFtcCs4UDFJeDkxSnFOdm1hZzVEY2xCZ3hqU1hZWTlONVU1NmRuY01ETDBpTEFjbDQyTmp3K0xpQXluYm01c2JvbElwZnp1dXczZmxkcHpLTWpXODJmOXFXRVJHVTcxUDN2dUxYQ3JnUHJpYTJqMnllK25sNlpXWnN1cGgyKzkwU3BPdTJHYlBtdC9QeldjblE5WjZlT0g2MDgrZW0yd1Q1bW9PdzNKUVpNWTExMkdNemZGbVBSc2JoZ1plbFJZYXRrRGZUZXV4MFMycmswVWk4VTNOOS8ya3AvTlFmcjdyb21JeUxXK2ZpMU5iUTZvS2I3ZVpyZCtQOXVOV1prdHA2YUhENVoxdkFOTmJmUDlVOFA1NmNwS2Z6OWNIL0pSWTRNMVpxTDJOQ1FIRFdWTWR4bnUzSlJ3cDZlUW9hY0xXUzFibVMzM2pjZEVKQmFMaWNqdzlNTWJtKzEveldnT3NySDVVa1JFWG01dTZHanNrWUNhNG10czlySHZaM3N4dHhiZWYvcjAzVXptN2Njdm5yNmJtYTNvZVFlYTJ1YjdwNFp6MHBpVi9uNjRQdVNqcmdicnpFUWYwcEFjTkpGSjNXV0ljMU5DbjU1SEcwYUdIaEdtV3JZeW16bjhkVVprNi9rejZZdDVqRnNMRXJ0K1k2TmNFWkZLZWVQR2RhOUJSWm9ENm83dnVkbkh2NS90eG95TjI4VmlzVmg4K05ZYk4rOFdwNGUxdmdOTm43VmZueHJPeDVlczlPWEQ5VE1mdlRWWWN5YjZsNGJrb0RtTTZpN0RtNXRpVUhvS0dYcVNvQWZzMXJ6OCtxOStyZTdCQi91TCt3T1ozYUhValN2T0hyTTV5UDV5R3pHYm50SXlZQnZ4RzdmVTB1d3p2cDl0dmhVTnc4cTl2d05OYmZQalUwTjd0R2VsOWcvWGozelVtNHcrWnFLK05DUUh6V0pFZHhuKzNGU0dwS2NpUTgrQWU5Z0NBQURBVkdFYVl3QUFBQUNjQjdVc0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVTFMS2g0OWhaMndtNkVRQklSaUNzeUUwMG9wWU5uZXJhYXRCTkFDQkNNZ0poUlc2aUViVnNzRXBaSzFzcVpTM0xza1pzUjBSSzJkRzU4bFRDeXBacWo5cjJpUHVZdTFWdE0ybGVCT0FOeVFpRUU3bUowd1I5Z2R1THJKcFBpWWpJNUpKU1M1T1N5bGRWdGJxVVQ2WHkxWU5IM1FXMU5Pbk8xTFpyV2dUZ0Nja0loQk81aWRQMUJGQStveWFlVzE1YXN4YkhDbWtSWnpBbEloS1BKNW9memNWRnhGbGZMVThsckNrUkVabXNPbkpvVVNRZVFQT0I2Q0FaZ1hBaU4zRTZ4aGdZWTNLcC9nV2trRDY2Q0tCalNFWWduTWpOaTRsYTFnenhnYUc1eFpLSWlKU3kyVkxUWXBBdEF5NFlraEVJSjNMejR2SjNDQU5PdERRcElpS1RTNDFEZnR5VmswdjFSK3ZEZkdxTDllK1pUWXNBdkNBWmdYQWlOM0VxU3ltbHN6UUdBQUFBT29VeEJnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUxSExBZ0FBd0ZUVXNnQUFBREFWdFN3QUFBQk1SUzBMQUFBQVUvMS9qRVhPVFI3VnMzWUFBQUFBU1VWT1JLNUNZSUk9XCIgLz5cblxuPCEtLSBybmItcGxvdC1lbmQgLS0+XG4ifQ== -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA5kAAAEzCAIAAAA0LFDQAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO3df2wbaXrY8Wck+cflLpegJ+RyodXT5khdoeiPAGGrmqrRGG2AUs4RKqroj0WwDppCxLZNKKXwIoBVoEC8CLAOLA6KwqWQFrFRbFKd/lCJWizugnMBQ/SyVX8AJ6iJOKnVyspdU6XJ5vZu12tJb/8YUqIo6hfnHc68o+8HA3hmOHz4mpxH78PhOzOWUkoAAAAAA3UF3QAAAACgTdSyAAAAMBW1LAAAAExFLQsAAABT9XTslZLJZMdeC1hZWQm6CWYgMeEHEtAjEhO+iliGdq6Wlbbeu+3t7d7eXr3N8COmWWEj31S6gXM5b2Jq/6DDs+d0OGZUG0kCahF4YhIzqjGjl6GMMQAAAICpqGUBAABgqo6OMXClf+If+xF257v/x4+wYukv97t/5PPaY4qI9UOf8SOs7Ozoj3npkv6YIqVN24+wF0T6i29rj7nzf7e1x9Su+/Oa89H6zFW9AUV8SMMe/X/8S9/5F9pjIvnLD7TH/MLv/XftMbs+91ntMdVr/b2P+vgT7TH3XumPafmQod/49He1xwwJjssCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVB5r2a2FXCaTyWRyC1stFgEEgsQEQojEBHzhrZbder5542GxWHx449l85cgigECQmEAIkZiAP3o8Pn9j86VI7OVmf2pcZOvwYl0ymXRntre3Pb4ccAJ2sH0kJjqPHelUJCYCFOE9yttx2di4nSpnMplyanr46GLdysrKysqKiPT29vb29np6ReB4vXVBNyRoJCaCQAKegsREoCKcoZ7Hy26misW78u5spcUigECQmEAIkZiAL7zVspX5Z3JNZHj6rpQrRxYBBILEBEKIxAT84W287PDEjfffzjwWkZt3iyLStAggCCQmEEIkJuAPj+d+xcbt4vixiwACQWICIURiAr7gXgkAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATOXxHrbteJ34CT/Cqq/G/Agrlv6QOz2+fIXo+nTXl7Cv9/QHVfpDwqPdL39Je0yrX3fMLv0Juas7prWjP2Ws17qzmxw0xMc/pn+f//O/99PaY77+jP52XvmeD6nkQz95+cMd/UEtH4qP6OK4LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAEzV4+nZWwu5tx+/EBGRm3eL09dqi2+89dAej+loHoDzIzGBECIxAX94qmW3Xva9UyzGRKSysHBNRK6/UxyPSWU293xrnNQEgkFiAiFEYgI+8VTLxoaH3ZnKplwfFpFYTES2NvvePJSWyWTSndne3vbycsDJ2MFcJCYCwY50MhITwYrwHuVtjEFNPTFFKrOZd5+K3OwbryetiKysrIhIMpns7e3V8XJAa+xgh5GY6Ch2pLMhMRGMCO9ROs79qmzK9dq3yuHpYrH48K2NckVDXAAekJhACJGYgG4aatmGxHTF+m70XfMeF4AHJCYQQiQmoJ33MQZHfi5xz9D0HBeAByQmEEIkJqCf91p2eHy8PjddJCOBcCAxgRAiMQH9uFcCAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBUPZ1/yQ+/ctWPsFc+3PMj7KWPdrXHVF2W9pgiIpYvYfcud2uPqXr8eQfgwff/8g9pj3n5e5rTp+cHO3oDiojSvTNa+v9miNKdhqqbAxlm+Ogr+vf5nh/o7/qv/pnSHnPnqv6eoudj/e18/cP638+dz9BLngN/zgAAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQERcewRq9GI7Rxany0dfU4pe7CpOz9iOyXbduqPNGj1fAA1xyVgJxvQ8dcEjHHWrrBhVeOmvveJGmrZrYVcJpPJLWyJVGYzmfo8YJB4brmaT8nkklJKqaXJ8lQiW3LXq2o+JXP3mvs5x743J6l8VS3n4qXs6Gq+qtQjuT06LyLpgqrmU6l8Vbmq+cHO/5dITJjjuATskFI2MVXu0GuRmDDQ2brC+rrSokxOzi0epLDvfaLXWnZrIfeevFMsFu3x2NbCZqpYLBbv9j+er2hpHRCI9J18SlbX91N2Ip+XqfuHulbniUzkUwfLQwNxkXhueWmiRbx4Lpf2rbEtkZgwWHMC+v+ChWpjNvuHxITJztAVioiUFmWsMHaomG2ivU/0WMtW5h+/ePH47UxmtiISGx8fFhEZTt3c2Gz4nplMJpPJpIhsb29vb297e0XgWNt1HuM49u2pcmri1v6XTBnIzRzOy9L9tYFb+0vpscm5Ufc3k3Tu4LtpPZrd8QEGJCYC4E8C1n7czNqlklvc1n6uzNp21nbchWypttr9mXP/B0332G4pa2Vte8R9tPn30NpyZ47LkpgIkvcMPaUrdDnrg2NpSR9bzPrRJ3qrZStluVssFosP39p4v/FXkr4b12MHSysrKysrKyLS29vb29vr6RWB4/XWtR1hbtSyLCsxP3Ho9xIRkfSd/Or+jyuOvTh4p/FbZbqglibnRg+PGCpPJdxOcq3t9rSJxEQQfEnA0v35iapSamzt3rqIOPbIvcGqUkqNrU2t1lJPRBqOrTr2vdV8ValqPrW67jj2yOiczM3LI6WWc9Ws++yloanbtiOOPTIqS0qpzhyWJTERKO8ZelpXKCLiPJGBtEiLYtbHPlHPuV+x6zf69xcqs+W+8djxGwOhNbmk1NKkO2CgSTw3M1T7ccV5ImPNR18lXVCqmpepxH45WxsbFMhgWReJCbO0SMDEoEwlrBE7UVjOxcV5Mi+1A7aJwWPKz3hueTkn9khiqlxeq8Zzy0uTMjmTi4uIs77qdqejc1JeqzpP5iV/Jy0i8VsTHRlj4CIxYa7TukLnyfzUqGW5WXa4mPWxT/RWy17r2yhXRERebkpfTESkMpspp6aHNbQMCEa6sCSjrc47SY9Nzt2zHSndXxs4/E20lHW3j+eWlybLa9VDD3Z+sCyJCYM1JWA8t6xUdWI+cfYzn0tZy7otj1ofa62dXqaUKnQ6L0lMRMLxXaGIOE9kpp5iqtpwDPeAH32it1o2Nv5O3/uZTMbNxq2FXObdp/L03Yw7Gggw03HVbPpOXqZuj7T4UWX/5E5nfbVVRMfOdvJ6PyQmTHYoAUu27Ug8t6yWJlfXnfjAUHn+yTG5VF0rl6cS2ezi3OTS8pHDRSIi8YGh+oGiUjZbig8MlQ/OZPH/2gkkJiLhhK6wPsDAFb81Ia3zVXef2OPx+bFxuzjeYh4wimOPJKbKIqOWLKlCOl1YWrQsSySVSpXLZZGp+Xx1ORfPzUxOLY4tx/e3l4Q1n6/ODOZn5LZllUVkckmlS1lrdE5EEtZULX4qX8118v9DYsIoxyXg5NLS4Pxta6qWWnGRwtKiVU+sVF5EJD02OTpqzYmkUqlU/lEhVxVr1JqTVCol5dGsTM7NicyNDFaXc/H9wDK5pAoi6aVJa9SacxsxueT7oVoSE2aqZ+hJXeHkpMzNlUXmpep+l3Ts21PlsiSs+VpH6l+faCmlNIY7QTKZdMez/9W//8CP+Fc+3PMj7KWPdrXHVF2W9pgi0v2J/qb6RPX48g5865u/7s7s72w41f57NTL+W9qDX/6e5n2y5wc7egOKiNK9M3Z9akAmqm79N8r55vKMO9ORBHTskdvyqPXx1wjYfw+//Nv3tQf/0W97PYx11NU/019L7OlvpvR8rL+dXfr/LMnOZ/T3kpXHv+bORK+L5L5fAAAAMJUP33oAAPBT7U5diexAAOdwAQgXalkAgGHSBaUKQTcCQDgwxgAAAACmopYFAACAqRhjANT8XNcvtPGsb+59XXtLgAto77sDbTyr68fXtbcEwFFh7iKpZYEaq4d0AALzWrVzZaMr2tsBoJUwd5HhbRnQYVY36QAE5hW1LBBiYe4iw9syoMOsS6QDEJhXYsA9JoALK8xdZAAtu/r/fPmD9f0f9+X/svPlbu0xtd9nyHX5e5f8COtLa8N5zmGIf0DpgCt/rv/eNR//mOZ9ciemfydXuvfGSx/5cDNF3Wmo/X/t3Svly70bTWf58K58+NOv9ce09O/23Vd9qBb++Kr+mD7o+tSfQsGLEHeR4W0Z0GFhHgwERN4nPn3LB6BDmLvI8LYM6LQe/cfgAZzRK2pZIMxC3EWG73cmICg9Pe1MAHT4RPW0MR2N49gjlmWN2M6x6905y7IsK1vqyP8NiIAQd5H0xEBdN1/tgMC8UjqO+jj27bUZpdKl7IjtLOfi+6tHbssjpeIi4pQGanMl205oeE3gQghxF0ktC9RxkBUITurL/9Odebrx1ZO3vNn/h8dt6TyZHxpbFpH02NC9J06uVsyW7k+Vy5KwpiaXVCGdTrsbl9blVlpb+4GIC3EXGd6WAZ0W4i+dQOSVXvxUffaUjunELYcG3UOticGh/TuClRZlSam0OPbIbdtJ1wtcSlngHELcRVLLAjUqxAPbgch7tXdZR5jVtapIXKS6tiq3mh6L35oYelJfoJQFziPMXWR4q2yg07q72pkA6PCJutTG1BQkfmtidbEkIqXF1Ylb9dGyiUF3pVTXZKC2srQu+48DOF2Iu0iOywI1qofCFAhMy4sSnFs8NyOWZUkqX12Oi2OP3B9YLqRzjwZHLGtUJpdUwd2Oo7LA+YS5iwxvy4AOU93dbUwtQ7W4KlApyyWAgBO82rvUxnQ0TrqglFLuJQziueVCWtwZpZQq7Jev6VyOo7LAOWjsIrXjuCxQo+tLZ+PVf/aVZEzVjwgBOOrVkQEDAMIjzMdlqWWBmm+WZ9yZn7vx7ilbPrt7/JaHr/5TX7k4OjqayleXORYEtPZKyxgDAD7pDu+d+cJbZQMd9rdu/qY77fV0nTw1btkcxb36j1LV/Oq9/TEGTuKOUmpmLXH0ZkQARETfGAMAfji1Z2w5tY7l2COHB9wdHYV33A38WtJRy24t5GYr9blMJpPJ5Ba2NMQFOkp1W21Mx0WL35oYOliIx0UkXahOrD3pWDFLYsIor/Z62piCbvX5kZgwk74uspRNTJUPr1gcU0qpJRl1q9n6UD11xt8yvdeyldm3H79wZ7eeb954WCwWH954Nl/xHBjoLD2J2urqP3XOk/kj6/xCYsIwF6OWJTFhqm/9/q+706nd4v6W3/r9Xz8ap5RdHKvmUw1rnHVxb3GSvpOXdac2VG8qcfazpb3+IajMllMP39qYry1ubL4Uib3c7E+NH2yTTCbdme3tbY8vB5zA4w6munQMBoofuvqPe0mgO+sjiamySCpfXe7MZYBITHSexx3pIoyXJTERII971M+m36vNndZXHmwp8h9L7xx6rJRdHCsUxL53aO3q/MEdp4+7Ud9JvP3tqMyWU9PTsvC+uxgbt1Ozmcy7N+8Wpxu2WllZEZFkMtnb2+vp5YATedzB9i7pGdgezy2r3MF8QUTSB2s6gcREEDzuSJ/uRr2WJTERqBB0kY59b26uPDcnIiKW1E6QjudmhqyENSUiqXw1J9Xa1odu1HciL387thbef/r0xdOnIiKSkbvF6WsLm6liMTWbma0Up4c9hAY6T0XkTEgSE0b6VIX3Dpk6kJgwm44usn6op34Xk/r6dEGpgpSyWcnFRWRw9X5J0mmprsnAmY4DeallY+N2cVxEthZy83329LBUZp/JxLjEpu+WZysyTGrCKCecyGUUEhNGehXx47IkJszmRxd5eBhe/b588aM36juF1r8dwxM33n8781hEbt4t6gwMdMBeRGrZI0hMmOC1eSdyeUNiwig6u8ja8Ltjh+E1DtU7Cx1/O2Lj9vT+XHH85I2BsIramSckJozy6V60xxjUkZgwU5i7yJOHP5SyZ71OLWA81WW1MQXRUhITEfR6r6uN6Wic4y6x3rT+XFdiPxsSE1EW5i7y5Fo2XVCP5HbzzRiASNrraWcKAomJCPp0r6eNqTmKY99em1FKzazdbiwrmy69ft4rsZ8NiYkoC3MXeeppafHcslJKqbFFy9L9JRYIE9XVzhQQEhNR842/OetOr3e7Tp4at2wK4jyZHxpLi0h6bGj+4CZ7TZdeP/eV2M+MxERkhbmLPNPrOPaINTqXyldV7Usn+YkI2uu22pgCbDCJiSj5G7//jju93us+eWrc8kiYIfcGQpIYPLiJtHvpdaWq+dV7ttO8qBuJiUgKcxd56nhZy7Ksht9i3C+dj+Q+uYmoUd3tTEEgMRFBO7vdbUxHwqyuuRdar66tHnksfmti6PhFz0hMRFmYu8jTjstOLrUaUVRdm1urtn4CYKowJ2ozEhORs7PX1cbUFCR+a2J1sSQipcXViVv1BEkMuiuluiYD8eZFjUhMRFeYu8jTxuXOLZYK6SN3kE8XVGfuKg90jklXBCIxETlHB7+2I56bEcuyJJWvLsf37y7UdOn1c1+J/axITERXmLvIU65jMDZ5aNmxbU7ORGR1tTUFgMREBO3tdbUxHY2TLqj9g6PxXO02mbVzsur3zGxa1ITERKSFuIs8Zbzs4tzcqHUgMbXWoXYBHbfX3c4UBBITEfR6p7uNKehWNyIxEWVh7iJPOy6bz1fVgWp+sEPtAjouzBccOYzERATtKauNKehWNyIxEWVh7iJPHi9bWpdbB7/BOPbttYFlv1sEBCSwE7nOjcREBO3thqowbQOJiSgLcxd5XC3r2COJqbKIyNRUw+pU3pG0x9M+P3zDlxtB/OBLfkQVa1d/zL3LSn9QkY/96Qm6dvTH3LvkyzvgUXA3Pjg7HxPzL7582VuAFn7wRc37pLWnN56IDzcZt3b0Z6L2P0Qh7JZUq8GvhvAxMf/Sf9PfY34Y1/8X2Je/n1/S3wFf6v9Ie8yuLv1/mC71+FB8eBPmLvK4prkj45cO/2Ci+X5/QKionnamllrf6t2xR7zeZojERGTt7VhtTEG32kViIvo0dpHanTJeNnc4EzkrExGmazDQMbd6L2VrB268IzERQWrPamMKutWNSExEWZjHy57yOrXbmHBWJi6AP/hn0+506sWfG7c8ovWt3kvZxbFqPqWpqSQmImjPamcKExITEWbuvRLcu1ZzkWdcCAPvztbmTvsqedKW9aRx7JHbtpN2j9OUsotjhYLY9/S0lMREBCnzz/0iMRFhJo6XdaXvDK43HlviFxNEmN4vnQ23enfse3Nzo5aVmCrPjVpeh8wKiYlIsnatNqagW92IxESU6ewij5w9UvtNo7ayttR8zsnxTimzq2tTXPkZF4SewUAtbvVeu8eQquZTk0tabjVEYiKCzB9jQGIiwvSNlz1y9kgpuzimlFJLMpotiWOvu0tDU/fP+G3wtPt+rTadlqn5ln9AeKge1cbUHCWeezR4z7Isa3GskNZx6YIWSExEkK7jsq2vItK0/vBRIE1ITESZ8860O53aLe5v6bwzfTTO0bNHnHUZTIiIpO/kZd2J53JpEZH02OTq+tmOzJ4yxqAwM1BtfD1+MUF06frS2Xir9/3bwUvzghckJqJor62piWPfXptRSs2s3W6sZpuuLlKSMR9qTRITUfaT+QfudGq3uL/lT+YfNEcpZRfHjubd6vyTVkXr4MSts13W7pTjstnRUX4xwQWhulUbUxAtJTERQS9+5Z+406nHYhu3bAriPJkfGkuLSHpsqKF3bLq6SGlxdPQcY/HOisRElOnoIlufPRLPzQxNJSzLshLzg/vVaym7OHDWKzSfclyWu0vjArHamgJAYiKCvvLggTtZe3Ly1LjlEUPuj5WSGBzaX+deYECpan71nu2Ik7ijlJpZS2guZ0lMRJqGLvK4s0fSBaWUWpqcnKlVr6Ws1er47XFOOfer6dLP9UEMQATpGS/bESQmosfasdqYjoRZXXN/5q+urR55rHZ1kXg8LiLpQnVireUPm20jMRFhfnSR7ikl7lh2q169OvaINTonc6NnH9Ie4suFAR3WpdqZAOhw6uHYllOT+K0J90IipcXVg6F2La4uIiLOk/mGJQAn09hF1s8ecf+tH62tHYetL55jSHun7pULhF5Ag18BiIhYuzqixHMzYlmWpPLV5bg49sj9geVCOvdocMSyRmVySRXEsUcSU2WRVL66zHFT4IzC3EXqOC67tZCbrezPZjKZ3MKWhrBAZ1ndqo0p6FYfj8SEUbQcl5X6yDv3egX71w5purqIOtik40hMmCnMXaT3WrYy+/bjF+7s1sJ7m28Wi8U3N98jN2GeSI0xIDFhGGu3nck0JCaMFeIu0usYg8psOfXwrY15EZGt58/6U7aIDKf633++NT4ec7dJJpPuzPb2tseXA07gcQezwluYnhuJic7zmoCtDrJGDImJAEW4i/RWy1Zmy6npaVl4v7bc33dNRESu9fVvHmy1srIiIslksre319PLASfyuIN1BXRRAv1ITATB445k4EHWcyIxEagId5FeatmthfefPn3x9KmIiGTk7sO+jc2XIjGRl5sbcl1PA4FOsbqicVyIxISRol7LkpgwW5i7SC+1bGzcLo6LyNZCbr7Pnh6Wrc2N+YoMD1fKGzcmYrqaCHRGV5hP5DoHEhNGinotS2LCbGHuIrVekys2/qZkMhl5462HNokJ03RZ4U1UT0hMmOAijJc9hMSEUcLcReqoZWPj9nRtdni6WJw+cWMgrHp6onVciMSEUbqilX/HIjFhpjB3kdwrAajpDvFgICD6yD8gxMLcRVLLAjWXusObqEDkXZTjsoCZwtxFUssCNT0h/tIJRF7Uz/0CzBbmLlLHPWyBSOjp3m1jCrrVQETouu+XY49YljViO6esd+yRbMnn/xMQHWHuIqllgZpLXbttTC1Dteg1Latl/wrA1bWr2piaozj27bUZpdTM2u3GbHPskdvySCm1nIuLiEgpm5gqd+z/BphPYxepHWMMgJpLmn5Aqfea8YZ1tx6pXFxK2ZEnTi4XP/apwMX1n//1r7kzf+2XHpy85X/6nWO3dJ7MD40ti0h6bOjeQbaV7k+Vy5KwpiaXVCEtUsoujlXzq/e1/geASNPVRfqBWhao+cbPzrozP//sV07e8t/f+OfHb9nca4qIxONxEXHWB2coZIHW/vov1grTU38uPHHLocGEiIgkBofW6+tKi7KkVFoce+S27aQH7i+OFQpi3/PeaODCuNy9E3QTjsUYA6Dm7y7/I3e61LV38tS4ZXMUt9dUqppfvdfwG2cpa1mJqalFxucBrVl7qo3pSJjVtaqIiFTXVo88Fr81MSRV+97c3KhlJabKc6MWQ2aBszm1Z2w5tY7VPFq9aRzeuYflUcsCNZe7dtuYjosWvzUx1LCYLrj1LcUs0Jq1087UJH5rwk2y0uLqxK36ryCJwVrmVddkIJ1bVu7XzVTDbycATqavizwyWt15sjZRVUpVJ+bvl44sngFjDICaS106fkBJDK7eL0k6LdU1Gcgdfiw+MFH7/RNAkxYncrUhnpsRy7Ikla8ux8WxR+4PLBfSuUeDI5Y1KpNLqqDhRYAL6N9e/5fuzC9W/sHJW/6b4d8+4dGWo9VX16oi8era0FhOxDm8eAYB1LKJX6j6EfbDV1f9CPsnH31Oe8yuLl9uaqz2LD/C7ir9Ya9eCuOwmytaBgPFD/Wablc6tmiNzolIqHvSvxj9vvaYO5926w24+7H+P1mW7h1c+ZHfurPbuhS60zgsLbWs+xtIPc3iueVCfUY1f7WsPxZu/+Gf/pb2mH/0+or2mP/1437tMRNXvqs95h99+kXtMb+/d1l7zC/2fKg9pshveHnyL6/8kjtz5bS/6/tbisi/Sv7OocdK2Raj1eO55bGsZY3WusimxTPguCxQc1nTtdobe81ad5lW4a1hgXCwQlddAzigo4t07Htzc+W5ORERsWR/kI9jr48pNZa1siVVSDcvno7xskDN5e6dNqagWw1ERNdr1cYUdKuBi0JHFxlvPVq9dH9eEiLpwpIslo4sngHHZYGaK0dPJAHQKa0uSgAgLPzoIusj2u9M3EtYUyIyuaREpGnxdNSyQM1lLed+AWiLrvGyAPygs4usj1Zv+LdxQHuL8e0no5YFaq5yXBYIDrUsEGZh7iKpZYGaK92vg24CcHF17XDyFxBeYe4iqWWBGsbLAkHiuCwQYmHuIqllgZorVni/dAKRZ3FcFgixMHeR1LJAzZWu8CYqEHnWrp4LPAPwQ5i7SGpZoCbMA9uByOO4LBBmYe4iuVcCUHPFet3GFHSrgajY3WtnOsKxRyzLGrGdY9e7c622AXCcMHeRHJcFaq6G+AcUIPKsVoXpuTn27bUZpdKl7IjtLOfi+6tHbssjpeIiIs6tRyoXl1J25ImT298EwEnC3EVSywI1HGQFAlT6H7/pzqQT75yyZfW947Z0nswPjS2LSHps6N5BpVq6P1UuS8KamlxShXQ8HhcRZ31whkIWOKswd5HexhhsLeQymUwmk1vYalierehoGdBhYf4B5XxITBgo/cavuZPs7Jw8Hdqy2dBgQkREEoND++tKi7Lk3gR+9Z7tiEgpa1mJqakz3utdFxITJgtzF+lxvOz1d4rFYvFu/7PnWyIisXH74Vtv6GgX0HFXrd02pqBb3RKJCQPpGS+7ulYVEZHq2uqRx+K3JtwCN11wK9sOF7MkJgwW5i7S2xiDWCwmIlubfW+Ox47fKplMujPb29ueXg44kccdLMwXgj4fEhNB8LojtZlu7xAAAAuRSURBVDjIem7xWxOr90uSTpcWVyfu1EcQJAbdlVJdk4H927zHByZqx3A7hMREoCLcRXodL1uZzbz7VORm3/jw8HHbrKysiEgymezt7RURWff4mkBrtR2sXVet6Nx2qJ3EBLzxuiPt6DiEE8/NiGVZkspXl+Pi2CP3B5YL6dyjwRHLGpXJJVWQUtYanRMRd6mj2kjMP/njzjUP0RbhLtJrLTs8XSxOby3k5ityfGoCJghzop4XiQnjKB3HZcUdP1AvUeO55UJ9RuVabNBhJCbMFeYuUst1DGJ9N/qu6QgEBOiKFbHLLZOYMIqmWjb0SEwYKcxdpKdatvZzicjNu8Xp2pq3H78QyfU9tE8aDwSE0BXpDroJepCYMJF6HfFalsSE0cLcRXqqZYeni7WMPH4NYIrLVngT9VxITJhI7Ua8liUxYbQwd5HcKwGoufqlF0E3Abi4vvHp7wbdBADHCnMXGd7RDwAAAMDJqGUBAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgKmpZAAAAmIpaFgAAAKailgUAAICpArjvV5coP8IO/uh3/Qj7Uz+qv7WW9ogiIvJK+XJ/uR/p+UR7zCtdEb9ZpYk++5lX2mN+4Qvf1xtwT+nPHqU75p7Sf4zgs5c0fzo9XXt6A8In3/h+n/aYn+/+WHvMv/3ZP9Ae83/t/Ij2mK/29Jc9A1f0lx+XLXrJc+C4LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTeaxlK7OZTCaTyS1suctbC7nGRQBBIDGBECIxAV94qmW3FjZTxWKxeLf/8XxFRLYW3tt8s1gsvrn5HrkJBIXEBEKIxAR80uPlybHx8ZiIyHDq5vubW3Lt+bP+lC0iw6n+959v1R4USSaT7sz29ranxgInYgdzkZgIBDvSyUhMBCvCe5SnWvZA343rMRHp77smIiLX+vo3Dx5cWVkRkWQy2dvbKyKyruc1gSa1HQz7zpWYgDfsSGd1rsT8swAaiEiKcIbqOPerMlvuc79Rbmy+FBGRl5sbGuIC8IDEBEKIxAR081zLVmYz5dT0sIhI7PqNjXJFRCrlDfdbJ4BgkJhACJGYgA88jTHYWsi9/fiFyNPMU7l5tzg9PP6mZDIZeeOthzaJCQSExARCiMQEfOLx3C+7OH5ozfB0sTjtqUEAPCIxgRAiMQGfcK8EAAAAmIpaFgAAAKailgUAAICpqGUBAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgKmpZAAAAmIpaFgAAAKbydA/b9vzDn/iWH2G/eul7foT98e7PaY/5x7u+NPWPXv+wH2H/dPez2mN2WUp7THj0G3/l32mP+dXLf6o34Fd69Ofjd3Y/0hvwf+9c1RtQRLZ39f/HYYSrXa+1x1RiaY+ZuKR/F/3zvU+0x/x898faY3774z7tMT/Xrf///ne0RwwNjssCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVB5r2a2FXCaTma0cXs4tbHltl2m6vlR1p6AbAgiJST4ilC56Ygq5CX94rGVj4/bDt96oL20tvLf5ZrFYfHPzvYuUm9KYlqQoQuBCJyb5iLC60Ikp5CZ806Mx1tbzZ/0pW0SGU/3vP98aH4+565PJpDuzvb2t8eWAJuxgLZGY6Ax2pHMhMdFhEd6jdNayIv1910RE5Fpf/+bB2pWVFRFJJpO9vb0iIh9pfU2grraDodnZEvMvgmgaIoQEPKezJeaHQTQNURThDNV77tfG5ksREXm5uaE1bsjtfSfRch4Ih4uVmOQjDHGxElPITfhGZy0bu35jo1wRkUp548b1mMbI4bf3nYQ7Bd0QoNkFTEzyEeF3ARNTyE34w+sYg8rs249fiOT6Htrjsdj4m5LJZOSNtx7aFyUxgTAiMYEQIjEBP3itZYeni8XpYxcBBILEBEKIxAT8wL0SAAAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJjK6z1s23Cz/w/PvvH29nZvb6/eBvgR81xhrwUdNvB3INiYaOnnf/LbZ9xS+4cS7J4T0x1Te8BzMeLTwdmNf+W/nHFLI3anc8UcNiTm2ZkS0zgclwUAAICpqGUBAABgKmpZAAAAmKqj42WTyWQnXw7AWZCYQAiRmMBZqXD7mZ/5GSNimhWWpsIL7R+KKXvOxfyPk4OmMGJ3IqYRMY3DGAMAAACYylJKBd0GAAAAoB0clwUAAICpqGUBAABgKmpZAAAAmCo8tWxlNpPJZDK5ha3DK2YrIiJbC7n9+Tai1p7oRqm/RBsxm59yOGDb8Y9sqaHZJ7+f3t6KrYVcfVs978Dhtun+1NA2H7JS54frRz5qT0bfMlFvGpKDJgl/d2lEboox6XmkYWRos6AvpFDz8utf/0AppT548LUHHyillPrggw+aN/nVBx8ceeLJDgWpB/jgwa9+/WXbMRue0hTQU/xDW3pv9invp6emfvDga1+rRdX0DjR91j58amiHH1mp+8P1Ix91JqNvmag5DclBgxjSXYY9N5U56dncMDL0iLAcl42Njw+LiAynbm5sbolIpfzuuw3fldpzKMjW82f9qWERGU71P3vuLXCrgPria2j2ye+nl6ZWZsuph2+90SpOu2GbPmt/PzWcnQ9Z6eOH608+em2wT5moOw3JQZMY112GMzfFmPRsbhgZelRYatkDfTeux0S2rk0Ui8U3N9/2kp/NQfr7romIyLW+fi1NbQ6oKb7eZrd+P9uNWZktp6aHD5Z1vANNbfP9U8P56cpKfz9cH/JRY4M1ZqL2NCQHDWVMdxnu3JRwp6eQoacLWS1bmS33jcdEJBaLicjw9MMbm+1/zWgOsrH5UkREXm5u6GjskYCa4mts9rHvZ3sxtxbef/r03Uzm7ccvnr6bma3oeQea2ub7p4Zz0piV/n64PuSjrgbrzEQf0pAcNJFJ3WWIc1NCn55HG0aGHhGmWrYymzn8dUZk6/kz6Yt5jFsLErt+Y6NcEZFKeePGda9BRZoD6o7vudnHv5/txoyN28VisVh8+NYbN+8Wp4e1vgNNn7VfnxrOx5es9OXD9TMfvTVYcyb6l4bkoDmM6i7Dm5tiUHoKGXqSoAfs1rz8+q9+re7BB/uL+wOZ3aHUjSvOHrM5yP5yGzGbntIyYBvxG7fU0uwzvp9tvhUNw8q9vwNNbfPjU0N7tGel9g/Xj3zUm4w+ZqK+NCQHzWJEdxn+3FSGpKciQ8+Ae9gCAADAVGEaYwAAAACcB7UsAAAATEUtCwAAAFNRywIAAMBU1LKh49hZ2wm6EQBIRiCsyE00opYNneraatBNACBCMgJhRW6iEbVssEpZK1sqZS3LskZsR0RK2dG58lTCypZqj9r2iPuYu1VtM2leBOANyQiEE7mJ0wR9gduLrJpPiYjI5JJSS5OSyldVtbqUT6Xy1YNH3QW1NOnO1LZrWgTgCckIhBO5idP1BFA+oyaeW15asxbHCmkRZzAlIhKPJ5ofzcVFxFlfLU8lrCkREZmsOnJoUSQeQPOB6CAZgXAiN3E6xhgYY3Kp/gWkkD66CKBjSEYgnMjNi4la1gzxgaG5xZKIiJSy2VLTYpAtAy4YkhEIJ3Lz4vJ3CANOtDQpIiKTS41DftyVk0v1R+vDfGqL9e+ZTYsAvCAZgXAiN3EqSymlszQGAAAAOoUxBgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU/1/jEXOTR7Vs3YAAAAASUVORK5CYII=" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F4TlRBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4ekxqVXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gMTUwMVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMy41KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 1501
mtry <- as.integer(length(iVars)/3.5)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXhOVEF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh6TGpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDE1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzMuNSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAxNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8zLjUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 1501
mtry <- as.integer(length(iVars)/3.5)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUkJZbk5FYVdabWN5QThMU0JqY21aU1pXY29aR0YwWVVsdVBYTjBhVzFFWVhSaFRuVnRMQ0JwVm1GeWN6MXBWbUZ5Y3l3Z1pGWmhjajFrVm1GeUxDQnpaV1ZrY3oxelpXVmtjMXN4T2pKZExDQnVkSEpsWlQxdWRISmxaU3dnYlhSeWVUMXRkSEo1TENCd1pYSnRTVzF3UTI5dVpGUm9jbVZ6UFhCbGNtMUpiWEJEYjI1a1ZHaHlaWE1zSUc1d1pYSnRQVzV3WlhKdExDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYmx4dUl5QndjbWx1ZENCdGIyUmxiQ0J3Y21Wa2FXTjBhVzl1SUhKbGMzVnNkSE5jYm5KbGMzVnNkSE5QZFhSQlluTkVhV1ptY3lSUFQwSmZVazFUUlZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dEFic0RpZmZzIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEFic0RpZmZzJE9PQl9STVNFXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutAbsDiffs <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbsDiffs$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSQlluTkVhV1ptY3lBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJCWW5ORWFXWm1jeVJQVDBKZlVrMVRSVnh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRBYnNEaWZmcyA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfUk1TRVxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRBYnNEaWZmcyA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfUk1TRVxuYGBgXG5gYGAifQ== -->
```r
```r
nperm <- 5
resultsOutAbsDiffs <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbsDiffs$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDYuMzQyMjc2XG5cbjwhLS0gcm5iLXNvdXJjZS1iZWdpbiBleUprWVhSaElqb2lZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpFOVBRbDlOUVVWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0QWJzRGlmZnMkT09CX01BRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 6.342276
resultsOutAbsDiffs$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpFOVBRbDlOUVVWY2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcbnJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfTUFFXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEFic0RpZmZzJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutAbsDiffs$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDQuODY1NDUyXG5cbjwhLS0gcm5iLXNvdXJjZS1iZWdpbiBleUprWVhSaElqb2lZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpGSnpjWFZoY21Wa1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dEFic0RpZmZzJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 4.865452
resultsOutAbsDiffs$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpGSnpjWFZoY21Wa1hHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbnJlc3VsdHNPdXRBYnNEaWZmcyRSc3F1YXJlZFxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEFic0RpZmZzJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutAbsDiffs$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjUxNzY3NlxuIn0= -->
```
[1] 0.6517676
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwUVdKelJHbG1abk1nUEMwZ2JYVnNkR2xmWTNKbVVtVm5LR1JoZEdGSmJqMXpkR2x0UkdGMFlVNTFiU3dnYVZaaGNuTTlhVlpoY25Nc0lHUldZWEk5WkZaaGNpd2djMlZsWkhNOWMyVmxaSE1zSUc1MGNtVmxQVzUwY21WbExDQnRkSEo1UFcxMGNua3NJSEJsY20xSmJYQkRiMjVrVkdoeVpYTTljR1Z5YlVsdGNFTnZibVJVYUhKbGN5d2dibkJsY20wOWJuQmxjbTBzSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVYRzRqSUhCeWFXNTBJRzF2WkdWc0lIQnlaV1JwWTNScGIyNGdjbVZ6ZFd4MGMxeHVjbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpKRTlQUWw5U1RWTkZYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcblxucmVzdWx0c091dEFic0RpZmZzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfUk1TRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
resultsOutAbsDiffs <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbsDiffs$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBRV0p6UkdsbVpuTWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpFOVBRbDlTVFZORlhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcblxucmVzdWx0c091dEFic0RpZmZzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfUk1TRVxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0QWJzRGlmZnMgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEFic0RpZmZzJE9PQl9STVNFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutAbsDiffs <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbsDiffs$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDYuMzM2MDM3XG5cbjwhLS0gcm5iLXNvdXJjZS1iZWdpbiBleUprWVhSaElqb2lZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpFOVBRbDlOUVVWY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0QWJzRGlmZnMkT09CX01BRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
[1] 6.336037
resultsOutAbsDiffs$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpFOVBRbDlOUVVWY2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcbnJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfTUFFXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEFic0RpZmZzJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutAbsDiffs$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDQuODUxNzAxXG5cbjwhLS0gcm5iLXNvdXJjZS1iZWdpbiBleUprWVhSaElqb2lZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpGSnpjWFZoY21Wa1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucmVzdWx0c091dEFic0RpZmZzJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 4.851701
resultsOutAbsDiffs$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpGSnpjWFZoY21Wa1hHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbnJlc3VsdHNPdXRBYnNEaWZmcyRSc3F1YXJlZFxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dEFic0RpZmZzJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutAbsDiffs$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjUyMzQ4NFxuIn0= -->
```
[1] 0.6523484
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEc5eVpTQnlaWE4xYkhSelhHNXlaWE5rU0dsQmJtNXZlVVpwZEVGQ1d5ZEJiR3dnZG1GeWN5Y3NJQ2RTVFZORkoxMGdQQzBnY21WemRXeDBjMDkxZEVGaWMwUnBabVp6SkU5UFFsOVNUVk5GWEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkQmJHd2dkbUZ5Y3ljc0lDZE5RVVVuWFNBOExTQnlaWE4xYkhSelQzVjBRV0p6UkdsbVpuTWtUMDlDWDAxQlJWeHVjbVZ6WkVocFFXNXViM2xHYVhSQlFsc25RV3hzSUhaaGNuTW5MQ0FuVW5OeGRXRnlaV1FuWFNBOExTQnlaWE4xYkhSelQzVjBRV0p6UkdsbVpuTWtVbk54ZFdGeVpXUmNibkpsYzJSSWFVRnVibTk1VUdWeWJVbHRjRUZDSkVGc2JGWmhjbk1nUEMwZ2NtVnpkV3gwYzA5MWRFRmljMFJwWm1aekpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQmNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbiMgc3RvcmUgcmVzdWx0c1xucmVzZEhpQW5ub3lGaXRBQlsnQWxsIHZhcnMnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnQWxsIHZhcnMnLCAnTUFFJ10gPC0gcmVzdWx0c091dEFic0RpZmZzJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FsbCB2YXJzJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dEFic0RpZmZzJFJzcXVhcmVkXG5yZXNkSGlBbm5veVBlcm1JbXBBQiRBbGxWYXJzIDwtIHJlc3VsdHNPdXRBYnNEaWZmcyRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# store results
resdHiAnnoyFitAB['All vars', 'RMSE'] <- resultsOutAbsDiffs$OOB_RMSE
resdHiAnnoyFitAB['All vars', 'MAE'] <- resultsOutAbsDiffs$OOB_MAE
resdHiAnnoyFitAB['All vars', 'Rsquared'] <- resultsOutAbsDiffs$Rsquared
resdHiAnnoyPermImpAB$AllVars <- resultsOutAbsDiffs$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkRzl5WlNCeVpYTjFiSFJ6WEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkQmJHd2dkbUZ5Y3ljc0lDZFNUVk5GSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpKRTlQUWw5U1RWTkZYRzV5WlhOa1NHbEJibTV2ZVVacGRFRkNXeWRCYkd3Z2RtRnljeWNzSUNkTlFVVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFFXSnpSR2xtWm5Na1QwOUNYMDFCUlZ4dWNtVnpaRWhwUVc1dWIzbEdhWFJCUWxzblFXeHNJSFpoY25NbkxDQW5Vbk54ZFdGeVpXUW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFFXSnpSR2xtWm5Na1VuTnhkV0Z5WldSY2JuSmxjMlJJYVVGdWJtOTVVR1Z5YlVsdGNFRkNKRUZzYkZaaGNuTWdQQzBnY21WemRXeDBjMDkxZEVGaWMwUnBabVp6SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhCY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0FsbCB2YXJzJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0QWJzRGlmZnMkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0FsbCB2YXJzJywgJ01BRSddIDwtIHJlc3VsdHNPdXRBYnNEaWZmcyRPT0JfTUFFXG5yZXNkSGlBbm5veUZpdEFCWydBbGwgdmFycycsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRBYnNEaWZmcyRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkQWxsVmFycyA8LSByZXN1bHRzT3V0QWJzRGlmZnMkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydBbGwgdmFycycsICdSTVNFJ10gPC0gcmVzdWx0c091dEFic0RpZmZzJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydBbGwgdmFycycsICdNQUUnXSA8LSByZXN1bHRzT3V0QWJzRGlmZnMkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnQWxsIHZhcnMnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0QWJzRGlmZnMkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJEFsbFZhcnMgPC0gcmVzdWx0c091dEFic0RpZmZzJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdHiAnnoyFitAB['All vars', 'RMSE'] <- resultsOutAbsDiffs$OOB_RMSE
resdHiAnnoyFitAB['All vars', 'MAE'] <- resultsOutAbsDiffs$OOB_MAE
resdHiAnnoyFitAB['All vars', 'Rsquared'] <- resultsOutAbsDiffs$Rsquared
resdHiAnnoyPermImpAB$AllVars <- resultsOutAbsDiffs$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpMbU52Ym1sdGNDQThMU0JoY25KaGJtZGxLSEpsYzNWc2RITlBkWFJCWW5ORWFXWm1jeVJqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUkJZbk5FYVdabWN5NWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSQlluTkVhV1ptY3k1amIyNXBiWEFwTENCc1pYWmxiSE05Y205M2JtRnRaWE1vY21WemRXeDBjMDkxZEVGaWMwUnBabVp6TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJPVjBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhDSldZWEpwWVdKc1pWd2lMQ0I1UFZ3aVEyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb0pTQm9hV2RvYkhrZ1lXNXViM2xsWkNsY0lpa2dLeUIwYUdWdFpTaDBaWGgwSUQwZ1pXeGxiV1Z1ZEY5MFpYaDBLR1poYldsc2VTQTlJRndpYzJWeWFXWmNJaWtzSUhCaGJtVnNMbWR5YVdROVpXeGxiV1Z1ZEY5c2FXNWxLR052Ykc5eUlEMGdjbWRpS0RJek5Td2dNak0xTENBeU16VXNJREV3TUN3Z2JXRjRRMjlzYjNKV1lXeDFaU0E5SURJMU5Ta3NJR3hwYm1WM2FXUjBhQ0E5SURBdU1qVXNJR3hwYm1WMGVYQmxJRDBnTWlrcElDc2dZMjl2Y21SZlpteHBjQ2dwWEc1d1FtRnlYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0QWJzRGlmZnMkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzldLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutAbsDiffs.conimp <- arrange(resultsOutAbsDiffs$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutAbsDiffs.conimp) + geom_col(aes(x=factor(rownames(resultsOutAbsDiffs.conimp), levels=rownames(resultsOutAbsDiffs.conimp)), y=CondPermImp), fill=mycolours[9], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekxtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUkJZbk5FYVdabWN5UmpiMjVrYVhScGIyNWhiRjl3WlhKdGFXMXdMQ0JrWlhOaktISnZkMTl1ZFcxaVpYSW9LU2twWEc1Y2JuQkNZWElnUEMwZ1oyZHdiRzkwS0hKbGMzVnNkSE5QZFhSQlluTkVhV1ptY3k1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJCWW5ORWFXWm1jeTVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpMbU52Ym1sdGNDa3BMQ0I1UFVOdmJtUlFaWEp0U1cxd0tTd2dabWxzYkQxdGVXTnZiRzkxY25OYk9WMHNJSGRwWkhSb1BUQXVOU2tnS3lCc1lXSnpLSGc5WEZ4V1lYSnBZV0pzWlZ4Y0xDQjVQVnhjUTI5dVpHbDBhVzl1WVd3Z2RtRnlhV0ZpYkdVZ2NHVnliWFYwWVhScGIyNGdhVzF3YjNKMFlXNWpaU0FvSlNCb2FXZG9iSGtnWVc1dWIzbGxaQ2xjWENrZ0t5QjBhR1Z0WlNoMFpYaDBJRDBnWld4bGJXVnVkRjkwWlhoMEtHWmhiV2xzZVNBOUlGeGNjMlZ5YVdaY1hDa3NJSEJoYm1Wc0xtZHlhV1E5Wld4bGJXVnVkRjlzYVc1bEtHTnZiRzl5SUQwZ2NtZGlLREl6TlN3Z01qTTFMQ0F5TXpVc0lERXdNQ3dnYldGNFEyOXNiM0pXWVd4MVpTQTlJREkxTlNrc0lHeHBibVYzYVdSMGFDQTlJREF1TWpVc0lHeHBibVYwZVhCbElEMGdNaWtwSUNzZ1kyOXZjbVJmWm14cGNDZ3BYRzV3UW1GeVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0QWJzRGlmZnMkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzldLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEFic0RpZmZzLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRBYnNEaWZmcyRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEFic0RpZmZzLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbOV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcbmBgYCJ9 -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutAbsDiffs.conimp <- arrange(resultsOutAbsDiffs$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutAbsDiffs.conimp) + geom_col(aes(x=factor(rownames(resultsOutAbsDiffs.conimp), levels=rownames(resultsOutAbsDiffs.conimp)), y=CondPermImp), fill=mycolours[9], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qSXdMQ0ozYVdSMGFDSTZPQ3dpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjIwLCJ3aWR0aCI6OCwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFZQUNBTUFBQURyRUhUc0FBQUJ5MUJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qcXROanNobUFBQm1BRHBtQUdabU9wQm1aZ0JtWnJabWtOdG10dHRtdHY5dVRVMXVUVzV1VFk1dWJrMXVibTV1YnF0dWpvNXVqc2h1cTZ0dXE4aHVxK1NPVFUyT1RXNk9UWTZPYmsyT2JvNk9icXVPamsyT2ptNk9qbzZPanNpT3E2dU9xOGlPcStTT3lNaU95T1NPeVArUU9nQ1FPanFRT21hUVpnQ1FacENRa0RxUWtHYVFrTGFRa051UXRwQ1F0ditRMjdhUTI5dVEyLytyYmsycmJtNnJibzZyamsycmpvNnJqcXVycTI2cnE0NnJxNnVycThpcnErU3J5S3VyeU1pcnlQK3I1TWlyNU9TcjVQKzJaZ0MyWmpxMlptYTJrRHEya0pDMnRtYTIyNUMyLzdhMi85dTIvLy9JamszSWptN0lqbzdJcTI3SXE0N0lxNnZJeUk3SXlLdkl5TWpJeU9USXlQL0k1S3ZJNVAvSS84akkvK1RJLy8vYmtEcmJrR2Jia0pEYnRtYmIyNURiMjdiYi83YmIvLy9rcTI3a3E0N2txNnZreUk3a3lLdmt5TWprNUt2azVNamsvOGprLytUay8vL3k4dkwzOS9mL1dzRC90bWIvdHBEL3lJNy95S3YveU1qLzI1RC81S3YvNU1qLzVPVC8vN2IvLzhqLy85di8vK1QvLy8rcTkrWWlBQUFBQ1hCSVdYTUFBQXV3QUFBTHNBRWFPQkJ5QUFBZ0FFbEVRVlI0bk95OWo1Y2IxNVVlcUxHOXMzUE83S29JR2hSbUptZXlibE9pV2dJa3B4TzEzU0ltMmMxbU5obERWRnByYWtVUzN1enM1aGhObVJ4RlRoTk85dXk2U05wT0U4UHhnbkpGZ2xGLzdyNTczNnRDQVNoMEFmWGo0YjdYMzNmc3J1NUMxZU5GMWFkWDc3MzcxWGRmaXdHZ2NieTI3d0NBcXdEUURMQUEwQXl3QU5BTXNBQTNhUGJmQU02Q2I2QWpOTnQzQUVCWk9FK3psNVdicmQ0Q2dpaHFBVFR6NVE2TENBSTAyd2hQN3JDSUlMeWwyVDhBd3JENTF1MUNzMWt2YUUvQ29EV09vKzhQNmMvMnorL1RycFhEemg0TWdpQzROb3luUWVzWG4vWFVML0Y4WUU1U1RRUkJaK1VFYmkzN3J3UkJONTY5UHdiTkhFTTlOSXRuUjRwU3o5VHQvK3FmZHVNNDdDdCs4SzVWMHRET1Y4UG8xbVRXNjg0K1VxejZyLzhrT1dsK1p6d2Y5SmZQNEE4eS84b3hIWlVUSzJnbUhIWFQ3SXVwNnNQby8zcVg2cTJDOWtXdk83MDJWTDlkSTVxOUdzWlB1WSthL1VSMVM3LzV0OGxKUktDd3E0OXZmeDUwUTlYTjhRZWphOE9SMnFmNk9rMHoxVWIwdzU3NmxCZk5YcjdrWi8vTDdIYmZGeFZZeGZMOTBkc0tOSnQ5eVkrMEtUM2JtR1poWDNGbjJvM1BoaUg5VU04OTlhaDh5RDNTN05OUmYvNGZIaVluNmQ0c09mN2hlUGFsK1lDcE9WMmNIYlpmcUNmdDJURHpuOFFLOW4xUmdWWGszYVd5TkZPTW1hclJFei80d3I2bW1XSkRkTWdjT2FOZVRQZG1taUt6VDZOYi8rVS9waWVwZmt5TnpmajQrWjN6UnlmUDB0Yk9obzlVbjZhR2V0U2JEZnJ6MDBsMFlucEUwTXdOMUVTeitVZERwdHB2MUJPekUwLzc4YlJMZjBZbm9mcXJxMWd4YW4zU1ZmM1FCZTA4VkdNek91RFQrVWMvbWlpYTZaUDBxSXVQajhOYlR3WnFWS1kvaUtPMzdsR1RQRGFMUjZDWmc2aUpabkYwRVBEd3EwL2R6cS9mREZyblBaNVUwbGhyUWxQRVB2MjRUVE5OZGN5VUJscTlvRC90aHNHMU4vbWs2d2MwVWVXeDNFUjFkT29KbkxRMm9XNVN0Ui9jb0NiYmsyblFINm5tTzV0cEptRzFDRUVVdFNCeDNld3JOWGk3bTdNZk5CTWZoRXMwQzNtOWJSMUluVHNMaVRUYkJORE1XWUJtZ0FXQVpvQUZPRTh6Q1FOZkJGSFVndk0wMi9jcWtWQ1V1c0FDYWJhRFVLTkRIdzcxY2h2OTdFS2gwVGgydjZHeFNKcnRJdFRnRDZPYjQzajIzdkRyaWRvQmhVYlRLSEZEaGRPc1dLakJINGJFSXZvUjNZTkNvM0dzWGFmOWJxdlRyRkNvb1hiU2h5UHF2YWFkZUJSMG9OQm9IQ1Z1YUpPb1NMUHRoQnI4WWRxYk1jZWcwR2dXWmJqUUlNclRiQWVoQm45SVEzd2FuOFh4bzBtTkNnM0FCVlJZME5oYXFORjU5U2JQU0htbU9kTDdvZER3TWdpWDFzMmcwSEEyQ0pkb3RwTkNROExGUlJCRkxVaWsyU2FBWnVLRDhKWm1nQXNBelFBTGNKNW0rMTZnc2dEYjE3a0JnR2J5WWZzNk40Q2RhSmFqeWhpT2xzUVdzMVNrQVErTjJyRGR6ZkZvQ3JDdXluaHdlbkgwNHU3S0VURThOT3JFbGpmSFE1b3RWQm04ajlmeldVcVJpalRnb1ZFYnRsUkN2S3lzcFBqN3lrcU12OSt3dnh6Tk1xb00za2RhaTNkWlNtRVM1ZkRRcUJGYjNoelBlck5sVlFidlk2MEY1N2hUa1FZOE5HckREcmRaS25haldZNHFRL2RtUnBTaGFSYWRoUFk4TkFBWHNPT0N4cG9xWTZ4KzZlcXhHVWtwYm1pUmhrVVBEY0FGU0Z3MzIwbWhBYmdBaVRTRFFzUFpJTHhOblV1NHVBaWlxQVhRekpjN0xDSUkwR3dqUExuRElvTHdsbWI3WHRTcUF0c1hjSCt3UWJQTGZCQm96NXlUN1BjWDZmWEZXVHFGM3MvR3VvSjlVNlVLR3IzcW9tQ2xON3ZFQjRIMzZDVDdJcjJlT1l1V2FhZEc5QUdhT1F1N05GdjFRVEI3ZEZvcVNhK0h3YlVIZy9iSDNRWE5hSFhXeDlUNS9rMEg1SnNiN0lDTlBnaEp3cHpUNUdsNlBaNzJaMGVmSmIxWkwxV20rZHliWVFwUUhSdDlFTXdlMDV1WjlEcGxwcEprS2ZWbWxCWE54THFDZlZPbENqSmZBelNyam8wK0NHWVAvM0dZcE5jZmpxZjk2UERNWk9IVlF6UHNabU5kZ1lTTGl5Q0tXckN6b0xIQkIrR0IzdlBkSDFDUy9VT1RYbTk5RXFnOXR3ZlhEL1Q4TStqT0J6cjNCSnFKRDhMYmRUUEFCWUJtZ0FXQVpvQUZnR2FBQlRoUE13a0RYd1JSMUlMek5OdjMycGRCMWU4R21va0JhTlp3RXlKb1ZyYmdCSWt1dHJJemNGbWhzYzBGdkF5Z1dZcVNCU2Y0ZGJsdDdBeGNWbWhzZFFHdkxrclJiTWVDRTRabWhYWUdMaXMwMXVMQ3RxeENvMnpCaVVWdmRybWRnY3NLamEwdTROWEZ6alFyVVhDQ2FiYUZuWUhMQ28ycTk4Rno3RUt6c2dVbmtvZG1rWjBCRkJyT0IxSExna2E1Z2hOMDhNVldCU2VnMEhBOUNObnJacHZzREpZQm1va1BRamJOTnRrWkxBTTBFeCtFYkpwdEI2VE9uUVZvQmxnQWFBWllnUE0wd3dxWUM5aUpabVE4M1A3NU1EcForMlFwQzU0azFWOE1ndXNIT2g5Tzc1UTRranJmN2xJc1E4TG9XMFFRZFV3QkZDMjRGTUNndS9iUlVoWThUYXFyL3lmNWNIZFM1MXRkaWhWSXVNTWlncWhPTTg2Szh4MW5wLzZRL25yNzV1TjMyTFdmc3VBelRwN1R2aVNwVGpReitYQjNVdWRsVXNOL1h6bkYvTExpK1psbTNLNEx3Rmx4VG9sSE45bXBmM3A3d0s3OTZnT2RCYWVzcGlLSXpwdlB0RWR4a2c5M0ozVyt4YVZZZzRTT1JFUVExWHV6TTFPeFJEMFMyWm1kYzBORXJlalFaTUdaTEZOK0VPcWtPdlZtSmgvdVR1cDh4d3NMYklPZGVyT3cvYnlmRkFDZ0JMZW1tZnBBWjhFNWVmNjR1MGlxTTgxMFByeXgxRGxvNWdLMnB4bW54amtsems3OW9Yb2tmdHdhcXk2SlpwUjlreDhuRy8veEs1MVUxek5OblE5WGFDaDFEcmlBcXV0bTAvVlpad2xVU0owRExxQWl6UmJMWEpXQTFMa25RWGliT3Bkd2NSRkVVUXVnbVM5M1dFUVFvTmxHZUhLSFJRVGhMYzJ3Z09FQ1FEUGIzK0pLb2xtYTVmZ2hQREMxSmtpeEVSMjBKekV2cXJFV1l6OEtqWWErT3BCRnc3M1pCaitFVjBPZDQ1eFROdURaMktTVjlxUFFhT3FyQXhuWW90bVNIOEtyWVdKMjhKTkJmMEd6L1NnMGFsQTJRS0ZSbjBLakZQTDhFTGpXaE9uTjdzN2VHNlkwMjQ5Q3c1ZEpub2dnOWpUVHpQZERlRFUwWmdmenUzRjA2MUZLczcwb05IeTV3eUtDMkJQTk52a2hIR3JGQmlVeXc5YllhREZnYnVCOEVQdGFOMXZ6UTNneU1MVW1XdXpmb2hqMFVGc2szSWRDdzE4NHYyNEd1QURRRExBQTBBeXdBT2RwSm1IZ2l5Q0tXZ0ROZkxuRElvTHdsbWE3cjVPdHdwTTdMQ0lJYXpTN3JIb0E3ZEh2Yjc3Z0RIbElpeFdCRVdqYlNwMnZ0ZURKSFJZUmhMM2U3SkxxQWJ4bmRoelBUeWUwUEJzZEd0dnRWN3dzWmlsMVh1TlhCYlpGZ3pSYnJSNWc5c3lPYWUyZlUrY21LZkJxT09kVXVaM1VlZVVVTmJhN2I1dWoyVnIxZ01UTmdIUGhSTE9uUTBvbWNTYWRVK1YyVXVjMWZsVmdXelJFczd6cUFXWlBYbS9HNzN0YVNwM1grRldCYlZFL3pUWldEekI3MUZNdzFqUkx4MmJSSWFmSzdaZ2JyTFhneWVoYlJCQVdGelEyVkE5NG9QZGNQNkIwdWJZMUdKbVpabkI3d0tseTFBVndQUWh2MTgwa1hGd0VVZFFDYU9iTEhSWVJoTGMwQTF3QWFBWllBR2dHV0lEek5NT1NtUXNBelh3WmZZc0lZbTlUZ0NMRlJ1YkF4aFVhK1JGNmNvZEZCTEcvbVdhUlltTnhZT01LamZ3QVBibkRJb0lRUUxOTmlnM3F4VWJCMi9lYVYyamtLd2hlVmxjZ3dOekFiUGRrYmhBWEt6YWVEcWRVa1NMc042L1FhUEJiQXBmQ0VzMHVVV3lNZ3FCek5tU2FOYTNRYVBCYkFwZWllWm9WS1Rib2VScnEzcXlNUWdOd0FSWVdOQzVYYkZEUmlnN05KeitFdVlHL0VMTnVGdllMRDBIcVhId1EwbFBuMFVGeEhRdlFUSHdRMG1tMkRVQXo4VUdBWmh2aHlSMFdFWVMzTkFOY2dQTTB3NHFaQzlpSlptZER5bndQbzVPMVQ3Sko4UG1BVmlqVWNYb3BnMzUyT1FQZXVlU2tobFBuMjMwL29DbnNRak5GQzhwOFB4aXMxOUJjU29MUGppYWNJWTl1anVQWmU4T3ZKMnFIZHM2KzVLUm1VK2RiZlQrZ01XeFBNOVZKWFJ2eUhZOSsyR3RSZ25zNGZmdm00M2Q2TFpNV24vVzZVOTUzZmpUaDQzajFubjVFOTVJNkFBTmFqbTEvSG5SRGRSWm56a2ZYaGlPdUs5eHBNblhlYk1vWnFmUDZVdWVLTDJkRHpueXJYdXFNWGhTL1BXQm5IL1dCVG9KUDFSR0tJTlI1OFhFajZyMFVSMFpremM2OVdkaFh6YWpESG81blh5WmVCL1RXT1owNWJESjFmdGtYODJTU0p5S0k2ak5OeGF5bk5KWlN6OE1UOWR1TWMwTkVyZWpRSk1HWkxHbk9PK3ludlJsempNWm1xZzN5YWo5L2RQSXN6YVdmRFI5TitPM2dKbFBuWlM3TkRwQndoMFVFVVoxbWxONXVQeWNDTU0wb3dhMXBwajdRU1hDMWY5UjZ6UHpnRERrTjhXbDhGc2VQSnJvT1FOamhFMjQ5b2VHZFBpbU8zcnBIQ1hVcVA5R2N1VUdaUzdNREpOeGhFVUZVcHhuTitmcXYzZ3hhNDFIcnZOY0pnNkQ5Y1dzOFpVKzhOQWtlOUVmay9OL2g0OHhNYzZUMnpyZ09BSTN2YVBiNGFmeHNuT1RTSnlRU1VnY0dONUE2OXhkVjE4Mm02N1BPRXZocXpBVlBDZ0NhT1l1S05Gc3NjMVZDYUl4Qkx3ZG81aXljendJQUxzQjVta2tZK0NLSW9oWkFNMS91c0lnZ1FMT044T1FPaXdqQ1c1cVZXaXBiZ2lkM1dFUVFObWhHMG96Y0QvZ0Z6YXpXd3V3aVRJUFdMKzVwRVVlOUNvMWF2aEpRRDJydHpaSzN5YldMOGZKSHh4bXRSZWJ6NkJhbDNGbkVVYk5DbzU2dkJOU0N1bW5HNm8ycDdwdW1iOS84NUlQZ2c0QmUvNlZkckxWZ1pVZEE4Z3RPQ1R3MXkyWFJ2YmhtaFVabHhRTzI5VzFycGhrcE5zNkd6dy9Kc3VEZFFmdWkxNWwyb3BPd1BWRzdFcTNGdEsvK1VMdFlydkZRZDE0azRxaFpvVkhQVndKcVFlMjlHYVhWbzBPMkxLRE1lcDh5N2ZQVGlkcWx0UmFrdjFCL3FGMHMxemd6dmRuOHpyaG1oY2JXVVhzeStoWVJoSldaWm9abVpGbXdSalBTV21qOUJkR001UnJFSWM2TFBwcVVVMmhJdUxnSW9xaUZ1bWVhck41UWczcDYxcEZZby8xeEVMUWVrMFRqSGEyMStHY0JTVG02MDZDdjVScFQwcUVaRVFmS1Q3Z2VoTGZyWmhJdUxvSW9hc0Y1bWdFdUFEUURMQUEwQXl3QU5BTXN3SG1hVlYrYjlXVDBMU0lJMmFsejlWbTlxZk5kd3Zia0Rvc0l3dGJ5ck43dW1qcC9ObGEwcXpOMXZrdlVudHhoRVVGWXl3S1VUSjNUVytjMXBzNTNTZTIrcko0YWhybUIyVnFwQzFBK2RhNlRUZldsenV2NVBrQmRrSkk2bi9iak9sUG45WHdmb0M0SVNaM1RjN0ZPYzRONnZnOVFGMlNrenNNQWRRRzhodlByWmhMbVZ3aWlxQVhRekpjN0xDSUkwR3dqUExuRElvSUF6VGJDa3pzc0lnaHZhUWE0QU5BTXNBRG5hWVkxTXhkd0NjMVlJaEd5dVNmVmllQ0tFbVhLVDVEb3dtYjVpZTIrT0dBVGwvVm1TWlZ5WFNlQ0swcVVLVC9CTlFFc2xwL1k0bHN2d1pQUnQ0Z2d5a3dCVXBweG5RaSsyYVhLVHhpYTJTby9ZVi9aQUlWR0ZZVkdRak5kSjRJclNwUXFQN0hvemF5VW44ajlMcGZBazQ1RVJCQ2xlN09IYVowSVV5aDY5L0lUVERONzVTZnF1alJXbS9Ba2lESTBtMzgwNUh1dDYwUndSWWxwbWZJVHlVT3prZklUZ0F1NGRFR0RaNHBKblloZlUwV0pNdVVuekVjb1AzR0ZnZklUZ0FXZy9BUmdBYzVuQVNRTWZCRkVVUXVnbVM5M1dFUVFvTmxHZUhLSFJRVGhMYzJ3YmlZcENOQU0yQ05xcDFtT3J1TStheTFpTGNsZ3lRV3RvM0htaWhiWnpDd1RDZzJQVVg5dmxxUHJTTHcxZU0vc09KNmZQaUxUalBnTGMvZ3JYc3pZbDBJRGFCNE4wbXloNjBob3hudG14M29sOW96RWF4T2RPcCt6SW1OUENnMXNtOTgyUjdPTXJzUFF6RWd5ak9UaTBlVHJDY3VINkpuSmlnd29OSndQd3Q0VUlFZlhZV2ltOTVqZWpMUGxwUFNnM295VFZsQm83THNKbDJpV28rdlFXZ3V6UjV1YjhZT1FhNXZRWjRlc3lFRDVDZWVEc0xpZ3NhYnJPS2Zab2hwdjhaN3JCelRISk5PTWZxaVBVN2c5WUVVR3lrKzRIb1MzNjJhQUN3RE5BQXNBelFBTEFNMEFDM0NlWmhJR3ZnaWlxQVhuYVlaMU0wbEJsS0JaWGVZRzZtZFhzcm1CSjNkWVJCQmxlck9hekEyK3B2ZURZVzV3SllLb1JMT0s1Z1p4ZEUreXVRRzIrMDJkMTJWdU1BbzZrczBOZ09aaHc5eEFjMHlzdVFIUVBHeVlHNURvcHpGekE5RE1CVmd3TnhnRlZIMmlLWE1EQ1FOZkJGSFVndlBtQmhJdUxvSW9hc0Y1Y3dNSkZ4ZEJGTFhnZkJaQXdzVkZFRVV0T0U4endBV0Fab0FGT0U4enJHYTRBTkFNc0FEN05Ndm9NbmcxaEJOWktXWlpJNFFWTkVRelQwYmZJb0tRTXdWWTZETG1hMUtQMlhINmh2cUtmSU1BbW9rUFFnN05XSmNSZmhCOEVQU25ieCswNkVWTmtwcXg3R01hZEplTkVIcWNSWGo3M3RZS2piWFBpN2N2cXlzUVVIN0NiTXVVbjJnRXJNdVk5VHJUVG5TaW1EVHRodTNKMCtIMDNVRnJmRFo4ZnJoc2hLQStJRUZIcUlWcTZNM0VCeUdtTnpOaWpqNWw0Rm5lTVQrZGpJS2d3L240S0tXWlBvdytPQnMyVERPZ2VWaW5XU0wzTURRTHU0cG1KSjNNMGl3MVFxQVB3c3Q3TThBRldLYVowV1Y4OXdmdGo0T2c5WmcwYUZQV2IzUlk5akhydlpNMVFpRE5SNGZlQmdETkhJY1Q2MmJvelZ5SEN6U0xEclFNQktsejhVR0ltUUpVQUdnbVBnalFiQ004dWNNaWdnRE5Oc0tUT3l3aUNHOXBobVV6RjdBOXpjcDZIYVNsQVY0TWd1c0hpWUZCMkV4ZGdCMitPV0FSTy9SbVpiME8wdElBbEwwMEJnYlJJYjJ6V1g5ZGdDMi9OV0FaWldpMm85ZkI0NlEwQU5Fc01UQmc1K1A2NndKVVRtRmoyOGkyQk0xMjlUclFwUUc0aHM0a01UQjRPb3lqa3dicUFtenpQVmJoeWVoYlJCQTFUQUhLZWgzRVNXa0E2czJNZ1FIM1puSDlkUUYydUNJcFBMbkRJb0tvZ1dabHZRN1MwZ0JNTTIxZ29NZG1kZFFGQU0wa0JWSEhna1k1cndNKzZEeVphUm9EZy9GSVBVaFJGOEM3SUN5dG05WGpkYkFCU0owN2kzcHBWcFBYd1FhQVpzN0MrU3dBNEFKQU04QUNuS2VaaElFdmdpaHF3WG1hVmM4MWVYS0hSUVFCbW0yRUozZFlSQkJOME94TW5FS2oxTmZ3NUE2TENLSUJtZ2xVYUpUNUdvQUZsS2JaZkVDYURHRUtqYjByRWJETjM1YW1XVWlKY1drS2pkMi9CbUFGcFdtbW1QV1VubldpRkJwbHJnQmdBVlY2czdEOWZQOEtEUWtEWHdSUjFFSnBtckhuQUJRYUNHS3JGcHhYYUVpNHVBaWlxQVhuRlJvU0xpNkNLR3JCK1N3QTRBSkFNOEFDUURQQUFweW5HZGJNWEVEejVnYnpBVGt1cXVOTWVVMzFrMTVhcnoxMXZzdTNYb0lubzI4UlFkUXdCU2hyYnFETzQ0T3BVUERzdmVIWFZBdTlnZFQ1Tmw4aEY1N2NZUkZCMUVtekhjME56bzhtZkZ4YStqeTZGemVRT2krZDJuMVpQVFdNdWdCbVcwTmRnTExtQm5RZUhUZWlaNStpekNqb3hBMmt6cmY1Q3Jud3BDTVJFVVJkdlZrSmN3Tk5sN0NmOW1iek8wMmt6bmU0R0lCdFdEQTNVT2ZvNDlTOGdNWm5jZnhvMG9DNVFUM1hBMmdFelpzYnFMbGtoNDh6TTgwUjk0VzFwYzRCRitCODZoeHdBVWlkK3pMNkZoR0V0Nmx6Q1JjWFFSUzFBSnI1Y29kRkJBR2FiWVFuZDFoRUVON1NEQXNhTGdBMEF5eWdQTTF5RkJ2M1dWU3hqTE1IS3dvTlBSc1ZwTkFBbWtlRjNpeEhzV0VxU0dlZ2QyWVZHclQwSDB0U2FBRE5vdzZhTFJRYm1obnpBYVVBU0ovQkRnaXpGWVVHMFF3S2paVXRGQnFia0tQWVNMTGtpazJjT0djSGhGV0ZCdEVNQ2cwL2cyaGdwcG1qMk5ETVVJL0Q2SkJweGc0SXF3cU50RGVMWlNnMFBMbkRJb0pvZ0dZNWlnMHRxZ2c3V3JjeGFuMUNEZ2dYS3dxTnhkZ001Z2ErQmRIRXV0bWFZdU84eDlOR0dwdE4yUHlBZnR4ZVVXalF3Uk1vTks0V25GODNBMXdBYUFaWUFHZ0dXSUR6TkpNdzhFVVFSUzJBWnI3Y1lSRkJlRXV6NnJrbVQrNndpQ0QyUUxPeisyeHJmTEdjNTh5ckV2QWt5YWJQTTRsMDlWczM1dnpDY3F3ckFNMGtCV0dmWnBRMFA0N25wNTluUkJ1MDFwcFRKV0N4WXB0SnBCL3ozdlZZVjRETXVRdG9pbVk2YVg0OHY2dUlwdFBvcW4vcVR0WC9jcW9FWkxMcGkwVDZzY2tSc0hkQ2NlcDhkVCsya3JaTjBVd256U250UFQrZDZEUjZQNDZmSDhaNVZRSVcyZlJNSXAxL0M5a3Y0VXo3QzZFM2N4Wk4wVXduelhWdnBtbEcwZ3YxWUl4enFnU3M5R1k2a2E1NnMwRmZuY3d2dFdkaVhRRm81Z0lhN00zQzlzV3grazB6WmRUNnBNODB5NnNTc0R3Mk00bDBkZTdJQ3MwOEdYMkxDTUwyRklBZWl4LzJ0Qks3bjZUUk83TmVkME9WQUoxTlgwcWswMk4xU3ZZSTU3MU9KdFl0djlqMjhPUU9pd2pDMjNVekNSY1hRUlMxQUpyNWNvZEZCT0V0elFBWEFKb0JGZ0NhQVJZQW1nRVc0RHpOcWkvTmVqTDZGaEZFTFZPQXJTdFFHS1hGbk5iRzJwTTREQmlkbGVheVJTb3FtUnRzRi8wbWVIS0hSUVJSejB4ejZ3b1V2SnJQU293NWZmWnNQTDh6bmcvNnl3Y3RGYW1vWW02d1pmUWI0TWtkRmhGRXpUUXJxa0RCQjNKU2FmNFR4UzZtV1J4MnRlMUIrL09nRzZwT2l4c1pYUnVPMkEyNVU5N2NvSnFDNEdWMUJRTE1EY3kySG5PRHJTdFE4SUhSSWRIczd1eTlZZEtiSmJZSEQ4ZXpMMDBqbkN6bjNIcDVjNE10b3dmMmhoSTAyNllDUmFZM3V4dEh0eDZOYWJUVzBiWUg4enZuajA2ZXBZMmNEUjlOK0JYaDh1WUdWUzhDMERSMm85bldGU2d5WTdPN2lvZXRzVmJDc3UxQkhONTZRZ00yM1VnY3ZYV1BXbEtFS21WdUFMaUFIUmMwdHE5QVlXYWFid3pvd2Zyd3ZFZnpVN2FrVXJQSFQybXdaaHFaVU8rb21nMXU5R0J1NEMzcVh6Y3JVNEhpcTNGTXZWNEJrRG9YSDRTMTFIbXBDaFNoZVovcGNvQm00b1B3VnFFaDRlSWlpS0lXUUROZjdyQ0lJTHlsR2VBQ25LY1oxczFjQUdnR1dNRE9OTXRUYVl6VzVSZjBldHk2VzhhMU43UEhDVkZvQU0xajk5NXNYYVh4NFBUaTZNWEtzbGZZbnVTNVpTVDFLZWd0VENnMC9BdWl2aWxBamtxRDkvRUtmeXJWb0hmTmM5d3lFazhNVHJwRG9RR0Z4a2JrcVRSb0g2a3YzaldHRjFONlhUelBMV04ycEQweHlFeERpa0xEazQ1RVJCQTE5MllyS2czYXgrcUxWS3BCTk10eHk2RGVqQTZKMkxORmhrTERrenNzSW9qNmFKYWowdEM5V1NjcjFhQ0habzViUnBabVVHaGNIWlJZMEZoWGFYQXhDUjZicFZLTjUwRS94eTJEWnBwOHlLejNMaFFhVndneTFzMHFLRFFBRnlDRFpoVVVHb0FMa0VHejdZRFV1ZmdndkUyZFM3aTRDS0tvQmRETWx6c3NJZ2h2YVlaMU0wbEJORUd6NGl5NlRuOFR6aDZZeWhMVG9QV0x6eFpaY3AwK0QvVUxuNjBuNWNwUGxJb2VzSWhLdlZseEZqMUpsWnNrK3F0aGRHc3k2M1VYV1hJK1U5Y0svc0ljdjN2NWlYTFJBL1pRRDgwMlp0RTF6WFF0Q3ZaaTE2YllhZDBKZmFiMmF1KzFKM0c1OGhPVlU5L1lOcnl0aFdhYnMraWFaa2t0Q3ZVNGZNZ2RWSm9sMTJkeTVZbXZTZEpScnZ4RXVlZ0JlNmhPczh1ejZFd3pYWXVDZXpQTm1MVHVoRDZUZXpPMU96bG8xL0lUNWFKUDRNbm9XMFFRamN3MGk3UG9PdjJ0YTFIb3loSzNKdlNBVE9wTzZEUDEyTXc4Skhjc1B5SGg0aUtJb2hhcUxXZ1VaZEZ2OUhqbVNOUEcyMXhab2svOVYyZldTelBwT24xT0o0VzZLWlNmY0RrSWI5Zk5KRnhjQkZIVWd2TTBBMXdBYUFaWUFHZ0dXQUJvQmxpQTh6VER1cG1rSUx5ZEFvQm1rb0xZQTgzTzd2TTdtaGNtZTI2UVkzbEFMeER2VWFIaHlSMFdFWVI5bXBFbzR6aWVuMzdlWHRDTTNvYkxzVHpZcjBMRGt6c3NJZ2piTk5PaWpPUDVYVVcwaTE1M3lxbUE3bFQ5TDhmeUFBb04zN2ROMFN3UlpYUmllakdZL3FBU0FzOFA0enpMQXlnMGZFZFROTk9pRE4yYmFacVJCSWhlTnMreFBOaXZRZ05vSGczMlptSDdndXlsTkZOR3JVLzZUTE04eTRNcUNnM0FCVFJGTTNvc2Z0alRFOGcrL1VFL09yTmVOOGZ5b0RXR1FzT1RJTHhkTjVOd2NSRkVVUXVnbVM5M1dFUVFvTmxHZUhLSFJRVGhMYzBBRndDYUFSYmdQTTJ3YnVZQ21xRlpqdTNCL2NUbmdQYVlMTUJLc2h4MUFieEZRNzNadXUzQk1QRTU0RDJjVkorc0pNdFJGOEQ1SUN4UEFYSnNEeEthOFI1T1E2MG15MUVYWU0vZlExSmRnSzJRWTN0Z2FHYXFBVkJTZlRWWmpyb0F6Z2V4ajk1czJmYkEwRXp2NGQ0c1hrbVdveTZBODBGWXBsbU83WUgyT1RCN3VHYlRhcks4VkYwQVRBRmNRRk1MR211MkIrZnNjL0JBNzdsK1FFbjF0V1E1NmdMNEN1Zlh6UUFYQUpvQkZ1QTh6U1FNZkJGRVVRdWdtUzkzV0VRUW9ObEdlSEtIUlFUaExjMnFyMmQ0Y29kRkJBR2FBWHRFZlRTakFoT2QxWjFKaGluUDBjQ1Vua2dQTGEzUXFDRjRvRm5VUnJPTUJpT0RVSXNyOGh3TmpGWmpnZElLamVyQkF3MmpKcG9sQlNiQ0Q0SVBndjcwblY3cm5CME42RDNMZ3h0ZjVqa2FHSzNHNk5wdzFMN29rZkZ4V1lWR2RZVUZ0ZzF2YTZLWjlqSTR1dWgxcHAzb1IrVHgwK1ZYelJYTm5nNi9HdWM1R2lSYURVcWQ4N0dsRlJvVlkvZGs5QzBpaUlhbkFFbUJpV21mQ2dJbzFrU0hDYzNNYUd2TjBTQlJiNXdOSDAzWXRiMjBRcU5pN0o3Y1lSRkJORXl6cE1CRVNyT3d5NDRHVDA0bno4YUtjam1PQmthckVVZHYzU01KQjVVK0thUFFrSEJ4RVVSUkN6WFJ6QlNZZUVPTnFZS2c5WmdmanVSb01BMzZ2MVdkVTQ2alFWcDZnbVJwMFVFUTNPaVZVbWhJdUxnSW9xaUZSdGJOcHQzaVk1YWdSbS96dTRWSElYWHVMSnFnMldMdGExdUU1dTJteXdHYU9Rdm5zd0NBQ3dETkFBdHdubVlTQnI0SW9xZ0Y1Mm1HZFROSlFWaWptYTRHMEYvZEhaMFlyLy8yYnc4QzhqU2dXVUpJaXhYVnpRMHFSdXpKSFJZUmhDMmE2V29BMC9aS0VuMCtvRFVPdGpSNDNxZTM2OGp6bnkxbmF6QTNxQml5SjNkWVJCQjJhR2FxQWREcVBsVUlUZ3NDQkIxMjl6Y3ZBZE95R3RFc05MbUJxdVlHQWxMRDJGNityWmRtaTJvQXhDR1RQdWNmMGMxeDhnbmJIUkROdUJ4QURlWUdOUVVQTklkNmFXYXFBVkN5Vy8xcTB1ZWNVbUxiZGQyYmpXaW90ZHliVlRNM3FDbDRvRG5VM3B0eE5RRGFkdUtwVHA4L0psb1ptcW5mNklGNmQzbHNWdEhjb0tiZ2dlWlFMODJTYWdEekFka1ltUFE1NWNVNzVPNS9nK29FOE5TeXE1UG1JelBUckdKdUlHSGdpeUNLV3JDd2JyWmRYbndMZ0diaWc5Z2p6YmJMaTI4QjBFeDhFTjVtQVNSY1hBUlIxSUx6TkFOY0FHZ0dXSUR6Tk1PQ2hnc0F6UUFMcUVJenloNjFmejRrOGNVS3NyWUY4d0hWMFZUSGFhTlErc21Hb0Z4cXM1YnlFNldDWDhDVDBiZUlJQnFZQWlndWtXbkJnOEg2Q3laTHRnWDBNanFaRzBRM3gvSHN2ZUhYRTdWRDF3T3VxZnhFbWVBejhPUU9pd2lpZHBxeEdJTUp3T0lMc2l1ZXZuM3o4VHU5bHJFdG1MRThRKzA3UDVyd2Nad3pvaC9SUFpQT3JLbjhSRVVGd2N2cUNnU1VuekRiMnN0UHNCaURUUXRZZktHZWdMY0g3UmRzYTJCc0N5aHZydmhDblJjZnh5bHpSWmxSME5IaWpMcktUK3dlL0JJODZVaEVCRkY3YjhaaWpKak5mamdyemkvenhteHJZR3dMRWhXUXBrdllUM3V6K1oweDkyWnhUZVVuZGc4ZXNJd3F2Vm5ZZnQ3WE1veW5RNUpWYUpxcEQ3UnRnWlpuTUYzWTNJRG1CVFEraStOSFpteFdSL2tKd0FXVXBobUxMOGkwWUV6aWkwNFlCTzJQVzJQVmo1R0RBZHNXa0p0VWYwUnp5UTRmWjJhYUk1NDVqdFJURk9VbnJneHFYamZiMmRaZ0Y0Qm16cUx1ZHdGMnRUWFlCVWlkaXcvQzI5UzVoSXVMSUlwYUFNMTh1Y01pZ2dETk5zS1RPeXdpQ0c5cGhuVXpGMUNkWnB6aURvUEU1OStVQUFnQzhnaGRPcERYTTJqdGRhN1RCVkxNRFlEbVVVTnZsdFExMXdselhRS0FYQXcrenpnY3FCMG1jeDRkY2xKVGtMa0IwRHpxcEJuNy9Pc1NBUFRlNy93ME5UZm9Ub091eWJZZjlSSUFBQ0FBU1VSQlZEV1JnY1p2SmpBM3VGcmJHbW1tRStaSkNZQ09vdG1FMDVxS1RmSHp3elJ6cnBqMXFTaHpBMDlHM3lLQ2FIQUt3SFJZK1B4ekNRRGRtMm1hRVhIVTh6SEpuTS9lLzd1aEtITURUKzZ3aUNBYXBCazlCb2tTT21HdVN3Q1Fpd0VWMHFIcytTZDlwbG1hT1IvUlkxV1F1WUVuZDFoRUVFMHVhUEFVY200UzVyL1dKUUJZZ3Qzbi9Ebzk5bWE5cnNtY203d256QTI4RE1MYmRUUEFCWUJtZ0FXQVpvQUZnR2FBQlRoUE13a0RYd1JSMUFKbzVzc2RGaEdFdHpURHVwbWtJRXJRTEVkNnNaV2JRU0xTME5VenRleUNGc2ZTcEZIdVNUQTMySDhUKytuTmNxUVhXN2taYUpHR3FRVnNaQmZ6TytQNW9IL0pTVkJvK0l5dGFMYVFYbXpsWnZDWVJScUdaa1oyd1RuTXJxNUowZjQ4NklicUxHNTJkRzA0NG5mdE9sQm8rTHZkaG1ZWjZjVldiZ2FKU0lOTFVSdlpoZTdOa3BvVUQ4ZXpMODFKbkRybkZEdktUL2lMUXBvdFN5L2liZHdNK0tDa056T3lDeHFlZFhSTml2bWQ4MGNuejlKbXo0YVBKcHppaExtQnY3aU1aam5TaStrMmJnWlRJL0RSTk5PeUMzcG94cm9tUlJ6ZWVrTERPMzFTSEwxMWo4NVFoQ3FsMEpBdzhFVVFSUzFjdXFDeEpyMFliK05td0FlZEp6Tk5MYnRRb0NFY2pjMFUrejVWaitLazJRbjFsMVNoNGtZUENnM25nMmhxM2F3ZU40UHRLbFNBWnVLRGFJaG1OYmtaYkZlaEFqUVRINFMzV1FEQUJZQm1nQVdBWm9BRk9FOHpySnU1Z0FLYTdaSSsxdzZPL0JiSlVpRUFtaWJ3SjBpZGV4OUUyU25BRHVuem1CT1EyazQyV3dpQVg1WVRuRHIzNUE2TENLSXl6WXJTNXpvRm50QnNxUkNBb1puVTFQbkw2cWxoMUFVdzI3SjFBYlpPbjNNS1BIRXFXQzRFc09qTlJLYk9QZWxJUkFSUnFUZmJLbjFPS1hCNmFBNzZxNFVBbUdaSW5WOWxGTkZzKy9RNXBjREoxR0RVWHkwRWtEdzBHMG1kZzJZdW9IQkJZOHYwT2ZkNVdtUDJZcVVRZ01tcU41UTZCMXhBSGV0bTFkUG5GVkxuZ0F1b3d4R29ldm9jcVhOUGd2QTJkUzdoNGlLSW9oWkFNMS91c0lnZ1FMT044T1FPaXdqQ1c1b0JMc0I1bW1IWnpBWFVTN096K3hsQnhRSWs1MGpxVEV5RDFpOCtXNGd4V0tVeHp5dEdRV0tQbUROY3k3R3VBRFJ6QWJYU1RCZWVtR2JLVGpEbUxPZlFkU2FpVy9SMitrS01vVlVhZWNVb2prM21ZRFhXRllCbUxxQkdtcW11Nk5wUUN5cTBFc1BVbmdnNkxPZlF6dXhQTlllTUdNTUlQM0tMVVNSaUR6NzVNb1hHL3BVTlVHaFVWV2pzZ0pCbEZpeW9TSlFZWjFwN3dYSU9yZDU0eUIxVUtzWXd3bys4WWhUOFc4ajZqek85ZE50UWIrYkpKRTlFRUJabW1tZlVWMmxCQlNzeG1HR2N0dFJ5RHU3Tk5HTVNNVWFpMHNnclJzRmlEMTFiNENsbzVrZ1FGbWltZXJPUWhJMjA3V2dSeDZqMW1PWURDYzJvem9RaUlaWFQwV0tNUktXUlY0eUN4UjdGTkpOd2NSRkVVUXMxMG95R1lSOXFRY1VEVW1KdzdRblNYblJJenZFR1crbjFxZi9xekl3WTQ5cWJScVdSVzR5Q2RCOVRja3M0NzNVeXNRSU9vdWwxcysyMEY5c0JOSE1XVGROc08rM0ZkZ0RObklYeldRREFCVGhQTXdrRFh3UlIxQUpvNXNzZEZoR0V0elREdXBta0lFQ3pqZkRrRG9zSVFnRE50Q2xHckwwenRCYmpmbmFYOGQ0ZWNiWXE0TmRZem9hejk5a2RtZjlFNnR4WjJPek45UHU5UnBXaHRSakx1NDdqK2VuemZqenFjMFlnOFhLSlRvd3ZER2ptTFBaQk0xWmw2T3psOHE3aitWMmRRZWY4cGxaOEhGMW81Vmx6Q2cxc205L3VnV2JHT3lPMTI4anU2dkQ3NnllYWE1UjZEOXVUYWRlOENJcmV6Rm5zZ1daYWxiSFVtNWxkMUpzeC9iZzNZOFhIL0xSeG1ua3kraFlSaElBcFFLeE5NWXdxUTJzeGxuY2Q2OE9PdFZxREZSOHZpbWdtNGVJaWlLSVc3TTQwQTdJdVkxWEdkMzlBV293UHM3dXVIOUI4a3EwaFNhM0J4L2Vud2UxQjhub0JhQ1krQ0FFMHF3elFUSHdRM3RJTWNBR2dHV0FCb0JsZ0FhQVpZQUhPMHd6clpwS0NzRE1GS0dsdW9EUGw2cE1uK3pBMzhPUU9pd2pDQ3MzS21odm9UUGtYNlVGMGtqMXpBMC91c0lnZ0xOQ3N2TG1CZmhPNGx5VFVZVzRBYzRQTktHOXV3Sm55cjZrMHlqN01EWURtSWNMY2dIc3p0VHM1eUs2NUFkQThSSmdiR0JXamZranVhRzRBbXJrQUtlWUdpcHE2ekFYTURYeUU4K1lHRXVaWENLS29CZWZORFNSY1hBUlIxSUx6V1FBSkZ4ZEJGTFVBbXZseWgwVUU0UzNOQUJmZ1BNMndvT0VDUURQQUFxelRyTWppWUFrd04vQUU5bnV6SW91RERPeVlHM2d5K2hZUmhKd3BRS0hGQVluUlJzSGI5MnlaRzBDaDRaUkNZMHNVV1J3OEhmTDd2MkhmbHJtQkp4MkppQ0RFOVdZYkxRNUdRZEE1R3lxYXdkekF2U0JrMGV3eWk0Tm5ZeTMyNkc5bmJnQzRnSDNNTkMrMU9HaXJzVmlIeFIzYm1Sc0FMa0RzdWxtNDl1SUthT1l1cE5Jc09taU5WL2VCWnM1Q0tzM3lnTlM1K0NEa1RBSEtBelFUSHdSb3RoR2UzR0VSUVhoTE02eWJTUXBpM3pTYjVhYkhaNmdMY0RWZ3JUZkxUNCtqTHNEVmdIV2FMYWZIVVJmZ2FteHQwMndsUFk2NkFGY0R0bW0ya2g1SFhRQy9ndGozRkNET1Q0OVhyd3NBbWtrS1l0ODBtK1dteDFFWHdMTWc5azJ6WE9Ta3h5OERhQ1krQ0lrMHkwdVBYd2FrenAyRjgxa0F3QVdBWm9BRmdHYUFCVGhQcytxcnM1Nk12a1VFSVhFS3NDdEFNL0ZCU0tNWmF6TjRqWXp6NDdOZSsrY1AwdG9UR3dDYWlROUNHczEwOHVsWlVvQWk3RlBwaXJUMlJPYXc0OFh2b0puNElPVFNqTVVaWEJsRnZ4czh1alljdFM5NjE0WmNkMklhZEtPREcxOWVVbjVDaEFJQjI4dTNlNmVaRm1mRVU1MWQwazRIcjRaUGg5TjN1ZTdFODhQNDZmQXJ2WXJiVUc4R05JLzkwaXd0UUJISE9vOU96OHl6NGFNSlNUaTRJRUIwcUV1SUxXSmRBV2ptQXZaR3MvbEgyanREaXpPbVhMV0puUTdpNksxNy9EUk5hUFpzckg0c1lnVWN4UDRXTktJRFhXK0NKUnUvZnROVU9hU2U3YUZXT0hMZGlWbXYrOXVlS1oySTFMbjRJTVJOQVVvQU5CTWZCR2kyRVo3Y1lSRkJnR1liNGNrZEZoR0V0elFEWEFCb0JsaUE4elREdXBrTHFFNnpuQ1Q0ZmJZcHVEQ3YraWJnRlF3cXBUa2YwQWxkV3ZyWHF4aWNMK2RYaEJkcnNjYjRnRjlWNldkalhRRm81Z0pxNk0zeWt1QmtVL0I1ZTBFemVpbnU1amlldlVmcnJYRjBUN3NYZkJFbmxRSDRtSTg2Y2Z4Zi84bDRxVjA2YzJvYVF1cGNmQkFOVGdIeWt1RDBZdS84OUtMWG5YSUgxcDBHM1pCZXRneTd0UHIvbXdtLzc2czZQbE1aUVBWdkgzZG5QM2wvSFAvbTM0NURlcVdPL2s1cFJzV0JtMHVkdjZ5ZUdrWmRBTE50c0M1QWZoSzhFL01MNC9SYXIzcm1QVCtNUi9Ub283eFNkL2FwZHNyNGVqTGxVdFdjTC84c25uMDY2cy8vdzBOcW9zOS9hNXBSVXhyb3pjUUgwWFJ2dHBJRTE3MlpwaGtSUnowa1RXOFd6OTcvTzdJMWlQbFY4cWREa3k5WGY4MCtqVzc5bC8vNGNFekROLzdiOUdiUnJVazIxaFdBWnBLQ2FKQm1lVWx3RWlNcW1rVW44YWoxU1o5cFJoTUVHcC9Gby9Za05zNVM4enRqblMrUERzK0dzMC9uSC8xbzhuRDhjRHp0ODk5c2ZLQ2FDcnZaV0ZlQUtZQUxxR05CWXkwSmZ0N1Q4OGgrNHU5UEdYQjlXQnpyYm96Y0MwSjltc0x0d2UzQjlZT2dQKzJxS2VzblFmRGRIL0RmdWpwZGR6N1EwbTJzbXprTDU5Zk5BQmNBbWdFVzREek5KQXg4RVVSUkM2Q1pMM2RZUkJDZzJVWjRjb2RGQkFHYWJZUW5kMWhFRU43U0RPdG1McUFzemM0ZUROSWtVSXJFRjF1TE5Ob3ZCc0gxQXkyN29NV3h0ZU9YS2xGQW9lRXpTdExNV0JHc0lOUlNpdFNwUVAwL2tWM003NHpuZ3hVUDBPVktGSHRUYUFETm94VE5UR0dJU2ZoQjhFSFFuNzdUYTUyekZvUFNTd2Mzdmt5Y0NwaG1SbmFoYUVieWpBSFpHN2MvRDdxaDZyUlkwV0c4REZSZnR5K0ZCcmJOYjB2UmpBdERVUDJSenJRVC9VZzk1c0l1SjhrVnpkaUp3SWcwcUFKVElydlF2Vm5Zai9uUWgrUFpsMG5OQ1VxZDg5bFFhT3k3Q1dGVEFDNE1vVmd3N1UrNzBZbmlTSFNZME15TXJiVGpQL1ZtUm5aQnc3TU9uUmdkenUrY1B6cDVsaW82eU11QWtxRVRLRFQyM1lRd21uRmhpSXNNemNJdWF6R2VuRTdJaVNCMUttQ2FhZGtGUFRUVmlTUTNpOE5iVHdacVZLWVZIZXhsTUtWUld6bUZob1NMaXlDS1dpaEZNM29nM2g0RWI2Z1JWQkMwSHZQRFVkZUs2Sk1Ud1NzdDB0QXpUUzI3VUtCZWpzWm1pbjJmeHMvR2lhSmpRbEsxNkNBSWJ2UktLVFFrWEZ3RVVkUkNEZXRtMDI3eE1RVlE0N241M2NLamtEcDNGdFZwdGxqcEtvL3djamRRQTlETVdUaWZCUUJjQUdnR1dJRHpOSk13OEVVUVJTMDRUek9zbTBrS29qck5ja3dNaHZ6REZMelBJcHNVbncvb2pSTjFuSG5uUkU4WkJKa2JlSEtIUlFSUlEyK1dZMkpBUHg0TTFoYzBscExpbFB5a2c0MjdBYjAxRjhQY3dNOGc2cVRad3NTQWY3Qi9QNzBNTjMzNzV1TjNlaTF6eEl5ejZXcmYrZEdFajB2ZUIrWXN1aUJ6QTJ4RnBjNXpUQXo0aCtxbDZOWGU2ZTFCK3dXbjBjMFJsT1pVZkpuUWVYUmM0bTVBTkpOa2JnQTBqMTFwdG14aXdEL1lXSDNHcWFLWTAram1DTTZtcHlud3NML1dtOFV5ekEyQTVyRUR6WEpNRFBnSDA0enkzWnBtaWtqNkNNNm1QMmE2Nk9PTXU4RmliQVp6ZzZ1Q1hSWTAxa3dNeHBRa0g3Ti9meGdFN1krcHhCSm56UGtJMGlyMlJ6U1g3UEJ4aWJzQjU4dHJNemVRTVBCRkVFVXQxTHh1VmtNYWZUTkFNL0ZCMktGWkhXbjB6UUROeEFmaGJSWkF3c1ZGRUVVdE9FOHp3QVdBWm9BRmdHYUFCVGhQTTZ5YnVZRGRhSmFuMGhpdDJ4YlFHMDNyQmdmWDNzd2NCNFdHbDBIVU5BVllWMms4T0wwNGVySHl1a2pZbnVRWkhDUjJDRlNMQWdvTkw0T29tMllMbFFidjR6ZmpVcWtHV2JYbkdCeW9YL2tRcWtVaFNLSHhzcm9DQWVVbnpMYW04aE41S2czYVI2NEY3NnJuSFVzMStvcG1lUVlIczZNWGZNanpRMUVLRFU4NkVoRkIxTm1icmFnMGFCKzdGcVJTRGFKWmpzRUI5V1owQ05XaWdFTGpTbUZIbXVXb05IUnYxc2xLTmVpaG1XTndrS0ZaZlFvTndBWHN1cUN4cnRKZ3NRV1B6VktweHZOY2d3T2FhZkloVklzQzVTZXVGSnhmTndOY2dQTTBrekR3UlJCRkxZQm12dHhoRVVHQVpodmh5UjBXRVFSb3RoR2UzR0VSUVhoTE02eWJ1UURRRExDQU9vcFFyOHMySGhqZEJXZWtERmlUd1pqcUpUVmUyNmRUZU8zczJuMlVuL0FYZGZSbU9lWWF2SUsvVk1URXJQc1RFbUVHZ1UvUktnMlVuL0FYdGRKc0lkdmdYWnh0b25vVXFrdlNtZ3lxVkRGT2hCbDhMcCtpODVwUWFPejdlNGhSYU9RaVI3YkJ1NkxEc00zMUtNZ0ZnVFFadWxLRkZtYVk4azY2QklWV2FVQ2g0WHdRVGM0MGMyUWJwamN6OVNpSU9ybzNZNHNOSTh5Z0kvVXBwamREK1FubmcyaVNaam15RFRNMm0rdDZGTlNiOGRoTVcyeWt3b3dUYzRwV2FhRDh4TDZia0UyemRkbEdvdkEzOVNqNHdVZWFETExZbUpBd2d5ZVFhZ2pHcDN6M0I2VFMrTEJjK1FuQUJkaGRONnRtc1FHYU9RdXJOS3Rvc1FHYU9Rdm5zd0NBQzNDZVpoSUd2Z2lpcUFYUXpKYzdMQ0lJYjJtR2RUTkpRVFJNczdNSGcxV0hnelJ2bWVOelFHOE53OXpBd3lDYXBabEpscThnMUNudlBKOERTZVlHUVBPb0pRc3dvQVhYbzBuNFFmQkIwS2YwK0RtWG5waWZjdUk4eitkQWtya0J0czF2NjZCWlNBVUFaa2NYdmM2MFk5TGpYQk5BMFl3UzUzaytCNUxNRFlEbVVRZk4xT09QYytGVUdTQTY0ZlI0UWpNejFGcnpPWUM1d2RWQ1RiMVoyTDdJMEN6c2N1bUpKenB4bnVkeklLbjhoQ2VqYnhGQk5Db0U2cEU5UWZDR0dsQUZRZXN4UHh5cDlJUkpuT2Y0SExUR0tEL2haUkQyMXMyYXEwQUJtb2tQd2hyTkdxeEFBWnFKRDhMYkxBRGdBa0F6d0FKQU04QUNuS2NaMXMxY0FHam15K2hiUkJBTlRnRjJOVGVndWVoTWtMbUJKM2RZUkJDTkxzL3VhRzVBVmFnRm1SdDRjb2RGQkdHRlp0dVpHeXpSRE9ZR2l3RDIvajI4TWpmSTBreUN1UUhRUFBaaGJwQ2htUVJ6QTZCNTdNUGNJS0ZaTGVZR2dBdllnN2tCSFhRQmM0TXJCZWZORFNUTXJ4QkVVUXZPbXh0SXVMZ0lvcWdGNTdNQUVpNHVnaWhxQVRUejVRNkxDTUpibWdFdXdIbWFZZDNNQmRSQXM3UGhLQWhXclEzb0xhWjFVd01xcWJrNFpqbnB1VGR6QTZCNVZLZFo5UDBIcHhkSEwrNHU3dzNia3p4VGd5U1ZPVHVPVGRwOEFaZ2IrSXVxTkdOakEyWUVGd2lPZnRnakd4WTJOc2d6TmFCY09oMUNlVStkTmg5ZEc0NTR0YmFEMVBtK3Y0ZmMxRGtiRytoeTUvMDRmRmM5OGtqdXcrWE84MHdOWmtjditKRG5oMm5hblBLWi9KSTY2Z0xzdXdtNU0wMDJObUJHcU4raXcraUUvQXA2QWRNc3g5U0Flak02aEtvRG1FejcyZkFSNTU4bXFBdXc3eWJrMG95TkRiaG1TZGlKeWR0QWNZaHkzL1RRekRFMXlOSk1wODNqNksxN2xHNVhoSUs1Z2ZOQk5FVXpkakhndERpUHpVYXQ4MTRuVkkvSjU3bW1CalRUNUVObXZYZE5wbjFDRXFMb0lBaHVJSFh1TDJTc20zMDFqdWQzQzQ4Q3paeUZESnFGeGhqMGNvQm16a0lHemJZRGFPWXNuS2VaaElFdmdpaHFBVFR6NVE2TENNSlhtdjJEaElzcjRnNkxDQUkwMndoUDdyQ0lJQVRRTE5mUUlMUEw1S1dtWkpOZ25CRE9oclAzeDN4b045NUFNeHVSQTFWaHN6ZkxNelJZMm5VY3owOG5WSlBDT0NGb3BWQjBFcDFrWWwwR2FPWUU5a0d6cktIQjBxN2orZDJZYTFMd3U4T21xZ1cvYTlmZHBORDRoNVcvc1JXNTNRUE5sZ3dOVm5aMVlxNUp3ZFVwV1B3UnFxZG8xN3gzaDk3TVdleUJaa3VHQmt1N2puWEc2ZW1RZXpNV2YxQUsvbEthU1JqNGloaDlpd2hDd0JRZzE5QmdhZGN4SHphL282dFRzUGpqUlFITlJGeGNCRkhVZ3QyWlpvNmh3V0xYOVFPYVQ0YWMzUndaUldSL1NvVXR6TnNBb0puNElBVFFyREpBTS9GQmVFc3p3QVdBWm9BRmdHYUFCWUJtZ0FXNFRqT3NtNGtLb3RvVUlOLzZ2N04ybUZuVFgzYzFvTldMdGVQck1EY0F6VVFGVVhHbXVjSDZmd1dobGx2a3VSck03NHpuZy83eTRYV1lHNEJtb29Lb2kyWkwxdi9oQjhFSFFaL00vczk3M1NrN0dsQVpnRHhYQTdJMURpa2IzcjdvdFQ4UHVxSHF0T293TnlDYVZVenR2cXllR29hNWdkbFdORGZJdGY2LzZIV21IV1Ayei9ZRWltWlVCaURQMVVEM1ptU0FRSWMrSE0rK3JNZmNBS2x6SjdBTHpkYXMvNmQ5ZXMrY3pmNFRtcG14MVpxckFRM1BPdG9BWVg3bi9OSEpzM0U5NWdhZ21SUFlrbWI1MXY4cHpVSnlOUmkxbnVneUFIbXVCdlRRakxVQlFoemVlakxvMW1SdUFKbzVnVzBYTlBLcy85OVFJNmdnYUQzbWg2UE9jM01aZ0J4WEF3WHE1ZGdBUWZGSlBYL25NRGU0UXFoaDNheWEyVCtqZ3JtQmhQa1ZnaWhxb1RyTktwcjlNeXFZRzBpNHVBaWlxQVhYc3dBaUxpNkNLR29CTlBQbERvc0l3bHVhQVM3QWRacGhRY01KZ0dhQUJkUkpzM21PYUlQQkNhcXMxc0xzSWt5RDFpL3UwYy96Y2dxTldpSUhHa2F0dmRsU2NZbVZqNDR6V292TTU5R3R5YXpYamNuUkFBcU5mVGZoeUJRZ1UxeUMxR1BUdDI5K3dob095a3VwWGF5MW9CZms2SStqQ2FjRW52SnlHVHNhUUtHeDcrK3hkNFhHZHNnVWwzZzZuTDQ3YUdzTngwbllucWhkaWRaaTJsZC9jTEdkT093KzVNNkxIUTNLS1RRay9EY3NvaU1SRVlTMTNzeTQvbytDb0RQdHhqcTVUanEwUTZPMUlQMkYra1B0WXJuR1diTDQvM1JZVHFFaDRlS0t1TU1pZ3JCTk01SkFydEdNdEJaYWYwRTAwL1VxRkljb0tUcS9NeTVYZmdKd0FYWFBORTF4aVM0OTYwYXRKNG1Hb3ovcnZhTzFGdjhzSUFGdGR4cjB0VnhqU2pvMEdyRE5vTkR3RjY2dm13Rk9BRFFETE1CNW1ra1krQ0tJb2haQU0xL3VzSWdnUUxPTjhPUU9pd2pDVjVwaDNVeFVFRTNRTE1meVlNZy9qTUY2Q2wwRWdONVl1WDVBUHRrQjFVUHZjdHI4aWY0b0xtMXVVQ3B5d0RJcTlXWTVsZ2YwNDhGZzlTVVVYbWxsdzRNNWZmWk1tOHZxaERuWEIrQ0RTcVhPeTBVTzJFVTlORnRZSHZBUHpwOXpqdnp0bTQvZlViL3pnZnp1NXZ3bmc3NDZoYTJ5ZGNLYzNqcWZjNnE4Vk9wODVXOXNSVzVyb1ZuRzhvQi9SRGZIbEt1YzNoNjBYN0QxQVIvSXZ0bnp1N1AzaHMvR2JQeXZFK2FtUHNCbk1jd04vRVYxbWkxYkh2QVBUbXpxNUZITTFnZVozdXh1SE4xNnBIdXptQlBtWEIrQVUrVkluVHNmUkNNenpSekxBLzdCTktNTXVLYVo3czNNMk95dTRtSExqTTA0WWM3MUFUaFZYc3JjUU1MRkZYR0hSUVRSeklMR211WEJtSXdOeHB3L0Q0T2cvVEZKSE5ubHdNdzAzeGpRZzFWMWdHVDhIK3A5Q3JjSG5Db3ZrenFYY0hFUlJGRUxqYStiMVdCOWtBQTBFeC9Fdm1oV2gvVkJBcVRPbllYcldRREFDWUJtZ0FXQVpvQUZPRTh6Q1FOZkJGSFVndXMwdzdxWnFDQnMwdXpzUHJ0b1g2d1VEdUJGTmxyaW4rc2NGTG5uZGVkVkZSb1NMcTZJT3l3aUNJczBvK1grNDNoKytubDdRVE8xSTdvNWptZnYwY3QxY1hTUDF2OWpUZ1ZVVldoSXVMZ2k3ckNJSUt6UlRIVlBxcytpcXVYejB3c3VTcUU2cE80MDZITEtLT3hTZ3VvM0U2WlphQnkzb2REd2Zsczd6VUt1SkVHeWlqbVZLYWVhNWVxWjkvd3dIdEdqajFLZjNkbW5uTTJNV2FZQmhjWlZRTzAwT3h1UzdFTDNacHBtUkJ6MWZEUzlXVHg3Lys5MDBqelRtMVZRYU5RWE9kQWNtdWpOd3ZZRk9VdVJwUUVWcGZpa3p6UWpJVGVOeitJUkRiV1d4bVlWRkJxQUU2aWRaalExL0xDbkJZNTlMa3BCanozeU1PT1pabXlTNlZ4NFltUm1tbEJvK0JLRXIrdG1JaTR1Z2locUFUVHo1UTZMQ0FJMDJ3aFA3ckNJSUx5bEdlQUNRRFBBQWx5bkdkYk5uQUJvQmxoQUxUUmpHVVZuNmUvMlpPV1lzL3VwQWlNNkNONDluYkRieGlqZ2VxM0JXdDBLZHVYSWpYVVpTSjJMQ3FMWktjRDh6bmcrU0NxWVVLV0pvMVdXa1d6REtEQm03dzIxWDN2MC9RZW5GMGN2N2k2ZGJjQ3VITG14TGdNMEV4VkU0elNMdzI3aW1oRVljUVY1R0d1UmhwWnRKQW9NVFNBdDc2RWo5ZG42NlBiblFUZHNqYlVyeCtqYWNLVDJjVitIOGhQTmZ3L3A1U2VTL29oY003alNCTk9NNjB0b2tRYkxOb3dDWTlRbkFuSXRsSlJtNnV6azZJZmoyWmZHbFlQVDZ0d0EveXZvemNRSDBYQnZOcUFleDdobVJBbk51TDRFczBUTE5vd0NJK3pvN285NXlEVGpzL25vK1ozelJ5ZlBVbGVPcytHamlVNS9MbUpkQnFZQVRxQytoMlljRzljTVE3UG9STmVYWUpFR3l6YU1BaU02Nk5NSjAxVHRZempYWWIrTlcwL0lBVTI3Y3NUUlcvZkltbU1wVnNCQjFEWFQxTkorZHMzZ1NoUEdNNE9OcGJSUzQ4T2t2QVROTkZYdnhXNGJKTkl3Wit0cUZMTlA0MmZqeEpWalFtNGIrdWhGcklDRGtMOXU5dFU0Smh1aEdEUnpHUEpwRnBvM241QTZkeUFJYjFQbkVpNHVnaWhxQVRUejVRNkxDQUkwMndoUDdyQ0lJSHlsR2RiTm5FQlptdVdVbm5nd1dFdUFKOGxOK3ZoK2o5MUJyeCtrSGdiTDZYR1VuL0FZcFh1em5OSVQ2d2x6U3BIekp2bFkvWC9oWWJDU0hrZjVDWDlSbldhTDBoTnFWL2hCOEVIUW43N1RhNTNyblBucEpEcTQ4V1h5TWRQTVpORGoxZlE0ekEzODNWYW1XYWIweE96b290ZVpkcUlmY2NrSlRtWXFtajBkZmpYV0g3TlAwQ1QxTUZoTmo1Y3pONUF3OEJVeCtoWVJSTzFUZ0p6U0Uyb1hKVFdqRTA1c0pqUXpveTMrbUhzemswRmZTNCtqL01TK214QklzNXpTRTFtYWhUcG4vdVIwUW5YQWtvODF6WFFHZlMwOVhzN2NRTUxGUlJCRkxaUmYwRmdyUGZHRXFrdTBQdzZDMXVNZ3labFBnLzV2VmVkRWFmTHpaS2FwTStqWDNseEpqOS9vd2R6QStTQ3NycHZ0WEhKaWtSNi9ERWlkTzRzbWFMWjd5WWxGZXZ3eWdHYk93dlVzQU9BRVFEUEFBcHlubVlTQkw0SW9hZ0UwOCtVT2l3Z0NOTnNJVCs2d2lDRDJTak5kWTRLTFVuU2lnL2FFWnBhQjBWL290RGlKTlV3eWFrVEpwVERnTlpHejRlejlNWi9kalVFekI0TFliMittYTB6bzEzN245SUxjczdGSkpSbFJCNHMxdUdqRjgzNDg2cHNhMVZvcEZKMUVKNWxZQVFkaGpXYXZob21Kd1U4Ry9UV2FzVmlEYmQ2NVdBQmJ1V3RIaENOU2I2ak9iSU5DQTFzbnRtczArOTFyci8vK2oxK1A2NFd1TVdGNnM3dXo5NFlyTkROaURSSmpoRjFGTTgwMXRrVm9UNlpkazFWQWIrWXNWbW4yelY5Kzg5ZnhOMy94czNyL0ZkT2JzWW1CNnJHaVc0K1dhYWJGR3R5Yk1TTzVOMk5IQks1aEFacTVqbFdhL2VGZktacjk3dHUvcXZkZjBUVW10SWtCSlMvRDF0am9ML2luRVd2TWp2WEJ4N293QlJleWVGRkVNd2tEWHdSUjFFTE9RL08xMTc1VmMyZW1hMHg4eUNZRzZuZEZtb2ZudlhUeWVlMkJsbmxjUDZCUCtQMEM4anlJamNUajlpQlJ0SUZtNG9QWWJhYjVuMnZtV1QwQXpjUUhzUlhOdnZtejF6VHE3czdxQVdnbVBvanRlck8vTldNeWgzb3p3QVU0bjJ3Q1hNQWF6ZWpCK1owOUJWTUEwTXhackMxby9OWHJhclpaOS9Kc1BRRE5uTVhhOHV3L291SFpibU96TW1VQkx2UXhsZXNDaUJqNElvaWlGdFllbXYvcHgrckh2OXR0Q2xDbUxBQWZNNjljRjBERXhVVVFSUzNrTDJqcytOQXNVeFlneVdaV3JBdEFYNnhpYXZkbDlkUXc2Z0tZN1haMUFjeUN4dS8vY2J3VHlwUUZPRitpV2VtNkFDTCtHMFlRUlMyc1BUUi9XbUo1dGt4WmdHeHZWcUV1QU9BRTFoVWFmL2hYOFRkL3ZWc2paY29DbUtRNTZnSmNDYXpSN0svajMzM3ZELzlpMTVubXptVUJadm9ZMUFXNEdsaDdhUDd5V3ovN3FhajFXZFFGOEFEeUZScW9DK0JRRU5zdGFQekZ6L1NhQmhRYXRwdndKSWl0WjVwL3Uzc1d3QlpBTS9GQmJFdXoybDhEcUJHZ21mZ2d0dTdOT00va1VHOEd1SUMxM3N5MXNSbmdBaXlPemJhek9GakNGdVlHZ0F2SVhkRFlOYWU1SmJhek9NZ0E1Z2Erb0phYzVwYlkwdUtneDhtQnQrOXRaMjRBaFlaN0NvMlNPYzB0c1ozRndkTWh2LzhiOXJjek41QXd2MElRUlMzVWtkUGNGdHRaSEl6VXgyZERSYlB0ekEwa1hGd0VVZFNDelp6bWRoWUhWQWNxTkwwWnpBMGNDMkpybWpXSDdTd09TQzNiU1hVZHhlWUdnQXNRKzU1bTJGL2JCWm81aStYVStWL3VNWkpsUkFmckpTeEFNMmV4K3NxSnpQVi9EZERNV1N6VDdLODUyU1R6WldCTUFSd0lZcGNwd0MrRjltbWdtZmdndHBNMS9qVzVHMGpObklObThvUFlqbVlrei9oZTVYOHJOdjRHYkx6SWVjbFpyLzN6KzBzSmN0b3pYRGtsY1QvSU5LR05FL3JaV0ZjZzRlSWlpS0lXVmtYYWxmOGhnNlFVdWs2SGgzMXlOOGdteUhuUHlpbkcvV0NwQ2ZKS21PSTlUZGZSMUxwWlNqTk9oek5SbGhMa3ZDZjhJUGdnNkllME5Odit1SnU2SHlSL3B6U2o5K2RRRjhEbGJkTTAwK253ZUVxV3hka0VPZTJaOVRyVERvbDhwdjNaMFdkeDRuNlEvcTFwMWt2ZGd0Q2JPWXRHYWZZd2RTbWdwK1JTZ3B6MzBGdnEwUW1aSXRBTDU0bjdRZnEzNmMyaVc1TnNySUNEYUlwbTg0K0d6Qk9kRHA4U2I1WVM1THhIMDR4TUVhSkQ4bkxSN2dmcDN6cXRmaHdiRHlGTUFlUUhZVDExSGgxb2Z3Tk9oLy82emFCMXZwUWdwejFQMUFnc0NGcWZCTUYzZjNCN2NQM0F1QjhzL3RacDllNThvTjhIQnMzRUJ5RkFvVkVab0puNElFQ3pqZkRrRG9zSXdsdWFBUzRBTkFNc0FEUURMQUEwQXl6QWVacEpHUGdpaUtJV2FxZloyZjJNcG1JQnlpbXgycUw5MjRNZ2FJMURldVZrU210bmdiSEpnMEpqNzAyNFF6TlNZaXcwRlNuWXk0RFM0UFBUNS8zNVIwTXUveHQvRVNlT0IzUk1PWVdHaEl1TElJcGFxSmRtMm8rQU5SV0w0aFBVSVhXaUgvWmF5TmtpYXdBQUlBQkpSRUZVWXk1bUhyTmhObWVmZXRSZDBUdkM4L0lLalplVkZRUXZxeXNRWUc1Z3R0dWFHMVNEcmpQQm1vcEY4UW4rRWQwY0o1OW9Cd1AxR1AxNk1tV3I3V3VVL29SQ3cyZlVTek5kWjRJMUZZdmlFMnk5cnNabTlBbjFacU4rckhzemRjTFRvWFk4Z0VMRGI5VGVtNFh0QzlaVUxJcFBQS1lSdktHWitvMGVxSGYxMkN3dFEzRllYcUVCdUlCNmFXYnFUSkNtNGtGYWZJTHJSNHhhNTcwYjZwUFltT0tOMVA5RHJlRlF1RDBvcmRBQVhJQ0ZkYk5GL1lpS3dFeFRmQkI3VEowdjZrZFVCR2dtUGdodkZSb1NMaTZDS0dvQk5QUGxEb3NJd2x1YUFTNEFOQU1zWURlYTVYZ1dEUG1Ic1ZSZk96cWc1UWh5WHlRckEzNEx4U1RIYTB1ZEF5NWd4OTRzeDdPQWZqd1lkSE9QUGpZTHNIeGdkSE1jejk3VGp1MzFwYzRCRjFDV1pndUhBdjdCbVhGYWJwMitmZlB4TytyMzBiWGhpUElCbW1iYXlvQ29xSDV3WVFDa3pwRTYzNHdjendMK3dabHg5ZXZ0UWZ1RmV1eUZYV1pQa2hhZjhER1V5K1JVMDUwNlUrY1M1bGNJb3FpRk1qUmI5aXpnSHpwbHllWE1LZXZOejhSSEUzcG9Eb3lwQVJ1d0wvZG1jUjJwY3drWEYwRVV0YkFqelhJOEMvZ0gwNHh5M3BwbWlrelJXL2ZvZ2FmNk1IcG84akZxMWtEanM4WFlySTdVdVlTTGl5Q0tXdGgxUVdQTnMyRDhpbjVRWnJ3VEJrSDc0OVo0eW1YbFl1NlcxSzh2MUV5VGp6RXpUZFlGSVhWK3RkREF1dGswZDlaWkEwQXpaMUUvelJZclgzVUROSE1XeUFJQUZ1QTh6U1FNZkJGRVVRdWdtUzkzV0VRUW9ObEdlSEtIUlFRQm1tMkVKM2RZUkJDV2FWWlVma0l2cVUyV1Q0RkN3MXMwWGhkZ1Eva0o5amxZZGtDQVFzTmY3S3Y4Qkw4WmpQSVRWMlc3ci9JVE15NDFqZklUVndUN0tqL0J2VmtkNVNja0RId1JSRkVMK3lvL29YME9VSDdDc3lDc0wyaGNYbjdpK2dIN0hLRDhoR2RCWU4xc0l6eTV3eUtDOEpabWdBc0F6UUFMQU0wQUN3RE5BQXR3bm1ZU0JyNElvcWlGWm1pV256a25RKzJEOW9RTXoxYno1akhxQWdob3dqV2E1V1hPNTNmRzgwR2ZDd1E4R3lmNXphVnpVQmZBK1NEMlJiTkY1cHpmQXU3T2Z6TG9welNySTNYK3NuSnE5MlgxMURETURjeldUbDJBRkRtWmM5T2IzWjI5TnpRMFErcjh5cUJKbWkxbnp1bkZYL0pxajZOYmoweHZWa2ZxSEhBQkRkRXNKM05PRDgyWVBiWERsclkwT0tramRRNjRnS1lXTlBJeTUyb09xZllvemp4TTB1ZzFwTTRCRjRCMU0xOG1lU0tDOERaMUx1SGlJb2lpRmtBelgrNndpQ0JBczQzdzVBNkxDTUpibWdFdUFEUURMQUEwQXl5Z2RwcHRLYzRZMGE2VkUyRnU0QzNxNzgyMkVtZk1UeStPWHF3VTJZUkNZOTlOdURRRjJFNmN3WWRCb1FHRlJsbHNKYzdndzJwUmFFajRieGhCRkxYUUVNMEt4Um02OWduTURUd0x3aDdOdGhOblpHZ0doWWIvYUdCQll4dHh4cERxVDlSaWJnQzRBS3liQVJZQW1nRVc0RHpOSkF4OEVVUlJDNkNaTDNkWVJCQ2cyVVo0Y29kRkJBR2FiWVFuZDFoRUVON1NESEFCZGRLTVM3RHFKYTVWaEVGU1pITWFzQVRqakdVYlhYVktra3FDUXNOajFOcWI4YnI5OTVsbmJHRnM5aDRuTmFjSlgvQlBxa1p4bk5TZ05nZWgvSVMvcUoxbVpKbXQrcVZwd0J2VkdYWFZyeUVYUlgrbjF4clBlb296cWcrN3RxQlo5TU1lVmE1RytRbVB0L1hUTERwOE9weDJueC9HdEZIOGl2blhPUHFSZWh5RzNhOG5xbThLdTZwelV3eThSdG5QRjJyLzJWQWRCSVhHdnB0d1pBcGdlck1SYVdVUFNTRGJJZEtvWDNWdjFxVmZZOFU1OVFCOXlyM1pnR3BTUkNmcXIrZ1FDbzI5TitFUXpkU282NW5tRm0yb04xTy84dGhNTVllMEZ1cEpxVFpoKzBLTjNrYkxORVA1Q2RlRHNFR3paS2FwNnpGMTlZWi9KVDBHQ2REb0xRRjlRUEFobHpwOG9XYWFvOVo1VHgzMFRnL2xKNXdQUXNDNjJiUmJmTXlsd0V6VFdkaWoyV0pGckN4QU0yZUJMQUJnQWFBWllBSE8wMHpDd0JkQkZMVUFtdmx5aDBVRVlYTkJJd2RwNmp5WkNOU1dPcGR3Y1JGRVVRdldVK2Y2WmJyNlV1Y1NMaTZDS0dyQmR1cWNhWWJVK1ZYYjJrNmRHeitOK2xMbmdBdXduam9ubXRXWk9nZGNnUFhVdWVuTmFrdWRBeTdBZHVxY0RBOG1TSjM3R29TQWRiTm1VdWNTTGk2Q0tHckIrZFM1aEl1TElJcGFRQmJBbHpzc0lnaHZhUWE0QU5BTXNBRFFETEFBMEF5d2dDWm9wdFVYN1F1VEZVL0FacUcweEQ4ZjBLc25YVFk2ZUpLcU9xRFEySHNUVGswQmpQcmk5UFAyZ21hazByZzVqbWZ2MFhKL0hOM1RrZzB5T3FDMS9sZGExQUdGaHZOQldLT1pVVi9NNzFJbGsxNTN1bEJwME9wczJDV2o3ZDlNT01uSlJnZUtUSytHYzVTZnFIaCtMZC9Eb2ZJVGlmcWlvMmcybWRJZlJxVXhva2NmV2JoM1o1K3laT09FalE0U29RYktUK3kvQ1lkNk02Tys0TjVNMHl4UmFlamVMSjY5LzNkRExkbUl5ZWlBZTdPNGZQa0p3QVUwMFp0cDlRWFJMRHFKUjYxUGpFcmorME1lbjhVajlhZzBjbG9qbjQwT1VYN0NielJSNkpEVUZ6eVA3Tk1mL1VTbHdUUE4yS1RRU2JJUjZqSVZDcmNIS0QvaE5iQnVCbGlBOHpTVE1QQkZFRVV0Z0dhKzNHRVJRWUJtRytISkhSWVJCR2kyRVo3Y1lSRkJlRXN6d0FXVXBobG50a015K2VmM3pHZTk5cy92WjlMY0MxQ1ZhZk15aXRxOE93ZzR5VlJiNmh4d0FlVjdzNlNtZWZ6VlArM1NtM0k2WXo1dEw4c3lGRys2Y2ZwcVhYUnJRbXY2cjRiMXBjNEJGMUFEemI0Z0dqQVZkSnBiOVZudE5Ha2VkTmk3d0x3b1ROeFMvM3RVWStvY1d4ZTIxV2syKzNMMlBxVzcxVk5RcDdrVmhjSXVVNHAvUkRmSE9uRkVHU2JGclkrUU92YzNpUHFuQU13Q1JZcHBNbmdLK3pyTnJicXI2RkQzWFBUdUw3OVVudlJtczZQZm5OZWJPcGR3Y1JGRVVRdmxhVWJDTVdMQ2J5WXM3K0duSUtlNVF4TDdjTkw4TWRFdnBSbFBGVVlkK2wrTnFYTUpGeGRCRkxWUVlVR0RVK0ZxSU5hblR1dlhid2F0YzUzbWZqQXcvZ1Y5ZFlUMkxuZ2puVThxT2tiMzRocFQ1eEl1TG9Jb2FxSFJkYk92eHZIOGJuM05ZYWJwTEJxbFdiakpJN1FjUURObmdTd0FZQUdnR1dBQnp0Tk13c0FYUVJTMUFKcjVjb2RGQkFHYWJZUW5kMWhFRUh1bG1SWm9zSUNqRXgyMEp6UUZEWXorUXFmRmFlbVd4Ump0eVpSVUg2WmN4ZGx3OXY2WXorN0dvSmtEUWV5M045TXlqUGtkUlprK1N6YWVtYm9UU2ZVSlZubXdKY0tFWkJzbVNhQkxXVVFucENXS01RVndHTlpvOW1wb1RMVG5QeG4wMTJqR0tnOStpWmhsRzV6eTFEWUpSeGRjZFFjS0RhZTNsbWpHTWd6VG05MmR2VGRjb1psV2ViQVlnMlViTE9CZ200UlFQVVc3eGh3WnZabXpzTnFicVVGV2g5SlAwYTFIeXpUVEtnL3V6V0tTYlhCdnhqWUo3SkFBbXJrT2UyT3o2RkJYQlNNcWhWcm9HSjNvbjBibFljcUpxY040Yk1ZMkNTK0thQ1poNElzZ2lscXdOOU1reTRNV2x3VlRwSGw0M2tzbm55VHBJSlhIOVFQNkpPUTA2RWlMSklQK05MZzlTQVJ0b0puNElMQnV0aEdlM0dFUlFZQm1HK0hKSFJZUmhMYzBBMXdBYUFaWUFHZ0dXQUJvQmxoQVJacnRaSEdnYytPL1BRalU4YWdMNEdVUVRVMEJkck00b056NDgvNzhveHJORFNSY1hBUlIxRUp0Tk52SzRrQm5rNmdhTmVvQ0xHOWZWankvbHU4aHR5N0FiaFlIL0FrZENITURQNE5vdERmYjJ1S0Flek9xUTRHNkFGY0xWV20ybThVQjVjYnBnWG9YZFFHdUZpb3ZhT3hnY1hDRHlnVVl5VFhxQWx3cFdGZzNxODNpQURSekZoWm9WcHZGQWFZQTRvUHdOblV1NGVJaWlLSVdRRE5mN3JDSUlFQ3pqZkRrRG9zSXdsdWFBUzRBTkFNc29DTE56b1lqY2l4SS8wN2RDdUt6QjBaN01RMWF2L2hzb2I1SWJRdzZLMDNwVjh3ekRkSHlHbWV3bG1NRkhFUTFta1hmZjNCNmNmUWlzeXFXdkVaT1NnM1dYa1MzSnJOZWQ2RytZQ1dIZmpGNHVTMytJTlBRY2F4ZnVGdU5GWEFRVldqRzdnTk1MSkpqVEJaMUptTGpTMERaeXFkYTVHUFVGMGJKWVd3T1dNVFIvanpvaHFxYjR3OUcxNGFqTnRrWmREVE5WQnZjTEJRYU5yNkhUSVVHdXc4d3pVaU84YTU2SkpvNkUvb1RyYjE0eUQxU3FyN1FTZzdkbXlVaWpvZmoyWmVKdndGUmM3bzRPMnkvNEdiNTM4Tk1VM3dRVGN3MDJYMkFhY1p5akVXZENmMko3czAwUlJMMWhWRnlhSnNEUG10KzUvelJ5Yk5VNG5FMmZEUmhTUWYxWm9QKy9GUnJPekt4YnZuRnRvY25kMWhFRUUzUWpOMEhKdHliR1RtR3FUTnh3cDljYU8zRnJRbXBOb3o2d2lnNTlLaUx6NHJEVzA5SVdxcy9pS08zN3BIT2c4ZG04UWcwY3l5SUptakcrZ3ZXV3ZEWXpJZ3dhSHBKbjdBcEFTbkhhS0RWMCtxTGEyOG1OZ1kwM09LelZFY1hQeHNuRW84SlBXUkowbkVqOGRUclU3T2RUS3lBZzVDNGJyWkowZ0dhT1F1Sk5Oc2s2UURObklWRW1tMENhT1lzbktlWmhJRXZnaWhxQVRUejVRNkxDQUkwMndoUDdyQ0lJR3FsV1k2bHdVb0tYUjkyOUdKeitqeGVUNWJEM01ENUlPcnR6ZFl0RFZaVDZBU3pkcnNoZmI2ZUxDOWxiZ0M0Z0lvMFcxZ2FyS1RRK2VXNDA4a2w2Zk40TFZsZXl0d0FXeGUyMVdpV3NUUllTYUdUUXdIUmJIUDZmRDFaWHNyY0FIQUJGV2kyYkdtd21rTHZCZjIwTjh0Tm42OG55MkZ1NEMzSzBTekgwaUJlVHFHVFE0R20yYWIwK1hxeXZKUzVnWVNCTDRJb2FxSGtnc2FhcGNGNE9ZWGVDWU9nL2Z5eTlQbDNmN0NlTEM5amJpRGg0aUtJb2haa3JKdHQ1MzhBbW9rUFFqYk50dk0vQU0zRUJ5R2JadHNCVXdCbkFab0JGZ0NhQVJZQW1nRVc0RHpOSkF4OEVVUlJDNVV0anRmRkdvbXJRZGFZZ0t0TkVFaUJrVG9nTEVrMG9ORFlleE55YVpaYmY0S1c3NWRFUHNiUm1FRHZ6aVVPQ01zU0RaU2YySGNUTHRBc1UzK0NkazFKWVJFZDNQaFM5VWRkOW1lZnZrTXVCVm1hOFNuY2k0MkN0KytoL01TK3Y0ZE1jd05HWHYwSjJoVWRodTNKMCtGWFkwVXhyamJ4SS9VNERMdFptdWxUbmc2NW1IblloMExEWDlSRHM1WDZFN28zbTU5T2FLUkZ2Tkc5V1pjZW5obWE2Vk5HUWRCUlQxU2lHUlFhdnFJeXpmTHFUK2l4bWFMWnM3SHExUHBtYkVaZDFxSTNpMDdNS2ZUQURYVnZodklUdnFMNmdzYWFXT05KK2dKQS83ZXFZK0tuSHNrM3B1UldRQWRkc0FQQ0EzT0srb3ZVRzhHSDVSUWFnQXV3dUc0MjdWNzJhYmhXZ25NTm1HbUtEMkwvcWZQRmlsZ2Vvb1BMUHRVQXpjUUhzWCthVlFkb0pqNEkwR3dqUExuRElvTHdsbWFBQ3dETkFBc0F6UUFMcUoxbU9aS04rMWxGeGl4eCsxUkhoTFFtRnBqM0FFb3FOQUFYVUg5dnRrR3lRZUE5WkpGOU92a2lOcmtCN2JMQkowS2g0WHdROXFZQW15UWJjYUxJT0o3ZnBVNXVvak9kL0Y3Nm5CVVpVR2hBb2JFMU5razJVdE1NU2o1OVBabVNmb055bGoxZEt1V3p1SnhDUThKL3d3aWlxSVdHYUpZajJVZ1VHZHlieFNRT1d2Um1uSWtxcDlDUWNIRVJSRkVMOWROc2syUWpVV1JRWFltWVZiVHAyQ3c2WkVVR0ZCcmVvb0VGalRYSnhubFdrWEg5Z0Y0TENIbDJPVEl6emVEMmdCVVpVR2o0Q3F5YkFSWUFtZ0VXNER6TkpBeDhFVVJSQzZDWkwzZFlSQkNnMlVaNGNvZEZCQUdhYllRbmQxaEVFUHVoMmJLTkFaZXAyUHk1U2FxUGFOWGZtQ0djRFdmdmozbk5veHRqQ3VBd0d1N05scExtbkVhLzVITk9xai92eDZPK01VUFFoMGNuMFVrbVZzQkJXS0xaSW8wZWZoQjhFUFNYMCtQWnBEb25PamtOcFhxeGE4UFpFYjl1MTBYNUNhZTNkbWkyU0tQUGVwMXBoM3FuYkhvOG0xUVB1NHBtbW10VWt5SnNUL2g5ZFFKNk0yZGhoMmFaTlBxMFQ1VURsdFBqMmFRNkt6YTROenVqS2p6ejB3S2FTUmo0SW9paUZpelFMRTJhY3hwZDAydzVQYjZjVkZjYkhwdVI0MEg3QldqbVVoQjdtMmxtYkF5MDgwSDc0MkFsUGI2U1ZDZVZOcGtoME1uOXFTNWgwVi9FdWdJSkZ4ZEJGTFdBZFROZjdyQ0lJTHlsR2VBQ1FEUEFBa0F6d0FKQU04QUNuS2VaaElFdmdpaHFBVFR6NVE2TENLSVptaTJzQ2Rhd1ZIQ0N0bWYzZTBacFFSbngrVnFOQ3BTZjJIc1RVbWtXWnlwTm1EVjg4K3RLd1FubUZpa3c3aVN1QitzMUttQnVzTzhtUk5PTVhzUlVQUkhueGE4TnFkckVkSzNnaEZaYkdKcHBPY1phallweTVnYll1ckN0ZzJiUklaV1FlSDdJbFNUSXFwaC9YU280d1dvTDdXT1F5REhXYWxTZy9JUy9xS2Mzb3hJUzZqRkpHNktKK25XbDRBU3JMYWczRy9RVE9jWmFqUXFVbi9BWDlZek5ubWx1UGRNRlRlalhsWUlUckxhNFVLTzNVVCtSWTZ6VnFJQzVnYitvWjZZNTR4SVNYYjNoWDVjTFRreE1mUW4xOXdzdHgvanVEMVpyVk53b1YzNUN3c0FYUVJTMTBPaTYyZVVGSjNZR2FDWStpSDNRN1BLQ0U3c0ROQk1mQkxJQUcrSEpIUllSaExjMEExd0FhQVpZQUdnR1dNRHVOTXN4L2grT2dpQmRxMDhPTzNxUjF0VnMvZUt6UlY1Y0p6STVzejVkRk45RVhRQ3ZVYUkzV3pmK2YzQjZjZlRpN3ZKUllYdWlMZitqV3hOYVVrdno0bnlXenF4L1lWcERYUUJmZ3FoeENwQmovTS83NWdQVi9VUS83TFVvK1UzTCs5b2srNm5ta01tTG03TzBpWFpQcDlCUkYyQVJ5RjYvaDZpNkFEbkcvN3hQVVNkOFZ6M3pTQUEwN1JQTk9GWCtrTHVuTkMrdXoyTDNBaTRPZ0xvQVBnVlJkMisyYlB6UCt4Uzlvc1BvaEhMa3ZhQ2Y5bVphZHBia3hjMVozSnZGVkJ3QWRRRjhDcUpHbXVVWS8rdmVUUDNSWlpwUjhsdlRqSWluV0tJZWtDWXZiczR5cXNmNW5USHFBbHdGbEZuUVdEUCtIM09pbk1kbW85WjVyeE1HUWZ1NWRpVUlXUGhEQ1hYT2kxOTdVNTgxb1JOQzNRenFBdmdQckpzQkZnQ2FBUmJnUE0wa0RId1JSRkVMb0prdmQxaEVFS0RaUm5oeWgwVUVBWnB0aENkM1dFUVEzdElNY0FGVmFaYWoxM2l3NWx1UXNUb2dWY2I1VWxHS1JVdFFhSGlMeXIzWnVsNWp1TzVia0xFNlNGUVpCRDVsMFZJcGhRYmdBdXFqMlVLdnNlNWJzTEE2U0ZRWmZLNTJPYUJlYkJTOGZRL21CdjV1YTZOWlJxK3g3bHV3c0RyUXFveHMwUWx5UktEM2h2dFFhT3k3Q2NGVGdCeTl4cnB2UWNicXdLZ3k2RWg5Q2praXFDY3EwUXdLRGRlRGFJeG1PWHFOZGQrQ2pOVkJxc3BJaWs2d0k0THV6Y29vTkNSY1hBUlIxRUwxQlkwMXZjYVR3YXB2UVdkaGRVQ3FqT1dpRkJmYUVZRzhEMkJ1NEhvUUF0Yk5McmM2Q1B1RkRXQ202U3pzMGV4eXE0UG9vTmdJQVRSekZzZ0NBQllBbWdFVzREek5KQXg4RVVSUkM2Q1pMM2RZUkJBTjBTd25jMzQvayt4ZWdPcE84MEpHKzdjSEFTMTYwSWcvcE1XS2l1WUdFaTR1Z2locW9iSkNJeWR6dmtoMnA1Z1BhRFdEUEk1UG4vZHBSWmNNYVhuUkZ1WUdQZ1hST00weW1YTk9kdFByZEJlOTdsU3Z4bmJZOUlDTG1lc0ZOUFk5TmltRFN1WUcyTHF3cll0bTJjdzVKN3ZKNm9EU21KeGtPaHRHTjhkY0dFQjl3Z2NTemRqaG9LcTVBZUFDYXFIWlN1YWNrOTFzZGNBTTQ5ZC90ZWtCOTJZak9tNjVONnRnYmdDNGdLbzB5OHVjYzdJN3NUb1l0UjRUclF6TjFHLzBRTDI3UERhRHVZSHZxTHlnc1pZNVA5Zko3Z2NEVXc2Z3I0NElPbVI2Y0tPbkxSQ29EdDFJVnd6b1ZqWTNrRER3UlJCRkxWaFlOL3RxSE0vdkZoOVdETkJNZkJCN3BGbTRxZVRtcmdETnhBZUJMTUJHZUhLSFJRVGhMYzBBRndDYUFSWUFtZ0VXQUpvQkZ0QXN6VmhmMFlrT3lLS2Qxc2NvNVVtbEttNFlOWWJacFcwT3RJQmpNdUpVbFRaRE9Cdk8zaCtibFRaTUFSd0lZazlUZ1BrZHhaSSs2ek9lOFh0ejhaeExWU1JxakNXYkF5UGdpRWQ5WTRhZ0hSS2lFMUlSeGFDWkEwSHNqMlp4MkozL1pOQlBhS2JUb0lrYVk5bm1nRktlbkUvbmJLZnF4YTROWjBjWFBlN01VSDZpK2U4aHF2ekVMakM5MmQzWmU4TmxtaGsxeHBMTkFZc3h3cTZpbWVZYTVkM0Q5b1RmVnllZ054TWZ4TDU2c3dIVkRGT2RWSFRyMFRMTmpCb2phM1BBdlJrTGc3ZzNPNk5DUFBQVEFwb0JMc0RDUXpQbWxHYllTandOTk0yMEdtUEo1b0FGSER4RTQ3RVp5VHphTDBBekg5RDRUTE0xcGk1TjhlVGhlVS9ML2tkQk42bEd3VWhzRHE0ZjBHSDhZZ0diSWJDOFk2cXJXUFFYc1FJT0F1dG1nQVU0VHpNSkExOEVVZFFDYU9iTEhSWVJCR2kyRVo3Y1lSRkJnR1liNGNrZEZoR0V0elFEWEVBVE5OTUo4NlcvVjk5Q2o4L3VwMTRHMFVId0xsV3Nidjk4T09JVE9XOCtYZGcrTHNjS09JaEdlak9kWWpKL3pJNVRnL1lGeUFNaHlaNi9ONHpEOW9SOEVSNXdXbDNuelpQNkFhOUFNdy9RRk0zaWtHb0JENmR2MzN3Y0dKdUNoZDJCVG9vblhnWjZpVjhiWlhBeGEzN1owOVFQTU1ZSE1EZHdlOXRvYnphOVBXaFBuaCthM214aGQ4Qko4U1I3UHVvVEFWdGo4a1hnSXpsdnJ1c0hwTVlIREV3QnhBZGhkUXFnRStZNm8wVDVTVTJ6aGQwQko4V1Q3SG5ZU1ZLZmlvZHBieGFiK2dIRytDQVQ2NVpmYkh0NGNvZEZCR0dYWnN3YU1pbFkwQ3c2V2RnZGZFSko4UXVUUFk4TytuVENOUFhOTUpyR3BINEFHeDlrWXQzeWkyMFBUKzZ3aUNCczBrd256RW1XM2Y2WXFqUzlvM1BtODlUdVlLa013SmpORCtKWGI5SkpsRExuSDZFK3dSZ2Y2SWtxYUNZK0NLeWJBWHNFYUFaWUFHZ0dXQUJvQmxpQTh6U1RNUEJGRUVVdGdHYSszR0VSUVlCbUcrSEpIUllSeEg1b2xtb3owdUlVdzgyZkczT0RLYTJmd2R6QXpTRDIxSnN0bVJkd2NZcExQbWR6Z3dsSk0zWXdOd0JjZ0NXYUxZcFRoQjhFSHdUOTVSSVRXWE1EbG1ic1lHNkFyUXRiT3pSYkZLZVk5VHJURHZWTzJSSVRXWE1EbG1ic1lHNEF1QUE3Tk1zVXA2QjBPdGMyeVpTWXlKb2J4Q1ROZ0xtQlo3QkFzOVM4Z0VVWW1tYkxKU2FXelEzbWQ4WTdtQnRJR1BnaWlLSVdMTmpvSmVZRlhKemlpUnFSQlNzbEpsYk1EVWo5djcyNWdZU0xpeUNLV3NDNm1TOTNXRVFRb05sR2VIS0hSUVRoTGMwQUZ3Q2FBUllBbWdFV0FKb0JGdUE4elNRTWZCRkVVUXQxME96TWVGOHNZWGIwd2xoZ1RJUFdMejVMSFROTVBuemRKMk8yT0VRM3dPb05Ybm5yWjJQZDhvdHREMC91c0lnZ0dxUlo0bjJ4dkRkc1Q3UUZSblJyTXV0MUU4Y01JOGJJODhsWUhLS1IxRG8zdmdlZ21RTkJORVl6MWxFd0pmZzl6T2lIdmRhWVg3SThuZWlYeHA5cURobkhEQ1BHeVBQSlNFMDFsdFFiUkRQcUtGRitvdm52SWJqOEJPc29FbE9DOEYzMXpDT2wyTFJQTkdNTGpJZmNQU1dPR1VhTWtlZVRrUjZ5cE41ZzJZWUdwZ0RPb2pMTldFZkJsR0NQak9pRXZDOTZRVC90emJRelFlS1lZY1FZZVQ0WmFVbUtKZlhHN0ZnOWRiT3hBZzZpanQ3TURNTVNqNHluUTlKZmFKb1I4UlJMMUFQU09HWVlNVWFlVDBaeXlMSjZRejAwdzh1c1dnQVhVSmxtcktOZ1JRV1B6VWF0ODE2SDNET2VhMmtGZFV4cUZwclVtN2oycGhaclROWjlNcTRmR0ZPTkpmWEcvVjdRblErMFpTTm81aXl3YnViTEpFOUVFTjZtemlWY1hBUlIxQUpvNXNzZEZoRUVhTFlSbnR4aEVVRjRTelBBQllCbWdBWFVTN1BWSlBxaThNVFpnMTBUNmZ3U01ML2V1UndyNENCcXBkbDZFajE1cTV6S1RleVlTRDgyVHNtcnNRSU9va2FhNVNYUjA4SVQxNGE3SnRLUFRZNkEyMEhxM01iM0VKdzZYeUF2aVc0S1QzQzVpUjBUNmZ4YjJINWhrdkV4WnBvT0JHRmhwcG1iUkU4S1R5UTU4dTBUNmFvM0cxQm1sTnZKeExybEY5c2VudHhoRVVGWW9GbGVFdDBVbnVCeUV6c20wby9qZUFTYU9SYUVCWnJsSk5GdjZNSVQ5TW51aVhUdHFkZm5aSHdtVnNCQllOME1zQURRRExBQTBBeXdBT2RwSm1IZ2l5Q0tXZ0ROZkxuRElvSUF6VGJDa3pzc0lnalFiQ004dWNNaWdtaUdadk5VVWJFR1UwQWladVVGWlpqTzd2ZE1HUWxTWlNSbkxpUVlKYzBOQUJkUXNUZmpWZnZ2SjVLS2RPOXhzckJQK0lKL2trYkRpQzUwclluRm1jbFpwY3dOQUJkUUE4MVlYWEZ0eUtiL3ZPTGZWYjl5bW5MNkRvazBTSG1oTlJxR1pycldoRG56YUJJZDNQaVN6aXBuYm9DdEM5czZhQllkUGgxT3U4OFBZOW9vZnNYOGF4ejlTRDBBd3k0ckx6SWFqYVRXaEQ0enBGb1RYNDNwTEpnYitJdDZlck5SRUhUVVk1STJSQlAxcSs3TnV2UXJLUyswUm9ORkYwbXRDWDNtL0hSQ3d6RTZxNXk1Z1lTQkw0SW9hcUdlc2RrenpTM2FVTCtrZnVXeG1lSUtHUk9vSjZYV2FMRG9JcWsxb2M5VU5IczJWcDBhOTJabHpBMGtYRndFVWRSQ1BUTk5lcktSOXBvMy9Dc3JOYVlrc2dqTkFjR0hYTWp3aGE0MThkMGZKSzhHOUgrcmVpLzErWTFlS1hNRENSY1hRUlMxME9pNjJiUmJmTXdPQU0zRUI3RVBtaTNXd09vQnBnRE93dmtzQU9BQ1FEUEFBa0F6d0FLY3A1bUVnUytDS0dxaEpwcVZLUTJ3bXRKRVhZQjlOeUdkWm1WS0E2U2JCS2dMc084bVpOT3NYR2tBc3hsZEc0N2FGejE2clE1MUFXQnVjQW5LbFFaWXBOQmZVVmFLbkxTUk92Y1Y5ZFJzS2xNYUlObWNEUjlOK0oxZzFBWHdGelgxWmlWS0F5U2I2SzE3cXZ1S3k2Yk9BUmRRQjgxS2xRYjQ3ZytNc1FFOVVxT0RvR3pxSEhBQk10Yk52aHJIODd1RlIyR21LVDZJdlNnMHRrYTQ2Y1dWSllCbTRvT1FUYlB0QUpxSkR3STAyd2hQN3JDSUlMeWxHZUFDUURQQUFrQXp3QUpxcHhrTEs4SWcwV0hNZXUyZjMwK0tVTkFlbGx5MGYzdWdsOU9XQ2s3QTNNQmIxTitiY1k3b1dhTERDUHVtOGdSQnV4b2N4L1BUTDdqS3hFckJDU2cwbkEvQzNoUWdwUmtMTUpnaUNjMjBxOEd4WG9sOU5Ga3RPQUdGQmhRYVd5T2htZEZoVElNa0NaNUlNclRrWXZacHZGcHdvcFJDUThKL3d3aWlxSVdHYUxiUVlkQnowOURNdUJybzNrdy9LSmNLVHNEY3dQa2c3TkZzL3BFV0JXa0J4clN2YlgvaTZDUnhOZEFHVlkrNG1OTlN3UWtvTkx4RkF3c2EwWUV1Sk1FQ2pGKy9HYlRPdVFqRkE3M24rZ0ZiNmFsbjVuckJDU2cwZkFYV3pRQUxBTTBBQzNDZVpoSUd2Z2lpcUFYUXpKYzdMQ0lJMEd3alBMbkRJb0lBelRiQ2t6c3NJb2lHYVZhaVFNQjZxaHlwYzI5UlYyOVdva0RBV3FvY2RRRzhSWjAwMjdGQXdGcXFISFVCdk4zV1NyUGRDZ1NzcGNwaGJ1QXRhdTdOZGlrUXNKWXFSK3JjK1NDYW5tbVdLQkN3bGlwSFhRRG5nN0EwMDl5aFFNREZ1cGtCNmdLNEhzUisxODNxS1JBQW1va1BZcTgwcTZsQUFLWUF6c0w1TEFEZ0FrQXp3QUpBTThBQ25LZVpoSUV2Z2locUFUVHo1UTZMQ0dLUE5HT1JSU2M2YUUvSUxpL1F1Z3V0eHRCL3hWbmJnOG1Ja2t0RzFuRTJuTDAvNXNPNk1Xam1RQkQ3N00zbWR4UlYrdk5CbDE0VE5pa2tvOFpZdHoxNDNvOUhmU1ByMEpLUDZDUTZ5Y1M2QWdrWEYwRVV0V0NKWm5IWW5mOWswRi9RektneDFtMFBLTlYrd29sUUxlWTR1bUIxR2hRYVRtOHQ5bVozWis4TlU1b1pOY2E2N1VIWVZUVFRYQ014UjlpZWNPYWRnSm1tczdCQ3N3RlZEVk05VlhUclVVb3pvOFpZc3oxZ2tSRDNaaXptbUorQ1poN0Exa016WmtmMnNEVTJ1Z3VqeHNpelBVZ2t0eXptZUFHYStRQTdNODNXbUxvMFJaYUgydWpndmxGbk1KWnREOWlCajJVZFhOVmlxa3RZOUJleHJrREN3QmRCRkxXQWRUTmY3ckNJSUVDempmRGtEb3NJQWpUYkNFL3VzSWdndktVWjRBSkFNOEFDUURQQUFxclM3R3c0b3NUNDhzN1owU1NwQi9CaUVGdy8wSG55YTI5bWp1UGNPT29DWEJWVXBGbjAvUWVuRjBjdlZtcGhodTFKV2crQUtMZVNKMDh0RDFBWHdMY2dHcGtDY0hLYjZjQmxnYU1mOWxwak5wUTluYVQxQUlobWl6dzVINUpZSHFBdXdHTDdzdUw1dFh3UG9YVUJPTG5OWkZLMENkOVZ6enVTNzNDUmMxMFBRQ3ZJRm5ueUYzeUlzVHc0UVYxY1lHVHpBQUFidVVsRVFWUUE3NEpvcERmajVEYlRRZjBXSFVZblpGelFDNWhtU1QwQTZzMFdlWEkrSkxFOGlGRVh3TGNnR3FFWko3Y24zSnQxRkRHWVEyUk5RQS9OcEI0QTB5ek5reWMwTTdwRjFBVzRJcWhFTTA1dWM1cWJ4MmFqMW5tdkU2ckg1UE9nLzByWEE5QXpUWjBucDVrbUg1SllIcUF1d0pVQjFzMEFDd0ROQUF0d25tWVNCcjRJb3FnRjBNeVhPeXdpQ05Cc0l6eTV3eUtDQU0wMndwTTdMQ0lJYjJrR3VJQm1hWmJqYTBEMng4R05TOHdOdUVqRjl1WUdnQXRvdURkYjl6V1lzNkpqczduQmhHUWJPNWdiQUM2Z2VacXQraHBvM2NaR2N3T1diY0Rjd0xPdG5kNHM2MnVnYWJiUjNJQmxHenVZRzBnWStDS0lvaGFhcHRtNnI0R2gyU1p6ZzVoa0d6dVlHMGk0dUFpaXFBVUxEODBWWHdORHM4M21CdXFjSGN3TkpGeGNCRkhVUXVNenpWVmZneUdKTTJhWG1SdlFKQlRtQm00R2dYVXpZSThBelFBTEFNMEFDd0ROQUF0d25tWVNCcjRJb3FnRjBNeVhPeXdpQ0lzMDAvbnlwYi9OYStNTG5OMVByUXlpZytEZDA0dGVtbGJ2NUJnZlpHTmRnWVNMaXlDS1dtaWlOOU1aSnZQSDdEaE9FcGNMa1BGQmtqeC9iNWk4aFdmUzZubkdCNWxZVnlEaDRpS0lvaFlhb2xrYzBodHp3K25iTng4SHhxV0Ezckc3NkhXbi9OTGN0V0ZxWmFCWCtET0pxRHpqZzgzbUJ0aTZzRzJ5TjV2ZUhyUW56dzhOaGNqL2dOSkduRVdpbDM5MThuelVKd0syemhjMHl6TStZR0NtNlN3YW9Sbm55M1ZDaWFSam1tYnNmOEEwNDV4NGtqd1BPK25MNTNHbU40dVhqUTh5c1FJT29xbUhaaHlUUjhHQ1p0Rko0bjh3YW4xQ09mRUxrenlQRHZxcHg0Rk9xK2NaSDJSaUJSeEVNek5Oc3NJamw0T1BXK05aN3gyZE1tZi9BMDZIMDQ4UFRmS2NaNXBCWjdaSXE4YzV4Z2Q2cG9vcGdQZ2dzRzYyRVo3Y1lSRkJnR1liNGNrZEZoRUVhTFlSbnR4aEVVRjRTelBBQllCbWdBV0Fab0FGZ0dhQUJaU21HZXN1dVBnbHZ4dHV5azJrcFNJV29GZkc1NE5rNmV6ZEFiMXcwbjR4MEV0cjNYblY4aE1TQnI0SW9xaUY4cjBacDRlZWpZMHhnUzQzc1NnVmtZS05EZlRxL3ZlSDBhMEorV0svR25LbWdKZjdVWDdDcHlBYXBCa2JFK2h5RTF3cVlpSEZvSzZvd3hVbitHQk9hTkwvSGsyMGlzTzRiYVA4eENLUXZYNFBpZVVuRXBwcFk0S2szRVFuSzhYZ0g5SE5zZTZ6cVBkU3RQcW9PL3RVNXoxWmlvSHlFejRGMFZCdnBrZ3hUUVpQWVYrWGlsaElNZUlSbGRnNTBWb0xYV0xpNkRmbjcvL2RNRjdwelNxVW53QmNRSG1helQvU0JVNjBNWUV1TjhHbEloWlNqTWRFdjVSbVBGVVlkZWgvOGZMWURPVW5mRWVGQlkzb1FFOGV5WmlnL1d0ZGJvSktSVHhJcFJnc3ZxQ0tFMitrODBsRngraGVISE0vUjFJTWxKKzRFbWgwM2V5cmNUeS9XM3pZdGdETm5FV2pOQXVYWGt5cURFd0J4QWZoYmVwY3dzVkZFRVV0Z0dhKzNHRVJRWUJtRytISkhSWVJoTGMwQTF3QWFBWllRTU0weTlGeFBGaHh4bGdjdVhEZVNOVWE1KytQRjRlQVpzNmk2ZDRzVDhleDdJeWhEenRlY2Q1WVVXdGtZZ1VjaERXYVpYUWNuTVVjWFJ1TzJoZXExMklGeHpUb2F1Y042c2VtYjk4OFg1U240TStoMExEeFBTUXFOTFpEdm82RE5SbUtiRStIMDNjSHJmSFo4UG1oNmMxNFQzdVNxRFZDRmtCZTl0YTVoUGtWZ2locXdRck5WblFjV3BOeE5udzBHWkVlalZMcjBhRngzcUE5R2JYRy9GUXJQREt4cmtEQ3hVVVFSUzAwVGJNOEhZZjJ5WWpldXNkUDA1Um03THhCZTVobVdxMEJtcmtWeE43V3pkWjBIT3pCU0QzYlExMmxpUlFjSFhiYW9DRllzc2VvTlI0SGZmNDhFeXZnSUxCdUJsZ0FhQVpZQUdnR1dJRHpOSk13OEVVUVJTMkFacjdjWVJGQmdHWWI0Y2tkRmhIRVBtbVcxcDlJMCtmRFN6N1A0bXc0ZTMvTWI2VjBZOURNZ1NEMjJwc2w5U2NXNmZOTFBzOUFIeGlka0ExSGpDbUF3N0JLczBYNlBQd2crQ0RvTDlzWW1NOVpCRFFLM3I2bnExUWNYZlM0TTBQNUNaZTNObW0yU0ovUGVwMHBKVE9YYkF6TTUwK0hYTnc4N0hPVmlyQmRVT3NjY0FFMmFaWkpuMVBKQVBiUHlOZ1ltTThwZVg0MlZNZHdsWXI1S1dqbUFhelJUUFZkbWZTNXB0bXlqWUg1bkpMbm9lbk53dmFMSXBwSkdQZ2lpS0lXTE0wMEF4cUZaZFBuN1krREZSdUQ1SE0xRnV1a1ZTcjYwK0QySU9rRVFUUHhRVGkzYmhhdTJUNkNadktEY0kxbTBVRnJ2TG9QTkJNZmhHczB5d09tQU00Q05BTXNBRFFETEFBMEF5ekFlWnBKR1BnaWlLSVdyTkZNbXhkRUIrMEp1ZXNGUVpLOTFLVXBvTkR3STRpOTA4eTg3c3ZWS0o2WjB1YUpoVUVWaFlhRWk0c2dpbHF3U3JNNDdNNS9NdWd2YUxhd01PQkR5aWcwWGxaV0VMeXNya0NBdVlIWjdzdmNZQUhUbTkyZHZUZE1hV1lzREtEUThCMFdhY2JtQmZPN2NYVHJVVW96VTNBQ0NnM1BZZmVoR2JPQmU2aHJPRVVuaVlWQkZZVUc0QUpzempSYlkrclNGR1VlbnZkTWFRbTJNR0NVVldnQUxrRHN1aGtVR2k0R3NmK1o1bTZBUXNQSklGeWpXUjVBTS9GQmdHWWI0Y2tkRmhHRXR6UURYQUJvQmxpQXRWZE9sclBtdEFnYjNLZ2pkUTY0QUN1OTJYcldmSDU2Y2ZUaWJoMnBjOEFGMktMWmF0YWMzOTFFNmh5cDh4cVJrelhYTktzaGRTNWhmb1VnaWxxd1E3UDFyTG1oV2ZYVXVZU0xpeUNLV3JEMjBGekptaHVhVlUrZFM3aTRDS0tvQlVzenpkV3NPWTIrdWpPa3pxOEt4SzZiYlpzNkIxeUFWSnB0blRvSFhJQlVtdVVCTkhNV3p0Tk13c0FYUVJTMUFKcjVjb2RGQkFHYWJZUW5kMWhFRUtEWlJuaHloMFVFSVpkbVZJN2lmMHZWRzdSRWxxUTQweVBNMzVnQ09JdjkwNHpMVVNUcWpXTXFHeEMybDJtVy9BMmFPWXY5MDR6TFVTVHFqV05LTjgxUEp5VFRHS24vdFMvVUwrcnZHT1Vubk43dW4yWlVqaUpPMUJ1OW9FTml0QW5KTk5Tejh0V1FmbUdheGVqTkhJWUFtdEZ6TTFGdkhFZTNKa1F6a21uRVo4TkgvTXVsTkpNdzhFVVFSUzNzbjJaY2ppSlJieHlUT0VQUmltUWFjZlRXUGRacmdHYk9CQ0dYWnErNEhFV2kzdWpPQjlmK1YxWm5xS2Zud3pHcE96cFRMZEFBemVRSElaZG0yd00wRXgrRXR6UURYQUJvQmxnQWFBWllBR2dHV0lEek5KTXc4RVVRUlMxWW9ObTJGUUg0dVBaa1N1K25oT3htZ0xvQXJnV3h6NW5tdGhVQlpzZTBFdnVGK2pNNlZBeERYUUQzZ3RnenpiYXJDSEE4djB1Nm9BbTkxalR0d3R6QTl2ZHcyOXhnMjRvQXZQVC85VVF4N3VsUTlXR29DK0FQck5Cc3k0b0EzSnNwUEIxeWI0YTZBUDdBMWtOem00b0FhbXhtRHVleEdlb0MrQU03TTgydEtnSmNQNkFqUW5JK0lPdURHT1lHL2dEclpyNU04a1FFNFczcVhNTEZSUkJGTFlCbXZ0eGhFVUdBWmh2aHlSMFdFWVMzTkFOY0FHZ0dXQUJvQmxoQVRUUmpGY1cxWWQ1SFJteEJ4MmhudkxQN25LVk1WQnFKWGQ3NjMxckxrYXlhZ1dZT282N2VqSmZ6ZFpFU3M1aHZmalZpQzRMT0JxaWpTSXB4WjV5b05OS0RWLy9XYWFsai9WNTZqQ21BQTBFMFBRVmdUa3k1aTVycW5rcjFRMTMxSzZjbnArLzBLQkZ3aDVNQjF4S2FHWlZHU0htQTlzZmR0YjlUbW5YaXplWUdVR2hjSllVR2N5STZKQytDNTRkY1FvSThpdm5YT1BxUmVoTFNhNzRzQ0NLdFlvOGVzSWxLZzk0SW5oMTl0djYzcGhtL3NjbEFieVkrQ0V1OUdYa1JxTWNrYllndjZsZmRtM1hwVjZJWnl5Nm9OeHYwVTVWR0w2Qmo0clcvVFc5R2ZnZVpXTGY4WXR2RGt6c3NJZ2diTkZPanJtZWFXMXhDb3MrLzh0aU1pdU9rdlZuWXZsQ2p0MUUvVVdrOEhFLzcwYUhxNDFiLzFsb085anZJeEFvNGlKcG5tak91SGRIVkcvNlZ4UlpUMXZ5UDFBK2FPWDdJb3Y4TG85Sm9mUklFMy8zQjdjSDFnN1cvdFphRC9BNkdpMWdCQjJGbjNXemFMVDZtR0tDWnM3QlVHbXk5bGtRSmdHYk93dmtzZ0lTQkw0SW9hZ0UwOCtVT2l3Z0NOTnNJVCs2d2lDQkFzNDN3NUE2TENLSVptbkY2TzZRM1NqaWZTUmIvd3hGWkdhd2N4aW1DNzJjeTYzcFNFTkppUlpKelIrcmNZMVRzelpoQXRCakw3Z1JrOGYvZzlPTG94ZDNsbzlqWW40OUlRVXUxdkhKTExielNLZmRTcVhQQUJkUkZNM1luMEh5Z2ZhcVRhaytpSC9aYWxBalh4djUweEt6WG5WNGJUdCsrT2VhTUFPV1UySlo5WGo1MWpxMEwyNXBvcHQwSjJPS2Y5eWtHaGUrcTV4OXBnS1o5b3BrK1l0cU56eFNISnR5YnNZV0JTYU9YVHAwRExxQU9taWxtVEpNUlZLaExMaWw2UllmUkNhWEpld0hUVEI5Qk5LTU1aN3pjbThWSW5mc1JSRU16emZsSFE2YURkaWVZcHZRSTFSOWRwaGtsd29sbStnaTFhOVI2M0YwWm15bEdsazZkUzdpNENLS29oYW9MR3RFQmpiMjBPMEg3MTIvU3BKTnk1VHcyRzdYT2U1MHdDTnJQeWFHQWp5QVhxZjZJRCtKY3VwNXBxbzlMcDg0bFhGd0VVZFFDMXMxOHVjTWlndkNXWm9BTEFNMEFDd0ROQUFzQXpRQUxjSjVtRWdhK0NLS29CZERNbHpzc0lvZ21hSmFqejdpZkVWUXNRTDcraVJSakdyUis4ZGxDak1GbjV1bzEyS2FkVTFqTHNXNzV4YmFISjNkWVJCQ045R2JyK294aFJsQ1JnZ3RQeEZxS0VkMmkvUGxDaktGMUczbDZqV05qaHJBYTY1WmZiSHQ0Y29kRkJORXN6UmI2REMyb29DVEFCYXN4cUZmcXNGUkRKeStmYWc0Wk1ZWTVNODdUYTJnRGhDT3Q4NEJDdysxdExUVEw2RE8wb0lJRUd0MGtUWDQyakc2T0UwZURoOXhCcFdJTWMyYWVYb04vQzlzdmpNNGp4a3pUWVZTbjJiSStRd3NxV0tEQkRPUGtwWlpxY0crbUdaT0lNWkl6OC9RYWJJQXdQOVVuWjJJRkhFUWxtdVhvTTdTZ0loRm9qRnFQaVg0SnpVaUtvVWlvampKaURITm1ybDZERFJCQU16OVFiVUZqVFo5eHJnVVZEd2JHeDZDdmpnZzZKTlY0ZzZVWWZlcS95UGVBeFJqWDN0Um5UbkwxR3JycVlaOTFIcGxZVnlCaDRJc2dpbHBvZXQzc3EzRTh2MXQ4MkZZQXpjUUhzUythaFp1OFFrc0FOQk1mQkxJQUcrSEpIUllSaExjMEExd0FhQVpZQUdnR1dBQm9CbGhBYlRUYkpOZG9YeHhObG8vakQ5b3ZCc0gxQXlQVWVBS0ZoaWRCTkQ4RnlKZHJ6RTgvendnMktFZkFINmhqMWY5VG9RWVVHcDRFWVpGbVdibkcvSzRpV3FyVm9ISVUrZ05EczBTb1VVR2g4Ykt5Z3VCbGRRVUN5aytZYmRQbEp6YkxOZWFuRTA2aW0zSVV5UWVVU2txRkdoVVVHaEwrRzBZUVJTM1VUTE5WdVFiM1pwcG1waHlGL3NEMFpvbFFBd29OejFFZnpmTGxHbkdzbVRKcWZhTExVVXdObXpUTmpGQURDZzNQVWVPQ1JxNWNneDZTZmRacW1ISVVyL1FIZXFacFhEUEdGUlFhZ0F2QXVobGdBYzdUVE1MQUYwRVV0UUNhK1hLSFJRUUJtbTJFSjNkWVJCQ2cyVVo0Y29kRkJPRXR6UUFYVUpsbXBTdFFyUDZKOGhNZW8zcHZWcm9DeGVxZktEL2hMMnFrMmE0VktQUUpvMnZERVRzZmQxQit3dDl0ZlRUYnVRS0YvcE96bUp6MExGZCtRc0xBRjBFVXRWQVR6Y3BVb0RBbm5BMGZtVExvS0QvaGZCRE4wYXgwQlFwamJCQzlkWS9PSW1NTmxKOXdQWWdHRnpUS1ZhQjRZdjZjVUU5SUZnZzNlaWcvNFh3UXN0Zk50ck5Bd0V6VFdjaWcyWFlXQ0tDWnM1QkJzKzBBbWprTDBBeXdBT2RwSm1IZ2l5Q0tXZ0ROZkxuRElvSUF6VGJDa3pzc0lvaGFhWmFqeW5nd1dOVmtKTG52WER1RGNhamZScUhsczlUT29KUkNROExGUlJCRkxaVHJ6ZktNREk0bXEwZUZXbG1SWjJmQWI4dkZYOFJKVlFwdUZBb05iMUdSWmhramc2TkorRUh3UWRDZnZ0TnJuYk1NZzE2eVBManhaWjZkZ1g3M3Q5ZWV4Qms3QXlnMHZOMVdvMW5XeU9Eb290ZVpkcUlmMFJOUmw1NVFOSHM2L0dxY1oyZkFUZ1pmVDFnWWxOb1psRkpvQUM2Z0FzMVdqQXlPSnRNKzVjb1Z3MHpwQ1VVek05UmFzelBnM2t4OWtGU2w0SHg3S1lVRzRBTEswU3pQeUNCRHMxQ1hubmh5T25tbVJtRjVkZ1o2YkdZOGZ4STdBeWcwbkEraTVnV05OVldHbWpHK29RWlVRZEI2SENTbEo2WkIvN2VxWjlwZ1o2RFlxTnRZMkJsQW9lRjZFUGJXemFiZDRtUEtBVFFUSDRRMW1pMFd2bW9IYUNZK0NHK3pBSUFMQU0wQUN3RE5BQXNBelFBTHFKMW0rZlVCZEZhUzlwaDB3SWhyVlM5WEFrRHEzUGtnN0UwQkxrbXI4eDR1RnZDOEg0LzZxNVVBU3FYT0pWeGNCRkhVUW9NMFcwcXI4MGU4aCsyMU9hZTVXZ21nVk9yOFplWFU3c3ZxcVdIVUJURGI1dXNDSk1oTnEydmhtWFl6b0Z4NDJGVTBXNjBFQUhNRDU0T3czSnV0cGRYcEY3Mkhlek1tMTJvbEFLVE92VVg5Tk10UHE1T25nZDdEeFFMNFliaGFDYUJVNmh4d0FRMHNhT1RWQndob3ZNVjdyaCtRUEp1bm9tdVZBTXFremdFWGdIVXp3QUtjcDVtRWdTK0NLR29CTlBQbERvc0lBalRiQ0UvdXNJZ2dRTE9OOE9RT2l3akNXNW9CTGdBMEF5eWdHczNLMTU2b3pkd0FjQUVWZTdPeXRTZGdibkMxVUJmTmRxdzk4VWx0NWdaUWFGd0JoVWJaMmhQMW1SdEltRjhoaUtJVzZxQlppZG9UOVprYlNMaTRDS0tvaFlvMEsxdDdBdVlHZmdiUjFMcFp1ZG9UK3FCYXpBMEFGNEIxTThBQ1FEUEFBa0F6d0FLY3A1bUVnUytDS0dvQk5QUGxEb3NJQWpUYkNFL3VzSWdnbXFCWnZvOUJtdWxlSURxaG5Mak9rVStEMWk4K1cyVEpkVUk5TDVHdWZ1dkduRnRZam5YTEw3WTlQTG5ESW9Kb3BEZkw4ekZZWkxwVHpBZmRPTW1SUjdjb3Nibklrdk9adVluMFkxcTh6WWtWY0JEMTBDempZOENaYmxxZHZlQTBPZlZLSGM2aDY2elNVODBoa3lVM1orWldDVGcyT1FJK0dYVUIzTjdXUXJPc2p3Rm51aWx6M2szeWwyZkQ2T2I0YktoejVBKzVnMHF6NVByTTNFUTYveGEyWDVnRWZJemV6R0ZVcDltS2p3Rm51amx6emd6amN1WTZoODY5bVdaTWtpVTNaK1ltMGxWdk5xQnNLSitjaVJWd0VKVm9sdWRqd0pudUpITSthajBtK2lVMG94eTVJcUU2eW1USms0UjZYaUw5T0k1SFc5Qk13c0FYUVJTMVVHMUJJOC9IZ0RMZER3WkpiUUIxUk5DaEhQb2JuQ1B2VS8vVklha1BaY212dmFuUG5PUW0wc2x0YjBxSjl2TmVKeFBybGw5c2UzaHloMFVFc2E5MXM2L0c4Znh1OFdGYkFUUVRIOFMrYUJhYWRiQTZBSnFKRDhMYkxBRGdBa0F6d0FKQU04QUNRRFBBQXB5bm1ZU0JMNElvYXFFV21tMlNhclF2amliTGg2bDl2ejBJQW5wTHVDWnpBd2tYRjBFVXRWQlBiNVl2MVppZmZwNFJhNmdkcHZMRS9LTmhmZVlHRWk0dWdpaHFvV2FhWmFVYTg3dUtWS2xPb3pzTnVyeVBNNWE1bWd5WUc4RGM0Rkpza21yTVR5ZWNRRmVzaXA4Zkd2bkdSazFHS1hNRHdBWFVTTE5WcVFiM1pwcG14QjMxbk5TOTJhZ2YxMmh1QUxpQWVtaVdMOVdJWXkyd0dMVSs2UnVhcVgya2VyeGJuN2tCNEFKcVd0RElsV3JRMDdQUE9nMTY4czE2Ny9TMDdRR0ovR0Z1Y0tXQWRUTmZKbmtpZ3ZBMmRTN2g0aUtJb2haQU0xL3VzSWdnUUxPTjhPUU9pd2pDVzVvQkxnQTBBeXlnZHBybHA5RjFWcEwyNlB6NVpFUnIrNmdMY0ZYUVhLM3piQnJkQ0RWNGo4bWZVeklBZFFHdUNocWtXU2FOYm1qR2V6amp4RGxOcE02Uk9pK052RFM2cHBuZXc3bndzSXU2QUQ0R1lXK21tWmRHMXpUVGU3ZzMwK1JDWFFEZmdyQkhzN3cwT2lmQnpSN09uOGQ2ZzdvQW5nVmhjZDBzTDQwZTBIaUw5MXcvb0p3NlQwV1JPcjh5d0xvWllBR2dHV0FCb0JsZ0FjN1RUTUxBRjBFVXRRQ2ErWEtIUlFRQm1tMkVKM2RZUkJDZzJVWjRjb2RGQk5Fb3pYWTNOM2pDUW95UTFzU2cwTGdDMkpPNUFaZVc0TGZvb05DNEN0aVR1UUhUTERTSnFFb0tEV3hkMk83SjNJQnBadFJBTURmd0gzc3lOMWpwemFEUThDU0labWVhTzVzYkxJL05vTkR3SllpR0Z6UkttQnVvQWR6SXpEU3JLRFFrWEZ3RVVkUUMxczE4dWNNaWd2Q1dab0FMQU0wQUN3RE5BQXNBelFBTGNKMW0veUJoNEN0aTlDMGlpTWFuQUZ1bXoxTzNneGVENFBwQmtpelBxeExBNng2Y01WaU9kUm1nbWFnZ21wOXBicGsrVDkwTzFQK1RaSGx1bFlCalhzSmRqM1Vab0ptb0lDelM3UEwwZWVwMlFEUkxrdVY1VlFLT3pWdWMwUTk3cEEzYWtEb25tbFZNN2I2c25ocUd1WUhaTm05dXNHWDZQUG1BYklHU1pIbHVsUUQrTFZRUDE5YjRiSE90ODMrb0lYS2djZFJNcytMMGVaeTRIVkJ2WnBMbHVWVUNWRzgyNk91azZGUFF6SEhVUjdNdDArZXAyd0hUVENmTGM2c0VISk9XQXpUekF6VXVhR3lWUHUrKzBoL29tYVpKbG85enF3VFFZMVdkUEZLSGR6S3hBZzdDOVhVekVmTXJCRkhVQW1qbXl4MFdFUVJvdGhHZTNHRVJRWUJtRytISkhSWVJoQmMwQTV3RjMwQTNhSllMRWROUEJHRndlUXlnV1RVZ0NBTnZhUWE0QTlBTXNBRFFETEFBMEF5d0FHZHB4ckxiZldNYXRNYkZSeldKZWVManRmY1lMcjBXcnRMTVNEdjJqQy8ySFVDODhJclljd3lYWHd0WGFaWUkxZllLbHYzdUdhbnp6WjVqdVB4YXVFb3psdDN1T3dpVy9lNDVodFRIYTg4eFhINHRYS1hadnY4RFR2QjAzMDl1S2IxWmZPbTFjSlZtK3g2T0dLeStncldmQ1BaOU1mUlZ1T3hhdUVvenNxN2Fkd2dzKzkxM0RJbVAxNzVqdVB4YU9Fc3p3Q1dBWm9BRmdHYUFCWUJtZ0FXQVpvQUZnR2FBQlZ3Wm12M3l0ZGRlLzA4L1h0bjVoMy8rNDIvK25IZWF6Ukx5OXFVN2YvK252OXAwU0RIV1R5dlpFRWZ5MzMzelo2OTlULzN5NzM3R2YvN0p6N0poTHYyMUE5U2wrZDlMaDdTR3EwS3puMzc3Vi9Fdi8yajF1djFVNzFtajM5S251Zmptejc3OXE0SkRWcEQrSXh2K3RhM096WUhpK3k5Zi81Mks1bmRFdGZnUGYvV3RueTArTkgvdEVHWUNkVW9GNnEvaWl0RHM5Lzh0WFRGOUl6SlEvOG5TWnNOL3R1YlREUzF5YjNicEljdEkvNUVTbmNRbHAvemhYL3dzWnBwOTg1ZDZ4emQva2FHWitXdUhNTk4yMVNuZi9LTmY3WHJhQmx3Um12M3kyK2FDMGJOVFhmdi84elg2ei8rMTEvZy9XYlg5SHYyWG0vbE1QWWErOVRPK09YLzRxOWUrby9xRWYwODd2dm1MZi9sSC8rYlBmOHdmL3Y1UC84Zlh2c00zNDZldmNlTjBvanFmLzZRRC81Yy8vVDllKy9iLy9kcTMvOTgvKzliUFZOZkEvd2lkbVBPdnhmeFkrNzA1NFZkSlMrYUlmL2xILzNOeXJqbjhsK3JYNUovOTNYY1U1ZjlZUFRUL3MyR1grUUovL21NVitXdmYrdmY4MXgvKytiL2htUCtZK3JaTVMybDdyNzMrVFhMQVQ5TkxvNzdMNm4rWFpYSEZhS2I2b04vLzhmK2dtRU8zOVU5K3BqbzV4WUQvaDdqeVJ6L09mdmJMMXhXQmRCOUEvY0gveHp2KzVxL1ViVmNIOG9lLy8rUHYvZUd2dnFkKytaM2E5N3FtbzdyZjM2TS8vM3Qxb1BwYjNicnYwT2p2TDRpdzlJL3dpVG4vV2t6UHFMOUpUdmdiMDFKeXhPdHhjdTdmNk1NVnMzNzZ1dmxuMVg3OURYLy9qODFYVlcyb1l5aE0vc2Y1THgydmVmZ3VXakx0OFQvMFBYTUF0NnN2emFMeHlyaGlOS1ByOXRQWDlZMVh2MnN1RVozMDMrbG54SnJ2bVVlTnVwdC8reXZlUVl4TFBxU0hKdE5HZFFXS0Z1Yng5TXZYK1UvNlhUZWtxR2grTVYzajkvTCtOVDBaeVp6QUxTVkh4T201K2hEdVk1Si8xakRoRC8rVG9zb2ZtZjhzOUQvM3V3WEhxWUZmcHMvVlJVdnBoYUF2cVEvZ2R2V2xBYzEyaFI2Yi9mNWYvL0k3ZE8wMjBDenoyZTlVNTVMUTdQZC84bi85NjVoM21Gdk92eTlvOXYrM1p3VXJEY1JBZExjVndTS2VQVlRJaHhTSzBJdmZFTkJEK3d1Q1l2OGdIbnJvSVovcnpMeEpqT2xhc1M2eGgzbUhOcHVkdk5rbWo1MlhWQXRMRW9mVDlvRE1NbXVWTFE3TExFWEVQTGFVbWFaVkpkQjd5cnVnY3RlZnhXL0Z6K1JFakoxRXdhUVRJWWswUUhoTlppZUNkNXJrYUVsdWVYWUR1YS9GWkoxbFZ0N3pXaEh6V09uUUpaYzJ5UXpWaU5aVzNoSmMvRkRSOW5lMXpQYTNuQ2RtMWlwYnJHUUdwaHdCQitpeVlzWHZwN1FpTFNtWnRjekNUWGxGa1RCekpSTStrVWdEaEJkVHN6RnY5bXY0am4wejF3Ukg3WXRubWxMcTZod2E4bFhjZStuNnE4bTlyZ3V2WWVDT3VRVGg1bnJCMFJndGh3YmtvV0diTzlob0lxS3ZSMm4xTTk0cE9DSFpIR2JiOG5OTmwybkFtekpwQkl0Y3g4N1RnL2NQVWRQeVRoTmJRaTJhb0NTYTEwdHk5dmxxbXcxOXdiUUVueVNLR3VDeHYrQXUyMm1lSDc0ZUpMUmp3Z0hzQU41SmRFK0ZUc2krSFdlcUEwNDRCdmtPSnJPeDhGOHlpN3Zyd1c0NStGb1ZIUWVuaGpYcUFQc1g0UHhBaG5zNlRva1ppeW5BSmlpODdFdVA0TWVBdjhCa1ptZ0FrNW1oQVV4bWhnWXdtUmthd0dSbWFJQVAzR1FDd2JpaWQrVUFBQUFBU1VWT1JLNUNZSUk9XCIgLz5cblxuPCEtLSBybmItcGxvdC1lbmQgLS0+XG4ifQ== -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAYACAMAAADrEHTsAAABy1BMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojm6Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq46rq6urq8irq+SryKuryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/WsD/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///+q9+YiAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nOy9j5cb15UeqLG9s3PO7KoIGhRmJmeyblOiWgIkpxO13SIm2c1mNhlDVFprakUS3uzs5hhNmRxFThNO9uy6SNpOE8PxgnJFglF/7r5736tCASh0AfXj4b7X33fsru5C1eNF1adX77371XdfiwGgcby27wCAqwDQDLAA0AywANAMsAA3aPbfAM6Cb6AjNNt3AEBZOE+zl5Wbrd4CgihqATTz5Q6LCAI02whP7rCIILyl2T8AwrD51u1Cs1kvaE/CoDWOo+8P6c/2z+/TrpXDzh4MgiC4NoynQesXn/XUL/F8YE5STQRBZ+UEbi37rwRBN569PwbNHEM9NItnR4pSz9Tt/+qfduM47Ct+8K5V0tDOV8Po1mTW684+Uqz6r/8kOWl+Zzwf9JfP4A8y/8oxHZUTK2gmHHXT7Iup6sPo/3qX6q2C9kWvO702VL9dI5q9GsZPuY+a/UR1S7/5t8lJRKCwq49vfx50Q9XN8Qeja8OR2qf6Ok0z1Ub0w576lBfNXr7kZ//L7HbfFxVYxfL90dsKNJt9yY+0KT3bmGZhX3Fn2o3PhiH9UM899ah8yD3S7NNRf/4fHiYn6d4sOf7hePal+YCpOV2cHbZfqCft2TDzn8QK9n1RgVXk3aWyNFOMmarREz/4wr6mmWJDdMgcOaNeTPdmmiKzT6Nb/+U/piepfkyNzfj4+Z3zRyfP0tbOho9Un6aGetSbDfrz00l0YnpE0MwN1ESz+UdDptpv1BOzE0/78bRLf0Ynofqrq1gxan3SVf3QBe08VGMzOuDT+Uc/miia6ZP0qIuPj8NbTwZqVKY/iKO37lGTPDaLR6CZg6iJZnF0EPDwq0/dzq/fDFrnPZ5U0lhrQlPEPv24TTNNdcyUBlq9oD/thsG1N/mk6wc0UeWx3ER1dOoJnLQ2oW5StR/coCbbk2nQH6nmO5tpJmG1CEEUtSBx3ewrNXi7m7MfNBMfhEs0C3m9bR1InTsLiTTbBNDMWYBmgAWAZoAFOE8zCQNfBFHUgvM02/cqkVCUusACabaDUKNDHw71chv97EKh0Th2v6GxSJrtItTgD6Ob43j23vDridoBhUbTKHFDhdOsWKjBH4bEIvoR3YNCo3GsXaf9bqvTrFCooXbShyPqvaadeBR0oNBoHCVuaJOoSLPthBr8YdqbMceg0GgWZbjQIMrTbAehBn9IQ3wan8Xxo0mNCg3ABVRY0NhaqNF59SbPSHmmOdL7odDwMgiX1s2g0HA2CJdotpNCQ8LFRRBFLUik2SaAZuKD8JZmgAsAzQALcJ5m+16gsgDb17kBgGbyYfs6N4CdaJajyhiOlsQWs1SkAQ+N2rDdzfFoCrCuynhwenH04u7KETE8NOrEljfHQ5otVBm8j9fzWUqRijTgoVEbtlRCvKyspPj7ykqMv9+wvxzNMqoM3kdai3dZSmES5fDQqBFb3hzPerNlVQbvY60F57hTkQY8NGrDDrdZKnajWY4qQ/dmRpShaRadhPY8NAAXsOOCxpoqY6x+6eqxGUkpbmiRhkUPDcAFSFw320mhAbgAiTSDQsPZILxNnUu4uAiiqAXQzJc7LCII0GwjPLnDIoLwlmb7XtSqAtsXcH+wQbPLfBBoz5yT7PcX6fXFWTqF3s/GuoJ9U6UKGr3qomClN7vEB4H36CT7Ir2eOYuWaadG9AGaOQu7NFv1QTB7dFoqSa+HwbUHg/bH3QXNaHXWx9T5/k0H5Jsb7ICNPghJwpzT5Gl6PZ72Z0efJb1ZL1Wm+dybYQpQHRt9EMwe05uZ9DplppJkKfVmlBXNxLqCfVOlCjJfAzSrjo0+CGYP/3GYpNcfjqf96PDMZOHVQzPsZmNdgYSLiyCKWrCzoLHBB+GB3vPdH1CS/UOTXm99Eqg9twfXD/T8M+jOBzr3BJqJD8LbdTPABYBmgAWAZoAFgGaABThPMwkDXwRR1ILzNNv32pdB1e8GmokBaNZwEyJoVrbgBIkutrIzcFmhsc0FvAygWYqSBSf4dblt7AxcVmhsdQGvLkrRbMeCE4ZmhXYGLis01uLCtqxCo2zBiUVvdrmdgcsKja0u4NXFzjQrUXCCabaFnYHLCo2q98Fz7EKzsgUnkodmkZ0BFBrOB1HLgka5ghN08MVWBSeg0HA9CNnrZpvsDJYBmokPQjbNNtkZLAM0Ex+EbJptB6TOnQVoBlgAaAZYgPM0wwqYC9iJZmQ83P75MDpZ+2QpC54k1V8MgusHOh9O75Q4kjrf7lIsQ8LoW0QQdUwBFC24FMCgu/bRUhY8Taqr/yf5cHdS51tdihVIuMMigqhOM86K8x1np/6Q/nr75uN32LWfsuAzTp7TviSpTjQz+XB3UudlUsN/XznF/LLi+Zlm3K4LwFlxTolHN9mpf3p7wK796gOdBaespiKIzpvPtEdxkg93J3W+xaVYg4SOREQQ1XuzM1OxRD0S2Zmdc0NErejQZMGZLFN+EOqkOvVmJh/uTup8xwsLbIOderOw/byfFACgBLemmfpAZ8E5ef64u0iqM810Pryx1Dlo5gK2pxmnxjklzk79oXokftwaqy6JZpR9kx8nG//xK51U1zNNnQ9XaCh1DriAqutm0/VZZwlUSJ0DLqAizRbLXJWA1LknQXibOpdwcRFEUQugmS93WEQQoNlGeHKHRQThLc2wgOECQDPb3+JKolma5fghPDC1JkixER20JzEvqrEWYz8KjYa+OpBFw73ZBj+EV0Od45xTNuDZ2KSV9qPQaOqrAxnYotmSH8KrYWJ28JNBf0Gz/Sg0alA2QKFRn0KjFPL8ELjWhOnN7s7eG6Y0249Cw5dJnogg9jTTzPdDeDU0Zgfzu3F061FKs70oNHy5wyKC2BPNNvkhHGrFBiUyw9bYaDFgbuB8EPtaN1vzQ3gyMLUmWuzfohj0UFsk3IdCw184v24GuADQDLAA0AywAOdpJmHgiyCKWgDNfLnDIoLwlma7r5OtwpM7LCIIazS7rHoA7dHvb77gDHlIixWBEWjbSp2vteDJHRYRhL3e7JLqAbxndhzPTye0PBsdGtvtV7wsZil1XuNXBbZFgzRbrR5g9syOae2fU+cmKfBqOOdUuZ3UeeUUNba7b5uj2Vr1gMTNgHPhRLOnQ0omcSadU+V2Uuc1flVgWzREs7zqAWZPXm/G73taSp3X+FWBbVE/zTZWDzB71FMw1jRLx2bRIafK7ZgbrLXgyehbRBAWFzQ2VA94oPdcP6B0ubY1GJmZZnB7wKly1AVwPQhv180kXFwEUdQCaObLHRYRhLc0A1wAaAZYAGgGWIDzNMOSmQsAzXwZfYsIYm9TgCLFRubAxhUa+RF6codFBLG/mWaRYmNxYOMKjfwAPbnDIoIQQLNNig3qxUbB2/eaV2jkKwheVlcgwNzAbPdkbhAXKzaeDqdUkSLsN6/QaPBbApfCEs0uUWyMgqBzNmSaNa3QaPBbApeieZoVKTboeRrq3qyMQgNwARYWNC5XbFDRig7NJz+EuYG/ELNuFvYLD0HqXHwQ0lPn0UFxHQvQTHwQ0mm2DUAz8UGAZhvhyR0WEYS3NANcgPM0w4qZC9iJZmdDynwPo5O1T7JJ8PmAVijUcXopg352OQPeueSkhlPn230/oCnsQjNFC8p8Pxis19BcSoLPjiacIY9ujuPZe8OvJ2qHds6+5KRmU+dbfT+gMWxPM9VJXRvyHY9+2GtRgns4ffvm43d6LZMWn/W6U953fjTh43j1nn5E95I6AANajm1/HnRDdRZnzkfXhiOuK9xpMnXebMoZqfP6UueKL2dDznyrXuqMXhS/PWBnH/WBToJP1RGKINR58XEj6r0UR0Zkzc69WdhXzajDHo5nXyZeB/TWOZ05bDJ1ftkX82SSJyKI6jNNxaynNJZSz8MT9duMc0NErejQJMGZLGnOO+ynvRlzjMZmqg3yaj9/dPIszaWfDR9N+O3gJlPnZS7NDpBwh0UEUZ1mlN5uPycCMM0owa1ppj7QSXC1f9R6zPzgDDkN8Wl8FsePJroOQNjhE249oeGdPimO3rpHCXUqP9GcuUGZS7MDJNxhEUFUpxnN+fqv3gxa41HrvNcJg6D9cWs8ZU+8NAke9Efk/N/h48xMc6T2zrgOAI3vaPb4afxsnOTSJyQSUgcGN5A69xdV182m67POEvhqzAVPCgCaOYuKNFssc1VCaIxBLwdo5iyczwIALsB5mkkY+CKIohZAM1/usIggQLON8OQOiwjCW5qVWipbgid3WEQQNmhG0ozcD/gFzazWwuwiTIPWL+5pEUe9Co1avhJQD2rtzZK3ybWL8fJHxxmtRebz6Bal3FnEUbNCo56vBNSCumnG6o2p7pumb9/85IPgg4Be/6VdrLVgZUdA8gtOCTw1y2XRvbhmhUZlxQO29W1rphkpNs6Gzw/JsuDdQfui15l2opOwPVG7Eq3FtK/+ULtYrvFQd14k4qhZoVHPVwJqQe29GaXVo0O2LKDMep8y7fPTidqltRakv1B/qF0s1zgzvdn8zrhmhcbWUXsy+hYRhJWZZoZmZFmwRjPSWmj9BdGM5RrEIc6LPpqUU2hIuLgIoqiFumearN5Qg3p61pFYo/1xELQek0TjHa21+GcBSTm606Cv5RpT0qEZEQfKT7gehLfrZhIuLoIoasF5mgEuADQDLAA0AywANAMswHmaVV+b9WT0LSII2alz9Vm9qfNdwvbkDosIwtbyrN7umjp/Nla0qzN1vkvUntxhEUFYywKUTJ3TW+c1ps53Se2+rJ4ahrmB2VqpC1A+da6TTfWlzuv5PkBdkJI6n/bjOlPn9XwfoC4ISZ3Tc7FOc4N6vg9QF2SkzsMAdQG8hvPrZhLmVwiiqAXQzJc7LCII0GwjPLnDIoIAzTbCkzssIghvaQa4ANAMsADnaYY1MxdwCc1YIhGyuSfVieCKEmXKT5Dowmb5ie2+OGATl/VmSZVyXSeCK0qUKT/BNQEslp/Y4lsvwZPRt4ggykwBUppxnQi+2aXKTxia2So/YV/ZAIVGFYVGQjNdJ4IrSpQqP7HozayUn8j9LpfAk45ERBCle7OHaZ0IUyh69/ITTDN75SfqujRWm/AkiDI0m3805Hut60RwRYlpmfITyUOzkfITgAu4dEGDZ4pJnYhfU0WJMuUnzEcoP3GFgfITgAWg/ARgAc5nASQMfBFEUQugmS93WEQQoNlGeHKHRQThLc2wbiYpCNAM2CNqp1mOruM+ay1iLclgyQWto3HmihbZzCwTCg2PUX9vlqPrSLw1eM/sOJ6fPiLTjPgLc/grXszYl0IDaB4N0myh60hoxntmx3ol9ozEaxOdOp+zImNPCg1sm982R7OMrsPQzEgyjOTi0eTrCcuH6JnJigwoNJwPwt4UIEfXYWim95jejLPlpPSg3oyTVlBo7LsJl2iWo+vQWguzR5ub8YOQa5vQZ4esyED5CeeDsLigsabrOKfZohpv8Z7rBzTHJNOMfqiPU7g9YEUGyk+4HoS362aACwDNAAsAzQALAM0AC3CeZhIGvgiiqAXnaYZ1M0lBlKBZXeYG6mdXsrmBJ3dYRBBlerOazA2+pveDYW5wJYKoRLOK5gZxdE+yuQG2+02d12VuMAo6ks0NgOZhw9xAc0ysuQHQPGyYG5DopzFzA9DMBVgwNxgFVH2iKXMDCQNfBFHUgvPmBhIuLoIoasF5cwMJFxdBFLXgfBZAwsVFEEUtOE8zwAWAZoAFOE8zrGa4ANAMsAD7NMvoMng1hBNZKWZZI4QVNEQzT0bfIoKQMwVY6DLma1KP2XH6hvqKfIMAmokPQg7NWJcRfhB8EPSnbx+06EVNkpqx7GMadJeNEHqcRXj73tYKjbXPi7cvqysQUH7CbMuUn2gErMuY9TrTTnSimDTthu3J0+H03UFrfDZ8frhshKA+IEFHqIVq6M3EByGmNzNijj5l4FneMT+djIKgw/n4KKWZPow+OBs2TDOgeVinWSL3MDQLu4pmJJ3M0iw1QqAPwst7M8AFWKaZ0WV89wftj4Og9Zg0aFPWb3RY9jHrvZM1QiDNR4feBgDNHIcT62bozVyHCzSLDrQMBKlz8UGImQJUAGgmPgjQbCM8ucMiggDNNsKTOywiCG9phmUzF7A9zcp6HaSlAV4MgusHiYFB2ExdgB2+OWARO/RmZb0O0tIAlL00BgbRIb2zWX9dgC2/NWAZZWi2o9fB46Q0ANEsMTBg5+P66wJUTmFj28i2BM129TrQpQG4hs4kMTB4OoyjkwbqAmzzPVbhyehbRBA1TAHKeh3ESWkA6s2MgQH3ZnH9dQF2uCIpPLnDIoKogWZlvQ7S0gBMM21goMdmddQFAM0kBVHHgkY5rwM+6DyZaRoDg/FIPUhRF8C7ICytm9XjdbABSJ07i3ppVpPXwQaAZs7C+SwA4AJAM8ACnKeZhIEvgihqwXmaVc81eXKHRQQBmm2EJ3dYRBBN0OxMnEKj1Nfw5A6LCKIBmglUaJT5GoAFlKbZfECaDGEKjb0rEbDN35amWUiJcWkKjd2/BmAFpWmmmPWUnnWiFBplrgBgAVV6s7D9fP8KDQkDXwRR1EJpmrHnABQaCGKrFpxXaEi4uAiiqAXnFRoSLi6CKGrB+SwA4AJAM8ACQDPAApynGdbMXEDz5gbzATkuquNMeU31k15arz11vsu3XoIno28RQdQwBShrbqDO44OpUPDsveHXVAu9gdT5Nl8hF57cYRFB1EmzHc0Nzo8mfFxa+jy6FzeQOi+d2n1ZPTWMugBmW0NdgLLmBnQeHTeiZ5+izCjoxA2kzrf5CrnwpCMREURdvVkJcwNNl7Cf9mbzO02kzne4GIBtWDA3UOfo49S8gMZncfxo0oC5QT3XA2gEzZsbqLlkh48zM80R94W1pc4BF+B86hxwAUid+zL6FhGEt6lzCRcXQRS1AJr5codFBAGabYQnd1hEEN7SDAsaLgA0AyygPM1yFBv3WVSxjLMHKwoNPRsVpNAAmkeF3ixHsWEqSGegd2YVGrT0H0tSaADNow6aLRQbmhnzAaUASJ/BDgizFYUG0QwKjZUtFBqbkKPYSLLkik2cOGcHhFWFBtEMCg0/g2hgppmj2NDMUI/D6JBpxg4IqwqNtDeLZSg0PLnDIoJogGY5ig0tqgg7Wrcxan1CDggXKwqNxdgM5ga+BdHEutmaYuO8x9NGGptN2PyAftxeUWjQwRMoNK4WnF83A1wAaAZYAGgGWIDzNJMw8EUQRS2AZr7cYRFBeEuz6rkmT+6wiCD2QLOz+2xrfLGc58yrEvAkyabPM4l09Vs35vzCcqwrAM0kBWGfZpQ0P47np59nRBu01ppTJWCxYptJpB/z3vVYV4DMuQtoimY6aX48v6uIptPoqn/qTtX/cqoEZLLpi0T6sckRsHdCcep8dT+2krZN0UwnzSntPT+d6DR6P46fH8Z5VQIW2fRMIp1/C9kv4Uz7C6E3cxZN0UwnzXVvpmlG0gv1YIxzqgSs9GY6ka56s0FfncwvtWdiXQFo5gIa7M3C9sWx+k0zZdT6pM80y6sSsDw2M4l0de7ICs08GX2LCML2FIAeix/2tBK7n6TRO7Ned0OVAJ1NX0qk02N1SvYI571OJtYtv9j28OQOiwjC23UzCRcXQRS1AJr5codFBOEtzQAXAJoBFgCaARYAmgEW4DzNqi/NejL6FhFELVOArStQGKXFnNbG2pM4DBidleayRSoqmRtsF/0meHKHRQRRz0xz6woUvJrPSow5ffZsPL8zng/6ywctFamoYm6wZfQb4MkdFhFEzTQrqkDBB3JSaf4TxS6mWRx2te1B+/OgG6pOixsZXRuO2A25U97coJqC4GV1BQLMDcy2HnODrStQ8IHRIdHs7uy9YdKbJbYHD8ezL00jnCzn3Hp5c4Mtowf2hhI026YCRaY3uxtHtx6NabTW0bYH8zvnj06epY2cDR9N+BXh8uYGVS8C0DR2o9nWFSgyY7O7ioetsVbCsu1BHN56QgM23UgcvXWPWlKEKmVuALiAHRc0tq9AYWaabwzowfrwvEfzU7akUrPHT2mwZhqZUO+omg1u9GBu4C3qXzcrU4Hiq3FMvV4BkDoXH4S11HmpChSheZ/pcoBm4oPwVqEh4eIiiKIWQDNf7rCIILylGeACnKcZ1s1cAGgGWMDONMtTaYzW5Rf0ety6W8a1N7PHCVFoAM1j995sXaXx4PTi6MXKslfYnuS5ZST1KegtTCg0/AuivilAjkqD9/EKfyrVoHfNc9wyEk8MTrpDoQGFxkbkqTRoH6kv3jWGF1N6XTzPLWN2pD0xyExDikLDk45ERBA192YrKg3ax+qLVKpBNMtxy6DejA6J2LNFhkLDkzssIoj6aJaj0tC9WScr1aCHZo5bRpZmUGhcHZRY0FhXaXAxCR6bpVKN50E/xy2DZpp8yKz3LhQaVwgy1s0qKDQAFyCDZhUUGoALkEGz7YDUufggvE2dS7i4CKKoBdDMlzssIghvaYZ1M0lBNEGz4iy6Tn8Tzh6YyhLToPWLzxZZcp0+D/ULn60n5cpPlIoesIhKvVlxFj1JlZsk+qthdGsy63UXWXI+U9cK/sIcv3v5iXLRA/ZQD802ZtE1zXQtCvZi16bYad0Jfab2au+1J3G58hOVU9/YNrythWabs+iaZkktCvU4fMgdVJol12dy5YmvSdJRrvxEuegBe6hOs8uz6EwzXYuCezPNmLTuhD6TezO1Ozlo1/IT5aJP4MnoW0QQjcw0i7PoOv2ta1HoyhK3JvSATOpO6DP12Mw8JHcsPyHh4iKIohaqLWgUZdFv9HjmSNPG21xZok/9V2fWSzPpOn1OJ4W6KZSfcDkIb9fNJFxcBFHUgvM0A1wAaAZYAGgGWABoBliA8zTDupmkILydAoBmkoLYA83O7vM7mhcme26QY3lALxDvUaHhyR0WEYR9mpEo4zien37eXtCM3obLsTzYr0LDkzssIgjbNNOijOP5XUW0i153yqmA7lT9L8fyAAoN37dN0SwRZXRiejGY/qASAs8P4zzLAyg0fEdTNNOiDN2baZqRBIheNs+xPNivQgNoHg32ZmH7guylNFNGrU/6TLM8y4MqCg3ABTRFM3osftjTE8g+/UE/OrNeN8fyoDWGQsOTILxdN5NwcRFEUQugmS93WEQQoNlGeHKHRQThLc0AFwCaARbgPM2wbuYCmqFZju3B/cTngPaYLMBKshx1AbxFQ73Zuu3BMPE54D2cVJ+sJMtRF8D5ICxPAXJsDxKa8R5OQ60my1EXYM/fQ1JdgK2QY3tgaGaqAVBSfTVZjroAzgexj95s2fbA0Ezv4d4sXkmWoy6A80FYplmO7YH2OTB7uGbTarK8VF0ATAFcQFMLGmu2B+fsc/BA77l+QEn1tWQ56gL4CufXzQAXAJoBFuA8zSQMfBFEUQugmS93WEQQoNlGeHKHRQThLc2qr2d4codFBAGaAXtEfTSjAhOd1Z1JhinP0cCUnkgPLa3QqCF4oFnURrOMBiODUIsr8hwNjFZjgdIKjerBAw2jJpolBSbCD4IPgv70nV7rnB0N6D3Lgxtf5jkaGK3G6Npw1L7okfFxWYVGdYUFtg1va6KZ9jI4uuh1pp3oR+Tx0+VXzRXNng6/Guc5GiRaDUqd87GlFRoVY/dk9C0iiIanAEmBiWmfCgIo1kSHCc3MaGvN0SBRb5wNH03Ytb20QqNi7J7cYRFBNEyzpMBESrOwy44GT04nz8aKcjmOBkarEUdv3SMJB5U+KaPQkHBxEURRCzXRzBSYeEONqYKg9ZgfjuRoMA36v1WdU46jQVp6gmRp0UEQ3OiVUmhIuLgIoqiFRtbNpt3iY5agRm/zu4VHIXXuLJqg2WLta1uE5u2mywGaOQvnswCACwDNAAtwnmYSBr4IoqgF52mGdTNJQVijma4G0F/dHZ0Yr//2bw8C8jSgWUJIixXVzQ0qRuzJHRYRhC2a6WoA0/ZKEn0+oDUOtjR43qe368jzny1nazA3qBiyJ3dYRBB2aGaqAdDqPlUITgsCBB129zcvAdOyGtEsNLmBquYGAlLD2F6+rZdmi2oAxCGTPucf0c1x8gnbHRDNuBxADeYGNQUPNId6aWaqAVCyW/1q0uecUmLbdd2bjWiotdybVTM3qCl4oDnU3ptxNQDaduKpTp8/JloZmqnf6IF6d3lsVtHcoKbggeZQL82SagDzAdkYmPQ55cU75O5/g+oE8NSyq5PmIzPTrGJuIGHgiyCKWrCwbrZdXnwLgGbig9gjzbbLi28B0Ex8EN5mASRcXARR1ILzNANcAGgGWIDzNMOChgsAzQALqEIzyh61fz4k8cUKsrYF8wHV0VTHaaNQ+smGoFxqs5byE6WCX8CT0beIIBqYAigukWnBg8H6CyZLtgX0MjqZG0Q3x/HsveHXE7VD1wOuqfxEmeAz8OQOiwiidpqxGIMJwOILsiuevn3z8Tu9lrEtmLE8Q+07P5rwcZwzoh/RPZPOrKn8REUFwcvqCgSUnzDb2stPsBiDTQtYfKGegLcH7Rdsa2BsCyhvrvhCnRcfxylzRZlR0NHijLrKT+we/BI86UhEBFF7b8ZijJjNfjgrzi/zxmxrYGwLEhWQpkvYT3uz+Z0x92ZxTeUndg8esIwqvVnYft7XMoynQ5JVaJqpD7RtgZZnMF3Y3IDmBTQ+i+NHZmxWR/kJwAWUphmLL8i0YEzii04YBO2PW2PVj5GDAdsWkJtUf0RzyQ4fZ2aaI545jtRTFOUnrgxqXjfb2dZgF4BmzqLudwF2tTXYBUidiw/C29S5hIuLIIpaAM18ucMiggDNNsKTOywiCG9phnUzF1CdZpziDoPE59+UAAgC8ghdOpDXM2jtda7TBVLMDYDmUUNvltQ11wlzXQKAXAw+zzgcqB0mcx4dclJTkLkB0DzqpBn7/OsSAPTe7/w0NTfoToOuybYf9RIAACAASURBVDWRgcZvJjA3uFrbGmmmE+ZJCYCOotmE05qKTfHzwzRzrpj1qShzA09G3yKCaHAKwHRY+PxzCQDdm2maEXHU8zHJnM/e/7uhKHMDT+6wiCAapBk9BokSOmGuSwCQiwEV0qHs+Sd9plmaOR/RY1WQuYEnd1hEEE0uaPAUcm4S5r/WJQBYgt3n/Do99ma9rsmcm7wnzA28DMLbdTPABYBmgAWAZoAFgGaABThPMwkDXwRR1AJo5ssdFhGEtzTDupmkIErQLEd6sZWbQSLS0NUzteyCFsfSpFHuSTA32H8T++nNcqQXW7kZaJGGqQVsZBfzO+P5oH/JSVBo+IytaLaQXmzlZvCYRRqGZkZ2wTnMrq5J0f486IbqLG52dG044nftOlBo+LvdhmYZ6cVWbgaJSINLURvZhe7NkpoUD8ezL81JnDrnFDvKT/iLQpotSy/ibdwM+KCkNzOyCxqedXRNivmd80cnz9Jmz4aPJpzihLmBv7iMZjnSi+k2bgZTI/DRNNOyC3poxromRRzeekLDO31SHL11j85QhCql0JAw8EUQRS1cuqCxJr0Yb+NmwAedJzNNLbtQoCEcjc0U+z5Vj+Kk2Qn1l1Sh4kYPCg3ng2hq3aweN4PtKlSAZuKDaIhmNbkZbFehAjQTH4S3WQDABYBmgAWAZoAFOE8zrJu5gAKa7ZI+1w6O/BbJUiEAmibwJ0idex9E2SnADunzmBOQ2k42WwiAX5YTnDr35A6LCKIyzYrS5zoFntBsqRCAoZnU1PnL6qlh1AUw27J1AbZOn3MKPHEqWC4EsOjNRKbOPelIRARRqTfbKn1OKXB6aA76q4UAmGZInV9lFNFs+/Q5pcDJ1GDUXy0EkDw0G0mdg2YuoHBBY8v0Ofd5WmP2YqUQgMmqN5Q6B1xAHetm1dPnFVLngAuowxGoevocqXNPgvA2dS7h4iKIohZAM1/usIggQLON8OQOiwjCW5oBLsB5mmHZzAXUS7Oz+xlBxQIk50jqTEyD1i8+W4gxWKUxzytGQWKPmDNcy7GuADRzAbXSTBeemGbKTjDmLOfQdSaiW/R2+kKMoVUaecUojk3mYDXWFYBmLqBGmqmu6NpQCyq0EsPUngg6LOfQzuxPNYeMGMMIP3KLUSRiDz75MoXG/pUNUGhUVWjsgJBlFiyoSJQYZ1p7wXIOrd54yB1UKsYwwo+8YhT8W8j6jzO9dNtQb+bJJE9EEBZmmmfUV2lBBSsxmGGcttRyDu7NNGMSMUai0sgrRsFiD11b4Clo5kgQFmimerOQhI207WgRx6j1mOYDCc2ozoQiIZXT0WKMRKWRV4yCxR7FNJNwcRFEUQs10oyGYR9qQcUDUmJw7QnSXnRIzvEGW+n1qf/qzIwY49qbRqWRW4yCdB9Tcks473UysQIOoul1s+20F9sBNHMWTdNsO+3FdgDNnIXzWQDABThPMwkDXwRR1AJo5ssdFhGEtzTDupmkIECzjfDkDosIQgDNtClGrL0ztBbjfnaX8d4ecbYq4NdYzoaz99kdmf9E6txZ2OzN9Pu9RpWhtRjLu47j+enzfjzqc0Yg8XKJTowvDGjmLPZBM1Zl6Ozl8q7j+V2dQef8plZ8HF1o5VlzCg1sm9/ugWbGOyO128ju6vD76yeaa5R6D9uTade8CIrezFnsgWZalbHUm5ld1Jsx/bg3Y8XH/LRxmnky+hYRhIApQKxNMYwqQ2sxlncd68OOtVqDFR8vimgm4eIiiKIW7M40A7IuY1XGd39AWowPs7uuH9B8kq0hSa3Bx/enwe1B8noBaCY+CAE0qwzQTHwQ3tIMcAGgGWABoBlgAaAZYAHO0wzrZpKCsDMFKGluoDPl6pMn+zA38OQOiwjCCs3KmhvoTPkX6UF0kj1zA0/usIggLNCsvLmBfhO4lyTUYW4Ac4PNKG9uwJnyr6k0yj7MDYDmIcLcgHsztTs5yK65AdA8RJgbGBWjfkjuaG4AmrkAKeYGipq6zAXMDXyE8+YGEuZXCKKoBefNDSRcXARR1ILzWQAJFxdBFLUAmvlyh0UE4S3NABfgPM2woOECQDPAAqzTrMjiYAkwN/AE9nuzIouDDOyYG3gy+hYRhJwpQKHFAYnRRsHb92yZG0Ch4ZRCY0sUWRw8HfL7v2HflrmBJx2JiCDE9WYbLQ5GQdA5GyqawdzAvSBk0ewyi4NnYy326G9nbgC4gH3MNC+1OGirsViHxR3bmRsALkDsulm49uIKaOYupNIsOmiNV/eBZs5CKs3ygNS5+CDkTAHKAzQTHwRothGe3GERQXhLM6ybSQpi3zSb5abHZ6gLcDVgrTfLT4+jLsDVgHWaLafHURfgamxt02wlPY66AFcDtmm2kh5HXQC/gtj3FCDOT49XrwsAmkkKYt80m+Wmx1EXwLMg9k2zXOSkxy8DaCY+CIk0y0uPXwakzp2F81kAwAWAZoAFgGaABThPs+qrs56MvkUEIXEKsCtAM/FBSKMZazN4jYzz47Ne++cP0toTGwCaiQ9CGs108ulZUoAi7FPpirT2ROaw48XvoJn4IOTSjMUZXBlFvxs8ujYctS9614Zcd2IadKODG19eUn5ChAIB28u3e6eZFmfEU51d0k4Hr4ZPh9N3ue7E88P46fArvYrbUG8GNI/90iwtQBHHOo9Oz8yz4aMJSTi4IEB0qEuILWJdAWjmAvZGs/lH2jtDizOmXLWJnQ7i6K17/DRNaPZsrH4sYgUcxP4WNKIDXW+CJRu/ftNUOaSe7aFWOHLdiVmv+9ueKZ2I1Ln4IMRNAUoANBMfBGi2EZ7cYRFBgGYb4ckdFhGEtzQDXABoBliA8zTDupkLqE6znCT4fbYpuDCv+ibgFQwqpTkf0AldWvrXqxicL+dXhBdrscb4gF9V6WdjXQFo5gJq6M3ykuBkU/B5e0Ezeinu5jievUfrrXF0T7sXfBEnlQH4mI86cfxf/8l4qV06c2oaQupcfBANTgHykuD0Yu/89KLXnXIH1p0G3ZBetgy7tPr/mwm/76s6PlMZQPVvH3dnP3l/HP/m345DeqWO/k5pRsWBm0udv6yeGkZdALNtsC5AfhK8E/ML4/Rar3rmPT+MR/Too7xSd/apdsr4ejLlUtWcL/8snn066s//w0Nqos9/a5pRUxrozcQH0XRvtpIE172ZphkRRz0kTW8Wz97/O7I1iPlV8qdDky9Xf80+jW79l//4cEzDN/7b9GbRrUk21hWAZpKCaJBmeUlwEiMqmkUn8aj1SZ9pRhMEGp/Fo/YkNs5S8ztjnS+PDs+Gs0/nH/1o8nD8cDzt899sfKCaCrvZWFeAKYALqGNBYy0Jft7T88h+4u9PGXB9WBzrbozcC0J9msLtwe3B9YOgP+2qKesnQfDdH/Dfujpddz7Q0m2smzkL59fNABcAmgEW4DzNJAx8EURRC6CZL3dYRBCg2UZ4codFBAGabYQnd1hEEN7SDOtmLqAszc4eDNIkUIrEF1uLNNovBsH1Ay27oMWxteOXKlFAoeEzStLMWBGsINRSitSpQP0/kV3M74zngxUP0OVKFHtTaADNoxTNTGGISfhB8EHQn77Ta52zFoPSSwc3vkycCphmRnahaEbyjAHZG7c/D7qh6rRY0WG8DFRfty+FBrbNb0vRjAtDUP2RzrQT/Ug95sIuJ8kVzdiJwIg0qAJTIrvQvVnYj/nQh+PZl0nNCUqd89lQaOy7CWFTAC4MoVgw7U+70YniSHSY0MyMrbTjP/VmRnZBw7MOnRgdzu+cPzp5lio6yMuAkqETKDT23YQwmnFhiIsMzcIuazGenE7IiSB1KmCaadkFPTTViSQ3i8NbTwZqVKYVHexlMKVRWzmFhoSLiyCKWihFM3og3h4Eb6gRVBC0HvPDUdeK6JMTwSst0tAzTS27UKBejsZmin2fxs/GiaJjQlK16CAIbvRKKTQkXFwEUdRCDetm027xMQVQ47n53cKjkDp3FtVptljpKo/wcjdQA9DMWTifBQBcAGgGWIDzNJMw8EUQRS04TzOsm0kKojrNckwMhvzDFLzPIpsUnw/ojRN1nHnnRE8ZBJkbeHKHRQRRQ2+WY2JAPx4M1hc0lpLilPykg427Ab01F8PcwM8g6qTZwsSAf7B/P70MN3375uN3ei1zxIyz6Wrf+dGEj0veB+YsuiBzA2xFpc5zTAz4h+ql6NXe6e1B+wWn0c0RlOZUfJnQeXRc4m5ANJNkbgA0j11ptmxiwD/YWH3GqaKY0+jmCM6mpynwsL/Wm8UyzA2A5rEDzXJMDPgH04zy3Zpmikj6CM6mP2a66OOMu8FibAZzg6uCXRY01kwMxpQkH7N/fxgE7Y+pxBJnzPkI0ir2RzSX7PBxibsB58trMzeQMPBFEEUt1LxuVkMafTNAM/FB2KFZHWn0zQDNxAfhbRZAwsVFEEUtOE8zwAWAZoAFgGaABThPM6ybuYDdaJan0hit2xbQG03rBgfX3swcB4WGl0HUNAVYV2k8OL04erHyukjYnuQZHCR2CFSLAgoNL4Oom2YLlQbv4zfjUqkGWbXnGByoX/kQqkUhSKHxsroCAeUnzLam8hN5Kg3aR64F76rnHUs1+opmeQYHs6MXfMjzQ1EKDU86EhFB1Nmbrag0aB+7FqRSDaJZjsEB9WZ0CNWigELjSmFHmuWoNHRv1slKNeihmWNwkKFZfQoNwAXsuqCxrtJgsQWPzVKpxvNcgwOaafIhVIsC5SeuFJxfNwNcgPM0kzDwRRBFLYBmvtxhEUGAZhvhyR0WEQRothGe3GERQXhLM6ybuQDQDLCAOopQr8s2HhjdBWekDFiTwZjqJTVe26dTeO3s2n2Un/AXdfRmOeYavIK/VMTErPsTEmEGgU/RKg2Un/AXtdJsIdvgXZxtonoUqkvSmgyqVDFOhBl8Lp+i85pQaOz7e4hRaOQiR7bBu6LDsM31KMgFgTQZulKFFmaY8k66BIVWaUCh4XwQTc40c2Qbpjcz9SiIOro3Y4sNI8ygI/UppjdD+Qnng2iSZjmyDTM2m+t6FNSb8dhMW2ykwowTc4pWaaD8xL6bkE2zddlGovA39Sj4wUeaDLLYmJAwgyeQagjGp3z3B6TS+LBc+QnABdhdN6tmsQGaOQurNKtosQGaOQvnswCAC3CeZhIGvgiiqAXQzJc7LCIIb2mGdTNJQTRMs7MHg1WHgzRvmeNzQG8Nw9zAwyCapZlJlq8g1CnvPJ8DSeYGQPOoJQswoAXXo0n4QfBB0Kf0+DmXnpifcuI8z+dAkrkBts1v66BZSAUAZkcXvc60Y9LjXBNA0YwS53k+B5LMDYDmUQfN1OOPc+FUGSA64fR4QjMz1FrzOYC5wdVCTb1Z2L7I0CzscumJJzpxnudzIKn8hCejbxFBNCoE6pE9QfCGGlAFQesxPxyp9IRJnOf4HLTGKD/hZRD21s2aq0ABmokPwhrNGqxAAZqJD8LbLADgAkAzwAJAM8ACnKcZ1s1cAGjmy+hbRBANTgF2NTeguehMkLmBJ3dYRBCNLs/uaG5AVagFmRt4codFBGGFZtuZGyzRDOYGiwD2/j28MjfI0kyCuQHQPPZhbpChmQRzA6B57MPcIKFZLeYGgAvYg7kBHXQBc4MrBefNDSTMrxBEUQvOmxtIuLgIoqgF57MAEi4ugihqATTz5Q6LCMJbmgEuwHmaYd3MBdRAs7PhKAhWrQ3oLaZ1UwMqqbk4ZjnpuTdzA6B5VKdZ9P0HpxdHL+4u7w3bkzxTgySVOTuOTdp8AZgb+IuqNGNjA2YEFwiOftgjGxY2NsgzNaBcOh1CeU+dNh9dG454tbaD1Pm+v4fc1DkbG+hy5/04fFc98kjuw+XO80wNZkcv+JDnh2nanPKZ/JI66gLsuwm5M002NmBGqN+iw+iE/Ap6AdMsx9SAejM6hKoDmEz72fAR558mqAuw7ybk0oyNDbhmSdiJydtAcYhy3/TQzDE1yNJMp83j6K17lG5XhIK5gfNBNEUzdjHgtDiPzUat814nVI/J57mmBjTT5ENmvXdNpn1CEqLoIAhuIHXuL2Ssm301jud3C48CzZyFDJqFxhj0coBmzkIGzbYDaOYsnKeZhIEvgihqATTz5Q6LCMJXmv2DhIsr4g6LCAI02whP7rCIIATQLNfQILPL5KWmZJNgnBDOhrP3x3xoN95AMxuRA1VhszfLMzRY2nUcz08nVJPCOCFopVB0Ep1kYl0GaOYE9kGzrKHB0q7j+d2Ya1Lwu8OmqgW/a9fdpND4h5W/sRW53QPNlgwNVnZ1Yq5JwdUpWPwRqqdo17x3h97MWeyBZkuGBku7jnXG6emQezMWf1AK/lKaSRj4ihh9iwhCwBQg19BgadcxHza/o6tTsPjjRQHNRFxcBFHUgt2ZZo6hwWLX9QOaT4ac3RwZRWR/SoUtzNsAoJn4IATQrDJAM/FBeEszwAWAZoAFgGaABYBmgAW4TjOsm4kKotoUIN/6v7N2mFnTX3c1oNWLtePrMDcAzUQFUXGmucH6fwWhllvkuRrM74zng/7y4XWYG4BmooKoi2ZL1v/hB8EHQZ/M/s973Sk7GlAZgDxXA7I1Dikb3r7otT8PuqHqtOowNyCaVUztvqyeGoa5gdlWNDfItf6/6HWmHWP2z/YEimZUBiDP1UD3ZmSAQIc+HM++rMfcAKlzJ7ALzdas/6d9es+czf4Tmpmx1ZqrAQ3POtoAYX7n/NHJs3E95gagmRPYkmb51v8pzUJyNRi1nugyAHmuBvTQjLUBQhzeejLo1mRuAJo5gW0XNPKs/99QI6ggaD3mh6POc3MZgBxXAwXq5dgAQfFJPX/nMDe4Qqhh3aya2T+jgrmBhPkVgihqoTrNKpr9MyqYG0i4uAiiqAXXswAiLi6CKGoBNPPlDosIwluaAS7AdZphQcMJgGaABdRJs3mOaIPBCaqs1sLsIkyD1i/u0c/zcgqNWiIHGkatvdlScYmVj44zWovM59GtyazXjcnRAAqNfTfhyBQgU1yC1GPTt29+whoOykupXay1oBfk6I+jCacEnvJyGTsaQKGx7++xd4XGdsgUl3g6nL47aGsNx0nYnqhdidZi2ld/cLGdOOw+5M6LHQ3KKTQk/DcsoiMREYS13sy4/o+CoDPtxjq5Tjq0Q6O1IP2F+kPtYrnGWbL4/3RYTqEh4eKKuMMigrBNM5JArtGMtBZaf0E00/UqFIcoKTq/My5XfgJwAXXPNE1xiS4960atJ4mGoz/rvaO1Fv8sIAFtdxr0tVxjSjo0GrDNoNDwF66vmwFOADQDLMB5mkkY+CKIohZAM1/usIggQLON8OQOiwjCV5ph3UxUEE3QLMfyYMg/jMF6Cl0EgN5YuX5APtkB1UPvctr8if4oLm1uUCpywDIq9WY5lgf048Fg9SUUXmllw4M5ffZMm8vqhDnXB+CDSqXOy0UO2EU9NFtYHvAPzp9zjvztm4/fUb/zgfzu5vwng746ha2ydcKc3jqfc6q8VOp85W9sRW5roVnG8oB/RDfHlKuc3h60X7D1AR/Ivtnzu7P3hs/GbPyvE+amPsBnMcwN/EV1mi1bHvAPTmzq5FHM1geZ3uxuHN16pHuzmBPmXB+AU+VInTsfRCMzzRzLA/7BNKMMuKaZ7s3M2Oyu4mHLjM04Yc71AThVXsrcQMLFFXGHRQTRzILGmuXBmIwNxpw/D4Og/TFJHNnlwMw03xjQg1V1gGT8H+p9CrcHnCovkzqXcHERRFELja+b1WB9kAA0Ex/EvmhWh/VBAqTOnYXrWQDACYBmgAWAZoAFOE8zCQNfBFHUgus0w7qZqCBs0uzsPrtoX6wUDuBFNlrin+scFLnndedVFRoSLq6IOywiCIs0o+X+43h++nl7QTO1I7o5jmfv0ct1cXSP1v9jTgVUVWhIuLgi7rCIIKzRTHVPqs+iquXz0wsuSqE6pO406HLKKOxSguo3E6ZZaBy3odDwfls7zUKuJEGyijmVKaea5eqZ9/wwHtGjj1Kf3dmnnM2MWaYBhcZVQO00OxuS7EL3ZppmRBz1fDS9WTx7/+900jzTm1VQaNQXOdAcmujNwvYFOUuRpQEVpfikzzQjITeNz+IRDbWWxmYVFBqAE6idZjQ1/LCnBY59LkpBjz3yMOOZZmyS6Vx4YmRmmlBo+BKEr+tmIi4ugihqATTz5Q6LCAI02whP7rCIILylGeACQDPAAlynGdbNnABoBlhALTRjGUVn6e/2ZOWYs/upAiM6CN49nbDbxijgeq3BWt0KduXIjXUZSJ2LCqLZKcD8zng+SCqYUKWJo1WWkWzDKDBm7w21X3v0/QenF0cv7i6dbcCuHLmxLgM0ExVE4zSLw27imhEYcQV5GGuRhpZtJAoMTSAt76Ej9dn66PbnQTdsjbUrx+jacKT2cV+H8hPNfw/p5SeS/ohcM7jSBNOM60tokQbLNowCY9QnAnItlJRm6uzk6Ifj2ZfGlYPT6twA/yvozcQH0XBvNqAex7hmRAnNuL4Es0TLNowCI+zo7o95yDTjs/no+Z3zRyfPUleOs+GjiU5/LmJdBqYATqC+h2YcG9cMQ7PoRNeXYJEGyzaMAiM66NMJ01TtYzjXYb+NW0/IAU27csTRW/fImmMpVsBB1DXT1NJ+ds3gShPGM4ONpbRS48OkvATNNFXvxW4bJNIwZ+tqFLNP42fjxJVjQm4b+uhFrICDkL9u9tU4JhuhGDRzGPJpFpo3n5A6dyAIb1PnEi4ugihqATTz5Q6LCAI02whP7rCIIHylGdbNnEBZmuWUnngwWEuAJ8lN+vh+j91Brx+kHgbL6XGUn/AYpXuznNIT6wlzSpHzJvlY/X/hYbCSHkf5CX9RnWaL0hNqV/hB8EHQn77Ta53rnPnpJDq48WXyMdPMZNDj1fQ4zA383VamWab0xOzooteZdqIfcckJTmYqmj0dfjXWH7NP0CT1MFhNj5czN5Aw8BUx+hYRRO1TgJzSE2oXJTWjE05sJjQzoy3+mHszk0FfS4+j/MS+mxBIs5zSE1mahTpn/uR0QnXAko81zXQGfS09Xs7cQMLFRRBFLZRf0FgrPfGEqku0Pw6C1uMgyZlPg/5vVedEafLzZKapM+jX3lxJj9/owdzA+SCsrpvtXHJikR6/DEidO4smaLZ7yYlFevwygGbOwvUsAOAEQDPAApynmYSBL4IoagE08+UOiwgCNNsIT+6wiCD2SjNdY4KLUnSig/aEZpaB0V/otDiJNUwyakTJpTDgNZGz4ez9MZ/djUEzB4LYb2+ma0zo137n9ILcs7FJJRlRB4s1uGjF83486psa1VopFJ1EJ5lYAQdhjWavhomJwU8G/TWasViDbd65WABbuWtHhCNSb6jObINCA1sntms0+91rr//+j1+P64WuMWF6s7uz94YrNDNiDRJjhF1FM801tkVoT6Zdk1VAb+YsVmn2zV9+89fxN3/xs3r/FdObsYmB6rGiW4+WaabFGtybMSO5N2NHBK5hAZq5jlWa/eFfKZr97tu/qvdf0TUmtIkBJS/D1tjoL/inEWvMjvXBx7owBReyeFFEMwkDXwRR1ELOQ/O1175Vc2ema0x8yCYG6ndFmofnvXTyee2BlnlcP6BP+P0C8jyIjcTj9iBRtIFm4oPYbab5n2vmWT0AzcQHsRXNvvmz1zTq7s7qAWgmPojterO/NWMyh3ozwAU4n2wCXMAazejB+Z09BVMA0MxZrC1o/NXrarZZ9/JsPQDNnMXa8uw/ouHZbmOzMmUBLvQxlesCiBj4IoiiFtYemv/px+rHv9ttClCmLAAfM69cF0DExUUQRS3kL2js+NAsUxYgyWZWrAtAX6xiavdl9dQw6gKY7XZ1AcyCxu//cbwTypQFOF+iWem6ACL+G0YQRS2sPTR/WmJ5tkxZgGxvVqEuAOAE1hUaf/hX8Td/vVsjZcoCmKQ56gJcCazR7K/j333vD/9i15nmzmUBZvoY1AW4Glh7aP7yWz/7qaj1WdQF8ADyFRqoC+BQENstaPzFz/SaBhQatpvwJIitZ5p/u3sWwBZAM/FBbEuz2l8DqBGgmfggtu7NOM/kUG8GuIC13sy1sRngAiyOzbazOFjCFuYGgAvIXdDYNae5JbazOMgA5ga+oJac5pbY0uKgx8mBt+9tZ24AhYZ7Co2SOc0tsZ3FwdMhv/8b9rczN5Awv0IQRS3UkdPcFttZHIzUx2dDRbPtzA0kXFwEUdSCzZzmdhYHVAcqNL0ZzA0cC2JrmjWH7SwOSC3bSXUdxeYGgAsQ+55m2F/bBZo5i+XU+V/uMZJlRAfrJSxAM2ex+sqJzPV/DdDMWSzT7K852STzZWBMARwIYpcpwC+F9mmgmfggtpM1/jW5G0jNnINm8oPYjmYkz/he5X8rNv4GbLzIeclZr/3z+0sJctozXDklcT/INKGNE/rZWFcg4eIiiKIWVkXalf8hg6QUuk6Hh31yN8gmyHnPyinG/WCpCfJKmOI9TdfR1LpZSjNOhzNRlhLkvCf8IPgg6Ie0NNv+uJu6HyR/pzSj9+dQF8DlbdM00+nweEqWxdkEOe2Z9TrTDol8pv3Z0Wdx4n6Q/q1p1kvdgtCbOYtGafYwdSmgp+RSgpz30Fvq0QmZItAL54n7Qfq36c2iW5NsrICDaIpm84+GzBOdDp8Sb5YS5LxH04xMEaJD8nLR7gfp3zqtfhwbDyFMAeQHYT11Hh1ofwNOh//6zaB1vpQgpz1P1AgsCFqfBMF3f3B7cP3AuB8s/tZp9e58oN8HBs3EByFAoVEZoJn4IECzjfDkDosIwluaAS4ANAMsADQDLAA0AyzAeZpJGPgiiKIWaqfZ2f2MpmIByimx2qL924MgaI1DeuVkSmtngbHJg0Jj7024QzNSYiw0FSnYy4DS4PPT5/35R0Mu/xt/ESeOB3RMOYWGhIuLIIpaqJdm2o+ANRWL4hPUIXWiH/ZayNkiawAAIABJREFUYy5mHrNhNmefetRd0TvC8/IKjZeVFQQvqysQYG5gttuaG1SDrjPBmopF8Qn+Ed0cJ59oBwP1GP16MmWr7WuU/oRCw2fUSzNdZ4I1FYviE2y9rsZm9An1ZqN+rHszdcLToXY8gELDb9Tem4XtC9ZULIpPPKYRvKGZ+o0eqHf12CwtQ3FYXqEBuIB6aWbqTJCm4kFafILrR4xa570b6pPYmOKN1P9DreFQuD0ordAAXICFdbNF/YiKwExTfBB7TJ0v6kdUBGgmPghvFRoSLi6CKGoBNPPlDosIwluaAS4ANAMsYDea5XgWDPmHsVRfOzqg5QhyXyQrA34LxSTHa0udAy5gx94sx7OAfjwYdHOPPjYLsHxgdHMcz97Tju31pc4BF1CWZguHAv7BmXFabp2+ffPxO+r30bXhiPIBmmbayoCoqH5wYQCkzpE634wczwL+wZlx9evtQfuFeuyFXWZPkhaf8DGUy+RU0506U+cS5lcIoqiFMjRb9izgHzplyeXMKevNz8RHE3poDoypARuwL/dmcR2pcwkXF0EUtbAjzXI8C/gH04xy3ppmikzRW/fogaf6MHpo8jFq1kDjs8XYrI7UuYSLiyCKWth1QWPNs2D8in5QZrwTBkH749Z4ymXlYu6W1K8v1EyTjzEzTdYFIXV+tdDAutk0d9ZZA0AzZ1E/zRYrX3UDNHMWyAIAFuA8zSQMfBFEUQugmS93WEQQoNlGeHKHRQQBmm2EJ3dYRBCWaVZUfkIvqU2WT4FCw1s0XhdgQ/kJ9jlYdkCAQsNf7Kv8BL8ZjPITV2W7r/ITMy41jfITVwT7Kj/BvVkd5SckDHwRRFEL+yo/oX0OUH7CsyCsL2hcXn7i+gH7HKD8hGdBYN1sIzy5wyKC8JZmgAsAzQALAM0ACwDNAAtwnmYSBr4IoqiFZmiWnzknQ+2D9oQMz1bz5jHqAghowjWa5WXO53fG80GfCwQ8Gyf5zaVzUBfA+SD2RbNF5pzfAu7OfzLopzSrI3X+snJq92X11DDMDczWTl2AFDmZc9Ob3Z29NzQ0Q+r8yqBJmi1nzunFX/Jqj6Nbj0xvVkfqHHABDdEsJ3NOD82YPbXDlrY0OKkjdQ64gKYWNPIy52oOqfYozjxM0ug1pM4BF4B1M18meSKC8DZ1LuHiIoiiFkAzX+6wiCBAs43w5A6LCMJbmgEuADQDLAA0AyygdpptKc4Y0a6VE2Fu4C3q7822EmfMTy+OXqwU2YRCY99NuDQF2E6cwYdBoQGFRllsJc7gw2pRaEj4bxhBFLXQEM0KxRm69gnMDTwLwh7NthNnZGgGhYb/aGBBYxtxxpDqT9RibgC4AKybARYAmgEW4DzNJAx8EURRC6CZL3dYRBCg2UZ4codFBAGabYQnd1hEEN7SDHABddKMS7DqJa5VhEFSZHMasATjjGUbXXVKkkqCQsNj1Nqb8br995lnbGFs9h4nNacJX/BPqkZxnNSgNgeh/IS/qJ1mZJmt+qVpwBvVGXXVryEXRX+n1xrPeoozqg+7tqBZ9MMeVa5G+QmPt/XTLDp8Opx2nx/GtFH8ivnXOPqRehyG3a8nqm8Ku6pzUwy8RtnPF2r/2VAdBIXGvptwZApgerMRaWUPSSDbIdKoX3Vv1qVfY8U59QB9yr3ZgGpSRCfqr+gQCo29N+EQzdSo65nmFm2oN1O/8thMMYe0FupJqTZh+0KN3kbLNEP5CdeDsEGzZKap6zF19YZ/JT0GCdDoLQF9QPAhlzp8oWaao9Z5Tx30Tg/lJ5wPQsC62bRbfMylwEzTWdij2WJFrCxAM2eBLABgAaAZYAHO00zCwBdBFLUAmvlyh0UEYXNBIwdp6jyZCNSWOpdwcRFEUQvWU+f6Zbr6UucSLi6CKGrBduqcaYbU+VXb2k6dGz+N+lLngAuwnjonmtWZOgdcgPXUuenNakudAy7AduqcDA8mSJ37GoSAdbNmUucSLi6CKGrB+dS5hIuLIIpaQBbAlzssIghvaQa4ANAMsADQDLAA0AywgCZoptUX7QuTFU/AZqG0xD8f0KsnXTY6eJKqOqDQ2HsTTk0BjPri9PP2gmak0rg5jmfv0XJ/HN3Tkg0yOqC1/lda1AGFhvNBWKOZUV/M71Ilk153ulBp0Ops2CWj7d9MOMnJRgeKTK+Gc5SfqHh+Ld/DofITifqio2g2mdIfRqUxokcfWbh3Z5+yZOOEjQ4SoQbKT+y/CYd6M6O+4N5M0yxRaejeLJ69/3dDLdmIyeiAe7O4fPkJwAU00Ztp9QXRLDqJR61PjErj+0Men8Uj9ag0clojn40OUX7CbzRR6JDUFzyP7NMf/USlwTPN2KTQSbIR6jIVCrcHKD/hNbBuBliA8zSTMPBFEEUtgGa+3GERQYBmG+HJHRYRBGi2EZ7cYRFBeEszwAWUphlntkMy+ef3zGe99s/vZ9LcC1CVafMyitq8Owg4yVRb6hxwAeV7s6SmefzVP+3Sm3I6Yz5tL8syFG+6cfpqXXRrQmv6r4b1pc4BF1ADzb4gGjAVdJpb9VntNGkedNi7wLwoTNxS/3tUY+ocWxe21Wk2+3L2PqW71VNQp7kVhcIuU4p/RDfHOnFEGSbFrY+QOvc3iPqnAMwCRYppMngK+zrNrbqr6FD3XPTuL79UnvRms6PfnNebOpdwcRFEUQvlaUbCMWLCbyYs7+GnIKe5QxL7cNL8MdEvpRlPFUYd+l+NqXMJFxdBFLVQYUGDU+FqINanTuvXbwatc53mfjAw/gV9dYT2LngjnU8qOkb34hpT5xIuLoIoaqHRdbOvxvH8bn3NYabpLBqlWbjJI7QcQDNngSwAYAGgGWABztNMwsAXQRS1AJr5codFBAGabYQnd1hEEHulmRZosICjEx20JzQFDYz+QqfFaemWxRjtyZRUH6Zcxdlw9v6Yz+7GoJkDQey3N9MyjPkdRZk+SzaemboTSfUJVnmwJcKEZBsmSaBLWUQnpCWKMQVwGNZo9mpoTLTnPxn012jGKg9+iZhlG5zy1DYJRxdcdQcKDae3lmjGMgzTm92dvTdcoZlWebAYg2UbLOBgm4RQPUW7xhwZvZmzsNqbqUFWh9JP0a1HyzTTKg/uzWKSbXBvxjYJ7JAAmrkOe2Oz6FBXBSMqhVroGJ3on0blYcqJqcN4bMY2CS+KaCZh4IsgilqwN9Mky4MWlwVTpHl43ksnnyTpIJXH9QP6JOQ06EiLJIP+NLg9SARtoJn4ILButhGe3GERQYBmG+HJHRYRhLc0A1wAaAZYAGgGWABoBlhARZrtZHGgc+O/PQjU8agL4GUQTU0BdrM4oNz48/78oxrNDSRcXARR1EJtNNvK4kBnk6gaNeoCLG9fVjy/lu8hty7AbhYH/AkdCHMDP4NotDfb2uKAezOqQ4G6AFcLVWm2m8UB5cbpgXoXdQGuFiovaOxgcXCDygUYyTXqAlwpWFg3q83iADRzFhZoVpvFAaYA4oPwNnUu4eIiiKIWQDNf7rCIIECzjfDkDosIwluaAS4ANAMsoCLNzoYjcixI/07dCuKzB0Z7MQ1av/hsob5IbQw6K03pV8wzDdHyGmewlmMFHEQ1mkXff3B6cfQisyqWvEZOSg3WXkS3JrNed6G+YCWHfjF4uS3+INPQcaxfuFuNFXAQVWjG7gNMLJJjTBZ1JmLjS0DZyqda5GPUF0bJYWwOWMTR/jzohqqb4w9G14ajNtkZdDTNVBvcLBQaNr6HTIUGuw8wzUiO8a56JJo6E/oTrb14yD1Sqr7QSg7dmyUijofj2ZeJvwFRc7o4O2y/4Gb538NMU3wQTcw02X2AacZyjEWdCf2J7s00RRL1hVFyaJsDPmt+5/zRybNU4nE2fDRhSQf1ZoP+/FRrOzKxbvnFtocnd1hEEE3QjN0HJtybGTmGqTNxwp9caO3FrQmpNoz6wig59KiLz4rDW09IWqs/iKO37pHOg8dm8Qg0cyyIJmjG+gvWWvDYzIgwaHpJn7ApASnHaKDV0+qLa28mNgY03OKzVEcXPxsnEo8JPWRJ0nEj8dTrU7OdTKyAg5C4brZJ0gGaOQuJNNsk6QDNnIVEmm0CaOYsnKeZhIEvgihqATTz5Q6LCAI02whP7rCIIGqlWY6lwUoKXR929GJz+jxeT5bD3MD5IOrtzdYtDVZT6ASzdrshfb6eLC9lbgC4gIo0W1garKTQ+eW408kl6fN4LVleytwAWxe21WiWsTRYSaGTQwHRbHP6fD1ZXsrcAHABFWi2bGmwmkLvBf20N8tNn68ny2Fu4C3K0SzH0iBeTqGTQ4Gm2ab0+XqyvJS5gYSBL4IoaqHkgsaapcF4OYXeCYOg/fyy9Pl3f7CeLC9jbiDh4iKIohZkrJtt538AmokPQjbNtvM/AM3EByGbZtsBUwBnAZoBFgCaARYAmgEW4DzNJAx8EURRC5UtjtfFGomrQdaYgKtNEEiBkTogLEk0oNDYexNyaZZbf4KW75dEPsbRmEDvziUOCMsSDZSf2HcTLtAsU3+Cdk1JYREd3PhS9Udd9mefvkMuBVma8Snci42Ct++h/MS+v4dMcwNGXv0J2hUdhu3J0+FXY0UxrjbxI/U4DLtZmulTng65mHnYh0LDX9RDs5X6E7o3m59OaKRFvNG9WZcenhma6VNGQdBRT1SiGRQavqIyzfLqT+ixmaLZs7Hq1PpmbEZd1qI3i07MKfTADXVvhvITvqL6gsaaWONJ+gJA/7eqY+KnHsk3puRWQAddsAPCA3OK+ovUG8GH5RQagAuwuG427V72abhWgnMNmGmKD2L/qfPFilgeooPLPtUAzcQHsX+aVQdoJj4I0GwjPLnDIoLwlmaACwDNAAsAzQALqJ1mOZKN+1lFxixx+1RHhLQmFpj3AEoqNAAXUH9vtkGyQeA9ZJF9OvkiNrkB7bLBJ0Kh4XwQ9qYAmyQbcaLIOJ7fpU5uojOd/F76nBUZUGhAobE1Nkk2UtMMSj59PZmSfoNylj1dKuWzuJxCQ8J/wwiiqIWGaJYj2UgUGdybxSQOWvRmnIkqp9CQcHERRFEL9dNsk2QjUWRQXYmYVbTp2Cw6ZEUGFBreooEFjTXJxnlWkXH9gF4LCHl2OTIzzeD2gBUZUGj4CqybARYAmgEW4DzNJAx8EURRC6CZL3dYRBCg2UZ4codFBAGabYQnd1hEEPuh2bKNAZep2Py5SaqPaNXfmCGcDWfvj3nNoxtjCuAwGu7NlpLmnEa/5HNOqj/vx6O+MUPQh0cn0UkmVsBBWKLZIo0efhB8EPSX0+PZpDonOjkNpXqxa8PZEb9u10X5Cae3dmi2SKPPep1ph3qnbHo8m1QPu4pmmmtUkyJsT/h9dQJ6M2dhh2aZNPq0T5UDltPj2aQ6Kza4NzujKjzz0wKaSRj4IoiiFizQLE2acxpd02w5Pb6cVFcbHpuR40H7BWjmUhB7m2lmbAy080H742AlPb6SVCeVNpkh0Mn9qS5h0V/EugIJFxdBFLWAdTNf7rCIILylGeACQDPAAkAzwAJAM8ACnKeZhIEvgihqATTz5Q6LCKIZmi2sCdawVHCCtmf3e0ZpQRnx+VqNCpSf2HsTUmkWZypNmDV88+tKwQnmFikw7iSuB+s1KmBusO8mRNOMXsRUPRHnxa8NqdrEdK3ghFZbGJppOcZajYpy5gbYurCtg2bRIZWQeH7IlSTIqph/XSo4wWoL7WOQyDHWalSg/IS/qKc3oxIS6jFJG6KJ+nWl4ASrLag3G/QTOcZajQqUn/AX9YzNnmluPdMFTejXlYITrLa4UKO3UT+RY6zVqIC5gb+oZ6Y54xISXb3hX5cLTkxMfQn19wstx/juD1ZrVNwoV35CwsAXQRS10Oi62eUFJ3YGaCY+iH3Q7PKCE7sDNBMfBLIAG+HJHRYRhLc0A1wAaAZYAGgGWMDuNMsx/h+OgiBdq08OO3qR1tVs/eKzRV5cJzI5sz5dFN9EXQCvUaI3Wzf+f3B6cfTi7vJRYXuiLf+jWxNaUkvz4nyWzqx/YVpDXQBfgqhxCpBj/M/75gPV/UQ/7LUo+U3L+9ok+6nmkMmLm7O0iXZPp9BRF2ARyF6/h6i6ADnG/7xPUSd8Vz3zSAA07RPNOFX+kLunNC+uz2L3Ai4OgLoAPgVRd2+2bPzP+xS9osPohHLkvaCf9mZadpbkxc1Z3JvFVBwAdQF8CqJGmuUY/+veTP3RZZpR8lvTjIinWKIekCYvbs4yqsf5nTHqAlwFlFnQWDP+H3OinMdmo9Z5rxMGQfu5diUIWPhDCXXOi197U581oRNC3QzqAvgPrJsBFgCaARbgPM0kDHwRRFELoJkvd1hEEKDZRnhyh0UEAZpthCd3WEQQ3tIMcAFVaZaj13iw5luQsTogVcb5UlGKRUtQaHiLyr3Zul5juO5bkLE6SFQZBD5l0VIphQbgAuqj2UKvse5bsLA6SFQZfK52OaBebBS8fQ/mBv5ua6NZRq+x7luwsDrQqoxs0QlyRKD3hvtQaOy7CcFTgBy9xrpvQcbqwKgy6Eh9CjkiqCcq0QwKDdeDaIxmOXqNdd+CjNVBqspIik6wI4LuzcooNCRcXARR1EL1BY01vcaTwapvQWdhdUCqjOWiFBfaEYG8D2Bu4HoQAtbNLrc6CPuFDWCm6Szs0exyq4PooNgIATRzFsgCABYAmgEW4DzNJAx8EURRC6CZL3dYRBAN0Swnc34/k+xegOpO80JG+7cHAS160Ig/pMWKiuYGEi4ugihqobJCIydzvkh2p5gPaDWDPI5Pn/dpRZcMaXnRFuYGPgXROM0ymXNOdtPrdBe97lSvxnbY9ICLmesFNPY9NimDSuYG2LqwrYtm2cw5J7vJ6oDSmJxkOhtGN8dcGEB9wgcSzdjhoKq5AeACaqHZSuack91sdcAM49d/tekB92YjOm65N6tgbgC4gKo0y8ucc7I7sToYtR4TrQzN1G/0QL27PDaDuYHvqLygsZY5P9fJ7gcDUw6gr44IOmR6cKOnLRCoDt1IVwzoVjY3kDDwRRBFLVhYN/tqHM/vFh9WDNBMfBB7pFm4qeTmrgDNxAeBLMBGeHKHRQThLc0AFwCaARYAmgEWAJoBFtAszVhf0YkOyKKd1sco5UmlKm4YNYbZpW0OtIBjMuJUlTZDOBvO3h+blTZMARwIYk9TgPkdxZI+6zOe8Xtz8ZxLVSRqjCWbAyPgiEd9Y4agHRKiE1IRxaCZA0Hsj2Zx2J3/ZNBPaKbToIkaY9nmgFKenE/nbKfqxa4NZ0cXPe7MUH6i+e8hqvzELjC92d3Ze8Nlmhk1xpLNAYsxwq6imeYa5d3D9oTfVyegNxMfxL56swHVDFOdVHTr0TLNjBoja3PAvRkLg7g3O6NCPPPTApoBLsDCQzPmlGbYSjwNNM20GmPJ5oAFHDxE47EZyTzaL0AzH9D4TLM1pi5N8eTheU/L/kdBN6lGwUhsDq4f0GH8YgGbIbC8Y6qrWPQXsQIOAutmgAU4TzMJA18EUdQCaObLHRYRBGi2EZ7cYRFBgGYb4ckdFhGEtzQDXEATNNMJ86W/V99Cj8/up14G0UHwLlWsbv98OOITOW8+Xdg+LscKOIhGejOdYjJ/zI5Tg/YFyAMhyZ6/N4zD9oR8ER5wWl3nzZP6Aa9AMw/QFM3ikGoBD6dv33wcGJuChd2BToonXgZ6iV8bZXAxa37Z09QPMMYHMDdwe9tobza9PWhPnh+a3mxhd8BJ8SR7PuoTAVtj8kXgIzlvrusHpMYHDEwBxAdhdQqgE+Y6o0T5SU2zhd0BJ8WT7HnYSVKfiodpbxab+gHG+CAT65ZfbHt4codFBGGXZswaMilY0Cw6WdgdfEJJ8QuTPY8O+nTCNPXNMJrGpH4AGx9kYt3yi20PT+6wiCBs0kwnzEmW3f6YqjS9o3Pm89TuYKkMwJjND+JXb9JJlDLnH6E+wRgf6IkqaCY+CKybAXsEaAZYAGgGWABoBliA8zSTMPBFEEUtgGa+3GERQYBmG+HJHRYRxH5olmoz0uIUw82fG3ODKa2fwdzAzSD21JstmRdwcYpLPmdzgwlJM3YwNwBcgCWaLYpThB8EHwT95RITWXMDlmbsYG6ArQtbOzRbFKeY9TrTDvVO2RITWXMDlmbsYG4AuAA7NMsUp6B0Otc2yZSYyJobxCTNgLmBZ7BAs9S8gEUYmmbLJSaWzQ3md8Y7mBtIGPgiiKIWLNjoJeYFXJziiRqRBSslJlbMDUj9v725gYSLiyCKWsC6mS93WEQQoNlGeHKHRQThLc0AFwCaARYAmgEWAJoBFuA8zSQMfBFEUQt10OzMeF8sYXb0wlhgTIPWLz5LHTNMPnzdJ2O2OEQ3wOoNXnnrZ2Pd8ottD0/usIggGqRZ4n2xvDdsT7QFRnRrMut1E8cMI8bI88lYHKKR1Do3vgegmQNBNEYz1lEwJfg9zOiHvdaYX7I8neiXxp9qDhnHDCPGyPPJSE01ltQbRDPqKFF+ovnvIbj8BOsoElOC8F31zCOl2LRPNGMLjIfcPSWOGUaMkeeTkR6ypN5g2YYGpgDOojLNWEfBlGCPjOiEvC96QT/tzbQzQeKYYcQYeT4ZaUmKJfXG7Fg9dbOxAg6ijt7MDMMSj4ynQ9JfaJoR8RRL1APSOGYYMUaeT0ZyyLJ6Qz00w8usWgAXUJlmrKNgRQWPzUat816H3DOea2kFdUxqFprUm7j2phZrTNZ9Mq4fGFONJfXG/V7QnQ+0ZSNo5iywbubLJE9EEN6mziVcXARR1AJo5ssdFhEEaLYRntxhEUF4SzPABYBmgAXUS7PVJPqi8MTZg10T6fwSML/euRwr4CBqpdl6Ej15q5zKTeyYSD82TsmrsQIOokaa5SXR08IT14a7JtKPTY6A20Hq3Mb3EJw6XyAviW4KT3C5iR0T6fxb2H5hkvExZpoOBGFhppmbRE8KTyQ58u0T6ao3G1BmlNvJxLrlF9sentxhEUFYoFleEt0UnuByEzsm0o/jeASaORaEBZrlJNFv6MIT9MnuiXTtqdfnZHwmVsBBYN0MsADQDLAA0AywAOdpJmHgiyCKWgDNfLnDIoIAzTbCkzssIgjQbCM8ucMigmiGZvNUUbEGU0AiZuUFZZjO7vdMGQlSZSRnLiQYJc0NABdQsTfjVfvvJ5KKdO9xsrBP+IJ/kkbDiC50rYnFmclZpcwNABdQA81YXXFtyKb/vOLfVb9ymnL6Dok0SHmhNRqGZrrWhDnzaBId3PiSzipnboCtC9s6aBYdPh1Ou88PY9oofsX8axz9SD0Awy4rLzIajaTWhD4zpFoTX43pLJgb+It6erNREHTUY5I2RBP1q+7NuvQrKS+0RoNFF0mtCX3m/HRCwzE6q5y5gYSBL4IoaqGesdkzzS3aUL+kfuWxmeIKGROoJ6XWaLDoIqk1oc9UNHs2Vp0a92ZlzA0kXFwEUdRCPTNNerKR9po3/CsrNaYksgjNAcGHXMjwha418d0fJK8G9H+rei/1+Y1eKXMDCRcXQRS10Oi62bRbfMwOAM3EB7EPmi3WwOoBpgDOwvksAOACQDPAAkAzwAKcp5mEgS+CKGqhJpqVKQ2wmtJEXYB9NyGdZmVKA6SbBKgLsO8mZNOsXGkAsxldG47aFz16rQ51AWBucAnKlQZYpNBfUVaKnLSROvcV9dRsKlMaINmcDR9N+J1g1AXwFzX1ZiVKAySb6K17qvuKy6bOARdQB81KlQb47g+MsQE9UqODoGzqHHABMtbNvhrH87uFR2GmKT6IvSg0tka46cWVJYBm4oOQTbPtAJqJDwI02whP7rCIILylGeACQDPAAkAzwAJqpxkLK8Ig0WHMeu2f30+KUNAelly0f3ugl9OWCk7A3MBb1N+bcY7oWaLDCPum8gRBuxocx/PTL7jKxErBCSg0nA/C3hQgpRkLMJgiCc20q8GxXol9NFktOAGFBhQaWyOhmdFhTIMkCZ5IMrTkYvZpvFpwopRCQ8J/wwiiqIWGaLbQYdBz09DMuBro3kw/KJcKTsDcwPkg7NFs/pEWBWkBxrSvbX/i6CRxNdAGVY+4mNNSwQkoNLxFAwsa0YEuJMECjF+/GbTOuQjFA73n+gFb6aln5nrBCSg0fAXWzQALAM0AC3CeZhIGvgiiqAXQzJc7LCII0GwjPLnDIoIAzTbCkzssIoiGaVaiQMB6qhypc29RV29WokDAWqocdQG8RZ0027FAwFqqHHUBvN3WSrPdCgSspcphbuAtau7NdikQsJYqR+rc+SCanmmWKBCwlipHXQDng7A009yhQMDFupkB6gK4HsR+183qKRAAmokPYq80q6lAAKYAzsL5LADgAkAzwAJAM8ACnKeZhIEvgihqATTz5Q6LCGKPNGORRSc6aE/ILi/QugutxtB/xVnbg8mIkktG1nE2nL0/5sO6MWjmQBD77M3mdxRV+vNBl14TNikko8ZYtz143o9HfSPr0JKP6CQ6ycS6AgkXF0EUtWCJZnHYnf9k0F/QzKgx1m0PKNV+wolQLeY4umB1GhQaTm8t9mZ3Z+8NU5oZNca67UHYVTTTXCMxR9iecOadgJmms7BCswFVDVM9VXTrUUozo8ZYsz1gkRD3ZizmmJ+CZh7A1kMzZkf2sDU2ugujxsizPUgktyzmeAGa+QA7M83WmLo0RZaH2ujgvlFnMJZtD9iBj2UdXNViqktY9BexrkDCwBdBFLWAdTNf7rCIIECzjfDkDosIAjTbCE/usIggvKUZ4AJAM8ACQDPAAqrS7Gw4osT48s7Z0SSpB/BiEFw/0Hnya29mjuPcOOoCXBVUpFn0/QenF0cvVmphhu1JWg+AKLeSJ08tD1AXwLcgGpkCcHKb6cBlgaMf9lpjNpQ9naT1AIhmizw5H5JYHqAuwGL7suL5tXwPoXUBOLnNZFK0Cd9VzzuS73CRc10PQCvIFnnyF3yIsTw4QV1cYGTzAAAbuUlEQVQA74JopDfj5DbTQf0WHUYnZFzQC5hmST0A6s0WeXI+JLE8iFEXwLcgGqEZJ7cn3Jt1FDGYQ2RNQA/NpB4A0yzNkyc0M7pF1AW4IqhEM05uc5qbx2aj1nmvE6rH5POg/0rXA9AzTZ0np5kmH5JYHqAuwJUB1s0ACwDNAAtwnmYSBr4IoqgF0MyXOywiCNBsIzy5wyKCAM02wpM7LCIIb2kGuIBmaZbja0D2x8GNS8wNuEjF9uYGgAtouDdb9zWYs6Jjs7nBhGQbO5gbAC6geZqt+hpo3cZGcwOWbcDcwLOtnd4s62ugabbR3IBlGzuYG0gY+CKIohaaptm6r4Gh2SZzg5hkGzuYG0i4uAiiqAULD80VXwNDs83mBuqcHcwNJFxcBFHUQuMzzVVfgyGJM2aXmRvQJBTmBm4GgXUzYI8AzQALAM0ACwDNAAtwnmYSBr4IoqgF0MyXOywiCIs00/nypb/Na+MLnN1PrQyig+Dd04temlbv5BgfZGNdgYSLiyCKWmiiN9MZJvPH7DhOEpcLkPFBkjx/b5i8hWfS6nnGB5lYVyDh4iKIohYaolkc0htzw+nbNx8HxqWA3rG76HWn/NLctWFqZaBX+DOJqDzjg83mBti6sG2yN5veHrQnzw8Nhcj/gNJGnEWil3918nzUJwK2zhc0yzM+YGCm6SwaoRnny3VCiaRjmmbsf8A045x4kjwPO+nL53GmN4uXjQ8ysQIOoqmHZhyTR8GCZtFJ4n8wan1COfELkzyPDvqpx4FOq+cZH2RiBRxEMzNNssIjl4OPW+NZ7x2dMmf/A06H048PTfKcZ5pBZ7ZIq8c5xgd6poopgPggsG62EZ7cYRFBgGYb4ckdFhEEaLYRntxhEUF4SzPABYBmgAWAZoAFgGaABZSmGesuuPglvxtuyk2kpSIWoFfG54Nk6ezdAb1w0n4x0Etr3XnV8hMSBr4IoqiF8r0Zp4eejY0xgS43sSgVkYKNDfTq/veH0a0J+WK/GnKmgJf7UX7CpyAapBkbE+hyE1wqYiHFoK6owxUn+GBOaNL/Hk20isO4baP8xCKQvX4PieUnEpppY4Kk3EQnK8XgH9HNse6zqPdStPqoO/tU5z1ZioHyEz4F0VBvpkgxTQZPYV+XilhIMeIRldg50VoLXWLi6Dfn7//dMF7pzSqUnwBcQHmazT/SBU60MYEuN8GlIhZSjMdEv5RmPFUYdeh/8fLYDOUnfEeFBY3oQE8eyZig/WtdboJKRTxIpRgsvqCKE2+k80lFx+heHHM/R1IMlJ+4Emh03eyrcTy/W3zYtgDNnEWjNAuXXkyqDEwBxAfhbepcwsVFEEUtgGa+3GERQYBmG+HJHRYRhLc0A1wAaAZYQMM0y9FxPFhxxlgcuXDeSNUa5++PF4eAZs6i6d4sT8ex7IyhDztecd5YUWtkYgUchDWaZXQcnMUcXRuO2heq12IFxzToaucN6semb988X5Sn4M+h0LDxPSQqNLZDvo6DNRmKbE+H03cHrfHZ8Pmh6c14T3uSqDVCFkBe9ta5hPkVgihqwQrNVnQcWpNxNnw0GZEejVLr0aFx3qA9GbXG/FQrPDKxrkDCxUUQRS00TbM8HYf2yYjeusdP05Rm7LxBe5hmWq0BmrkVxN7WzdZ0HOzBSD3bQ12liRQcHXbaoCFYsseoNR4Hff48EyvgILBuBlgAaAZYAGgGWIDzNJMw8EUQRS2AZr7cYRFBgGYb4ckdFhHEPmmW1p9I0+fDSz7P4mw4e3/Mb6V0Y9DMgSD22psl9ScW6fNLPs9AHxidkA1HjCmAw7BKs0X6PPwg+CDoL9sYmM9ZBDQK3r6nq1QcXfS4M0P5CZe3Nmm2SJ/Pep0pJTOXbAzM50+HXNw87HOVirBdUOsccAE2aZZJn1PJAPbPyNgYmM8peX42VMdwlYr5KWjmAazRTPVdmfS5ptmyjYH5nJLnoenNwvaLIppJGPgiiKIWLM00AxqFZdPn7Y+DFRuD5HM1FuukVSr60+D2IOkEQTPxQTi3bhau2T6CZvKDcI1m0UFrvLoPNBMfhGs0ywOmAM4CNAMsADQDLAA0AyzAeZpJGPgiiKIWrNFMmxdEB+0JuesFQZK91KUpoNDwI4i908y87svVKJ6Z0uaJhUEVhYaEi4sgilqwSrM47M5/MugvaLawMOBDyig0XlZWELysrkCAuYHZ7svcYAHTm92dvTdMaWYsDKDQ8B0WacbmBfO7cXTrUUozU3ACCg3PYfehGbOBe6hrOEUniYVBFYUG4AJszjRbY+rSFGUenvdMaQm2MGCUVWgALkDsuhkUGi4Gsf+Z5m6AQsPJIFyjWR5AM/FBgGYb4ckdFhGEtzQDXABoBliAtVdOlrPmtAgb3KgjdQ64ACu92XrWfH56cfTibh2pc8AF2KLZatac391E6hyp8xqRkzXXNKshdS5hfoUgilqwQ7P1rLmhWfXUuYSLiyCKWrD20FzJmhuaVU+dS7i4CKKoBUszzdWsOY2+ujOkzq8KxK6bbZs6B1yAVJptnToHXIBUmuUBNHMWztNMwsAXQRS1AJr5codFBAGabYQnd1hEEKDZRnhyh0UEIZdmVI7if0vVG7RElqQ40yPM35gCOIv904zLUSTqjWMqGxC2l2mW/A2aOYv904zLUSTqjWNKN81PJyTTGKn/tS/UL+rvGOUnnN7un2ZUjiJO1Bu9oENitAnJNNSz8tWQfmGaxejNHIYAmtFzM1FvHEe3JkQzkmnEZ8NH/MulNJMw8EUQRS3sn2ZcjiJRbxyTOEPRimQacfTWPdZrgGbOBCGXZq+4HEWi3ujOB9f+V1ZnqKfnwzGpOzpTLdAAzeQHIZdm2wM0Ex+EtzQDXABoBlgAaAZYAGgGWIDzNJMw8EUQRS1YoNm2FQH4uPZkSu+nhOxmgLoArgWxz5nmthUBZse0EvuF+jM6VAxDXQD3gtgzzbarCHA8v0u6oAm91jTtwtzA9vdw29xg24oAvPT/9UQx7ulQ9WGoC+APrNBsy4oA3JspPB1yb4a6AP7A1kNzm4oAamxmDuexGeoC+AM7M82tKgJcP6AjQnI+IOuDGOYG/gDrZr5M8kQE4W3qXMLFRRBFLYBmvtxhEUGAZhvhyR0WEYS3NANcAGgGWABoBlhATTRjFcW1Yd5HRmxBx2hnvLP7nKVMVBqJXd7631rLkayagWYOo67ejJfzdZESs5hvfjViC4LOBqijSIpxZ5yoNNKDV//Waalj/V56jCmAA0E0PQVgTky5i5rqnkr1Q131K6cnp+/0KBFwh5MB1xKaGZVGSHmA9sfdtb9TmnXizeYGUGhcJYUGcyI6JC+C54dcQoI8ivnXOPqRehLSa74sCCKtYo8esIlKg94Inh19tv63phm/sclAbyY+CEu9GXkRqMckbYgv6lfdm3XpV6IZyy6oNxv0U5VGL6Bj4rW/TW9GfgeZWLf8YtvDkzssIggbNFOjrmeaW1xCos+/8tiMiuOkvVnYvlCjt1E/UWk8HE/70aHq41b/1loO9jvIxAo4iJpnmjOuHdHVG/6VxRZT1vyP1A+aOX7Iov8Lo9JofRIE3/3B7cH1g7W/tZaD/A6Gi1gBB2Fn3WzaLT6mGKCZs7BUGmy9lkQJgGbOwvksgISBL4IoagE08+UOiwgCNNsIT+6wiCBAs43w5A6LCKIZmnF6O6Q3SjifSRb/wxFZGawcximC72cy63pSENJiRZJzR+rcY1TszZhAtBjL7gRk8f/g9OLoxd3lo9jYn49IQUu1vHJLLbzSKfdSqXPABdRFM3Yn0HygfaqTak+iH/ZalAjXxv50xKzXnV4bTt++OeaMAOWU2JZ9Xj51jq0L25popt0J2OKf9ykGhe+q5x9pgKZ9opk+YtqNzxSHJtybsYWBSaOXTp0DLqAOmilmTJMRVKhLLil6RYfRCaXJewHTTB9BNKMMZ7zcm8VInfsRREMzzflHQ6aDdieYpvQI1R9dphklwolm+gi1a9R63F0ZmylGlk6dS7i4CKKohaoLGtEBjb20O0H712/SpJNy5Tw2G7XOe50wCNrPyaGAjyAXqf6ID+Jcup5pqo9Lp84lXFwEUdQC1s18ucMigvCWZoALAM0ACwDNAAsAzQALcJ5mEga+CKKoBdDMlzssIogmaJajz7ifEVQsQL7+iRRjGrR+8dlCjMFn5uo12KadU1jLsW75xbaHJ3dYRBCN9Gbr+oxhRlCRggtPxFqKEd2i/PlCjKF1G3l6jWNjhrAa65ZfbHt4codFBNEszRb6DC2ooCTABasxqFfqsFRDJy+fag4ZMYY5M87Ta2gDhCOt84BCw+1tLTTL6DO0oIIEGt0kTX42jG6OE0eDh9xBpWIMc2aeXoN/C9svjM4jxkzTYVSn2bI+QwsqWKDBDOPkpZZqcG+mGZOIMZIz8/QabIAwP9UnZ2IFHEQlmuXoM7SgIhFojFqPiX4JzUiKoUiojjJiDHNmrl6DDRBAMz9QbUFjTZ9xrgUVDwbGx6Cvjgg6JNV4g6UYfeq/yPeAxRjX3tRnTnL1GrrqYZ91HplYVyBh4Isgilpoet3sq3E8v1t82FYAzcQHsS+ahZu8QksANBMfBLIAG+HJHRYRhLc0A1wAaAZYAGgGWABoBlhAbTTbJNdoXxxNlo/jD9ovBsH1AyPUeAKFhidBND8FyJdrzE8/zwg2KEfAH6hj1f9ToQYUGp4EYZFmWbnG/K4iWqrVoHIU+gNDs0SoUUGh8bKyguBldQUCyk+YbdPlJzbLNeanE06im3IUyQeUSkqFGhUUGhL+G0YQRS3UTLNVuQb3ZppmphyF/sD0ZolQAwoNz1EfzfLlGnGsmTJqfaLLUUwNmzTNjFADCg3PUeOCRq5cgx6SfdZqmHIUr/QHeqZpXDPGFRQagAvAuhlgAc7TTMLAF0EUtQCa+XKHRQQBmm2EJ3dYRBCg2UZ4codFBOEtzQAXUJlmpStQrP6J8hMeo3pvVroCxeqfKD/hL2qk2a4VKPQJo2vDETsfd1B+wt9tfTTbuQKF/pOzmJz0LFd+QsLAF0EUtVATzcpUoDAnnA0fmTLoKD/hfBDN0ax0BQpjbBC9dY/OImMNlJ9wPYgGFzTKVaB4Yv6cUE9IFgg3eig/4XwQstfNtrNAwEzTWcig2XYWCKCZs5BBs+0AmjkL0AywAOdpJmHgiyCKWgDNfLnDIoIAzTbCkzssIohaaZajyngwWNVkJLnvXDuDcajfRqHls9TOoJRCQ8LFRRBFLZTrzfKMDI4mq0eFWlmRZ2fAb8vFX8RJVQpuFAoNb1GRZhkjg6NJ+EHwQdCfvtNrnbMMg16yPLjxZZ6dgX73t9eexBk7Ayg0vN1Wo1nWyODooteZdqIf0RNRl55QNHs6/GqcZ2fATgZfT1gYlNoZlFJoAC6gAs1WjAyOJtM+5coVw0zpCUUzM9RaszPg3kx9kFSl4Hx7KYUG4ALK0SzPyCBDs1CXnnhyOnmmRmF5dgZ6bGY8fxI7Ayg0nA+i5gWNNVWGmjG+oQZUQdB6HCSlJ6ZB/7eqZ9pgZ6DYqNtY2BlAoeF6EPbWzabd4mPKATQTH4Q1mi0WvmoHaCY+CG+zAIALAM0ACwDNAAsAzQALqJ1m+fUBdFaS9ph0wIhrVS9XAkDq3Pkg7E0BLkmr8x4uFvC8H4/6q5UASqXOJVxcBFHUQoM0W0qr80e8h+21Oae5WgmgVOr8ZeXU7svqqWHUBTDb5usCJMhNq2vhmXYzoFx42FU0W60EAHMD54Ow3JutpdXpF72HezMm12olAKTOvUX9NMtPq5Ongd7DxQL4YbhaCaBU6hxwAQ0saOTVBwhovMV7rh+QPJunomuVAMqkzgEXgHUzwAKcp5mEgS+CKGoBNPPlDosIAjTbCE/usIggQLON8OQOiwjCW5oBLgA0AyygGs3K156ozdwAcAEVe7OytSdgbnC1UBfNdqw98Ult5gZQaFwBhUbZ2hP1mRtImF8hiKIW6qBZidoT9ZkbSLi4CKKohYo0K1t7AuYGfgbR1LpZudoT+qBazA0AF4B1M8ACQDPAAkAzwAKcp5mEgS+CKGoBNPPlDosIAjTbCE/usIggmqBZvo9BmuleIDqhnLjOkU+D1i8+W2TJdUI9L5GufuvGnFtYjnXLL7Y9PLnDIoJopDfL8zFYZLpTzAfdOMmRR7cosbnIkvOZuYn0Y1q8zYkVcBD10CzjY8CZblqdveA0OfVKHc6h66zSU80hkyU3Z+ZWCTg2OQI+GXUB3N7WQrOsjwFnuilz3k3yl2fD6Ob4bKhz5A+5g0qz5PrM3EQ6/xa2X5gEfIzezGFUp9mKjwFnujlzzgzjcuY6h869mWZMkiU3Z+Ym0lVvNqBsKJ+ciRVwEJVoludjwJnuJHM+aj0m+iU0oxy5IqE6ymTJk4R6XiL9OI5HW9BMwsAXQRS1UG1BI8/HgDLdDwZJbQB1RNChHPobnCPvU//VIakPZcmvvanPnOQm0sltb0qJ9vNeJxPrll9se3hyh0UEsa91s6/G8fxu8WFbATQTH8S+aBaadbA6AJqJD8LbLADgAkAzwAJAM8ACQDPAApynmYSBL4IoaqEWmm2SarQvjibLh6l9vz0IAnpLuCZzAwkXF0EUtVBPb5Yv1Ziffp4Ra6gdpvLE/KNhfeYGEi4ugihqoWaaZaUa87uKVKlOozsNuryPM5a5mgyYG8Dc4FJskmrMTyecQFesip8fGvnGRk1GKXMDwAXUSLNVqQb3ZppmxB31nNS92agf12huALiAemiWL9WIYy2wGLU+6RuaqX2kerxbn7kB4AJqWtDIlWrQ07PPOg168s167/S07QGJ/GFucKWAdTNfJnkigvA2dS7h4iKIohZAM1/usIggQLON8OQOiwjCW5oBLgA0Ayygdprlp9F1VpL26Pz5ZERr+6gLcFXQXK3zbBrdCDV4j8mfUzIAdQGuChqkWSaNbmjGezjjxDlNpM6ROi+NvDS6ppnew7nwsIu6AD4GYW+mmZdG1zTTe7g30+RCXQDfgrBHs7w0OifBzR7On8d6g7oAngVhcd0sL40e0HiL91w/oJw6T0WROr8ywLoZYAGgGWABoBlgAc7TTMLAF0EUtQCa+XKHRQQBmm2EJ3dYRBCg2UZ4codFBNEozXY3N3jCQoyQ1sSg0LgC2JO5AZeW4LfooNC4CtiTuQHTLDSJqEoKDWxd2O7J3IBpZtRAMDfwH3syN1jpzaDQ8CSIZmeaO5sbLI/NoNDwJYiGFzRKmBuoAdzIzDSrKDQkXFwEUdQC1s18ucMigvCWZoALAM0ACwDNAAsAzQALcJ1m/yBh4Cti9C0iiManAFumz1O3gxeD4PpBkizPqxLA6x6cMViOdRmgmaggmp9pbpk+T90O1P+TZHlulYBjXsJdj3UZoJmoICzS7PL0eep2QDRLkuV5VQKOzVuc0Q97pA3akDonmlVM7b6snhqGuYHZNm9usGX6PPmAbIGSZHlulQD+LVQP19b4bHOt83+oIXKgcdRMs+L0eZy4HVBvZpLluVUCVG826Ouk6FPQzHHUR7Mt0+ep2wHTTCfLc6sEHJOWAzTzAzUuaGyVPu++0h/omaZJlo9zqwTQY1WdPFKHdzKxAg7C9XUzEfMrBFHUAmjmyx0WEQRothGe3GERQYBmG+HJHRYRhBc0A5wF30A3aJYLEdNPBGFweQygWTUgCANvaQa4A9AMsADQDLAA0AywAGdpxrLbfWMatMbFRzWJeeLjtfcYLr0WrtLMSDv2jC/2HUC88IrYcwyXXwtXaZYI1fYKlv3uGanzzZ5juPxauEozlt3uOwiW/e45htTHa88xXH4tXKXZvv8DTvB0309uKb1ZfOm1cJVm+x6OGKy+grWfCPZ9MfRVuOxauEozsq7adwgs+913DImP175juPxaOEszwCWAZoAFgGaABYBmgAWAZoAFgGaABVwZmv3ytdde/08/Xtn5h3/+42/+nHeazRLy9qU7f/+nv9p0SDHWTyvZEEfy333zZ699T/3y737Gf/7Jz7JhLv21A9Sl+d9Lh7SGq0Kzn377V/Ev/2j1uv1U71mj39Knufjmz779q4JDVpD+Ixv+ta3OzYHi+y9f/52K5ndEtfgPf/Wtny0+NH/tEGYCdUoF6q/iitDs9/8tXTF9IzJQ/8nSZsN/tubTDS1yb3bpIctI/5ESncQlp/zhX/wsZpp985d6xzd/kaGZ+WuHMNN21Snf/KNf7XraBlwRmv3y2+aC0bNTXfv/8zX6z/+11/g/WbX9Hv2Xm/lMPYa+9TO+OX/4q9e+o/qEf087vvmLf/lH/+bPf8wf/v5P/8fXvsM346evceN0ojqf/6QD/5c//T9e+/b//dq3/98/+9bPVNfA/widmPOvxfxY+7054VdJS+aIf/lH/3Nyrjn8l+rX5J/93XcU5f9YPTT/s2GX+QJ//mMV+Wvf+vf81x/++b/hmP+Y+rZMS2l7r73+TXLAT9NLo77L6n+XZXHFaKb6oN//8f+gmEO39U9+pjo5xYD/h7jyRz/OfvbL1xWBdB9A/cH/xzv+5q/UbVcH8oe//+Pv/eGvvqd++Z3a97qmo7rf36M//3t1oPpb3brv0OjvL4iw9I/wiTn/WkzPqL9JTvgb01JyxOtxcu7f6MMVs376uvln1X79DX//j81XVW2oYyhM/sf5Lx2vefguWjLt8T/0PXMAt6svzaLxyrhiNKPr9tPX9Y1Xv2suEZ303+lnxJrvmUeNupt/+yveQYxLPqSHJtNGdQWKFubx9MvX+U/6XTekqGh+MV3j9/L+NT0ZyZzALSVHxOm5+hDuY5J/1jDhD/+Tosofmf8s9D/3uwXHqYFfps/VRUvphaAvqQ/gdvWlAc12hR6b/f5f//I7dO020Czz2e9U55LQ7Pd/8n/965h3mFvOvy9o9v+3ZwUrDcRAdLcVwSKePVTIhxSK0IvfENBD+wuCYv8gHnroIZ/rzLxJjOlasS6xh3mHNpudvNkmj52XVAtLEofT9oDMMmuVLQ7LLEXEPLaUmaZVJdB7yrugctefxW/Fz+REjJ1EwaQTIYk0QHhNZieCd5rkaElueXYDua/FZJ1lVt7zWhHzWOnQJZc2yQzViNZW3hJc/FDR9ne1zPa3nCdm1ipbrGQGphwBB+iyYsXvp7QiLSmZtczCTXlFkTBzJRM+kUgDhBdTszFv9mv4jn0z1wRH7YtnmlLq6hwa8lXce+n6q8m9rguvYeCOuQTh5nrB0RgthwbkoWGbO9hoIqKvR2n1M94pOCHZHGbb8nNNl2nAmzJpBItcx87Tg/cPUdPyThNbQi2aoCSa10ty9vlqmw19wbQEnySKGuCxv+Au22meH74eJLRjwgHsAN5JdE+FTsi+HWeqA044BvkOJrOx8F8yi7vrwW45+FoVHQenhjXqAPsX4PxAhns6TokZiynAJii87EuP4MeAv8BkZmgAk5mhAUxmhgYwmRkawGRmaIAP3GQCwbiid+UAAAAASUVORK5CYII=" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtTR2xCYm01dmVVRnNiRlpoY25ORGIyNVFaWEp0YVcxd0xuTjJaMXdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWpBc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGd2ljM1puWENJcEtWeHVJQ0IxYm14cGJtc29YQ0pRZEhOQlFtUklhVUZ1Ym05NVFXeHNWbUZ5YzBOdmJsQmxjbTFwYlhBdWMzWm5YQ0lwWEc1Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWd2lVSFJ6UVVKa1NHbEJibTV2ZVVGc2JGWmhjbk5EYjI1UVpYSnRhVzF3TG5Ca1psd2lMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNakFzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ3aWNHUm1YQ0lwS1Z4dUlDQjFibXhwYm1zb1hDSlFkSE5CUW1SSWFVRnVibTk1UVd4c1ZtRnljME52YmxCbGNtMXBiWEF1Y0dSbVhDSXBYRzU5WEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yMCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBbGxWYXJzQ29uUGVybWltcC5zdmdcXClcblxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yMCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBbGxWYXJzQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAllVarsConPermimp.svg\, width=8, height=20, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAllVarsConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyAllVarsConPermimp.pdf\, width=8, height=20, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAllVarsConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1NHbEJibTV2ZVVGc2JGWmhjbk5EYjI1UVpYSnRhVzF3TG5OMloxeGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNakFzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ4Y2MzWm5YRndwS1Z4dUlDQjFibXhwYm1zb1hGeFFkSE5CUW1SSWFVRnVibTk1UVd4c1ZtRnljME52YmxCbGNtMXBiWEF1YzNablhGd3BYRzVjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ4Y1VIUnpRVUprU0dsQmJtNXZlVUZzYkZaaGNuTkRiMjVRWlhKdGFXMXdMbkJrWmx4Y0xDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1qQXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRnhjY0dSbVhGd3BLVnh1SUNCMWJteHBibXNvWEZ4UWRITkJRbVJJYVVGdWJtOTVRV3hzVm1GeWMwTnZibEJsY20xcGJYQXVjR1JtWEZ3cFhHNTlYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFsbFZhcnNDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MjAsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG5cbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFsbFZhcnNDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MjAsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFsbFZhcnNDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MjAsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG5cbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFsbFZhcnNDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MjAsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgIn0= -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAllVarsConPermimp.svg\, width=8, height=20, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAllVarsConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyAllVarsConPermimp.pdf\, width=8, height=20, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAllVarsConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZCc2IzUWdiMjVzZVNCd2IzTnBkR2wyWlNCMllXeDFaWE5jYmx4dWNtVnpkV3gwYzA5MWRFRmljMFJwWm1aekxtTnZibWx0Y0ZCMGRpQThMU0J5WlhOMWJIUnpUM1YwUVdKelJHbG1abk11WTI5dWFXMXdJSHcrWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0J5YjNkdVlXMWxjMTkwYjE5amIyeDFiVzRvSjAxbGRISnBZeWNwSUh3K1hHNGdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0JtYVd4MFpYSmZhV1lvYVhNdWJuVnRaWEpwWXl3Z1lXeHNYM1poY25Nb0xpQStJREFwS1NCOFBseHVJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdZMjlzZFcxdVgzUnZYM0p2ZDI1aGJXVnpLQ2ROWlhSeWFXTW5LVnh1WEc1d1FtRnlJRHd0SUdkbmNHeHZkQ2h5WlhOMWJIUnpUM1YwUVdKelJHbG1abk11WTI5dWFXMXdVSFIyS1NBcklHZGxiMjFmWTI5c0tHRmxjeWg0UFdaaFkzUnZjaWh5YjNkdVlXMWxjeWh5WlhOMWJIUnpUM1YwUVdKelJHbG1abk11WTI5dWFXMXdVSFIyS1N3Z2JHVjJaV3h6UFhKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSQlluTkVhV1ptY3k1amIyNXBiWEJRZEhZcEtTd2dlVDFEYjI1a1VHVnliVWx0Y0Nrc0lHWnBiR3c5YlhsamIyeHZkWEp6V3psZExDQjNhV1IwYUQwd0xqVXBJQ3NnYkdGaWN5aDRQVndpVm1GeWFXRmliR1ZjSWl3Z2VUMWNJa052Ym1ScGRHbHZibUZzSUhaaGNtbGhZbXhsSUhCbGNtMTFkR0YwYVc5dUlHbHRjRzl5ZEdGdVkyVWdLQ1VnYUdsbmFHeDVJR0Z1Ym05NVpXUXBYQ0lwSUNzZ2RHaGxiV1VvZEdWNGRDQTlJR1ZzWlcxbGJuUmZkR1Y0ZENobVlXMXBiSGtnUFNCY0luTmxjbWxtWENJcExDQndZVzVsYkM1bmNtbGtQV1ZzWlcxbGJuUmZiR2x1WlNoamIyeHZjaUE5SUhKbllpZ3lNelVzSURJek5Td2dNak0xTENBeE1EQXNJRzFoZUVOdmJHOXlWbUZzZFdVZ1BTQXlOVFVwTENCc2FXNWxkMmxrZEdnZ1BTQXdMakkxTENCc2FXNWxkSGx3WlNBOUlESXBLU0FySUdOdmIzSmtYMlpzYVhBb0tWeHVjRUpoY2x4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbiMgUGxvdCBvbmx5IHBvc2l0aXZlIHZhbHVlc1xuXG5yZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wUHR2IDwtIHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJvd25hbWVzX3RvX2NvbHVtbignTWV0cmljJykgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlcl9pZihpcy5udW1lcmljLCBhbGxfdmFycyguID4gMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW5fdG9fcm93bmFtZXMoJ01ldHJpYycpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXBQdHYpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXBQdHYpLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEFic0RpZmZzLmNvbmltcFB0dikpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbOV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Plot only positive values
resultsOutAbsDiffs.conimpPtv <- resultsOutAbsDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > 0)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbsDiffs.conimpPtv) + geom_col(aes(x=factor(rownames(resultsOutAbsDiffs.conimpPtv), levels=rownames(resultsOutAbsDiffs.conimpPtv)), y=CondPermImp), fill=mycolours[9], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkJzYjNRZ2IyNXNlU0J3YjNOcGRHbDJaU0IyWVd4MVpYTmNibHh1Y21WemRXeDBjMDkxZEVGaWMwUnBabVp6TG1OdmJtbHRjRkIwZGlBOExTQnlaWE4xYkhSelQzVjBRV0p6UkdsbVpuTXVZMjl1YVcxd0lIdytYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQnliM2R1WVcxbGMxOTBiMTlqYjJ4MWJXNG9KMDFsZEhKcFl5Y3BJSHcrWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQm1hV3gwWlhKZmFXWW9hWE11Ym5WdFpYSnBZeXdnWVd4c1gzWmhjbk1vTGlBK0lEQXBLU0I4UGx4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ1kyOXNkVzF1WDNSdlgzSnZkMjVoYldWektDZE5aWFJ5YVdNbktWeHVYRzV3UW1GeUlEd3RJR2RuY0d4dmRDaHlaWE4xYkhSelQzVjBRV0p6UkdsbVpuTXVZMjl1YVcxd1VIUjJLU0FySUdkbGIyMWZZMjlzS0dGbGN5aDRQV1poWTNSdmNpaHliM2R1WVcxbGN5aHlaWE4xYkhSelQzVjBRV0p6UkdsbVpuTXVZMjl1YVcxd1VIUjJLU3dnYkdWMlpXeHpQWEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJCWW5ORWFXWm1jeTVqYjI1cGJYQlFkSFlwS1N3Z2VUMURiMjVrVUdWeWJVbHRjQ2tzSUdacGJHdzliWGxqYjJ4dmRYSnpXemxkTENCM2FXUjBhRDB3TGpVcElDc2diR0ZpY3loNFBWeGNWbUZ5YVdGaWJHVmNYQ3dnZVQxY1hFTnZibVJwZEdsdmJtRnNJSFpoY21saFlteGxJSEJsY20xMWRHRjBhVzl1SUdsdGNHOXlkR0Z1WTJVZ0tDVWdhR2xuYUd4NUlHRnVibTk1WldRcFhGd3BJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjWEhObGNtbG1YRndwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJJR052YjNKa1gyWnNhWEFvS1Z4dWNFSmhjbHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSBwb3NpdGl2ZSB2YWx1ZXNcblxucmVzdWx0c091dEFic0RpZmZzLmNvbmltcFB0diA8LSByZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXJfaWYoaXMubnVtZXJpYywgYWxsX3ZhcnMoLiA+IDApKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uX3RvX3Jvd25hbWVzKCdNZXRyaWMnKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wUHR2KSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wUHR2KSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXBQdHYpKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzldLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSBwb3NpdGl2ZSB2YWx1ZXNcblxucmVzdWx0c091dEFic0RpZmZzLmNvbmltcFB0diA8LSByZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXJfaWYoaXMubnVtZXJpYywgYWxsX3ZhcnMoLiA+IDApKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uX3RvX3Jvd25hbWVzKCdNZXRyaWMnKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wUHR2KSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wUHR2KSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXBQdHYpKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzldLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGAifQ== -->
```r
```r
# Plot only positive values
resultsOutAbsDiffs.conimpPtv <- resultsOutAbsDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > 0)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbsDiffs.conimpPtv) + geom_col(aes(x=factor(rownames(resultsOutAbsDiffs.conimpPtv), levels=rownames(resultsOutAbsDiffs.conimpPtv)), y=CondPermImp), fill=mycolours[9], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qRTFMQ0ozYVdSMGFDSTZPQ3dpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjE1LCJ3aWR0aCI6OCwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFTQUNBTUFBQUJpUDNFZEFBQUJ4VkJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qcXROanNobUFBQm1BRHBtQUdabU9wQm1aZ0JtWnJabWtOdG10dHRtdHY5dVRVMXVUVzV1VFk1dWJrMXVibTV1YnF0dWpvNXVqc2h1cTZ0dXE4aHVxK1NPVFUyT1RXNk9UWTZPYmsyT2JvNk9icXVPamsyT2ptNk9qbzZPanNpT3E2dU9xOGlPcStTT3lNaU95T1NPeVArUU9nQ1FPanFRT21hUVpnQ1FacENRa0RxUWtHYVFrTGFRa051UXRwQ1F0ditRMjdhUTI5dVEyLytyYmsycmJtNnJibzZyamsycmpvNnJqcXVycTI2cnE2dXJxOGlycStTcnlNaXJ5UCtyNU1pcjVPU3I1UCsyWmdDMlpqcTJabWEya0RxMmtKQzJ0bWEyMjVDMi83YTIvOXUyLy8vSWprM0lqbTdJam83SXEyN0lxNDdJcTZ2SXlJN0l5S3ZJeU1qSXlPVEl5UC9JNUt2STVQL0kvOGpJLytUSS8vL2JrRHJia0diYmtKRGJ0bWJiMjVEYjI3YmIvN2JiLy8va3EyN2txNDdrcTZ2a3lJN2t5S3ZreU1qazVLdms1TWprLzhqay8rVGsvLy95OHZMMzkvZi9Xc0QvdG1iL3RwRC95STcveUt2L3lNai8yNUQvNUt2LzVNai81T1QvLzdiLy84ai8vOXYvLytULy8vK21wYStMQUFBQUNYQklXWE1BQUF1d0FBQUxzQUVhT0JCeUFBQWdBRWxFUVZSNG5PMjlqNThiMTdVZlJ2K28rOXFYQ2x3YU5QeWN2RlJyeXRSS1dNbGxvMzFlRTA1ZVgrTW16eERWbFNtVGhKcThOaEdXTW1sVjdoSkswc1pEOGxuWlJWZ0ZsRkFMd3Z5OXZlZmNlK2NITUF0Z2Z1S2VpKy8zSSszc0RtWm16ODU4ZWVmTytjNzNuQ3NoQU5TT0s5c09BTmdGZ0daQUF3RE5nQVlBbWdFTlFBYk4vaXRBTFBnQ0NxSFp0Z01BaWtJNnpWNlVQMno1UXlDSWRVY0F6WHkvd2s0RUFacjVmb1dkQ0VJNnpmNWZ3RFZjZnVueTBHeDIyR3FQZzliZUtKeitlRUEvdG45N24xWXRiSGI2b045cXRhNE93a2xyNy9lL09WVGZoUE8rMlVrZG90WHFMT3pBUjB2K2xsYXJHODdlSG9GbXdsQU56Y0xaTFVXcForcnlmL2svZHNNdzZDbCs4S3BGMHRES2w0UHB6Zkhzc0R0N1Y3SHEvL3NmN0U3ek82TjV2NWZlZ3o5SS9KWWoyaW9qVnRETWNWUk5zMDhtYWd5ai8vVXFOVnExMnVlSDNjblZnZnJ1S3RIczVTQjh5bVBVN05kcVdQcmovMnAzSWdJRlhiMTkrK05XTjFEREhIOHd2RG9ZcW5WcXJOTTBVOGVZL3RXaCtwU1RaaTllOEwzL1JXSzU3WE1LTENGMWZjeXlCTTFtbi9JdGJVTDNOcVpaMEZQY21YVEQwMEZBWDlSOVQ5MHFIL0tJTlB0ZzJKdi9udy90VG5vMHM5cy9ITTArTlI4d05TZngza0g3UXQxcFR3ZUpmeEpwYlB1Y0Frdkk0a3hSbWluR1ROVHNpVzk4UVUvVFRMRmhlc0FjT2FWUlRJOW1taUt6RDZZMy85UC9GZTJreGpFMU4rUHQ1M2ZPSGgwL2k0NTJPbmlreGpRMTFhUFJyTitibjR5bngyWkVCTTFrb0NLYXpkOGRNTlgrcU82WW5YRFNDeWRkK25GNkhLaWZ1b29WdzczM3Uyb2NPcWVWQjJwdVJodDhNSC8zWjJORk03MlRublh4OW1GdzgwbGZ6Y3IwQitIMEovZm9rRHczQzRmcmFlYjBZenlDc0NpUzBKanV0M2o2MWFOaDUrOWZhKzJkSGZKREpjMjF4dlNJMktNdnQrbEpVMjB6b1luV1lhczM2UWF0cTYveFR0ZjI2VUdWNTNKak5kQ3BPN0E5MnBpR1NYWDgxblU2WkhzOGFmV0c2dkNkUkt5Yi9WMDU0UGtWZGlJSUYvTm1YNnJKMjkyTTlhQ1oyQ0JjcEZuQStiWmxRRG9YQ3hkcGRobEFNN0VBellBR0lKMW0yMzU2ZHhXTlg1elZLRXl6SE5KbWh6NGM2QWRVK3RxRnBsazc4bC9RME0xSGdCelNKbjg0dlRFS1oyOE4valJXSzZCcDFvMENGOVJ4bXEyWE52bkRnRmhFWDZiM29Hbldqc1h6dE5IeVArZmNmbm41bnk5Wlg1NW1hNlZOdFpJK0hOTG9OZW1FdzFZSG1tYnRLSEJCSFI3Tk5wTTIrY05vTkdPT1FkT3NGd1V1YUowb1RyTWMwaVovU0ZOOG1wK0Y0YU54ZFpvbUlBSWxFaG9iUzV1ZGw2L3hFeWsvYVE3MStxbzBUVUFFWE15YjVkRTBBUkZ3a1daNU5FMm5CV01FWWVFaXpTNERhQ1kyQ05ETTl5dnNSQkRTYWJidHhFRUQyUERzK0VPekRCMXpNRXpKazdOSTFvUlBzeXBzZG0zY1JyN1JiRm5IZkhCeWZ1dmk3c0lXSVh5YUZXTERhK00wQ3RJczFqRjVIV2ZBV0h5TVpFMzROS3RDR1kzUmxXVXhtaVYwVEY1SDZ1U2JMRDRhYVFrK3plcXc0YlZ4R2dWb2x0WXhlUjJyazZ3S1JiSW1mSnBWWWNOcjQ4OGpRSmFPcVVjekkyTnFtazJQQS9nMEVVUVNPUk1hU3pybVNIM1QxWE16RWgrdmExa1RQazBFa1lLTGVUUDROTDBMd2tXYXdhZnBIVnlrMldVQXpjUUNOQU1hZ0hTYWJUdmJVQXFObjhHdG9RbWFyYkowMHBvNXE1LzNZOTB6M2t0cm03MWtyR2xzbXltbGtQZzc4QWhRSGlzc25ieEdxNSt4N3BuWWkvSm5FNlBHZzJhckFKcGRhdWswYTdSZVlIWFBvSFgxUWIvOVhqZW1HYVhOZk5RMEUzL0hpNFcvSy8veVJYbnQwVVdmWmc1Y2F1bTBTaWJybDVIdUdVNTZzMXUvc2FQWllmVEtFRWF6VmNCb2RxbWwwNnd4bzVuUlBVa3lzQ29XaldZa1Z5VmlUV1BiVENtRmVzKzZTMmlFWnBkYU9zMGEvdUhBNnA0UFI1UGU5T0RVeUtQcXBobDBrN0VDQXRGTVF1TVNTK2NEdmViN1B5WDE4K2RHOTl4N3Y2WFczTzVmMjlmUG42M3V2SzlGQWRCTUxLVG56UUFSa0U0enB5ZStDTUlDTlBQOUNqc1JCR2ptK3hWMklnanBOTnQyVHNLaTdOOEdtbGtVclRaTE11Vkd6a3pKbXVZbUozQ0hrV2MwSzFodGx0LzgzOFNaS1ZuVDNPZ0U3aTRLMFN4bnRWbERzN1hPVE1tYTVtSmNXQmJXTkl0V200MUhzOVhPVE1tYTVrWW5jSGVSbTJZRnFzMHl6VFp3WmtyV05NdGVCendDUkNoYWJkYmVOTmM1TTR0b21rNmZYQVJoa1N1aFVhemFMRzE4dmxHMTJRS2FwdE1uRjBGWXVKRTN1OHlabVFab0pqWUlOMmgybVRNekRVam5ZdUVHelRZRGFDWVdvQm5RQUtUVHpMM1VCSkNCWERTajRuYnQzdzZteDB1ZnBPUkpxM1plOUZ2WDlyVlFTYS9IQ3RFME56c1ZLVGc5KzNZaWlEdzBVN1RnY3JQOTd0SkhLWGt5VWp2Vi8xYW9sS05wYm5RcTBuRDZDanNSeE9ZMFk3bVNyemhYZ3czb3A5ZHZQSDZESzhPU1BEbGpWWlBXV2JXVGFHYUVTam1hNWxiOGpmQnBXckJjeVZybDlBWlhnNTNjN25ObFdQV0JsaWRKYmxJRTBZTG1UTmZCczBLbEhFMXpnMU94Q0tjSEVpZUMySnhtcDZZcXRyb2xjdlZQVHRvVHRhWUhScDVrc2t6NFJxalZUaHJOakZBcFI5UE1lMmFCRFpCck5BdmF6M3UyeUN3cGo1cG02Z010VDdLcStiZ2JxNTFNTXkxVTFxVnBBaUt3T2MxWXMyU3RrcXZCQnVxVytON2VTQTFKOUVUWk04SWxsWW9kdmRScXAzN1MxRUtsUWoyYUppQUNaZk5taytXbnpnSW9ybWtDSWxDU1puR2FxeFNLYTVwT1Qzd1JoSVYwRmNEcGs0c2dMRUF6MzYrd0UwR0FacjVmWVNlQ2tFNHo1TWxFb0Y2YVpUaUlINWg2eGlTbFQvZmI0NUN6SFN5U2IwYzZyK2xQQjVLb2VUUzd4RUg4Y3FERnB6bWxhWitaSnB4YmtzN3IrdE9CQkpxaVdjcEIvSEpnN2NHLzd2ZGltbTFIT20vRURydnJ5NFpvbG5RUWN6MWpNNXJkbmIwMWlHaTJIZW5jOTltM0UwRTBRYk1sQi9ITGdiRUh6KytHMDV1UElwcHRSVHIzL1FvN0VVVE5OTHZNUVh5Z3BYUlNtQUxkSUgxNkREdXd2MEhVbmRCWWNoQS82WnQ2eG50YzhVQXg2S0UyRmQrSEhkamZJS1RuelFBUkFNMkFCZ0NhQVEwQU5BTWFnSFNhRlVoZ0xNTHoyYmNUUVZST3MzVTlXclhqNllLbHk0Q2VJbHZtbGNhbU5NMmxRM2graFowSW92clJiRzJQMXFOd2ZqS212Tm4wd0ZRUWZjbjVpb1kwemFWRGVINkZuUWlpUnBwZDFxUDFpSkt5ckdtYWJPM0x3WncxekdZMHpTWE43VVZwelE1MllMdHNybTNyQmoxYU81cG1Ud2VVNWRjdFcwbkRiRWJUclBCUEJUWkZUVFJiMWFNMVl6UmpoMVJEbW1hRmZ5cXdLYXFuMmRvZXJVZThWWEp1TmoxZ0RSTjJZRzlSUTBKamRZL1dhL3VrWTJvajhOQThhYlp1OTFuRGhCM1lWMGpQbXpuOWZJVWdMRUF6MzYrd0UwR0FacjVmWVNlQ0FNMTh2OEpPQkNHZFpzaGxpRUR0TkZ1bmNTWTJyRjNUck8rdkJGYWovdEZzbmNZWmIxaTdwbG5qWHdtc1JJTTB1MHpqcEZGczJIcjlYdjJhWnZQK1JDekRtalROUmF6VE9KOE9KbFQxT09qVnIybG1CK2o1N051SklCcWkyUXFOYzlocWRVNEhUTE82TmMzc0FEMi93azRFVVQvTjFtbWNkRDhOOUdnR242YXZRVFNRMEZpdGNWSmg1QTQ5VC80Y1BrMS9nM0FtYnhiMDFtNEM2VndzWEtIWmRIOTlyV1RRVEN4Y29ka21BTTNFQWpRREdvQjBtcFZLWldoNFB2dDJJb2hjTk51c2JhdDZxT3p3ZHZvWms3NTJXWnJjWXR2V1ZYK1Y1MWZZaVNEeTBHelR0cTJ6VzJPV0xxYzNSdUhzcmNHZnhtckZsdHUycnZxelBML0NUZ1N4T2MwMmI5dDZkbXZNMjNGYWxiNU03NFZiYnR1NlNuTjdVVnF6ZzAvVExwdHMyMHI4b08yR05Ib3BqZ3lwL09kMjI3WnU4UGNCTldKem1tM2V0bFh6SStoRm94bHpiS3R0V3lzNVYwQmg1QnJOTm16YnF2akIwaVZOOFdsK0ZvYVB4bWpidXRQWW5HWWJ0MjE5b3A0MGVUdnpwRGxVYTJlSGFOdTZ5eWliTjl0MjIxYW5uNjhRaEVWSm1xRnRLNExZNUFqU1ZRQ25UeTZDc0FETmZML0NUZ1FobldiSVlZaEFsVFFqTVRQekEvYWFKTlZKczRvd2FlMzkvcDZXUGF2Vk5DdjVrNEJxVU9sb1pvMXh1b1JaK3FPamhEcVorSHg2azBRcWxqMHIxalNyK1pPQVNsQTF6Vmp2bk9peGFmTDZqZmZmYWIzVElpY1RyV0oxa3JYUUZnbVduRVI3YWg0d3AvZXE3cWRaVmlQRXNzSmx4VFFqamZOMDhQeUEzSmR2OXR2bmg1MUpaM29jdE1kcWxWVW5KejMxZzFyRkF1ZERQWGlSN0ZteHBybHgxSjdQdnAwSW92TFJqSVNvNlFHN0wwbUw2cEUyTlQ4WnExVmFuU1RGVXYyZ1ZySEFlV3BHcy9tZFVjV2E1c1pSZTM2Rm5RaWlMcHFSKzNLSlpxUk9hc1dTYU1ZQ0ozR0lsWVJIWS9nMC9RMmk2aWROMWp2VnBKN3VkU1J2dHQ5cnRmWWVrNmo1aGxZbi8wbUx4TS91cE5YVEF1ZUUzdHd3c2lkOG1yNEdJVDF2Qm9nQWFBWTBBTkFNYUFDZ0dkQUFwTk9zQWdYQTg5bTNFMEc0b1dtcXp5clZOSE9GN2ZrVmRpSUlOelROWnlORnV3bzF6VnhSZTM2Rm5RakNGVTJUREhUVmFacTVOTGNYcFRVNytEVHRzcEYrbXNVMVRhMENWS1pwVnZQbkFKWEJGVTF6MHF1eW4yWTFmdzVRR1J6Uk5PbStDSittdjNCRDB3eGFSV3ZQQWlJZ1BXL205UE1WZ3JBQXpYeS93azRFQVpyNWZvV2RDQUkwOC8wS094R0VkSm9CSWlDZFpraWFpY0FLbW1VMFhDMVU0cGpVOENaTEhHLzZwd1BOWWRWb2x0Rnd0VWlKWTY0NzIyQ0o0MDMrYktCWmJFU3p1T0Zxb1JMSGhtWk5sVGpPSy9sQ090K3VkSjdSY0xWUWllTjROR3VreEhIbTM3SUNuai9rT1JIRVdwcWxHNjZHUlVvY004MmFLM0ZjMWFscDhnaStCN0dLWmhrTlZ5ZEZTaHpibTJZZEpZNmRQcmtJd21KbFFtT3A0ZXFvU0lsajh4RktITzh3cEpjNEJrUkFlb2xqUUFTa3F3Q0FDRWlubWRNVFh3UmhJWjFtU0dpSUNLSnltbVVvb2ZkWm5ReTFpTWtpSlQxNWNxNlhIa3ZOdkd4cm1xYm5WOWlKSUtvZnpUS1VVR3NUNWpXem8zQis4b2o4ditFblp2T1hQUDNmbHFicCtSVjJJb2dhYVJZcm9aWm12R1oycEhNWDNORjZyTVdtT1d1WVc5STBzYXgvV1IvTkVrcW9vWmtSTVkxSStXajhwekVMN25UUFpBMXpTNW9tVUQ5cW9sbGFDVFUwMDJ2TWFNYjZFbW1qTkpweG1uZGJtaVpRUDZxbldZWVNxdFZKczBiWGFlRWJJZGZQcHM4T1dNT0VIZGhiMUpEUVdGSkN6K2hwVWMyM2VNMjFmWHJHSlA5dkw5RGJLZHp1czRhSkVzZStCaUU5YitiMHlVVVFGcUNaNzFmWWlTQkFNOSt2c0JOQlNLY1pJQUxTYVlhRWhnZzA0TlBVUFZuaDA5eGxOT0RUNUo2czhHbnVOSnJ3YVZKUFZ2ZzBWeTlmbE53L2hFK1RlckxDcDduVFFUVGgwOVFjZzA5emg0Tm93cWRKYjJQQXA3blRRVFRnMHpROVdlSFQzR0hBcHdrMEFQZzBnUVlnWFFVQVJFQTZ6WnllK0NJSUMrazBxMEFCOFB3S094RkU4elJMS0puOC9CQTFjR1hNa3A3T0JZQm1Zb05vbm1heGtqbGZFa2VwdVd2UzA1a0dhQ1kyaU9acHhrcG13TzFjSjYvdjc1SG5oRjdPaVBxOXBqeWRoNXgzZS8zZXBwcG1hVzBSeTFxV2pkT01sY3laYnVlcW1EVHBCdFFpZVBLbTdmZWE4blNxRDBnQ0RmU3JIVFdOWmtEOWFKeG1SdjdrUHBzc2lNNVB4dFRqMVRiaVRIazY2WVBUQVdnbUhvM1R6QXFraG1aQlY5R01YalpLMGl6eWROSUh3Y3JSREJDQmhtbG1sTXp2LzlTMGMyMHB4ckhpYWZ1OXZwSDBkSkpLMnFIM1p5K25tZE1UWHdSaElTSnZ0bUkwYy9ya0lnZ0xDVFNiN212aEZEUVRHNFFFbWxtQVptS0RrRTR6UUFTazB3ejVEQkhZbkdaRmJadFIrZG1MZnV2YXZ2VmlCclhVbnMzMXB3UE5JY2RvVnRTMkdaV2ZKVm5KZURHbkIyUS9xYnoyN0taL05kQXdpdEFzcDIzenNTMC9TelN6WGt5dXJsZDU3ZGxDbXR1TDBwb2RmSnAyV2NTbnVZQ2l0azFkZnBicnRJK3RGL1BwSUp3ZVYxOTdkcE0vWXdtZVArUTVFVVJlbWhXd2JZYTIvQ3lOWnNhTHlhTlpXSG50MlR4bkpJTG5WOWlKSUhMUXJLaHRNeW8veXpUVFhrdzlONnVnOXF6VEp4ZEJXT1JKYUJTemJmSkdaL1pKMDNneFIwTjFJNjJpOWl3Z0FoWG56YXF4YlY0QzBFd3NxcVZaUmJiTlN3Q2FpWVYwRlFBUUFlazBjM3JpaXlBc3BOTU1DUTBSUVpTaDJha2ZtcWJuVjlpSklFclF6QmROMC9NcjdFUVFoV2syNzVPSzZZT21pV1g5eThJMEMwaEs4a0xUQk9wSFlab3BaajJsZTUxOFRST29IMlZHczZEOWZPdWFKaUFDaFduRzlzbnRhNXBPVDN3UmhJVjBUZFBwazRzZ0xLUnJtazZmWEFSaElWMEZjUHJrSWdnTDZUUURSRUE2elpETUVBSFFER2dBOWR1QnM3cTRVc09KcXFYemZIODMwQ2dhc0FObmRYR3RRVHJmOUM5ZWd1ZXpieWVDYU1BT25OWEZ0UWJwdkxDMCs2SzBOQXc3c0YxdTBRNmMxY1cxQnVsOGt6OGhFNTRQSkU0RTBZQWRPS3VMYXczU2VaNnprWUxuVjlpSklCcXdBMmQxY1lWMHZsdW8zdzZjMWNVMURHRUgzaWxJbDg0QkVaQXVuUU1pSUYwRmNIcmlpeUFzUURQZnI3QVRRVWluV1FWYWsrZFgySWtnaXRNc1ErTzhiM3V1Sm5ENllFSFQxUE8zeWpYTkFuK0JnZWRYMklrZ1NveG1HUnFuYllZWlE2OU1hcHFVTEF1cjF6U0wvQVZBVTZpQ1pySEdxWmt4NzFQU2pCUk45Z3pQRmpSTm9sbjFtdWJDZWl5ZFdsWkFzNFRHYVhVbHhTYVdtdGd6dktocEVzMnExelNML0FWQVV5aExzN1RHcVptaGJvZlRBNllaZTRZWE5jMW9OQXVyMURTTC9BVkFVeWhCc3d5TlU4dVFRVWNybmNPOTk4a3pmTDZnYWNaek01UTQzcFVneWlRMGxqVE9NKzY1U3F2NFpzajlXRnUzRnpSTjJuaGNtYWJwOU1sRkVCYlM4MlpPbjF3RVlRR2ErWDZGblFoQ09zMEFFUUROZ0FZZ25XWklhSWhBalRRN3ZjOFZHcy9UQWxSV3dlTW5WdWFjSnhSTzlWMDM1TVJ2T3RZMFFETVJxSTltcEdZZWhmT1RqeE5xT2lYQk1nb2V4Nm0waE1KNXhHdVhZMDBEMHJtSUlPcWltVll6aitaM0ZkRzB2cW5HcCs1RS9aZFI4RGdoYzhZSzU1RkozcklOdEU1TjgwVnB6UTQrVGJ1c3dLZVpDMXJOSkQxeWZqTFcrbVl2REo4ZmhGa0ZqMk9aTTZGdzhuY0JXejlQZGFrRWpHWmlnNmlMWmxyTjFLT1pwaGxwNHVyR0dHWVVQRjRZemJUQ3FVYXpmay90elA2OFJLeHBnR1lpZ3FoeE5BdmE1MGZxTzgyVTRkNzdQYVpaVnNIajlOek1LSnhxMytGNm1nRWlVQmZONkxiNDgwUDlpbXpQNnB1ZDJXSDNrb0xIV3VaTUtaeDBXNTJRMC9Qc3NKT0lGUkFJNlhrelFBUkFNNkFCU0tlWjB4TmZCR0VCbXZsK2haMElRanJOS2hDYVBML0NUZ1NSaTJZYmw1ODEydVNjbmliVk0yVFFZblFXRHBkcTdsckdwN2xaOUpmQjh5dnNSQkQ1UnJPTnk4OXkvb3UxeXpsOTltdzB2ek9hOTN2cGpWSVZhc3Y0TkRlTUh0Z2FDdEpzWGZsWjNwRFRzUE5mSzNZeHpjS2dxeDJjN1k5YjNVQU5XbnlRNGRYQmtFdWhkWXI3Tkt2ekUySlp6N0lZemRhV24rVU5wd2RFczd1enR3WjJOTE1Pem9lajJhZm1JQ3d2c1JwVjNLZTVZZlRBMWxDQVpwdVVuMDJNWm5mRDZjMUhJNXF0ZGJTRGMzN243Tkh4cytnZ3A0TkhZM1k3RmZkcGxqNExRTTNJUjdPTnk4OG01bVozRlEvM1J2cmRNWFp3aHNITkp6Umgwd2NKcHorNVIwZFNoSUpQMDlzZ2NpWTBOaTgvYTU0MGY5Q25HK3ZEczBONlB1WHFHdXJwOFFPYXJKbURqR2wwVklkdFhUK0VUOVBiSUtyUG14VXBQL3ZsS0tSUmJ3MUFNN0ZCVkU2elF1Vm5BK01BV0EzUVRHd1EwbFVBUUFSQU02QUJTS2NaRWhvaWtKdG1XYnJtY0Ztd3BGZXdseDJaVjE5TGJ1ZUlwZ25Vai95ajJiS3UrZURrL05iRndvTmkwQjVuT1RKdGNWcDYwOThWVGRQejJiY1RRWlNnV2F4cjhqck9pVVhpSnZtWk1oeVoxbmZKTXBVam11YUwwcG9kZkpwMldaMVBNMHZYcEhXa1Y3NXBUSlVUc2lSbE9USm50N1R2a2d5YnJtaWFuZzhrVGdSUmtHWUx1aWF0WTcweUVqZUpaaG1PVEJyTmFKTXArNExkMERROXY4Sk9CSkdmWmhtNnBoN05Pa2x4azI2YUdZN01KTTBxMFRRQkVTaVEwRmpXTmJtU0xNL05Jbkh6ZWF1WDRjaWtKMDNlWkhiNFpqV2FKaUFDYnVUTmltdWFnQWk0UWJQaW1pWWdBbTdRYkROQU9oY2JCR2ptK3hWMklnanBORU5DUTBRUVpXaTJYdDZjUlEwMnFhMG1UOEFtcmIzZi95YVdMN1d1bWRWZE0wZnQyVUxSUi9EOENqc1JSS25SYkwyOGFUVk1vMjYrSEV4dmptZUgzVmkrNUQwenUydm1xRDFiTEhxZ09WUkRzMHZsemFqQjVsWFRhazVYeEl1S3p1bzlNN3RyNXFnOVc5NUhpR1c5eTBwb2RybThhWm9jbWtLMDZuYjRrQWVvU0w3VWUyWjIxOHhSZTdaWTlFQnpLRSt6MWZLbWJiQnBHMmRxeGtSRlovV2VtZDAxYzlTZUxSWTkwQnhLMFd5OXZHa2FiSnEybWtTK20yTzZRZHFpczNyUHpPNmFtOVdlZFhyaWl5QXN5aVUwMXNtYjEzV0RUZE5XazBldUNiMVpkaGhKbkZyWHpPeXV1Vkh0V2FkUExvS3drSjQzYy9ya0lnZ0wwTXozSyt4RUVOSnBCb2dBYUFZMEFPazBRejVEQkVBem9BSFVTTFBOMjdhT3lrbm5KZVAwZlBidFJCRDEwU3hIMjlhUzBubkpRRDIvd2s0RVVSZk5jclZ0TFNtZGw1UjJYNVNXaG1FSHRrdW4yN2FXbE01TGh1cjVRT0pFRUhYUkxGZmIxcExTZWVYQkExV2p4dEZzODdhdEphUnpRQVRxb2xuZXRxMUZwWE5BQktUbnpRQVJrRTR6cHllK0NNSUNOUFA5Q2pzUkJHam0reFYySWdqcE5FUGVURVFROWRBc3d5aDgzenFEYVkxSnp5Nm9tRVZMSEZjY1BGQTlhaHJOTXZxN1dtY3dyMkcxYzd5Z1loWXRjVngxOEVEbHFKdG1zVkhZMG96WHNENndxR0lXTFhGY1dzdkRzdTVselRSTEdJVU56VXhoWTFJN0YxWE1vaVdPcXc0ZXFCeDEwaXh0RkRZMDAydDROQXNYVk15aUpZNUx4dXI1N051SklHcWlXWVpSV0R1RHpScHVQN0dvWXFKdHE3ZEIxSlhRV0RJS243RXorSUZlYzIyZjFNNGxGUk50VzMwTlFucmV6T21UaXlBc3BOTU1FQUhRREdnQW9CblFBS1RUREhrekVhaU9abFRFdUxPNDB1WmtzOHlabGJWdExSbTQ1N052SjRLb2pHWUoxVEtCUU11UldlYk02dHEybG96Yzh5dnNSQkFWMGN3V01RN2VhYjNUNmszZU9OdzdZM01tV1ViMnIzK2FaYzZzcm0xclNjM3RSV25ORGo1TnU2elpwNmx0bWJmT0R6dVR6dlJuVks2Z3k2NDVSYk9uZ3k5SFdlYk02dHEybG96ZDg0SEVpU0Fxb3BrdFlqenBVZEZaeFpycGdhV1ptVzB0bVRPcmE5dGFObmlnZGxRM21uRVI0NGhtUVpmTm1VOU94czlHaW5JWjVreTBiZDBoVkVRelU4VDRCMnBPMVdydFBlYWJJNWt6SjYzZTU0ZVhkWEJGMjlhZFFTMTVzMGwzL1RZcG9HMnI1NmlEWm5IdWExTVViOXZxOU1RWFFWaElWd0djUHJrSXdnSTA4LzBLT3hHRWRKb2hieVlpaU1wcHBpdk85aFpYVDQ5TlBkbjI1K29KY3U4SlQ5OENlb3FFVDNNSFVEWE5kTVhaU1h0QjNaejM2ZUdUM1puUGUyUVVvTHF5WE5ZTVBzMWRRTFUwTXhWbktlMUs3Y0dpb3JPdGptN2lxdjFNbE84Z21nVW1hUXVmcHZmTGFta1dWNXpsMXExYTErUXYweHNqK3drN040bG1YSElXUHMxZFFMVTBNeFZuU1lYazFxM01NTTcxNis2YVBKb05hYXFWSHMzZzAvUThpTXBITTY0NFMwdlR1blc0OTVob1pXaW12cU1iNnQzMDNBdytUZCtEcUpabXR1THN2RStPVEtOcmttRFpNVTFjdWFVcnRTOWhOWE5vbmpUaDAvUTlpQWJ5WnBzSmxoc0FOQk1iUkFNMDIweXczQUNRenNWQ3Vnb0FpQUJvQmpRQTZUUkQza3dFeXRDTThxM3QzdzVJcmx4QTBvR3BuaVU3dkoydUVrUmZ1UnJRY2dkTitEUzlEYUlFelJTWHlILzVvTC84cm16S2dVbStPdkpwVG0rTXd0bGJneitOcVh0aFZnZE4rRFM5RGFJd3pWaStaQUt3WEVtMXlpYXYzM2o4QmplLy9JU3JmWktncWRhZDNScnpkcHhscFMvVGUyRm1CMDM0Tk9IVFhBVExsK3kvWkxsUzNRRnY5N241cGZwQU96QkphVko4b2NHTHQyT1JTVkZtMk9xRW1SMDA0ZFAwTm9qQ05HUDVNdVM2QmF3anNTOHBaSWVtY1dCYTNWelRKZWhGbzluOFRuWUhUZmcwdlVXWjBTeG9QKzlwNGZMcGdJUklUVFAxZ1haZ2FrR1Q2Y0krVFhvdW9QbFpHRDRhWjNiUWhFL1RXeFNtR2N1VjVMOGNjY1BMb05WcXY3YzNVdU1ZbVRIWmdVbUZNWHBEZXBiczhIYm1TWFBJVDQ2WkhUVGgwL1FWRmVmTmNqczA4d0EwRTR1cTM1N042OURNQTBqbllvT1FyZ0k0ZlhJUmhBVm81dnNWZGlJSTZUUkQza3hFRU9WcGx0MDdVejF4bmkvVUNPVUhUVXFLelhVZUZ6N04zVUVGbzFsVzcwd3laSDZjTUd1cUZVYlNuQjZ3MmdTZjVrNmhTcG9sZW1lU2hXbCtFdmswdTVOVzE0Z0E1QVgrNHhnK3pkMWFWa2l6Wk85TUVpTG5KMlBXbXhTYnd1Y0hrYVNwbVBVQmZKbzdocXBvdHRBN1U0OW1tbVpFSEhWL3RKTG03TzNmRGVEVDNMRWdLcUJaVnU5TU1tUlNzWGFTTmQvdk1jMGlTWE5JdDFYNE5IY3FpQ29TR2xtOU0vbmQyQjRMbjNUYm14MTJqYVJwQkNuNE5IY3FDT2w1TTZkUExvS3drRTR6UUFSQU02QUJnR1pBQTVCT00rVE5SR0FGelRMRXlvMk1tVm5kTStseGNxbmJKdnBwN2t3UXEwYXpETEZ5STJObVZ2Zk0rWjNSdk45YnNSTjhtbHMvd3JacEZvdVZHeGt6SDJkMHorU3NmMWNYcEcxLzNPb0dhaS8wMDRSUE04d1VLemN5Wm1aMXo5U2ptUzFJKzNBMCt4VDlOSGNvaUxVMFM0dVY0U2JHekRDamV5Wk56enE2SU8zOHp0bWo0MmZvcDdsTFdFV3pETEZ5c29reE02dDdKdDAwUTEyUU5neHVQcUhwWFNYOU5FRXpFVmlaMEZnU0swZWJHRE5IR2QwekZXZ0tSM016eGI0UDFLM1lIaGI5TkhjQlpmTm0xUmd6MFUvVGM1U2tXVVhHVFBUVDlEd0k2U3FBMHljWFFWaUFacjVmWVNlQ0FNMTh2OEpPQkNHZFpzaG5pTUFhbXVXUnowMWYxdTVpVFdONlRPQlBhcExPTi81YmdhMWgzV2lXUXo0UGRWOVdyb3lYckduTTlwSWFwZk9OL2s1Z3E5aVladXZrY3kyQlc1cWxhaG9ibXRVbG5idGdkOFZ5OVhKVG1xMlZ6MWtDdDk3ZWRFM2plRFNyUlRxL05QWU40Zm5zMjRrZ05xTFpSdkk1U2VCMDArejNGbXNhTTgzcWs4NkxuaElMejYrd0UwR3NvOW5tOGpsSjRHUURIdllXYXhyYm0yWWQwcm5USnhkQldLeE5hR3dvbi9PWXA5OHh1MWlvYVd4VTlYcWtjNmRQTG9Ld3FDSnZWbDQraDNUdU9hcW9vVkZlUGk4dW5RTWlJRjBGQUVRQU5BTWFnSFNhSWFFaElvaHFhWFo2UHlGQnhpQUIxTll5bnJUMmZ2K2JXTDVrWFhPZVZmQ1k1TkdRYzhMcFdOTUF6VVFFVVNuTmRISGpTYUswTVdQT0FxaXVaVHk5U1g3T1dMN1V1bVpXd2VNamsydGJqRFVOMEV4RUVCWFNqQnU1YWdsU2E1ZW12bkdyd3dLb3J2NzVWSFBJeUpkR0tzMHNlR3psVWQ2NVRrM3pSV25ORG5aZ3U2eThiZXN5dUpHcmxpQ3Rkbm1xMVVvV1FMWGUrWkFIcUVpK05GSnBWc0ZqL2k1Z3hmUlVKenZ3aG9aWVZFZ3pidVNxSlVqV0xwbGhuT2pYQWlpUFpwb3hWcjYwdW1aV3dXT1dSM1g5MnFlZ21YQlVPNW9GOUNvUUxUdGE5aHp1UGFibkFVc3pxbVdzU0VnbDI3VjhhWFhOcklMSExJK3VwUmtnQWhYU2pLWmhQOWNTNUFQU0xybStNYW1WSFJKQWY4REZwM28wZm5WbVJyNjgrcHJSTlRNTEhwTlNPaUYvOGRsaEp4RXJJQkIxNTgwMlV5czNBNlJ6c1VIVVRiUE4xTXJOQUpxSkRVSzZDdUQweVVVUUZxQ1o3MWZZaVNDazB3d0pEUkZva0diYWVCbHFmNlpXTCs4blY1bjZqa1BPNzdiNFZjblR3ZXh0cnNESFA0Sm1ZdEhrYURZejdZSlp4OVRxWlhvVk5YdDkzZ3VIUGM2aFdiL3c5Tmg0ajBFenNkZ0d6VmpIMVBuKzlOejludFVBQUNBQVNVUkJWQ3BxajhpYUV5c0NXaU85ZGE3ZjFZQlBVL0p5Q3pRei9zekkwcGxjMVdHUDFMSG1HdmQ4Ylk4blhXTTJ3QnNhWW9QWUFzMjBqcGthemN3cUdzMllmanlhc1ViS3ZWOUJNK2xCTkUwek5jM1NPcVpXTDlPcmp2Um1SMXJmWkkzMFlnM05uRDY1Q01LaTJTZk5GcFhIWUIzeit6OGw5ZkxueVZYWDl1bDVrc3NQa2I3SjIvY21yZHQ5KzBJdWFDWTJDT2w1TTBBRVFET2dBWUJtUUFNQXpZQUdJSjFtU0dpSUNNSUpuNmFXTU5VblQrRFQ5RE1JSjN5YVdzTDhKTnFJZG9KUDA2Y2duUEJwYWxQVG9WVTY0ZE9FVC9OeUZQZHBzb1Q1cHpGM0dJWlAwMGM0NGRQazBVeXR0aHZCcCtrYm5QQnBtdGZMOUUwU1BrMFA0WXBQVTFGVDE3aUZUOU5Id0tmcCswT2VFMEhBcCtuN0ZYWWlDT2txZ05NbkYwRllnR2ErWDJFbmdwQk9NeVEwUktCeG1xMXphNllBbjZZbmFINDBXK2ZXVEFBK1RWK3dQWnBkNnRhazF6ZUdyZGZ2d2FmcHozSnJOTHZVcmZsMHdGWW03cE1JbjZZblFXeU5acGU2TllldFZ1ZDBvR2dHbjZZL1FXeUhacXZjbXRUeE9qQ2pHWHlhbmdTeGpTZk5sVzVOYXIzWllUa1VQazEvZ25BMmJ4WXN2ZW9ONlZ3dVhLWFpkSCs1U1Nkb0poYXUwaXdMb0psWWdHWkFBNUJPc3dwRUFNOW4zMDRFMFJUTlpwbTY1YXlDMnJPbFEvUDhDanNSUkdPaldiWnVXVUh0MmRLUmVYNkZuUWlpY1pxbGRjc0thcytXMXR4ZWxOYnM0Tk8weXdaOG1xdVJyVnRXVUh1Mi90Q0IwbWlhWmd1NlpRVzFaK3NQSFNpTlJtbTJyRnVXcmowTG1vbEFnMCthR2JwbCtkcXpnQWhzTlcrV29WdXVBcVJ6c1VGc2syWlp1dVVxZ0daaWc1Q3VBamg5Y2hHRUJXam0reFYySWdqcE5BTkVRRHJOa05BUWdXM1JqRVZ6VGw2d2NEazdiUC8yUVZUZitCS0FabUt4dGRHTTgvL1BiSkhqb0VmbGthUDZ4b25OanVMdlFUT3gyRDdOV0RYbjZ0dmFUVGU4T2hpMnp3K3ZEcmkyOGFUVm5lNWYvM1JGaVdOSTU1RE9MNGVsbVZiTnc0bE8rMnR2OE12QjA4SGtUYTV0L1B3Z2ZEcjRVcWZYOENLUTJDQzJTN09veUhFWWFvR1Q3cG1uZzBkajB0YTU2T3owUUxlcGlHTk5BelFURWNUV2FEWi9WN3ZOdFdvKzRjNEE3QTBPcHorNXgzZFRTN05uSS9VbGpqVU5wMDh1Z3JEWVhrSmp1cTlyR3JPVy92ZXZtVTQ2TkxJOTFLK2VjVzNqMldIMzgwUFRuZ2Q1TTdHUW5qY0RSQUEwQXhvQWFBWTBBT2swYzNyaWl5QXNwTk1NQ1EwUlFaU25XWVk2eWMxYjIrZTMwbjAxK2RHUyt1ak0rN1REY3FQV3FKZHJmRno5Y25jdkdXc2FvSm1JSUNvWXpiTFVTVEwyZnB4bzMwbzJraHVqY1BZV0pjTEM2YjNNUnExUkw5ZkVjY05FSDFqUVRHd1FWZElzb1U2U0ZXNStFblZ1N1U1YTNZRHNTVUdYMHJKL0hHYzJhalc5WEFNeW9kRFBFYzJvTTFoOW1pYVc5UzhycEZsYW5leUViTEVrSTV5NjV6MC9DSWQwNjZPRWYzZjJRWGFqVnR2TE5aejArR2ROTSs0RHk4QWJHbUpSRmMwVzFFazltbW1hRVhIVVRkS01adUhzN2Q4TnNodTFtbDZ1Tkgzam44MW9SaTA0RTdHbUFacUpRQVUweTFJbjZTMHgzWEoxdVBkK2oybEdEd2cwUHd1SDdYRjJvMWJUeS9YaGFOTGpuOWtxUER2U0JBMlJOeE9NS2hJYVMrcmsyYUYranV6WlVzVWtUZXJOd2xBUFk1bU5Xcm1YNjk3N3JkYjNmMm9hdDFLakhlb0RPNGhqVGNQcGlTK0NzSkNlTjNQNjVDSUlDOURNOXl2c1JCQ2dtZTlYMklrZ3BOTU1FQUhwTkVOQ1F3U0swdXowUVQ5S20wYXd0UmUxck5tKzZMZXU3V3Voa2g0bmw3WlBkMm5kbXFZSjFJK0NORE91eWdVRVdueU1USmZxZnl0VXp1K001djJGT2xNTFhWcTNwV2tDOWFNUXpVeng0WEh3VHV1ZFZtL3l4dUhlR2F1WGxKRGR2LzZwTlYweXpZeFFxV2hHZ21hZlN1aTFQMjUxQXpWb3NRWnFiSmxxck51V3B2bWl0R1lIbjZaZFZ1clQ1T0xEVk9PNk0rbE1mNlp1YzBHWFpTVkZNelpWR2xtVHF2eGJvVktQWmtFdjVFMGZqbWFmMnJyR0pEYngzdHZTTkQxL3lITWlpRUkwNCtMRGlnV1QzcVE3UFZZY21SNVltcG01bGE0cVM2T1pFU3BwZXRhaEhhY0g4enRuajQ2ZlJSb28yVEpKUGhodlM5UDAvQW83RVVUUjBTeWd0eFlqbWdWZFZpK2ZuSXpKVkJtWkxwbG1XcWlrbTZiYWtWN1FDSU9iVC9wcVZxWTFVTFpsVG1qV1ZralRkUHJrSWdpTFFqU2pHK0x0ZnVzSGFnYlZhdTA5NXB1anJrZmNJMVBsU3kxcjZpZE5MVlFxMENoSGN6UEZ2Zy9DWnlPcmdZN3A1WTdwZnF0MS9iQ0lwZ21JUUFWNXMwbDMvVFpyb09aejg3dHJ0d0xOeEtJOHplSk1WM0VFcXd1YkdZQm1ZaUZkQlFCRVFEck5uSjc0SWdnTDZUUkRRa05FRUp2VExNT1BPZUF2cHR0bEVrbTFVajFTZG5nNzgvcXNuc3ZCcDdsVFFlUVl6VEw4bVBUbFFYLzVTVE9sVnBJcVJSc2JveVlaQUVMNE5IY3JpQ0kwaS8yWS9JVnJ4Tko3L1pQWGJ6eCs0M0RQYkRGam1WT3RPN3MxNXUyc3RZbmxUZmcwZDJwWmdHWUpQeVovVWFNVXVaUW10L3Z0QzlZM3pSYWtQeW0rakdrLzJzNGFOWWxtOEdudUZ2TFNMTzNINUM5Y3ZIUEdPZnlROVUyekJjdWNrVFlaOUpaR3N4QSt6VjFCRHBwbCtESDVDOU9NaEVoTk0wVWt2UVhMbkkrWkxubzdZOVNNNTJid2FlNEs4aVEwbHZ5WUkxSXZSMXdqTm1pMTJ1OVJHWCtXTW0xdjFsWnZTTStTSGQ3T0dqVlp5SVJQYzZlQ3FEaHZWb0crZVRsQU03RkJWRXV6S3ZUTnl3R2FpUTFDdWdyZzlNbEZFQmJTYVFhSWdIU2FJYUVoQXZsb2xxVnJEcGNkbVBSeTlySlg4K3ByaWUwYzBqU0IrcEZ6TkZ2V05SK2NuTis2V0hqek5XaVBzN3lhMXRsSmhXZ2QwalNCK2xHVVpyR3V5ZXY0SmY5STNLUTZqUmxlVGZXdDdaSHBrcWI1b3JSbUI1K21YVmJrMDh6U05Xa2RHVEIxQTB4U0pCWE5zcnlhczFzWGNZOU1kelJOengveW5BaWlDTTBXZEUxYXh3Yk1TTndrbW1WNE5XazBNODBMWGRJMFBiL0NUZ1NSazJZWnVxWWV6VHBKY1pOdW1obGV6UVROS3RNMG5UNjVDTUlpYjBKaldkZGtlWkxuWnBHNCtUelRxMGxQbXJaSFptV2FKaUFDMHZObWdBaUFaa0FEQU0yQUJpQ2RaazVQZkJHRWhYU2FJYUVoSW9ncWVqWXRDNTBQakZMSk9Wd0RWakVaRS8wUXl0a3cyb1dmTnRVekpYeWEzZ1pSeFdpVzFWQ1RjbDZwQ3NZbVUwYXdVaWFCZDlHNkpueWEvZ1pSS2MwU0RUVnBGZWRucVJndGRkVGt2RCtWcVIxWktaUDM1VjIwRWdDZnByL0xLbW1XYktoSnE2WUhRWnVMMFpMVGpsUk1YYVpXUzVtbXRydXVQNnQxVGZnMHZVVmxORnRvcUtsSE0xT01scWlqUnpPMmNSb3BrN2JVdTVqUkRENU5iMUVGemJJYWF1cTUyVndYb3cxNlptNm1iWnlSbEhsc2R0RzZaaUZORXpRVGdVb1NHa3RDcDMwbjFoU2o1UnNmcVpoazR4eVRsTWtQa0dvS3hydDgvNmVrYS82OFVPMVpweWUrQ01LaTJieFpPUnNuYUNZMmlFWnBWdExHQ1pxSkRVSzZDdUQweVVVUUZ0SnBCb2dBYUFZMEFPazBRejVEQkNxaVdjNHVydVN6cThnT1hEWnlvQWxVUTdQY1hWeXJzd09YakR6MGZ2YnRSQkNWcUFENXU3aFdad2RlK0xuQThrVnBhUmgyWUx1c3RHM3JBZ3AwY2EzT0Rsd3Fjb2JuQTRrVFFWUkJzd0pkWEt1ekE1ZUtuT0g1RlhZaWlJcEdzN3hkWEZIaWVMZFF5WXRBdWJ1NDdvMWdCOTRwTE5Ic2l5dXZmUFc5VjBvY3NiNHF4NkNaV0N6UzdPdS8vUHFYNGRjLytxandBV3VzY2d5YWljVWl6Yjc1NTRwbVgzem5EOXVLWnhVZ25Zc05JdU9tZWVYS3Q0c1BablVDTkJNYlJQWWp3TDkza21kSWFJZ05Ja1d6cjM5NFJTUFhjSmJYRGt5enQxbGxkdUFjZ1Y0Q3o2K3dFMEdrUjdPL00zT3lmS05aWGpzdzlRYXJ6QTZjSjFCZ1c5aUNIVGhGczlKMjRJV2ZzWFJ5dVVRenVuRitOOHlGbkhiZ0pNM0syNEh6aFFwc0Iwc0pqVis4b3A0Mjg2Vm44OXFCRXpRcmJ3Y3U4RGNEaldNcFBmc1BhWHFXYjI2VzF3NXNhVmFGSGRqcGlTK0NzRmk2YWY2N1g2a3YveXBmUWlPZkhkaTJkSVVkZUhlQ3lFNW9sTkUwVndGMjRCME5Jak9oOGRVL0x2MzdNZ0U3OEs0R3NYVFQvREIzZXJZeFFEb1hpK1UzTkw3NTUrSFh2OXhXT0NzQm1vbkZFczErR1g3eDZqZi9UTXhvaG9TR0NDemRORC83OWtjZjVzdlBuaGJzM0xxZ1JzR242VEhLdjZGUnRIT3IwVE5qd0tmcGJ4RHBoTWFQUHRJNWpjMGZBZGlqV2FoenE5RXpoMWNIUTA2amRlRFRMQldITEovbTMrVlRBZGlqV2FoenE5VXpTV2hpdngxOG12NEdzZlFJa05NR3dCN05RcDFiclFSNk9uakV3c0FZUGsxL2cxZ2F6VmhueWpXYUJicjhldDdPclViUERLYy91VWM2cUNJVWZKcmVZbWsweXprM1kwTm1rYzZ0YnhvSmRFenZka3ozVzYzcmhUUk5RQVRLenMycXdaZWpjSDUzN1ZhZ21WaGtKalRxMGpRdlJXQnFuSzBHYUNZVzBqVk5weWUrQ01KQ3VxYnA5TWxGRUJiUU5IMi93azRFVVlHbXVTa3l2Wm1KVlNhVE95SEhwekYxbmc1bWI0OTQwMjRJbWdrT29zbEsybG5lek5TcW8zQitNcWFDdE1iVXFiWDE2ZkgwT0JGckdwRE9SV0FiTkV0Nk0xT3JqdVozUXk1SXl6WW9VOUtXYlFOZCtEUkZMOVBTK1YrR2RTTExtN213cWhOeVFWb3VUY3R5YWFEdW9sMWpJY0JvSmhhTGxwTTZVeGxaM3N6VXFpT2RvMzA2NE5HTTVWSVNyVUF6OFVqVDdKY3NOdFhsYThyeVpxWldIZkZtOHp1Nk5DM0xwUmRyYU9iMHhCZEJXR1ROelQ2clowekxidFVhcjdxMlQ4K1RBZXNCUS9NT1VXOUNWVzNOKzdPZ21kZ2dGa2V6OEp0ZnVDb0NnR1p5ZzFpMkE3OWErbmZWQmRCTWJCQ0xMMm1YL2tVMUF0SzVXRFNaTnlzTDBFd3NwTk1NQ1EwUjJJeG0yZVZsY3pUUXBNZktwZTNoMDl3WmJEaWFYVkplZGdFckdtak83NHptL1Y1NmMvZzBkeWFJdkRSTGxaZk4wVUNUU3VjRkpGTzJ6dy9iSDdlNmdScTA0TlBjWFo5bU5qTEx5K1pwb0tsSE0vSnkwcVlQUjdOUDRkUGNvU0R5MEd5cHZHeU9CcG8wUGV0b0wrZjh6dG1qNDJjaitEUjNLSWdOYVpaZFhqWkhBMDI2YVliYXl4a0dONS8wdS9CcDdoSTJUV2hrbFpmTjBVQlRnVVk1OW5JcVBxbjc3eHcrelIxQ0JYbXpDaHBvd3FmcE9jclRySW9HbXZCcGVnN3BLb0RURTE4RVlRR2ErWDZGblFoQ09zMlEwQkFSUkpVMG0yZkluQXhPNlNiVnlURHV0RGxwN2YzK0huMDlRejlOZjRPb2REUkxWWlpkK09nb29VNG1QcC9lSE04T3V5R1pNOUZQMDE5VVRUTmJXWmJldDVpOGZ1TjlWajBwazZ0V3NUcEo3L3JURDdmR25FUjd5ZytZYk01RVAwMS9seFhUTEtvcyszUXdlYlBmMXFybmNkQWVxMVZXblp6MDFBOWNhVHNNdWc5NThHSnpKdnBwK292S1J6TlQ4blBZYW5VbTNWRExVZlRteG9GUkowbXhwSjZhSjJNV09HMWphaXBaaTM2YTNxSXVtdEZMUTBzMEkzVlNLNVpFTTEyc1ZuR0laSVQ1blJINmFmb2JSTlZQbXFheWJKZnVkY085SjFiMTdNME8zOURxNUQ5cDBTdG4zVW1ycHdYT0NiMjVRUk8yR2ZwcCtodUU5THlaMHljWFFWaUFacjVmWVNlQ2tFNHpRQVJBTTZBQmdHWkFBNUJPTStUTlJLQU16VEpNd2dQK1ltckZSdEQxak9rZDcydjdWUEt6UmMwUXV5eWJQOUVmaFZ1MEEzcysrM1lpaUZLaldZWkptTDQ4NkMrK3RzMlpWcllJeittelo3cE9uaGJNdWRReGJ3UTdzTGRCVkVPejJDVE1YNkxtclpQWGJ6eCtRMzNQRzdMYmFmN3Jmay90d2xVL3RXQk9QczA1UytXd0ErKzZIVGdiR1NaaC9qSzlvWnUzM3U2M0w5Z3N6QnR5Q2RENTNkbGJnMmNqcm1Hc0JYTlQ2dmczSWV6QS9nWlJubVpwa3pCL2lacTNrcXJaTlNWbXpXaDJONXplZktSSHM1QUZjeTUxekZJNXBITnZVWXBtR1NaaC9oSTFiOVUwMDZPWm1admRWVHpjTTNNekZzeTUxREZMNWJBRGU0dHlDWTBsay9DSXJNQ2pxSG5yZS9TS0kvdUN6WlBtRC9wMFkxVURJTlV3RHZRNmhkdDlsc3BoQi9ZVnRlZk5LakFMVzRCbVlsRTN6YW93QzF0QU9oY2JoSFFWd09tVGl5QXNRRFBmcjdBVFFVaW5HZkptSW9Lb2cyYW45N2xTNC9sQ2NWcCtMS1drMkZ4bmJhbENTM2UrZlUwVHFCODEwSXdTWk5TQTllTjJURE8xWW5wakZNN2VJanRLT0wxSEdUUGRuSFg3bWlaUVB5cW5tVzYyU2kwTDV5Zm5YUGhZRFVqZFNhdkxTZGFnU3luZFA0Nlpab0dwNnJobFRSUEwrcGVWMDR5YnJiSVF5YTB3cVdHaHV1YzlQd2lIZE9zanNhQTcrNER6L3lFTG05dlhOSUg2VVRuTnVObXFHYzAwellnNDZ2NW9Sck53OXZidnRNeVVHTTIycW1sNlB2dDJJb2c2UnJPZ2ZVNjFXTWdFVElXUDMrOHh6ZWpWUjVxZmhVT2FhcVhtWmlVMFRhZFBMb0t3cUp4bTlHajQ4MFA5U2xDUEN4L1RiWStxL3ZDVFptamtKeTV1UERSUG1pVTBUYWRQTG9Ld2tKNDNjL3JrSWdnTDZUUURSQUEwQXhvQWFBWTBBT2swUTk1TUJDcWhHUXVQbmRUUDdmSENOcWYzSTgxU1BYSytlVEptUitld3hWMTAxclYwVGNhYUJ2Sm1Jb0tvWmpSTE5XV2xhc1pMTFYxSjZEU2E1ZXl0Z2E0Sk92M3hnNVB6V3hkM04yanBtb2cxRGRCTVJCQ1YwU3dNdXRhWjJUSnlwRzdTeXYxY1dlaTBtcVVta0JiRWFjc05XcnJDcDdsMjZhOVBNNElkajhpWnlkV01tV2EyU2V2cElFaTJaUjMyaUlCY2J6dWkyYnFXcnZ4Yk1KcUpEYUlpbW5GVFZ1UE1uRnFhY1Exalpva1dPbzFtR1hUMDhNYzhaSnF0YittYWlEVU5QQUtJUUhVM3pUQTB6a3hEcytteHJtSE1zaVlMblVhem5PNzNhSWRKcEk5djBOSTFFU3NnRUZVOWFlcVhZZG1aeWRXTWpTL1Q5SE0xUXFmV0xPbEpVNDFlN09na1dkUHN2YXFsYXljUkt5QVE3dWZONHBhdW9KbFl1RSt6dUtVcnBIT3hRYmhQc3hpZ21kZ2dRRFBmcjdBVFFVaW5HZkptSW9Jb1NyT011ck1QTXJxMkd0V0pQcjUveUtXQnJ1MUhkc3kwYmdtZnBzY29QSnBsMUoxZFZqSkp1K1NGL1ZqOUg5c3hGM1JMK0RUOVJYbWF4WFZuMWFxQTI3Uk8zampjTzlOaTVzbDR1bi85VS9zeDA4eEltK0dpYmdtZnByL0wwalJMMUoyZDNkSnRXbi9HOVdaWlpWSTBlenI0Y3FRLzVwSUhjWGZXUmQwU1BrMS9VWTVtNmJxejFHdWErMmV5NG1ScFptWmIvREdQWmtiYVhOSXQ0ZFAwTjRqQ05NdW9PNXVrV2FERnpDY25ZMm9DWUQvV05OUFM1cEp1Q1orbXYwRVVUMmdzMVoxOVFxVmxUWnRXSzJaT1dyM1AxZUJFK3VXWmZkTFUwdWJWMXhaMHkrdG8yK3B2RUxYa3pYTFhtNDExeTFVQXpjUUdVUWZOOHRlYmpYWExWWUIwTGhiU1ZRQkFCRUF6b0FGSXB4bnlaaUxRQ00xMGdWbXVTTnVaNm82YW5LbU5EWjBrYjVyMDdaRFNzZHh1azNKcXM3ZEh2SGMzUk41TWNCRE5qR2E2d0t4Mk1KbU9taWI1YW1SUWxqZTVZdTN6WGpqc21aWk9XbHVmSHBzMnNLQ1oyQ0FhbzluTGdmVmo2bzZhYVpxeHZNazFIcmxTS05keDFPYk9XNlIzcXNFTVBrMzROTmRCRjVnMW81bnVxSm1pbVpFM1NiNE11b3BtbW12czhHeVBKMTJUaDhOb0pqYUlSa2N6OW1PYWpwb3BtbWw1azBjelppU1BabXp1NUFLMjlkSU1xQi9OemMzSTYwdFpXOU5SMHlpVy9OWEltN01qdmZHUnJrckxWV3d2MXRBTUVJSG1ualRKcUxrM291K3BvK2JaWWZUd2VmV0JGa2F2N2RNbi9FWXV0OXMwb3VqdHZuMEhCRFFUQytsNU0wQUVwTlBNNllrdmdyQUF6WHkvd2s0RUFacjVmb1dkQ0VJNnpaQTNFeEZFRlRRclVucjJYRy9qUXUxWm9INVVNcG9WS1QzTDI4eGRxRDBMMUkrcWFKYTc5S3lWbWJaZmV4YkwrcGVWam1aNVNzK2VwV2kyemRxelFQMm9obVlGU3M4bVI3UHQxcDcxZlBidFJCQ1YzVFR6bHA0MWFtYloyck5PbjF3RVlWSFJrMmJ1MHJNenZVM3Ayck5PbjF3RVllRiszbXgxN1ZtblR5NkNzSENmWnF0cnp3SWk0RDdOWW9CbVlnR2FBUTBBTkFNYWdIU2FJVzhtSW9nR2FiYVpLVGdGMklFOUNhTEowV3d6VTNBQ3NBUDdFa1RETk52RUZIeklXZHZYNzhFT25Hc0pPN0RCWnFiZ3B3TjJ6QVc5cHV6QVFQM1l3bWkyeGhROFZCK2ZEaFROWUFmMkIwM1B6ZGFiZ3FuWFFHQkdNOWlCUFVIVFQ1cHJUY0gwR21NbkV0eGhCL1lEenViTmd0N1NLa2puWW9Od2xXYlQvZVV5eWFDWjJDQmNwVmtXUURPeFFZQm12bDloSjRLUVRqTWtORVNnSnBwbGRIVzluMUl1YWMxZ1lSZTBiZlVXZFkxbUs3cTZ4bXNXZGtIYlZtOVJPODFTWFYzNW8zaU5idklhdFdsRjIxWnZsM1hUTE5YVk5hRmMwcG9aTjNrOWp0cTBicWx0cStlemJ5ZUNxSlZtUzExZDZadkVHdDE5TTJyVGlyYXQzZ1pSRjgyeXU3ckd5aVd2MFRTTDJyU2liYXUzUWRTVzBGanE2bnFXVWk1MW4xZHU4aHEzYVVYYlZsK0RrSjQzQTBRQU5BTWFBR2dHTkFEUURHZ0EwbW1HaElhSUlDcW4yZW45aEFvWmc3S3d1aS9yNStvSmNtL0VmVmtuOUxUWk1xVll0cVpwZW42Rm5RaWlhcHFSZGhtcmtCSFlsbW43c3M3ZkhlaStySitFMXJ4SjIyeEwwL1Q4Q2pzUlJMVTAwOVpLVmlIakFzYzBJSFdtZjNXNE4rSk9oaUVYWmVSODdTRU5WMlIzbW05VDAzeFJXck9EVDlNdW0vRnA2bHJHckVMR0JZNzV5L1RHeUg2aXpaanFOdnFuOFlUTE9WNGx3V0I3bWlaUVA2cWxtYTVsekNwa1hPQ1l5M3VxdVJsOVFxUFpzQmZxMFV6dDhIU2d6WnZiMURTQitsSDVhQmEwejFtRmpBc2NQNlladktHWitvNXVxSGYxM0N3cWRYeFFXTk1FUktCYW1wbGF4cVJDUG9nS0hIT040dUhlMmVGMTlVbG82dnRRWDlaQXE1NEt0L3RGTlUxQUJCckltOFUxaWtzQzBybllJQnFnV1Z5anVDUkFNN0ZCU0ZjQm5ENjVDTUlDTlBQOUNqc1JoSFNhSWFFaEF2bG9sbUcvSFBBWFU3WnphZXNXUFNkU2hSOXlaZklMdFVhMWRFalRCT3BIenRFc3czNUpYeDcwbDV1c2hsckQ1TXdZYnppOU1RcXBaeXNWT0hOSjB3VHFSMUdheFdaTC9zS1NwZTNiK29iNlhuZGN0VFRUcmt5aW92ckN4V2NkMGpTeHJIOVprR1lKK3lWL1ljbFM5MjI5VUxlOW9NdnNzWHJsbUxjaGtZazFnRHR1YVpxZXo3NmRDS0lJemRMMlMvNml0U1RkdDFYMzFLU09xM1RUN1Bkc3IrQ2wwU3gwUTlQMC9BbzdFVVJPbW1YWUwva0wwOHowYmFYM2ZMcmNjWlUwekNIUlRHK2puaHBvZmhiUHpTclFOSjArdVFqQ0ltOUNZOGwrT1hwSlgwaXk3SmkrclJOdVhSTHlzS1MrdlZCUG1yeU5lZExVL1ZpcjBqU2RQcmtJd3FLR3ZOa2s4Nm16QWtBNkY0dnFhUlpudnFvR2FDWVcwbFVBUUFSQU02QUJTS2NaRWhvaWd0aFM3Vm45RURwTzd3S2ZwcmRCYkt2MkxGczIwMlpPK0RUOURXSmJ0V2ZaNU9SRzdka1hwVFU3K0RUdHN1bCttdXRxejg2NEFaZ1R0V2VCK3JHdDJyTThtcmxSZXhhb0g5dXFQYXN0bStWcnp3SWlzS1hhczlmMjJiSlp2dllzSUFMUzgyWk9QMThoQ0F2UXpQY3I3RVFRb0pudlY5aUpJRUF6MzYrd0UwRklweGtTR2lKUUQ4MnlKVTBxMnJqZkhsTlJqVVZCTTRSUDAydlVKWjB2UzVyek82TjV2OGRGYUorTnJQQ1UyZ2MrVFc5Uk44MWlTWk1OVGQzNXIvdTlpR1p1YUpwWTFyK3NtV1lKU2RPTVpuZG5idzBNelJ6Uk5EMmZmVHNSUkowMFMwdWE1R0dpZXFEaDlPWWpNNXE1b1dsNmZvV2RDS0ltbW1WSW1uVFRETGx1WTdDbjNabkg2S2U1SzBIVWxkRElralRWTTZSYW96anowT3FiNktlNUkwRkl6NXNCSWdDYUFRMEFOQU1hQUdnR05BRHBOSE42NG9zZ0xLVFRESGt6RVVGVVRyTU5WZk1oclZyWUVYWmdiNE9vZmpUYlNEV2ZuNXpmdWxqb3NBTTdzTDlCMUVpemxhbzVid2JwZkZlVzlkRnNwV3JPbXpraW5RUDFveWFhclZYTmRYMXRKNlJ6b0g3VVVLMXhJOVU4UVRQWWdmMUhEUW1OVFZSejZremRyY0lPN1BURUYwRllTTStiT1gxeUVZUUZhT2I3RlhZaUNORE05eXZzUkJEU2FRYUlnSFNhSWFFaEFsWFNiQjYxWUYwQ2QybGxURm9zV3A3ZWozcTZtZzlnQi9ZWWxZNW1uT242c2U3QmVoU3ZQYktkd0FpZjhGZXFlR3liYmRxTllBZjJGNVhUak51eFhoMU1XcnhRZzFGWGZjdDlEU2ZVenBWYnRhb3g3R3BNTTI3NVN0dWp4SEdaNCt4T2lXTW14dlRnNldEU2ZYNFEwb0xhYmZLMzRmUm4zTTZWVzdVR1hUVzQyWDZ0MU9iMWRLQTJnaDNZM3lEcUdNMkc5SGJaQWIxUzFpSFNxRy8xYU1idFhLbFZxN3FCUGgxRVBWMjVGK2YwQUhiZ2JSOUJFczNVck91WjVoWXRhRFJUMy9MY1RMZHpwVHVsV2dUVUNGMzNkSTFwQmp1d3IwSFU4YVNwYS81MzlZSy81UzZ0M000MU1CdTBmaDcxZE9XV3I3UEROdzVSNHRoYk5KZzNLOTNPRlRRVGkrWm9WcjZkSzJnbUZ0SlZBRUFFcE5QTTZZa3ZnckNRVGpNa05FUUUwYlNtYVdkb0RtbWFubDloSjRKb1hOUFV2Z0NYTkUzUHI3QVRRVFN0YVRMTjNOSTBzYXgvMmJTbWFhekJMbW1hUVAxb1hOTWttcm1sYVFMMW8zRk4wNHhtVldtYWdBZzByV21TZDNOY29hYnA5TVFYUVZoSTF6U2RQcmtJd2tLNnB1bjB5VVVRRnRKVkFLZFBMb0t3a0U0elFBU2swd3dKRFJHb2cyWmFyMnlmTC9UTTVFcEJsQlNiOStrdDJpNTdOcDlFT2loOG1oNmpqc0pUV3E4OCtUalJBSmgwelJ1amNQWVdKY2pDNlQwdGNwSm5rN0pqTDdVTUNwK210NmljWmthdm5OK2xNc2FIM1Vtc2ExSStJK2hTbGIwL2psa1dZTSttSXRQTHdYeWJ0V2RmbE5iczROTzB5MFo4bWdTclYzWVV6Y1lUK3NIb21rTzY5Vkg5eHU3c0F4WTVqOW16YWFWTnRHM2QraEVrUFdrYXZaSkhNMDB6cTJ2cTBTeWN2ZjI3Z1JZNVEvSnM4bWdXb20yckEwZVFSTE5JcnlTYVRZL0Q0ZDc3UnRmODhZRG5aK0ZRM1NyTkMyam1oYlBwQWRxMk9uQUVTVFF6ZWlVL1IvYm9oNTdWTmZsSk16U2lFNG1jZ2E1UnEzQzdYN1QyTENBQzB2Tm1nQWlBWmtBREFNMkFCaUNkWms1UGZCR0VoWFNhSWFFaElvakNOTHVzYjJadmNVUHEvV1hlcTFXTE4vc3R6djQ3cEdsNmZvV2RDS0w0YUpiUk56T2hQMGJnTHByV0pUQzlPYVprNjh1QlM1cW01MWZZaVNBcW9GbmNOMVByajJyTWFrZHFacXZETmt6amVTSnVxZjhlT2FWcFlsbi9zanpORW4wenRmNm9LQlIwbVZMOFpYcGpwRFA2bFBwWDNIclhOVTBUcUI4bGFaYnVtNm4xUnpWY1RRLzB5RVUySnZiSDJkRnNkdXVQWjY1cG1rRDlLRTZ6akw2WlduOE02QzBNVmpNZkUvMGltdkdqd3JCRC8xV25hUUlpVUNLaGtkVTNrL1RIQjMxanhleXBMYlFOOHdmUjg2U2k0L1JlV0oybTZmVEVGMEZZMUpvMyszTEVMWUdyQW1nbU5vaGFhUlpjVnU2c0dFQXpzVUZJVndHY1Bya0l3a0k2elFBUmtFNHpKRFJFb0JHYWFVbVRKYy9PZEw4OXBrbGJ5eWlXV2tpaVpBZkxsKzB4Tjl3MHRXcFBCN08zUjd4M053VE5CS09aMFV3TGwvTTdpakk5RmptZm1hS3p0dlFzNjZMczdoeVQwR25TYXJxTzdmU1kxUGNRTkJPTXhtajJjbUFxNk0xLzNlOHQwWXgxVWZaRHNkREpJb0YyZk40NjU1TGI4R211Vys2V1R6TVRXcmcwbzluZDJWdURCWnBwWFpUbFN4WTZXZkpreDJlZzdxSmRVeGtOYjJpSURhTFIwVXhOc2pxVXNKM2VmSlNtbWRaRmVUUUxTZWprMFl3ZG4yejJCTTJrQjlIYzNHeDZvRnNDRUpVQy9XclE5RmgvTmJxbzZTV2dOdU81R1RzK0w5YlF6T21UaXlBc21udlNKUGZtSHZjRVVLUjVlSFlZUFh5U0NFcTY2TFY5K29RYmJyTGt5YkxvcEhXN2IxOEJRZDVNTEtUbnpRQVJBTTJBQmdDYUFRMUFPczJjbnZnaUNBdlF6UGNyN0VRUTBtbUd2Sm1JSUVyU0xKY3BXR3ZqbisrMzFQYXdBKzlVRUdWSHMzeW1ZTkxHbi9mbTd6cGxCd2JxUjJVMDI4Z1VyTlVrYWtVSE8vQk9MYXVpcndUNVpBQUFIUU5KUkVGVTJXYW1ZUDZFTm9RZGVMZFFDYzAyTmdYemFFWWx0V0VIM2kyVXBWaytVekJwNDNSRHZZc1N4N3NWUk9tRVJnNVQ4SFdxZkd4ZXVZWWRlS2VDYUNCdlZwa3BHRFFURzBRRE5Ldk1GQXlhaVExQ3Vnb0FpQUJvQmpRQTZUUkRRa01FU3RMc2REQWtqMi8wYytUdkRVOGZHTFZ5MHRyNy9XOWl2VEl5L25ZV0RxVk5tWWtEMFFNcDUzelRzYVlCbW9sQU9acE5mL3pnNVB6V1JlSTUwaG92U2R0a3RYSjZjenc3N01aNkpXdWYya3FYUGhaL2tEalFVYWd0S291eHBnSHBYRVFRWldqR2ZsMG1GZ21ZNDdpV3NlbmR5dm45cDFvV04zcWwwVDZOTVpobHovYkhyVzZnaGpuK1lIaDFNR3lUQWJpamFhYU93WWRGMjlhMVMyL3R3T3pYWlpxUmdQbW11aVdhV3NaUjcxYkZ3b2M4SWtWNnBkWSs5V2htWmMrSG85bW4xaEZNMUp6RWV3ZnRDejRzL3o2TVptS0RLRU16OXVzeXpWakFqR3NabTk2dFBKcHBpbGk5MG1pZjJoak1lODN2bkQwNmZoYUpvcWVEUjJNV1FXazA2L2QwVDg2bm9KbndJRXFPWm9IaUE0MW1Sc0EwdFl5UGRlOVdyVmJlSEhQZmFhMVhHdTFUejdwNHJ6QzQrWVJlUnRNZmhOT2YzQ05sbE9kbTRYQTl6UUFSS0VNelZpeFpuZVM1bVpFdDZmR1NQbUViTDcxclFST3RRNjFYWG4zTkduOXB1c1Y3cVlFdWZEYXlvdWlZYnJJa2dsNjNWYWg2ZE5oT0lsWkFJRnpNbTEwbWdvSm1ZdUVpelM0VFFVRXpzWENSWnBjQjBybllJRUF6MzYrd0UwRklweGtTR2lLQ0tFU3pESGZtZ3JhcE43dDFjYm11R1M2cm1QQnBlaHRFc2RGczJaMjVxRzBTVEZMdEVsMXpXY1dFVDlOYmxLUlo3TTVjMERiNVBmK1Q4UXBkTTF4U01lSFQ5SFpaam1ZSmQrYUN0a2xtUzZMWjVicm1zb29KbjZhM0tFR3p0RHR6VWRzOGJQV2kwU3hUMTF4V01lSFQ5QmJGYUpiaHpnelQyaWFaTFRYTkx0TTFsMVZNK0RTOURhSmdRbVBKblRsS2E1dWRvTlZxUDErbGEzNy9wOHNxSm55YXZnYmhSdDVzTXlzbmFDWTJDRGRvdHBtVkV6UVRHNFFiTk5zTWtNN0ZBalFER29CMG1pR2hJUUtsNjVzdHk1dldvSm4wV0pvMnJGcXpURFZyVFJ4cFM1b21VRDlLajJaWnhXY3A0WldTeFUwNU13TFpBRkxOV3VNamJVblQ5SHoyN1VRUTFkRXNVWHlXVmsxSWs1enVYLzlValVkZExzNDRlWU1NbDBtYTZXYXROSW9OVzYvZjI1YW0rYUswWmdlZnBsM1cxclkxcS9nc3Jab2VCTlIrOWN1Um9oaVhtdjJadWgwRzNTVE45QzVQQjl6Sk1PaHRTOVAwZkNCeElvaHFhTFpRZkZhUFp2T1RNYzIwaURkNk5PdlN6VE5CTTczTHNOWHFxRHNxMFd3N21xYm5WOWlKSUVyVExLdjRySjZiS1pvOUc2bEJyV2ZtWmpSa3hhTloxS3lWYnJpQkhzMEthSnFBQ0pSUGFDekptMCtpVjJaN242dUJpZTk2SkhoT3lIaEpHNTBubTdYU1Q2UjNVbGZYQXBvbUlBSU41czBtM1ZXZkJrdjlkNVlBbW9sRmN6U0xNMkpabU82ditsUUROQk1MNlNxQTB4TmZCR0VCbXZsK2haMElRanJOa05BUUVVVGxOTXZ1c0Jscm1ETmI2a2R0RWRCVEpQcHA3a0FRMVk5bWw0aWNCRjdEVFRYSDFFcVRzMm5vcDdrTHFKRm1DeUpuYURWTWFrUEhyVFFEazh0RlAwM3ZsL1hSYkZIa2pJeVpsSzdsVnByY1ZCUDlOSGNCTmRFc1ErUzBHcVpwRVJ3K0hjU2pHZnBwZW83cWFYYVp5R2sxVEc2cXllK2RSWE16OU5QMFBZZ2FFaHBaSFRaakRmUGFQcjFJRy9EVDVkQThhYUtmcHU5QlNNK2JPWDF5RVlRRmFPYjdGWFlpQ09rMEEwUUFOQU1hZ0hTYUlhRWhBdlhTTE8zSTVCcTFsMzl1MU00aHBXT05yL04wTUh0N3hBK2ozUkEwRTR5YVI3T1Vtc242NW9yUFdlMTgzZ3VIUGVQcjFKdFBqNmZIaVZqVGdIUXVJb2lHYUJicm04RTdyWGRhdmJSdW1WUTdXWUZpZmNBMDVUelhmWUxoMDl4cG4rWnFwTlJNMGpkbmg1MUpoMGFucEc2WlZEdURycUtaNWhvVnBBM2FZN2JlRVRDYWlRMmlHWm9sOU0xSmo4cUdwblhMcE5ySlVqcVBadHlVYzM0Q21ua1FSQU0waTlSTTFqYzF6ZEs2WlZydFZBdWVtM0ZUem9zMU5BTkVvUFluellRalU1czQyKysxRm5UTEJiV1RYcDhsWHllMzY1em8rclc5T0ZaQUlLVG56UUFSQU0yQUJpQ2RaazVQZkJHRUJXam0reFYySWdqcE5FTkNRMFFRb0pudlY5aUpJTXJSTERiekxpRlYxSmlXcC9jUGpRUk9VdVY4cVE0eVNoeDdqSktqV2FLYXNVbXVtbThYaWhvenQwZ2F2Mk45d3N0MWtHRUg5aGNWMEl5c1Myb2tZc0h5S25VNDdFNldpaHByR2R6UVRPdmtTM1dRWVFmMmQxa0Z6YVlIVktiNCtRRlhLNlp5ZVB4dHFxZ3h5K0RhK1J1M2ExMm9nd3c3c0wrb1pqU2pNc1hxTmtrTG9vbjZkcUdvTWN2Z05KcjFlMVluWDZxRGpCTEgvZ1pSemR6c21lYldNMTAwbTc1ZEtHck1Ndmk1bXIwTmUxWW5YNnFERER1d3YwRlU4NlE1NHpMRlhiM2diOU5GamNlbWhySDYrYUp2dTdZdTFFRkcyOVp0SDhGWm1xM0I2cUxHdVFHYWlRMmlUcHF0TG1xY0g1RE94VUs2Q2dDSUFHZ0dOQURwTkVQZVRBVHkweXlqaHZGZ3FCNEtPd3ViM2JxSW11cnMvZjQzc1dDcEZTYVdQQ2R4NXgyVU9ONytFZHg2QkZpdVlmemc1UHpXeGQzMFZrRjdyS3NYVDIrT0tkY1JDWmE4bDVZOFB6RkgyMjZKWTgrdnNCTkJsS0ZaN1BIbGRmTytHbjZtZjNXNFI2b2s1VjExdmMrbm1rTkdzRFI3NlhxZ2gxcmIzSEtKNHhlbE5UdllnZTJ5UWp0d1JnMWpYcWVvRTd5cDdubjBac2FrUnpSakRmTWhEMCtSWUdsN3RZYlRZNjV6dlAwU3g1NFBKRTRFVVpSbTZSckd2RTdSYTNvd1BTYng4ckRWaTBZei9UNlFGU3pOWGp5YWhWVG5HQ1dPZHdFRmFKWlJ3MWlQWnVxSEx0T01WRWxOTXlLZVlvbTZRUnJCMHV4bFhrZWIzeG1WTEhFTWlFQ1JoTVpTRGVNUks1ZzhOeHZ1blIxMmdsYXIvVno3ZUZ2OFJnWXBuU3hZWG4xTjd6V21IUUo5bUZJbGpnRVJrSjQzQTBSQU9zMmNudmdpQ0F2UXpQY3I3RVFRb0pudlY5aUpJS1RUREhrekVVR1VwVm1Hd3ZsZ3lZS1pjRzJTam5tV0tud2NId2srVFc5UmVqUzdwRXRyMm9LWmNHMWFIWlBBdThSSGdrL1RXMVJIczRVdXJTa0xadXphdERvbTc2c05telNLRFZ1djM0TlAwOTlsWlRSYjdOS2FzbURHcmsydFl5WUxHNU81a3l4UVBmZzAvVVUxTk12bzBwcXlZQ1pjbTBiSHBDMzFMbVR1VkhkVW9obDhtcjRHVVpwbWwzVnBUVmt3RTY3TlNNZTBoWTNaM0tsSE0vZzBmUTJpZkVKalNlRjgwbCswWUhaaTF5YnBtT25DeCtmYTNFazJUdmcwZlEyaXdielphdGRtMEZ0N0FOQk1iQkROMFd5MWEzTzZ2OTdUQ2VsY0xLU3JBSUFJZ0daQUE1Qk9NK1ROUktCczRhbGxTZk4rUW9XTVFVM25kRi9XejlVVHBIb2FwYWxZUUUrUjhHbnVRQkNscGZNTVNUTldJU1BNKy9TWWFmcXlVcXFOaXA1eE5nMCt6VjBJb2pLYUpTUk5WaUhKR1hCKzJKM29ORm1IL1p2Y3lWQm5OcmkybnNubHdxY1pCMUw4T0w3NU5GUElralJaaFNUWEp1bExuUDAvSFV4dmpMajRyUHFFTnlTYXNWa1RQczFkQ0tJU21pMUltcXhDc211VEdjWk9KdTNmNU5Gc1NOdWxSelA0TkQxSFdacGxTWnFzUWxyWDVuRHZNZEhLMEV4OVJ6ZlV1K201R1h5YXZxTjBRbU5KMGp6VEt1U0R2aWs1MjFOYnREcmszN3grcU4yYzFPdGtxS3ZTZHVIVDNBazBrRGY3Y2hUTzc2N2ZiRDFBTTdGb2dHYkJaVzJkOGdMU3VkZ2dwS3NBVHA5Y0JHRUJtdmwraFowSVFqck5rRGNURVVTOU5HTkZzalBkcC9xTTlFUkpJZ0hWcWIxdTlFdXpTanMydGVRNUhuSnlWL3M2VHdlenQwZm0yUlI1TThHb2VUU2IzMUVzNmJHaStZd3RBT0djNjlSYS9UTGwyRFNTWnpqc0dWK25ObnRPajBsM0QwRXp3YWlmWm1IUW5mKzYzN00wMDhLQjFTL1RqazBTQ1ZpQlluMUE5K0M4ZGE2YkNzT25LWG5aekdoMmQvYldJRTB6bzErbUhKc3NYd1pkUlRQTk5WS3FndmFZclhjRWpHWmlVVGZOK3RRd1FBMVMwNXVQMGpReittWFNzY21qR1V2cFBKcHhEODc1U2UwMDgzejI3VVFRRGR3MFF4WUJnajFyejlRMDAvcGx5ckZwdXFYYlR1bmNnL05pRGMyY1Bya0l3cUwySjgwOWJuU3VlUEx3N0ZDL0tEdWtwdWhhdjJSWXgrYTFmZHFNWDhWbFh5Y0xvaE5kd3JZWHg3clozNVVEbmw5aEo0S1FuamR6K3VRaUNBdnBOQU5FQURRREdnQm9CalFBNlRSRDNrd0U2cUNaVmpKVFB5OGE2c0xUKzVFdGM3cmZlcFA2aUVWOU9aZDdiU1pqVFFONU14RkIxREthNmR5LytXRjJGQlVCalVGMlRpdHJ2aldnNXB0eFg4NnNYcHVKV05NQXpVUUVVUmZOd29BNk5BMG1yOTk0M0RLT3k5aTVxZFZLYTh2VXVkZTRMMmRXcjAzNE5OY3V2ZlpwWnNLT1pwUGIvZmI0K1lFWnpXTG5KcXVWVnRZYzlvaUFlNk9vTDJkV3IwMEdSak94UWRSRE0xWXlkYXFmaENOTnM5aTV5V3FsbFRXRGp0V2tURi9PckY2YmlWalR3Q09BQ05SMjB5U1Q4Q1JCcytseDdOeDhuOVRLY3lOclR2ZDd0RVBjbHpPcjEyWWlWa0FnYW5yUzFQVitXdTMzcUJQQUcxck1uRWZPelZTcDJSSDdPTU9YVVYvT2NMblhwbjVRQmMzRVFucmVEQkFCNlRSemV1S0xJQ3hBTTkrdnNCTkJnR2ErWDJFbmdwQk9NK1ROUkFRQm1nRU5vUGFYdEJNTldsa2R2L3h6WXdlZVVHSURkbUMvVVBOb2xyTDdjZ0hrRlorekhYaE1tam5zd0o2aElackZCWkNEZDFydnRIcnBNc1pKT3pCcjVyQURlN1pzaG1aeEFlVFpZV2ZTb2RFcFdjWTRhUWRtemJ4Uk83RG5zMjhuZ21pR1pva0N5S1J6Y3Yzc1JCbmpwQjA0Sk0wY2RtRFBnbWlBWnBIZGw5VnhUYk4wR2VPMEhYaCtad1E3c0dkQk5GQjRLbXJRcW51NnR0OXJMWlF4WHJBRDAydlpzQVA3RllUMHZCa2dBcUFaMEFCQU02QUJnR1pBQTVCT015UTBSQVJSQmMxT2pZMDNoZG10QytQbW5iVDJmditidUNlclZwQ1dMYjlvMjdydEk3aE5NMnZqVGE4TjJtUHQ1cDNlSE04T3UzRlBWcFl2c3l5L2FOdnFieENsYWNiS0kxT0NMU1hjbnBYOUlpZGo3WDk3cWpsa3pMOUd2c3l5L0tKdGE2azQvTFlEcy9Kby9aWEJtK3FlUis5V1RIcEVNM2J6UHVUaEtlckpxdVhMTE12dnR0cTJBdldqTk0xWWVXUktzTjFYOTgwOGJQV2kwVXliTEszNTE4aVhXWlpmdEczMUYxV01abVlhWnUyK1R3ZWtXR3FhRWZFVVM5UU4wcGgvalh5WlpmbEYyMVovVVpwbXJEeXlCc2x6TTJyUDJpRWo4SE10UnRMQXBKNUNiVTNqcTY5cGVYTzhiUGxGMjFhUElUMXY1dlR6RllLd0FNMTh2OEpPQkFHYStYNkZuUWdDTlBQOUNqc1JoSFNhSWFFaEF0WFNiRkhkaklzYm56N0lxM0N5bjRtZEt1bFkwd0ROUktCU21pMnJtOVlnUnlXTmN5cWNSNllhMzJLc2FZQm1JbEFoemJMVXphaTQ4ZFZCWG9YenlDUnYrVGgxYXBwWTFyK3NrR1paNnFZcGJzd2xqWE1xblB4ZDBMNHdLbW1JTnpRRUIxRWh6VExWVFZ2YzJJcVhteXVjYWpUcmsyVEZ4MG5FbWdab0ppS0lha2V6SlhYVEZEZm1rc1k1RmM2ak1CeXVwNW5USnhkQldGUklzd3gxODdvdWJreWY1RmM0ZFhtZ0hxdWtpVmczKzd0eXdQTXI3RVFRMHZObWdBaUFaa0FEQU0yQUJnQ2FBUTFBT3MyUTBCQVJSRG1helJjYXF5Wmdxc2VHckZWU1R2YjAvcUdwSVVzNnB0MHpGaTNoMDl6MkVaeWxtYTVmOW1NclFrWnJqMndxalBBSmZ5VlYwOGlVdXRCc3ZLZmRDejVOYjRPb2dHYXNSMTRkY01WUHpwRjExYmVjMkorOFFiSW1hWlZhMVRRMDA0Vm16WjYzeHRQOTY1L1NYdkJwbG9yRFo1OG1VMkY2OEhRdzZUNC9DR21oK0JYeXQrSDBaK29HR0hSWnEweW9tcmJRck40em9FS3pYNDVvTC9nMC9VVTFvOW13MWVxbzJ5UXRpQ2JxV3oyYWNUZE4waXExcXNreXBTMDBxL2VjbjR4cE9rWjd3YWZwTDZxWm16M1QzS0lGalV2cVc1NmJLYTZReDFMZEtiV3F5VEtsTFRTcjkxUTBlelpTZ3hxUFp2QnArb3BxbmpUcHprWnZLL0tDdjJWdGMwS3laR0Eyb0VhdDZ1Y0xYV2oyK3orMUw5UDJQai9rUnE3WEQrSFQ5QmExNXMxc2svS0tBT2xjYkJCMTBpek9nVlVEMEV4c0VOSlZBS2RQTG9Ld0FNMTh2OEpPQkNHZFpraG9pRUJGTkN0U2ZuWlJhOXFXcGduVWoycG9WcVQ4YkxTdzJKYW1DZFNQS21oV3JQeXNXUXl2RG9adDZwbloyWmFtaVdYOXl5cG9WcXo4Ykt4dHZpUzVnS28xYmtmVDlIejI3VVFRMWZRRktGSisxaTVPQjQvR2JHL2FscWJwK1JWMklvaUtSck1DNVdmdFl2cVRlOVJwczZDbTZmVEpSUkFXVmRDc1VQblo3Ly9VZURUcGxqcmRieFhVTkowK3VRakN3bzI4MlplamNINTM3VmFRenNYQ0Rab0ZsemtLVWdETnhNSU5tbTBHMEV3c1FET2dBVWluR1JJYUlvS29uR1lzUlFZdHExek9EdHUvdlc4cjBOSWFGaW5ibisvckIxRDAwOXlOSUtvZnpUaXIrc3dxbDBIUGxKMGxhSVBtVVRnLytZUkx6S0tmNXE0RVVTUE5XTEpraWxpYWFZUG1rYzVkUEJxam55Wjhtb1ZoYVdhVXkwbkx5a1pXeE5RaTVleURFUDAwZHdZMTBTeFdMdW0rYVdobURKcDZOTk0zU3ZUVDNBMVVUN1A1dTFwRzE1TGxwS2NyR0lUVFkydlExTFUySG5FbGQvVFQzQTNVa05DWTd1c3FzaXhaL3YxcnJiMHpya0Q3UUsrNXRzOVZnZFE5RS8wMGR3ZlM4MlpPUDE4aENBdlF6UGNyN0VRUW9KbnZWOWlKSUVBejM2K3dFMEZJcHhrU0dpSUFtZ0VOb0NLYUZhaDF2Q3lWd3c3c0xhb2F6UXJVT2w2U3ltRUg5aFpWMGl4bnJlTWxxUnpTT2FUek5TaFE2M2hKS29jZDJOc2dLaDdOOHRRNlhwTEtZUWYyTm9pSzUyWjVhaDB2U2VXd0Ezc2JSTVZQbWpscUhaOHYyMzhobmZ1S1p2Sm0xZFE2QnMzRW9oR2FWVlRyR0RRVEMra3FBQ0FDMG1ubTlNUVhRVmhJcHhrU0dpS0NhSUJtTEV0MnB2dnRNWlZrYVdtbFV1dVgrcWN3YVJRZUR5a2RhNFRRMDhIczdSRnYxZzFCTThGQk5ER2F6ZThvcXZUbS9TNFo2MHpTMWVpWHkwYmg1NzF3MkROQ3FCWkpwOGZUNDBTc2FZQm1Jb0pvaUdaaDBKMy91dCtMYVdiMHkyV2pNSWxUeHl3ZGFQbnoxcm51WFkwU3g1S1hEWTVtZDJkdkRTS2FHZjF5MlNnY2RCWE5OTmRJL2d6YVk5YXFDSGhEUXl3YW9WbWZPbE9va1dwNjgxRkVNNk5mTGhtRldWYm4wWXpsei9rSmFPWUJtcnBwaGx6MU05Z2JHYVhTNkpkWlJtSDdraHJMbnhkcmFBYUlRRE5QbW5zakd0SVVXUjVxYS9COW8yY3kwa1pocmxuRlFpaFhUcDdvTXNtOU9OWTBuSjc0SWdnTDZYa3pwMDh1Z3JBQXpYeS93azRFQVpyNWZvV2RDRUk2elFBUmtFNHpKRFJFb0N6Tkx1blhPcmFsalMvNjZnbFNDNWhYWDB0c3g2S2xHeVdPZ2ZwUmttYVg5bXVOU2hzVDVSWUV6TWk5NlVhSlk2QitsS0xaaW42dFVXbGpvbGtzWVBJbTFyMkpFc2Z3YVc2Q0ZmMWFkV2xqL1dwUExHQmU4Q2JHdlhuc1NJbGp6eC95bkFpaUZNMVc5R3NOYldsakdzMWlBWk0zc2U3TjBJMFN4NTVmWVNlQ0tEdWFYZGF2TlNwdHpEU0xCRXhMTS9OQ1dma1N4MDZmWEFSaFVZcG1sL2RyN2IzVXBZMzFrMmJVcjdYRG0xajNKa29jN3d5azU4MEFFUUROZ0FZQW1nRU5RRHJObko3NElnZ0wwTXozSyt4RUVQWFNMTU9pU2JYUFd0ZFgrRFM1UXUzR1BrMm5UeTZDc0toNU5GdTJhTTVaQTczY3B6a21vWE56bjZiVEp4ZEJXTlJQczBXTHBsWTZML1Zwc3RDNXVVOFRTeEhMWmthenBFVlQwK3hTbnlZTG5adjdOQUVScUp0bXl4Wk5RN1BMZkpvaENaMmIrelFCRVdqZ3BybGcwVFEwdTl5bnFmYUJUOU16MVA2a3VXalJISkNjT1Z2bDA2U0hVUGcwL1FvQ2VUUGZyN0FUUVlCbXZsOWhKNElBelh5L3drNEVJWjFtZ0FpQVprQURxSUZtV3NoTS9Xd2NjREZPNzBldXpPbCs2ODJUODhOSTcreGtlRGlUc1FJQ1VjZG9wbFAvNW9mWlVXZ1ZwUmprNGJTcTVsc0RheWd3ZW1lV2h6TVJLeUFRTmRFc0RPamwvOEhrOVJ1UFc4WndTWGFCODhQdWhOLy92enFJWEprNjlacFFDTEk4bkpmNk5GOHMvRnhnK2FMay92QnB4c3U2KzJrbVlVZXp5ZTErZS96OHdGQ0lySnlVeitmMFB2bVl0S281N0JFQjk4NWltbVY1T0JsNDBoUWJSQzAwWXlGVFovcnBuUjVOTTdaeU1zMTBUMDJqYWdhZHlFY1hKa2F6TU8zaFRNUzYyZCtWQTU1ZllTZUNxT3VtR1laa3Q0eHBOajIyVnM3aDN2dmNVOU9vbXRQOVhtVFgxSHBubG9jekVldG1mMWNPZUg2Rm5RaWluaWROcXVwRGhzMzNxTVA1RzFyTFpDc242NVNtcDZaMlpkS1RKamZmdEhwbm1PSGgxRStxZUFRUUMrVE5nQVlBbWdFTkFEUURHb0IwbWprOThVVVFGcUNaNzFmWWlTQUswNHlWU201SndqWTNVMnMycWhNYmc5eHY4NzU5Mkh5elQrL090aS82K21HME95OVplOWJwazRzZ0xJcVBacHhRZlRZeUhrdGRhemF1RXh1QlBabzZIL2Jqd2ZUbW1Jcml2Unh3Ym8wVFpDVnJ6enA5Y2hHRVJRVTBZNCtscmpYTGRXSmo4WktHb2c2WG0rV05XUUtnL3g2TnRlNXBTdTJWcVQyTHBZaGxlWnBwajZXdE5kdEppcGY4WlhwanBNY3NHcjBVcmQ3dHpqN1FTZ0dMbHlWcnp3SWlVSkptaWhRVE8za0tlcnBPYkN4ZWhrT3FyMzJzMVVsZFgvYldIOC9lL3QwZ1hCak5pdGVlQlVTZ09NM203K3JxeHRwanFXdk5jcDNZV0x4OFRQU0xhTWFQQ3NNTy9SZW01MllsYXM4Q0lsQWlvVEhkMXcrUDVMRnMvNzJ1TlV0MVloOUU0aVhMbFZSdTlnZlI4NlNpNC9SZUdQSTRSK0psMmRxelRrOThFWVJGclhtekwwZmgvTzc2elRZRmFDWTJpRnBwRnFSZTVTOE4wRXhzRUZBQmZML0NUZ1FoaW1hQVdQQUZsRUd6TERqeDlJa2dMRllIQVpxVkFvS3c4SlZtZ0NDQVprQURBTTJBQmdDYUFRMUFLczFNbDRydGd2dGxiQlZ6KzVMbzlvTlllVEtFMHN3WWg3ZU1UN1lkUU9KRmhHMEhzZnBrQ0tXWkxZT3dWWEJSbVMwamVxMXEyMEdzUGhsQ2FjYnZSVzQ3Q0M0cXMrVVlvcGRFdHgzRTZwTWhsR1piL3dkczhIVGJkMjVuUnJOdzVja1FTck90VDBjMHpQbmRjZ1JiUHhtbTFjaUtreUdVWnJxeXk1WVJWUHF5VXpIWWwwUzNIc1Rxa3lHVlpvQW9nR1pBQXdETmdBWUFtZ0VOQURRREdnQm9CalNBbmFIWloxZXV2UEx2ZnJXdzhwdC8rcXV2LzRKWG1rVUtXZXVpbFYvOStSOHUyMlE5bG5jcmVDQ081Qjk4L2NNcnI2cHYvdFZIL09PZmZaUU1NL1ZURHFoVDg3OFZEbWtKdTBLekQ3L3poL0N6YnkyZXR3LzFtaVg2cFQ3TnhOYy8vTTRmMW15eWdPaVhYUExiTnRvM0E0cnZuNzN5aFlybUM2SmErTTB2dnYxUi9LSDVLVWVZRm1xWEV0UmZ4STdRN0t2L21zNll2aEFKcUgreXRMamtuNjM1OUpJajhtaTJjcE0wb2w5U1lKQllzY3MzLyt5amtHbjI5Vi9xRlYvL0tFRXo4MU9PTUtQanFsMisvb2QveUx2YkpkZ1JtbjMySFhQQzZONnB6djMvZm9YKytWKzV3djlrMWZKVitwZWIrRXpkaHI3OUVWK2NiMzV4NWJ0cVRQZzN0T0xySC8zTnQvN2xYL3lLUC96cXovLzZ5bmY1WW54NGhROU9PNnI5K1VmYThILzU4Mzk5NVR2LzRjcDMvdU1Qdi8yUkdocjRsOUNPR2I4dDVOdmFWMmFIUDlnam1TMys1bHYvczkzWGJQNlordGIrMmkrK3F5ai9QWFhUL1BlR1hlWVArSXRmcWNpdmZQdmY4RS9mL05OL3lURi9qOGEyeEpHaTQxMTU1V3U3d1lmUnFWRi95K0sveTZMWU1acXBNZWlyNy8zM2lqbDBXZi9zSXpYSUtRYjhQOFNWYi8wcStkbG5yeWdDNlRHQXhvUC93aXYrOWhmcXNxc04rY092dnZmcU43OTRWWDN6aFZyM2lxYWp1dDZ2MG8vL25kcFEvYXd1M1hkcDl2Y2pJaXo5RXQ0eDQ3ZUZkSS82Vzd2RDM1b2oyUzFlQ2UyK2Y2czNWOHo2OEJYemE5VjYvUmQrOVkvTm42cU9vYmFoTVBtWDgwODZYblB6alk5a2pzZS82Rld6QVI5WG41cjQ0S1d4WXpTajgvYmhLL3JDcSs4MWw0aE8rdWZvTTJMTnErWldvNjdtMy8yQlZ4RGo3SWQwMDJUYXFLRkEwY0xjbmo1N2hYK2s3L1dCRkJYTk4yWm9mRFhydCttSGtjUU9mQ1M3UlJqdHF6ZmhNY2IrV3NPRWIvNG5SWlZ2bVg4Vyt0ZDlFWE9jRHZCWmRGK05qeFNkQ1BvajlRWjhYSDFxUUxPODBIT3pyLzdGWjkrbGMzY0p6UktmZmFFR0YwdXpyLzdzLy9nWElhOHdsNXkvajJsbWJpeVdISythN3pOb0ZoMTE0YmVGMlRTelc0VFJ2a21hbVY5cm1LREdxUTlmL2NMUTNmeFpOQ3JHdjF3ZFdEOUpKSTVrVGdUL0lyTUJIeGMwS3doNjBsUXpXa1czNk94K29XWmZ2L2oydjQxb2x2enNRM05IalBibEZlYVM4L2VLWnZwdXBLNHRqeEowODlOM3RLLy9jcEZtWC8rUWZrOFlIWFhodDRVTE5OTkhpcmJRTThCWEk4YnlmTi8rV3FZVzN6SVhhZmJGSzhtZjFKWjZNcGM4a3Y2cWY1SFpnSStyVDgxSG1Kdmx4b2RYYU41TTk0UlgxZmZmL1V5ZFVyWHF5cXY2RzE0a1B2c1BWNzcxMzN6N2I4eDFvV3Y0QmEzNFI3eVIvdkRmL29LMjFudHowa0ROb2ZXMCtZcWVScXNEcWNXLzV1Kys5ZC9TazhLcmZKQ1Bsbi9iSHlpdTcveTEzZUUvbWlPWkxZamtadDkvWkFQLzFxOUM4MnZwU1ZNL0VwcWJwajZrT3N6Ly9UMDFzNDkrK2tNMG9VOGM2YS8xOGZnWGhXYUREL1h6QmEzQ2s2WjdTQ2NTbWp1U1RzQm00TDhvMHYxZGdpZHErcmI2U0lzYkZFaURYQWJRckNwc2kyYmhWLzhnY3pVbnZuNlpXTEdVTlZ6RTRnWlFBZHlEbW5CL3A1cGJURlZIK2tKUEV3dys1T2ZTRlZpN1FSbUFaa0FEQU0yQUJnQ2FBUTBBTkFNYUFHZ0dOSUQvSHpleGVGZXlKS1BuQUFBQUFFbEZUa1N1UW1DQ1wiIC8+XG5cbjwhLS0gcm5iLXBsb3QtZW5kIC0tPlxuIn0= -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAASACAMAAABiP3EdAAABxVBMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojm6Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/WsD/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///+mpa+LAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO29j58b17UfRv+o+9qXClwaNPycvFRrytRKWMllo31eE05eX+MmzxDVlSmThJq8NhGWMmlV7hJK0sZD8lnZRVgFlFALwvy9vefce+cHMAtgfuKei+/3I+3sDmZmz858eefO+c73nCshANSOK9sOANgFgGZAAwDNgAYAmgENQAbN/itALPgCCqHZtgMAikI6zV6UP2z5QyCIdUcAzXy/wk4EAZr5foWdCEI6zf5fwDVcfuny0Gx22GqPg9beKJz+eEA/tn97n1YtbHb6oN9qta4Owklr7/e/OVTfhPO+2UkdotXqLOzAR0v+llarG87eHoFmwlANzcLZLUWpZ+ryf/k/dsMw6Cl+8KpF0tDKl4PpzfHssDt7V7Hq//sf7E7zO6N5v5fegz9I/JYj2iojVtDMcVRNs08magyj//UqNVq12ueH3cnVgfruKtHs5SB8ymPU7NdqWPrj/2p3IgIFXb19++NWN1DDHH8wvDoYqnVqrNM0U8eY/tWh+pSTZi9e8L3/RWK57XMKLCF1fcyyBM1mn/ItbUL3NqZZ0FPcmXTD00FAX9R9T90qH/KINPtg2Jv/nw/tTno0s9s/HM0+NR8wNSfx3kH7Qt1pTweJfxJpbPucAkvI4kxRminGTNTsiW98QU/TTLFhesAcOaVRTI9mmiKzD6Y3/9P/Fe2kxjE1N+Pt53fOHh0/i452OnikxjQ11aPRrN+bn4ynx2ZEBM1koCKazd8dMNX+qO6YnXDSCydd+nF6HKifuooVw733u2ocOqeVB2puRht8MH/3Z2NFM72TnnXx9mFw80lfzcr0B+H0J/fokDw3C4fraeb0YzyCsCiS0Jjut3j61aNh5+9fa+2dHfJDJc21xvSI2KMvt+lJU20zoYnWYas36Qatq6/xTtf26UGV53JjNdCpO7A92piGSXX81nU6ZHs8afWG6vCdRKyb/V054PkVdiIIF/NmX6rJ292M9aCZ2CBcpFnA+bZlQDoXCxdpdhlAM7EAzYAGIJ1m2356dxWNX5zVKEyzHNJmhz4c6AdU+tqFplk78l/Q0M1HgBzSJn84vTEKZ28N/jRWK6Bp1o0CF9Rxmq2XNvnDgFhEX6b3oGnWjsXztNHyP+fcfnn5ny9ZX55ma6VNtZI+HNLoNemEw1YHmmbtKHBBHR7NNpM2+cNoNGOOQdOsFwUuaJ0oTrMc0iZ/SFN8mp+F4aNxdZomIAIlEhobS5udl6/xEyk/aQ71+qo0TUAEXMyb5dE0ARFwkWZ5NE2nBWMEYeEizS4DaCY2CNDM9yvsRBDSabbtxEED2PDs+EOzDB1zMEzJk7NI1oRPsypsdm3cRr7RbFnHfHByfuvi7sIWIXyaFWLDa+M0CtIs1jF5HWfAWHyMZE34NKtCGY3RlWUxmiV0TF5H6uSbLD4aaQk+zeqw4bVxGgVoltYxeR2rk6wKRbImfJpVYcNr488jQJaOqUczI2Nqmk2PA/g0EUQSORMaSzrmSH3T1XMzEh+va1kTPk0EkYKLeTP4NL0LwkWawafpHVyk2WUAzcQCNAMagHSabTvbUAqNn8GtoQmarbJ00po5q5/3Y90z3ktrm71krGlsmymlkPg78AhQHissnbxGq5+x7pnYi/JnE6PGg2arAJpdauk0a7ReYHXPoHX1Qb/9XjemGaXNfNQ0E3/Hi4W/K//yRXnt0UWfZg5caum0Sibrl5HuGU56s1u/saPZYfTKEEazVcBodqml06wxo5nRPUkysCoWjWYkVyViTWPbTCmFes+6S2iEZpdaOs0a/uHA6p4PR5Pe9ODUyKPqphl0k7ECAtFMQuMSS+cDveb7PyX18+dG99x7v6XW3O5f29fPn63uvK9FAdBMLKTnzQARkE4zpye+CMICNPP9CjsRBGjm+xV2IgjpNNt2TsKi7N8GmlkUrTZLMuVGzkzJmuYmJ3CHkWc0K1htlt/838SZKVnT3OgE7i4K0SxntVlDs7XOTMma5mJcWBbWNItWm41Hs9XOTMma5kYncHeRm2YFqs0yzTZwZkrWNMteBzwCRChabdbeNNc5M4tomk6fXARhkSuhUazaLG18vlG12QKaptMnF0FYuJE3u8yZmQZoJjYIN2h2mTMzDUjnYuEGzTYDaCYWoBnQAKTTzL3UBJCBXDSj4nbt3w6mx0ufpORJq3Ze9FvX9rVQSa/HCtE0NzsVKTg9+3YiiDw0U7TgcrP97tJHKXkyUjvV/1aolKNpbnQq0nD6CjsRxOY0Y7mSrzhXgw3op9dvPH6DK8OSPDljVZPWWbWTaGaESjma5lb8jfBpWrBcyVrl9AZXg53c7nNlWPWBlidJblIE0YLmTNfBs0KlHE1zg1OxCKcHEieC2Jxmp6YqtrolcvVPTtoTtaYHRp5kskz4RqjVThrNjFApR9PMe2aBDZBrNAvaz3u2yCwpj5pm6gMtT7Kq+bgbq51MMy1U1qVpAiKwOc1Ys2StkqvBBuqW+N7eSA1J9ETZM8IllYodvdRqp37S1EKlQj2aJiACZfNmk+WnzgIormkCIlCSZnGaqxSKa5pOT3wRhIV0FcDpk4sgLEAz36+wE0GAZr5fYSeCkE4z5MlEoF6aZTiIH5h6xiSlT/fb45CzHSySb0c6r+lPB5KoeTS7xEH8cqDFpzmlaZ+ZJpxbks7r+tOBBJqiWcpB/HJg7cG/7vdimm1HOm/EDrvry4ZolnQQcz1jM5rdnb01iGi2Henc99m3E0E0QbMlB/HLgbEHz++G05uPIpptRTr3/Qo7EUTNNLvMQXygpXRSmALdIH16DDuwv0HUndBYchA/6Zt6xntc8UAx6KE2Fd+HHdjfIKTnzQARAM2ABgCaAQ0ANAMagHSaFUhgLMLz2bcTQVROs3U9WrXj6YKly4CeIlvmlcamNM2lQ3h+hZ0IovrRbG2P1qNwfjKmvNn0wFQQfcn5ioY0zaVDeH6FnQiiRppd1qP1iJKyrGmabO3LwZw1zGY0zSXN7UVpzQ52YLtsrm3rBj1aO5pmTweU5dctW0nDbEbTrPBPBTZFTTRb1aM1YzRjh1RDmmaFfyqwKaqn2doerUe8VXJuNj1gDRN2YG9RQ0JjdY/Wa/ukY2oj8NA8abZu91nDhB3YV0jPmzn9fIUgLEAz36+wE0GAZr5fYSeCAM18v8JOBCGdZshliEDtNFuncSY2rF3TrO+vBFaj/tFsncYZb1i7plnjXwmsRIM0u0zjpFFs2Hr9Xv2aZvP+RCzDmjTNRazTOJ8OJlT1OOjVr2lmB+j57NuJIBqi2QqNc9hqdU4HTLO6Nc3sAD2/wk4EUT/N1mmcdD8N9GgGn6avQTSQ0FitcVJh5A49T/4cPk1/g3Ambxb01m4C6VwsXKHZdH99rWTQTCxcodkmAM3EAjQDGoB0mpVKZWh4Pvt2IohcNNusbat6qOzwdvoZk752WZrcYtvWVX+V51fYiSDy0GzTtq2zW2OWLqc3RuHsrcGfxmrFltu2rvqzPL/CTgSxOc02b9t6dmvM23Falb5M74Vbbtu6SnN7UVqzg0/TLpts20r8oO2GNHopjgyp/Od227Zu8PcBNWJzmm3etlXzI+hFoxlzbKttWys5V0Bh5BrNNmzbqvjB0iVN8Wl+FoaPxmjbutPYnGYbt219op40eTvzpDlUa2eHaNu6yyibN9t221ann68QhEVJmqFtK4LY5AjSVQCnTy6CsADNfL/CTgQhnWbIYYhAlTQjMTPzA/aaJNVJs4owae39/p6WPavVNCv5k4BqUOloZo1xuoRZ+qOjhDqZ+Hx6k0Qqlj0r1jSr+ZOASlA1zVjvnOixafL6jfffab3TIicTrWJ1krXQFgmWnER7ah4wp/eq7qdZViPEssJlxTQjjfN08PyA3Jdv9tvnh51JZ3octMdqlVUnJz31g1rFAudDPXiR7Fmxprlx1J7Pvp0IovLRjISo6QG7L0mL6pE2NT8Zq1VanSTFUv2gVrHAeWpGs/mdUcWa5sZRe36FnQiiLpqR+3KJZqROasWSaMYCJ3GIlYRHY/g0/Q2i6idN1jvVpJ7udSRvtt9rtfYek6j5hlYn/0mLxM/upNXTAueE3twwsid8mr4GIT1vBogAaAY0ANAMaACgGdAApNOsAgXA89m3E0G4oWmqzyrVNHOF7fkVdiIINzTNZyNFuwo1zVxRe36FnQjCFU2TDHTVaZq5NLcXpTU7+DTtspF+msU1Ta0CVKZpVvPnAJXBFU1z0quyn2Y1fw5QGRzRNOm+CJ+mv3BD0wxaRWvPAiIgPW/m9PMVgrAAzXy/wk4EAZr5foWdCAI08/0KOxGEdJoBIiCdZkiaicAKmmU0XC1U4pjU8CZLHG/6pwPNYdVoltFwtUiJY64722CJ403+bKBZbESzuOFqoRLHhmZNlTjOK/lCOt+udJ7RcLVQieN4NGukxHHm37ICnj/kORHEWpqlG66GRUocM82aK3Fc1alp8gi+B7GKZhkNVydFShzbm2YdJY6dPrkIwmJlQmOp4eqoSIlj8xFKHO8wpJc4BkRAeoljQASkqwCACEinmdMTXwRhIZ1mSGiICKJymmUoofdZnQy1iMkiJT15cq6XHkvNvGxrmqbnV9iJIKofzTKUUGsT5jWzo3B+8oj8v+EnZvOXPP3flqbp+RV2IogaaRYroZZmvGZ2pHMX3NF6rMWmOWuYW9I0sax/WR/NEkqooZkRMY1I+Wj8pzEL7nTPZA1zS5omUD9qollaCTU002vMaMb6EmmjNJpxmndbmiZQP6qnWYYSqtVJs0bXaeEbIdfPps8OWMOEHdhb1JDQWFJCz+hpUc23eM21fXrGJP9vL9DbKdzus4aJEse+BiE9b+b0yUUQFqCZ71fYiSBAM9+vsBNBSKcZIALSaYaEhgg04NPUPVnh09xlNODT5J6s8GnuNJrwaVJPVvg0Vy9flNw/hE+TerLCp7nTQTTh09Qcg09zh4NowqdJb2PAp7nTQTTg0zQ9WeHT3GHApwk0APg0gQYgXQUAREA6zZye+CIIC+k0q0AB8PwKOxFE8zRLKJn8/BA1cGXMkp7OBYBmYoNonmaxkjlfEkepuWvS05kGaCY2iOZpxkpmwO1cJ6/v75HnhF7OiPq9pjydh5x3e/3epppmaW0Ry1qWjdOMlcyZbueqmDTpBtQiePKm7fea8nSqD0gCDfSrHTWNZkD9aJxmRv7kPpssiM5PxtTj1TbiTHk66YPTAWgmHo3TzAqkhmZBV9GMXjZK0izydNIHwcrRDBCBhmlmlMzv/9S0c20pxrHiafu9vpH0dJJK2qH3Zy+nmdMTXwRhISJvtmI0c/rkIggLCTSb7mvhFDQTG4QEmlmAZmKDkE4zQASk0wz5DBHYnGZFbZtR+dmLfuvavvViBrXUns31pwPNIcdoVtS2GZWfJVnJeDGnB2Q/qbz27KZ/NdAwitAsp23zsS0/SzSzXkyurld57dlCmtuL0podfJp2WcSnuYCitk1dfpbrtI+tF/PpIJweV197dpM/YwmeP+Q5EURemhWwbYa2/CyNZsaLyaNZWHnt2TxnJILnV9iJIHLQrKhtMyo/yzTTXkw9N6ug9qzTJxdBWORJaBSzbfJGZ/ZJ03gxR0N1I62i9iwgAhXnzaqxbV4C0EwsqqVZRbbNSwCaiYV0FQAQAek0c3riiyAspNMMCQ0RQZSh2akfmqbnV9iJIErQzBdN0/Mr7EQQhWk275OK6YOmiWX9y8I0C0hK8kLTBOpHYZopZj2le518TROoH2VGs6D9fOuaJiAChWnG9snta5pOT3wRhIV0TdPpk4sgLKRrmk6fXARhIV0FcPrkIggL6TQDREA6zZDMEAHQDGgA9duBs7q4UsOJqqXzfH830CgasANndXGtQTrf9C9eguezbyeCaMAOnNXFtQbpvLC0+6K0NAw7sF1u0Q6c1cW1Bul8kz8hE54PJE4E0YAdOKuLaw3SeZ6zkYLnV9iJIBqwA2d1cYV0vluo3w6c1cU1DGEH3ilIl84BEZAunQMiIF0FcHriiyAsQDPfr7ATQUinWQVak+dX2IkgitMsQ+O8b3uuJnD6YEHT1PO3yjXNAn+BgedX2IkgSoxmGRqnbYYZQ69MapqULAur1zSL/AVAU6iCZrHGqZkx71PSjBRN9gzPFjRNoln1mubCeiydWlZAs4TGaXUlxSaWmtgzvKhpEs2q1zSL/AVAUyhLs7TGqZmhbofTA6YZe4YXNc1oNAur1DSL/AVAUyhBswyNU8uQQUcrncO998kzfL6gacZzM5Q43pUgyiQ0ljTOM+65Sqv4Zsj9WFu3FzRN2nhcmabp9MlFEBbS82ZOn1wEYQGa+X6FnQhCOs0AEQDNgAYgnWZIaIhAjTQ7vc8VGs/TAlRWweMnVuacJxRO9V035MRvOtY0QDMRqI9mpGYehfOTjxNqOiXBMgoex6m0hMJ5xGuXY00D0rmIIOqimVYzj+Z3FdG0vqnGp+5E/ZdR8Dghc8YK55FJ3rINtE5N80VpzQ4+TbuswKeZC1rNJD1yfjLW+mYvDJ8fhFkFj2OZM6Fw8ncBWz9PdakEjGZig6iLZlrN1KOZphlp4urGGGYUPF4YzbTCqUazfk/tzP68RKxpgGYigqhxNAva50fqO82U4d77PaZZVsHj9NzMKJxq3+F6mgEiUBfN6Lb480P9imzP6pud2WH3koLHWuZMKZx0W52Q0/PssJOIFRAI6XkzQARAM6ABSKeZ0xNfBGEBmvl+hZ0IQjrNKhCaPL/CTgSRi2Ybl5812uScnibVM2TQYnQWDpdq7lrGp7lZ9JfB8yvsRBD5RrONy89y/ou1yzl99mw0vzOa93vpjVIVasv4NDeMHtgaCtJsXflZ3pDTsPNfK3YxzcKgqx2c7Y9b3UANWnyQ4dXBkEuhdYr7NKvzE2JZz7IYzdaWn+UNpwdEs7uztwZ2NLMOzoej2afmICwvsRpV3Ke5YfTA1lCAZpuUn02MZnfD6c1HI5qtdbSDc37n7NHxs+ggp4NHY3Y7Ffdplj4LQM3IR7ONy88m5mZ3FQ/3RvrdMXZwhsHNJzRh0wcJpz+5R0dShIJP09sgciY0Ni8/a540f9CnG+vDs0N6PuXqGurp8QOarJmDjGl0VIdtXT+ET9PbIKrPmxUpP/vlKKRRbw1AM7FBVE6zQuVnA+MAWA3QTGwQ0lUAQARAM6ABSKcZEhoikJtmWbrmcFmwpFewlx2ZV19LbueIpgnUj/yj2bKu+eDk/NbFwoNi0B5nOTJtcVp6098VTdPz2bcTQZSgWaxr8jrOiUXiJvmZMhyZ1nfJMpUjmuaL0podfJp2WZ1PM0vXpHWkV75pTJUTsiRlOTJnt7Tvkgybrmiang8kTgRRkGYLuiatY70yEjeJZhmOTBrNaJMp+4Ld0DQ9v8JOBJGfZhm6ph7NOklxk26aGY7MJM0q0TQBESiQ0FjWNbmSLM/NInHzeauX4cikJ03eZHb4ZjWaJiACbuTNimuagAi4QbPimiYgAm7QbDNAOhcbBGjm+xV2IgjpNENCQ0QQZWi2Xt6cRQ02qa0mT8Amrb3f/yaWL7WumdVdM0ft2ULRR/D8CjsRRKnRbL28aTVMo26+HExvjmeH3Vi+5D0zu2vmqD1bLHqgOVRDs0vlzajB5lXTak5XxIuKzuo9M7tr5qg9W95HiGW9y0podrm8aZocmkK06nb4kAeoSL7Ue2Z218xRe7ZY9EBzKE+z1fKmbbBpG2dqxkRFZ/Wemd01c9SeLRY90BxK0Wy9vGkabJq2mkS+m2O6Qdqis3rPzO6am9WedXriiyAsyiU01smb13WDTdNWk0euCb1ZdhhJnFrXzOyuuVHtWadPLoKwkJ43c/rkIggL0Mz3K+xEENJpBogAaAY0AOk0Qz5DBEAzoAHUSLPN27aOyknnJeP0fPbtRBD10SxH29aS0nnJQD2/wk4EURfNcrVtLSmdl5R2X5SWhmEHtkun27aWlM5Lhur5QOJEEHXRLFfb1pLSeeXBA1WjxtFs87atJaRzQATqolnetq1FpXNABKTnzQARkE4zpye+CMICNPP9CjsRBGjm+xV2IgjpNEPeTEQQ9dAswyh83zqDaY1Jzy6omEVLHFccPFA9ahrNMvq7Wmcwr2G1c7ygYhYtcVx18EDlqJtmsVHY0ozXsD6wqGIWLXFcWsvDsu5lzTRLGIUNzUxhY1I7F1XMoiWOqw4eqBx10ixtFDY002t4NAsXVMyiJY5Lxur57NuJIGqiWYZRWDuDzRpuP7GoYqJtq7dB1JXQWDIKn7Ez+IFec22f1M4lFRNtW30NQnrezOmTiyAspNMMEAHQDGgAoBnQAKTTDHkzEaiOZlTEuLO40uZks8yZlbVtLRm457NvJ4KojGYJ1TKBQMuRWebM6tq2lozc8yvsRBAV0cwWMQ7eab3T6k3eONw7Y3MmWUb2r3+aZc6srm1rSc3tRWnNDj5Nu6zZp6ltmbfODzuTzvRnVK6gy645RbOngy9HWebM6tq2lozd84HEiSAqopktYjzpUdFZxZrpgaWZmW0tmTOra9taNnigdlQ3mnER44hmQZfNmU9Oxs9GinIZ5ky0bd0hVEQzU8T4B2pO1WrtPeabI5kzJ63e54eXdXBF29adQS15s0l3/TYpoG2r56iDZnHua1MUb9vq9MQXQVhIVwGcPrkIwgI08/0KOxGEdJohbyYiiMpppivO9hZXT49NPdn25+oJcu8JT98CeoqET3MHUDXNdMXZSXtB3Zz36eGT3ZnPe2QUoLqyXNYMPs1dQLU0MxVnKe1K7cGiorOtjm7iqv1MlO8gmgUmaQufpvfLamkWV5zl1q1a1+Qv0xsj+wk7N4lmXHIWPs1dQLU0MxVnSYXk1q3MMM716+6aPJoNaaqVHs3g0/Q8iMpHM644S0vTunW495hoZWimvqMb6t303Aw+Td+DqJZmtuLsvE+OTKNrkmDZMU1cuaUrtS9hNXNonjTh0/Q9iAbyZpsJlhsANBMbRAM020yw3ACQzsVCugoAiABoBjQA6TRD3kwEytCM8q3t3w5IrlxA0oGpniU7vJ2uEkRfuRrQcgdN+DS9DaIEzRSXyH/5oL/8rmzKgUm+OvJpTm+Mwtlbgz+NqXthVgdN+DS9DaIwzVi+ZAKwXEm1yiav33j8Bje//ISrfZKgqdad3RrzdpxlpS/Te2FmB034NOHTXATLl+y/ZLlS3QFv97n5pfpAOzBJaVJ8ocGLt2ORSVFm2OqEmR004dP0NojCNGP5MuS6BawjsS8pZIemcWBa3VzTJehFo9n8TnYHTfg0vUWZ0SxoP+9p4fLpgIRITTP1gXZgakGT6cI+TXouoPlZGD4aZ3bQhE/TWxSmGcuV5L8cccPLoNVqv7c3UuMYmTHZgUmFMXpDepbs8HbmSXPIT46ZHTTh0/QVFefNcjs08wA0E4uq357N69DMA0jnYoOQrgI4fXIRhAVo5vsVdiII6TRD3kxEEOVplt07Uz1xni/UCOUHTUqKzXUeFz7N3UEFo1lW70wyZH6cMGuqFUbSnB6w2gSf5k6hSpolemeShWl+Evk0u5NW14gA5AX+4xg+zd1aVkizZO9MEiLnJ2PWmxSbwucHkaSpmPUBfJo7hqpottA7U49mmmZEHHV/tJLm7O3fDeDT3LEgKqBZVu9MMmRSsXaSNd/vMc0iSXNIt1X4NHcqiCoSGlm9M/nd2B4Ln3Tbmx12jaRpBCn4NHcqCOl5M6dPLoKwkE4zQARAM6ABgGZAA5BOM+TNRGAFzTLEyo2MmVndM+lxcqnbJvpp7kwQq0azDLFyI2NmVvfM+Z3RvN9bsRN8mls/wrZpFouVGxkzH2d0z+Ssf1cXpG1/3OoGai/004RPM8wUKzcyZmZ1z9SjmS1I+3A0+xT9NHcoiLU0S4uV4SbGzDCjeyZNzzq6IO38ztmj42fop7lLWEWzDLFysokxM6t7Jt00Q12QNgxuPqHpXSX9NEEzEViZ0FgSK0ebGDNHGd0zFWgKR3Mzxb4P1K3YHhb9NHcBZfNm1Rgz0U/Tc5SkWUXGTPTT9DwI6SqA0ycXQViAZr5fYSeCAM18v8JOBCGdZshniMAamuWRz01f1u5iTWN6TOBPapLON/5bga1h3WiWQz4PdV9WroyXrGnM9pIapfON/k5gq9iYZuvkcy2BW5qlahobmtUlnbtgd8Vy9XJTmq2Vz1kCt97edE3jeDSrRTq/NPYN4fns24kgNqLZRvI5SeB00+z3FmsaM83qk86LnhILz6+wE0Gso9nm8jlJ4GQDHvYWaxrbm2Yd0rnTJxdBWKxNaGwon/OYp98xu1ioaWxU9Xqkc6dPLoKwqCJvVl4+h3TuOaqooVFePi8unQMiIF0FAEQANAMagHSaIaEhIohqaXZ6PyFBxiAB1NYynrT2fv+bWL5kXXOeVfCY5NGQc8LpWNMAzUQEUSnNdHHjSaK0MWPOAqiuZTy9SX7OWL7UumZWweMjk2tbjDUN0ExEEBXSjBu5aglSa5emvnGrwwKorv75VHPIyJdGKs0seGzlUd65Tk3zRWnNDnZgu6y8besyuJGrliCtdnmq1UoWQLXe+ZAHqEi+NFJpVsFj/i5gxfRUJzvwhoZYVEgzbuSqJUjWLplhnOjXAiiPZpoxVr60umZWwWOWR3X92qegmXBUO5oF9CoQLTta9hzuPabnAUszqmWsSEgl27V8aXXNrILHLI+upRkgAhXSjKZhP9cS5APSLrm+MamVHRJAf8DFp3o0fnVmRr68+prRNTMLHpNSOiF/8dlhJxErIBB15802Uys3A6RzsUHUTbPN1MrNAJqJDUK6CuD0yUUQFqCZ71fYiSCk0wwJDRFokGbaeBlqf6ZWL+8nV5n6jkPO77b4VcnTwextrsDHP4JmYtHkaDYz7YJZx9TqZXoVNXt93guHPc6hWb/w9Nh4j0EzsdgGzVjH1Pn+9Nz9ntUAACAASURBVCpqj8iaEysCWiO9da7f1YBPU/JyCzQz/szI0plc1WGP1LHmGvd8bY8nXWM2wBsaYoPYAs20jpkazcwqGs2YfjyasUbKvV9BM+lBNE0zNc3SOqZWL9OrjvRmR1rfZI30Yg3NnD65CMKi2SfNFpXHYB3z+z8l9fLnyVXX9ul5kssPkb7J2/cmrdt9+0IuaCY2COl5M0AEQDOgAYBmQAMAzYAGIJ1mSGiICMIJn6aWMNUnT+DT9DMIJ3yaWsL8JNqIdoJP06cgnPBpalPToVU64dOET/NyFPdpsoT5pzF3GIZP00c44dPk0UytthvBp+kbnPBpmtfL9E0SPk0P4YpPU1FT17iFT9NHwKfp+0OeE0HAp+n7FXYiCOkqgNMnF0FYgGa+X2EngpBOMyQ0RKBxmq1za6YAn6YnaH40W+fWTAA+TV+wPZpd6tak1zeGrdfvwafpz3JrNLvUrfl0wFYm7pMIn6YnQWyNZpe6NYetVud0oGgGn6Y/QWyHZqvcmtTxOjCjGXyangSxjSfNlW5Nar3ZYTkUPk1/gnA2bxYsveoN6VwuXKXZdH+5SSdoJhau0iwLoJlYgGZAA5BOswpEAM9n304E0RTNZpm65ayC2rOlQ/P8CjsRRGOjWbZuWUHt2dKReX6FnQiicZqldcsKas+W1txelNbs4NO0ywZ8mquRrVtWUHu2/tCB0miaZgu6ZQW1Z+sPHSiNRmm2rFuWrj0LmolAg0+aGbpl+dqzgAhsNW+WoVuuAqRzsUFsk2ZZuuUqgGZig5CuAjh9chGEBWjm+xV2IgjpNANEQDrNkNAQgW3RjEVzTl6wcDk7bP/2QVTf+BKAZmKxtdGM8//PbJHjoEflkaP6xonNjuLvQTOx2D7NWDXn6tvaTTe8Ohi2zw+vDri28aTVne5f/3RFiWNI55DOL4elmVbNw4lO+2tv8MvB08HkTa5t/PwgfDr4UqfX8CKQ2CC2S7OoyHEYaoGT7pmng0dj0ta56Oz0QLepiGNNAzQTEcTWaDZ/V7vNtWo+4c4A7A0Opz+5x3dTS7NnI/UljjUNp08ugrDYXkJjuq9rGrOW/vevmU46NLI91K+ecW3j2WH380PTngd5M7GQnjcDRAA0AxoAaAY0AOk0c3riiyAspNMMCQ0RQZSnWYY6yc1b2+e30n01+dGS+ujM+7TDcqPWqJdrfFz9cncvGWsaoJmIICoYzbLUSTL2fpxo30o2khujcPYWJcLC6b3MRq1RL9fEccNEH1jQTGwQVdIsoU6SFW5+EnVu7U5a3YDsSUGX0rJ/HGc2ajW9XAMyodDPEc2oM1h9miaW9S8rpFlaneyEbLEkI5y65z0/CId066OEf3f2QXajVtvLNZz0+GdNM+4Dy8AbGmJRFc0W1Ek9mmmaEXHUTdKMZuHs7d8Nshu1ml6uNH3jn81oRi04E7GmAZqJQAU0y1In6S0x3XJ1uPd+j2lGDwg0PwuH7XF2o1bTy/XhaNLjn9kqPDvSBA2RNxOMKhIaS+rk2aF+juzZUsUkTerNwlAPY5mNWrmX6977rdb3f2oat1KjHeoDO4hjTcPpiS+CsJCeN3P65CIIC9DM9yvsRBCgme9X2IkgpNMMEAHpNENCQwSK0uz0QT9Km0awtRe1rNm+6Leu7Wuhkh4nl7ZPd2ndmqYJ1I+CNDOuygUEWnyMTJfqfytUzu+M5v2FOlMLXVq3pWkC9aMQzUzx4XHwTuudVm/yxuHeGauXlJDdv/6pNV0yzYxQqWhGgmafSui1P251AzVosQZqbJlqrNuWpvmitGYHn6ZdVurT5OLDVOO6M+lMf6Zuc0GXZSVFMzZVGlmTqvxboVKPZkEv5E0fjmaf2rrGJDbx3tvSND1/yHMiiEI04+LDigWT3qQ7PVYcmR5Ympm5la4qS6OZESppetahHacH8ztnj46fRRoo2TJJPhhvS9P0/Ao7EUTR0SygtxYjmgVdVi+fnIzJVBmZLplmWqikm6bakV7QCIObT/pqVqY1ULZlTmjWVkjTdPrkIgiLQjSjG+LtfusHagbVau095pujrkfcI1PlSy1r6idNLVQq0ChHczPFvg/CZyOrgY7p5Y7pfqt1/bCIpgmIQAV5s0l3/TZroOZz87trtwLNxKI8zeJMV3EEqwubGYBmYiFdBQBEQDrNnJ74IggL6TRDQkNEEJvTLMOPOeAvpttlEkm1Uj1Sdng78/qsnsvBp7lTQeQYzTL8mPTlQX/5STOlVpIqRRsboyYZAEL4NHcriCI0i/2Y/IVrxNJ7/ZPXbzx+43DPbDFjmVOtO7s15u2stYnlTfg0d2pZgGYJPyZ/UaMUuZQmt/vtC9Y3zRakPym+jGk/2s4aNYlm8GnuFvLSLO3H5C9cvHPGOfyQ9U2zBcuckTYZ9JZGsxA+zV1BDppl+DH5C9OMhEhNM0UkvQXLnI+ZLno7Y9SM52bwae4K8iQ0lvyYI1IvR1wjNmi12u9RGX+WMm1v1lZvSM+SHd7OGjVZyIRPc6eCqDhvVoG+eTlAM7FBVEuzKvTNywGaiQ1Cugrg9MlFEBbSaQaIgHSaIaEhAvlolqVrDpcdmPRy9rJX8+prie0c0jSB+pFzNFvWNR+cnN+6WHjzNWiPs7ya1tlJhWgd0jSB+lGUZrGuyev4Jf9I3KQ6jRleTfWt7ZHpkqb5orRmB5+mXVbk08zSNWkdGTB1A0xSJBXNsryas1sXcY9MdzRNzx/ynAiiCM0WdE1axwbMSNwkmmV4NWk0M80LXdI0Pb/CTgSRk2YZuqYezTpJcZNumhlezQTNKtM0nT65CMIib0JjWddkeZLnZpG4+TzTq0lPmrZHZmWaJiAC0vNmgAiAZkADAM2ABiCdZk5PfBGEhXSaIaEhIogqejYtC50PjFLJOVwDVjEZE/0Qytkw2oWfNtUzJXya3gZRxWiW1VCTcl6pCsYmU0awUiaBd9G6Jnya/gZRKc0SDTVpFednqRgtddTkvD+VqR1ZKZP35V20EgCfpr/LKmmWbKhJq6YHQZuL0ZLTjlRMXaZWS5mmtruuP6t1Tfg0vUVlNFtoqKlHM1OMlqijRzO2cRopk7bUu5jRDD5Nb1EFzbIaauq52VwXow16Zm6mbZyRlHlsdtG6ZiFNEzQTgUoSGktCp30n1hSj5RsfqZhk4xyTlMkPkGoKxrt8/6eka/68UO1Zpye+CMKi2bxZORsnaCY2iEZpVtLGCZqJDUK6CuD0yUUQFtJpBogAaAY0AOk0Qz5DBCqiWc4uruSzq8gOXDZyoAlUQ7PcXVyrswOXjDz0fvbtRBCVqAD5u7hWZwde+LnA8kVpaRh2YLustG3rAgp0ca3ODlwqcobnA4kTQVRBswJdXKuzA5eKnOH5FXYiiIpGs7xdXFHieLdQyYtAubu47o1gB94pLNHsiyuvfPW9V0ocsb4qx6CZWCzS7Ou//PqX4dc/+qjwAWuscgyaicUizb7554pmX3znD9uKZxUgnYsNIuOmeeXKt4sPZnUCNBMbRPYjwL93kmdIaIgNIkWzr394RSPXcJbXDkyzt1llduAcgV4Cz6+wE0GkR7O/M3OyfKNZXjsw9QarzA6cJ1BgW9iCHThFs9J24IWfsXRyuUQzunF+N8yFnHbgJM3K24HzhQpsB0sJjV+8op4286Vn89qBEzQrbwcu8DcDjWMpPfsPaXqWb26W1w5saVaFHdjpiS+CsFi6af67X6kv/ypfQiOfHdi2dIUdeHeCyE5olNE0VwF24B0NIjOh8dU/Lv37MgE78K4GsXTT/DB3erYxQDoXi+U3NL755+HXv9xWOCsBmonFEs1+GX7x6jf/TMxohoSGCCzdND/79kcf5svPnhbs3LqgRsGn6THKv6FRtHOr0TNjwKfpbxDphMaPPtI5jc0fAdijWahzq9Ezh1cHQ06jdeDTLBWHLJ/m3+VTAdijWahzq9UzSWhivx18mv4GsfQIkNMGwB7NQp1brQR6OnjEwsAYPk1/g1gazVhnyjWaBbr8et7OrUbPDKc/uUc6qCIUfJreYmk0yzk3Y0Nmkc6tbxoJdEzvdkz3W63rhTRNQATKzs2qwZejcH537VagmVhkJjTq0jQvRWBqnK0GaCYW0jVNpye+CMJCuqbp9MlFEBbQNH2/wk4EUYGmuSkyvZmJVSaTOyHHpzF1ng5mb494024ImgkOoslK2lnezNSqo3B+MqaCtMbUqbX16fH0OBFrGpDORWAbNEt6M1OrjuZ3Qy5IyzYoU9KWbQNd+DRFL9PS+V+GdSLLm7mwqhNyQVouTctyaaDuol1jIcBoJhaLlpM6UxlZ3szUqiOdo3064NGM5VISrUAz8UjT7JcsNtXla8ryZqZWHfFm8zu6NC3LpRdraOb0xBdBWGTNzT6rZ0zLbtUar7q2T8+TAesBQ/MOUW9CVW3N+7OgmdggFkez8JtfuCoCgGZyg1i2A79a+nfVBdBMbBCLL2mX/kU1AtK5WDSZNysL0EwspNMMCQ0R2Ixm2eVlczTQpMfKpe3h09wZbDiaXVJedgErGmjO74zm/V56c/g0dyaIvDRLlZfN0UCTSucFJFO2zw/bH7e6gRq04NPcXZ9mNjLLy+ZpoKlHM/Jy0qYPR7NP4dPcoSDy0GypvGyOBpo0PetoL+f8ztmj42cj+DR3KIgNaZZdXjZHA026aYbayxkGN5/0u/Bp7hI2TWhklZfN0UBTgUY59nIqPqn77xw+zR1CBXmzChpowqfpOcrTrIoGmvBpeg7pKoDTE18EYQGa+X6FnQhCOs2Q0BARRJU0m2fInAxO6SbVyTDutDlp7f3+Hn09Qz9Nf4OodDRLVZZd+OgooU4mPp/eHM8OuyGZM9FP019UTTNbWZbet5i8fuN9Vj0pk6tWsTpJ7/rTD7fGnER7yg+YbM5EP01/lxXTLKos+3QwebPf1qrncdAeq1VWnZz01A9caTsMug958GJzJvpp+ovKRzNT8nPYanUm3VDLUfTmxoFRJ0mxpJ6aJ2MWOG1jaipZi36a3qIumtFLQ0s0I3VSK5ZEM12sVnGIZIT5nRH6afobRNVPmqaybJfudcO9J1b17M0O39Dq5D9p0Stn3UmrpwXOCb25QRO2Gfpp+huE9LyZ0ycXQViAZr5fYSeCkE4zQARAM6ABgGZAA5BOM+TNRKAMzTJMwgP+YmrFRtD1jOkd72v7VPKzRc0QuyybP9EfhVu0A3s++3YiiFKjWYZJmL486C++ts2ZVrYIz+mzZ7pOnhbMudQxbwQ7sLdBVEOz2CTMX6LmrZPXbzx+Q33PG7Lbaf7rfk/twlU/tWBOPs05S+WwA++6HTgbGSZh/jK9oZu33u63L9gszBtyCdD53dlbg2cjrmGsBXNT6vg3IezA/gZRnmZpkzB/iZq3kqrZNSVmzWh2N5zefKRHs5AFcy51zFI5pHNvUYpmGSZh/hI1b9U006OZmZvdVTzcM3MzFsy51DFL5bADe4tyCY0lk/CIrMCjqHnre/SKI/uCzZPmD/p0Y1UDINUwDvQ6hdt9lsphB/YVtefNKjALW4BmYlE3zaowC1tAOhcbhHQVwOmTiyAsQDPfr7ATQUinGfJmIoKog2an97lS4/lCcVp+LKWk2FxnbalCS3e+fU0TqB810IwSZNSA9eN2TDO1YnpjFM7eIjtKOL1HGTPdnHX7miZQPyqnmW62Si0L5yfnXPhYDUjdSavLSdagSyndP46ZZoGp6rhlTRPL+peV04ybrbIQya0wqWGhuuc9PwiHdOsjsaA7+4Dz/yELm9vXNIH6UTnNuNmqGc00zYg46v5oRrNw9vbvtMyUGM22qml6Pvt2Iog6RrOgfU61WMgETIWP3+8xzejVR5qfhUOaaqXmZiU0TadPLoKwqJxm9Gj480P9SlCPCx/TbY+q/vCTZmjkJy5uPDRPmiU0TadPLoKwkJ43c/rkIggL6TQDRAA0AxoAaAY0AOk0Q95MBCqhGQuPndTP7fHCNqf3I81SPXK+eTJmR+ewxV101rV0TcaaBvJmIoKoZjRLNWWlasZLLV1J6DSa5eytga4JOv3xg5PzWxd3N2jpmog1DdBMRBCV0SwMutaZ2TJypG7Syv1cWei0mqUmkBbEacsNWrrCp7l26a9PM4Idj8iZydWMmWa2SevpIEi2ZR32iIBcbzui2bqWrvxbMJqJDaIimnFTVuPMnFqacQ1jZokWOo1mGXT08Mc8ZJqtb+maiDUNPAKIQHU3zTA0zkxDs+mxrmHMsiYLnUaznO73aIdJpI9v0NI1ESsgEFU9aeqXYdmZydWMjS/T9HM1QqfWLOlJU41e7OgkWdPsvaqlaycRKyAQ7ufN4pauoJlYuE+zuKUrpHOxQbhPsxigmdggQDPfr7ATQUinGfJmIoIoSrOMurMPMrq2GtWJPr5/yKWBru1Hdsy0bgmfpscoPJpl1J1dVjJJu+SF/Vj9H9sxF3RL+DT9RXmaxXVn1aqA27RO3jjcO9Ni5sl4un/9U/sx08xIm+Gibgmfpr/L0jRL1J2d3dJtWn/G9WZZZVI0ezr4cqQ/5pIHcXfWRd0SPk1/UY5m6bqz1Gua+2ey4mRpZmZb/DGPZkbaXNIt4dP0N4jCNMuoO5ukWaDFzCcnY2oCYD/WNNPS5pJuCZ+mv0EUT2gs1Z19QqVlTZtWK2ZOWr3P1eBE+uWZfdLU0ubV1xZ0y+to2+pvELXkzXLXm411y1UAzcQGUQfN8tebjXXLVYB0LhbSVQBABEAzoAFIpxnyZiLQCM10gVmuSNuZ6o6anKmNDZ0kb5r07ZDSsdxuk3Jqs7dHvHc3RN5McBDNjGa6wKx2MJmOmib5amRQlje5Yu3zXjjsmZZOWlufHps2sKCZ2CAao9nLgfVj6o6aaZqxvMk1HrlSKNdx1ObOW6R3qsEMPk34NNdBF5g1o5nuqJmimZE3Sb4Muopmmmvs8GyPJ12Th8NoJjaIRkcz9mOajpopmml5k0czZiSPZmzu5AK29dIMqB/Nzc3I60tZW9NR0yiW/NXIm7MjvfGRrkrLVWwv1tAMEIHmnjTJqLk3ou+po+bZYfTwefWBFkav7dMn/EYut9s0oujtvn0HBDQTC+l5M0AEpNPM6YkvgrAAzXy/wk4EAZr5foWdCEI6zZA3ExFEFTQrUnr2XG/jQu1ZoH5UMpoVKT3L28xdqD0L1I+qaJa79KyVmbZfexbL+peVjmZ5Ss+epWi2zdqzQP2ohmYFSs8mR7Pt1p71fPbtRBCV3TTzlp41ambZ2rNOn1wEYVHRk2bu0rMzvU3p2rNOn1wEYeF+3mx17VmnTy6CsHCfZqtrzwIi4D7NYoBmYgGaAQ0ANAMagHSaIW8mIogGabaZKTgF2IE9CaLJ0WwzU3ACsAP7EkTDNNvEFHzIWdvX78EOnGsJO7DBZqbgpwN2zAW9puzAQP3Ywmi2xhQ8VB+fDhTNYAf2B03PzdabgqnXQGBGM9iBPUHTT5prTcH0GmMnEtxhB/YDzubNgt7SKkjnYoNwlWbT/eUyyaCZ2CBcpVkWQDOxQYBmvl9hJ4KQTjMkNESgJppldHW9n1Iuac1gYRe0bfUWdY1mK7q6xmsWdkHbVm9RO81SXV35o3iNbvIatWlF21Zvl3XTLNXVNaFc0poZN3k9jtq0bqltq+ezbyeCqJVmS11d6ZvEGt19M2rTirat3gZRF82yu7rGyiWv0TSL2rSibau3QdSW0Fjq6nqWUi51n1du8hq3aUXbVl+DkJ43A0QANAMaAGgGNADQDGgA0mmGhIaIICqn2en9hAoZg7Kwui/r5+oJcm/EfVkn9LTZMqVYtqZpen6FnQiiapqRdhmrkBHYlmn7ss7fHei+rJ+E1rxJ22xL0/T8CjsRRLU009ZKViHjAsc0IHWmf3W4N+JOhiEXZeR87SENV2R3mm9T03xRWrODT9Mum/Fp6lrGrELGBY75y/TGyH6izZjqNvqn8YTLOV4lwWB7miZQP6qlma5lzCpkXOCYy3uquRl9QqPZsBfq0Uzt8HSgzZvb1DSB+lH5aBa0z1mFjAscP6YZvKGZ+o5uqHf13CwqdXxQWNMERKBamplaxqRCPogKHHON4uHe2eF19Ulo6vtQX9ZAq54Kt/tFNU1ABBrIm8U1iksC0rnYIBqgWVyjuCRAM7FBSFcBnD65CMICNPP9CjsRhHSaIaEhAvlolmG/HPAXU7ZzaesWPSdShR9yZfILtUa1dEjTBOpHztEsw35JXx70l5ushlrD5MwYbzi9MQqpZysVOHNJ0wTqR1GaxWZL/sKSpe3b+ob6XndctTTTrkyiovrCxWcd0jSxrH9ZkGYJ+yV/YclS9229ULe9oMvssXrlmLchkYk1gDtuaZqez76dCKIIzdL2S/6itSTdt1X31KSOq3TT7Pdsr+Cl0Sx0Q9P0/Ao7EUROmmXYL/kL08z0baX3fLrccZU0zCHRTG+jnhpofhbPzSrQNJ0+uQjCIm9CY8l+OXpJX0iy7Ji+rRNuXRLysKS+vVBPmryNedLU/Vir0jSdPrkIwqKGvNkk86mzAkA6F4vqaRZnvqoGaCYW0lUAQARAM6ABSKcZEhoigthS7Vn9EDpO7wKfprdBbKv2LFs202ZO+DT9DWJbtWfZ5ORG7dkXpTU7+DTtsul+mutqz864AZgTtWeB+rGt2rM8mrlRexaoH9uqPastm+VrzwIisKXas9f22bJZvvYsIALS82ZOP18hCAvQzPcr7EQQoJnvV9iJIEAz36+wE0FIpxkSGiJQD82yJU0q2rjfHlNRjUVBM4RP02vUJZ0vS5rzO6N5v8dFaJ+NrPCU2gc+TW9RN81iSZMNTd35r/u9iGZuaJpY1r+smWYJSdOMZndnbw0MzRzRND2ffTsRRJ00S0ua5GGieqDh9OYjM5q5oWl6foWdCKImmmVImnTTDLluY7Cn3ZnH6Ke5K0HUldDIkjTVM6Raozjz0Oqb6Ke5I0FIz5sBIgCaAQ0ANAMaAGgGNADpNHN64osgLKTTDHkzEUFUTrMNVfMhrVrYEXZgb4OofjTbSDWfn5zfuljosAM7sL9B1Eizlao5bwbpfFeW9dFspWrOmzkinQP1oyaarVXNdX1tJ6RzoH7UUK1xI9U8QTPYgf1HDQmNTVRz6kzdrcIO7PTEF0FYSM+bOX1yEYQFaOb7FXYiCNDM9yvsRBDSaQaIgHSaIaEhAlXSbB61YF0Cd2llTFosWp7ej3q6mg9gB/YYlY5mnOn6se7BehSvPbKdwAif8FeqeGybbdqNYAf2F5XTjNuxXh1MWrxQg1FXfct9DSfUzpVbtaox7GpMM275StujxHGZ4+xOiWMmxvTg6WDSfX4Q0oLabfK34fRn3M6VW7UGXTW42X6t1Ob1dKA2gh3Y3yDqGM2G9HbZAb1S1iHSqG/1aMbtXKlVq7qBPh1EPV25F+f0AHbgbR9BEs3UrOuZ5hYtaDRT3/LcTLdzpTulWgTUCF33dI1pBjuwr0HU8aSpa/539YK/5S6t3M41MBu0fh71dOWWr7PDNw5R4thbNJg3K93OFTQTi+ZoVr6dK2gmFtJVAEAEpNPM6YkvgrCQTjMkNEQE0bSmaWdoDmmanl9hJ4JoXNPUvgCXNE3Pr7ATQTStaTLN3NI0sax/2bSmaazBLmmaQP1oXNMkmrmlaQL1o3FN04xmVWmagAg0rWmSd3Ncoabp9MQXQVhI1zSdPrkIwkK6pun0yUUQFtJVAKdPLoKwkE4zQASk0wwJDRGog2Zar2yfL/TM5EpBlBSb9+kt2i57Np9EOih8mh6jjsJTWq88+TjRAJh0zRujcPYWJcjC6T0tcpJnk7JjL7UMCp+mt6icZkavnN+lMsaH3Umsa1I+I+hSlb0/jlkWYM+mItPLwXybtWdflNbs4NO0y0Z8mgSrV3YUzcYT+sHomkO69VH9xu7sAxY5j9mzaaVNtG3d+hEkPWkavZJHM00zq2vq0Sycvf27gRY5Q/Js8mgWom2rA0eQRLNIrySaTY/D4d77Rtf88YDnZ+FQ3SrNC2jmhbPpAdq2OnAESTQzeiU/R/boh57VNflJMzSiE4mcga5Rq3C7X7T2LCAC0vNmgAiAZkADAM2ABiCdZk5PfBGEhXSaIaEhIojCNLusb2ZvcUPq/WXeq1WLN/stzv47pGl6foWdCKL4aJbRNzOhP0bgLprWJTC9OaZk68uBS5qm51fYiSAqoFncN1Prj2rMakdqZqvDNkzjeSJuqf8eOaVpYln/sjzNEn0ztf6oKBR0mVL8ZXpjpDP6lPpX3HrXNU0TqB8laZbum6n1RzVcTQ/0yEU2JvbH2dFsduuPZ65pmkD9KE6zjL6ZWn8M6C0MVjMfE/0imvGjwrBD/1WnaQIiUCKhkdU3k/THB31jxeypLbQN8wfR86Si4/ReWJ2m6fTEF0FY1Jo3+3LELYGrAmgmNohaaRZcVu6sGEAzsUFIVwGcPrkIwkI6zQARkE4zJDREoBGaaUmTJc/OdL89pklbyyiWWkiiZAfLl+0xN9w0tWpPB7O3R7x3NwTNBKOZ0UwLl/M7ijI9FjmfmaKztvQs66Ls7hyT0GnSarqO7fSY1PcQNBOMxmj2cmAq6M1/3e8t0Yx1UfZDsdDJIoF2fN4655Lb8GmuW+6WTzMTWrg0o9nd2VuDBZppXZTlSxY6WfJkx2eg7qJdUxkNb2iIDaLR0UxNsjqUsJ3efJSmmdZFeTQLSejk0Ywdn2z2BM2kB9Hc3Gx6oFsCEJUC/WrQ9Fh/Nbqo6SWgNuO5GTs+L9bQzOmTiyAsmnvSJPfmHvcEUKR5eHYYPXySCEq66LV9+oQbbrLkybLopHW7b18BQd5MLKTnzQARAM2ABgCaAQ1AOs2cnvgiCAvQzPcr7EQQ0mmGvJmIIErSLJcpWGvjn++31PawA+9UEGVHs3ymYNLGn/fm7zplBwbqR2U028gUrNUkakUHO/BOLauirwT5ZAAAHQNJREFU2WamYP6ENoQdeLdQCc02NgXzaEYltWEH3i2UpVk+UzBp43RDvYsSx7sVROmERg5T8HWqfGxeuYYdeKeCaCBvVpkpGDQTG0QDNKvMFAyaiQ1CugoAiABoBjQA6TRDQkMEStLsdDAkj2/0c+TvDU8fGLVy0tr7/W9ivTIy/nYWDqVNmYkD0QMp53zTsaYBmolAOZpNf/zg5PzWReI50hovSdtktXJ6czw77MZ6JWuf2kqXPhZ/kDjQUagtKouxpgHpXEQQZWjGfl0mFgmY47iWsendyvn9p1oWN3ql0T6NMZhlz/bHrW6ghjn+YHh1MGyTAbijaaaOwYdF29a1S2/twOzXZZqRgPmmuiWaWsZR71bFwoc8IkV6pdY+9WhmZc+Ho9mn1hFM1JzEewftCz4s/z6MZmKDKEMz9usyzVjAjGsZm96tPJppili90mif2hjMe83vnD06fhaJoqeDR2MWQWk06/d0T86noJnwIEqOZoHiA41mRsA0tYyPde9WrVbeHHPfaa1XGu1Tz7p4rzC4+YReRtMfhNOf3CNllOdm4XA9zQARKEMzVixZneS5mZEt6fGSPmEbL71rQROtQ61XXn3NGn9pusV7qYEufDayouiYbrIkgl63Vah6dNhOIlZAIFzMm10mgoJmYuEizS4TQUEzsXCRZpcB0rnYIEAz36+wE0FIpxkSGiKCKESzDHfmgrapN7t1cbmuGS6rmPBpehtEsdFs2Z25qG0STFLtEl1zWcWET9NblKRZ7M5c0Db5Pf+T8QpdM1xSMeHT9HZZjmYJd+aCtklmS6LZ5brmsooJn6a3KEGztDtzUds8bPWi0SxT11xWMeHT9BbFaJbhzgzT2iaZLTXNLtM1l1VM+DS9DaJgQmPJnTlKa5udoNVqP1+la37/p8sqJnyavgbhRt5sMysnaCY2CDdotpmVEzQTG4QbNNsMkM7FAjQDGoB0miGhIQKl65sty5vWoJn0WJo2rFqzTDVrTRxpS5omUD9Kj2ZZxWcp4ZWSxU05MwLZAFLNWuMjbUnT9Hz27UQQ1dEsUXyWVk1Ik5zuX/9UjUddLs44eYMMl0ma6WatNIoNW6/f25am+aK0Zgefpl3W1rY1q/gsrZoeBNR+9cuRohiXmv2Zuh0G3STN9C5PB9zJMOhtS9P0fCBxIohqaLZQfFaPZvOTMc20iDd6NOvSzTNBM73LsNXqqDsq0Ww7mqbnV9iJIErTLKv4rJ6bKZo9G6lBrWfmZjRkxaNZ1KyVbriBHs0KaJqACJRPaCzJm0+iV2Z7n6uBie96JHhOyHhJG50nm7XST6R3UlfXApomIAIN5s0m3VWfBkv9d5YAmolFczSLM2JZmO6v+lQDNBML6SqA0xNfBGEBmvl+hZ0IQjrNkNAQEUTlNMvusBlrmDNb6kdtEdBTJPpp7kAQ1Y9ml4icBF7DTTXH1EqTs2nop7kLqJFmCyJnaDVMakPHrTQDk8tFP03vl/XRbFHkjIyZlK7lVprcVBP9NHcBNdEsQ+S0GqZpERw+HcSjGfppeo7qaXaZyGk1TG6qye+dRXMz9NP0PYgaEhpZHTZjDfPaPr1IG/DT5dA8aaKfpu9BSM+bOX1yEYQFaOb7FXYiCOk0A0QANAMagHSaIaEhAvXSLO3I5Bq1l39u1M4hpWONr/N0MHt7xA+j3RA0E4yaR7OUmsn65orPWe183guHPePr1JtPj6fHiVjTgHQuIoiGaBbrm8E7rXdavbRumVQ7WYFifcA05TzXfYLh09xpn+ZqpNRM0jdnh51Jh0anpG6ZVDuDrqKZ5hoVpA3aY7beETCaiQ2iGZol9M1Jj8qGpnXLpNrJUjqPZtyUc34CmnkQRAM0i9RM1jc1zdK6ZVrtVAuem3FTzos1NANEoPYnzYQjU5s42++1FnTLBbWTXp8lXye365zo+rW9OFZAIKTnzQARAM2ABiCdZk5PfBGEBWjm+xV2IgjpNENCQ0QQoJnvV9iJIMrRLDbzLiFV1JiWp/cPjQROUuV8qQ4yShx7jJKjWaKasUmumm8Xihozt0gav2N9wst1kGEH9hcV0IysS2okYsHyKnU47E6WihprGdzQTOvkS3WQYQf2d1kFzaYHVKb4+QFXK6ZyePxtqqgxy+Da+Ru3a12ogww7sL+oZjSjMsXqNkkLoon6dqGoMcvgNJr1e1YnX6qDjBLH/gZRzdzsmebWM100m75dKGrMMvi5mr0Ne1YnX6qDDDuwv0FU86Q54zLFXb3gb9NFjcemhrH6+aJvu7Yu1EFG29ZtH8FZmq3B6qLGuQGaiQ2iTpqtLmqcH5DOxUK6CgCIAGgGNADpNEPeTATy0yyjhvFgqB4KOwub3bqImurs/f43sWCpFSaWPCdx5x2UON7+Edx6BFiuYfzg5PzWxd30VkF7rKsXT2+OKdcRCZa8l5Y8PzFH226JY8+vsBNBlKFZ7PHldfO+Gn6mf3W4R6ok5V11vc+nmkNGsDR76Xqgh1rb3HKJ4xelNTvYge2yQjtwRg1jXqeoE7yp7nn0ZsakRzRjDfMhD0+RYGl7tYbTY65zvP0Sx54PJE4EUZRm6RrGvE7Ra3owPSbx8rDVi0Yz/T6QFSzNXjyahVTnGCWOdwEFaJZRw1iPZuqHLtOMVElNMyKeYom6QRrB0uxlXkeb3xmVLHEMiECRhMZSDeMRK5g8NxvunR12glar/Vz7eFv8RgYpnSxYXn1N7zWmHQJ9mFIljgERkJ43A0RAOs2cnvgiCAvQzPcr7EQQoJnvV9iJIKTTDHkzEUGUpVmGwvlgyYKZcG2SjnmWKnwcHwk+TW9RejS7pEtr2oKZcG1aHZPAu8RHgk/TW1RHs4UurSkLZuzatDom76sNmzSKDVuv34NP099lZTRb7NKasmDGrk2tYyYLG5O5kyxQPfg0/UU1NMvo0pqyYCZcm0bHpC31LmTuVHdUohl8mr4GUZpml3VpTVkwE67NSMe0hY3Z3KlHM/g0fQ2ifEJjSeF80l+0YHZi1ybpmOnCx+fa3Ek2Tvg0fQ2iwbzZatdm0Ft7ANBMbBDN0Wy1a3O6v97TCelcLKSrAIAIgGZAA5BOM+TNRKBs4allSfN+QoWMQU3ndF/Wz9UTpHoapalYQE+R8GnuQBClpfMMSTNWISPM+/SYafqyUqqNip5xNg0+zV0IojKaJSRNViHJGXB+2J3oNFmH/ZvcyVBnNri2nsnlwqcZB1L8OL75NFPIkjRZhSTXJulLnP0/HUxvjLj4rPqENySasVkTPs1dCKISmi1ImqxCsmuTGcZOJu3f5NFsSNulRzP4ND1HWZplSZqsQlrX5nDvMdHK0Ex9RzfUu+m5GXyavqN0QmNJ0jzTKuSDvik521NbtDrk37x+qN2c1OtkqKvSduHT3Ak0kDf7chTO767fbD1AM7FogGbBZW2d8gLSudggpKsATp9cBGEBmvl+hZ0IQjrNkDcTEUS9NGNFsjPdp/qM9ERJIgHVqb1u9EuzSjs2teQ5HnJyV/s6Twezt0fm2RR5M8GoeTSb31Es6bGi+YwtAOGc69Ra/TLl2DSSZzjsGV+nNntOj0l3D0EzwaifZmHQnf+637M008KB1S/Tjk0SCViBYn1A9+C8da6bCsOnKXnZzGh2d/bWIE0zo1+mHJssXwZdRTPNNVKqgvaYrXcEjGZiUTfN+tQwQA1S05uP0jQz+mXSscmjGUvpPJpxD875Se0083z27UQQDdw0QxYBgj1rz9Q00/plyrFpuqXbTuncg/NiDc2cPrkIwqL2J809bnSuePLw7FC/KDukpuhav2RYx+a1fdqMX8VlXycLohNdwrYXx7rZ35UDnl9hJ4KQnjdz+uQiCAvpNANEADQDGgBoBjQA6TRD3kwE6qCZVjJTPy8a6sLT+5Etc7rfepP6iEV9OZd7bSZjTQN5MxFB1DKa6dy/+WF2FBUBjUF2TitrvjWg5ptxX86sXpuJWNMAzUQEURfNwoA6NA0mr9943DKOy9i5qdVKa8vUude4L2dWr034NNcuvfZpZsKOZpPb/fb4+YEZzWLnJquVVtYc9oiAe6OoL2dWr00GRjOxQdRDM1YydaqfhCNNs9i5yWqllTWDjtWkTF/OrF6biVjTwCOACNR20yST8CRBs+lx7Nx8n9TKcyNrTvd7tEPclzOr12YiVkAganrS1PV+Wu33qBPAG1rMnEfOzVSp2RH7OMOXUV/OcLnXpn5QBc3EQnreDBAB6TRzeuKLICxAM9+vsBNBgGa+X2EngpBOM+TNRAQBmgENoPaXtBMNWlkdv/xzYweeUGIDdmC/UPNolrL7cgHkFZ+zHXhMmjnswJ6hIZrFBZCDd1rvtHrpMsZJOzBr5rADe7ZshmZxAeTZYWfSodEpWcY4aQdmzbxRO7Dns28ngmiGZokCyKRzcv3sRBnjpB04JM0cdmDPgmiAZpHdl9VxTbN0GeO0HXh+ZwQ7sGdBNFB4KmrQqnu6tt9rLZQxXrAD02vZsAP7FYT0vBkgAqAZ0ABAM6ABgGZAA5BOMyQ0RARRBc1OjY03hdmtC+PmnbT2fv+buCerVpCWLb9o27rtI7hNM2vjTa8N2mPt5p3eHM8Ou3FPVpYvsyy/aNvqbxClacbKI1OCLSXcnpX9Iidj7X97qjlkzL9Gvsyy/KJta6k4/LYDs/Jo/ZXBm+qeR+9WTHpEM3bzPuThKerJquXLLMvvttq2AvWjNM1YeWRKsN1X9808bPWi0UybLK3518iXWZZftG31F1WMZmYaZu2+TwekWGqaEfEUS9QN0ph/jXyZZflF21Z/UZpmrDyyBslzM2rP2iEj8HMtRtLApJ5CbU3jq69peXO8bPlF21aPIT1v5vTzFYKwAM18v8JOBAGa+X6FnQgCNPP9CjsRhHSaIaEhAtXSbFHdjIsbnz7Iq3Cyn4mdKulY0wDNRKBSmi2rm9YgRyWNcyqcR6Ya32KsaYBmIlAhzbLUzai48dVBXoXzyCRv+Th1appY1r+skGZZ6qYpbswljXMqnPxd0L4wKmmINzQEB1EhzTLVTVvc2IqXmyucajTrk2TFx0nEmgZoJiKIakezJXXTFDfmksY5Fc6jMByup5nTJxdBWFRIswx187oubkyf5Fc4dXmgHqukiVg3+7tywPMr7EQQ0vNmgAiAZkADAM2ABgCaAQ1AOs2Q0BARRDmazRcaqyZgqseGrFVSTvb0/qGpIUs6pt0zFi3h09z2EZylma5f9mMrQkZrj2wqjPAJfyVV08iUutBsvKfdCz5Nb4OogGasR14dcMVPzpF11bec2J+8QbImaZVa1TQ004VmzZ63xtP965/SXvBplorDZ58mU2F68HQw6T4/CGmh+BXyt+H0Z+oGGHRZq0yomrbQrN4zoEKzX45oL/g0/UU1o9mw1eqo2yQtiCbqWz2acTdN0iq1qskypS00q/ecn4xpOkZ7wafpL6qZmz3T3KIFjUvqW56bKa6Qx1LdKbWqyTKlLTSr91Q0ezZSgxqPZvBp+opqnjTpzkZvK/KCv2Vtc0KyZGA2oEat6ucLXWj2+z+1L9P2Pj/kRq7XD+HT9Ba15s1sk/KKAOlcbBB10izOgVUD0ExsENJVAKdPLoKwAM18v8JOBCGdZkhoiEBFNCtSfnZRa9qWpgnUj2poVqT8bLSw2JamCdSPKmhWrPysWQyvDoZt6pnZ2ZamiWX9yypoVqz8bKxtviS5gKo1bkfT9Hz27UQQ1fQFKFJ+1i5OB4/GbG/alqbp+RV2IoiKRrMC5WftYvqTe9Rps6Cm6fTJRRAWVdCsUPnZ7//UeDTpljrdbxXUNJ0+uQjCwo282ZejcH537VaQzsXCDZoFlzkKUgDNxMINmm0G0EwsQDOgAUinGRIaIoKonGYsRQYtq1zODtu/vW8r0NIaFinbn+/rB1D009yNIKofzTir+swql0HPlJ0laIPmUTg/+YRLzKKf5q4EUSPNWLJkiliaaYPmkc5dPBqjnyZ8moVhaWaUy0nLykZWxNQi5eyDEP00dwY10SxWLum+aWhmDJp6NNM3SvTT3A1UT7P5u1pG15LlpKcrGITTY2vQ1LU2HnEld/TT3A3UkNCY7usqsixZ/v1rrb0zrkD7QK+5ts9VgdQ9E/00dwfS82ZOP18hCAvQzPcr7EQQoJnvV9iJIEAz36+wE0FIpxkSGiIAmgENoCKaFah1vCyVww7sLaoazQrUOl6SymEH9hZV0ixnreMlqRzSOaTzNShQ63hJKocd2NsgKh7N8tQ6XpLKYQf2NoiK52Z5ah0vSeWwA3sbRMVPmjlqHZ8v238hnfuKZvJm1dQ6Bs3EohGaVVTrGDQTC+kqACAC0mnm9MQXQVhIpxkSGiKCaIBmLEt2pvvtMZVkaWmlUuuX+qcwaRQeDykda4TQ08Hs7RFv1g1BM8FBNDGaze8oqvTm/S4Z60zS1eiXy0bh571w2DNCqBZJp8fT40SsaYBmIoJoiGZh0J3/ut+LaWb0y2WjMIlTxywdaPnz1rnuXY0Sx5KXDY5md2dvDSKaGf1y2SgcdBXNNNdI/gzaY9aqCHhDQywaoVmfOlOokWp681FEM6NfLhmFWVbn0Yzlz/kJaOYBmrpphlz1M9gbGaXS6JdZRmH7khrLnxdraAaIQDNPmnsjGtIUWR5qa/B9o2cy0kZhrlnFQihXTp7oMsm9ONY0nJ74IggL6Xkzp08ugrAAzXy/wk4EAZr5foWdCEI6zQARkE4zJDREoCzNLunXOraljS/66glSC5hXX0tsx6KlGyWOgfpRkmaX9muNShsT5RYEzMi96UaJY6B+lKLZin6tUWljolksYPIm1r2JEsfwaW6CFf1adWlj/WpPLGBe8CbGvXnsSIljzx/ynAiiFM1W9GsNbWljGs1iAZM3se7N0I0Sx55fYSeCKDuaXdavNSptzDSLBExLM/NCWfkSx06fXARhUYpml/dr7b3UpY31k2bUr7XDm1j3Jkoc7wyk580AEQDNgAYAmgENQDrNnJ74IggL0Mz3K+xEEPXSLMOiSbXPWtdX+DS5Qu3GPk2nTy6CsKh5NFu2aM5ZA73cpzkmoXNzn6bTJxdBWNRPs0WLplY6L/VpstC5uU8TSxHLZkazpEVT0+xSnyYLnZv7NAERqJtmyxZNQ7PLfJohCZ2b+zQBEWjgprlg0TQ0u9ynqfaBT9Mz1P6kuWjRHJCcOVvl06SHUPg0/QoCeTPfr7ATQYBmvl9hJ4IAzXy/wk4EIZ1mgAiAZkADqIFmWshM/WwccDFO70euzOl+682T88NI7+xkeDiTsQICUcdoplP/5ofZUWgVpRjk4bSq5lsDaygwemeWhzMRKyAQNdEsDOjl/8Hk9RuPW8ZwSXaB88PuhN//vzqIXJk69ZpQCLI8nJf6NF8s/Fxg+aLk/vBpxsu6+2kmYUezye1+e/z8wFCIrJyUz+f0PvmYtKo57BEB985immV5OBl40hQbRC00YyFTZ/rpnR5NM7ZyMs10T02jagadyEcXJkazMO3hTMS62d+VA55fYSeCqOumGYZkt4xpNj22Vs7h3vvcU9OomtP9XmTX1HpnloczEetmf1cOeH6FnQiinidNqupDhs33qMP5G1rLZCsn65Smp6Z2ZdKTJjfftHpnmOHh1E+qeAQQC+TNgAYAmgENADQDGoB0mjk98UUQFqCZ71fYiSAK04yVSm5JwjY3U2s2qhMbg9xv87592HyzT+/Oti/6+mG0Oy9Ze9bpk4sgLIqPZpxQfTYyHktdazauExuBPZo6H/bjwfTmmIrivRxwbo0TZCVrzzp9chGERQU0Y4+lrjXLdWJj8ZKGog6Xm+WNWQKg/x6Nte5pSu2VqT2LpYhleZppj6WtNdtJipf8ZXpjpMcsGr0Urd7tzj7QSgGLlyVrzwIiUJJmihQTO3kKerpObCxehkOqr32s1UldX/bWH8/e/t0gXBjNiteeBUSgOM3m7+rqxtpjqWvNcp3YWLx8TPSLaMaPCsMO/Rem52Ylas8CIlAioTHd1w+P5LFs/72uNUt1Yh9E4iXLlVRu9gfR86Si4/ReGPI4R+Jl2dqzTk98EYRFrXmzL0fh/O76zTYFaCY2iFppFqRe5S8N0ExsEFABfL/CTgQhimaAWPAFlEGzLDjx9IkgLFYHAZqVAoKw8JVmgCCAZkADAM2ABgCaAQ1AKs1Ml4rtgvtlbBVz+5Lo9oNYeTKE0swYh7eMT7YdQOJFhG0HsfpkCKWZLYOwVXBRmS0jeq1q20GsPhlCacbvRW47CC4qs+UYopdEtx3E6pMhlGZb/wds8HTbd25nRrNw5ckQSrOtT0c0zPndcgRbPxmm1ciKkyGUZrqyy5YRVPqyUzHYl0S3HsTqkyGVZoAogGZAAwDNgAYAmgENADQDGgBoBjSAnaHZZ1euvPLvfrWw8pt/+quv/4JXmkUKWeuilV/9+R8u22Q9lncreCCO5B98/cMrr6pv/tVH/OOffZQMM/VTDqhT878VDmkJu0KzD7/zh/Czby2etw/1miX6pT7NxNc//M4f1myygOiXXPLbNto3A4rvn73yhYrmC6Ja+M0vvv1R/KH5KUeYFmqXEtRfxI7Q7Kv/ms6YvhAJqH+ytLjkn6359JIj8mi2cpM0ol9SYJBYscs3/+yjkGn29V/qFV//KEEz81OOMKPjql2+/od/yLvbJdgRmn32HXPC6N6pzv3/foX++V+5wv9k1fJV+peb+Ezdhr79EV+cb35x5btqTPg3tOLrH/3Nt/7lX/yKP/zqz//6ynf5Ynx4hQ9OO6r9+Ufa8H/583995Tv/4cp3/uMPv/2RGhr4l9COGb8t5NvaV2aHP9gjmS3+5lv/s93XbP6Z+tb+2i++qyj/PXXT/PeGXeYP+ItfqcivfPvf8E/f/NN/yTF/j8a2xJGi41155Wu7wYfRqVF/y+K/y6LYMZqpMeir7/33ijl0Wf/sIzXIKQb8P8SVb/0q+dlnrygC6TGAxoP/wiv+9hfqsqsN+cOvvvfqN794VX3zhVr3iqajut6v0o//ndpQ/awu3Xdp9vcjIiz9Et4x47eFdI/6W7vD35oj2S1eCe2+f6s3V8z68BXza9V6/Rd+9Y/Nn6qOobahMPmX8086XnPzjY9kjse/6FWzAR9Xn5r44KWxYzSj8/bhK/rCq+81l4hO+ufoM2LNq+ZWo67m3/2BVxDj7Id002TaqKFA0cLcnj57hX+k7/WBFBXNN2ZofDXrt+mHkcQOfCS7RRjtqzfhMcb+WsOEb/4nRZVvmX8W+td9EXOcDvBZdF+NjxSdCPoj9QZ8XH1qQLO80HOzr/7FZ9+lc3cJzRKffaEGF0uzr/7s//gXIa8wl5y/j2lmbiyWHK+a7zNoFh114beF2TSzW4TRvkmamV9rmKDGqQ9f/cLQ3fxZNCrGv1wdWD9JJI5kTgT/IrMBHxc0Kwh60lQzWkW36Ox+oWZfv/j2v41olvzsQ3NHjPblFeaS8/eKZvpupK4tjxJ089N3tK//cpFmX/+Qfk8YHXXht4ULNNNHirbQM8BXI8byfN/+WqYW3zIXafbFK8mf1JZ6Mpc8kv6qf5HZgI+rT81HmJvlxodXaN5M94RX1fff/UydUrXqyqv6G14kPvsPV77133z7b8x1oWv4Ba34R7yR/vDf/oK21ntz0kDNofW0+YqeRqsDqcW/5u++9d/Sk8KrfJCPln/bHyiu7/y13eE/miOZLYjkZt9/ZAP/1q9C82vpSVM/Epqbpj6kOsz//T01s49++kM0oU8c6a/18fgXhWaDD/XzBa3Ck6Z7SCcSmjuSTsBm4L8o0v1dgidq+rb6SIsbFEiDXAbQrCpsi2bhV/8gczUnvn6ZWLGUNVzE4gZQAdyDmnB/p5pbTFVH+kJPEww+5OfSFVi7QRmAZkADAM2ABgCaAQ0ANAMaAGgGNID/HzexeFeyJKPnAAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtTR2xCYm01dmVVRnNiRlpoY25ORGIyNVFaWEp0YVcxd1VIUjJMbk4yWjF3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1UVXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpYzNablhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJJYVVGdWJtOTVRV3hzVm1GeWMwTnZibEJsY20xcGJYQXVjM1puWENJcFhHNGdJRnh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WENKUWRITkJRbVJJYVVGdWJtOTVRV3hzVm1GeWMwTnZibEJsY20xcGJYQlFkSFl1Y0dSbVhDSXNJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHhOU3dnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWENKd1pHWmNJaWtwWEc0Z0lIVnViR2x1YXloY0lsQjBjMEZDWkVocFFXNXViM2xCYkd4V1lYSnpRMjl1VUdWeWJXbHRjQzV3WkdaY0lpbGNibjFjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXBQdHYuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0xNSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBbGxWYXJzQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBbGxWYXJzQ29uUGVybWltcFB0di5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTE1LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUFsbFZhcnNDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAllVarsConPermimpPtv.svg\, width=8, height=15, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAllVarsConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyAllVarsConPermimpPtv.pdf\, width=8, height=15, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAllVarsConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1NHbEJibTV2ZVVGc2JGWmhjbk5EYjI1UVpYSnRhVzF3VUhSMkxuTjJaMXhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TVRVc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjM1puWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUklhVUZ1Ym05NVFXeHNWbUZ5YzBOdmJsQmxjbTFwYlhBdWMzWm5YRndwWEc0Z0lGeHVJQ0JuWjNOaGRtVW9abWxzWlc1aGJXVTlYRnhRZEhOQlFtUklhVUZ1Ym05NVFXeHNWbUZ5YzBOdmJsQmxjbTFwYlhCUWRIWXVjR1JtWEZ3c0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQweE5Td2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYRnh3WkdaY1hDa3BYRzRnSUhWdWJHbHVheWhjWEZCMGMwRkNaRWhwUVc1dWIzbEJiR3hXWVhKelEyOXVVR1Z5YldsdGNDNXdaR1pjWENsY2JuMWNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFsbFZhcnNDb25QZXJtaW1wUHR2LnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MTUsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXBQdHYucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0xNSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBbGxWYXJzQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFsbFZhcnNDb25QZXJtaW1wUHR2LnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MTUsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXBQdHYucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0xNSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBbGxWYXJzQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAllVarsConPermimpPtv.svg\, width=8, height=15, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAllVarsConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyAllVarsConPermimpPtv.pdf\, width=8, height=15, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAllVarsConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZCc2IzUWdiMjVzZVNCMllXeDFaWE1nZDJsMGFHbHVJREVsSUc5bUlIUm9aU0J0WVhocGJYVnRYRzVjYm5KbGMzVnNkSE5QZFhSQlluTkVhV1ptY3k1amIyNXBiWEF4Y0dNZ1BDMGdjbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpMbU52Ym1sdGNDQjhQbHh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdjbTkzYm1GdFpYTmZkRzlmWTI5c2RXMXVLQ2ROWlhSeWFXTW5LU0I4UGx4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdabWxzZEdWeVgybG1LR2x6TG01MWJXVnlhV01zSUdGc2JGOTJZWEp6S0M0Z1BpQnRZWGdvY21WemRXeDBjMDkxZEVGaWMwUnBabVp6TG1OdmJtbHRjQ2t2TVRBd0tTa2dmRDVjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUdOdmJIVnRibDkwYjE5eWIzZHVZVzFsY3lnblRXVjBjbWxqSnlsY2JseHVjRUpoY2lBOExTQm5aM0JzYjNRb2NtVnpkV3gwYzA5MWRFRmljMFJwWm1aekxtTnZibWx0Y0RGd1l5a2dLeUJuWlc5dFgyTnZiQ2hoWlhNb2VEMW1ZV04wYjNJb2NtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRFRmljMFJwWm1aekxtTnZibWx0Y0RGd1l5a3NJR3hsZG1Wc2N6MXliM2R1WVcxbGN5aHlaWE4xYkhSelQzVjBRV0p6UkdsbVpuTXVZMjl1YVcxd01YQmpLU2tzSUhrOVEyOXVaRkJsY20xSmJYQXBMQ0JtYVd4c1BXMTVZMjlzYjNWeWMxczVYU3dnZDJsa2RHZzlNQzQxS1NBcklHeGhZbk1vZUQxY0lsWmhjbWxoWW14bFhDSXNJSGs5WENKRGIyNWthWFJwYjI1aGJDQjJZWEpwWVdKc1pTQndaWEp0ZFhSaGRHbHZiaUJwYlhCdmNuUmhibU5sSUNnbElHaHBaMmhzZVNCaGJtNXZlV1ZrS1Z3aUtTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYQ0p6WlhKcFpsd2lLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1NrZ0t5QmpiMjl5WkY5bWJHbHdLQ2xjYm5CQ1lYSmNibUJnWUNKOSAtLT5cblxuYGBgclxuXG4jIFBsb3Qgb25seSB2YWx1ZXMgd2l0aGluIDElIG9mIHRoZSBtYXhpbXVtXG5cbnJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAxcGMgPC0gcmVzdWx0c091dEFic0RpZmZzLmNvbmltcCB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXNfdG9fY29sdW1uKCdNZXRyaWMnKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyX2lmKGlzLm51bWVyaWMsIGFsbF92YXJzKC4gPiBtYXgocmVzdWx0c091dEFic0RpZmZzLmNvbmltcCkvMTAwKSkgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbl90b19yb3duYW1lcygnTWV0cmljJylcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEFic0RpZmZzLmNvbmltcDFwYykgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dEFic0RpZmZzLmNvbmltcDFwYyksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wMXBjKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s5XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# Plot only values within 1% of the maximum
resultsOutAbsDiffs.conimp1pc <- resultsOutAbsDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > max(resultsOutAbsDiffs.conimp)/100)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbsDiffs.conimp1pc) + geom_col(aes(x=factor(rownames(resultsOutAbsDiffs.conimp1pc), levels=rownames(resultsOutAbsDiffs.conimp1pc)), y=CondPermImp), fill=mycolours[9], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkJzYjNRZ2IyNXNlU0IyWVd4MVpYTWdkMmwwYUdsdUlERWxJRzltSUhSb1pTQnRZWGhwYlhWdFhHNWNibkpsYzNWc2RITlBkWFJCWW5ORWFXWm1jeTVqYjI1cGJYQXhjR01nUEMwZ2NtVnpkV3gwYzA5MWRFRmljMFJwWm1aekxtTnZibWx0Y0NCOFBseHVJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ2NtOTNibUZ0WlhOZmRHOWZZMjlzZFcxdUtDZE5aWFJ5YVdNbktTQjhQbHh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ1ptbHNkR1Z5WDJsbUtHbHpMbTUxYldWeWFXTXNJR0ZzYkY5MllYSnpLQzRnUGlCdFlYZ29jbVZ6ZFd4MGMwOTFkRUZpYzBScFptWnpMbU52Ym1sdGNDa3ZNVEF3S1NrZ2ZENWNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJR052YkhWdGJsOTBiMTl5YjNkdVlXMWxjeWduVFdWMGNtbGpKeWxjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEVGaWMwUnBabVp6TG1OdmJtbHRjREZ3WXlrZ0t5Qm5aVzl0WDJOdmJDaGhaWE1vZUQxbVlXTjBiM0lvY205M2JtRnRaWE1vY21WemRXeDBjMDkxZEVGaWMwUnBabVp6TG1OdmJtbHRjREZ3WXlrc0lHeGxkbVZzY3oxeWIzZHVZVzFsY3loeVpYTjFiSFJ6VDNWMFFXSnpSR2xtWm5NdVkyOXVhVzF3TVhCaktTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzNVhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjWEZaaGNtbGhZbXhsWEZ3c0lIazlYRnhEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxJQ2dsSUdocFoyaHNlU0JoYm01dmVXVmtLVnhjS1NBcklIUm9aVzFsS0hSbGVIUWdQU0JsYkdWdFpXNTBYM1JsZUhRb1ptRnRhV3g1SUQwZ1hGeHpaWEpwWmx4Y0tTd2djR0Z1Wld3dVozSnBaRDFsYkdWdFpXNTBYMnhwYm1Vb1kyOXNiM0lnUFNCeVoySW9Nak0xTENBeU16VXNJREl6TlN3Z01UQXdMQ0J0WVhoRGIyeHZjbFpoYkhWbElEMGdNalUxS1N3Z2JHbHVaWGRwWkhSb0lEMGdNQzR5TlN3Z2JHbHVaWFI1Y0dVZ1BTQXlLU2tnS3lCamIyOXlaRjltYkdsd0tDbGNibkJDWVhKY2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxuIyBQbG90IG9ubHkgdmFsdWVzIHdpdGhpbiAxJSBvZiB0aGUgbWF4aW11bVxuXG5yZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wMXBjIDwtIHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJvd25hbWVzX3RvX2NvbHVtbignTWV0cmljJykgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlcl9pZihpcy5udW1lcmljLCBhbGxfdmFycyguID4gbWF4KHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXApLzEwMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW5fdG9fcm93bmFtZXMoJ01ldHJpYycpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAxcGMpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAxcGMpLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEFic0RpZmZzLmNvbmltcDFwYykpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbOV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSB2YWx1ZXMgd2l0aGluIDElIG9mIHRoZSBtYXhpbXVtXG5cbnJlc3VsdHNPdXRBYnNEaWZmcy5jb25pbXAxcGMgPC0gcmVzdWx0c091dEFic0RpZmZzLmNvbmltcCB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXNfdG9fY29sdW1uKCdNZXRyaWMnKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyX2lmKGlzLm51bWVyaWMsIGFsbF92YXJzKC4gPiBtYXgocmVzdWx0c091dEFic0RpZmZzLmNvbmltcCkvMTAwKSkgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbl90b19yb3duYW1lcygnTWV0cmljJylcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEFic0RpZmZzLmNvbmltcDFwYykgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dEFic0RpZmZzLmNvbmltcDFwYyksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0QWJzRGlmZnMuY29uaW1wMXBjKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s5XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuYGBgIn0= -->
```r
```r
# Plot only values within 1% of the maximum
resultsOutAbsDiffs.conimp1pc <- resultsOutAbsDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > max(resultsOutAbsDiffs.conimp)/100)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbsDiffs.conimp1pc) + geom_col(aes(x=factor(rownames(resultsOutAbsDiffs.conimp1pc), levels=rownames(resultsOutAbsDiffs.conimp1pc)), y=CondPermImp), fill=mycolours[9], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qY3NJbmRwWkhSb0lqbzRMQ0p6YVhwbFgySmxhR0YyYVc5eUlqb3hMQ0pqYjI1a2FYUnBiMjV6SWpwYlhYMD0gLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjcsIndpZHRoIjo4LCJzaXplX2JlaGF2aW9yIjoxLCJjb25kaXRpb25zIjpbXX0= -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFJWkNBTUFBQUE3aGdPc0FBQUJ2MUJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qcXROanNobUFBQm1BRHBtQUdabU9wQm1aZ0JtWnJabWtOdG10dHRtdHY5dVRVMXVUVzV1VFk1dWJrMXVibTV1YnF0dWpvNXVqc2h1cTZ0dXE4aHVxK1NPVFUyT1RXNk9UWTZPYmsyT2JvNk9icXVPamsyT2ptNk9qbzZPanNpT3E2dU9xOGlPcStTT3lNaU95T1NPeVArUU9nQ1FPanFRT21hUVpnQ1FacENRa0RxUWtHYVFrTGFRa051UXRwQ1F0ditRMjdhUTI5dVEyLytyYmsycmJtNnJibzZyamsycmpvNnJqcXVycTI2cnE2dXJxOGlycStTcnlNaXJ5UCtyNU1pcjVPU3I1UCsyWmdDMlpqcTJabWEya0RxMmtKQzJ0bWEyMjVDMi83YTIvOXUyLy8vSWprM0lqbTdJam83SXEyN0lxNDdJcTZ2SXlJN0l5TWpJeU9USXlQL0k1S3ZJNVAvSS84akkvK1RJLy8vYmtEcmJrR2Jia0pEYnRtYmIyNURiMjdiYi83YmIvLy9rcTI3a3E0N2txNnZreUk3a3lLdmt5TWprNU1qay84amsvK1RrLy8veTh2TDM5L2YvV3NEL3RtYi90cEQveUk3L3lLdi95TWovMjVELzVLdi81TWovNU9ULy83Yi8vOGovLzl2Ly8rVC8vLzhHSVZxUUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzJkajU4VHgzbkdEM0RkdEVsWjVNaVY0OFRwRVd3NFczSlRVcE9lRVVtYXhrMXNHUmNIQnhCTjNDYm9jQTdYS1lna2JWaHdVcXhRb2pNcUo3Ui9jT2Q5WjNhMStubmEzZG5SelBCOFA3YWtXODJ1WHUwOHpNN3V2by9lalFpQTB0bFlkd0RnYVFBeUF3YUF6SUFCSUROZ0FEZGs5bWZBV2JnREhaSFp1Z01BZVlITWdBRmNsOW1ENHBzdHZna0VjZEFXSURQZmU5aUtJQ0F6MzN2WWlpQWdNOTk3MklvZ1hKZlovd0xiV054MWtCblF4dUt1Zzh5QU5oWjNIV1FHdExHNDY3TEliTmdJcXIwd3FIU2p3VGZhOUdmMWw1ZHAwVlN6blN1dElBaU90YU4rVVBuVlR4cmlSVFJxcVpYRUpvS2dOclVDYnkzOUtVRlFqNFovMjRYTUhFT1B6S0xoYVNHcGU2TDdQLzlXUFlyQ3B0QUhMNW9XRFMzY2F3OU85b2FOK3ZCZG9hci8rN3Q0cGRINTdxalZuRnlEMzBoOXlobHFOU2RXeU14eWRNdnM0NzRZdytoL3VVaU1Wa0gxZnFQZVA5WVdyNDZSelBiYTBWMGVvNFkvRnNQU0gvNGxYb2tFRk5abCsrcEhRVDBVd3h5LzBUblc3b2hsWXF5VE1oUGJHSHk3SWQ3bCsrWVBIdkFKODRQVTg3cjNLWmhob24vVWN3R1pEVC9oUTFxZmptMHNzN0FwdE5PdlJ6dnRrQjdFY1U4Y0txL3ppRFQ4b05NYy9jZjFlQ1U1bXNYdHIzZUhuNmczV0pyOThkcGg5VE54cE4xcHAvNUpUTEx1ZlFwbW1LZVp2RElUaXVtTDJSTWYrTUttbEpsUXcyQ0xOYkpEbzVnY3phUkVoaDhNVHY3UGZ5WXJpWEZNek0yNC9lajh6ZDN0ZThuV2R0cTdZa3dUVXowYXpWck4wWVhlWUZ1TmlKQ1pHMmlTMmVqZE5rdnREK0tJV1l2NnphaGZwejhIMjZINHF5NVUwYW04WHhmajBIMWF1Q1htWnRUZ2c5RzcvOUFUTXBNcnlWa1h0NC9DazdkYVlsWW0zNGdHcjF5aVRmTGNMT3BBWmc2aVNXYlI0SGpBMDY4bURUdS9mem1vM0d6d1NTWE50WHAwaXRpa2g3TjBwaW5hOUdtaTFRaWEvWG9ZSEh1WlYzcnVPSjJvOGx5dUp3WTZjUVNPdDlhallWSnNQM2llTmxudDlZTm1SMnkrQnBtNWd5NlpsYzNuWXZKMmNjNXk1SnM1aTQweUMvbDYyeXk0ZGU1c0VEYktiQkdRbWJOQlFHYSs5N0FWUVVCbXZ2ZXdGVUc0TGpQZ0JKQVpNQUJrQmd3QW1RRUR1QzR6cXllK0NDTEdkWm10Kzg2S3JlVGF3WkFaQVptdFRxNGRESmtSa05ucTVOckJGc29zZ3lXZ1JtKzJaV0lIUGRiaEJTaWQ3QjFhS3ZsSHN3eVdBSDV6Y0tJYkRWOXZQKzZKQmZBQ2xFMk9EaTBURFRJNzJCTEFiNGFrSW5vWVhJSVhvSFNtOTlPYW40dkw3RUJMZ0ZoSWIzWm85T3JYb2s1UWd4ZWdkSEowYUprVWxObHFsZ0IrTXhuTldHUHdBcFJMTGpGWWVBcVF4UkxBYjlJVW4rWm5VYlRiZ3hlZ2JISjBxSjB5VzkwU1VOdDdtYzlJK1V5ekk1ZkRDMUF1ZVRyVVRwbVZSaFl2Z05XM1dCQkVqSTB5eStJRkFFNWdvOHdXQVprNUMyUUdEQUNaQVFPNExqT3JKNzRJSWdZeTg3MkhyUWdDTXZPOWg2MElBakx6dllldENNSjFtUUVuY0YxbTY3NnBZd0RqKzdrRUlEUHJNYjZmU3dBeXN4N2orN2tFTXNsc1R2NS91ek9SMWo5TTdBQ29DNkNMMWZyR3AxT0EyZnovS3hmdW4vN3M0bFNMQ0hVQk5MSmkzL2dvczNIK1B5L2p6REZPMmsvc0FLZ0xvSXNWYys0ZkZNL1ovMlBoblA4L0xsaWVUMmFwL0g5ZVJsbjlyM0hTdmtySlJsMEFmYXpZTjc2TlpwUDUvN3lNcy9vNW16cXhBNkF1Z0M2eWRMT3RaSlBablB4L09acXA5SDhwczhGMmlMb0ErdERSemVzbTR3V05tZnovcm5oUmwzTXpTdHAvWHRvQlVCZEFJMXI2ZWMzWWVOMHNpeGRnM1Jvd1FObTcyd1EyeWd4MUFid0x3a2FaTFFJeWN6WUl5TXozSHJZaUNNak05eDYySWdqWFpRYWNBRElEQm9ETWdBRWdNMkFBMTJWbTljUVhRY1JBWnI3M3NCVkJ1QzZ6ZGQ4SktrVHFlMEJtMWdDWkxRTXkwNFRQTXZNY0V6SmJWcW1DbG96WW5ISjViRXNacnlXdEo4MTBySk9zV3ltRktIV3ZXNFdSMFd4SnBRcGVJczBwWTF0S2FpMUtiK3dyc3hSazVpeG1aVFpkcVVJdGtlbmNzUzBsREk1ZGFWWGZxNDlsUmxtTlBscE8xbDhXd3RTelVabk5WS3FJalNac0wwbHNLVkcvT1R6OWszZzBheVNPVHA5SE01d0NGR2RocFFxMVJJMW15cFpDR2QyeHlZQkdNM0lUcEdLZFpOMUtLVVRxZTBCbXhWbFlxVUl0NFQrMllsdks5VzYvT2RqYVVlNFZjZEFNNitsWUoxbTNVZ3FSK2g2UW1RWVdWS3E0SXBkOCtadGtUbmxUMlZJcTd3ZGl5ZG5XYzhmbCtXZFFIN1Zrempaa3RneklUQk80ZGU0c2tCa3dBR1FHREFDWkFRTzRMak9ySjc0SUlnWXk4NzJIclFnQ012TzloNjBJQWpMenZZZXRDTUoxbVFFbmdNeUFBVnlYMmJydkY4VVkzeGx1QVpucHdmak9jQXZJVEE5RnZ4dE9BV0tXcGZTbm9Mb1ROYTVNSVJNek9MMS9wWUlUTG5zQlZ0bUJ5NERNRXBhazlJK1JDL25Od1lsdU5IeTl6VDlvdkVyQkNaZTlBQ3Z0d0NWQVpna0xVL3BsSFlsNm4zUEt1TzRFdjhucGlPSkJ5ZXpBZ2hNdWV3R200OHI2L0tEZytwRS81U2NXcHZUSGRTUjIyckx1aEZoSWIzWm85Rkkvejc1S3dRbVh2UUFyN2NDbmw4d3ltNWZTejNVa1dDcHgzUWwrYzJJMFc2SGdoTXRlZ01JZDRUZFpaTFl3cFQrdVB0R3B2Sy9xVHZDYk5NV24rVmw4MER5bzRJVExYZ0F0bmVFdm1TNW9MRWpwYjNNZENUb25iS3E2RTdVOXJrd2h6elNwc1poOHJWQnd3bUV2Z0s3KzhCUTdycHN0S2pneENXNmRPeHVFSFRKYlZIQmlFc2pNMlNEc2tObHFRR2JPQmdHWitkN0RWZ1RodXN5QUUwQm13QUNRR1RBQVpBWU00THJNcko3NElvZ1l5TXozSHJZaUNNak05eDYySWdqWFpXYkYzVW1yZTlpS0lDQXpEVElEQndHWlFXWUd5Q1N6blRaYlNRYmJNKzlNdUVkaU04cG5yZUM1NDlKSFFyLzY2WWpsWkxWZEFUS1JSV1pDRm1RbHVkS3F6N3cxNFI1SnpDamkvOWhING83bFpLVmRBYkt4dXN6WVRjSTlQdmgybzBMR2tIYi8xSWticnpZcXlvUXlaTk1KTFl2TktDUXo1U054eDNLeUZxc0dMQ2N4N0NaaEs4bmdSRmU4aXZwblcrSzRLQVJYVis0UmNnTUlnVWkvQ1IvdEtNRmYra2pjc1p5c3NDdW1zZm9rejRvZ1ZwY1p1MGtpUGlSdWs2K0VjNnBKV29NdDVSNWhzZlQ1UUNqTktEU2FLUitKTzVhVHJIczJzcnlIclFnaTAyZ1dWajl0U25QSjNUWVpRNlRNeEJ2U1BjS21reHYxc1JtRlpTWjlKTzVZVHJMdlc3dDcySW9nVnBjWlcwcllTdEtwM0d6VVFuRklmSy9TRlVNU25WRTJsYThrYUhZcTNUMXBScEZubXRKSEluREZjcEp2LzRLbEZMMXUxcDg5Njh4QmZzc0pjSUtDTWh0ZjVpcEVmc3NKY0FMWDd3SUFKM0JkWmxaUGZCRkVER1RtZXc5YkVRUms1bnNQV3hFRVpPWjdEMXNSaE9zeUEwNEFtUUVEUUdiQUFLN0xERGVYbkFBeTgzMzJiVVVRa0pudlBXeEZFT1hLYkU3Rmlpc3RsWGdSQkxYQjhXb3Y0dlFOenZwZmp4ZkE5eDYySW9pU1I3TUZGU3YyMmpLYmRrUjVaL2U2S29GeFBWNEEzM3ZZaWlCTXlXeWlZc1ZlT3k1SDhlTldjeXl6OVhnQml1Ymc0M21GWjBNeVMxZXNhSEFoSnptYVhSeSszazVrdGg0dlFGbGZIYVF3SWJPWmloVTBtckUzWUhReEdwemNUV1MyRmk5QVdWOGRwQ2haWm9zcVZteEpid0NseklhVnJzcjZYNDhYb0t5dkRsS1VmVUZqcG1MRkxYYWd2OG5sS01SeW9hRHJzb2pGNVRWNUFYeWZmVnNSaE92WHphemV1UWdpQmpMenZZZXRDQUl5ODcySHJRakNkWmtCSjRETWdBRWdNMkFBeUF3WXdIV1pXVDN4UlJBeGtKbnZQV3hGRUpDWjd6MXNSUkN1eTB6RFBVelBlOWlLSUNBellBRElEQmdBTWdNRzBDNnpPUzZUeTJ3ZWlXUzlDZmtMMjUreHN5U2tKSjlBL1lTZUtjdUp2cThLVmtiL2FMYkFaVUx3a3VHWmFIU2hSMm1OZzYxb1J6bFFlRVV6bHBPWlRYZysrN1lpaUJKbE51RXk0YmQ0eWZBTTVjeXk1VVFsMCs2MVIyd3hNV001bWJGRVBDaHNxVUQ1aWZpNWVQbUpWWm5uTXBFeVUvVW0yRU5DTXJ2YnBpUnNkcUN3eGNTTTVXUm1FNTRQSkZZRVVaTE1abHdtOUVJdW1UZWE4Uzl5RzdLY3pHekM4eDYySWdqOU1sdmtNdGxXUzhSUk1KSXlTK1ptZ3kyMm1KaXhuR2o4cW1CVlNyaWdNZU15a1phU0szTEpjOGZKWmlJTFQzVFVtV1p3dHNVV0V5T1dFNTFmRmF5STY5Zk5nQk5BWnNBQXJzdk02b2t2Z29pQnpIenZZU3VDZ014ODcyRXJnb0RNZk85aEs0SndYV2JBQ1NBellBRElEQmdBTWdNR2NGMW1HdTR6ZVQ3N3RpSUl5TXozSHJZaUNNak05eDYySW9qU1pYYVFOeURWc0hRdndQd0lQZTloSzRJb2Z6UTd5QnN3YmxpNkY2REVid21XWWxCbWk3d0JOSXAxZ2xPWHl2Y0NtQ3UzZ09mSlozTXlXK1FOdU52dTEvdDFTdVV1M1F0UTRyY0VTekVrc3lYZWdFNFExSGJhTExPeXZRQWxma3V3bFBKbGRwQTNnSTZub1J6Tnl2WUN6QS9RODltM0ZVRVl1S0N4M0J0UXZTK09pblErK1diNTVTZm14K2Q1RDFzUmhEWFh6Y0xtZ1UyUUNPUnNFTGJJYkhDODBqMm9EV1RtYkJDMnlHd1ZjT3ZjV1NBellBRElEQmdBTWdNR2NGMW1Wazk4RVVRTVpPWjdEMXNSQkdUbWV3OWJFUVJrNW5zUFd4R0U2ekxEVFhNbmdNeUFBU0F6WUlCTU10dHBVeXAvZTdBOTgwNDZxMy9Vb3BRTDBVN21adEJqblZQNmEwdFdLdGtMc05yM0EyV1JSV1pDRnBUS2Y2VlZuM2xySXF0L2VMckhLZitERTkxbytIcjdjVThzR0ozdmpsck5KU3VWNndWWTlyVThuMzFiRWNUcU1oT0QxTEUyOS9qZzI0MEtaZXkzKzZkTzNIaTFVVkY1L3NOR3ZjL0xicDd1Y1R0T1I2U0h3U1g1eTluMFM3UFYrNDNxUjBFOUZHdXhGYUJ6ck4yaG5ETXhBcGJvQlZpV3EvNmdjSzQ3NmdMRXo4WHJBZ2k5N0xRNWxWK01VanYwRyt0blcxd1VSN3docy9yN29vVVFDQTFlM0s1RG81ZlFTRWNjTHVWb0ZqYkZaa1N6NjkzaEozR1pBUHJCZGxxelhhWVhZTmtYODN3Z3NTS0kxV1VtbEhXWDVsTGllTGd0WGcwNTJaV2tOZGhTV2Ywc2xpU0pQMndtb3hscmpPWm1ZaHVEcmRINW03dmI5eEp6d0U1N3Q4Yy9yRjJtRnlEUHJsa2RxM3ZZaWlBeWpXWmg5Vk1TQU11TU12YWx6TVFiTXF0ZkxPOVVickErT09XZnB2ZzBQNHVpWGE3UkpMWlI0eFZPM3FMcG5Wd3BHcnh5aVJ3Q1FsQWxlZ0V5N3krZ2xkVmxSdWQ4emIyWGcwcTNVN25acUlWQlVIMnYwdTF6T2Jra3F6OW9kaXEzeEprbXQxTm5taDJ4Vkt4TVV6aWFtNG16eHcraWU5M1lITkFqMTVOb0dEeGZwaGRBNHg0RE9TaDYzYXcvZTlhWmc4KzdFVlhZT1FBa0FqbExRWm1OTDNNVklsUTFOWmNEbVRtTDYzY0JySjc0SW9nWXlNejNIcllpQ01qTTl4NjJJZ2pJelBjZXRpSUkxMlVHbkFBeUF3YUF6SUFCSUROZ0FOZGxadlhFRjBIRXVDNHpEYmN4UGU5aEs0S0F6SHp2WVN1Q2dNeDg3MkVyZ3RBcE0vS2F6SDJEZjBJN2JSNVJpNGgrVVBuVkplbEswV3M1MGZLVmdCNjBqbWJ4Ny8wUHo4eStkU1psSGttOVB6aEpIZ0oycFdpMm5PajVTa0FMdW1YR2RwUytISnY2cDA2OC8wYndSa0EvMEU2TDJEekNWcFdBL0NTYzQzaFg1ZjhNTGtXYUxTZEZMUng0MXZpc1dXWmtRZGxwZjdwRlJTVmVhMVh2TjJyOTJtQTdyUGJFb3RnODBtK0tQOFFpOXA5Y2w0TVh1VkkwVzA3MGZDV2dCZTJqR2ZrRUJsdGNWSUtzQWsyeURvd3U5TVFpYVI0aFE0bjRReXhpLzhtT0dzMUc1N3VhTFNjclIrMzU3TnVLSU1xU0dSV1ZtSkVabVVla29ZUmt4djRUMGhBbmV1LzJORnRPVm83YTh4NjJJZ2pkWjVwc1J4R1RlanJXa2Z1aytsNFFWRzZRNStSVmFSNzUrNEM4S2ZWKzBKVCtrejRaNjVRclJhdmxaT1d3UGU5aEs0SncvYnFaMVRzWFFjUzRMalBnQkpBWk1BQmtCZ3dBbVFFRHVDNHpxeWUrQ0NKbVJtWVBONDQrZXZabzRjOHJBOGpNMlNDbVpiYi8wdjViMGY2TDF3cC9ZQWxBWnM0R01TMnpKejhRTW50NDVFN2hEeXdCeU16WklPWWNORGMyRGxzNW1PRVV3RjNtbndMOHhrcWRyWDZ6eVhob1lEa1RNdHQvWVVOaTUzQUdtVG5MNUdqMm9acVRZVFFEV3RHZG9USDNqUU85QU9JOXJWNkFUR0Y3UHZ1MklvZ1ptZEdCODVtY0g1TGJDM0N2SzJTbjBRdVFLV3JQZTlpS0lHWXVhSnc3S3M0MmMxNmVMZUFGb0xvQStyd0FtWExWSHhUT2RVZjVpZmg1MWZJVCsxK2w2Vm5PdVZsK0w0RE1udFhtQmNnVXRlY0RpUlZCekJ3MGYvMk9lUGhwWHBubDlnTDBtNUZHTDBDdTZFRjV6TCtnVWVDZ21jOExRTWRGalY2QWZPR0QwcGg3UWVQUjEzTnRLNzhYSUJTbmsyOXE5QUxrQ2grVXg4eEI4NnBibDJlQkU4eG1hRHo1UWJULzFyckNXUXB1blRzYnhJek0zb29lYmo3NXJqT2ptZFU3RjBIRXpCdzBieCsrZGpYMzlkbHlnY3ljRGNMMURBMnJkeTZDaUptOG9QSGlOWGxOQTZjQVFDc3pvOW1IQmU0Q2xBeGs1aXd6cHdCMjJnQVl5TXhaWmtZenZzK0UwUXhvWldZMGMyeHVadlhFRjBIRXVENDNzM3JuSW9pWXVSYzBjdDdUTEpzVjcybG0zYXpuUFd4RkVLN2YwNFRNbkFqQzlYdWFTTTl3Z2lYM05ObnpFUWFWYmpUNFJwdityUDZ5elErRDdabk5jQXNGNVFOeHUyaHdQRGpXWmhjSk8wZW0vU2pwbFdqN21pd24yWGNDS0p0bDl6UTVmWlh5RXovL1ZqMkt3cWFRQlQxY2FkVm5Oc010WXNSNjNIaHdvaHNOWDIvVHIyVFQvNk5XYzhsS1lqVk5scE1zWHgrWVlmNDlUVWtpczQrcG83bXorWUZ0Sld3ZE9YWGl4cXVOaW1veGJOVDd2T3ptNlI2MzQ2eFg4YUJrSmw1U0p1UDlSdldqb0I2S3RYaXpuV1B0amxnbXhqcGRsaE1ieWkzZ2VmSjVGWmtOUDJGWFpUK295d2N4U2xFS2YvOXNxMG9XRXlFazJhSmZqM2FFUUtnd0RyZnIwT2dsTkRJZXpkaGwwcWRNN2VFbmFpWFJlSzlOYTdaMVdVN21mcGNsZUQ3N3RpS0l5VnZuTDAyOHgvMHN1cjBmVDQvQ0pqOXd2ci84ZlhXUzFtQkx0V0N4SkY2UnNEa3htclZvYnNZdWs5SDVtN3ZiOTVMTjdyUjN4WmdtNW1HNkxDZTZkbzNKTGZnZXhLVE1YcGk0bERGNnQ4MTkvWWNlalVsOTZudCtZSm1STVVUS1RBaEp0aERMTzVVYnJBL1pUa3p4YVg0V0h6U0Y1bXE4d3NsYk5MMlRLMFdEVnk3UnR2VlpUblR0R3BOYjhEMklTWm05eFRlYkVsOFRueW1LY2FoSm84M3ZYeFlublh2MHdMYVNNQWlxNzVIek54QkhUdG1DWmxoTjhwa0VOVzZuempUVld6U0ZreTZUNFFmaVVCeHZ0a2ZqcFdnWVBLL0xjcUpyMTVqY2d1OUJ6SnViM2M1d2ViWS9lOWFaZzgvRmNIZnh3RmE0ZGU0czA2Tlo5T1JjbHBzQTQ4dGNoUkJENDdIMmdhMGdNMmVabnB0dGJHeXVNWnJsUUdiT01pa3ppM01hSThqTVlaWmRON01OSkFJNUd3Ums1bnNQV3hFRVpPWjdEMXNSQkdUbWV3OWJFWVRyTWdOT0FKa0JBN2d1TStTYk9RRmtCZ3dBbWZrKys3WWlDTzB5bStNZ3VNeFovWkZNL3Vma2Zzclk0QnhKU3VkUTl6UFg1Z1h3dklldENFTC9hRGJIUVJDWHBlQWx3elBSNk1JdTFadUlQbGJOOS9pMiticThBSjczc0JWQmxDaXpzWU1nbGhrdkdaNlJPVDg3WkpQcXlTVHRFZWYrcjhrTDhLQndyanZLVDhUUHE1YWZLTTRjQjRHU21VcitWOG45dTczSFBUYXEwREdUYy8vWDVBVUE1Vk9TekNZZEJFcG1jb2thelRndm16d0ZOSnB4ZXVTNnZBQ2dmUFRMYkk2RFFHYjFxeVd5TGhnZkNNa2h3Tzl0Y2U3L21yd0FvSHhLdUtBeDR5QzRTV2VMWXI3RlM1NDdUdWVZVkcraUdjcDJnck10enYxZmp4Y0FsSS9yMTgyc1ByOUNFREdRbWU4OWJFVVFrSm52UFd4RkVKQ1o3ejFzUlJDdXl3dzRBV1FHREFDWkFRTkFac0FBcnN2TTZva3Znb2lCekh6dllTdUNjRjFteURkeklnakl6UGNldGlJSXlBd1lBRElEQmxnaU0xM2xKOFJqSGVVbm5tNldqV2FheWs4OHBsOXdSL21KcDVxVlpGYXcvRVEwdUdSeitRbFlUdFpyT2RGVmZxSVQxRkIrNHVrTzRrQ1phU2cvSVRXRzhoTlBjUkRMWkthci9BU1o1VkIrNHFrT1l1a0ZEVDNsSnpwaTZkRGk4aE9nZklwZU4wUDVDYkFDQldXRzhoTmdGVnkvQ3dDY3dIV1pXVDN4UlJBeGtKbnZQV3hGRUpDWjd6MXNSUkNRbWU4OWJFVVFyc3NNT0FGa0Jnd0FtUUVEdUM0ejNHaHlBc2pNOTltM0ZVRkFacjczc0JWQm1KZFp5Z0hBOTkwNVpUSmhtQzVWTVFWazVtd1E1bVUyZGdDTVprd0Z3ek5KRFlFcG93QUJtVGtiaEhtWnNRTWdmQ040STJqMlR4MnYwRTlwazZtSkRRYjlvRDVacXFMQitXcW5McTNxQlNpYXk0N25jcDZOeTR3ZEFNTkdyVjhiYkFzbDlldGh0WGUzM1grdFZlbnV0RC9kbWl4VklkNGc2MEFvTFZFNDAzUVc0ekpUdG9FbTVYcXprV0Iwb2RjSmdocG5mZzhTbWNsbTlNWk9Hekp6SHVNeWk0MEZTbVpoWGNpTVRIcHBtU1dsS3VpTkVLT1oreGlXbVhJQWZQbWIxZmVDb0hLRDNFNTlkZ3JVMkdBd2JMeWFMbFZCN29JYStjNUxsWm5uczI4cmduRGl1dG1TMGN6cW5Zc2dZbHlRMmVDNE5CeEFaczRHNFlMTVlpQXpaNE53WFdiQUNTQXpZQURJREJnQU1nTUdjRjFtVms5OEVVUU1aT1o3RDFzUkJHVG1ldzliRVlUck10TndTOVB6SHJZaUNNZ01HQUF5QXdaWVhXWjV5d1J3eThzTi9sSEg1NDdIdi8wZnl0OUxwcDkyVkw5dHBxTXVRS2F2RHN5UllUVExXeWFBVzlMS2xJNnRmdnQvc0VVL2QveXgydW9laTFKRFhZQlZ2elV3VEI2WlpTd1RjSU1heFRLTGYvdWZmZ0paREhNOStZUHRJNjREVUx3dVFLNWM5UWVGYzkxUkZ5Qit6bE1YWUlxOFpRSzRFUi84NkVmWjVXLy8zMjFIZyszSFBWWWpIVE81RGtEeHVnQ3JmSTBaUEQvSnN5S0lyRExMVVNhQUc4V2ptZnJ0Zng3TnhCdDMyenlhc1dWVFExMkFMSHNrd2ZNZXRpS0lERExMV3lhQUd5VXlrNy85TCtkbVZKZUNjLyszdUE1QThib0FPWGFNOXoxc1JSQlpMbWprS3hQQWpXN0daNXJxdC8rN0hYRWdEZVhtQkdkYlhBZWdjRjJBUEhzR0dFRHpkVE05WlFJV2dBd05aOUVyTTAxbEFoWUFtVG1MNjNjQmdCTzRMak9ySjc0SUlnWXk4NzJIclFnQ012TzloNjBJQWpMenZZZXRDTUoxbVFFbmdNeUFBU0F6WUFESURCakFkWm5oMXJrVFFVQm12dmV3RlVGQVpyNzNzQlZCRkpIWmpoK1dFODk3MklvZ0NzZ01saE93S3JsbE5tcVJ5Y1FIeXdtZXkzL09MYk9RTXYyOXNKeUE4c2t0TTZHc3UzU3NjOTl5QXNxbnlHZ1dWaitGNVVUUEZud1BJcmZNdUNxRUY1WVR6M3ZZaWlBMFh6Y3piam14ZXVjaWlCaTlNak52T2JGNjV5S0lHTmZ2QWdBbmdNeUFBU0F6WUFESURCakFkWmxaUGZGRkVER1FtZTg5YkVVUWtKbnZQV3hGRUpDWjd6MXNSUkN1eXd5M3paMEFNZ01HZ015QUFWYVhXZDd5RTZOV1VPTjI4a2RGNlpIS0NtajNBbVQ3M3NBb0dVYXp2T1VueEhyY2VIQ2lHdzFmYnovdWlRVWxlQUZXL2NZemVENzd0aUtJUERMTFdIN2k1dWtldCtQc1JIb1lYSXBLOEFMa3psVi9VRGpYSGVVbjR1YzFscCtnOWFoZGg0NTlRaktkb0JhVjRBVlk1U3ZNeGZPQnhJb2dzc29zUi9rSktaZXdtWXhtby9ObGVBR3k3STBKUE85aEs0TElJTE84NVNmRU9yS2RPQytnK1ZrVTdmWks4QUprM3lmQUdGa3VhT1FyUHlIT0pXdmNUcDFwZG5nczFPOEYwTFpMZ0g0MFh6ZEQrUWt3RDcweVEva0pNQmZYN3dKWVBmRkZFREdRbWU4OWJFVVFrSm52UFd4RkVKQ1o3ejFzUlJDdXl3dzRBV1FHREFDWkFRTkFac0FBcnN2TTZva3Znb2h4WFdZYWJtbDYzc05XQkFHWitkN0RWZ1FCbWZuZXcxWUVrVjltY3l3b2w5a2xNc25PbFNuTGlieTlydDF5a3VNYkFHTVVHTTNtV0ZCa3dtc2F1VEJ0T2FGY3hraS81U1RQTndDbTBDR3pzUVZGS21QVW9weEdNcHh3allyaGxPV0VaS2JmY2pLMUhNOVdQV3VRV2NxQ0VxZjlDeld4RTRCclZFeGJUa2htK2kwbmViNEJNRVZSbVUxYVVLUXl4T0Z3c01VeTR4b1YwNWFUWkRTTGRGcE84bndEaWVlemJ5dUNLQ0N6T1JZVTZSSUphOUtJMHFtOFR6VXE3azlaVHNaek01MldrenpmUU9KNUQxc1JSSkVMR2pNV2xKc05QbTJrdVZtUHkxUFF3OWtweXdrMTd1bTNuT1Q2Qm96blBXeEZFSzVmTjdONjV5S0lHTmRsQnB3QU1nTUdnTXlBQVNBellBRFhaV2IxeEJkQnhFQm12dmV3RlVGQVpyNzNzQlZCUUdhKzk3QVZRYmd1TStBRXJzc01HUnBPQUprQkEwQm13QUFseW16bk1pVnNVQjVRZW1uc0dmaXNGVHgzWEdYLzM0cnRBYU9VTTBDOHFrZWNNRGtaNnlUSTBIQWlpUEprUmk2QU05SG93a2NwRndvbGo4V2VBZkYva3YyZnBLQ2xuQUZuZU9sc3JKTkFaazRFVVpiTXBBdmd6T2lpRUpyMEJZanhxZDRYLzhXZUFaS1p5djVQMlFQR3pvQXpLdW1ScTF1VTZRVjRVRGpYSGVVbjRtY041U2N5SVYwQWxNYy91dENUdm9CbUZIMjZwVHdEZkRqdEpkbi9pVDBnNVF6Z1Z5Rlh0TmlSRmFBd21qa2JSRmt5a3k0QU9acEptWkdYUkJ3WW85Z3pRS09aeXY2ZkdzMmtNMENNWnEybVdKbkxEcVJpblFTbkFFNVE0bWdXVnUrZkVhK2tVanFWOTVzc3M4UXp3REtUMmYrVGN6UGxEQkRyZGlBelR5aExablJZZkxNaHJlWE4yQmRRR3picWU5SXpJTTgwVmZaL043WUhURGdENkxEYXB3SVdOeHUxVkt5VFFHWk80UHAxTStBRXJzdk02b2t2Z29pQnpIenZZU3VDZ014ODcyRXJnb0RNZk85aEs0SndYV2JBQ1NBellBRElEQmdBTWdNR2NGMW1Wazk4RVVTTTZ6TFRjS1BKOHg2Mklnakl6UGNldGlJSXlNejNIcllpQ01nTUdDQ1R6T1pVbkdqencyQjdzcUd5am93bzJhZmFpOEtBcVUxdGpqZVMybmp1OGhPclJRL1dSN2JSYkU3RkNYcTQwcXJQYVNpdEpTTjY3MTUzZEw0N2FqVW5HL0ZHVXV2a0xqK3hZdlJnYmVTVTJiamlCRCt3TFlSK3NiaC82c1NOVjhWcmJzaFpzcU1mQzNXeHpLS3dMZ3RUVkQ4SzZxRVl0SGdqbldQdGpsZ214cnI4NVNlS2wwZkFjN25QK1dTV3FqakJENE1UYkF2cG4yMnhSU1NVRWhsc2tjd3VEbDl2eDZOWlhKamllbmY0aWRvSVovK3pXU0IvK1lrVm8xK0E1N052SzRMSUliUEppaFA4d1BuNlZEWkM2RVg4eC9xS1I3T0wwZURrYnBkbWF6VlptR0owL3VidTlyMWtJenZ0M1I3L2lIdis4aE5aZHNRc252ZXdGVUZrazltY2loT3lzZ1RKak1wR1NKbkowVXpOelM0S0hWYTYwdHJMaFNtaThPUXRtckRKalVTRFZ5N1Jsb1NnY3BlZnlMWXJwdkc4aDYwSUl1TUZqWm1LRTEydUxNRzJFSEUrV1gydjBoV0RGUGxKMUpubVg3Zm93SHI5Wm9QT1Q3bG9tRGg3L0lBbWEyb2pQUm9keFdhRDV4dTV5MDlrM2hzVGVON0RWZ1NoLzdwWmYvcXNjd1UrNzBZMDZoMEFicDA3aTNhWmpTOThaU0JVUDlDeUhNak1XVnkvQ3dDY0FESURCbkJkWmxaUGZCRkVER1RtZXc5YkVRUms1bnNQV3hFRVpPWjdEMXNSaE9zeUEwNEFtUUVEdUM0ejVKczVBV1FHREFDWitUNzd0aUtJekRLYjV3Zm96Q2I2MHkvTHpoYWFPUFp5dXAwbFhnRFBlOWlLSUxLUFpyTitnQ3NYN3AvK2JDckJJaFJhbkZOb1lxaEtudEFQR052aUJmQzhoNjBJb29ETXhuNEFYc2E1WklrcGdINm1mVTZoaWJpY0JLZDNXK0lGZUZBNDF4M2xKK0puZmVVbjV2a0JhQm5sK2IrbWFrWDA2WmZXNXhXYUdKNlc1U1NvRG9VdFhnQlFQamxsTnVVSG9HV2M1NStZQWtobWN3cE4wR2hHVFFaYzdzUU9Md0Fvbit3eW0rTUhrS05aTFcwS29JUG1uRUlUYVpuWjRnVUE1WlBqZ3Nhc0g0QXFSOGk1V1dJSytEUm96aWswUVdlYTNHVFllTTBhTHdBb0h6dXVtK1gzQWxoOWZvVWdZdXlRV1g0dmdOVTdGMEhFMkNHejFZRE1uQTBDTXZPOWg2MEl3bVc3QkZVQUFBYkJTVVJCVkhXWkFTZUF6SUFCSUROZ0FNZ01HTUIxbVZrOThVVVFNWkNaN3oxc1JSQ3V5d3o1Wms0RUFabjUzc05XQkFHWkFRTVVrZG5CdGdDWnowL3NYSkUvNEJqMWc4cXZmakpPKzVkK2dGRCtWbkxsbG1vVXlYVEllc1NaazVPeFRnS1pPVUdoMGV4Z1cwQ2MrNjljQVh2dHdjbmVzRkVmcC8zem1vTXRTb3I4V0xYZjQ1dm93ek9SL0wzYTZWZ25nY3ljUUkvTUZ0b0NwTXpFMzhmYW5JMGQzWlVhVW1uL2FzMlFFeUFiMVo1TTJSNnhFNEJsRm5zSFVCZkE3V2N0TWx0c0M1QXlDem5WdjBHSHcrczhRQ1ZwLzNKTm9iM0I5bVB5cU1oRzdBVGdWMkgxTTJVdmlIQUs0SEFReFdXMjNCYkFNdHRweTVkaU5KT0tpZFArMVpvOG1vbkZjU1BPK3hhaldZdHl2WGs3cVZnbmdjeWNDS0tRekE2MkJjaDhmakdhaGRYNzlIS0wvQ1BpQUtuUy90V2FjbTZtRHBMVWlKd0FaNktvQTVsNUVrU3hDeG9IMlFLZWIvQ1pJNTAybnFXVFNMSXNrU096a1ZnRHBCK0FWZ3JscGdKcXFwd0ExVjQvYUxKM0lCWHJKSkNaRTBHNGZ0ME1PQUZrQmd3QW1RRURRR2JBQUs3THpPcUpMNEtJZ2N4ODcyRXJnb0RNZk85aEs0S0F6SHp2WVN1Q2NFcG13Rm00QTkyUTJUeXNPUHRFRURITGc0RE1Db0VnWW55VkdYQUl5QXdZQURJREJvRE1nQUZjbFJrN290Wk5QNmgwRDI1VkpySTB6SnAzaGd4aTZjNXdWR1lxNjNiTmZMenVBRGp2ZVAwN2c0MW9TM2VHb3pLTFBRUnJoUjFaYTRaNmVPMDdnNEpZdmpNY2xSazdvdFlkeE9OZWYrMDZveDVlKzg2Z0lKYnZERWRsdHZaL3dJcTc2ejV5V3pPYVJVdDNocU15Vy90MFJETHRqbDlQQkd2ZkdYSTNMTnNaanNxTWJWVHJKbHlscEVISmNMV1lkZStNRHYraXlyS2Q0YXJNZ0ZOQVpzQUFrQmt3QUdRR0RBQ1pBUU5BWnNBQVQ0M01ibTlzSFAzMU8xTUxuM3pubmYydjhFTDFOTUc4WmNuQ1IxKzhzNmpKd2N5dWxuTkRITW1YOWwvWTJCUXZmbnFOLy96Q3RYU1lFMzlsUU95YWY4MGQwZ3hQaTh5dUhya1QzVDQwdmQrdXlpVXo4cHQ0ZHk3N0x4eTVjMENUS1pJUFdmQnBLNjA3QjZIMzIwY2ZpbWdla3RTaUorY09YeHUvcWY3S0VHYU1XS1dBOUtkNVNtVDI2TTlwajhtT1NDSCt5ZExUZ24rMjZ0MEZXK1RSYkdtVFNaSVB5VEZJTEZubHlYZXZSU3l6L1pma2d2MFhVekpUZjJVSU05bXVXR1gvcTNleXJyYUFwMFJtdDQrb0hVYkhUckh2LzIyRC92bHZiUEEvV2ZHOFNmOXlVKytKdzlEaGE5dzVUODV0UENQR2hKL1RndjBYdjMvb1IxOTVoOTk4OU1YdmJUekRuWEYxZ3pkT0s0cjErVTlxK005Zi9ObkdrZDl1SFBuZEM0ZXZpYUdCUDRSV25QTnBFUi9XSHFrVjdzUmJVaTIrZitpZjRuVlY4OXZpWmZ5eEQ1OFJrbjlXSERSL285U2x2c0JYM2hHUmJ4eitPZi8xNURzLzRwaWZwYkV0dGFWa2V4dEg5K01HVjVOZEk3N0w5TC9MdkR4bE1oTmowS05uLzBZb2g3cjFDOWZFSUNjVThOK2tsVVB2cE4rN2ZWUUlTSTRCTkI3OGlSZThmVTUwdTJqSWJ6NTZkdlBKdVUzeDRxRllkbFRLVWZUM0p2MzVWNktoK0Z0MDNUTTArM3VSQkVzZndpdk8rYlNJamxGdnh5dThyYllVdHpnYXhldStMWnNMWlYwOXFqNVdMSmZmOE5IWDFWY1YyeEJ0S0V6K2NQNUx4cXNPdnVNdHFlM3hCMjJxQnJ4ZHVXdkdHeS9NVXlZejJtOVhqOHFPRjYrbGxraE84dS9rUFZMTnBqclVpTjc4OEE0dklNWEZiOUpCazJVamhnSWhDM1Y0dW4yVS82VFhja05DaXVxRkdobzM1MzJhUEJsSnJjQmJpbHRFeWJxeUNZOHg4Y2NxSlR6NVJ5R1ZRK3FmaGZ5NGgyT04wd1p1SjhmVjhaYVNIVUZmVWpiZzdjcGRBNWxsUmM3Tkh2M3c5ak8wN3hiSUxQWGVRekc0eERKNzlJVi8vMkhFQzFTWDgrdXh6TlNCSlJiSHBubzlSMmJKVnFjK0xab3ZzN2hGbEt5YmxwbjZXS1VFTVU1ZDNYeW81SzYrRm8ySzR3OFhHNVpuRXFrdHFSM0JINlFhOEhZaHM1elFtYWFZMFFxNUpYdjNvWmg5blR2OGkwUm02ZmV1cWlOaXNpNHZVRjNPcjRYTTVORkk5QzJQRW5Ud2swZTAvWmVtWmJiL0FuMU9sR3gxNnRPaUtabkpMU1V0NUF4d00xRXN6L2ZqajJWcDhTRnpXbVlQajZiL0VpM2xaQzY5SmZrb1AwZzE0TzNLWFhNTmM3UE1YTjJnZVRNZEV6YkY2MmR1aTEwcUZtMXN5aGY4bEhydnR4dUgvdUx3OTFXL1VCOCtwQVZmNDBieXpWK2NvOVp5YmI1b0lPYlFjdHE4SWFmUllrUGk2V2Y4NnRCZjBwbkNKbS9rMnV5bjNhRzRqbnd2WHVGM2FrdXFCWWxjcmZ1MU9QQkQ3MFRxWStsTVU1NFNxb09tM0tUWXpIODlLMmIyeVY5M2tnbDlha3Zmazl2akQ0cFVnNnZ5L0lJVzRVelRQaVl2SkpqYmtyd0FPNGMvQ2RGOW1OS0ptTDR0MzlKMGd4eVhRUllCbWVsaVhUS0xIbjFwN21LKzhQVldhc0hNVmNOcHBodmdMb0I5aUFuM0VUMkhHRjFiZWlpbkNZcXJmRjY2aEFNYkZBRXlBd2FBeklBQklETmdBTWdNR0FBeUF3YjRmeHN2LzY3K3BQMGlBQUFBQUVsRlRrU3VRbUNDXCIgLz5cblxuPCEtLSBybmItcGxvdC1lbmQgLS0+XG4ifQ== -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAIZCAMAAAA7hgOsAAABv1BMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojm6Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Mjk/8jk/+Tk///y8vL39/f/WsD/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///8GIVqQAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO2dj58Tx3nGD3DdtElZ5MiV48TpEWw4W3JTUpOeEUmaxk1sGRcHBxBN3CbocA7XKYgkbVhwUqxQojMqJ7R/cOd9Z3a1+nna3dnRzPB8P7akW82uXu08zM7uvo/ejQiA0tlYdwDgaQAyAwaAzIABIDNgADdk9mfAWbgDHZHZugMAeYHMgAFcl9mD4pstvgkEcdAWIDPfe9iKICAz33vYiiAgM9972IogXJfZ/wLbWNx1kBnQxuKug8yANhZ3HWQGtLG467LIbNgIqr0wqHSjwTfa9Gf1l5dp0VSznSutIAiOtaN+UPnVTxriRTRqqZXEJoKgNrUCby39KUFQj4Z/24XMHEOPzKLhaSGpe6L7P/9WPYrCptAHL5oWDS3caw9O9oaN+vBdoar/+7t4pdH57qjVnFyD30h9yhlqNSdWyMxydMvs474Yw+h/uUiMVkH1fqPeP9YWr46RzPba0V0eo4Y/FsPSH/4lXokEFNZl++pHQT0Uwxy/0TnW7ohlYqyTMhPbGHy7Id7l++YPHvAJ84PU87r3KZhhon/UcwGZDT/hQ1qfjm0ss7AptNOvRzvtkB7EcU8cKq/ziDT8oNMc/cf1eCU5msXtr3eHn6g3WJr98dph9TNxpN1pp/5JTLLufQpmmKeZvDITiumL2RMf+MKmlJlQw2CLNbJDo5gczaREhh8MTv7PfyYriXFMzM24/ej8zd3te8nWdtq7YkwTUz0azVrN0YXeYFuNiJCZG2iS2ejdNkvtD+KIWYv6zahfpz8H26H4qy5U0am8Xxfj0H1auCXmZtTgg9G7/9ATMpMryVkXt4/Ck7daYlYm34gGr1yiTfLcLOpAZg6iSWbR4HjA068mDTu/fzmo3GzwSSXNtXp0itikh7N0pina9Gmi1Qia/XoYHHuZV3ruOJ2o8lyuJwY6cQSOt9ajYVJsP3ieNlnt9YNmR2y+Bpm5gy6Zlc3nYvJ2cc5y5Js5i40yC/l62yy4de5sEDbKbBGQmbNBQGa+97AVQUBmvvewFUG4LjPgBJAZMABkBgwAmQEDuC4zqye+CCLGdZmt+86KreTawZAZAZmtTq4dDJkRkNnq5NrBFsosgyWgRm+2ZWIHPdbhBSid7B1aKvlHswyWAH5zcKIbDV9vP+6JBfAClE2ODi0TDTI72BLAb4akInoYXIIXoHSm99Oan4vL7EBLgFhIb3Zo9OrXok5QgxegdHJ0aJkUlNlqlgB+MxnNWGPwApRLLjFYeAqQxRLAb9IUn+ZnUbTbgxegbHJ0qJ0yW90SUNt7mc9I+UyzI5fDC1AueTrUTpmVRhYvgNW3WBBEjI0yy+IFAE5go8wWAZk5C2QGDACZAQO4LjOrJ74IIgYy872HrQgCMvO9h60IAjLzvYetCMJ1mQEncF1m676pYwDj+7kEIDPrMb6fSwAysx7j+7kEMslsTv5/uzOR1j9M7ACoC6CL1frGp1OA2fz/Kxfun/7s4lSLCHUBNLJi3/gos3H+Py/jzDFO2k/sAKgLoIsVc+4fFM/Z/2PhnP8/LlieT2ap/H9eRln9r3HSvkrJRl0AfazYN76NZpP5/7yMs/o5mzqxA6AugC6ydLOtZJPZnPx/OZqp9H8ps8F2iLoA+tDRzesm4wWNmfz/rnhRl3MzStp/XtoBUBdAI1r6ec3YeN0sixdg3RowQNm72wQ2ygx1AbwLwkaZLQIyczYIyMz3HrYiCMjM9x62IgjXZQacADIDBoDMgAEgM2AA12Vm9cQXQcRAZr73sBVBuC6zdd8JKkTqe0Bm1gCZLQMy04TPMvMcEzJbVqmClozYnHJ5bEsZryWtJ810rJOsWymFKHWvW4WR0WxJpQpeIs0pY1tKai1Kb+wrsxRk5ixmZTZdqUItkencsS0lDI5daVXfq49lRlmNPlpO1l8WwtSzUZnNVKqIjSZsL0lsKVG/OTz9k3g0aySOTp9HM5wCFGdhpQq1RI1mypZCGd2xyYBGM3ITpGKdZN1KKUTqe0BmxVlYqUIt4T+2YlvK9W6/OdjaUe4VcdAM6+lYJ1m3UgqR+h6QmQYWVKq4Ipd8+ZtkTnlT2VIq7wdiydnWc8fl+WdQH7VkzjZktgzITBO4de4skBkwAGQGDACZAQO4LjOrJ74IIgYy872HrQgCMvO9h60IAjLzvYetCMJ1mQEngMyAAVyX2brvF8UY3xluAZnpwfjOcAvITA9FvxtOAWKWpfSnoLoTNa5MIRMzOL1/pYITLnsBVtmBy4DMEpak9I+RC/nNwYluNHy9zT9ovErBCZe9ACvtwCVAZgkLU/plHYl6n3PKuO4Ev8npiOJByezAghMuewGm48r6/KDg+pE/5ScWpvTHdSR22rLuhFhIb3Zo9FI/z75KwQmXvQAr7cCnl8wym5fSz3UkWCpx3Ql+c2I0W6HghMtegMId4TdZZLYwpT+uPtGpvK/qTvCbNMWn+Vl80Dyo4ITLXgAtneEvmS5oLEjpb3MdCTonbKq6E7U9rkwhzzSpsZh8rVBwwmEvgK7+8BQ7rpstKjgxCW6dOxuEHTJbVHBiEsjM2SDskNlqQGbOBgGZ+d7DVgThusyAE0BmwACQGTAAZAYM4LrMrJ74IogYyMz3HrYiCMjM9x62IgjXZWbF3Umre9iKICAzDTIDBwGZQWYGyCSznTZbSQbbM+9MuEdiM8pnreC549JHQr/66YjlZLVdATKRRWZCFmQludKqz7w14R5JzCji/9hH4o7lZKVdAbKxuszYTcI9Pvh2o0LGkHb/1IkbrzYqyoQyZNMJLYvNKCQz5SNxx3KyFqsGLCcx7CZhK8ngRFe8ivpnW+K4KARXV+4RcgMIgUi/CR/tKMFf+kjcsZyssCumsfokz4ogVpcZu0kiPiRuk6+Ec6pJWoMt5R5hsfT5QCjNKDSaKR+JO5aTrHs2sryHrQgi02gWVj9tSnPJ3TYZQ6TMxBvSPcKmkxv1sRmFZSZ9JO5YTrLvW7t72IogVpcZW0rYStKp3GzUQnFIfK/SFUMSnVE2la8kaHYq3T1pRpFnmtJHInDFcpJv/4KlFL1u1p8968xBfssJcIKCMhtf5ipEfssJcALX7wIAJ3BdZlZPfBFEDGTmew9bEQRk5nsPWxEEZOZ7D1sRhOsyA04AmQEDQGbAAK7LDDeXnAAy8332bUUQkJnvPWxFEOXKbE7FiistlXgRBLXB8Wov4vQNzvpfjxfA9x62IoiSR7MFFSv22jKbdkR5Z/e6KoFxPV4A33vYiiBMyWyiYsVeOy5H8eNWcyyz9XgBiubg43mFZ0MyS1esaHAhJzmaXRy+3k5kth4vQFlfHaQwIbOZihU0mrE3YHQxGpzcTWS2Fi9AWV8dpChZZosqVmxJbwClzIaVrsr6X48XoKyvDlKUfUFjpmLFLXagv8nlKMRyoaDrsojF5TV5AXyffVsRhOvXzazeuQgiBjLzvYetCAIy872HrQjCdZkBJ4DMgAEgM2AAyAwYwHWZWT3xRRAxkJnvPWxFEJCZ7z1sRRCuy0zDPUzPe9iKICAzYADIDBgAMgMG0C6zOS6Ty2weiWS9CfkL25+xsySkJJ9A/YSeKcuJvq8KVkb/aLbAZULwkuGZaHShR2mNg61oRzlQeEUzlpOZTXg++7YiiBJlNuEy4bd4yfAM5cyy5UQl0+61R2wxMWM5mbFEPChsqUD5ifi5ePmJVZnnMpEyU/Um2ENCMrvbpiRsdqCwxcSM5WRmE54PJFYEUZLMZlwm9EIumTea8S9yG7KczGzC8x62Igj9MlvkMtlWS8RRMJIyS+Zmgy22mJixnGj8qmBVSrigMeMykZaSK3LJc8fJZiILT3TUmWZwtsUWEyOWE51fFayI69fNgBNAZsAArsvM6okvgoiBzHzvYSuCgMx872ErgoDMfO9hK4JwXWbACSAzYADIDBgAMgMGcF1mGu4zeT77tiIIyMz3HrYiCMjM9x62IojSZXaQNyDVsHQvwPwIPe9hK4IofzQ7yBswbli6F6DEbwmWYlBmi7wBNIp1glOXyvcCmCu3gOfJZ3MyW+QNuNvu1/t1SuUu3QtQ4rcESzEksyXegE4Q1HbaLLOyvQAlfkuwlPJldpA3gI6noRzNyvYCzA/Q89m3FUEYuKCx3BtQvS+OinQ++Wb55Sfmx+d5D1sRhDXXzcLmgU2QCORsELbIbHC80j2oDWTmbBC2yGwVcOvcWSAzYADIDBgAMgMGcF1mVk98EUQMZOZ7D1sRBGTmew9bEQRk5nsPWxGE6zLDTXMngMyAASAzYIBMMttpUyp/e7A98046q3/UopQL0U7mZtBjnVP6a0tWKtkLsNr3A2WRRWZCFpTKf6VVn3lrIqt/eLrHKf+DE91o+Hr7cU8sGJ3vjlrNJSuV6wVY9rU8n31bEcTqMhOD1LE29/jg240KZey3+6dO3Hi1UVF5/sNGvc/Lbp7ucTtOR6SHwSX5y9n0S7PV+43qR0E9FGuxFaBzrN2hnDMxApboBViWq/6gcK476gLEz8XrAgi97LQ5lV+MUjv0G+tnW1wUR7whs/r7ooUQCA1e3K5Do5fQSEccLuVoFjbFZkSz693hJ3GZAPrBdlqzXaYXYNkX83wgsSKI1WUmlHWX5lLieLgtXg052ZWkNdhSWf0sliSJP2wmoxlrjOZmYhuDrdH5m7vb9xJzwE57t8c/rF2mFyDPrlkdq3vYiiAyjWZh9VMSAMuMMvalzMQbMqtfLO9UbrA+OOWfpvg0P4uiXa7RJLZR4xVO3qLpnVwpGrxyiRwCQlAlegEy7y+gldVlRud8zb2Xg0q3U7nZqIVBUH2v0u1zObkkqz9odiq3xJkmt1Nnmh2xVKxMUziam4mzxw+ie93YHNAj15NoGDxfphdA4x4DOSh63aw/e9aZg8+7EVXYOQAkAjlLQZmNL3MVIlQ1NZcDmTmL63cBrJ74IogYyMz3HrYiCMjM9x62IgjIzPcetiII12UGnAAyAwaAzIABIDNgANdlZvXEF0HEuC4zDbcxPe9hK4KAzHzvYSuCgMx872ErgtApM/KazH2Df0I7bR5Ri4h+UPnVJelK0Ws50fKVgB60jmbx7/0Pz8y+dSZlHkm9PzhJHgJ2pWi2nOj5SkALumXGdpS+HJv6p068/0bwRkA/0E6L2DzCVpWA/CSc43hX5f8MLkWaLSdFLRx41visWWZkQdlpf7pFRSVea1XvN2r92mA7rPbEotg80m+KP8Qi9p9cl4MXuVI0W070fCWgBe2jGfkEBltcVIKsAk2yDowu9MQiaR4hQ4n4Qyxi/8mOGs1G57uaLScrR+357NuKIMqSGRWVmJEZmUekoYRkxv4T0hAneu/2NFtOVo7a8x62IgjdZ5psRxGTejrWkfuk+l4QVG6Q5+RVaR75+4C8KfV+0JT+kz4Z65QrRavlZOWwPe9hK4Jw/bqZ1TsXQcS4LjPgBJAZMABkBgwAmQEDuC4zqye+CCJmRmYPN44+evZo4c8rA8jM2SCmZbb/0v5b0f6L1wp/YAlAZs4GMS2zJz8QMnt45E7hDywByMzZIOYcNDc2Dls5mOEUwF3mnwL8xkqdrX6zyXhoYDkTMtt/YUNi53AGmTnL5Gj2oZqTYTQDWtGdoTH3jQO9AOI9rV6ATGF7Pvu2IogZmdGB85mcH5LbC3CvK2Sn0QuQKWrPe9iKIGYuaJw7Ks42c16eLeAFoLoA+rwAmXLVHxTOdUf5ifh51fIT+1+l6VnOuVl+L4DMntXmBcgUtecDiRVBzBw0f/2OePhpXpnl9gL0m5FGL0Cu6EF5zL+gUeCgmc8LQMdFjV6AfOGD0ph7QePR13NtK78XIBSnk29q9ALkCh+Ux8xB86pbl2eBE8xmaDz5QbT/1rrCWQpunTsbxIzM3ooebj75rjOjmdU7F0HEzBw0bx++djX39dlygcycDcL1DA2rdy6CiJm8oPHiNXlNA6cAQCszo9mHBe4ClAxk5iwzpwB22gAYyMxZZkYzvs+E0QxoZWY0c2xuZvXEF0HEuD43s3rnIoiYuRc0ct7TLJsV72lm3aznPWxFEK7f04TMnAjC9XuaSM9wgiX3NNnzEQaVbjT4Rpv+rP6yzQ+D7ZnNcAsF5QNxu2hwPDjWZhcJO0em/SjplWj7miwn2XcCKJtl9zQ5fZXyEz//Vj2KwqaQBT1cadVnNsMtYsR63HhwohsNX2/Tr2TT/6NWc8lKYjVNlpMsXx+YYf49TUkis4+po7mz+YFtJWwdOXXixquNimoxbNT7vOzm6R6346xX8aBkJl5SJuP9RvWjoB6KtXiznWPtjlgmxjpdlhMbyi3gefJ5FZkNP2FXZT+oywcxSlEKf/9sq0oWEyEk2aJfj3aEQKgwDrfr0OglNDIezdhl0qdM7eEnaiXReK9Na7Z1WU7mfpcleD77tiKIyVvnL028x/0sur0fT4/CJj9wvr/8fXWS1mBLtWCxJF6RsDkxmrVobsYuk9H5m7vb95LN7rR3xZgm5mG6LCe6do3JLfgexKTMXpi4lDF6t819/YcejUl96nt+YJmRMUTKTAhJthDLO5UbrA/ZTkzxaX4WHzSF5mq8wslbNL2TK0WDVy7RtvVZTnTtGpNb8D2ISZm9xTebEl8TnymKcahJo83vXxYnnXv0wLaSMAiq75HzNxBHTtmCZlhN8pkENW6nzjTVWzSFky6T4QfiUBxvtkfjpWgYPK/LcqJr15jcgu9BzJub3c5webY/e9aZg8/FcHfxwFa4de4s06NZ9ORclpsA48tchRBD47H2ga0gM2eZnpttbGyuMZrlQGbOMikzi3MaI8jMYZZdN7MNJAI5GwRk5nsPWxEEZOZ7D1sRBGTmew9bEYTrMgNOAJkBA7guM+SbOQFkBgwAmfk++7YiCO0ym+MguMxZ/ZFM/ufkfsrY4BxJSudQ9zPX5gXwvIetCEL/aDbHQRCXpeAlwzPR6MIu1ZuIPlbN9/i2+bq8AJ73sBVBlCizsYMglhkvGZ6ROT87ZJPqySTtEef+r8kL8KBwrjvKT8TPq5afKM4cB4GSmUr+V8n9u73HPTaq0DGTc//X5AUA5VOSzCYdBEpmcokazTgvmzwFNJpxeuS6vACgfPTLbI6DQGb1qyWyLhgfCMkhwO9tce7/mrwAoHxKuKAx4yC4SWeLYr7FS547TueYVG+iGcp2grMtzv1fjxcAlI/r182sPr9CEDGQme89bEUQkJnvPWxFEJCZ7z1sRRCuyww4AWQGDACZAQNAZsAArsvM6okvgoiBzHzvYSuCcF1myDdzIgjIzPcetiIIyAwYADIDBlgiM13lJ8RjHeUnnm6WjWaayk88pl9wR/mJp5qVZFaw/EQ0uGRz+QlYTtZrOdFVfqIT1FB+4ukO4kCZaSg/ITWG8hNPcRDLZKar/ASZ5VB+4qkOYukFDT3lJzpi6dDi8hOgfIpeN0P5CbACBWWG8hNgFVy/CwCcwHWZWT3xRRAxkJnvPWxFEJCZ7z1sRRCQme89bEUQrssMOAFkBgwAmQEDuC4z3GhyAsjM99m3FUFAZr73sBVBmJdZygHA9905ZTJhmC5VMQVk5mwQ5mU2dgCMZkwFwzNJDYEpowABmTkbhHmZsQMgfCN4I2j2Tx2v0E9pk6mJDQb9oD5ZqqLB+WqnLq3qBSiay47ncp6Ny4wdAMNGrV8bbAsl9ethtXe33X+tVenutD/dmixVId4g60AoLVE403QW4zJTtoEm5XqzkWB0odcJghpnfg8Smclm9MZOGzJzHuMyi40FSmZhXciMTHppmSWlKuiNEKOZ+xiWmXIAfPmb1feCoHKD3E59dgrU2GAwbLyaLlVB7oIa+c5LlZnns28rgnDiutmS0czqnYsgYlyQ2eC4NBxAZs4G4YLMYiAzZ4NwXWbACSAzYADIDBgAMgMGcF1mVk98EUQMZOZ7D1sRBGTmew9bEYTrMtNwS9PzHrYiCMgMGAAyAwZYXWZ5ywRwy8sN/lHH547Hv/0fyt9Lpp92VL9tpqMuQKavDsyRYTTLWyaAW9LKlI6tfvt/sEU/d/yx2uoei1JDXYBVvzUwTB6ZZSwTcIMaxTKLf/uffgJZDHM9+YPtI64DULwuQK5c9QeFc91RFyB+zlMXYIq8ZQK4ER/86EfZ5W//321Hg+3HPVYjHTO5DkDxugCrfI0ZPD/JsyKIrDLLUSaAG8Wjmfrtfx7NxBt32zyasWVTQ12ALHskwfMetiKIDDLLWyaAGyUyk7/9L+dmVJeCc/+3uA5A8boAOXaM9z1sRRBZLmjkKxPAjW7GZ5rqt/+7HXEgDeXmBGdbXAegcF2APHsGGEDzdTM9ZQIWgAwNZ9ErM01lAhYAmTmL63cBgBO4LjOrJ74IIgYy872HrQgCMvO9h60IAjLzvYetCMJ1mQEngMyAASAzYADIDBjAdZnh1rkTQUBmvvewFUFAZr73sBVBFJHZjh+WE8972IogCsgMlhOwKrllNmqRycQHywmey3/OLbOQMv29sJyA8sktM6Gsu3Ssc99yAsqnyGgWVj+F5UTPFnwPIrfMuCqEF5YTz3vYiiA0XzczbjmxeuciiBi9MjNvObF65yKIGNfvAgAngMyAASAzYADIDBjAdZlZPfFFEDGQme89bEUQkJnvPWxFEJCZ7z1sRRCuywy3zZ0AMgMGgMyAAVaXWd7yE6NWUON28kdF6ZHKCmj3AmT73sAoGUazvOUnxHrceHCiGw1fbz/uiQUleAFW/cYzeD77tiKIPDLLWH7i5uket+PsRHoYXIpK8ALkzlV/UDjXHeUn4uc1lp+g9ahdh459QjKdoBaV4AVY5SvMxfOBxIogssosR/kJKZewmYxmo/NleAGy7I0JPO9hK4LIILO85SfEOrKdOC+g+VkU7fZK8AJk3yfAGFkuaOQrPyHOJWvcTp1pdngs1O8F0LZLgH40XzdD+QkwD70yQ/kJMBfX7wJYPfFFEDGQme89bEUQkJnvPWxFEJCZ7z1sRRCuyww4AWQGDACZAQNAZsAArsvM6okvgohxXWYabml63sNWBAGZ+d7DVgQBmfnew1YEkV9mcywol9klMsnOlSnLiby9rt1ykuMbAGMUGM3mWFBkwmsauTBtOaFcxki/5STPNwCm0CGzsQVFKmPUopxGMpxwjYrhlOWEZKbfcjK1HM9WPWuQWcqCEqf9CzWxE4BrVExbTkhm+i0neb4BMEVRmU1aUKQyxOFwsMUy4xoV05aTZDSLdFpO8nwDieezbyuCKCCzORYU6RIJa9KI0qm8TzUq7k9ZTsZzM52WkzzfQOJ5D1sRRJELGjMWlJsNPm2kuVmPy1PQw9kpywk17um3nOT6BoznPWxFEK5fN7N65yKIGNdlBpwAMgMGgMyAASAzYADXZWb1xBdBxEBmvvewFUFAZr73sBVBQGa+97AVQbguM+AErssMGRpOAJkBA0BmwAAlymznMiVsUB5QemnsGfisFTx3XGX/34rtAaOUM0C8qkecMDkZ6yTI0HAiiPJkRi6AM9HowkcpFwolj8WeAfF/kv2fpKClnAFneOlsrJNAZk4EUZbMpAvgzOiiEJr0BYjxqd4X/8WeAZKZyv5P2QPGzoAzKumRq1uU6QV4UDjXHeUn4mcN5ScyIV0AlMc/utCTvoBmFH26pTwDfDjtJdn/iT0g5QzgVyFXtNiRFaAwmjkbRFkyky4AOZpJmZGXRBwYo9gzQKOZyv6fGs2kM0CMZq2mWJnLDqRinQSnAE5Q4mgWVu+fEa+kUjqV95sss8QzwDKT2f+TczPlDBDrdiAzTyhLZnRYfLMhreXN2BdQGzbqe9IzIM80VfZ/N7YHTDgD6LDapwIWNxu1VKyTQGZO4Pp1M+AErsvM6okvgoiBzHzvYSuCgMx872ErgoDMfO9hK4JwXWbACSAzYADIDBgAMgMGcF1mVk98EUSM6zLTcKPJ8x62IgjIzPcetiIIyMz3HrYiCMgMGCCTzOZUnGjzw2B7sqGyjowo2afai8KAqU1tjjeS2nju8hOrRQ/WR7bRbE7FCXq40qrPaSitJSN67153dL47ajUnG/FGUuvkLj+xYvRgbeSU2bjiBD+wLYR+sbh/6sSNV8VrbshZsqMfC3WxzKKwLgtTVD8K6qEYtHgjnWPtjlgmxrr85SeKl0fAc7nP+WSWqjjBD4MTbAvpn22xRSSUEhlskcwuDl9vx6NZXJjienf4idoIZ/+zWSB/+YkVo1+A57NvK4LIIbPJihP8wPn6VDZC6EX8x/qKR7OL0eDkbpdmazVZmGJ0/ubu9r1kIzvt3R7/iHv+8hNZdsQsnvewFUFkk9mcihOysgTJjMpGSJnJ0UzNzS4KHVa60trLhSmi8OQtmrDJjUSDVy7RloSgcpefyLYrpvG8h60IIuMFjZmKE12uLMG2EHE+WX2v0hWDFPlJ1JnmX7fowHr9ZoPOT7lomDh7/IAma2ojPRodxWaD5xu5y09k3hsTeN7DVgSh/7pZf/qscwU+70Y06h0Abp07i3aZjS98ZSBUP9CyHMjMWVy/CwCcADIDBnBdZlZPfBFEDGTmew9bEQRk5nsPWxEEZOZ7D1sRhOsyA04AmQEDuC4z5Js5AWQGDACZ+T77tiKIzDKb5wfozCb60y/LzhaaOPZyup0lXgDPe9iKILKPZrN+gCsX7p/+bCrBIhRanFNoYqhKntAPGNviBfC8h60IooDMxn4AXsa5ZIkpgH6mfU6hibicBKd3W+IFeFA41x3lJ+JnfeUn5vkBaBnl+b+makX06ZfW5xWaGJ6W5SSoDoUtXgBQPjllNuUHoGWc55+YAkhmcwpN0GhGTQZc7sQOLwAon+wym+MHkKNZLW0KoIPmnEITaZnZ4gUA5ZPjgsasH4AqR8i5WWIK+DRozik0QWea3GTYeM0aLwAoHzuum+X3Alh9foUgYuyQWX4vgNU7F0HE2CGz1YDMnA0CMvO9h60IwmW7BFUAAAbBSURBVHWZASeAzIABIDNgAMgMGMB1mVk98UUQMZCZ7z1sRRCuywz5Zk4EAZn53sNWBAGZAQMUkdnBtgCZz0/sXJE/4Bj1g8qvfjJO+5d+gFD+VnLllmoUyXTIesSZk5OxTgKZOUGh0exgW0Cc+69cAXvtwcnesFEfp/3zmoMtSor8WLXf45vowzOR/L3a6VgngcycQI/MFtoCpMzE38fanI0d3ZUaUmn/as2QEyAb1Z5M2R6xE4BlFnsHUBfA7WctMltsC5AyCznVv0GHw+s8QCVp/3JNob3B9mPyqMhG7ATgV2H1M2UviHAK4HAQxWW23BbAMttpy5diNJOKidP+1Zo8monFcSPO+xajWYtyvXk7qVgngcycCKKQzA62Bch8fjGahdX79HKL/CPiAKnS/tWacm6mDpLUiJwAZ6KoA5l5EkSxCxoH2QKeb/CZI502nqWTSLIskSOzkVgDpB+AVgrlpgJqqpwA1V4/aLJ3IBXrJJCZE0G4ft0MOAFkBgwAmQEDQGbAAK7LzOqJL4KIgcx872ErgoDMfO9hK4KAzHzvYSuCcEpmwFm4A92Q2TysOPtEEDHLg4DMCoEgYnyVGXAIyAwYADIDBoDMgAFclRk7otZNP6h0D25VJrI0zJp3hgxi6c5wVGYq63bNfLzuADjveP07g41oS3eGozKLPQRrhR1Za4Z6eO07g4JYvjMclRk7otYdxONef+06ox5e+86gIJbvDEdltvZ/wIq76z5yWzOaRUt3hqMyW/t0RDLtjl9PBGvfGXI3LNsZjsqMbVTrJlylpEHJcLWYde+MDv+iyrKd4arMgFNAZsAAkBkwAGQGDACZAQNAZsAAT43Mbm9sHP31O1MLn3znnf2v8EL1NMG8ZcnCR1+8s6jJwcyulnNDHMmX9l/Y2BQvfnqN//zCtXSYE39lQOyaf80d0gxPi8yuHrkT3T40vd+uyiUz8pt4dy77Lxy5c0CTKZIPWfBpK607B6H320cfimgektSiJ+cOXxu/qf7KEGaMWKWA9Kd5SmT26M9pj8mOSCH+ydLTgn+26t0FW+TRbGmTSZIPyTFILFnlyXevRSyz/Zfkgv0XUzJTf2UIM9muWGX/q3eyrraAp0Rmt4+oHUbHTrHv/22D/vlvbPA/WfG8Sf9yU++Jw9Dha9w5T85tPCPGhJ/Tgv0Xv3/oR195h9989MXvbTzDnXF1gzdOK4r1+U9q+M9f/NnGkd9uHPndC4eviaGBP4RWnPNpER/WHqkV7sRbUi2+f+if4nVV89viZfyxD58Rkn9WHDR/o9SlvsBX3hGRbxz+Of/15Ds/4pifpbEttaVkextH9+MGV5NdI77L9L/LvDxlMhNj0KNn/0Yoh7r1C9fEICcU8N+klUPvpN+7fVQISI4BNB78iRe8fU50u2jIbz56dvPJuU3x4qFYdlTKUfT3Jv35V6Kh+Ft03TM0+3uRBEsfwivO+bSIjlFvxyu8rbYUtzgaxeu+LZsLZV09qj5WLJff8NHX1VcV2xBtKEz+cP5LxqsOvuMtqe3xB22qBrxduWvGGy/MUyYz2m9Xj8qOF6+llkhO8u/kPVLNpjrUiN788A4vIMXFb9JBk2UjhgIhC3V4un2U/6TXckNCiuqFGho3532aPBlJrcBbiltEybqyCY8x8ccqJTz5RyGVQ+qfhfy4h2ON0wZuJ8fV8ZaSHUFfUjbg7cpdA5llRc7NHv3w9jO07xbILPXeQzG4xDJ79IV//2HEC1SX8+uxzNSBJRbHpno9R2bJVqc+LZovs7hFlKyblpn6WKUEMU5d3Xyo5K6+Fo2K4w8XG5ZnEqktqR3BH6Qa8HYhs5zQmaaY0Qq5JXv3oZh9nTv8i0Rm6feuqiNisi4vUF3Or4XM5NFI9C2PEnTwk0e0/ZemZbb/An1OlGx16tOiKZnJLSUt5AxwM1Esz/fjj2Vp8SFzWmYPj6b/Ei3lZC69JfkoP0g14O3KXXMNc7PMXN2geTMdEzbF62dui10qFm1syhf8lHrvtxuH/uLw91W/UB8+pAVf40byzV+co9Zybb5oIObQctq8IafRYkPi6Wf86tBf0pnCJm/k2uyn3aG4jnwvXuF3akuqBYlcrfu1OPBD70TqY+lMU54SqoOm3KTYzH89K2b2yV93kgl9akvfk9vjD4pUg6vy/IIW4UzTPiYvJJjbkrwAO4c/CdF9mNKJmL4t39J0gxyXQRYBmeliXTKLHn1p7mK+8PVWasHMVcNpphvgLoB9iAn3ET2HGF1beiinCYqrfF66hAMbFAEyAwaAzIABIDNgAMgMGAAyAwb4fxsv/67+pP0iAAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtTR2xCYm01dmVVRnNiRlpoY25ORGIyNVFaWEp0YVcxd01YQmpMbk4yWjF3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU55d2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p6ZG1kY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNaRWhwUVc1dWIzbEJiR3hXWVhKelEyOXVVR1Z5YldsdGNERndZeTV6ZG1kY0lpbGNiaUFnWEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY0lsQjBjMEZDWkVocFFXNXViM2xCYkd4V1lYSnpRMjl1VUdWeWJXbHRjREZ3WXk1d1pHWmNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVGNzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ3aWNHUm1YQ0lwS1Z4dUlDQjFibXhwYm1zb1hDSlFkSE5CUW1SSWFVRnVibTk1UVd4c1ZtRnljME52YmxCbGNtMXBiWEF4Y0dNdWNHUm1YQ0lwWEc1OVhHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFsbFZhcnNDb25QZXJtaW1wMXBjLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9NywgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBbGxWYXJzQ29uUGVybWltcDFwYy5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBbGxWYXJzQ29uUGVybWltcDFwYy5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTcsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXAxcGMucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAllVarsConPermimp1pc.svg\, width=8, height=7, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAllVarsConPermimp1pc.svg\)
ggsave(filename=\PtsABdHiAnnoyAllVarsConPermimp1pc.pdf\, width=8, height=7, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAllVarsConPermimp1pc.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1NHbEJibTV2ZVVGc2JGWmhjbk5EYjI1UVpYSnRhVzF3TVhCakxuTjJaMXhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5Tnl3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHpkbWRjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1pFaHBRVzV1YjNsQmJHeFdZWEp6UTI5dVVHVnliV2x0Y0RGd1l5NXpkbWRjWENsY2JpQWdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjWEZCMGMwRkNaRWhwUVc1dWIzbEJiR3hXWVhKelEyOXVVR1Z5YldsdGNERndZeTV3WkdaY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUY3NJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRnhjY0dSbVhGd3BLVnh1SUNCMWJteHBibXNvWEZ4UWRITkJRbVJJYVVGdWJtOTVRV3hzVm1GeWMwTnZibEJsY20xcGJYQXhjR011Y0dSbVhGd3BYRzU5WEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBbGxWYXJzQ29uUGVybWltcDFwYy5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTcsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXAxcGMuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXAxcGMucGRmXFwsIHdpZHRoPTgsIGhlaWdodD03LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUFsbFZhcnNDb25QZXJtaW1wMXBjLnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFsbFZhcnNDb25QZXJtaW1wMXBjLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9NywgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBbGxWYXJzQ29uUGVybWltcDFwYy5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBbGxWYXJzQ29uUGVybWltcDFwYy5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTcsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWxsVmFyc0NvblBlcm1pbXAxcGMucGRmXFwpXG59XG5cbmBgYFxuYGBgIn0= -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAllVarsConPermimp1pc.svg\, width=8, height=7, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAllVarsConPermimp1pc.svg\)
ggsave(filename=\PtsABdHiAnnoyAllVarsConPermimp1pc.pdf\, width=8, height=7, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAllVarsConPermimp1pc.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
### Absolute variables
#### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0J1WVcxbGN5aHpkR2x0UkdGMFlVNTFiU2xiZDJocFkyZ29ibUZ0WlhNb2MzUnBiVVJoZEdGT2RXMHBJRDA5SUNkVlFWTkZkbVZ1ZEhNbktUcDNhR2xqYUNodVlXMWxjeWh6ZEdsdFJHRjBZVTUxYlNrZ1BUMGdKMVZCVTBsdGNIVnNjMU5JVFRBMVJYaE5ZWGhNVWljcFhWeHVhVlpoY25NZ1BDMGdhVlpoY25OYklTQnBWbUZ5Y3lBbGFXNGxJR01vSjFOT1VteGxkbVZzSnl3Z0owbHVkR1Z5YldsMFVtRjBhVzlETWsxaGVFeFNKeXdnSjBsdWRHVnliV2wwVW1GMGFXOURNMDFoZUV4U0p5d2dKMGx1ZEdWeWJXbDBVbUYwYVc5RE5VMWhlRXhTSnlsZFhHNWtWbUZ5SUR3dElGd2laRWhwWjJoQmJtNXZlVkJqWENKY2JseHVjMlZsWkhNZ1BDMGdZeWcxTnpnek1USXNJRFUwTkN3Z09EUTRPVFFzSURVME5qVTBMQ0F4TlRNeE5UY3BYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuaVZhcnMgPC0gbmFtZXMoc3RpbURhdGFOdW0pW3doaWNoKG5hbWVzKHN0aW1EYXRhTnVtKSA9PSAnVUFTRXZlbnRzJyk6d2hpY2gobmFtZXMoc3RpbURhdGFOdW0pID09ICdVQVNJbXB1bHNTSE0wNUV4TWF4TFInKV1cbmlWYXJzIDwtIGlWYXJzWyEgaVZhcnMgJWluJSBjKCdTTlJsZXZlbCcsICdJbnRlcm1pdFJhdGlvQzJNYXhMUicsICdJbnRlcm1pdFJhdGlvQzNNYXhMUicsICdJbnRlcm1pdFJhdGlvQzVNYXhMUicpXVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoNTc4MzEyLCA1NDQsIDg0ODk0LCA1NDY1NCwgMTUzMTU3KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
iVars <- names(stimDataNum)[which(names(stimDataNum) == 'UASEvents'):which(names(stimDataNum) == 'UASImpulsSHM05ExMaxLR')]
iVars <- iVars[! iVars %in% c('SNRlevel', 'IntermitRatioC2MaxLR', 'IntermitRatioC3MaxLR', 'IntermitRatioC5MaxLR')]
dVar <- \dHighAnnoyPc\
seeds <- c(578312, 544, 84894, 54654, 153157)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQnVZVzFsY3loemRHbHRSR0YwWVU1MWJTbGJkMmhwWTJnb2JtRnRaWE1vYzNScGJVUmhkR0ZPZFcwcElEMDlJQ2RWUVZORmRtVnVkSE1uS1RwM2FHbGphQ2h1WVcxbGN5aHpkR2x0UkdGMFlVNTFiU2tnUFQwZ0oxVkJVMGx0Y0hWc2MxTklUVEExUlhoTllYaE1VaWNwWFZ4dWFWWmhjbk1nUEMwZ2FWWmhjbk5iSVNCcFZtRnljeUFsYVc0bElHTW9KMU5PVW14bGRtVnNKeXdnSjBsdWRHVnliV2wwVW1GMGFXOURNazFoZUV4U0p5d2dKMGx1ZEdWeWJXbDBVbUYwYVc5RE0wMWhlRXhTSnl3Z0owbHVkR1Z5YldsMFVtRjBhVzlETlUxaGVFeFNKeWxkWEc1a1ZtRnlJRHd0SUZ4Y1pFaHBaMmhCYm01dmVWQmpYRnhjYmx4dWMyVmxaSE1nUEMwZ1l5ZzFOemd6TVRJc0lEVTBOQ3dnT0RRNE9UUXNJRFUwTmpVMExDQXhOVE14TlRjcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbmlWYXJzIDwtIG5hbWVzKHN0aW1EYXRhTnVtKVt3aGljaChuYW1lcyhzdGltRGF0YU51bSkgPT0gJ1VBU0V2ZW50cycpOndoaWNoKG5hbWVzKHN0aW1EYXRhTnVtKSA9PSAnVUFTSW1wdWxzU0hNMDVFeE1heExSJyldXG5pVmFycyA8LSBpVmFyc1shIGlWYXJzICVpbiUgYygnU05SbGV2ZWwnLCAnSW50ZXJtaXRSYXRpb0MyTWF4TFInLCAnSW50ZXJtaXRSYXRpb0MzTWF4TFInLCAnSW50ZXJtaXRSYXRpb0M1TWF4TFInKV1cbmRWYXIgPC0gXFxkSGlnaEFubm95UGNcXFxuXG5zZWVkcyA8LSBjKDU3ODMxMiwgNTQ0LCA4NDg5NCwgNTQ2NTQsIDE1MzE1NylcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBuYW1lcyhzdGltRGF0YU51bSlbd2hpY2gobmFtZXMoc3RpbURhdGFOdW0pID09ICdVQVNFdmVudHMnKTp3aGljaChuYW1lcyhzdGltRGF0YU51bSkgPT0gJ1VBU0ltcHVsc1NITTA1RXhNYXhMUicpXVxuaVZhcnMgPC0gaVZhcnNbISBpVmFycyAlaW4lIGMoJ1NOUmxldmVsJywgJ0ludGVybWl0UmF0aW9DMk1heExSJywgJ0ludGVybWl0UmF0aW9DM01heExSJywgJ0ludGVybWl0UmF0aW9DNU1heExSJyldXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg1NzgzMTIsIDU0NCwgODQ4OTQsIDU0NjU0LCAxNTMxNTcpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
iVars <- names(stimDataNum)[which(names(stimDataNum) == 'UASEvents'):which(names(stimDataNum) == 'UASImpulsSHM05ExMaxLR')]
iVars <- iVars[! iVars %in% c('SNRlevel', 'IntermitRatioC2MaxLR', 'IntermitRatioC3MaxLR', 'IntermitRatioC5MaxLR')]
dVar <- \dHighAnnoyPc\
seeds <- c(578312, 544, 84894, 54654, 153157)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWd2lVSFJ6UVVKa1NHbEJibTV2ZVVGaWMxWmhjbk5JZVhCbGNsUjFibVV1YzNablhDSXNJSGRwWkhSb1BURXlMQ0JvWldsbmFIUTlOQ3dnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWENKemRtZGNJaWtwWEc0Z0lIVnViR2x1YXloY0lsQjBjMEZDWkVocFFXNXViM2xCWW5OV1lYSnpTSGx3WlhKVWRXNWxMbk4yWjF3aUtWeHVYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjSWxCMGMwRkNaRWhwUVc1dWIzbEJZbk5XWVhKelNIbHdaWEpVZFc1bExuQmtabHdpTENCM2FXUjBhRDB4TWl3Z2FHVnBaMmgwUFRRc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGd2ljR1JtWENJcEtWeHVJQ0IxYm14cGJtc29YQ0pRZEhOQlFtUklhVUZ1Ym05NVFXSnpWbUZ5YzBoNWNHVnlWSFZ1WlM1d1pHWmNJaWxjYm4xY2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFic1ZhcnNIeXBlclR1bmUuc3ZnXFwsIHdpZHRoPTEyLCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBYnNWYXJzSHlwZXJUdW5lLnN2Z1xcKVxuXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBYnNWYXJzSHlwZXJUdW5lLnBkZlxcLCB3aWR0aD0xMiwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWJzVmFyc0h5cGVyVHVuZS5wZGZcXClcbn1cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAbsVarsHyperTune.svg\, width=12, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAbsVarsHyperTune.svg\)
ggsave(filename=\PtsABdHiAnnoyAbsVarsHyperTune.pdf\, width=12, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAbsVarsHyperTune.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1cFppQW9jMkYyWlhCc2IzUnpLWHRjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ4Y1VIUnpRVUprU0dsQmJtNXZlVUZpYzFaaGNuTkllWEJsY2xSMWJtVXVjM1puWEZ3c0lIZHBaSFJvUFRFeUxDQm9aV2xuYUhROU5Dd2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYRnh6ZG1kY1hDa3BYRzRnSUhWdWJHbHVheWhjWEZCMGMwRkNaRWhwUVc1dWIzbEJZbk5XWVhKelNIbHdaWEpVZFc1bExuTjJaMXhjS1Z4dVhHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNYRkIwYzBGQ1pFaHBRVzV1YjNsQlluTldZWEp6U0hsd1pYSlVkVzVsTG5Ca1pseGNMQ0IzYVdSMGFEMHhNaXdnYUdWcFoyaDBQVFFzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ4Y2NHUm1YRndwS1Z4dUlDQjFibXhwYm1zb1hGeFFkSE5CUW1SSWFVRnVibTk1UVdKelZtRnljMGg1Y0dWeVZIVnVaUzV3WkdaY1hDbGNibjFjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbnBcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBYnNWYXJzSHlwZXJUdW5lLnN2Z1xcLCB3aWR0aD0xMiwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWJzVmFyc0h5cGVyVHVuZS5zdmdcXClcblxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWJzVmFyc0h5cGVyVHVuZS5wZGZcXCwgd2lkdGg9MTIsIGhlaWdodD00LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUFic1ZhcnNIeXBlclR1bmUucGRmXFwpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFic1ZhcnNIeXBlclR1bmUuc3ZnXFwsIHdpZHRoPTEyLCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBYnNWYXJzSHlwZXJUdW5lLnN2Z1xcKVxuXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBYnNWYXJzSHlwZXJUdW5lLnBkZlxcLCB3aWR0aD0xMiwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWJzVmFyc0h5cGVyVHVuZS5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAbsVarsHyperTune.svg\, width=12, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAbsVarsHyperTune.svg\)
ggsave(filename=\PtsABdHiAnnoyAbsVarsHyperTune.pdf\, width=12, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAbsVarsHyperTune.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0ExTURGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU56VXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjc1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 501
mtry <- as.integer(length(iVars)/1.75)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTFNREZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TnpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDUwMVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS43NSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 501
mtry <- as.integer(length(iVars)/1.75)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0F4TUZ4dVhHNXlaWE4xYkhSelQzVjBRV0p6SUR3dElHTnlabEpsWnloa1lYUmhTVzQ5YzNScGJVUmhkR0ZPZFcwc0lHbFdZWEp6UFdsV1lYSnpMQ0JrVm1GeVBXUldZWElzSUhObFpXUnpQWE5sWldSeld6RTZNbDBzSUc1MGNtVmxQVzUwY21WbExDQnRkSEo1UFcxMGNua3NJSEJsY20xSmJYQkRiMjVrVkdoeVpYTTljR1Z5YlVsdGNFTnZibVJVYUhKbGN5d2dibkJsY20wOWJuQmxjbTBzSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVYRzRqSUhCeWFXNTBJRzF2WkdWc0lIQnlaV1JwWTNScGIyNGdjbVZ6ZFd4MGMxeHVjbVZ6ZFd4MGMwOTFkRUZpY3lSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRFRmljeVJQVDBKZlRVRkZYRzV5WlhOMWJIUnpUM1YwUVdKekpGSnpjWFZoY21Wa1hHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSAxMFxuXG5yZXN1bHRzT3V0QWJzIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEFicyRPT0JfUk1TRVxucmVzdWx0c091dEFicyRPT0JfTUFFXG5yZXN1bHRzT3V0QWJzJFJzcXVhcmVkXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
nperm <- 10
resultsOutAbs <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbs$OOB_RMSE
resultsOutAbs$OOB_MAE
resultsOutAbs$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQXhNRnh1WEc1eVpYTjFiSFJ6VDNWMFFXSnpJRHd0SUdOeVpsSmxaeWhrWVhSaFNXNDljM1JwYlVSaGRHRk9kVzBzSUdsV1lYSnpQV2xXWVhKekxDQmtWbUZ5UFdSV1lYSXNJSE5sWldSelBYTmxaV1J6V3pFNk1sMHNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRFRmljeVJQVDBKZlVrMVRSVnh1Y21WemRXeDBjMDkxZEVGaWN5UlBUMEpmVFVGRlhHNXlaWE4xYkhSelQzVjBRV0p6SkZKemNYVmhjbVZrWEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxubnBlcm0gPC0gMTBcblxucmVzdWx0c091dEFicyA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRBYnMkT09CX1JNU0VcbnJlc3VsdHNPdXRBYnMkT09CX01BRVxucmVzdWx0c091dEFicyRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSAxMFxuXG5yZXN1bHRzT3V0QWJzIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEFicyRPT0JfUk1TRVxucmVzdWx0c091dEFicyRPT0JfTUFFXG5yZXN1bHRzT3V0QWJzJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
nperm <- 10
resultsOutAbs <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbs$OOB_RMSE
resultsOutAbs$OOB_MAE
resultsOutAbs$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwUVdKeklEd3RJRzExYkhScFgyTnlabEpsWnloa1lYUmhTVzQ5YzNScGJVUmhkR0ZPZFcwc0lHbFdZWEp6UFdsV1lYSnpMQ0JrVm1GeVBXUldZWElzSUhObFpXUnpQWE5sWldSekxDQnVkSEpsWlQxdWRISmxaU3dnYlhSeWVUMXRkSEo1TENCd1pYSnRTVzF3UTI5dVpGUm9jbVZ6UFhCbGNtMUpiWEJEYjI1a1ZHaHlaWE1zSUc1d1pYSnRQVzV3WlhKdExDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYmx4dUl5QndjbWx1ZENCdGIyUmxiQ0J3Y21Wa2FXTjBhVzl1SUhKbGMzVnNkSE5jYm5KbGMzVnNkSE5QZFhSQlluTWtUMDlDWDFKTlUwVmNibkpsYzNWc2RITlBkWFJCWW5Na1QwOUNYMDFCUlZ4dWNtVnpkV3gwYzA5MWRFRmljeVJTYzNGMVlYSmxaRnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbnJlc3VsdHNPdXRBYnMgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEFicyRPT0JfUk1TRVxucmVzdWx0c091dEFicyRPT0JfTUFFXG5yZXN1bHRzT3V0QWJzJFJzcXVhcmVkXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
resultsOutAbs <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbs$OOB_RMSE
resultsOutAbs$OOB_MAE
resultsOutAbs$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBRV0p6SUR3dElHMTFiSFJwWDJOeVpsSmxaeWhrWVhSaFNXNDljM1JwYlVSaGRHRk9kVzBzSUdsV1lYSnpQV2xXWVhKekxDQmtWbUZ5UFdSV1lYSXNJSE5sWldSelBYTmxaV1J6TENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJCWW5Na1QwOUNYMUpOVTBWY2JuSmxjM1ZzZEhOUGRYUkJZbk1rVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEVGaWN5UlNjM0YxWVhKbFpGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRBYnMgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEFicyRPT0JfUk1TRVxucmVzdWx0c091dEFicyRPT0JfTUFFXG5yZXN1bHRzT3V0QWJzJFJzcXVhcmVkXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0QWJzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRBYnMkT09CX1JNU0VcbnJlc3VsdHNPdXRBYnMkT09CX01BRVxucmVzdWx0c091dEFicyRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutAbs <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutAbs$OOB_RMSE
resultsOutAbs$OOB_MAE
resultsOutAbs$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMEZpY3lCMllYSnpKeXdnSjFKTlUwVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFFXSnpKRTlQUWw5U1RWTkZYRzV5WlhOa1NHbEJibTV2ZVVacGRFRkNXeWRCWW5NZ2RtRnljeWNzSUNkTlFVVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFFXSnpKRTlQUWw5TlFVVmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMEZpY3lCMllYSnpKeXdnSjFKemNYVmhjbVZrSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRUZpY3lSU2MzRjFZWEpsWkZ4dWNtVnpaRWhwUVc1dWIzbFFaWEp0U1cxd1FVSWtRV0p6Vm1GeWN5QThMU0J5WlhOMWJIUnpUM1YwUVdKekpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQmNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgdmFycycsICdSTVNFJ10gPC0gcmVzdWx0c091dEFicyRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIHZhcnMnLCAnTUFFJ10gPC0gcmVzdWx0c091dEFicyRPT0JfTUFFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgdmFycycsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRBYnMkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJEFic1ZhcnMgPC0gcmVzdWx0c091dEFicyRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# store results
resdHiAnnoyFitAB['Abs vars', 'RMSE'] <- resultsOutAbs$OOB_RMSE
resdHiAnnoyFitAB['Abs vars', 'MAE'] <- resultsOutAbs$OOB_MAE
resdHiAnnoyFitAB['Abs vars', 'Rsquared'] <- resultsOutAbs$Rsquared
resdHiAnnoyPermImpAB$AbsVars <- resultsOutAbs$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowRmljeUIyWVhKekp5d2dKMUpOVTBVblhTQThMU0J5WlhOMWJIUnpUM1YwUVdKekpFOVBRbDlTVFZORlhHNXlaWE5rU0dsQmJtNXZlVVpwZEVGQ1d5ZEJZbk1nZG1GeWN5Y3NJQ2ROUVVVblhTQThMU0J5WlhOMWJIUnpUM1YwUVdKekpFOVBRbDlOUVVWY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowRmljeUIyWVhKekp5d2dKMUp6Y1hWaGNtVmtKMTBnUEMwZ2NtVnpkV3gwYzA5MWRFRmljeVJTYzNGMVlYSmxaRnh1Y21WelpFaHBRVzV1YjNsUVpYSnRTVzF3UVVJa1FXSnpWbUZ5Y3lBOExTQnlaWE4xYkhSelQzVjBRV0p6SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhCY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEhpQW5ub3lGaXRBQlsnQWJzIHZhcnMnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRBYnMkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0FicyB2YXJzJywgJ01BRSddIDwtIHJlc3VsdHNPdXRBYnMkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIHZhcnMnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0QWJzJFJzcXVhcmVkXG5yZXNkSGlBbm5veVBlcm1JbXBBQiRBYnNWYXJzIDwtIHJlc3VsdHNPdXRBYnMkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0FicyB2YXJzJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0QWJzJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgdmFycycsICdNQUUnXSA8LSByZXN1bHRzT3V0QWJzJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FicyB2YXJzJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dEFicyRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzVmFycyA8LSByZXN1bHRzT3V0QWJzJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdHiAnnoyFitAB['Abs vars', 'RMSE'] <- resultsOutAbs$OOB_RMSE
resdHiAnnoyFitAB['Abs vars', 'MAE'] <- resultsOutAbs$OOB_MAE
resdHiAnnoyFitAB['Abs vars', 'Rsquared'] <- resultsOutAbs$Rsquared
resdHiAnnoyPermImpAB$AbsVars <- resultsOutAbs$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRUZpY3k1amIyNXBiWEFnUEMwZ1lYSnlZVzVuWlNoeVpYTjFiSFJ6VDNWMFFXSnpKR052Ym1ScGRHbHZibUZzWDNCbGNtMXBiWEFzSUdSbGMyTW9jbTkzWDI1MWJXSmxjaWdwS1NsY2JseHVjRUpoY2lBOExTQm5aM0JzYjNRb2NtVnpkV3gwYzA5MWRFRmljeTVqYjI1cGJYQXBJQ3NnWjJWdmJWOWpiMndvWVdWektIZzlabUZqZEc5eUtISnZkMjVoYldWektISmxjM1ZzZEhOUGRYUkJZbk11WTI5dWFXMXdLU3dnYkdWMlpXeHpQWEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJCWW5NdVkyOXVhVzF3S1Nrc0lIazlRMjl1WkZCbGNtMUpiWEFwTENCbWFXeHNQVzE1WTI5c2IzVnljMXN4WFN3Z2QybGtkR2c5TUM0MUtTQXJJR3hoWW5Nb2VEMWNJbFpoY21saFlteGxYQ0lzSUhrOVhDSkRiMjVrYVhScGIyNWhiQ0IyWVhKcFlXSnNaU0J3WlhKdGRYUmhkR2x2YmlCcGJYQnZjblJoYm1ObElDZ2xJR2hwWjJoc2VTQmhibTV2ZVdWa0tWd2lLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWENKelpYSnBabHdpS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLMXh1SUNCamIyOXlaRjltYkdsd0tDbGNibkJDWVhKY2JseHVhV1lnS0hOaGRtVndiRzkwY3lsN1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNJbEIwYzBGQ1pFaHBRVzV1YjNsQlluTldZWEp6UTI5dVVHVnliV2x0Y0M1emRtZGNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVEV4TGpVc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGd2ljM1puWENJcEtWeHVJQ0IxYm14cGJtc29YQ0pRZEhOQlFtUklhVUZ1Ym05NVFXSnpWbUZ5YzBOdmJsQmxjbTFwYlhBdWMzWm5YQ0lwWEc0Z0lGeHVJQ0JuWjNOaGRtVW9abWxzWlc1aGJXVTlYQ0pRZEhOQlFtUklhVUZ1Ym05NVFXSnpWbUZ5YzBOdmJsQmxjbTFwYlhBdWNHUm1YQ0lzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB4TVM0MUxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNJbkJrWmx3aUtTbGNiaUFnZFc1c2FXNXJLRndpVUhSelFVSmtTR2xCYm01dmVVRmljMVpoY25ORGIyNVFaWEp0YVcxd0xuQmtabHdpS1Z4dWZWeHVZR0JnSW4wPSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEFicy5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0QWJzJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEFicy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1sxXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgK1xuICBjb29yZF9mbGlwKClcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBYnNWYXJzQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTExLjUsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWJzVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWJzVmFyc0NvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0xMS41LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUFic1ZhcnNDb25QZXJtaW1wLnBkZlxcKVxufVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutAbs.conimp <- arrange(resultsOutAbs$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutAbs.conimp) + geom_col(aes(x=factor(rownames(resultsOutAbs.conimp), levels=rownames(resultsOutAbs.conimp)), y=CondPermImp), fill=mycolours[1], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) +
coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAbsVarsConPermimp.svg\, width=8, height=11.5, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAbsVarsConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyAbsVarsConPermimp.pdf\, width=8, height=11.5, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAbsVarsConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRFRmljeTVqYjI1cGJYQWdQQzBnWVhKeVlXNW5aU2h5WlhOMWJIUnpUM1YwUVdKekpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQXNJR1JsYzJNb2NtOTNYMjUxYldKbGNpZ3BLU2xjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEVGaWN5NWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSQlluTXVZMjl1YVcxd0tTd2diR1YyWld4elBYSnZkMjVoYldWektISmxjM1ZzZEhOUGRYUkJZbk11WTI5dWFXMXdLU2tzSUhrOVEyOXVaRkJsY20xSmJYQXBMQ0JtYVd4c1BXMTVZMjlzYjNWeWMxc3hYU3dnZDJsa2RHZzlNQzQxS1NBcklHeGhZbk1vZUQxY1hGWmhjbWxoWW14bFhGd3NJSGs5WEZ4RGIyNWthWFJwYjI1aGJDQjJZWEpwWVdKc1pTQndaWEp0ZFhSaGRHbHZiaUJwYlhCdmNuUmhibU5sSUNnbElHaHBaMmhzZVNCaGJtNXZlV1ZrS1Z4Y0tTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYRnh6WlhKcFpseGNLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1NrZ0sxeHVJQ0JqYjI5eVpGOW1iR2x3S0NsY2JuQkNZWEpjYmx4dWFXWWdLSE5oZG1Wd2JHOTBjeWw3WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY1hGQjBjMEZDWkVocFFXNXViM2xCWW5OV1lYSnpRMjl1VUdWeWJXbHRjQzV6ZG1kY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBURXhMalVzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ4Y2MzWm5YRndwS1Z4dUlDQjFibXhwYm1zb1hGeFFkSE5CUW1SSWFVRnVibTk1UVdKelZtRnljME52YmxCbGNtMXBiWEF1YzNablhGd3BYRzRnSUZ4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhGeFFkSE5CUW1SSWFVRnVibTk1UVdKelZtRnljME52YmxCbGNtMXBiWEF1Y0dSbVhGd3NJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHhNUzQxTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY1hIQmtabHhjS1NsY2JpQWdkVzVzYVc1cktGeGNVSFJ6UVVKa1NHbEJibTV2ZVVGaWMxWmhjbk5EYjI1UVpYSnRhVzF3TG5Ca1pseGNLVnh1ZlZ4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRBYnMuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dEFicyRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRBYnMuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0QWJzLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0QWJzLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbMV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICtcbiAgY29vcmRfZmxpcCgpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWJzVmFyc0NvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0xMS41LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUFic1ZhcnNDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFic1ZhcnNDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MTEuNSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBYnNWYXJzQ29uUGVybWltcC5wZGZcXClcbn1cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEFicy5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0QWJzJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEFicy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1sxXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgK1xuICBjb29yZF9mbGlwKClcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBYnNWYXJzQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTExLjUsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWJzVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWJzVmFyc0NvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0xMS41LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUFic1ZhcnNDb25QZXJtaW1wLnBkZlxcKVxufVxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutAbs.conimp <- arrange(resultsOutAbs$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutAbs.conimp) + geom_col(aes(x=factor(rownames(resultsOutAbs.conimp), levels=rownames(resultsOutAbs.conimp)), y=CondPermImp), fill=mycolours[1], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) +
coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAbsVarsConPermimp.svg\, width=8, height=11.5, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAbsVarsConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyAbsVarsConPermimp.pdf\, width=8, height=11.5, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAbsVarsConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZCc2IzUWdiMjVzZVNCd2IzTnBkR2wyWlNCMllXeDFaWE5jYm5KbGMzVnNkSE5QZFhSQlluTXVZMjl1YVcxd1VIUjJJRHd0SUhKbGMzVnNkSE5QZFhSQlluTXVZMjl1YVcxd0lIdytYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQnliM2R1WVcxbGMxOTBiMTlqYjJ4MWJXNG9KMDFsZEhKcFl5Y3BJSHcrWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQm1hV3gwWlhKZmFXWW9hWE11Ym5WdFpYSnBZeXdnWVd4c1gzWmhjbk1vTGlBK0lEQXBLU0I4UGx4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ1kyOXNkVzF1WDNSdlgzSnZkMjVoYldWektDZE5aWFJ5YVdNbktWeHVYRzV3UW1GeUlEd3RJR2RuY0d4dmRDaHlaWE4xYkhSelQzVjBRV0p6TG1OdmJtbHRjRkIwZGl3cElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSQlluTXVZMjl1YVcxd1VIUjJLU3dnYkdWMlpXeHpQWEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJCWW5NdVkyOXVhVzF3VUhSMktTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzeFhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjSWxaaGNtbGhZbXhsWENJc0lIazlYQ0pEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxJQ2dsSUdocFoyaHNlU0JoYm01dmVXVmtLVndpS1NBcklIUm9aVzFsS0hSbGVIUWdQU0JsYkdWdFpXNTBYM1JsZUhRb1ptRnRhV3g1SUQwZ1hDSnpaWEpwWmx3aUtTd2djR0Z1Wld3dVozSnBaRDFsYkdWdFpXNTBYMnhwYm1Vb1kyOXNiM0lnUFNCeVoySW9Nak0xTENBeU16VXNJREl6TlN3Z01UQXdMQ0J0WVhoRGIyeHZjbFpoYkhWbElEMGdNalUxS1N3Z2JHbHVaWGRwWkhSb0lEMGdNQzR5TlN3Z2JHbHVaWFI1Y0dVZ1BTQXlLU2tnS3lCamIyOXlaRjltYkdsd0tDbGNibkJDWVhKY2JseHVhV1lnS0hOaGRtVndiRzkwY3lsN1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNJbEIwYzBGQ1pFaHBRVzV1YjNsQlluTldZWEp6UTI5dVVHVnliV2x0Y0ZCMGRpNXpkbWRjSWl3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRnc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGd2ljM1puWENJcEtWeHVJQ0IxYm14cGJtc29YQ0pRZEhOQlFtUklhVUZ1Ym05NVFXSnpWbUZ5YzBOdmJsQmxjbTFwYlhCUWRIWXVjM1puWENJcFhHNGdJRnh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WENKUWRITkJRbVJJYVVGdWJtOTVRV0p6Vm1GeWMwTnZibEJsY20xcGJYQlFkSFl1Y0dSbVhDSXNJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMDRMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjSW5Ca1psd2lLU2xjYmlBZ2RXNXNhVzVyS0Z3aVVIUnpRVUprU0dsQmJtNXZlVUZpYzFaaGNuTkRiMjVRWlhKdGFXMXdVSFIyTG5Ca1psd2lLVnh1ZlZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG4jIFBsb3Qgb25seSBwb3NpdGl2ZSB2YWx1ZXNcbnJlc3VsdHNPdXRBYnMuY29uaW1wUHR2IDwtIHJlc3VsdHNPdXRBYnMuY29uaW1wIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXJfaWYoaXMubnVtZXJpYywgYWxsX3ZhcnMoLiA+IDApKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uX3RvX3Jvd25hbWVzKCdNZXRyaWMnKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0QWJzLmNvbmltcFB0diwpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wUHR2KSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wUHR2KSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1sxXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBYnNWYXJzQ29uUGVybWltcFB0di5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTgsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWJzVmFyc0NvblBlcm1pbXBQdHYuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWJzVmFyc0NvblBlcm1pbXBQdHYucGRmXFwsIHdpZHRoPTgsIGhlaWdodD04LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUFic1ZhcnNDb25QZXJtaW1wUHR2LnBkZlxcKVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Plot only positive values
resultsOutAbs.conimpPtv <- resultsOutAbs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > 0)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbs.conimpPtv,) + geom_col(aes(x=factor(rownames(resultsOutAbs.conimpPtv), levels=rownames(resultsOutAbs.conimpPtv)), y=CondPermImp), fill=mycolours[1], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAbsVarsConPermimpPtv.svg\, width=8, height=8, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAbsVarsConPermimpPtv.svg\)
ggsave(filename=\PtsABdHiAnnoyAbsVarsConPermimpPtv.pdf\, width=8, height=8, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAbsVarsConPermimpPtv.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkJzYjNRZ2IyNXNlU0J3YjNOcGRHbDJaU0IyWVd4MVpYTmNibkpsYzNWc2RITlBkWFJCWW5NdVkyOXVhVzF3VUhSMklEd3RJSEpsYzNWc2RITlBkWFJCWW5NdVkyOXVhVzF3SUh3K1hHNGdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCeWIzZHVZVzFsYzE5MGIxOWpiMngxYlc0b0owMWxkSEpwWXljcElIdytYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCbWFXeDBaWEpmYVdZb2FYTXViblZ0WlhKcFl5d2dZV3hzWDNaaGNuTW9MaUErSURBcEtTQjhQbHh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnWTI5c2RXMXVYM1J2WDNKdmQyNWhiV1Z6S0NkTlpYUnlhV01uS1Z4dVhHNXdRbUZ5SUR3dElHZG5jR3h2ZENoeVpYTjFiSFJ6VDNWMFFXSnpMbU52Ym1sdGNGQjBkaXdwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJCWW5NdVkyOXVhVzF3VUhSMktTd2diR1YyWld4elBYSnZkMjVoYldWektISmxjM1ZzZEhOUGRYUkJZbk11WTI5dWFXMXdVSFIyS1Nrc0lIazlRMjl1WkZCbGNtMUpiWEFwTENCbWFXeHNQVzE1WTI5c2IzVnljMXN4WFN3Z2QybGtkR2c5TUM0MUtTQXJJR3hoWW5Nb2VEMWNYRlpoY21saFlteGxYRndzSUhrOVhGeERiMjVrYVhScGIyNWhiQ0IyWVhKcFlXSnNaU0J3WlhKdGRYUmhkR2x2YmlCcGJYQnZjblJoYm1ObElDZ2xJR2hwWjJoc2VTQmhibTV2ZVdWa0tWeGNLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWEZ4elpYSnBabHhjS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLeUJqYjI5eVpGOW1iR2x3S0NsY2JuQkNZWEpjYmx4dWFXWWdLSE5oZG1Wd2JHOTBjeWw3WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY1hGQjBjMEZDWkVocFFXNXViM2xCWW5OV1lYSnpRMjl1VUdWeWJXbHRjRkIwZGk1emRtZGNYQ3dnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVGdzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ4Y2MzWm5YRndwS1Z4dUlDQjFibXhwYm1zb1hGeFFkSE5CUW1SSWFVRnVibTk1UVdKelZtRnljME52YmxCbGNtMXBiWEJRZEhZdWMzWm5YRndwWEc0Z0lGeHVJQ0JuWjNOaGRtVW9abWxzWlc1aGJXVTlYRnhRZEhOQlFtUklhVUZ1Ym05NVFXSnpWbUZ5YzBOdmJsQmxjbTFwYlhCUWRIWXVjR1JtWEZ3c0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQwNExDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNYSEJrWmx4Y0tTbGNiaUFnZFc1c2FXNXJLRnhjVUhSelFVSmtTR2xCYm01dmVVRmljMVpoY25ORGIyNVFaWEp0YVcxd1VIUjJMbkJrWmx4Y0tWeHVmVnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSBwb3NpdGl2ZSB2YWx1ZXNcbnJlc3VsdHNPdXRBYnMuY29uaW1wUHR2IDwtIHJlc3VsdHNPdXRBYnMuY29uaW1wIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXJfaWYoaXMubnVtZXJpYywgYWxsX3ZhcnMoLiA+IDApKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uX3RvX3Jvd25hbWVzKCdNZXRyaWMnKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0QWJzLmNvbmltcFB0diwpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wUHR2KSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wUHR2KSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1sxXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBYnNWYXJzQ29uUGVybWltcFB0di5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTgsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWJzVmFyc0NvblBlcm1pbXBQdHYuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWJzVmFyc0NvblBlcm1pbXBQdHYucGRmXFwsIHdpZHRoPTgsIGhlaWdodD04LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUFic1ZhcnNDb25QZXJtaW1wUHR2LnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSBwb3NpdGl2ZSB2YWx1ZXNcbnJlc3VsdHNPdXRBYnMuY29uaW1wUHR2IDwtIHJlc3VsdHNPdXRBYnMuY29uaW1wIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXJfaWYoaXMubnVtZXJpYywgYWxsX3ZhcnMoLiA+IDApKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uX3RvX3Jvd25hbWVzKCdNZXRyaWMnKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0QWJzLmNvbmltcFB0diwpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wUHR2KSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRBYnMuY29uaW1wUHR2KSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1sxXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBYnNWYXJzQ29uUGVybWltcFB0di5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTgsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWJzVmFyc0NvblBlcm1pbXBQdHYuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWJzVmFyc0NvblBlcm1pbXBQdHYucGRmXFwsIHdpZHRoPTgsIGhlaWdodD04LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUFic1ZhcnNDb25QZXJtaW1wUHR2LnBkZlxcKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# Plot only positive values
resultsOutAbs.conimpPtv <- resultsOutAbs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > 0)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbs.conimpPtv,) + geom_col(aes(x=factor(rownames(resultsOutAbs.conimpPtv), levels=rownames(resultsOutAbs.conimpPtv)), y=CondPermImp), fill=mycolours[1], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAbsVarsConPermimpPtv.svg\, width=8, height=8, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAbsVarsConPermimpPtv.svg\)
ggsave(filename=\PtsABdHiAnnoyAbsVarsConPermimpPtv.pdf\, width=8, height=8, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAbsVarsConPermimpPtv.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZCc2IzUWdiMjVzZVNCMllXeDFaWE1nZDJsMGFHbHVJREVsSUc5bUlIUm9aU0J0WVhocGJYVnRYRzV5WlhOMWJIUnpUM1YwUVdKekxtTnZibWx0Y0RGd1l5QThMU0J5WlhOMWJIUnpUM1YwUVdKekxtTnZibWx0Y0NCOFBseHVJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ2NtOTNibUZ0WlhOZmRHOWZZMjlzZFcxdUtDZE5aWFJ5YVdNbktTQjhQbHh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ1ptbHNkR1Z5WDJsbUtHbHpMbTUxYldWeWFXTXNJR0ZzYkY5MllYSnpLQzRnUGlCdFlYZ29jbVZ6ZFd4MGMwOTFkRUZpY3k1amIyNXBiWEFwTHpFd01Da3BJSHcrWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCamIyeDFiVzVmZEc5ZmNtOTNibUZ0WlhNb0owMWxkSEpwWXljcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUkJZbk11WTI5dWFXMXdNWEJqTENrZ0t5Qm5aVzl0WDJOdmJDaGhaWE1vZUQxbVlXTjBiM0lvY205M2JtRnRaWE1vY21WemRXeDBjMDkxZEVGaWN5NWpiMjVwYlhBeGNHTXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRUZpY3k1amIyNXBiWEF4Y0dNcEtTd2dlVDFEYjI1a1VHVnliVWx0Y0Nrc0lHWnBiR3c5YlhsamIyeHZkWEp6V3pGZExDQjNhV1IwYUQwd0xqVXBJQ3NnYkdGaWN5aDRQVndpVm1GeWFXRmliR1ZjSWl3Z2VUMWNJa052Ym1ScGRHbHZibUZzSUhaaGNtbGhZbXhsSUhCbGNtMTFkR0YwYVc5dUlHbHRjRzl5ZEdGdVkyVWdLQ1VnYUdsbmFHeDVJR0Z1Ym05NVpXUXBYQ0lwSUNzZ2RHaGxiV1VvZEdWNGRDQTlJR1ZzWlcxbGJuUmZkR1Y0ZENobVlXMXBiSGtnUFNCY0luTmxjbWxtWENJcExDQndZVzVsYkM1bmNtbGtQV1ZzWlcxbGJuUmZiR2x1WlNoamIyeHZjaUE5SUhKbllpZ3lNelVzSURJek5Td2dNak0xTENBeE1EQXNJRzFoZUVOdmJHOXlWbUZzZFdVZ1BTQXlOVFVwTENCc2FXNWxkMmxrZEdnZ1BTQXdMakkxTENCc2FXNWxkSGx3WlNBOUlESXBLU0FySUdOdmIzSmtYMlpzYVhBb0tWeHVjRUpoY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWd2lVSFJ6UVVKa1NHbEJibTV2ZVVGaWMxWmhjbk5EYjI1UVpYSnRhVzF3TVhCakxuTjJaMXdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TkN3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSnpkbWRjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1pFaHBRVzV1YjNsQlluTldZWEp6UTI5dVVHVnliV2x0Y0RGd1l5NXpkbWRjSWlsY2JpQWdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjSWxCMGMwRkNaRWhwUVc1dWIzbEJZbk5XWVhKelEyOXVVR1Z5YldsdGNERndZeTV3WkdaY0lpd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUUXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpY0dSbVhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJJYVVGdWJtOTVRV0p6Vm1GeWMwTnZibEJsY20xcGJYQXhjR011Y0dSbVhDSXBYRzU5WEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbiMgUGxvdCBvbmx5IHZhbHVlcyB3aXRoaW4gMSUgb2YgdGhlIG1heGltdW1cbnJlc3VsdHNPdXRBYnMuY29uaW1wMXBjIDwtIHJlc3VsdHNPdXRBYnMuY29uaW1wIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXJfaWYoaXMubnVtZXJpYywgYWxsX3ZhcnMoLiA+IG1heChyZXN1bHRzT3V0QWJzLmNvbmltcCkvMTAwKSkgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbl90b19yb3duYW1lcygnTWV0cmljJylcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEFicy5jb25pbXAxcGMsKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0QWJzLmNvbmltcDFwYyksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0QWJzLmNvbmltcDFwYykpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbMV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWJzVmFyc0NvblBlcm1pbXAxcGMuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD00LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUFic1ZhcnNDb25QZXJtaW1wMXBjLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFic1ZhcnNDb25QZXJtaW1wMXBjLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBYnNWYXJzQ29uUGVybWltcDFwYy5wZGZcXClcbn1cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Plot only values within 1% of the maximum
resultsOutAbs.conimp1pc <- resultsOutAbs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > max(resultsOutAbs.conimp)/100)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbs.conimp1pc,) + geom_col(aes(x=factor(rownames(resultsOutAbs.conimp1pc), levels=rownames(resultsOutAbs.conimp1pc)), y=CondPermImp), fill=mycolours[1], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAbsVarsConPermimp1pc.svg\, width=8, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAbsVarsConPermimp1pc.svg\)
ggsave(filename=\PtsABdHiAnnoyAbsVarsConPermimp1pc.pdf\, width=8, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAbsVarsConPermimp1pc.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkJzYjNRZ2IyNXNlU0IyWVd4MVpYTWdkMmwwYUdsdUlERWxJRzltSUhSb1pTQnRZWGhwYlhWdFhHNXlaWE4xYkhSelQzVjBRV0p6TG1OdmJtbHRjREZ3WXlBOExTQnlaWE4xYkhSelQzVjBRV0p6TG1OdmJtbHRjQ0I4UGx4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnY205M2JtRnRaWE5mZEc5ZlkyOXNkVzF1S0NkTlpYUnlhV01uS1NCOFBseHVJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnWm1sc2RHVnlYMmxtS0dsekxtNTFiV1Z5YVdNc0lHRnNiRjkyWVhKektDNGdQaUJ0WVhnb2NtVnpkV3gwYzA5MWRFRmljeTVqYjI1cGJYQXBMekV3TUNrcElIdytYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0JqYjJ4MWJXNWZkRzlmY205M2JtRnRaWE1vSjAxbGRISnBZeWNwWEc1Y2JuQkNZWElnUEMwZ1oyZHdiRzkwS0hKbGMzVnNkSE5QZFhSQlluTXVZMjl1YVcxd01YQmpMQ2tnS3lCblpXOXRYMk52YkNoaFpYTW9lRDFtWVdOMGIzSW9jbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRUZpY3k1amIyNXBiWEF4Y0dNcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRFRmljeTVqYjI1cGJYQXhjR01wS1N3Z2VUMURiMjVrVUdWeWJVbHRjQ2tzSUdacGJHdzliWGxqYjJ4dmRYSnpXekZkTENCM2FXUjBhRDB3TGpVcElDc2diR0ZpY3loNFBWeGNWbUZ5YVdGaWJHVmNYQ3dnZVQxY1hFTnZibVJwZEdsdmJtRnNJSFpoY21saFlteGxJSEJsY20xMWRHRjBhVzl1SUdsdGNHOXlkR0Z1WTJVZ0tDVWdhR2xuYUd4NUlHRnVibTk1WldRcFhGd3BJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjWEhObGNtbG1YRndwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJJR052YjNKa1gyWnNhWEFvS1Z4dWNFSmhjbHh1WEc1cFppQW9jMkYyWlhCc2IzUnpLWHRjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ4Y1VIUnpRVUprU0dsQmJtNXZlVUZpYzFaaGNuTkRiMjVRWlhKdGFXMXdNWEJqTG5OMloxeGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlOQ3dnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4emRtZGNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWkVocFFXNXViM2xCWW5OV1lYSnpRMjl1VUdWeWJXbHRjREZ3WXk1emRtZGNYQ2xjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNYRkIwYzBGQ1pFaHBRVzV1YjNsQlluTldZWEp6UTI5dVVHVnliV2x0Y0RGd1l5NXdaR1pjWEN3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRRc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjR1JtWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUklhVUZ1Ym05NVFXSnpWbUZ5YzBOdmJsQmxjbTFwYlhBeGNHTXVjR1JtWEZ3cFhHNTlYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSB2YWx1ZXMgd2l0aGluIDElIG9mIHRoZSBtYXhpbXVtXG5yZXN1bHRzT3V0QWJzLmNvbmltcDFwYyA8LSByZXN1bHRzT3V0QWJzLmNvbmltcCB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXNfdG9fY29sdW1uKCdNZXRyaWMnKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyX2lmKGlzLm51bWVyaWMsIGFsbF92YXJzKC4gPiBtYXgocmVzdWx0c091dEFicy5jb25pbXApLzEwMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW5fdG9fcm93bmFtZXMoJ01ldHJpYycpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRBYnMuY29uaW1wMXBjLCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dEFicy5jb25pbXAxcGMpLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEFicy5jb25pbXAxcGMpKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzFdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFic1ZhcnNDb25QZXJtaW1wMXBjLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBYnNWYXJzQ29uUGVybWltcDFwYy5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBYnNWYXJzQ29uUGVybWltcDFwYy5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWJzVmFyc0NvblBlcm1pbXAxcGMucGRmXFwpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSB2YWx1ZXMgd2l0aGluIDElIG9mIHRoZSBtYXhpbXVtXG5yZXN1bHRzT3V0QWJzLmNvbmltcDFwYyA8LSByZXN1bHRzT3V0QWJzLmNvbmltcCB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXNfdG9fY29sdW1uKCdNZXRyaWMnKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyX2lmKGlzLm51bWVyaWMsIGFsbF92YXJzKC4gPiBtYXgocmVzdWx0c091dEFicy5jb25pbXApLzEwMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW5fdG9fcm93bmFtZXMoJ01ldHJpYycpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRBYnMuY29uaW1wMXBjLCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dEFicy5jb25pbXAxcGMpLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEFicy5jb25pbXAxcGMpKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzFdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFic1ZhcnNDb25QZXJtaW1wMXBjLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBYnNWYXJzQ29uUGVybWltcDFwYy5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBYnNWYXJzQ29uUGVybWltcDFwYy5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWJzVmFyc0NvblBlcm1pbXAxcGMucGRmXFwpXG59XG5cbmBgYFxuYGBgIn0= -->
```r
```r
# Plot only values within 1% of the maximum
resultsOutAbs.conimp1pc <- resultsOutAbs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > max(resultsOutAbs.conimp)/100)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutAbs.conimp1pc,) + geom_col(aes(x=factor(rownames(resultsOutAbs.conimp1pc), levels=rownames(resultsOutAbs.conimp1pc)), y=CondPermImp), fill=mycolours[1], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAbsVarsConPermimp1pc.svg\, width=8, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAbsVarsConPermimp1pc.svg\)
ggsave(filename=\PtsABdHiAnnoyAbsVarsConPermimp1pc.pdf\, width=8, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAbsVarsConPermimp1pc.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVoWW5OV1lYSWdQQzBnWENKVlFWTk1iM1ZrUlVOTlFWQnZkMEYyWjBKcGJsd2lYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuYWJzVmFyIDwtIFxcVUFTTG91ZEVDTUFQb3dBdmdCaW5cXFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
absVar <- \UASLoudECMAPowAvgBin\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWhZbk5XWVhJZ1BDMGdYRnhWUVZOTWIzVmtSVU5OUVZCdmQwRjJaMEpwYmx4Y1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbmFic1ZhciA8LSBcXFVBU0xvdWRFQ01BUG93QXZnQmluXFxcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5hYnNWYXIgPC0gXFxVQVNMb3VkRUNNQVBvd0F2Z0JpblxcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
absVar <- \UASLoudECMAPowAvgBin\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
### SQM analysis
#### Replace ambient only stimuli - OMITTED
Here, the 'ambient only' stimuli are replaced, as the SQM analysis can incorporate 0 values (whereas dB metrics cannot be handled in this way).
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJjYmlNZ2MzUnBiVVJoZEdGT2RXMGdQQzBnY21KcGJtUW9jM1JwYlVSaGRHRk9kVzBzSUhOMGFXMUVZWFJoVzNOMGFXMUVZWFJoV3lkVGRHbHRkV3gxY3lkZFhHNGpJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0E5UFNCY0lrRXhYQ0lzWEc0aklDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQmpiMnh1WVcxbGN5aHpkR2x0UkdGMFlVNTFiU2xkTEZ4dUl5QWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnYzNScGJVUmhkR0ZiYzNScGJVUmhkR0ZiSjFOMGFXMTFiSFZ6SjExY2JpTWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJRDA5SUZ3aVFUSmNJaXhjYmlNZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lHTnZiRzVoYldWektITjBhVzFFWVhSaFRuVnRLVjBwWEc0aklITjBhVzFFWVhSaFRuVnRJRHd0SUdGeWNtRnVaMlVvYzNScGJVUmhkR0ZPZFcwc0lGTjBhVzExYkhWektWeHVYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbiMgXG4jIHN0aW1EYXRhTnVtIDwtIHJiaW5kKHN0aW1EYXRhTnVtLCBzdGltRGF0YVtzdGltRGF0YVsnU3RpbXVsdXMnXVxuIyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgPT0gXFxBMVxcLFxuIyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sbmFtZXMoc3RpbURhdGFOdW0pXSxcbiMgICAgICAgICAgICAgICAgICAgICAgIHN0aW1EYXRhW3N0aW1EYXRhWydTdGltdWx1cyddXG4jICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICA9PSBcXEEyXFwsXG4jICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2xuYW1lcyhzdGltRGF0YU51bSldKVxuIyBzdGltRGF0YU51bSA8LSBhcnJhbmdlKHN0aW1EYXRhTnVtLCBTdGltdWx1cylcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
#
# stimDataNum <- rbind(stimDataNum, stimData[stimData['Stimulus']
# == \A1\,
# colnames(stimDataNum)],
# stimData[stimData['Stimulus']
# == \A2\,
# colnames(stimDataNum)])
# stimDataNum <- arrange(stimDataNum, Stimulus)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QmNiaU1nYzNScGJVUmhkR0ZPZFcwZ1BDMGdjbUpwYm1Rb2MzUnBiVVJoZEdGT2RXMHNJSE4wYVcxRVlYUmhXM04wYVcxRVlYUmhXeWRUZEdsdGRXeDFjeWRkWEc0aklDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQTlQU0JjWEVFeFhGd3NYRzRqSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCamIyeHVZVzFsY3loemRHbHRSR0YwWVU1MWJTbGRMRnh1SXlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdjM1JwYlVSaGRHRmJjM1JwYlVSaGRHRmJKMU4wYVcxMWJIVnpKMTFjYmlNZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lEMDlJRnhjUVRKY1hDeGNiaU1nSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUdOdmJHNWhiV1Z6S0hOMGFXMUVZWFJoVG5WdEtWMHBYRzRqSUhOMGFXMUVZWFJoVG5WdElEd3RJR0Z5Y21GdVoyVW9jM1JwYlVSaGRHRk9kVzBzSUZOMGFXMTFiSFZ6S1Z4dVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbiMgXG4jIHN0aW1EYXRhTnVtIDwtIHJiaW5kKHN0aW1EYXRhTnVtLCBzdGltRGF0YVtzdGltRGF0YVsnU3RpbXVsdXMnXVxuIyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgPT0gXFxBMVxcLFxuIyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sbmFtZXMoc3RpbURhdGFOdW0pXSxcbiMgICAgICAgICAgICAgICAgICAgICAgIHN0aW1EYXRhW3N0aW1EYXRhWydTdGltdWx1cyddXG4jICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICA9PSBcXEEyXFwsXG4jICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2xuYW1lcyhzdGltRGF0YU51bSldKVxuIyBzdGltRGF0YU51bSA8LSBhcnJhbmdlKHN0aW1EYXRhTnVtLCBTdGltdWx1cylcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBcbiMgc3RpbURhdGFOdW0gPC0gcmJpbmQoc3RpbURhdGFOdW0sIHN0aW1EYXRhW3N0aW1EYXRhWydTdGltdWx1cyddXG4jICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICA9PSBcXEExXFwsXG4jICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2xuYW1lcyhzdGltRGF0YU51bSldLFxuIyAgICAgICAgICAgICAgICAgICAgICAgc3RpbURhdGFbc3RpbURhdGFbJ1N0aW11bHVzJ11cbiMgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgID09IFxcQTJcXCxcbiMgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbG5hbWVzKHN0aW1EYXRhTnVtKV0pXG4jIHN0aW1EYXRhTnVtIDwtIGFycmFuZ2Uoc3RpbURhdGFOdW0sIFN0aW11bHVzKVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
#
# stimDataNum <- rbind(stimDataNum, stimData[stimData['Stimulus']
# == \A1\,
# colnames(stimDataNum)],
# stimData[stimData['Stimulus']
# == \A2\,
# colnames(stimDataNum)])
# stimDataNum <- arrange(stimDataNum, Stimulus)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Individual SQMs
##### Sharpness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dGaWMxWmhjaXdnWlhabGJuUldZWElzSUdGdFlsWmhjaXdnWENKVlFWTlRhR0Z5Y0VGMWNrbFRUek5RYjNkQmRtZE5ZWGhNVWx3aUxDQmNJbFZCVTFOb1lYSndRWFZ5U1ZOUE16QTFSWGhOWVhoTVVsd2lMQ0JjSWxWQlUxTm9ZWEp3UVhWeVUwaE5VRzkzUVhablRXRjRURkpjSWl3Z1hDSlZRVk5UYUdGeWNFRjFjbE5JVFRBMVJYaE5ZWGhNVWx3aUxDQmNJbFZCVTFOb1lYSndRWFZ5U1ZOUE1WQnZkMEYyWjAxaGVFeFNYQ0lzSUZ3aVZVRlRVMmhoY25CQmRYSkpVMDh4TURWRmVFMWhlRXhTWENJc0lGd2lWVUZUVTJoaGNuQjJRa2xUVHpGUWIzZEJkbWROWVhoTVVsd2lMQ0JjSWxWQlUxTm9ZWEp3ZGtKSlUwOHhNRFZGZUUxaGVFeFNYQ0lzSUZ3aVZVRlRVMmhoY25CRVNVNVFiM2RCZG1kTllYaE1VbHdpTENCY0lsVkJVMU5vWVhKd1JFbE9NRFZGZUUxaGVFeFNYQ0lwWEc1a1ZtRnlJRHd0SUZ3aVpFaHBaMmhCYm01dmVWQmpYQ0pjYmx4dWMyVmxaSE1nUEMwZ1l5ZzNNRFF4TENBNU1EVXNJRFE1T0RRMk5URXNJRFkxTVRNeU1UTXNJREV5TURZMU1TbGNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuaVZhcnMgPC0gYyhhYnNWYXIsIGV2ZW50VmFyLCBhbWJWYXIsIFxcVUFTU2hhcnBBdXJJU08zUG93QXZnTWF4TFJcXCwgXFxVQVNTaGFycEF1cklTTzMwNUV4TWF4TFJcXCwgXFxVQVNTaGFycEF1clNITVBvd0F2Z01heExSXFwsIFxcVUFTU2hhcnBBdXJTSE0wNUV4TWF4TFJcXCwgXFxVQVNTaGFycEF1cklTTzFQb3dBdmdNYXhMUlxcLCBcXFVBU1NoYXJwQXVySVNPMTA1RXhNYXhMUlxcLCBcXFVBU1NoYXJwdkJJU08xUG93QXZnTWF4TFJcXCwgXFxVQVNTaGFycHZCSVNPMTA1RXhNYXhMUlxcLCBcXFVBU1NoYXJwRElOUG93QXZnTWF4TFJcXCwgXFxVQVNTaGFycERJTjA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoNzA0MSwgOTA1LCA0OTg0NjUxLCA2NTEzMjEzLCAxMjA2NTEpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
iVars <- c(absVar, eventVar, ambVar, \UASSharpAurISO3PowAvgMaxLR\, \UASSharpAurISO305ExMaxLR\, \UASSharpAurSHMPowAvgMaxLR\, \UASSharpAurSHM05ExMaxLR\, \UASSharpAurISO1PowAvgMaxLR\, \UASSharpAurISO105ExMaxLR\, \UASSharpvBISO1PowAvgMaxLR\, \UASSharpvBISO105ExMaxLR\, \UASSharpDINPowAvgMaxLR\, \UASSharpDIN05ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(7041, 905, 4984651, 6513213, 120651)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR0ZpYzFaaGNpd2daWFpsYm5SV1lYSXNJR0Z0WWxaaGNpd2dYRnhWUVZOVGFHRnljRUYxY2tsVFR6TlFiM2RCZG1kTllYaE1VbHhjTENCY1hGVkJVMU5vWVhKd1FYVnlTVk5QTXpBMVJYaE5ZWGhNVWx4Y0xDQmNYRlZCVTFOb1lYSndRWFZ5VTBoTlVHOTNRWFpuVFdGNFRGSmNYQ3dnWEZ4VlFWTlRhR0Z5Y0VGMWNsTklUVEExUlhoTllYaE1VbHhjTENCY1hGVkJVMU5vWVhKd1FYVnlTVk5QTVZCdmQwRjJaMDFoZUV4U1hGd3NJRnhjVlVGVFUyaGhjbkJCZFhKSlUwOHhNRFZGZUUxaGVFeFNYRndzSUZ4Y1ZVRlRVMmhoY25CMlFrbFRUekZRYjNkQmRtZE5ZWGhNVWx4Y0xDQmNYRlZCVTFOb1lYSndka0pKVTA4eE1EVkZlRTFoZUV4U1hGd3NJRnhjVlVGVFUyaGhjbkJFU1U1UWIzZEJkbWROWVhoTVVseGNMQ0JjWEZWQlUxTm9ZWEp3UkVsT01EVkZlRTFoZUV4U1hGd3BYRzVrVm1GeUlEd3RJRnhjWkVocFoyaEJibTV2ZVZCalhGeGNibHh1YzJWbFpITWdQQzBnWXlnM01EUXhMQ0E1TURVc0lEUTVPRFEyTlRFc0lEWTFNVE15TVRNc0lERXlNRFkxTVNsY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbmlWYXJzIDwtIGMoYWJzVmFyLCBldmVudFZhciwgYW1iVmFyLCBcXFVBU1NoYXJwQXVySVNPM1Bvd0F2Z01heExSXFwsIFxcVUFTU2hhcnBBdXJJU08zMDVFeE1heExSXFwsIFxcVUFTU2hhcnBBdXJTSE1Qb3dBdmdNYXhMUlxcLCBcXFVBU1NoYXJwQXVyU0hNMDVFeE1heExSXFwsIFxcVUFTU2hhcnBBdXJJU08xUG93QXZnTWF4TFJcXCwgXFxVQVNTaGFycEF1cklTTzEwNUV4TWF4TFJcXCwgXFxVQVNTaGFycHZCSVNPMVBvd0F2Z01heExSXFwsIFxcVUFTU2hhcnB2QklTTzEwNUV4TWF4TFJcXCwgXFxVQVNTaGFycERJTlBvd0F2Z01heExSXFwsIFxcVUFTU2hhcnBESU4wNUV4TWF4TFJcXClcbmRWYXIgPC0gXFxkSGlnaEFubm95UGNcXFxuXG5zZWVkcyA8LSBjKDcwNDEsIDkwNSwgNDk4NDY1MSwgNjUxMzIxMywgMTIwNjUxKVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNTaGFycEF1cklTTzNQb3dBdmdNYXhMUlxcLCBcXFVBU1NoYXJwQXVySVNPMzA1RXhNYXhMUlxcLCBcXFVBU1NoYXJwQXVyU0hNUG93QXZnTWF4TFJcXCwgXFxVQVNTaGFycEF1clNITTA1RXhNYXhMUlxcLCBcXFVBU1NoYXJwQXVySVNPMVBvd0F2Z01heExSXFwsIFxcVUFTU2hhcnBBdXJJU08xMDVFeE1heExSXFwsIFxcVUFTU2hhcnB2QklTTzFQb3dBdmdNYXhMUlxcLCBcXFVBU1NoYXJwdkJJU08xMDVFeE1heExSXFwsIFxcVUFTU2hhcnBESU5Qb3dBdmdNYXhMUlxcLCBcXFVBU1NoYXJwRElOMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg3MDQxLCA5MDUsIDQ5ODQ2NTEsIDY1MTMyMTMsIDEyMDY1MSlcblxuYGBgXG5gYGAifQ== -->
```r
```r
iVars <- c(absVar, eventVar, ambVar, \UASSharpAurISO3PowAvgMaxLR\, \UASSharpAurISO305ExMaxLR\, \UASSharpAurSHMPowAvgMaxLR\, \UASSharpAurSHM05ExMaxLR\, \UASSharpAurISO1PowAvgMaxLR\, \UASSharpAurISO105ExMaxLR\, \UASSharpvBISO1PowAvgMaxLR\, \UASSharpvBISO105ExMaxLR\, \UASSharpDINPowAvgMaxLR\, \UASSharpDIN05ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(7041, 905, 4984651, 6513213, 120651)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbnBcblxuXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Y2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbnAgPC0gbXRyeVR1bmUoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkPXNlZWRzWzE6Ml0sXG4gICAgICAgICAgICAgbnRyZWVzPW50cmVlcywgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5wXG5cblxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5cblxuYGBgXG5gYGAifQ== -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F4TURBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqVXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gMTAwMVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS41KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 1001
mtry <- as.integer(length(iVars)/1.5)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXhNREF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDEwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAxMDAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 1001
mtry <- as.integer(length(iVars)/1.5)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlRhR0Z5Y0NBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJUYUdGeWNDUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRk5vWVhKd0pFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTaGFycCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc3VsdHNPdXRTaGFycCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutSharp <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
resultsOutSharp$OOB_MAE
resultsOutSharp$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSVGFHRnljQ0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3SkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSVGFHRnljQ1JTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTaGFycCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc3VsdHNPdXRTaGFycCRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTaGFycCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc3VsdHNPdXRTaGFycCRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutSharp <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
resultsOutSharp$OOB_MAE
resultsOutSharp$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVTJoaGNuQWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3SkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFUyaGhjbkFrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZOb1lYSndKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dFNoYXJwIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc3VsdHNPdXRTaGFycCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutSharp <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
resultsOutSharp$OOB_MAE
resultsOutSharp$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVMmhoY25BZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZOb1lYSndKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwVTJoaGNuQWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRk5vWVhKd0pGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRTaGFycCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U2hhcnAkT09CX1JNU0VcbnJlc3VsdHNPdXRTaGFycCRPT0JfTUFFXG5yZXN1bHRzT3V0U2hhcnAkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0U2hhcnAgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFNoYXJwJE9PQl9STVNFXG5yZXN1bHRzT3V0U2hhcnAkT09CX01BRVxucmVzdWx0c091dFNoYXJwJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSharp <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
resultsOutSharp$OOB_MAE
resultsOutSharp$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEc5eVpTQnlaWE4xYkhSelhHNXlaWE5rU0dsQmJtNXZlVVpwZEVGQ1d5ZEJZbk1nYzJoaGNuQW5MQ0FuVWsxVFJTZGRJRHd0SUhKbGMzVnNkSE5QZFhSVGFHRnljQ1JQVDBKZlVrMVRSVnh1Y21WelpFaHBRVzV1YjNsR2FYUkJRbHNuUVdKeklITm9ZWEp3Snl3Z0owMUJSU2RkSUR3dElISmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSUFQwSmZUVUZGWEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkQlluTWdjMmhoY25BbkxDQW5Vbk54ZFdGeVpXUW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFUyaGhjbkFrVW5OeGRXRnlaV1JjYm5KbGMyUklhVUZ1Ym05NVVHVnliVWx0Y0VGQ0pFRmljMU5vWVhKd0lEd3RJSEpsYzNWc2RITlBkWFJUYUdGeWNDUmpiMjVrYVhScGIyNWhiRjl3WlhKdGFXMXdYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbiMgc3RvcmUgcmVzdWx0c1xucmVzZEhpQW5ub3lGaXRBQlsnQWJzIHNoYXJwJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U2hhcnAkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBzaGFycCcsICdNQUUnXSA8LSByZXN1bHRzT3V0U2hhcnAkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIHNoYXJwJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFNoYXJwJFJzcXVhcmVkXG5yZXNkSGlBbm5veVBlcm1JbXBBQiRBYnNTaGFycCA8LSByZXN1bHRzT3V0U2hhcnAkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdHiAnnoyFitAB['Abs sharp', 'RMSE'] <- resultsOutSharp$OOB_RMSE
resdHiAnnoyFitAB['Abs sharp', 'MAE'] <- resultsOutSharp$OOB_MAE
resdHiAnnoyFitAB['Abs sharp', 'Rsquared'] <- resultsOutSharp$Rsquared
resdHiAnnoyPermImpAB$AbsSharp <- resultsOutSharp$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkRzl5WlNCeVpYTjFiSFJ6WEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkQlluTWdjMmhoY25BbkxDQW5VazFUUlNkZElEd3RJSEpsYzNWc2RITlBkWFJUYUdGeWNDUlBUMEpmVWsxVFJWeHVjbVZ6WkVocFFXNXViM2xHYVhSQlFsc25RV0p6SUhOb1lYSndKeXdnSjAxQlJTZGRJRHd0SUhKbGMzVnNkSE5QZFhSVGFHRnljQ1JQVDBKZlRVRkZYRzV5WlhOa1NHbEJibTV2ZVVacGRFRkNXeWRCWW5NZ2MyaGhjbkFuTENBblVuTnhkV0Z5WldRblhTQThMU0J5WlhOMWJIUnpUM1YwVTJoaGNuQWtVbk54ZFdGeVpXUmNibkpsYzJSSWFVRnVibTk1VUdWeWJVbHRjRUZDSkVGaWMxTm9ZWEp3SUR3dElISmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBzaGFycCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFNoYXJwJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgc2hhcnAnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBzaGFycCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRTaGFycCRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzU2hhcnAgPC0gcmVzdWx0c091dFNoYXJwJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgc2hhcnAnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIHNoYXJwJywgJ01BRSddIDwtIHJlc3VsdHNPdXRTaGFycCRPT0JfTUFFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgc2hhcnAnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U2hhcnAkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJEFic1NoYXJwIDwtIHJlc3VsdHNPdXRTaGFycCRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# store results
resdHiAnnoyFitAB['Abs sharp', 'RMSE'] <- resultsOutSharp$OOB_RMSE
resdHiAnnoyFitAB['Abs sharp', 'MAE'] <- resultsOutSharp$OOB_MAE
resdHiAnnoyFitAB['Abs sharp', 'Rsquared'] <- resultsOutSharp$Rsquared
resdHiAnnoyPermImpAB$AbsSharp <- resultsOutSharp$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRk5vWVhKd0xtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJUYUdGeWNDNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVGFHRnljQzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRk5vWVhKd0xtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTWwwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9KU0JvYVdkb2JIa2dZVzV1YjNsbFpDbGNJaWtnS3lCblozUnBkR3hsS0Z3aVUyaGhjbkJ1WlhOelhDSXBJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjSW5ObGNtbG1YQ0lwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJJR052YjNKa1gyWnNhWEFvS1Z4dWNFSmhjbHh1WEc1cFppQW9jMkYyWlhCc2IzUnpLWHRjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ3aVVIUnpRVUprU0dsQmJtNXZlVk5vWVhKd1EyOXVVR1Z5YldsdGNDNXpkbWRjSWl3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRRdU9Td2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p6ZG1kY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNaRWhwUVc1dWIzbFRhR0Z5Y0VOdmJsQmxjbTFwYlhBdWMzWm5YQ0lwWEc0Z0lGeHVJQ0JuWjNOaGRtVW9abWxzWlc1aGJXVTlYQ0pRZEhOQlFtUklhVUZ1Ym05NVUyaGhjbkJEYjI1UVpYSnRhVzF3TG5Ca1psd2lMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlOQzQ1TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luQmtabHdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1NHbEJibTV2ZVZOb1lYSndRMjl1VUdWeWJXbHRjQzV3WkdaY0lpbGNibjFjYmx4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNoYXJwLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTaGFycCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTaGFycC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTaGFycC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNoYXJwLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbMl0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcU2hhcnBuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veVNoYXJwQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTQuOSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lTaGFycENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95U2hhcnBDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9NC45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veVNoYXJwQ29uUGVybWltcC5wZGZcXClcbn1cblxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSharp.conimp <- arrange(resultsOutSharp$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSharp.conimp) + geom_col(aes(x=factor(rownames(resultsOutSharp.conimp), levels=rownames(resultsOutSharp.conimp)), y=CondPermImp), fill=mycolours[2], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\Sharpness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoySharpConPermimp.svg\, width=8, height=4.9, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoySharpConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoySharpConPermimp.pdf\, width=8, height=4.9, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoySharpConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3TG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSVGFHRnljQ1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlRhR0Z5Y0M1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJUYUdGeWNDNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGTm9ZWEp3TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJNbDBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb0pTQm9hV2RvYkhrZ1lXNXViM2xsWkNsY1hDa2dLeUJuWjNScGRHeGxLRnhjVTJoaGNuQnVaWE56WEZ3cElDc2dkR2hsYldVb2RHVjRkQ0E5SUdWc1pXMWxiblJmZEdWNGRDaG1ZVzFwYkhrZ1BTQmNYSE5sY21sbVhGd3BMQ0J3WVc1bGJDNW5jbWxrUFdWc1pXMWxiblJmYkdsdVpTaGpiMnh2Y2lBOUlISm5ZaWd5TXpVc0lESXpOU3dnTWpNMUxDQXhNREFzSUcxaGVFTnZiRzl5Vm1Gc2RXVWdQU0F5TlRVcExDQnNhVzVsZDJsa2RHZ2dQU0F3TGpJMUxDQnNhVzVsZEhsd1pTQTlJRElwS1NBcklHTnZiM0prWDJac2FYQW9LVnh1Y0VKaGNseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVnhjVUhSelFVSmtTR2xCYm01dmVWTm9ZWEp3UTI5dVVHVnliV2x0Y0M1emRtZGNYQ3dnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVFF1T1N3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHpkbWRjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1pFaHBRVzV1YjNsVGFHRnljRU52YmxCbGNtMXBiWEF1YzNablhGd3BYRzRnSUZ4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhGeFFkSE5CUW1SSWFVRnVibTk1VTJoaGNuQkRiMjVRWlhKdGFXMXdMbkJrWmx4Y0xDQjNhV1IwYUQwNExDQm9aV2xuYUhROU5DNDVMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhCa1pseGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprU0dsQmJtNXZlVk5vWVhKd1EyOXVVR1Z5YldsdGNDNXdaR1pjWENsY2JuMWNibHh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNoYXJwLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTaGFycCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTaGFycC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTaGFycC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNoYXJwLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbMl0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcU2hhcnBuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veVNoYXJwQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTQuOSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lTaGFycENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95U2hhcnBDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9NC45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veVNoYXJwQ29uUGVybWltcC5wZGZcXClcbn1cblxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNoYXJwLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTaGFycCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTaGFycC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTaGFycC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNoYXJwLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbMl0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcU2hhcnBuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veVNoYXJwQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTQuOSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lTaGFycENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95U2hhcnBDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9NC45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veVNoYXJwQ29uUGVybWltcC5wZGZcXClcbn1cblxuXG5gYGBcbmBgYCJ9 -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSharp.conimp <- arrange(resultsOutSharp$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSharp.conimp) + geom_col(aes(x=factor(rownames(resultsOutSharp.conimp), levels=rownames(resultsOutSharp.conimp)), y=CondPermImp), fill=mycolours[2], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\Sharpness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoySharpConPermimp.svg\, width=8, height=4.9, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoySharpConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoySharpConPermimp.pdf\, width=8, height=4.9, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoySharpConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV6YUdGeWNGWmhjaUE4TFNCY0lsVkJVMU5vWVhKd1FYVnlTVk5QTXpBMVJYaE5ZWGhNVWx3aVhHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG5zaGFycFZhciA8LSBcXFVBU1NoYXJwQXVySVNPMzA1RXhNYXhMUlxcXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
sharpVar <- \UASSharpAurISO305ExMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXphR0Z5Y0ZaaGNpQThMU0JjWEZWQlUxTm9ZWEp3UVhWeVNWTlBNekExUlhoTllYaE1VbHhjWEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxuc2hhcnBWYXIgPC0gXFxVQVNTaGFycEF1cklTTzMwNUV4TWF4TFJcXFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5zaGFycFZhciA8LSBcXFVBU1NoYXJwQXVySVNPMzA1RXhNYXhMUlxcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
sharpVar <- \UASSharpAurISO305ExMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### Tonal loudness and tonality
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dGaWMxWmhjaXdnWlhabGJuUldZWElzSUdGdFlsWmhjaXdnWENKVlFWTlViMjVoYkVWRFRVRkJkbWROWVhoTVVsd2lMQ0JjSWxWQlUxUnZibUZzVTBoTlNXNTBNRFZGZUUxaGVFeFNYQ0lzSUZ3aVZVRlRWRzl1WVd4VFNFMUpiblJCZG1kTllYaE1VbHdpTENCY0lsVkJVMVJ2Ym1Gc1JVTk5RVEExUlhoTllYaE1VbHdpTENCY0lsVkJVMVJ2Ymt4a1JVTk5RVkJ2ZDBGMlowSnBibHdpTENCY0lsVkJVMVJ2Ymt4a1JVTk5RVEExUlhoQ2FXNWNJaXdnWENKVlFWTlViMjVoYkVGMWNrRjJaMDFoZUV4U1hDSXNJRndpVlVGVFZHOXVZV3hCZFhJd05VVjRUV0Y0VEZKY0lpd2dYQ0pWUVZOVWIyNWhiRUYxY2pFd1JYaE5ZWGhNVWx3aUtWeHVaRlpoY2lBOExTQmNJbVJJYVdkb1FXNXViM2xRWTF3aVhHNWNibk5sWldSeklEd3RJR01vTlRRd0xDQXhNRFEzT1Rnc0lEUTFOalEyTkN3Z09EY3pNekVzSURrME5UWTBLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmlWYXJzIDwtIGMoYWJzVmFyLCBldmVudFZhciwgYW1iVmFyLCBcXFVBU1RvbmFsRUNNQUF2Z01heExSXFwsIFxcVUFTVG9uYWxTSE1JbnQwNUV4TWF4TFJcXCwgXFxVQVNUb25hbFNITUludEF2Z01heExSXFwsIFxcVUFTVG9uYWxFQ01BMDVFeE1heExSXFwsIFxcVUFTVG9uTGRFQ01BUG93QXZnQmluXFwsIFxcVUFTVG9uTGRFQ01BMDVFeEJpblxcLCBcXFVBU1RvbmFsQXVyQXZnTWF4TFJcXCwgXFxVQVNUb25hbEF1cjA1RXhNYXhMUlxcLCBcXFVBU1RvbmFsQXVyMTBFeE1heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg1NDAsIDEwNDc5OCwgNDU2NDY0LCA4NzMzMSwgOTQ1NjQpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
iVars <- c(absVar, eventVar, ambVar, \UASTonalECMAAvgMaxLR\, \UASTonalSHMInt05ExMaxLR\, \UASTonalSHMIntAvgMaxLR\, \UASTonalECMA05ExMaxLR\, \UASTonLdECMAPowAvgBin\, \UASTonLdECMA05ExBin\, \UASTonalAurAvgMaxLR\, \UASTonalAur05ExMaxLR\, \UASTonalAur10ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(540, 104798, 456464, 87331, 94564)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR0ZpYzFaaGNpd2daWFpsYm5SV1lYSXNJR0Z0WWxaaGNpd2dYRnhWUVZOVWIyNWhiRVZEVFVGQmRtZE5ZWGhNVWx4Y0xDQmNYRlZCVTFSdmJtRnNVMGhOU1c1ME1EVkZlRTFoZUV4U1hGd3NJRnhjVlVGVFZHOXVZV3hUU0UxSmJuUkJkbWROWVhoTVVseGNMQ0JjWEZWQlUxUnZibUZzUlVOTlFUQTFSWGhOWVhoTVVseGNMQ0JjWEZWQlUxUnZia3hrUlVOTlFWQnZkMEYyWjBKcGJseGNMQ0JjWEZWQlUxUnZia3hrUlVOTlFUQTFSWGhDYVc1Y1hDd2dYRnhWUVZOVWIyNWhiRUYxY2tGMlowMWhlRXhTWEZ3c0lGeGNWVUZUVkc5dVlXeEJkWEl3TlVWNFRXRjRURkpjWEN3Z1hGeFZRVk5VYjI1aGJFRjFjakV3UlhoTllYaE1VbHhjS1Z4dVpGWmhjaUE4TFNCY1hHUklhV2RvUVc1dWIzbFFZMXhjWEc1Y2JuTmxaV1J6SUR3dElHTW9OVFF3TENBeE1EUTNPVGdzSURRMU5qUTJOQ3dnT0Rjek16RXNJRGswTlRZMEtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmlWYXJzIDwtIGMoYWJzVmFyLCBldmVudFZhciwgYW1iVmFyLCBcXFVBU1RvbmFsRUNNQUF2Z01heExSXFwsIFxcVUFTVG9uYWxTSE1JbnQwNUV4TWF4TFJcXCwgXFxVQVNUb25hbFNITUludEF2Z01heExSXFwsIFxcVUFTVG9uYWxFQ01BMDVFeE1heExSXFwsIFxcVUFTVG9uTGRFQ01BUG93QXZnQmluXFwsIFxcVUFTVG9uTGRFQ01BMDVFeEJpblxcLCBcXFVBU1RvbmFsQXVyQXZnTWF4TFJcXCwgXFxVQVNUb25hbEF1cjA1RXhNYXhMUlxcLCBcXFVBU1RvbmFsQXVyMTBFeE1heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg1NDAsIDEwNDc5OCwgNDU2NDY0LCA4NzMzMSwgOTQ1NjQpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNUb25hbEVDTUFBdmdNYXhMUlxcLCBcXFVBU1RvbmFsU0hNSW50MDVFeE1heExSXFwsIFxcVUFTVG9uYWxTSE1JbnRBdmdNYXhMUlxcLCBcXFVBU1RvbmFsRUNNQTA1RXhNYXhMUlxcLCBcXFVBU1RvbkxkRUNNQVBvd0F2Z0JpblxcLCBcXFVBU1RvbkxkRUNNQTA1RXhCaW5cXCwgXFxVQVNUb25hbEF1ckF2Z01heExSXFwsIFxcVUFTVG9uYWxBdXIwNUV4TWF4TFJcXCwgXFxVQVNUb25hbEF1cjEwRXhNYXhMUlxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoNTQwLCAxMDQ3OTgsIDQ1NjQ2NCwgODczMzEsIDk0NTY0KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
iVars <- c(absVar, eventVar, ambVar, \UASTonalECMAAvgMaxLR\, \UASTonalSHMInt05ExMaxLR\, \UASTonalSHMIntAvgMaxLR\, \UASTonalECMA05ExMaxLR\, \UASTonLdECMAPowAvgBin\, \UASTonLdECMA05ExBin\, \UASTonalAurAvgMaxLR\, \UASTonalAur05ExMaxLR\, \UASTonalAur10ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(540, 104798, 456464, 87331, 94564)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0ExTURGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU1qVXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 501
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTFNREZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TWpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDUwMVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS4yNSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 501
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlU0IzYVhSb0lIUnZibUZzSUd4dmRXUnVaWE56WEc1Y2JtNXdaWEp0SUR3dElEVmNibHh1Y21WemRXeDBjMDkxZEZSdmJtRnNNU0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRFa1QwOUNYMUpOVTBWY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRFa1QwOUNYMDFCUlZ4dWNtVnpkV3gwYzA5MWRGUnZibUZzTVNSU2MzRjFZWEpsWkZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG4jIFRvbmFsaXR5IHdpdGggdG9uYWwgbG91ZG5lc3NcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0VG9uYWwxIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFRvbmFsMSRPT0JfUk1TRVxucmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5yZXN1bHRzT3V0VG9uYWwxJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Tonality with tonal loudness
nperm <- 5
resultsOutTonal1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
resultsOutTonal1$OOB_MAE
resultsOutTonal1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVTQjNhWFJvSUhSdmJtRnNJR3h2ZFdSdVpYTnpYRzVjYm01d1pYSnRJRHd0SURWY2JseHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TQThMU0JqY21aU1pXY29aR0YwWVVsdVBYTjBhVzFFWVhSaFRuVnRMQ0JwVm1GeWN6MXBWbUZ5Y3l3Z1pGWmhjajFrVm1GeUxDQnpaV1ZrY3oxelpXVmtjMXN4T2pKZExDQnVkSEpsWlQxdWRISmxaU3dnYlhSeWVUMXRkSEo1TENCd1pYSnRTVzF3UTI5dVpGUm9jbVZ6UFhCbGNtMUpiWEJEYjI1a1ZHaHlaWE1zSUc1d1pYSnRQVzV3WlhKdExDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYmx4dUl5QndjbWx1ZENCdGIyUmxiQ0J3Y21Wa2FXTjBhVzl1SUhKbGMzVnNkSE5jYm5KbGMzVnNkSE5QZFhSVWIyNWhiREVrVDA5Q1gxSk5VMFZjYm5KbGMzVnNkSE5QZFhSVWIyNWhiREVrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZSdmJtRnNNU1JTYzNGMVlYSmxaRnh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuIyBUb25hbGl0eSB3aXRoIHRvbmFsIGxvdWRuZXNzXG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dFRvbmFsMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDEkT09CX01BRVxucmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eSB3aXRoIHRvbmFsIGxvdWRuZXNzXG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dFRvbmFsMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDEkT09CX01BRVxucmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxuYGBgXG5gYGAifQ== -->
```r
```r
# Tonality with tonal loudness
nperm <- 5
resultsOutTonal1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
resultsOutTonal1$OOB_MAE
resultsOutTonal1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlU0IzYVhSb0lIUnZibUZzSUd4dmRXUnVaWE56WEc1Y2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRFZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZSdmJtRnNNU1JQVDBKZlVrMVRSVnh1Y21WemRXeDBjMDkxZEZSdmJtRnNNU1JQVDBKZlRVRkZYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3hKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbiMgVG9uYWxpdHkgd2l0aCB0b25hbCBsb3VkbmVzc1xuXG5yZXN1bHRzT3V0VG9uYWwxIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDEkT09CX01BRVxucmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Tonality with tonal loudness
resultsOutTonal1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
resultsOutTonal1$OOB_MAE
resultsOutTonal1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVTQjNhWFJvSUhSdmJtRnNJR3h2ZFdSdVpYTnpYRzVjYm5KbGMzVnNkSE5QZFhSVWIyNWhiREVnUEMwZ2JYVnNkR2xmWTNKbVVtVm5LR1JoZEdGSmJqMXpkR2x0UkdGMFlVNTFiU3dnYVZaaGNuTTlhVlpoY25Nc0lHUldZWEk5WkZaaGNpd2djMlZsWkhNOWMyVmxaSE1zSUc1MGNtVmxQVzUwY21WbExDQnRkSEo1UFcxMGNua3NJSEJsY20xSmJYQkRiMjVrVkdoeVpYTTljR1Z5YlVsdGNFTnZibVJVYUhKbGN5d2dibkJsY20wOWJuQmxjbTBzSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVYRzRqSUhCeWFXNTBJRzF2WkdWc0lIQnlaV1JwWTNScGIyNGdjbVZ6ZFd4MGMxeHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TUlBUMEpmVFVGRlhHNXlaWE4xYkhSelQzVjBWRzl1WVd3eEpGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG4jIFRvbmFsaXR5IHdpdGggdG9uYWwgbG91ZG5lc3NcblxucmVzdWx0c091dFRvbmFsMSA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwxJE9PQl9STVNFXG5yZXN1bHRzT3V0VG9uYWwxJE9PQl9NQUVcbnJlc3VsdHNPdXRUb25hbDEkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eSB3aXRoIHRvbmFsIGxvdWRuZXNzXG5cbnJlc3VsdHNPdXRUb25hbDEgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFRvbmFsMSRPT0JfUk1TRVxucmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5yZXN1bHRzT3V0VG9uYWwxJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# Tonality with tonal loudness
resultsOutTonal1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
resultsOutTonal1$OOB_MAE
resultsOutTonal1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEc5eVpTQnlaWE4xYkhSelhHNXlaWE5rU0dsQmJtNXZlVVpwZEVGQ1d5ZEJZbk1nZEc5dVlXd2dhVzVqSUd4dmRXUW5MQ0FuVWsxVFJTZGRJRHd0SUhKbGMzVnNkSE5QZFhSVWIyNWhiREVrVDA5Q1gxSk5VMFZjYm5KbGMyUklhVUZ1Ym05NVJtbDBRVUpiSjBGaWN5QjBiMjVoYkNCcGJtTWdiRzkxWkNjc0lDZE5RVVVuWFNBOExTQnlaWE4xYkhSelQzVjBWRzl1WVd3eEpFOVBRbDlOUVVWY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowRmljeUIwYjI1aGJDQnBibU1nYkc5MVpDY3NJQ2RTYzNGMVlYSmxaQ2RkSUR3dElISmxjM1ZzZEhOUGRYUlViMjVoYkRFa1VuTnhkV0Z5WldSY2JuSmxjMlJJYVVGdWJtOTVVR1Z5YlVsdGNFRkNKRUZpYzFSdmJtRnNNU0E4TFNCeVpYTjFiSFJ6VDNWMFZHOXVZV3d4SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhCY2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgdG9uYWwgaW5jIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0FicyB0b25hbCBpbmMgbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0VG9uYWwxJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FicyB0b25hbCBpbmMgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRUb25hbDEkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJEFic1RvbmFsMSA8LSByZXN1bHRzT3V0VG9uYWwxJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# store results
resdHiAnnoyFitAB['Abs tonal inc loud', 'RMSE'] <- resultsOutTonal1$OOB_RMSE
resdHiAnnoyFitAB['Abs tonal inc loud', 'MAE'] <- resultsOutTonal1$OOB_MAE
resdHiAnnoyFitAB['Abs tonal inc loud', 'Rsquared'] <- resultsOutTonal1$Rsquared
resdHiAnnoyPermImpAB$AbsTonal1 <- resultsOutTonal1$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkRzl5WlNCeVpYTjFiSFJ6WEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkQlluTWdkRzl1WVd3Z2FXNWpJR3h2ZFdRbkxDQW5VazFUUlNkZElEd3RJSEpsYzNWc2RITlBkWFJVYjI1aGJERWtUMDlDWDFKTlUwVmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMEZpY3lCMGIyNWhiQ0JwYm1NZ2JHOTFaQ2NzSUNkTlFVVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFZHOXVZV3d4SkU5UFFsOU5RVVZjYm5KbGMyUklhVUZ1Ym05NVJtbDBRVUpiSjBGaWN5QjBiMjVoYkNCcGJtTWdiRzkxWkNjc0lDZFNjM0YxWVhKbFpDZGRJRHd0SUhKbGMzVnNkSE5QZFhSVWIyNWhiREVrVW5OeGRXRnlaV1JjYm5KbGMyUklhVUZ1Ym05NVVHVnliVWx0Y0VGQ0pFRmljMVJ2Ym1Gc01TQThMU0J5WlhOMWJIUnpUM1YwVkc5dVlXd3hKR052Ym1ScGRHbHZibUZzWDNCbGNtMXBiWEJjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbiMgc3RvcmUgcmVzdWx0c1xucmVzZEhpQW5ub3lGaXRBQlsnQWJzIHRvbmFsIGluYyBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0VG9uYWwxJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgdG9uYWwgaW5jIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgdG9uYWwgaW5jIGxvdWQnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0VG9uYWwxJFJzcXVhcmVkXG5yZXNkSGlBbm5veVBlcm1JbXBBQiRBYnNUb25hbDEgPC0gcmVzdWx0c091dFRvbmFsMSRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgdG9uYWwgaW5jIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0FicyB0b25hbCBpbmMgbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0VG9uYWwxJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FicyB0b25hbCBpbmMgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRUb25hbDEkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJEFic1RvbmFsMSA8LSByZXN1bHRzT3V0VG9uYWwxJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdHiAnnoyFitAB['Abs tonal inc loud', 'RMSE'] <- resultsOutTonal1$OOB_RMSE
resdHiAnnoyFitAB['Abs tonal inc loud', 'MAE'] <- resultsOutTonal1$OOB_MAE
resdHiAnnoyFitAB['Abs tonal inc loud', 'Rsquared'] <- resultsOutTonal1$Rsquared
resdHiAnnoyPermImpAB$AbsTonal1 <- resultsOutTonal1$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3WVhJb2JXRnBQV01vTUN3ekxEQXNNQ2twWEc1Y2JpTWdjR3h2ZENCamIyNWthWFJwYjI1aGJDQnBiWEJ2Y25SaGJtTmxYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3hMbU52Ym1sdGNDQThMU0JoY25KaGJtZGxLSEpsYzNWc2RITlBkWFJVYjI1aGJERWtZMjl1WkdsMGFXOXVZV3hmY0dWeWJXbHRjQ3dnWkdWell5aHliM2RmYm5WdFltVnlLQ2twS1Z4dVhHNXdRbUZ5SUR3dElHZG5jR3h2ZENoeVpYTjFiSFJ6VDNWMFZHOXVZV3d4TG1OdmJtbHRjQ2tnS3lCblpXOXRYMk52YkNoaFpYTW9lRDFtWVdOMGIzSW9jbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGUnZibUZzTVM1amIyNXBiWEFwS1N3Z2VUMURiMjVrVUdWeWJVbHRjQ2tzSUdacGJHdzliWGxqYjJ4dmRYSnpXek5kTENCM2FXUjBhRDB3TGpVcElDc2diR0ZpY3loNFBWd2lWbUZ5YVdGaWJHVmNJaXdnZVQxY0lrTnZibVJwZEdsdmJtRnNJSFpoY21saFlteGxJSEJsY20xMWRHRjBhVzl1SUdsdGNHOXlkR0Z1WTJVZ0tDVWdhR2xuYUd4NUlHRnVibTk1WldRcFhDSXBJQ3NnWjJkMGFYUnNaU2hjSWxSdmJtRnNhWFI1SUdsdVl5NGdkRzl1WVd3Z2JHOTFaRzVsYzNOY0lpa2dLeUIwYUdWdFpTaDBaWGgwSUQwZ1pXeGxiV1Z1ZEY5MFpYaDBLR1poYldsc2VTQTlJRndpYzJWeWFXWmNJaWtzSUhCaGJtVnNMbWR5YVdROVpXeGxiV1Z1ZEY5c2FXNWxLR052Ykc5eUlEMGdjbWRpS0RJek5Td2dNak0xTENBeU16VXNJREV3TUN3Z2JXRjRRMjlzYjNKV1lXeDFaU0E5SURJMU5Ta3NJR3hwYm1WM2FXUjBhQ0E5SURBdU1qVXNJR3hwYm1WMGVYQmxJRDBnTWlrcElDc2dZMjl2Y21SZlpteHBjQ2g1YkdsdFBXTW9NQ3dnTVRFd0tTbGNibkJDWVhKY2JseHVhV1lnS0hOaGRtVndiRzkwY3lsN1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNJbEIwYzBGQ1pFaHBRVzV1YjNsVWIyNWhiRXhrUTI5dVVHVnliV2x0Y0M1emRtZGNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVE11T0N3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSnpkbWRjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1pFaHBRVzV1YjNsVWIyNWhiRXhrUTI5dVVHVnliV2x0Y0M1emRtZGNJaWxjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNJbEIwYzBGQ1pFaHBRVzV1YjNsVWIyNWhiRXhrUTI5dVVHVnliV2x0Y0M1d1pHWmNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVE11T0N3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSndaR1pjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1pFaHBRVzV1YjNsVWIyNWhiRXhrUTI5dVVHVnliV2x0Y0M1d1pHWmNJaWxjYm4xY2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0VG9uYWwxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRUb25hbDEkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dFRvbmFsMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFRvbmFsMS5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzNdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgZ2d0aXRsZShcXFRvbmFsaXR5IGluYy4gdG9uYWwgbG91ZG5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgMTEwKSlcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lUb25hbExkQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTMuOCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lUb25hbExkQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lUb25hbExkQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTMuOCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lUb25hbExkQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal1.conimp <- arrange(resultsOutTonal1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal1.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal1.conimp), levels=rownames(resultsOutTonal1.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\Tonality inc. tonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 110))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyTonalLdConPermimp.svg\, width=8, height=3.8, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyTonalLdConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyTonalLdConPermimp.pdf\, width=8, height=3.8, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyTonalLdConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdZWElvYldGcFBXTW9NQ3d6TERBc01Da3BYRzVjYmlNZ2NHeHZkQ0JqYjI1a2FYUnBiMjVoYkNCcGJYQnZjblJoYm1ObFhHNXlaWE4xYkhSelQzVjBWRzl1WVd3eExtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlViMjVoYkRFa1kyOXVaR2wwYVc5dVlXeGZjR1Z5YldsdGNDd2daR1Z6WXloeWIzZGZiblZ0WW1WeUtDa3BLVnh1WEc1d1FtRnlJRHd0SUdkbmNHeHZkQ2h5WlhOMWJIUnpUM1YwVkc5dVlXd3hMbU52Ym1sdGNDa2dLeUJuWlc5dFgyTnZiQ2hoWlhNb2VEMW1ZV04wYjNJb2NtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGUnZibUZzTVM1amIyNXBiWEFwTENCc1pYWmxiSE05Y205M2JtRnRaWE1vY21WemRXeDBjMDkxZEZSdmJtRnNNUzVqYjI1cGJYQXBLU3dnZVQxRGIyNWtVR1Z5YlVsdGNDa3NJR1pwYkd3OWJYbGpiMnh2ZFhKeld6TmRMQ0IzYVdSMGFEMHdMalVwSUNzZ2JHRmljeWg0UFZ4Y1ZtRnlhV0ZpYkdWY1hDd2dlVDFjWEVOdmJtUnBkR2x2Ym1Gc0lIWmhjbWxoWW14bElIQmxjbTExZEdGMGFXOXVJR2x0Y0c5eWRHRnVZMlVnS0NVZ2FHbG5hR3g1SUdGdWJtOTVaV1FwWEZ3cElDc2daMmQwYVhSc1pTaGNYRlJ2Ym1Gc2FYUjVJR2x1WXk0Z2RHOXVZV3dnYkc5MVpHNWxjM05jWENrZ0t5QjBhR1Z0WlNoMFpYaDBJRDBnWld4bGJXVnVkRjkwWlhoMEtHWmhiV2xzZVNBOUlGeGNjMlZ5YVdaY1hDa3NJSEJoYm1Wc0xtZHlhV1E5Wld4bGJXVnVkRjlzYVc1bEtHTnZiRzl5SUQwZ2NtZGlLREl6TlN3Z01qTTFMQ0F5TXpVc0lERXdNQ3dnYldGNFEyOXNiM0pXWVd4MVpTQTlJREkxTlNrc0lHeHBibVYzYVdSMGFDQTlJREF1TWpVc0lHeHBibVYwZVhCbElEMGdNaWtwSUNzZ1kyOXZjbVJmWm14cGNDaDViR2x0UFdNb01Dd2dNVEV3S1NsY2JuQkNZWEpjYmx4dWFXWWdLSE5oZG1Wd2JHOTBjeWw3WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY1hGQjBjMEZDWkVocFFXNXViM2xVYjI1aGJFeGtRMjl1VUdWeWJXbHRjQzV6ZG1kY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUTXVPQ3dnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4emRtZGNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWkVocFFXNXViM2xVYjI1aGJFeGtRMjl1VUdWeWJXbHRjQzV6ZG1kY1hDbGNiaUFnWEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY1hGQjBjMEZDWkVocFFXNXViM2xVYjI1aGJFeGtRMjl1VUdWeWJXbHRjQzV3WkdaY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUTXVPQ3dnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4d1pHWmNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWkVocFFXNXViM2xVYjI1aGJFeGtRMjl1VUdWeWJXbHRjQzV3WkdaY1hDbGNibjFjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFRvbmFsMS5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0VG9uYWwxJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dFRvbmFsMS5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDEuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDEuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1szXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIGdndGl0bGUoXFxUb25hbGl0eSBpbmMuIHRvbmFsIGxvdWRuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDExMCkpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95VG9uYWxMZENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0zLjgsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95VG9uYWxMZENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95VG9uYWxMZENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0zLjgsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95VG9uYWxMZENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0VG9uYWwxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRUb25hbDEkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dFRvbmFsMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFRvbmFsMS5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzNdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgZ2d0aXRsZShcXFRvbmFsaXR5IGluYy4gdG9uYWwgbG91ZG5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgMTEwKSlcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lUb25hbExkQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTMuOCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lUb25hbExkQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lUb25hbExkQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTMuOCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lUb25hbExkQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal1.conimp <- arrange(resultsOutTonal1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal1.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal1.conimp), levels=rownames(resultsOutTonal1.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\Tonality inc. tonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 110))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyTonalLdConPermimp.svg\, width=8, height=3.8, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyTonalLdConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyTonalLdConPermimp.pdf\, width=8, height=3.8, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyTonalLdConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzUwYjI1TVpGWmhjaUE4TFNCY0lsVkJVMVJ2Ymt4a1JVTk5RVkJ2ZDBGMlowSnBibHdpWEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbnRvbkxkVmFyIDwtIFxcVUFTVG9uTGRFQ01BUG93QXZnQmluXFxcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
tonLdVar <- \UASTonLdECMAPowAvgBin\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNTBiMjVNWkZaaGNpQThMU0JjWEZWQlUxUnZia3hrUlVOTlFWQnZkMEYyWjBKcGJseGNYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG50b25MZFZhciA8LSBcXFVBU1RvbkxkRUNNQVBvd0F2Z0JpblxcXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG50b25MZFZhciA8LSBcXFVBU1RvbkxkRUNNQVBvd0F2Z0JpblxcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
tonLdVar <- \UASTonLdECMAPowAvgBin\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### Tonality without tonal loudness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dGaWMxWmhjaXdnWlhabGJuUldZWElzSUdGdFlsWmhjaXdnWENKVlFWTlViMjVoYkVWRFRVRkJkbWROWVhoTVVsd2lMQ0JjSWxWQlUxUnZibUZzVTBoTlNXNTBNRFZGZUUxaGVFeFNYQ0lzSUZ3aVZVRlRWRzl1WVd4VFNFMUpiblJCZG1kTllYaE1VbHdpTENCY0lsVkJVMVJ2Ym1Gc1JVTk5RVEExUlhoTllYaE1VbHdpTENCY0lsVkJVMVJ2Ym1Gc1FYVnlRWFpuVFdGNFRGSmNJaXdnWENKVlFWTlViMjVoYkVGMWNqQTFSWGhOWVhoTVVsd2lMQ0JjSWxWQlUxUnZibUZzUVhWeU1UQkZlRTFoZUV4U1hDSXBYRzVrVm1GeUlEd3RJRndpWkVocFoyaEJibTV2ZVZCalhDSmNibHh1YzJWbFpITWdQQzBnWXlneE5UWXdPRGtzSURVNE5qQXNJREV3TlRJNExDQTRPVFUwTVN3Z05EWTROVEUwTmlsY2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNUb25hbEVDTUFBdmdNYXhMUlxcLCBcXFVBU1RvbmFsU0hNSW50MDVFeE1heExSXFwsIFxcVUFTVG9uYWxTSE1JbnRBdmdNYXhMUlxcLCBcXFVBU1RvbmFsRUNNQTA1RXhNYXhMUlxcLCBcXFVBU1RvbmFsQXVyQXZnTWF4TFJcXCwgXFxVQVNUb25hbEF1cjA1RXhNYXhMUlxcLCBcXFVBU1RvbmFsQXVyMTBFeE1heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYygxNTYwODksIDU4NjAsIDEwNTI4LCA4OTU0MSwgNDY4NTE0NilcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
iVars <- c(absVar, eventVar, ambVar, \UASTonalECMAAvgMaxLR\, \UASTonalSHMInt05ExMaxLR\, \UASTonalSHMIntAvgMaxLR\, \UASTonalECMA05ExMaxLR\, \UASTonalAurAvgMaxLR\, \UASTonalAur05ExMaxLR\, \UASTonalAur10ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(156089, 5860, 10528, 89541, 4685146)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR0ZpYzFaaGNpd2daWFpsYm5SV1lYSXNJR0Z0WWxaaGNpd2dYRnhWUVZOVWIyNWhiRVZEVFVGQmRtZE5ZWGhNVWx4Y0xDQmNYRlZCVTFSdmJtRnNVMGhOU1c1ME1EVkZlRTFoZUV4U1hGd3NJRnhjVlVGVFZHOXVZV3hUU0UxSmJuUkJkbWROWVhoTVVseGNMQ0JjWEZWQlUxUnZibUZzUlVOTlFUQTFSWGhOWVhoTVVseGNMQ0JjWEZWQlUxUnZibUZzUVhWeVFYWm5UV0Y0VEZKY1hDd2dYRnhWUVZOVWIyNWhiRUYxY2pBMVJYaE5ZWGhNVWx4Y0xDQmNYRlZCVTFSdmJtRnNRWFZ5TVRCRmVFMWhlRXhTWEZ3cFhHNWtWbUZ5SUR3dElGeGNaRWhwWjJoQmJtNXZlVkJqWEZ4Y2JseHVjMlZsWkhNZ1BDMGdZeWd4TlRZd09Ea3NJRFU0TmpBc0lERXdOVEk0TENBNE9UVTBNU3dnTkRZNE5URTBOaWxjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxuaVZhcnMgPC0gYyhhYnNWYXIsIGV2ZW50VmFyLCBhbWJWYXIsIFxcVUFTVG9uYWxFQ01BQXZnTWF4TFJcXCwgXFxVQVNUb25hbFNITUludDA1RXhNYXhMUlxcLCBcXFVBU1RvbmFsU0hNSW50QXZnTWF4TFJcXCwgXFxVQVNUb25hbEVDTUEwNUV4TWF4TFJcXCwgXFxVQVNUb25hbEF1ckF2Z01heExSXFwsIFxcVUFTVG9uYWxBdXIwNUV4TWF4TFJcXCwgXFxVQVNUb25hbEF1cjEwRXhNYXhMUlxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoMTU2MDg5LCA1ODYwLCAxMDUyOCwgODk1NDEsIDQ2ODUxNDYpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNUb25hbEVDTUFBdmdNYXhMUlxcLCBcXFVBU1RvbmFsU0hNSW50MDVFeE1heExSXFwsIFxcVUFTVG9uYWxTSE1JbnRBdmdNYXhMUlxcLCBcXFVBU1RvbmFsRUNNQTA1RXhNYXhMUlxcLCBcXFVBU1RvbmFsQXVyQXZnTWF4TFJcXCwgXFxVQVNUb25hbEF1cjA1RXhNYXhMUlxcLCBcXFVBU1RvbmFsQXVyMTBFeE1heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYygxNTYwODksIDU4NjAsIDEwNTI4LCA4OTU0MSwgNDY4NTE0NilcblxuYGBgXG5gYGAifQ== -->
```r
```r
iVars <- c(absVar, eventVar, ambVar, \UASTonalECMAAvgMaxLR\, \UASTonalSHMInt05ExMaxLR\, \UASTonalSHMIntAvgMaxLR\, \UASTonalECMA05ExMaxLR\, \UASTonalAurAvgMaxLR\, \UASTonalAur05ExMaxLR\, \UASTonalAur10ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(156089, 5860, 10528, 89541, 4685146)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0ExTlRBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDU1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 5501
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTFOVEF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDU1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA1NTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 5501
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlVnh1WEc1dWNHVnliU0E4TFNBMVhHNWNibkpsYzNWc2RITlBkWFJVYjI1aGJESWdQQzBnWTNKbVVtVm5LR1JoZEdGSmJqMXpkR2x0UkdGMFlVNTFiU3dnYVZaaGNuTTlhVlpoY25Nc0lHUldZWEk5WkZaaGNpd2djMlZsWkhNOWMyVmxaSE5iTVRveVhTeGNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRJa1QwOUNYMUpOVTBWY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRJa1QwOUNYMDFCUlZ4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWlSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuIyBUb25hbGl0eVxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRUb25hbDIgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sXG4gICAgICAgICAgICAgICAgICAgICAgICAgICBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDIkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDIkT09CX01BRVxucmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Tonality
nperm <- 5
resultsOutTonal2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2],
ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm,
minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
resultsOutTonal2$OOB_MAE
resultsOutTonal2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVWeHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRJZ1BDMGdZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITmJNVG95WFN4Y2JpQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc1hHNGdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYmx4dUl5QndjbWx1ZENCdGIyUmxiQ0J3Y21Wa2FXTjBhVzl1SUhKbGMzVnNkSE5jYm5KbGMzVnNkSE5QZFhSVWIyNWhiRElrVDA5Q1gxSk5VMFZjYm5KbGMzVnNkSE5QZFhSVWIyNWhiRElrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZSdmJtRnNNaVJTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuIyBUb25hbGl0eVxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRUb25hbDIgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sXG4gICAgICAgICAgICAgICAgICAgICAgICAgICBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDIkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDIkT09CX01BRVxucmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eVxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRUb25hbDIgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sXG4gICAgICAgICAgICAgICAgICAgICAgICAgICBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDIkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDIkT09CX01BRVxucmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# Tonality
nperm <- 5
resultsOutTonal2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2],
ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm,
minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
resultsOutTonal2$OOB_MAE
resultsOutTonal2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlVnh1WEc1eVpYTjFiSFJ6VDNWMFZHOXVZV3d5SUR3dElHMTFiSFJwWDJOeVpsSmxaeWhrWVhSaFNXNDljM1JwYlVSaGRHRk9kVzBzSUdsV1lYSnpQV2xXWVhKekxDQmtWbUZ5UFdSV1lYSXNJSE5sWldSelBYTmxaV1J6TENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJVYjI1aGJESWtUMDlDWDFKTlUwVmNibkpsYzNWc2RITlBkWFJVYjI1aGJESWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pUlNjM0YxWVhKbFpGeHVYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbiMgVG9uYWxpdHlcblxucmVzdWx0c091dFRvbmFsMiA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc3VsdHNPdXRUb25hbDIkUnNxdWFyZWRcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Tonality
resultsOutTonal2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
resultsOutTonal2$OOB_MAE
resultsOutTonal2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVWeHVYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3lJRHd0SUcxMWJIUnBYMk55WmxKbFp5aGtZWFJoU1c0OWMzUnBiVVJoZEdGT2RXMHNJR2xXWVhKelBXbFdZWEp6TENCa1ZtRnlQV1JXWVhJc0lITmxaV1J6UFhObFpXUnpMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRJa1QwOUNYMUpOVTBWY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRJa1QwOUNYMDFCUlZ4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWlSU2MzRjFZWEpsWkZ4dVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbiMgVG9uYWxpdHlcblxucmVzdWx0c091dFRvbmFsMiA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc3VsdHNPdXRUb25hbDIkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eVxuXG5yZXN1bHRzT3V0VG9uYWwyIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDIkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDIkT09CX01BRVxucmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# Tonality
resultsOutTonal2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
resultsOutTonal2$OOB_MAE
resultsOutTonal2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMEZpY3lCMGIyNWhiQ0J1YnlCc2IzVmtKeXdnSjFKTlUwVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFZHOXVZV3d5SkU5UFFsOVNUVk5GWEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkQlluTWdkRzl1WVd3Z2JtOGdiRzkxWkNjc0lDZE5RVVVuWFNBOExTQnlaWE4xYkhSelQzVjBWRzl1WVd3eUpFOVBRbDlOUVVWY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowRmljeUIwYjI1aGJDQnVieUJzYjNWa0p5d2dKMUp6Y1hWaGNtVmtKMTBnUEMwZ2NtVnpkV3gwYzA5MWRGUnZibUZzTWlSU2MzRjFZWEpsWkZ4dWNtVnpaRWhwUVc1dWIzbFFaWEp0U1cxd1FVSWtRV0p6Vkc5dVlXd3lJRHd0SUhKbGMzVnNkSE5QZFhSVWIyNWhiRElrWTI5dVpHbDBhVzl1WVd4ZmNHVnliV2x0Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0FicyB0b25hbCBubyBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgdG9uYWwgbm8gbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FicyB0b25hbCBubyBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzVG9uYWwyIDwtIHJlc3VsdHNPdXRUb25hbDIkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdHiAnnoyFitAB['Abs tonal no loud', 'RMSE'] <- resultsOutTonal2$OOB_RMSE
resdHiAnnoyFitAB['Abs tonal no loud', 'MAE'] <- resultsOutTonal2$OOB_MAE
resdHiAnnoyFitAB['Abs tonal no loud', 'Rsquared'] <- resultsOutTonal2$Rsquared
resdHiAnnoyPermImpAB$AbsTonal2 <- resultsOutTonal2$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowRmljeUIwYjI1aGJDQnVieUJzYjNWa0p5d2dKMUpOVTBVblhTQThMU0J5WlhOMWJIUnpUM1YwVkc5dVlXd3lKRTlQUWw5U1RWTkZYRzV5WlhOa1NHbEJibTV2ZVVacGRFRkNXeWRCWW5NZ2RHOXVZV3dnYm04Z2JHOTFaQ2NzSUNkTlFVVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFZHOXVZV3d5SkU5UFFsOU5RVVZjYm5KbGMyUklhVUZ1Ym05NVJtbDBRVUpiSjBGaWN5QjBiMjVoYkNCdWJ5QnNiM1ZrSnl3Z0oxSnpjWFZoY21Wa0oxMGdQQzBnY21WemRXeDBjMDkxZEZSdmJtRnNNaVJTYzNGMVlYSmxaRnh1Y21WelpFaHBRVzV1YjNsUVpYSnRTVzF3UVVJa1FXSnpWRzl1WVd3eUlEd3RJSEpsYzNWc2RITlBkWFJVYjI1aGJESWtZMjl1WkdsMGFXOXVZV3hmY0dWeWJXbHRjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0FicyB0b25hbCBubyBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgdG9uYWwgbm8gbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FicyB0b25hbCBubyBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzVG9uYWwyIDwtIHJlc3VsdHNPdXRUb25hbDIkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0FicyB0b25hbCBubyBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgdG9uYWwgbm8gbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FicyB0b25hbCBubyBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzVG9uYWwyIDwtIHJlc3VsdHNPdXRUb25hbDIkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# store results
resdHiAnnoyFitAB['Abs tonal no loud', 'RMSE'] <- resultsOutTonal2$OOB_RMSE
resdHiAnnoyFitAB['Abs tonal no loud', 'MAE'] <- resultsOutTonal2$OOB_MAE
resdHiAnnoyFitAB['Abs tonal no loud', 'Rsquared'] <- resultsOutTonal2$Rsquared
resdHiAnnoyPermImpAB$AbsTonal2 <- resultsOutTonal2$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pNWpiMjVwYlhBZ1BDMGdZWEp5WVc1blpTaHlaWE4xYkhSelQzVjBWRzl1WVd3eUpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQXNJR1JsYzJNb2NtOTNYMjUxYldKbGNpZ3BLU2xjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEZSdmJtRnNNaTVqYjI1cGJYQXBJQ3NnWjJWdmJWOWpiMndvWVdWektIZzlabUZqZEc5eUtISnZkMjVoYldWektISmxjM1ZzZEhOUGRYUlViMjVoYkRJdVkyOXVhVzF3S1N3Z2JHVjJaV3h6UFhKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVWIyNWhiREl1WTI5dWFXMXdLU2tzSUhrOVEyOXVaRkJsY20xSmJYQXBMQ0JtYVd4c1BXMTVZMjlzYjNWeWMxc3pYU3dnZDJsa2RHZzlNQzQxS1NBcklHeGhZbk1vZUQxY0lsWmhjbWxoWW14bFhDSXNJSGs5WENKRGIyNWthWFJwYjI1aGJDQjJZWEpwWVdKc1pTQndaWEp0ZFhSaGRHbHZiaUJwYlhCdmNuUmhibU5sSUNnbElHaHBaMmhzZVNCaGJtNXZlV1ZrS1Z3aUtTQXJJR2RuZEdsMGJHVW9YQ0pVYjI1aGJHbDBlU0IzTDI4Z2RHOXVZV3dnYkc5MVpHNWxjM05jSWlrZ0t5QjBhR1Z0WlNoMFpYaDBJRDBnWld4bGJXVnVkRjkwWlhoMEtHWmhiV2xzZVNBOUlGd2ljMlZ5YVdaY0lpa3NJSEJoYm1Wc0xtZHlhV1E5Wld4bGJXVnVkRjlzYVc1bEtHTnZiRzl5SUQwZ2NtZGlLREl6TlN3Z01qTTFMQ0F5TXpVc0lERXdNQ3dnYldGNFEyOXNiM0pXWVd4MVpTQTlJREkxTlNrc0lHeHBibVYzYVdSMGFDQTlJREF1TWpVc0lHeHBibVYwZVhCbElEMGdNaWtwSUNzZ1kyOXZjbVJmWm14cGNDaDViR2x0UFdNb01Dd2dNVEV3S1NsY2JuQkNZWEpjYmx4dWFXWWdLSE5oZG1Wd2JHOTBjeWw3WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY0lsQjBjMEZDWkVocFFXNXViM2xVYjI1aGJFTnZibEJsY20xcGJYQXVjM1puWENJc0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQwekxqSXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpYzNablhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJJYVVGdWJtOTVWRzl1WVd4RGIyNVFaWEp0YVcxd0xuTjJaMXdpS1Z4dUlDQmNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtTR2xCYm01dmVWUnZibUZzUTI5dVVHVnliV2x0Y0M1d1pHWmNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVE11TWl3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSndaR1pjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1pFaHBRVzV1YjNsVWIyNWhiRU52YmxCbGNtMXBiWEF1Y0dSbVhDSXBYRzU5WEc1Y2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFRvbmFsMi5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0VG9uYWwyJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dFRvbmFsMi5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1szXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIGdndGl0bGUoXFxUb25hbGl0eSB3L28gdG9uYWwgbG91ZG5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgMTEwKSlcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lUb25hbENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0zLjIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95VG9uYWxDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veVRvbmFsQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTMuMiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lUb25hbENvblBlcm1pbXAucGRmXFwpXG59XG5cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal2.conimp <- arrange(resultsOutTonal2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal2.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal2.conimp), levels=rownames(resultsOutTonal2.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\Tonality w/o tonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 110))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyTonalConPermimp.svg\, width=8, height=3.2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyTonalConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyTonalConPermimp.pdf\, width=8, height=3.2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyTonalConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWk1amIyNXBiWEFnUEMwZ1lYSnlZVzVuWlNoeVpYTjFiSFJ6VDNWMFZHOXVZV3d5SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhBc0lHUmxjMk1vY205M1gyNTFiV0psY2lncEtTbGNibHh1Y0VKaGNpQThMU0JuWjNCc2IzUW9jbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVWIyNWhiREl1WTI5dWFXMXdLU3dnYkdWMlpXeHpQWEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJVYjI1aGJESXVZMjl1YVcxd0tTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzelhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjWEZaaGNtbGhZbXhsWEZ3c0lIazlYRnhEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxJQ2dsSUdocFoyaHNlU0JoYm01dmVXVmtLVnhjS1NBcklHZG5kR2wwYkdVb1hGeFViMjVoYkdsMGVTQjNMMjhnZEc5dVlXd2diRzkxWkc1bGMzTmNYQ2tnS3lCMGFHVnRaU2gwWlhoMElEMGdaV3hsYldWdWRGOTBaWGgwS0daaGJXbHNlU0E5SUZ4Y2MyVnlhV1pjWENrc0lIQmhibVZzTG1keWFXUTlaV3hsYldWdWRGOXNhVzVsS0dOdmJHOXlJRDBnY21kaUtESXpOU3dnTWpNMUxDQXlNelVzSURFd01Dd2diV0Y0UTI5c2IzSldZV3gxWlNBOUlESTFOU2tzSUd4cGJtVjNhV1IwYUNBOUlEQXVNalVzSUd4cGJtVjBlWEJsSUQwZ01pa3BJQ3NnWTI5dmNtUmZabXhwY0NoNWJHbHRQV01vTUN3Z01URXdLU2xjYm5CQ1lYSmNibHh1YVdZZ0tITmhkbVZ3Ykc5MGN5bDdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjWEZCMGMwRkNaRWhwUVc1dWIzbFViMjVoYkVOdmJsQmxjbTFwYlhBdWMzWm5YRndzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB6TGpJc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjM1puWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUklhVUZ1Ym05NVZHOXVZV3hEYjI1UVpYSnRhVzF3TG5OMloxeGNLVnh1SUNCY2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1NHbEJibTV2ZVZSdmJtRnNRMjl1VUdWeWJXbHRjQzV3WkdaY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUTXVNaXdnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4d1pHWmNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWkVocFFXNXViM2xVYjI1aGJFTnZibEJsY20xcGJYQXVjR1JtWEZ3cFhHNTlYRzVjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRUb25hbDIuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFRvbmFsMiRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwyLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwyLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbM10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcVG9uYWxpdHkgdy9vIHRvbmFsIGxvdWRuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDExMCkpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95VG9uYWxDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9My4yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veVRvbmFsQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lUb25hbENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0zLjIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95VG9uYWxDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFRvbmFsMi5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0VG9uYWwyJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dFRvbmFsMi5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1szXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIGdndGl0bGUoXFxUb25hbGl0eSB3L28gdG9uYWwgbG91ZG5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgMTEwKSlcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lUb25hbENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0zLjIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95VG9uYWxDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veVRvbmFsQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTMuMiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lUb25hbENvblBlcm1pbXAucGRmXFwpXG59XG5cblxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal2.conimp <- arrange(resultsOutTonal2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal2.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal2.conimp), levels=rownames(resultsOutTonal2.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\Tonality w/o tonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 110))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyTonalConPermimp.svg\, width=8, height=3.2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyTonalConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyTonalConPermimp.pdf\, width=8, height=3.2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyTonalConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzUwYjI1aGJGWmhjaUE4TFNCY0lsVkJVMVJ2Ym1Gc1UwaE5TVzUwUVhablRXRjRURkpjSWx4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG50b25hbFZhciA8LSBcXFVBU1RvbmFsU0hNSW50QXZnTWF4TFJcXFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
tonalVar <- \UASTonalSHMIntAvgMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNTBiMjVoYkZaaGNpQThMU0JjWEZWQlUxUnZibUZzVTBoTlNXNTBRWFpuVFdGNFRGSmNYRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG50b25hbFZhciA8LSBcXFVBU1RvbmFsU0hNSW50QXZnTWF4TFJcXFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG50b25hbFZhciA8LSBcXFVBU1RvbmFsU0hNSW50QXZnTWF4TFJcXFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
tonalVar <- \UASTonalSHMIntAvgMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### Fluctuation strength
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUVac2RXTjBkV0YwYVc5dUlITjBjbVZ1WjNSb1hHNXBWbUZ5Y3lBOExTQmpLR0ZpYzFaaGNpd2daWFpsYm5SV1lYSXNJR0Z0WWxaaGNpd2dYQ0pWUVZOR2JIVmpkRk5JVFRFd1JYaENhVzVjSWl3Z1hDSlZRVk5HYkhWamRGTklUVEExUlhoQ2FXNWNJaXdnWENKVlFWTkdiSFZqZEVaYU1UQkZlRTFoZUV4U1hDSXNJRndpVlVGVFJteDFZM1JHV2pBMVJYaE5ZWGhNVWx3aUxDQmNJbFZCVTBac2RXTjBUMVl4TUVWNFRXRjRURkpjSWl3Z1hDSlZRVk5HYkhWamRFOVdNRFZGZUUxaGVFeFNYQ0lwWEc1a1ZtRnlJRHd0SUZ3aVpFaHBaMmhCYm01dmVWQmpYQ0pjYmx4dWMyVmxaSE1nUEMwZ1l5Z3lOVEV3Tnl3Z05UUTJNRGs0TENBeE9UVXNJRFU1TXpjc0lERXdNalkxT0NsY2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG4jIEZsdWN0dWF0aW9uIHN0cmVuZ3RoXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNGbHVjdFNITTEwRXhCaW5cXCwgXFxVQVNGbHVjdFNITTA1RXhCaW5cXCwgXFxVQVNGbHVjdEZaMTBFeE1heExSXFwsIFxcVUFTRmx1Y3RGWjA1RXhNYXhMUlxcLCBcXFVBU0ZsdWN0T1YxMEV4TWF4TFJcXCwgXFxVQVNGbHVjdE9WMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYygyNTEwNywgNTQ2MDk4LCAxOTUsIDU5MzcsIDEwMjY1OClcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Fluctuation strength
iVars <- c(absVar, eventVar, ambVar, \UASFluctSHM10ExBin\, \UASFluctSHM05ExBin\, \UASFluctFZ10ExMaxLR\, \UASFluctFZ05ExMaxLR\, \UASFluctOV10ExMaxLR\, \UASFluctOV05ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(25107, 546098, 195, 5937, 102658)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRVpzZFdOMGRXRjBhVzl1SUhOMGNtVnVaM1JvWEc1cFZtRnljeUE4TFNCaktHRmljMVpoY2l3Z1pYWmxiblJXWVhJc0lHRnRZbFpoY2l3Z1hGeFZRVk5HYkhWamRGTklUVEV3UlhoQ2FXNWNYQ3dnWEZ4VlFWTkdiSFZqZEZOSVRUQTFSWGhDYVc1Y1hDd2dYRnhWUVZOR2JIVmpkRVphTVRCRmVFMWhlRXhTWEZ3c0lGeGNWVUZUUm14MVkzUkdXakExUlhoTllYaE1VbHhjTENCY1hGVkJVMFpzZFdOMFQxWXhNRVY0VFdGNFRGSmNYQ3dnWEZ4VlFWTkdiSFZqZEU5V01EVkZlRTFoZUV4U1hGd3BYRzVrVm1GeUlEd3RJRnhjWkVocFoyaEJibTV2ZVZCalhGeGNibHh1YzJWbFpITWdQQzBnWXlneU5URXdOeXdnTlRRMk1EazRMQ0F4T1RVc0lEVTVNemNzSURFd01qWTFPQ2xjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxuIyBGbHVjdHVhdGlvbiBzdHJlbmd0aFxuaVZhcnMgPC0gYyhhYnNWYXIsIGV2ZW50VmFyLCBhbWJWYXIsIFxcVUFTRmx1Y3RTSE0xMEV4QmluXFwsIFxcVUFTRmx1Y3RTSE0wNUV4QmluXFwsIFxcVUFTRmx1Y3RGWjEwRXhNYXhMUlxcLCBcXFVBU0ZsdWN0RlowNUV4TWF4TFJcXCwgXFxVQVNGbHVjdE9WMTBFeE1heExSXFwsIFxcVUFTRmx1Y3RPVjA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoMjUxMDcsIDU0NjA5OCwgMTk1LCA1OTM3LCAxMDI2NTgpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIEZsdWN0dWF0aW9uIHN0cmVuZ3RoXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNGbHVjdFNITTEwRXhCaW5cXCwgXFxVQVNGbHVjdFNITTA1RXhCaW5cXCwgXFxVQVNGbHVjdEZaMTBFeE1heExSXFwsIFxcVUFTRmx1Y3RGWjA1RXhNYXhMUlxcLCBcXFVBU0ZsdWN0T1YxMEV4TWF4TFJcXCwgXFxVQVNGbHVjdE9WMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYygyNTEwNywgNTQ2MDk4LCAxOTUsIDU5MzcsIDEwMjY1OClcblxuYGBgXG5gYGAifQ== -->
```r
```r
# Fluctuation strength
iVars <- c(absVar, eventVar, ambVar, \UASFluctSHM10ExBin\, \UASFluctSHM05ExBin\, \UASFluctFZ10ExMaxLR\, \UASFluctFZ05ExMaxLR\, \UASFluctOV10ExMaxLR\, \UASFluctOV05ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(25107, 546098, 195, 5937, 102658)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0ExTURGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU1qVXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 501
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTFNREZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TWpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDUwMVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS4yNSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 501
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUkdiSFZqZENBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJHYkhWamRDUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRVpzZFdOMEpFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUkdiSFZqZENSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgICAgICAgICAgICAgICBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsXG4gICAgICAgICAgICAgICAgICAgICAgICAgIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutFluct <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2],
ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres,
nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
resultsOutFluct$OOB_MAE
resultsOutFluct$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSR2JIVmpkQ0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc1hHNGdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUkdiSFZqZENSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRFWnNkV04wSkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSR2JIVmpkQ1JTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgICAgICAgICAgICAgICBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsXG4gICAgICAgICAgICAgICAgICAgICAgICAgIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgICAgICAgICAgICAgICBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsXG4gICAgICAgICAgICAgICAgICAgICAgICAgIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutFluct <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2],
ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres,
nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
resultsOutFluct$OOB_MAE
resultsOutFluct$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwUm14MVkzUWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRFWnNkV04wSkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFJteDFZM1FrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEVac2RXTjBKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dEZsdWN0IDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutFluct <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
resultsOutFluct$OOB_MAE
resultsOutFluct$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBSbXgxWTNRZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEVac2RXTjBKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwUm14MVkzUWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRVpzZFdOMEpGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0Rmx1Y3QkT09CX1JNU0VcbnJlc3VsdHNPdXRGbHVjdCRPT0JfTUFFXG5yZXN1bHRzT3V0Rmx1Y3QkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0Rmx1Y3QgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEZsdWN0JE9PQl9STVNFXG5yZXN1bHRzT3V0Rmx1Y3QkT09CX01BRVxucmVzdWx0c091dEZsdWN0JFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutFluct <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
resultsOutFluct$OOB_MAE
resultsOutFluct$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMEZpY3lCbWJIVmpkQ2NzSUNkU1RWTkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRFWnNkV04wSkU5UFFsOVNUVk5GWEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkQlluTWdabXgxWTNRbkxDQW5UVUZGSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRVpzZFdOMEpFOVBRbDlOUVVWY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowRmljeUJtYkhWamRDY3NJQ2RTYzNGMVlYSmxaQ2RkSUR3dElISmxjM1ZzZEhOUGRYUkdiSFZqZENSU2MzRjFZWEpsWkZ4dWNtVnpaRWhwUVc1dWIzbFFaWEp0U1cxd1FVSWtRV0p6Um14MVkzUWdQQzBnY21WemRXeDBjMDkxZEVac2RXTjBKR052Ym1ScGRHbHZibUZzWDNCbGNtMXBiWEJjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEhpQW5ub3lGaXRBQlsnQWJzIGZsdWN0JywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0Rmx1Y3QkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBmbHVjdCcsICdNQUUnXSA8LSByZXN1bHRzT3V0Rmx1Y3QkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIGZsdWN0JywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dEZsdWN0JFJzcXVhcmVkXG5yZXNkSGlBbm5veVBlcm1JbXBBQiRBYnNGbHVjdCA8LSByZXN1bHRzT3V0Rmx1Y3QkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdHiAnnoyFitAB['Abs fluct', 'RMSE'] <- resultsOutFluct$OOB_RMSE
resdHiAnnoyFitAB['Abs fluct', 'MAE'] <- resultsOutFluct$OOB_MAE
resdHiAnnoyFitAB['Abs fluct', 'Rsquared'] <- resultsOutFluct$Rsquared
resdHiAnnoyPermImpAB$AbsFluct <- resultsOutFluct$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowRmljeUJtYkhWamRDY3NJQ2RTVFZORkoxMGdQQzBnY21WemRXeDBjMDkxZEVac2RXTjBKRTlQUWw5U1RWTkZYRzV5WlhOa1NHbEJibTV2ZVVacGRFRkNXeWRCWW5NZ1pteDFZM1FuTENBblRVRkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRFWnNkV04wSkU5UFFsOU5RVVZjYm5KbGMyUklhVUZ1Ym05NVJtbDBRVUpiSjBGaWN5Qm1iSFZqZENjc0lDZFNjM0YxWVhKbFpDZGRJRHd0SUhKbGMzVnNkSE5QZFhSR2JIVmpkQ1JTYzNGMVlYSmxaRnh1Y21WelpFaHBRVzV1YjNsUVpYSnRTVzF3UVVJa1FXSnpSbXgxWTNRZ1BDMGdjbVZ6ZFd4MGMwOTFkRVpzZFdOMEpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQmNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBmbHVjdCcsICdSTVNFJ10gPC0gcmVzdWx0c091dEZsdWN0JE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgZmx1Y3QnLCAnTUFFJ10gPC0gcmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBmbHVjdCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzRmx1Y3QgPC0gcmVzdWx0c091dEZsdWN0JGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBmbHVjdCcsICdSTVNFJ10gPC0gcmVzdWx0c091dEZsdWN0JE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgZmx1Y3QnLCAnTUFFJ10gPC0gcmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBmbHVjdCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzRmx1Y3QgPC0gcmVzdWx0c091dEZsdWN0JGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdHiAnnoyFitAB['Abs fluct', 'RMSE'] <- resultsOutFluct$OOB_RMSE
resdHiAnnoyFitAB['Abs fluct', 'MAE'] <- resultsOutFluct$OOB_MAE
resdHiAnnoyFitAB['Abs fluct', 'Rsquared'] <- resultsOutFluct$Rsquared
resdHiAnnoyPermImpAB$AbsFluct <- resultsOutFluct$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRVpzZFdOMExtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUkdiSFZqZENSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJHYkhWamRDNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSR2JIVmpkQzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRVpzZFdOMExtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTkYwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9KU0JvYVdkb2JIa2dZVzV1YjNsbFpDbGNJaWtnS3lCblozUnBkR3hsS0Z3aVJteDFZM1IxWVhScGIyNGdjM1J5Wlc1bmRHaGNJaWtnS3lCMGFHVnRaU2gwWlhoMElEMGdaV3hsYldWdWRGOTBaWGgwS0daaGJXbHNlU0E5SUZ3aWMyVnlhV1pjSWlrc0lIQmhibVZzTG1keWFXUTlaV3hsYldWdWRGOXNhVzVsS0dOdmJHOXlJRDBnY21kaUtESXpOU3dnTWpNMUxDQXlNelVzSURFd01Dd2diV0Y0UTI5c2IzSldZV3gxWlNBOUlESTFOU2tzSUd4cGJtVjNhV1IwYUNBOUlEQXVNalVzSUd4cGJtVjBlWEJsSUQwZ01pa3BJQ3NnWTI5dmNtUmZabXhwY0NncFhHNXdRbUZ5WEc1Y2JtbG1JQ2h6WVhabGNHeHZkSE1wZTF4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhDSlFkSE5CUW1SSWFVRnVibTk1Um14MVkzUkRiMjVRWlhKdGFXMXdMbk4yWjF3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pNDVMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjSW5OMloxd2lLU2xjYmlBZ2RXNXNhVzVyS0Z3aVVIUnpRVUprU0dsQmJtNXZlVVpzZFdOMFEyOXVVR1Z5YldsdGNDNXpkbWRjSWlsY2JpQWdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjSWxCMGMwRkNaRWhwUVc1dWIzbEdiSFZqZEVOdmJsQmxjbTFwYlhBdWNHUm1YQ0lzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB5TGprc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGd2ljR1JtWENJcEtWeHVJQ0IxYm14cGJtc29YQ0pRZEhOQlFtUklhVUZ1Ym05NVJteDFZM1JEYjI1UVpYSnRhVzF3TG5Ca1psd2lLVnh1ZlZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEZsdWN0LmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRGbHVjdCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRGbHVjdC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRGbHVjdC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEZsdWN0LmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNF0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcRmx1Y3R1YXRpb24gc3RyZW5ndGhcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95Rmx1Y3RDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUZsdWN0Q29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lGbHVjdENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjksIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95Rmx1Y3RDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutFluct.conimp <- arrange(resultsOutFluct$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutFluct.conimp) + geom_col(aes(x=factor(rownames(resultsOutFluct.conimp), levels=rownames(resultsOutFluct.conimp)), y=CondPermImp), fill=mycolours[4], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\Fluctuation strength\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyFluctConPermimp.svg\, width=8, height=2.9, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyFluctConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyFluctConPermimp.pdf\, width=8, height=2.9, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyFluctConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRFWnNkV04wTG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSR2JIVmpkQ1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUkdiSFZqZEM1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJHYkhWamRDNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRFWnNkV04wTG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJORjBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb0pTQm9hV2RvYkhrZ1lXNXViM2xsWkNsY1hDa2dLeUJuWjNScGRHeGxLRnhjUm14MVkzUjFZWFJwYjI0Z2MzUnlaVzVuZEdoY1hDa2dLeUIwYUdWdFpTaDBaWGgwSUQwZ1pXeGxiV1Z1ZEY5MFpYaDBLR1poYldsc2VTQTlJRnhjYzJWeWFXWmNYQ2tzSUhCaGJtVnNMbWR5YVdROVpXeGxiV1Z1ZEY5c2FXNWxLR052Ykc5eUlEMGdjbWRpS0RJek5Td2dNak0xTENBeU16VXNJREV3TUN3Z2JXRjRRMjlzYjNKV1lXeDFaU0E5SURJMU5Ta3NJR3hwYm1WM2FXUjBhQ0E5SURBdU1qVXNJR3hwYm1WMGVYQmxJRDBnTWlrcElDc2dZMjl2Y21SZlpteHBjQ2dwWEc1d1FtRnlYRzVjYm1sbUlDaHpZWFpsY0d4dmRITXBlMXh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WEZ4UWRITkJRbVJJYVVGdWJtOTVSbXgxWTNSRGIyNVFaWEp0YVcxd0xuTjJaMXhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWk0NUxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNYSE4yWjF4Y0tTbGNiaUFnZFc1c2FXNXJLRnhjVUhSelFVSmtTR2xCYm01dmVVWnNkV04wUTI5dVVHVnliV2x0Y0M1emRtZGNYQ2xjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNYRkIwYzBGQ1pFaHBRVzV1YjNsR2JIVmpkRU52YmxCbGNtMXBiWEF1Y0dSbVhGd3NJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHlMamtzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ4Y2NHUm1YRndwS1Z4dUlDQjFibXhwYm1zb1hGeFFkSE5CUW1SSWFVRnVibTk1Um14MVkzUkRiMjVRWlhKdGFXMXdMbkJrWmx4Y0tWeHVmVnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEZsdWN0LmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRGbHVjdCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRGbHVjdC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRGbHVjdC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEZsdWN0LmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNF0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcRmx1Y3R1YXRpb24gc3RyZW5ndGhcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95Rmx1Y3RDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUZsdWN0Q29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lGbHVjdENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjksIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95Rmx1Y3RDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEZsdWN0LmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRGbHVjdCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRGbHVjdC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRGbHVjdC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEZsdWN0LmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNF0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcRmx1Y3R1YXRpb24gc3RyZW5ndGhcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95Rmx1Y3RDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUZsdWN0Q29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lGbHVjdENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjksIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95Rmx1Y3RDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutFluct.conimp <- arrange(resultsOutFluct$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutFluct.conimp) + geom_col(aes(x=factor(rownames(resultsOutFluct.conimp), levels=rownames(resultsOutFluct.conimp)), y=CondPermImp), fill=mycolours[4], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\Fluctuation strength\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyFluctConPermimp.svg\, width=8, height=2.9, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyFluctConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyFluctConPermimp.pdf\, width=8, height=2.9, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyFluctConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVtYkhWamRGWmhjaUE4TFNCY0lsVkJVMFpzZFdOMFQxWXhNRVY0VFdGNFRGSmNJbHh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmZsdWN0VmFyIDwtIFxcVUFTRmx1Y3RPVjEwRXhNYXhMUlxcXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
fluctVar <- \UASFluctOV10ExMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNW1iSFZqZEZaaGNpQThMU0JjWEZWQlUwWnNkV04wVDFZeE1FVjRUV0Y0VEZKY1hGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmZsdWN0VmFyIDwtIFxcVUFTRmx1Y3RPVjEwRXhNYXhMUlxcXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5mbHVjdFZhciA8LSBcXFVBU0ZsdWN0T1YxMEV4TWF4TFJcXFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
fluctVar <- \UASFluctOV10ExMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### Roughness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZKdmRXZG9ibVZ6YzF4dWFWWmhjbk1nUEMwZ1l5aGhZbk5XWVhJc0lHVjJaVzUwVm1GeUxDQmhiV0pXWVhJc0lGd2lWVUZUVW05MVoyaEZRMDFCTVRCRmVFSnBibHdpTENCY0lsVkJVMUp2ZFdkb1JVTk5RVEExUlhoQ2FXNWNJaXdnWENKVlFWTlNiM1ZuYUVaYU1UQkZlRTFoZUV4U1hDSXNJRndpVlVGVFVtOTFaMmhHV2pBMVJYaE5ZWGhNVWx3aUxDQmNJbFZCVTFKdmRXZG9SRmN4TUVWNFRXRjRURkpjSWl3Z1hDSlZRVk5TYjNWbmFFUlhNRFZGZUUxaGVFeFNYQ0lwWEc1a1ZtRnlJRHd0SUZ3aVpFaHBaMmhCYm01dmVWQmpYQ0pjYmx4dWMyVmxaSE1nUEMwZ1l5ZzBOekF4TENBMU1qRTROeXdnTVRZMU9Ea3NJRFkxTWpFM0xDQXhOamc1TXlsY2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG4jIFJvdWdobmVzc1xuaVZhcnMgPC0gYyhhYnNWYXIsIGV2ZW50VmFyLCBhbWJWYXIsIFxcVUFTUm91Z2hFQ01BMTBFeEJpblxcLCBcXFVBU1JvdWdoRUNNQTA1RXhCaW5cXCwgXFxVQVNSb3VnaEZaMTBFeE1heExSXFwsIFxcVUFTUm91Z2hGWjA1RXhNYXhMUlxcLCBcXFVBU1JvdWdoRFcxMEV4TWF4TFJcXCwgXFxVQVNSb3VnaERXMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg0NzAxLCA1MjE4NywgMTY1ODksIDY1MjE3LCAxNjg5MylcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Roughness
iVars <- c(absVar, eventVar, ambVar, \UASRoughECMA10ExBin\, \UASRoughECMA05ExBin\, \UASRoughFZ10ExMaxLR\, \UASRoughFZ05ExMaxLR\, \UASRoughDW10ExMaxLR\, \UASRoughDW05ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(4701, 52187, 16589, 65217, 16893)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkp2ZFdkb2JtVnpjMXh1YVZaaGNuTWdQQzBnWXloaFluTldZWElzSUdWMlpXNTBWbUZ5TENCaGJXSldZWElzSUZ4Y1ZVRlRVbTkxWjJoRlEwMUJNVEJGZUVKcGJseGNMQ0JjWEZWQlUxSnZkV2RvUlVOTlFUQTFSWGhDYVc1Y1hDd2dYRnhWUVZOU2IzVm5hRVphTVRCRmVFMWhlRXhTWEZ3c0lGeGNWVUZUVW05MVoyaEdXakExUlhoTllYaE1VbHhjTENCY1hGVkJVMUp2ZFdkb1JGY3hNRVY0VFdGNFRGSmNYQ3dnWEZ4VlFWTlNiM1ZuYUVSWE1EVkZlRTFoZUV4U1hGd3BYRzVrVm1GeUlEd3RJRnhjWkVocFoyaEJibTV2ZVZCalhGeGNibHh1YzJWbFpITWdQQzBnWXlnME56QXhMQ0ExTWpFNE55d2dNVFkxT0Rrc0lEWTFNakUzTENBeE5qZzVNeWxjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxuIyBSb3VnaG5lc3NcbmlWYXJzIDwtIGMoYWJzVmFyLCBldmVudFZhciwgYW1iVmFyLCBcXFVBU1JvdWdoRUNNQTEwRXhCaW5cXCwgXFxVQVNSb3VnaEVDTUEwNUV4QmluXFwsIFxcVUFTUm91Z2hGWjEwRXhNYXhMUlxcLCBcXFVBU1JvdWdoRlowNUV4TWF4TFJcXCwgXFxVQVNSb3VnaERXMTBFeE1heExSXFwsIFxcVUFTUm91Z2hEVzA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoNDcwMSwgNTIxODcsIDE2NTg5LCA2NTIxNywgMTY4OTMpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFJvdWdobmVzc1xuaVZhcnMgPC0gYyhhYnNWYXIsIGV2ZW50VmFyLCBhbWJWYXIsIFxcVUFTUm91Z2hFQ01BMTBFeEJpblxcLCBcXFVBU1JvdWdoRUNNQTA1RXhCaW5cXCwgXFxVQVNSb3VnaEZaMTBFeE1heExSXFwsIFxcVUFTUm91Z2hGWjA1RXhNYXhMUlxcLCBcXFVBU1JvdWdoRFcxMEV4TWF4TFJcXCwgXFxVQVNSb3VnaERXMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg0NzAxLCA1MjE4NywgMTY1ODksIDY1MjE3LCAxNjg5MylcblxuYGBgXG5gYGAifQ== -->
```r
```r
# Roughness
iVars <- c(absVar, eventVar, ambVar, \UASRoughECMA10ExBin\, \UASRoughECMA05ExBin\, \UASRoughFZ10ExMaxLR\, \UASRoughFZ05ExMaxLR\, \UASRoughDW10ExMaxLR\, \UASRoughDW05ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(4701, 52187, 16589, 65217, 16893)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F5TlRBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDI1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 2501
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXlOVEF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDI1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAyNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 2501
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlNiM1ZuYUNBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJTYjNWbmFDUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0pFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUlNiM1ZuYUNSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc3VsdHNPdXRSb3VnaCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutRough <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
resultsOutRough$OOB_MAE
resultsOutRough$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSU2IzVm5hQ0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlNiM1ZuYUNSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRGSnZkV2RvSkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSU2IzVm5hQ1JTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc3VsdHNPdXRSb3VnaCRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc3VsdHNPdXRSb3VnaCRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutRough <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
resultsOutRough$OOB_MAE
resultsOutRough$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVW05MVoyZ2dQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGSnZkV2RvSkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFVtOTFaMmdrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZKdmRXZG9KRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dFJvdWdoIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc3VsdHNPdXRSb3VnaCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutRough <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
resultsOutRough$OOB_MAE
resultsOutRough$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVbTkxWjJnZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZKdmRXZG9KRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwVW05MVoyZ2tUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0pGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0Um91Z2gkT09CX1JNU0VcbnJlc3VsdHNPdXRSb3VnaCRPT0JfTUFFXG5yZXN1bHRzT3V0Um91Z2gkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0Um91Z2ggPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFJvdWdoJE9PQl9STVNFXG5yZXN1bHRzT3V0Um91Z2gkT09CX01BRVxucmVzdWx0c091dFJvdWdoJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutRough <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
resultsOutRough$OOB_MAE
resultsOutRough$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEc5eVpTQnlaWE4xYkhSelhHNXlaWE5rU0dsQmJtNXZlVVpwZEVGQ1d5ZEJZbk1nY205MVoyZ25MQ0FuVWsxVFJTZGRJRHd0SUhKbGMzVnNkSE5QZFhSU2IzVm5hQ1JQVDBKZlVrMVRSVnh1Y21WelpFaHBRVzV1YjNsR2FYUkJRbHNuUVdKeklISnZkV2RvSnl3Z0owMUJSU2RkSUR3dElISmxjM1ZzZEhOUGRYUlNiM1ZuYUNSUFQwSmZUVUZGWEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkQlluTWdjbTkxWjJnbkxDQW5Vbk54ZFdGeVpXUW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFVtOTFaMmdrVW5OeGRXRnlaV1JjYm5KbGMyUklhVUZ1Ym05NVVHVnliVWx0Y0VGQ0pFRmljMUp2ZFdkb0lEd3RJSEpsYzNWc2RITlBkWFJTYjNWbmFDUmpiMjVrYVhScGIyNWhiRjl3WlhKdGFXMXdYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbiMgc3RvcmUgcmVzdWx0c1xucmVzZEhpQW5ub3lGaXRBQlsnQWJzIHJvdWdoJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0Um91Z2gkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0FicyByb3VnaCcsICdNQUUnXSA8LSByZXN1bHRzT3V0Um91Z2gkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIHJvdWdoJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFJvdWdoJFJzcXVhcmVkXG5yZXNkSGlBbm5veVBlcm1JbXBBQiRBYnNSb3VnaCA8LSByZXN1bHRzT3V0Um91Z2gkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdHiAnnoyFitAB['Abs rough', 'RMSE'] <- resultsOutRough$OOB_RMSE
resdHiAnnoyFitAB['Abs rough', 'MAE'] <- resultsOutRough$OOB_MAE
resdHiAnnoyFitAB['Abs rough', 'Rsquared'] <- resultsOutRough$Rsquared
resdHiAnnoyPermImpAB$AbsRough <- resultsOutRough$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkRzl5WlNCeVpYTjFiSFJ6WEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkQlluTWdjbTkxWjJnbkxDQW5VazFUUlNkZElEd3RJSEpsYzNWc2RITlBkWFJTYjNWbmFDUlBUMEpmVWsxVFJWeHVjbVZ6WkVocFFXNXViM2xHYVhSQlFsc25RV0p6SUhKdmRXZG9KeXdnSjAxQlJTZGRJRHd0SUhKbGMzVnNkSE5QZFhSU2IzVm5hQ1JQVDBKZlRVRkZYRzV5WlhOa1NHbEJibTV2ZVVacGRFRkNXeWRCWW5NZ2NtOTFaMmduTENBblVuTnhkV0Z5WldRblhTQThMU0J5WlhOMWJIUnpUM1YwVW05MVoyZ2tVbk54ZFdGeVpXUmNibkpsYzJSSWFVRnVibTk1VUdWeWJVbHRjRUZDSkVGaWMxSnZkV2RvSUR3dElISmxjM1ZzZEhOUGRYUlNiM1ZuYUNSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0FicyByb3VnaCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFJvdWdoJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgcm91Z2gnLCAnTUFFJ10gPC0gcmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FicyByb3VnaCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRSb3VnaCRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzUm91Z2ggPC0gcmVzdWx0c091dFJvdWdoJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgcm91Z2gnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIHJvdWdoJywgJ01BRSddIDwtIHJlc3VsdHNPdXRSb3VnaCRPT0JfTUFFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgcm91Z2gnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0Um91Z2gkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJEFic1JvdWdoIDwtIHJlc3VsdHNPdXRSb3VnaCRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# store results
resdHiAnnoyFitAB['Abs rough', 'RMSE'] <- resultsOutRough$OOB_RMSE
resdHiAnnoyFitAB['Abs rough', 'MAE'] <- resultsOutRough$OOB_MAE
resdHiAnnoyFitAB['Abs rough', 'Rsquared'] <- resultsOutRough$Rsquared
resdHiAnnoyPermImpAB$AbsRough <- resultsOutRough$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0xtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlNiM1ZuYUNSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJTYjNWbmFDNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSU2IzVm5hQzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRkp2ZFdkb0xtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTlYwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9KU0JvYVdkb2JIa2dZVzV1YjNsbFpDbGNJaWtnS3lCblozUnBkR3hsS0Z3aVVtOTFaMmh1WlhOelhDSXBJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjSW5ObGNtbG1YQ0lwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJJR052YjNKa1gyWnNhWEFvS1Z4dWNFSmhjbHh1WEc1cFppQW9jMkYyWlhCc2IzUnpLWHRjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ3aVVIUnpRVUprU0dsQmJtNXZlVkp2ZFdkb1EyOXVVR1Z5YldsdGNDNXpkbWRjSWl3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRJdU9Td2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p6ZG1kY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNaRWhwUVc1dWIzbFNiM1ZuYUVOdmJsQmxjbTFwYlhBdWMzWm5YQ0lwWEc0Z0lGeHVJQ0JuWjNOaGRtVW9abWxzWlc1aGJXVTlYQ0pRZEhOQlFtUklhVUZ1Ym05NVVtOTFaMmhEYjI1UVpYSnRhVzF3TG5Ca1psd2lMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNaTQ1TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luQmtabHdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1NHbEJibTV2ZVZKdmRXZG9RMjl1VUdWeWJXbHRjQzV3WkdaY0lpbGNibjFjYmx4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFJvdWdoLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRSb3VnaCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRSb3VnaC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRSb3VnaC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFJvdWdoLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcUm91Z2huZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veVJvdWdoQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuOSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lSb3VnaENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95Um91Z2hDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veVJvdWdoQ29uUGVybWltcC5wZGZcXClcbn1cblxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutRough.conimp <- arrange(resultsOutRough$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutRough.conimp) + geom_col(aes(x=factor(rownames(resultsOutRough.conimp), levels=rownames(resultsOutRough.conimp)), y=CondPermImp), fill=mycolours[5], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\Roughness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyRoughConPermimp.svg\, width=8, height=2.9, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyRoughConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyRoughConPermimp.pdf\, width=8, height=2.9, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyRoughConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGSnZkV2RvTG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSU2IzVm5hQ1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlNiM1ZuYUM1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJTYjNWbmFDNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGSnZkV2RvTG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJOVjBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb0pTQm9hV2RvYkhrZ1lXNXViM2xsWkNsY1hDa2dLeUJuWjNScGRHeGxLRnhjVW05MVoyaHVaWE56WEZ3cElDc2dkR2hsYldVb2RHVjRkQ0E5SUdWc1pXMWxiblJmZEdWNGRDaG1ZVzFwYkhrZ1BTQmNYSE5sY21sbVhGd3BMQ0J3WVc1bGJDNW5jbWxrUFdWc1pXMWxiblJmYkdsdVpTaGpiMnh2Y2lBOUlISm5ZaWd5TXpVc0lESXpOU3dnTWpNMUxDQXhNREFzSUcxaGVFTnZiRzl5Vm1Gc2RXVWdQU0F5TlRVcExDQnNhVzVsZDJsa2RHZ2dQU0F3TGpJMUxDQnNhVzVsZEhsd1pTQTlJRElwS1NBcklHTnZiM0prWDJac2FYQW9LVnh1Y0VKaGNseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVnhjVUhSelFVSmtTR2xCYm01dmVWSnZkV2RvUTI5dVVHVnliV2x0Y0M1emRtZGNYQ3dnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVEl1T1N3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHpkbWRjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1pFaHBRVzV1YjNsU2IzVm5hRU52YmxCbGNtMXBiWEF1YzNablhGd3BYRzRnSUZ4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhGeFFkSE5CUW1SSWFVRnVibTk1VW05MVoyaERiMjVRWlhKdGFXMXdMbkJrWmx4Y0xDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pNDVMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhCa1pseGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprU0dsQmJtNXZlVkp2ZFdkb1EyOXVVR1Z5YldsdGNDNXdaR1pjWENsY2JuMWNibHh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFJvdWdoLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRSb3VnaCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRSb3VnaC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRSb3VnaC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFJvdWdoLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcUm91Z2huZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veVJvdWdoQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuOSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lSb3VnaENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95Um91Z2hDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veVJvdWdoQ29uUGVybWltcC5wZGZcXClcbn1cblxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFJvdWdoLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRSb3VnaCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRSb3VnaC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRSb3VnaC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFJvdWdoLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcUm91Z2huZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veVJvdWdoQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuOSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lSb3VnaENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95Um91Z2hDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi45LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veVJvdWdoQ29uUGVybWltcC5wZGZcXClcbn1cblxuXG5gYGBcbmBgYCJ9 -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutRough.conimp <- arrange(resultsOutRough$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutRough.conimp) + geom_col(aes(x=factor(rownames(resultsOutRough.conimp), levels=rownames(resultsOutRough.conimp)), y=CondPermImp), fill=mycolours[5], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\Roughness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyRoughConPermimp.svg\, width=8, height=2.9, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyRoughConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyRoughConPermimp.pdf\, width=8, height=2.9, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyRoughConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5YjNWbmFGWmhjaUE4TFNCY0lsVkJVMUp2ZFdkb1Jsb3dOVVY0VFdGNFRGSmNJbHh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbnJvdWdoVmFyIDwtIFxcVUFTUm91Z2hGWjA1RXhNYXhMUlxcXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
roughVar <- \UASRoughFZ05ExMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXliM1ZuYUZaaGNpQThMU0JjWEZWQlUxSnZkV2RvUmxvd05VVjRUV0Y0VEZKY1hGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbnJvdWdoVmFyIDwtIFxcVUFTUm91Z2hGWjA1RXhNYXhMUlxcXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yb3VnaFZhciA8LSBcXFVBU1JvdWdoRlowNUV4TWF4TFJcXFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
roughVar <- \UASRoughFZ05ExMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### Impulsiveness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJKYlhCMWJITnBkbVZ1WlhOelhHNXBWbUZ5Y3lBOExTQmpLR0ZpYzFaaGNpd2daWFpsYm5SV1lYSXNJR0Z0WWxaaGNpd2dYQ0pWUVZOSmJYQjFiSE5UU0UxQmRtZE5ZWGhNVWx3aUxDQmNJbFZCVTBsdGNIVnNjMU5JVFRBMVJYaE5ZWGhNVWx3aUxDQmNJbFZCVTBsdGNIVnNjMU5JVFZCdmQwRjJaMDFoZUV4U1hDSXBYRzVrVm1GeUlEd3RJRndpWkVocFoyaEJibTV2ZVZCalhDSmNibHh1YzJWbFpITWdQQzBnWXlnNE5EazFMQ0ExT1RnMk55d2dOVFF4Tml3Z09UZzBNeXdnT0RZcFhHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuIyBJbXB1bHNpdmVuZXNzXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNJbXB1bHNTSE1BdmdNYXhMUlxcLCBcXFVBU0ltcHVsc1NITTA1RXhNYXhMUlxcLCBcXFVBU0ltcHVsc1NITVBvd0F2Z01heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg4NDk1LCA1OTg2NywgNTQxNiwgOTg0MywgODYpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# Impulsiveness
iVars <- c(absVar, eventVar, ambVar, \UASImpulsSHMAvgMaxLR\, \UASImpulsSHM05ExMaxLR\, \UASImpulsSHMPowAvgMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(8495, 59867, 5416, 9843, 86)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QkpiWEIxYkhOcGRtVnVaWE56WEc1cFZtRnljeUE4TFNCaktHRmljMVpoY2l3Z1pYWmxiblJXWVhJc0lHRnRZbFpoY2l3Z1hGeFZRVk5KYlhCMWJITlRTRTFCZG1kTllYaE1VbHhjTENCY1hGVkJVMGx0Y0hWc2MxTklUVEExUlhoTllYaE1VbHhjTENCY1hGVkJVMGx0Y0hWc2MxTklUVkJ2ZDBGMlowMWhlRXhTWEZ3cFhHNWtWbUZ5SUR3dElGeGNaRWhwWjJoQmJtNXZlVkJqWEZ4Y2JseHVjMlZsWkhNZ1BDMGdZeWc0TkRrMUxDQTFPVGcyTnl3Z05UUXhOaXdnT1RnME15d2dPRFlwWEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcbiMgSW1wdWxzaXZlbmVzc1xuaVZhcnMgPC0gYyhhYnNWYXIsIGV2ZW50VmFyLCBhbWJWYXIsIFxcVUFTSW1wdWxzU0hNQXZnTWF4TFJcXCwgXFxVQVNJbXB1bHNTSE0wNUV4TWF4TFJcXCwgXFxVQVNJbXB1bHNTSE1Qb3dBdmdNYXhMUlxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoODQ5NSwgNTk4NjcsIDU0MTYsIDk4NDMsIDg2KVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBJbXB1bHNpdmVuZXNzXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgXFxVQVNJbXB1bHNTSE1BdmdNYXhMUlxcLCBcXFVBU0ltcHVsc1NITTA1RXhNYXhMUlxcLCBcXFVBU0ltcHVsc1NITVBvd0F2Z01heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg4NDk1LCA1OTg2NywgNTQxNiwgOTg0MywgODYpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# Impulsiveness
iVars <- c(absVar, eventVar, ambVar, \UASImpulsSHMAvgMaxLR\, \UASImpulsSHM05ExMaxLR\, \UASImpulsSHMPowAvgMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(8495, 59867, 5416, 9843, 86)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0ExTURGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU56VXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjc1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 501
mtry <- as.integer(length(iVars)/1.75)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTFNREZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TnpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDUwMVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS43NSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 501
mtry <- as.integer(length(iVars)/1.75)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUkpiWEIxYkhNZ1BDMGdZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITmJNVG95WFN3Z2JuUnlaV1U5Ym5SeVpXVXNJRzEwY25rOWJYUnllU3dnY0dWeWJVbHRjRU52Ym1SVWFISmxjejF3WlhKdFNXMXdRMjl1WkZSb2NtVnpMQ0J1Y0dWeWJUMXVjR1Z5YlN3Z2JXbHVjM0JzYVhROWJXbHVjM0JzYVhRc0lHMXBibUoxWTJ0bGREMXRhVzVpZFdOclpYUXBYRzVjYmlNZ2NISnBiblFnYlc5a1pXd2djSEpsWkdsamRHbHZiaUJ5WlhOMWJIUnpYRzV5WlhOMWJIUnpUM1YwU1cxd2RXeHpKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwU1cxd2RXeHpKRTlQUWw5TlFVVmNibkpsYzNWc2RITlBkWFJKYlhCMWJITWtVbk54ZFdGeVpXUmNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEltcHVscyRPT0JfUk1TRVxucmVzdWx0c091dEltcHVscyRPT0JfTUFFXG5yZXN1bHRzT3V0SW1wdWxzJFJzcXVhcmVkXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
nperm <- 5
resultsOutImpuls <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
resultsOutImpuls$OOB_MAE
resultsOutImpuls$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSSmJYQjFiSE1nUEMwZ1kzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhOYk1Ub3lYU3dnYm5SeVpXVTliblJ5WldVc0lHMTBjbms5YlhSeWVTd2djR1Z5YlVsdGNFTnZibVJVYUhKbGN6MXdaWEp0U1cxd1EyOXVaRlJvY21WekxDQnVjR1Z5YlQxdWNHVnliU3dnYldsdWMzQnNhWFE5YldsdWMzQnNhWFFzSUcxcGJtSjFZMnRsZEQxdGFXNWlkV05yWlhRcFhHNWNiaU1nY0hKcGJuUWdiVzlrWld3Z2NISmxaR2xqZEdsdmJpQnlaWE4xYkhSelhHNXlaWE4xYkhSelQzVjBTVzF3ZFd4ekpFOVBRbDlTVFZORlhHNXlaWE4xYkhSelQzVjBTVzF3ZFd4ekpFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUkpiWEIxYkhNa1VuTnhkV0Z5WldSY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dEltcHVscyA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbnJlc3VsdHNPdXRJbXB1bHMkT09CX01BRVxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRJbXB1bHMgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0SW1wdWxzJE9PQl9STVNFXG5yZXN1bHRzT3V0SW1wdWxzJE9PQl9NQUVcbnJlc3VsdHNPdXRJbXB1bHMkUnNxdWFyZWRcblxuYGBgXG5gYGAifQ== -->
```r
```r
nperm <- 5
resultsOutImpuls <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
resultsOutImpuls$OOB_MAE
resultsOutImpuls$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwU1cxd2RXeHpJRHd0SUcxMWJIUnBYMk55WmxKbFp5aGtZWFJoU1c0OWMzUnBiVVJoZEdGT2RXMHNJR2xXWVhKelBXbFdZWEp6TENCa1ZtRnlQV1JXWVhJc0lITmxaV1J6UFhObFpXUnpMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUkpiWEIxYkhNa1QwOUNYMUpOVTBWY2JuSmxjM1ZzZEhOUGRYUkpiWEIxYkhNa1QwOUNYMDFCUlZ4dWNtVnpkV3gwYzA5MWRFbHRjSFZzY3lSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbnJlc3VsdHNPdXRJbXB1bHMkT09CX01BRVxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutImpuls <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
resultsOutImpuls$OOB_MAE
resultsOutImpuls$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBTVzF3ZFd4eklEd3RJRzExYkhScFgyTnlabEpsWnloa1lYUmhTVzQ5YzNScGJVUmhkR0ZPZFcwc0lHbFdZWEp6UFdsV1lYSnpMQ0JrVm1GeVBXUldZWElzSUhObFpXUnpQWE5sWldSekxDQnVkSEpsWlQxdWRISmxaU3dnYlhSeWVUMXRkSEo1TENCd1pYSnRTVzF3UTI5dVpGUm9jbVZ6UFhCbGNtMUpiWEJEYjI1a1ZHaHlaWE1zSUc1d1pYSnRQVzV3WlhKdExDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYmx4dUl5QndjbWx1ZENCdGIyUmxiQ0J3Y21Wa2FXTjBhVzl1SUhKbGMzVnNkSE5jYm5KbGMzVnNkSE5QZFhSSmJYQjFiSE1rVDA5Q1gxSk5VMFZjYm5KbGMzVnNkSE5QZFhSSmJYQjFiSE1rVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEVsdGNIVnNjeVJTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbnJlc3VsdHNPdXRJbXB1bHMkT09CX01BRVxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbnJlc3VsdHNPdXRJbXB1bHMkT09CX01BRVxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutImpuls <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
resultsOutImpuls$OOB_MAE
resultsOutImpuls$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMEZpY3lCcGJYQjFiSE1uTENBblVrMVRSU2RkSUR3dElISmxjM1ZzZEhOUGRYUkpiWEIxYkhNa1QwOUNYMUpOVTBWY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowRmljeUJwYlhCMWJITW5MQ0FuVFVGRkoxMGdQQzBnY21WemRXeDBjMDkxZEVsdGNIVnNjeVJQVDBKZlRVRkZYRzV5WlhOa1NHbEJibTV2ZVVacGRFRkNXeWRCWW5NZ2FXMXdkV3h6Snl3Z0oxSnpjWFZoY21Wa0oxMGdQQzBnY21WemRXeDBjMDkxZEVsdGNIVnNjeVJTYzNGMVlYSmxaRnh1Y21WelpFaHBRVzV1YjNsUVpYSnRTVzF3UVVJa1FXSnpTVzF3ZFd4eklEd3RJSEpsYzNWc2RITlBkWFJKYlhCMWJITWtZMjl1WkdsMGFXOXVZV3hmY0dWeWJXbHRjRnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEhpQW5ub3lGaXRBQlsnQWJzIGltcHVscycsICdSTVNFJ10gPC0gcmVzdWx0c091dEltcHVscyRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIGltcHVscycsICdNQUUnXSA8LSByZXN1bHRzT3V0SW1wdWxzJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBpbXB1bHMnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0SW1wdWxzJFJzcXVhcmVkXG5yZXNkSGlBbm5veVBlcm1JbXBBQiRBYnNJbXB1bHMgPC0gcmVzdWx0c091dEltcHVscyRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# store results
resdHiAnnoyFitAB['Abs impuls', 'RMSE'] <- resultsOutImpuls$OOB_RMSE
resdHiAnnoyFitAB['Abs impuls', 'MAE'] <- resultsOutImpuls$OOB_MAE
resdHiAnnoyFitAB['Abs impuls', 'Rsquared'] <- resultsOutImpuls$Rsquared
resdHiAnnoyPermImpAB$AbsImpuls <- resultsOutImpuls$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowRmljeUJwYlhCMWJITW5MQ0FuVWsxVFJTZGRJRHd0SUhKbGMzVnNkSE5QZFhSSmJYQjFiSE1rVDA5Q1gxSk5VMFZjYm5KbGMyUklhVUZ1Ym05NVJtbDBRVUpiSjBGaWN5QnBiWEIxYkhNbkxDQW5UVUZGSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5UlBUMEpmVFVGRlhHNXlaWE5rU0dsQmJtNXZlVVpwZEVGQ1d5ZEJZbk1nYVcxd2RXeHpKeXdnSjFKemNYVmhjbVZrSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5UlNjM0YxWVhKbFpGeHVjbVZ6WkVocFFXNXViM2xRWlhKdFNXMXdRVUlrUVdKelNXMXdkV3h6SUR3dElISmxjM1ZzZEhOUGRYUkpiWEIxYkhNa1kyOXVaR2wwYVc5dVlXeGZjR1Z5YldsdGNGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEhpQW5ub3lGaXRBQlsnQWJzIGltcHVscycsICdSTVNFJ10gPC0gcmVzdWx0c091dEltcHVscyRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIGltcHVscycsICdNQUUnXSA8LSByZXN1bHRzT3V0SW1wdWxzJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBpbXB1bHMnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0SW1wdWxzJFJzcXVhcmVkXG5yZXNkSGlBbm5veVBlcm1JbXBBQiRBYnNJbXB1bHMgPC0gcmVzdWx0c091dEltcHVscyRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBpbXB1bHMnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBpbXB1bHMnLCAnTUFFJ10gPC0gcmVzdWx0c091dEltcHVscyRPT0JfTUFFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgaW1wdWxzJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzSW1wdWxzIDwtIHJlc3VsdHNPdXRJbXB1bHMkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# store results
resdHiAnnoyFitAB['Abs impuls', 'RMSE'] <- resultsOutImpuls$OOB_RMSE
resdHiAnnoyFitAB['Abs impuls', 'MAE'] <- resultsOutImpuls$OOB_MAE
resdHiAnnoyFitAB['Abs impuls', 'Rsquared'] <- resultsOutImpuls$Rsquared
resdHiAnnoyPermImpAB$AbsImpuls <- resultsOutImpuls$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5NWpiMjVwYlhBZ1BDMGdZWEp5WVc1blpTaHlaWE4xYkhSelQzVjBTVzF3ZFd4ekpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQXNJR1JsYzJNb2NtOTNYMjUxYldKbGNpZ3BLU2xjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEVsdGNIVnNjeTVqYjI1cGJYQXBJQ3NnWjJWdmJWOWpiMndvWVdWektIZzlabUZqZEc5eUtISnZkMjVoYldWektISmxjM1ZzZEhOUGRYUkpiWEIxYkhNdVkyOXVhVzF3S1N3Z2JHVjJaV3h6UFhKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSSmJYQjFiSE11WTI5dWFXMXdLU2tzSUhrOVEyOXVaRkJsY20xSmJYQXBMQ0JtYVd4c1BXMTVZMjlzYjNWeWMxczJYU3dnZDJsa2RHZzlNQzQxS1NBcklHeGhZbk1vZUQxY0lsWmhjbWxoWW14bFhDSXNJSGs5WENKRGIyNWthWFJwYjI1aGJDQjJZWEpwWVdKc1pTQndaWEp0ZFhSaGRHbHZiaUJwYlhCdmNuUmhibU5sSUNnbElHaHBaMmhzZVNCaGJtNXZlV1ZrS1Z3aUtTQXJJR2RuZEdsMGJHVW9YQ0pKYlhCMWJITnBkbVZ1WlhOelhDSXBJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjSW5ObGNtbG1YQ0lwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJJR052YjNKa1gyWnNhWEFvS1Z4dWNFSmhjbHh1WEc1cFppQW9jMkYyWlhCc2IzUnpLWHRjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ3aVVIUnpRVUprU0dsQmJtNXZlVWx0Y0hWc2MwTnZibEJsY20xcGJYQXVjM1puWENJc0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQweUxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNJbk4yWjF3aUtTbGNiaUFnZFc1c2FXNXJLRndpVUhSelFVSmtTR2xCYm01dmVVbHRjSFZzYzBOdmJsQmxjbTFwYlhBdWMzWm5YQ0lwWEc0Z0lGeHVJQ0JuWjNOaGRtVW9abWxzWlc1aGJXVTlYQ0pRZEhOQlFtUklhVUZ1Ym05NVNXMXdkV3h6UTI5dVVHVnliV2x0Y0M1d1pHWmNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVElzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ3aWNHUm1YQ0lwS1Z4dUlDQjFibXhwYm1zb1hDSlFkSE5CUW1SSWFVRnVibTk1U1cxd2RXeHpRMjl1VUdWeWJXbHRjQzV3WkdaY0lpbGNibjFjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0SW1wdWxzLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRJbXB1bHMkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0SW1wdWxzLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dEltcHVscy5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEltcHVscy5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzZdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgZ2d0aXRsZShcXEltcHVsc2l2ZW5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95SW1wdWxzQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95SW1wdWxzQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lJbXB1bHNDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lJbXB1bHNDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutImpuls.conimp <- arrange(resultsOutImpuls$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutImpuls.conimp) + geom_col(aes(x=factor(rownames(resultsOutImpuls.conimp), levels=rownames(resultsOutImpuls.conimp)), y=CondPermImp), fill=mycolours[6], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\Impulsiveness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyImpulsConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyImpulsConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyImpulsConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyImpulsConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRFbHRjSFZzY3k1amIyNXBiWEFnUEMwZ1lYSnlZVzVuWlNoeVpYTjFiSFJ6VDNWMFNXMXdkV3h6SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhBc0lHUmxjMk1vY205M1gyNTFiV0psY2lncEtTbGNibHh1Y0VKaGNpQThMU0JuWjNCc2IzUW9jbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5NWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSSmJYQjFiSE11WTI5dWFXMXdLU3dnYkdWMlpXeHpQWEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJKYlhCMWJITXVZMjl1YVcxd0tTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzMlhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjWEZaaGNtbGhZbXhsWEZ3c0lIazlYRnhEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxJQ2dsSUdocFoyaHNlU0JoYm01dmVXVmtLVnhjS1NBcklHZG5kR2wwYkdVb1hGeEpiWEIxYkhOcGRtVnVaWE56WEZ3cElDc2dkR2hsYldVb2RHVjRkQ0E5SUdWc1pXMWxiblJmZEdWNGRDaG1ZVzFwYkhrZ1BTQmNYSE5sY21sbVhGd3BMQ0J3WVc1bGJDNW5jbWxrUFdWc1pXMWxiblJmYkdsdVpTaGpiMnh2Y2lBOUlISm5ZaWd5TXpVc0lESXpOU3dnTWpNMUxDQXhNREFzSUcxaGVFTnZiRzl5Vm1Gc2RXVWdQU0F5TlRVcExDQnNhVzVsZDJsa2RHZ2dQU0F3TGpJMUxDQnNhVzVsZEhsd1pTQTlJRElwS1NBcklHTnZiM0prWDJac2FYQW9LVnh1Y0VKaGNseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVnhjVUhSelFVSmtTR2xCYm01dmVVbHRjSFZzYzBOdmJsQmxjbTFwYlhBdWMzWm5YRndzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB5TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY1hITjJaMXhjS1NsY2JpQWdkVzVzYVc1cktGeGNVSFJ6UVVKa1NHbEJibTV2ZVVsdGNIVnNjME52YmxCbGNtMXBiWEF1YzNablhGd3BYRzRnSUZ4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhGeFFkSE5CUW1SSWFVRnVibTk1U1cxd2RXeHpRMjl1VUdWeWJXbHRjQzV3WkdaY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUSXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRnhjY0dSbVhGd3BLVnh1SUNCMWJteHBibXNvWEZ4UWRITkJRbVJJYVVGdWJtOTVTVzF3ZFd4elEyOXVVR1Z5YldsdGNDNXdaR1pjWENsY2JuMWNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEltcHVscy5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0SW1wdWxzJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEltcHVscy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s2XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIGdndGl0bGUoXFxJbXB1bHNpdmVuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUltcHVsc0NvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUltcHVsc0NvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95SW1wdWxzQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95SW1wdWxzQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEltcHVscy5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0SW1wdWxzJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEltcHVscy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s2XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIGdndGl0bGUoXFxJbXB1bHNpdmVuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUltcHVsc0NvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUltcHVsc0NvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95SW1wdWxzQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95SW1wdWxzQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutImpuls.conimp <- arrange(resultsOutImpuls$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutImpuls.conimp) + geom_col(aes(x=factor(rownames(resultsOutImpuls.conimp), levels=rownames(resultsOutImpuls.conimp)), y=CondPermImp), fill=mycolours[6], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\Impulsiveness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyImpulsConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyImpulsConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyImpulsConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyImpulsConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwYlhCMWJITldZWElnUEMwZ1hDSlZRVk5KYlhCMWJITlRTRTFRYjNkQmRtZE5ZWGhNVWx3aVhHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG5pbXB1bHNWYXIgPC0gXFxVQVNJbXB1bHNTSE1Qb3dBdmdNYXhMUlxcXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
impulsVar <- \UASImpulsSHMPowAvgMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBiWEIxYkhOV1lYSWdQQzBnWEZ4VlFWTkpiWEIxYkhOVFNFMVFiM2RCZG1kTllYaE1VbHhjWEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxuaW1wdWxzVmFyIDwtIFxcVUFTSW1wdWxzU0hNUG93QXZnTWF4TFJcXFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pbXB1bHNWYXIgPC0gXFxVQVNJbXB1bHNTSE1Qb3dBdmdNYXhMUlxcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
impulsVar <- \UASImpulsSHMPowAvgMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### SQM and loudness comparison
Now the highest importance SQMs are ranked against each other, controlling for UAS loudness and ambient LAeq.
##### Include tonal loudness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dGaWMxWmhjaXdnWlhabGJuUldZWElzSUdGdFlsWmhjaXdnYzJoaGNuQldZWElzSUhSdmJreGtWbUZ5TENCbWJIVmpkRlpoY2l3Z2NtOTFaMmhXWVhJc0lHbHRjSFZzYzFaaGNpbGNibVJXWVhJZ1BDMGdYQ0prU0dsbmFFRnVibTk1VUdOY0lseHVYRzV6WldWa2N5QThMU0JqS0Rjd05EazRMQ0EwTENBeE5EazROaXdnTkRVekxDQTROalFwWEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbmlWYXJzIDwtIGMoYWJzVmFyLCBldmVudFZhciwgYW1iVmFyLCBzaGFycFZhciwgdG9uTGRWYXIsIGZsdWN0VmFyLCByb3VnaFZhciwgaW1wdWxzVmFyKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoNzA0OTgsIDQsIDE0OTg2LCA0NTMsIDg2NClcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
iVars <- c(absVar, eventVar, ambVar, sharpVar, tonLdVar, fluctVar, roughVar, impulsVar)
dVar <- \dHighAnnoyPc\
seeds <- c(70498, 4, 14986, 453, 864)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR0ZpYzFaaGNpd2daWFpsYm5SV1lYSXNJR0Z0WWxaaGNpd2djMmhoY25CV1lYSXNJSFJ2Ymt4a1ZtRnlMQ0JtYkhWamRGWmhjaXdnY205MVoyaFdZWElzSUdsdGNIVnNjMVpoY2lsY2JtUldZWElnUEMwZ1hGeGtTR2xuYUVGdWJtOTVVR05jWEZ4dVhHNXpaV1ZrY3lBOExTQmpLRGN3TkRrNExDQTBMQ0F4TkRrNE5pd2dORFV6TENBNE5qUXBYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgc2hhcnBWYXIsIHRvbkxkVmFyLCBmbHVjdFZhciwgcm91Z2hWYXIsIGltcHVsc1ZhcilcbmRWYXIgPC0gXFxkSGlnaEFubm95UGNcXFxuXG5zZWVkcyA8LSBjKDcwNDk4LCA0LCAxNDk4NiwgNDUzLCA4NjQpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgc2hhcnBWYXIsIHRvbkxkVmFyLCBmbHVjdFZhciwgcm91Z2hWYXIsIGltcHVsc1ZhcilcbmRWYXIgPC0gXFxkSGlnaEFubm95UGNcXFxuXG5zZWVkcyA8LSBjKDcwNDk4LCA0LCAxNDk4NiwgNDUzLCA4NjQpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
iVars <- c(absVar, eventVar, ambVar, sharpVar, tonLdVar, fluctVar, roughVar, impulsVar)
dVar <- \dHighAnnoyPc\
seeds <- c(70498, 4, 14986, 453, 864)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F4TlRBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDE1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 1501
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXhOVEF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDE1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAxNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 1501
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlRVVTF6TVNBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJUVVUxek1TUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUlRVVTF6TVNSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutSQMs1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
resultsOutSQMs1$OOB_MAE
resultsOutSQMs1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSVFVVMXpNU0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlRVVTF6TVNSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRGTlJUWE14SkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSVFVVMXpNU1JTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutSQMs1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
resultsOutSQMs1$OOB_MAE
resultsOutSQMs1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVTFGTmN6RWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGTlJUWE14SkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFUxRk5jekVrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZOUlRYTXhKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dFNRTXMxIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutSQMs1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
resultsOutSQMs1$OOB_MAE
resultsOutSQMs1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVMUZOY3pFZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZOUlRYTXhKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwVTFGTmN6RWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U1FNczEkT09CX1JNU0VcbnJlc3VsdHNPdXRTUU1zMSRPT0JfTUFFXG5yZXN1bHRzT3V0U1FNczEkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0U1FNczEgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFNRTXMxJE9PQl9STVNFXG5yZXN1bHRzT3V0U1FNczEkT09CX01BRVxucmVzdWx0c091dFNRTXMxJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSQMs1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
resultsOutSQMs1$OOB_MAE
resultsOutSQMs1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMEZpY3lCVFVVMXpJR2x1WXlCMGIyNWhiQ0JzYjNWa0p5d2dKMUpOVTBVblhTQThMU0J5WlhOMWJIUnpUM1YwVTFGTmN6RWtUMDlDWDFKTlUwVmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMEZpY3lCVFVVMXpJR2x1WXlCMGIyNWhiQ0JzYjNWa0p5d2dKMDFCUlNkZElEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1TUlBUMEpmVFVGRlhHNXlaWE5rU0dsQmJtNXZlVVpwZEVGQ1d5ZEJZbk1nVTFGTmN5QnBibU1nZEc5dVlXd2diRzkxWkNjc0lDZFNjM0YxWVhKbFpDZGRJRHd0SUhKbGMzVnNkSE5QZFhSVFVVMXpNU1JTYzNGMVlYSmxaRnh1Y21WelpFaHBRVzV1YjNsUVpYSnRTVzF3UVVJa1FXSnpVMUZOY3pFZ1BDMGdjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQmNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFNRTXMxJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0U1FNczEkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIFNRTXMgaW5jIHRvbmFsIGxvdWQnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U1FNczEkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJEFic1NRTXMxIDwtIHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# store results
resdHiAnnoyFitAB['Abs SQMs inc tonal loud', 'RMSE'] <- resultsOutSQMs1$OOB_RMSE
resdHiAnnoyFitAB['Abs SQMs inc tonal loud', 'MAE'] <- resultsOutSQMs1$OOB_MAE
resdHiAnnoyFitAB['Abs SQMs inc tonal loud', 'Rsquared'] <- resultsOutSQMs1$Rsquared
resdHiAnnoyPermImpAB$AbsSQMs1 <- resultsOutSQMs1$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowRmljeUJUVVUxeklHbHVZeUIwYjI1aGJDQnNiM1ZrSnl3Z0oxSk5VMFVuWFNBOExTQnlaWE4xYkhSelQzVjBVMUZOY3pFa1QwOUNYMUpOVTBWY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowRmljeUJUVVUxeklHbHVZeUIwYjI1aGJDQnNiM1ZrSnl3Z0owMUJSU2RkSUR3dElISmxjM1ZzZEhOUGRYUlRVVTF6TVNSUFQwSmZUVUZGWEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkQlluTWdVMUZOY3lCcGJtTWdkRzl1WVd3Z2JHOTFaQ2NzSUNkU2MzRjFZWEpsWkNkZElEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1TUlNjM0YxWVhKbFpGeHVjbVZ6WkVocFFXNXViM2xRWlhKdFNXMXdRVUlrUVdKelUxRk5jekVnUEMwZ2NtVnpkV3gwYzA5MWRGTlJUWE14SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhCY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEhpQW5ub3lGaXRBQlsnQWJzIFNRTXMgaW5jIHRvbmFsIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIFNRTXMgaW5jIHRvbmFsIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBTUU1zIGluYyB0b25hbCBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFNRTXMxJFJzcXVhcmVkXG5yZXNkSGlBbm5veVBlcm1JbXBBQiRBYnNTUU1zMSA8LSByZXN1bHRzT3V0U1FNczEkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBTUU1zIGluYyB0b25hbCBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U1FNczEkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBTUU1zIGluYyB0b25hbCBsb3VkJywgJ01BRSddIDwtIHJlc3VsdHNPdXRTUU1zMSRPT0JfTUFFXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzU1FNczEgPC0gcmVzdWx0c091dFNRTXMxJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdHiAnnoyFitAB['Abs SQMs inc tonal loud', 'RMSE'] <- resultsOutSQMs1$OOB_RMSE
resdHiAnnoyFitAB['Abs SQMs inc tonal loud', 'MAE'] <- resultsOutSQMs1$OOB_MAE
resdHiAnnoyFitAB['Abs SQMs inc tonal loud', 'Rsquared'] <- resultsOutSQMs1$Rsquared
resdHiAnnoyPermImpAB$AbsSQMs1 <- resultsOutSQMs1$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeExtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlRVVTF6TVNSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJUVVUxek1TNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVFVVMXpNUzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRk5SVFhNeExtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTjEwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9KU0JvYVdkb2JIa2dZVzV1YjNsbFpDbGNJaWtnS3lCMGFHVnRaU2gwWlhoMElEMGdaV3hsYldWdWRGOTBaWGgwS0daaGJXbHNlU0E5SUZ3aWMyVnlhV1pjSWlrc0lIQmhibVZzTG1keWFXUTlaV3hsYldWdWRGOXNhVzVsS0dOdmJHOXlJRDBnY21kaUtESXpOU3dnTWpNMUxDQXlNelVzSURFd01Dd2diV0Y0UTI5c2IzSldZV3gxWlNBOUlESTFOU2tzSUd4cGJtVjNhV1IwYUNBOUlEQXVNalVzSUd4cGJtVjBlWEJsSUQwZ01pa3BJQ3NnWTI5dmNtUmZabXhwY0NoNWJHbHRQV01vTUN3Z09UQXBLVnh1Y0VKaGNseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtTR2xCYm01dmVVRmljMU5SVFhOVWIyNU1aRU52YmxCbGNtMXBiWEF1YzNablhDSXNJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHlMalFzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ3aWMzWm5YQ0lwS1Z4dUlDQjFibXhwYm1zb1hDSlFkSE5CUW1SSWFVRnVibTk1UVdKelUxRk5jMVJ2Ymt4a1EyOXVVR1Z5YldsdGNDNXpkbWRjSWlsY2JpQWdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjSWxCMGMwRkNaRWhwUVc1dWIzbEJZbk5UVVUxelZHOXVUR1JEYjI1UVpYSnRhVzF3TG5Ca1psd2lMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNaTQwTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luQmtabHdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1NHbEJibTV2ZVVGaWMxTlJUWE5VYjI1TVpFTnZibEJsY20xcGJYQXVjR1JtWENJcFhHNTlYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRTUU1zMS5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0U1FNczEkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0U1FNczEuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0U1FNczEuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMS5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzddLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDkwKSlcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBYnNTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUFic1NRTXNUb25MZENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWJzU1FNc1RvbkxkQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBYnNTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs1.conimp <- arrange(resultsOutSQMs1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs1.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs1.conimp), levels=rownames(resultsOutSQMs1.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 90))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAbsSQMsTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAbsSQMsTonLdConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyAbsSQMsTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAbsSQMsTonLdConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGTlJUWE14TG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSVFVVMXpNU1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlRVVTF6TVM1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJUVVUxek1TNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGTlJUWE14TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJOMTBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb0pTQm9hV2RvYkhrZ1lXNXViM2xsWkNsY1hDa2dLeUIwYUdWdFpTaDBaWGgwSUQwZ1pXeGxiV1Z1ZEY5MFpYaDBLR1poYldsc2VTQTlJRnhjYzJWeWFXWmNYQ2tzSUhCaGJtVnNMbWR5YVdROVpXeGxiV1Z1ZEY5c2FXNWxLR052Ykc5eUlEMGdjbWRpS0RJek5Td2dNak0xTENBeU16VXNJREV3TUN3Z2JXRjRRMjlzYjNKV1lXeDFaU0E5SURJMU5Ta3NJR3hwYm1WM2FXUjBhQ0E5SURBdU1qVXNJR3hwYm1WMGVYQmxJRDBnTWlrcElDc2dZMjl2Y21SZlpteHBjQ2g1YkdsdFBXTW9NQ3dnT1RBcEtWeHVjRUpoY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1NHbEJibTV2ZVVGaWMxTlJUWE5VYjI1TVpFTnZibEJsY20xcGJYQXVjM1puWEZ3c0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQweUxqUXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRnhjYzNablhGd3BLVnh1SUNCMWJteHBibXNvWEZ4UWRITkJRbVJJYVVGdWJtOTVRV0p6VTFGTmMxUnZia3hrUTI5dVVHVnliV2x0Y0M1emRtZGNYQ2xjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNYRkIwYzBGQ1pFaHBRVzV1YjNsQlluTlRVVTF6Vkc5dVRHUkRiMjVRWlhKdGFXMXdMbkJrWmx4Y0xDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pNDBMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhCa1pseGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprU0dsQmJtNXZlVUZpYzFOUlRYTlViMjVNWkVOdmJsQmxjbTFwYlhBdWNHUm1YRndwWEc1OVhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0U1FNczEuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFNRTXMxJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dFNRTXMxLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dFNRTXMxLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0U1FNczEuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s3XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCA5MCkpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWJzU1FNc1RvbkxkQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBYnNTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFic1NRTXNUb25MZENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWJzU1FNc1RvbkxkQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMS5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMxLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgOTApKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFic1NRTXNUb25MZENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWJzU1FNc1RvbkxkQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBYnNTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUFic1NRTXNUb25MZENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgIn0= -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs1.conimp <- arrange(resultsOutSQMs1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs1.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs1.conimp), levels=rownames(resultsOutSQMs1.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 90))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAbsSQMsTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAbsSQMsTonLdConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyAbsSQMsTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAbsSQMsTonLdConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### Exclude tonal loudness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dGaWMxWmhjaXdnWlhabGJuUldZWElzSUdGdFlsWmhjaXdnYzJoaGNuQldZWElzSUhSdmJtRnNWbUZ5TENCbWJIVmpkRlpoY2l3Z2NtOTFaMmhXWVhJc0lHbHRjSFZzYzFaaGNpbGNibVJXWVhJZ1BDMGdYQ0prU0dsbmFFRnVibTk1VUdOY0lseHVYRzV6WldWa2N5QThMU0JqS0RVME5pd2dOVGN5TURNc0lESTNNRGd6TlN3Z05qQTFPVElzSURnd09UUXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuaVZhcnMgPC0gYyhhYnNWYXIsIGV2ZW50VmFyLCBhbWJWYXIsIHNoYXJwVmFyLCB0b25hbFZhciwgZmx1Y3RWYXIsIHJvdWdoVmFyLCBpbXB1bHNWYXIpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg1NDYsIDU3MjAzLCAyNzA4MzUsIDYwNTkyLCA4MDk0KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
iVars <- c(absVar, eventVar, ambVar, sharpVar, tonalVar, fluctVar, roughVar, impulsVar)
dVar <- \dHighAnnoyPc\
seeds <- c(546, 57203, 270835, 60592, 8094)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR0ZpYzFaaGNpd2daWFpsYm5SV1lYSXNJR0Z0WWxaaGNpd2djMmhoY25CV1lYSXNJSFJ2Ym1Gc1ZtRnlMQ0JtYkhWamRGWmhjaXdnY205MVoyaFdZWElzSUdsdGNIVnNjMVpoY2lsY2JtUldZWElnUEMwZ1hGeGtTR2xuYUVGdWJtOTVVR05jWEZ4dVhHNXpaV1ZrY3lBOExTQmpLRFUwTml3Z05UY3lNRE1zSURJM01EZ3pOU3dnTmpBMU9USXNJRGd3T1RRcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbmlWYXJzIDwtIGMoYWJzVmFyLCBldmVudFZhciwgYW1iVmFyLCBzaGFycFZhciwgdG9uYWxWYXIsIGZsdWN0VmFyLCByb3VnaFZhciwgaW1wdWxzVmFyKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoNTQ2LCA1NzIwMywgMjcwODM1LCA2MDU5MiwgODA5NClcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGFic1ZhciwgZXZlbnRWYXIsIGFtYlZhciwgc2hhcnBWYXIsIHRvbmFsVmFyLCBmbHVjdFZhciwgcm91Z2hWYXIsIGltcHVsc1ZhcilcbmRWYXIgPC0gXFxkSGlnaEFubm95UGNcXFxuXG5zZWVkcyA8LSBjKDU0NiwgNTcyMDMsIDI3MDgzNSwgNjA1OTIsIDgwOTQpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
iVars <- c(absVar, eventVar, ambVar, sharpVar, tonalVar, fluctVar, roughVar, impulsVar)
dVar <- \dHighAnnoyPc\
seeds <- c(546, 57203, 270835, 60592, 8094)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F4TlRBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDE1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 1501
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXhOVEF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDE1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAxNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 1501
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlRVVTF6TWlBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJUVVUxek1pUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeUpFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUlRVVTF6TWlSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutSQMs2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
resultsOutSQMs2$OOB_MAE
resultsOutSQMs2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSVFVVMXpNaUE4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlRVVTF6TWlSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRGTlJUWE15SkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSVFVVMXpNaVJTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutSQMs2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
resultsOutSQMs2$OOB_MAE
resultsOutSQMs2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVTFGTmN6SWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGTlJUWE15SkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFUxRk5jeklrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZOUlRYTXlKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dFNRTXMyIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutSQMs2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
resultsOutSQMs2$OOB_MAE
resultsOutSQMs2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVMUZOY3pJZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZOUlRYTXlKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwVTFGTmN6SWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeUpGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U1FNczIkT09CX1JNU0VcbnJlc3VsdHNPdXRTUU1zMiRPT0JfTUFFXG5yZXN1bHRzT3V0U1FNczIkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0U1FNczIgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFNRTXMyJE9PQl9STVNFXG5yZXN1bHRzT3V0U1FNczIkT09CX01BRVxucmVzdWx0c091dFNRTXMyJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSQMs2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
resultsOutSQMs2$OOB_MAE
resultsOutSQMs2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMEZpY3lCVFVVMXpJRzV2SUhSdmJtRnNJR3h2ZFdRbkxDQW5VazFUUlNkZElEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1pUlBUMEpmVWsxVFJWeHVjbVZ6WkVocFFXNXViM2xHYVhSQlFsc25RV0p6SUZOUlRYTWdibThnZEc5dVlXd2diRzkxWkNjc0lDZE5RVVVuWFNBOExTQnlaWE4xYkhSelQzVjBVMUZOY3pJa1QwOUNYMDFCUlZ4dWNtVnpaRWhwUVc1dWIzbEdhWFJCUWxzblFXSnpJRk5SVFhNZ2JtOGdkRzl1WVd3Z2JHOTFaQ2NzSUNkU2MzRjFZWEpsWkNkZElEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1pUlNjM0YxWVhKbFpGeHVjbVZ6WkVocFFXNXViM2xRWlhKdFNXMXdRVUlrUVdKelUxRk5jeklnUEMwZ2NtVnpkV3gwYzA5MWRGTlJUWE15SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhCY2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIFNRTXMgbm8gdG9uYWwgbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0U1FNczIkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIFNRTXMgbm8gdG9uYWwgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzU1FNczIgPC0gcmVzdWx0c091dFNRTXMyJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# store results
resdHiAnnoyFitAB['Abs SQMs no tonal loud', 'RMSE'] <- resultsOutSQMs2$OOB_RMSE
resdHiAnnoyFitAB['Abs SQMs no tonal loud', 'MAE'] <- resultsOutSQMs2$OOB_MAE
resdHiAnnoyFitAB['Abs SQMs no tonal loud', 'Rsquared'] <- resultsOutSQMs2$Rsquared
resdHiAnnoyPermImpAB$AbsSQMs2 <- resultsOutSQMs2$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowRmljeUJUVVUxeklHNXZJSFJ2Ym1Gc0lHeHZkV1FuTENBblVrMVRSU2RkSUR3dElISmxjM1ZzZEhOUGRYUlRVVTF6TWlSUFQwSmZVazFUUlZ4dWNtVnpaRWhwUVc1dWIzbEdhWFJCUWxzblFXSnpJRk5SVFhNZ2JtOGdkRzl1WVd3Z2JHOTFaQ2NzSUNkTlFVVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFUxRk5jeklrVDA5Q1gwMUJSVnh1Y21WelpFaHBRVzV1YjNsR2FYUkJRbHNuUVdKeklGTlJUWE1nYm04Z2RHOXVZV3dnYkc5MVpDY3NJQ2RTYzNGMVlYSmxaQ2RkSUR3dElISmxjM1ZzZEhOUGRYUlRVVTF6TWlSU2MzRjFZWEpsWkZ4dWNtVnpaRWhwUVc1dWIzbFFaWEp0U1cxd1FVSWtRV0p6VTFGTmN6SWdQQzBnY21WemRXeDBjMDkxZEZOUlRYTXlKR052Ym1ScGRHbHZibUZzWDNCbGNtMXBiWEJjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydBYnMgU1FNcyBubyB0b25hbCBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U1FNczIkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U1FNczIkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJEFic1NRTXMyIDwtIHJlc3VsdHNPdXRTUU1zMiRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0FicyBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIFNRTXMgbm8gdG9uYWwgbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0U1FNczIkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnQWJzIFNRTXMgbm8gdG9uYWwgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzU1FNczIgPC0gcmVzdWx0c091dFNRTXMyJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdHiAnnoyFitAB['Abs SQMs no tonal loud', 'RMSE'] <- resultsOutSQMs2$OOB_RMSE
resdHiAnnoyFitAB['Abs SQMs no tonal loud', 'MAE'] <- resultsOutSQMs2$OOB_MAE
resdHiAnnoyFitAB['Abs SQMs no tonal loud', 'Rsquared'] <- resultsOutSQMs2$Rsquared
resdHiAnnoyPermImpAB$AbsSQMs2 <- resultsOutSQMs2$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeUxtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlRVVTF6TWlSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJUVVUxek1pNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVFVVMXpNaTVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRk5SVFhNeUxtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTjEwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9KU0JvYVdkb2JIa2dZVzV1YjNsbFpDbGNJaWtnS3lCMGFHVnRaU2gwWlhoMElEMGdaV3hsYldWdWRGOTBaWGgwS0daaGJXbHNlU0E5SUZ3aWMyVnlhV1pjSWlrc0lIQmhibVZzTG1keWFXUTlaV3hsYldWdWRGOXNhVzVsS0dOdmJHOXlJRDBnY21kaUtESXpOU3dnTWpNMUxDQXlNelVzSURFd01Dd2diV0Y0UTI5c2IzSldZV3gxWlNBOUlESTFOU2tzSUd4cGJtVjNhV1IwYUNBOUlEQXVNalVzSUd4cGJtVjBlWEJsSUQwZ01pa3BJQ3NnWTI5dmNtUmZabXhwY0NoNWJHbHRQV01vTUN3Z09UQXBLVnh1Y0VKaGNseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtTR2xCYm01dmVVRmljMU5SVFhOT2IxUnZia3hrUTI5dVVHVnliV2x0Y0M1emRtZGNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVEl1TkN3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSnpkbWRjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1pFaHBRVzV1YjNsQlluTlRVVTF6VG05VWIyNU1aRU52YmxCbGNtMXBiWEF1YzNablhDSXBYRzRnSUZ4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhDSlFkSE5CUW1SSWFVRnVibTk1UVdKelUxRk5jMDV2Vkc5dVRHUkRiMjVRWlhKdGFXMXdMbkJrWmx3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pNDBMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjSW5Ca1psd2lLU2xjYmlBZ2RXNXNhVzVyS0Z3aVVIUnpRVUprU0dsQmJtNXZlVUZpYzFOUlRYTk9iMVJ2Ymt4a1EyOXVVR1Z5YldsdGNDNXdaR1pjSWlsY2JuMWNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRTUU1zMi5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0U1FNczIkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0U1FNczIuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0U1FNczIuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMi5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzddLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDkwKSlcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBYnNTUU1zTm9Ub25MZENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWJzU1FNc05vVG9uTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFic1NRTXNOb1RvbkxkQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBYnNTUU1zTm9Ub25MZENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs2.conimp <- arrange(resultsOutSQMs2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs2.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs2.conimp), levels=rownames(resultsOutSQMs2.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 90))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAbsSQMsNoTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAbsSQMsNoTonLdConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyAbsSQMsNoTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAbsSQMsNoTonLdConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGTlJUWE15TG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSVFVVMXpNaVJqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlRVVTF6TWk1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJUVVUxek1pNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGTlJUWE15TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJOMTBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb0pTQm9hV2RvYkhrZ1lXNXViM2xsWkNsY1hDa2dLeUIwYUdWdFpTaDBaWGgwSUQwZ1pXeGxiV1Z1ZEY5MFpYaDBLR1poYldsc2VTQTlJRnhjYzJWeWFXWmNYQ2tzSUhCaGJtVnNMbWR5YVdROVpXeGxiV1Z1ZEY5c2FXNWxLR052Ykc5eUlEMGdjbWRpS0RJek5Td2dNak0xTENBeU16VXNJREV3TUN3Z2JXRjRRMjlzYjNKV1lXeDFaU0E5SURJMU5Ta3NJR3hwYm1WM2FXUjBhQ0E5SURBdU1qVXNJR3hwYm1WMGVYQmxJRDBnTWlrcElDc2dZMjl2Y21SZlpteHBjQ2g1YkdsdFBXTW9NQ3dnT1RBcEtWeHVjRUpoY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1NHbEJibTV2ZVVGaWMxTlJUWE5PYjFSdmJreGtRMjl1VUdWeWJXbHRjQzV6ZG1kY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUSXVOQ3dnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4emRtZGNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWkVocFFXNXViM2xCWW5OVFVVMXpUbTlVYjI1TVpFTnZibEJsY20xcGJYQXVjM1puWEZ3cFhHNGdJRnh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WEZ4UWRITkJRbVJJYVVGdWJtOTVRV0p6VTFGTmMwNXZWRzl1VEdSRGIyNVFaWEp0YVcxd0xuQmtabHhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWk0MExDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNYSEJrWmx4Y0tTbGNiaUFnZFc1c2FXNXJLRnhjVUhSelFVSmtTR2xCYm01dmVVRmljMU5SVFhOT2IxUnZia3hrUTI5dVVHVnliV2x0Y0M1d1pHWmNYQ2xjYm4xY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0U1FNczIuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFNRTXMyJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dFNRTXMyLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dFNRTXMyLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0U1FNczIuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s3XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCA5MCkpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWJzU1FNc05vVG9uTGRDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUFic1NRTXNOb1RvbkxkQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lBYnNTUU1zTm9Ub25MZENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95QWJzU1FNc05vVG9uTGRDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMyLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMiRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMi5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMi5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMyLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgOTApKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veUFic1NRTXNOb1RvbkxkQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lBYnNTUU1zTm9Ub25MZENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95QWJzU1FNc05vVG9uTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUFic1NRTXNOb1RvbkxkQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs2.conimp <- arrange(resultsOutSQMs2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs2.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs2.conimp), levels=rownames(resultsOutSQMs2.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 90))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyAbsSQMsNoTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyAbsSQMsNoTonLdConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyAbsSQMsNoTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyAbsSQMsNoTonLdConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
### Difference variables
Next, the difference metrics are analysed
#### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0c1aGJXVnpLSE4wYVcxRVlYUmhUblZ0S1Z0M2FHbGphQ2hqYjJ4dVlXMWxjeWh6ZEdsdFJHRjBZVTUxYlNrOVBWd2lURUZsY1V4QlJqa3daR2xtWmx3aUtUcGNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCM2FHbGphQ2hqYjJ4dVlXMWxjeWh6ZEdsdFJHRjBZVTUxYlNrOVBWd2laRWx0Y0hWc2MxTklUVEExUlhoTllYaE1VbHdpS1Ywc1hHNGdJQ0FnSUNBZ0lDQWdJRndpVlVGVFJYWmxiblJ6WENJc0lGd2lVMDVTYkdWMlpXeGNJaXdnWENKSmJuUmxjbTFwZEZKaGRHbHZRekpOWVhoTVVsd2lMQ0JjSWtsdWRHVnliV2wwVW1GMGFXOURNMDFoZUV4U1hDSXNJRndpU1c1MFpYSnRhWFJTWVhScGIwTTFUV0Y0VEZKY0lpbGNibVJXWVhJZ1BDMGdYQ0prU0dsbmFFRnVibTk1VUdOY0lseHVYRzV6WldWa2N5QThMU0JqS0RVMk9ETTVNaXdnTkRrNExDQTBNRGc1TENBM09ERXpNaXdnTnpReE9EQTVLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmlWYXJzIDwtIGMobmFtZXMoc3RpbURhdGFOdW0pW3doaWNoKGNvbG5hbWVzKHN0aW1EYXRhTnVtKT09XFxMQWVxTEFGOTBkaWZmXFwpOlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHdoaWNoKGNvbG5hbWVzKHN0aW1EYXRhTnVtKT09XFxkSW1wdWxzU0hNMDVFeE1heExSXFwpXSxcbiAgICAgICAgICAgXFxVQVNFdmVudHNcXCwgXFxTTlJsZXZlbFxcLCBcXEludGVybWl0UmF0aW9DMk1heExSXFwsIFxcSW50ZXJtaXRSYXRpb0MzTWF4TFJcXCwgXFxJbnRlcm1pdFJhdGlvQzVNYXhMUlxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoNTY4MzkyLCA0OTgsIDQwODksIDc4MTMyLCA3NDE4MDkpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
iVars <- c(names(stimDataNum)[which(colnames(stimDataNum)==\LAeqLAF90diff\):
which(colnames(stimDataNum)==\dImpulsSHM05ExMaxLR\)],
\UASEvents\, \SNRlevel\, \IntermitRatioC2MaxLR\, \IntermitRatioC3MaxLR\, \IntermitRatioC5MaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(568392, 498, 4089, 78132, 741809)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLRzVoYldWektITjBhVzFFWVhSaFRuVnRLVnQzYUdsamFDaGpiMnh1WVcxbGN5aHpkR2x0UkdGMFlVNTFiU2s5UFZ4Y1RFRmxjVXhCUmprd1pHbG1abHhjS1RwY2JpQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0IzYUdsamFDaGpiMnh1WVcxbGN5aHpkR2x0UkdGMFlVNTFiU2s5UFZ4Y1pFbHRjSFZzYzFOSVRUQTFSWGhOWVhoTVVseGNLVjBzWEc0Z0lDQWdJQ0FnSUNBZ0lGeGNWVUZUUlhabGJuUnpYRndzSUZ4Y1UwNVNiR1YyWld4Y1hDd2dYRnhKYm5SbGNtMXBkRkpoZEdsdlF6Sk5ZWGhNVWx4Y0xDQmNYRWx1ZEdWeWJXbDBVbUYwYVc5RE0wMWhlRXhTWEZ3c0lGeGNTVzUwWlhKdGFYUlNZWFJwYjBNMVRXRjRURkpjWENsY2JtUldZWElnUEMwZ1hGeGtTR2xuYUVGdWJtOTVVR05jWEZ4dVhHNXpaV1ZrY3lBOExTQmpLRFUyT0RNNU1pd2dORGs0TENBME1EZzVMQ0EzT0RFek1pd2dOelF4T0RBNUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmlWYXJzIDwtIGMobmFtZXMoc3RpbURhdGFOdW0pW3doaWNoKGNvbG5hbWVzKHN0aW1EYXRhTnVtKT09XFxMQWVxTEFGOTBkaWZmXFwpOlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHdoaWNoKGNvbG5hbWVzKHN0aW1EYXRhTnVtKT09XFxkSW1wdWxzU0hNMDVFeE1heExSXFwpXSxcbiAgICAgICAgICAgXFxVQVNFdmVudHNcXCwgXFxTTlJsZXZlbFxcLCBcXEludGVybWl0UmF0aW9DMk1heExSXFwsIFxcSW50ZXJtaXRSYXRpb0MzTWF4TFJcXCwgXFxJbnRlcm1pdFJhdGlvQzVNYXhMUlxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoNTY4MzkyLCA0OTgsIDQwODksIDc4MTMyLCA3NDE4MDkpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKG5hbWVzKHN0aW1EYXRhTnVtKVt3aGljaChjb2xuYW1lcyhzdGltRGF0YU51bSk9PVxcTEFlcUxBRjkwZGlmZlxcKTpcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB3aGljaChjb2xuYW1lcyhzdGltRGF0YU51bSk9PVxcZEltcHVsc1NITTA1RXhNYXhMUlxcKV0sXG4gICAgICAgICAgIFxcVUFTRXZlbnRzXFwsIFxcU05SbGV2ZWxcXCwgXFxJbnRlcm1pdFJhdGlvQzJNYXhMUlxcLCBcXEludGVybWl0UmF0aW9DM01heExSXFwsIFxcSW50ZXJtaXRSYXRpb0M1TWF4TFJcXClcbmRWYXIgPC0gXFxkSGlnaEFubm95UGNcXFxuXG5zZWVkcyA8LSBjKDU2ODM5MiwgNDk4LCA0MDg5LCA3ODEzMiwgNzQxODA5KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
iVars <- c(names(stimDataNum)[which(colnames(stimDataNum)==\LAeqLAF90diff\):
which(colnames(stimDataNum)==\dImpulsSHM05ExMaxLR\)],
\UASEvents\, \SNRlevel\, \IntermitRatioC2MaxLR\, \IntermitRatioC3MaxLR\, \IntermitRatioC5MaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(568392, 498, 4089, 78132, 741809)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbnAgPC0gbXRyeVR1bmUoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkPXNlZWRzWzE6Ml0sXG4gICAgICAgICAgICAgbnRyZWVzPW50cmVlcywgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuYGBgXG5gYGAifQ== -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTk5GTkNNWFZhUjNSa1MxZGpaelZVTms5cEswOUVTRVZJZVZGTk5uUXdOWGh1Ymt0UkwwdGlMelY0U0VoRFVXTndNQzlsWTFSMU9YRklZVkpMT0hsaVZYUnhPWGxyUm5BM0sxY3ZUVFF6TUU5VmRXTlpNWHBhY1VZNFVFMXpXRGhwV1VKS1duZGlibU12YzJ3d2J6a3Jjbk55VkhOdU1YcHlUMXAzTldGaFNEbHJORmxVT1hKTkt6YzNUaTgwYm5FMU9XaEdabWt2TTJwMmVETjZSbnBIYzNSSUt6aDBlWEVyT0ZaSFJpOWxUMFkyY0hRdk5YaFlRVE5UVFhGNFJIY3pTVVJVWlZGalZHeHNjakJHZVhwUlNEUlJPRWhOTkhNNUwwSjRSVnBDVHpWaWRqSnpZMUpDVW1GRU9HTm1jR3BNVVdOUmMzaEdkM1lyU2xkRVUwczBWbGMxVEVwR1oyVlNabFphT0cxV05VdFJSRTQwVVdWYVFTOVJaMHRHVVVWblJtZEdhVU5UUWxkQlIwcFdTVTVoUWpKM1ptbEJXVWRFUzBwVWJXZGtTbk5WU205S1VYUjJMMmRrU1M5dlVGRllRbWxvUVVOWFJGZDJUVlJqTVVkTGIzQmhlRkZSV2xsbk16SkNXRXRLYzJweFRHbDNUa3hGYjA1UldFdGFMMW94YUVWdGVEVktXVlZXVlV4YVdFcHNhR2xWV0VZNFYwRlNWa0p6TkdrdlRFdzVWME15WjB4NlN6RkJRbmhDZDJVMlZUVktla1Z2ZEdoVWIwVktZM0ZWYTJ4cFZIRndVbFZDT1ZGT05TODVRekJ6VDJOWWJFZFViVFYzUlRGTldVVlRRMU5qTUVGQ2JXaEhUbXRuZUdsS2IwTkVTVFpoVFVKRFFYTnZXR2RRVDFKT1VXbFZOVzlHWTI1aFMySnVSa2RoYkRZeGNtRkpiMjE2TVhsUmJEUTFhMGgzVUZWa05IcFJlVWxUZUZkVFJrOWFkbTlRTVdNMFNrTTNlbFUxU1hnNFMwcHpkRTVUT0RsTmVUaFdSbTFDY0cxbGJEWTFXbXR3U2xKdGQwMUJRVXBhUzFKdGNHMWxWWGRKU1hGS2VrVndUbEZtYld0S1ZGVk5hV2xVUkhocVZ6UkxSRmRMZVdwTGVrbFBjRFZuUzB0R2RYVldOVXBqYTNkeVVuZEtaV1p1ZDBWVVFXOWpjbmRFZDBOQ2VWVnlZbXhSVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFw2LjcwNjU0N1xcLFxcMlxcOlxcMC42MjY5NzgxXFwsXFwzXFw6XFw1LjI2NzU5MlxcLFxcNFxcOlxcNVxcLFxcNVxcOlxcMTAuNTBcXH0se1xcMVxcOlxcNi41Mzg3NTFcXCxcXDJcXDpcXDAuNjQzNDU2OVxcLFxcM1xcOlxcNS4wNjcyMzlcXCxcXDRcXDpcXDEwXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDYuNDM3NjcxXFwsXFwyXFw6XFwwLjY1MTE5MDJcXCxcXDNcXDpcXDQuOTg1MTEzXFwsXFw0XFw6XFwxNlxcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFw2LjQ5MDQxN1xcLFxcMlxcOlxcMC42NDA3MjA1XFwsXFwzXFw6XFw1LjAyODY5MFxcLFxcNFxcOlxcMjBcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcNi41NTI2NzBcXCxcXDJcXDpcXDAuNjMzNTIzN1xcLFxcM1xcOlxcNS4wMzE3NjhcXCxcXDRcXDpcXDI0XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDYuNjE0NjgwXFwsXFwyXFw6XFwwLjYyNDY5ODlcXCxcXDNcXDpcXDUuMDUzMDU2XFwsXFw0XFw6XFwzMlxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFw2LjY2OTc1NFxcLFxcMlxcOlxcMC42MTY4Nzk2XFwsXFwzXFw6XFw1LjEwNjY2N1xcLFxcNFxcOlxcMzdcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcNi43MDExNzhcXCxcXDJcXDpcXDAuNjEzNDIyM1xcLFxcM1xcOlxcNS4xODU3NjhcXCxcXDRcXDpcXDQ0XFwsXFw1XFw6XFwxLjI1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbOF19LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTk5GTkNNVW96V2paVldYRkxaM2hVVURaa1kwTnpXVGhqU2tvNWRFc3pOMlJ6Y3psQ1UydElMelV3U1VoS1VXTndLMW80ZFVka1kzWlBWV2xzUnpJd09FbDBZbXBKUkZkR2RUbDROR1kzYlVReFNXMHpTakZ6UzNaelJFMXpXQzg0VGpKV1ZtSXdSMVl2V2xCV1RIYzFTSEF6TUVNd2JWaHlUSFpZWVRKNk9VcHFRWEZoT1VObVFpOXJiVEI1YWpkcWJtazNOMG81ZDA1TFpqUlFaRGx2TDNaeWRtOHdaRnAyVTJaaFVGWTNSRGh0VURSNFJFODBaVlZSYmpKUE5HTTNUSHAxU1dWSldXeHRTV3AyWkZKRUszUTJSbkpMVm1WSlp6UnFPVVIxV1VSaFdsVlBTV2R4YzFJelRGWnphSGhGU0U1NmFtUXZkWFprZUVSS1YwNW5iWFEyU0VwUlYxUkdUWFphUzBsWFlXZEhZbmRuWXpaQ0swSkpWMHRCUWtOTVFVeEZSVVZEYzBGelUyOVJOamhFZEVFdlIwRjNSVVZWVTNaT1FXRlVXVzk2VVZOb04yWTVRVFpTT1ZFclozTkVSa3RCUlUxSGRHVlpiVFZ4VFdSU1UxWnhaMmRUTlVKMmMwTjFWWHBTUmxWWVJtbGhWMHBUWVVGMVZYb3JlbkpEY0Vab2VWTTBiM0Z2VjNsMWVreEVSVzkxU2pSelFXbHhSRnA0Uml0bFZqWk5SblJCV0cxV2NXZE1hVVJCT1RCd2VWUnRTbmhVUTI1M1FWTTFWV2hLVEVWMldGTnBiMFEyWjJKNEwyRkdjbGs0ZDNSTFRYWlFlbWRLY1ZsUlNXMUZSWGh4UVdwR1EwMWlRa0pxUlZSUlJVZFNNREJaUTBWQ05WRjJRU3RqWjJGQ1JYSjZVVXMxVHpCVk0wOUxUVE5NTVdwVk1GSmFUbTVNYzJoTVVqZExVRUZsYnpkU2JXaHJkM1JwYzBWRFkzb3ZXV1J4TlRSUlJsaHRjSGxTYWpaVmVscGhZV3cxTmxwc2QyOU1jMHhVVFdSTU0zbDZTbE5UUkVabldXZEJVWGxWYWxCVVRUQndaMUZhVjFSdFNsTmhRVE5PU1ZOdGIxcHNUV3RJUkVkMGQxVlBjMVpHUjFodGQxWlNla0ZWVjB3NVZYSjVVM2hLYUZkeWFWTTRNMDVuU1hWQ1VWcG1aMGhCUWxaSlQzQmhWa0YzUVVFaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDYuNzE1MjAxXFwsXFwyXFw6XFwwLjYyNDY4MThcXCxcXDNcXDpcXDUuMjczNDY3XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFw2LjUxMjQ5N1xcLFxcMlxcOlxcMC42NDU5ODUwXFwsXFwzXFw6XFw1LjA3MTYxOVxcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcNi40NzUzMDVcXCxcXDJcXDpcXDAuNjQ1OTMwNlxcLFxcM1xcOlxcNC45OTg3MjBcXCxcXDRcXDpcXDE2XFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDYuNTMxNDMzXFwsXFwyXFw6XFwwLjYzNjg4MzlcXCxcXDNcXDpcXDUuMDYyMjI1XFwsXFw0XFw6XFwyMFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFw2LjUzMTIyNFxcLFxcMlxcOlxcMC42MzYxMjU5XFwsXFwzXFw6XFw1LjAzMTI3MlxcLFxcNFxcOlxcMjRcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcNi42MDA3NzlcXCxcXDJcXDpcXDAuNjI2NDA0MFxcLFxcM1xcOlxcNS4wNjI3NzJcXCxcXDRcXDpcXDMyXFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDYuNjQ0NTc1XFwsXFwyXFw6XFwwLjYyMDgwNTJcXCxcXDNcXDpcXDUuMTAyMTc5XFwsXFw0XFw6XFwzN1xcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFw2LjY5NjIyMFxcLFxcMlxcOlxcMC42MTQyNjAyXFwsXFwzXFw6XFw1LjE2NDY5NlxcLFxcNFxcOlxcNDRcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNNFNCMXVaR3RkS1djZzVUNk9pK09ESEVIeVFNNnQwNXhubktRL0tiLzV4SEhDUWNwMC9lY1R1OXFIYVJLOHliVXRxOXlrRnA3K1cvTTQzME9VdWNZMXpacUY4UE1zWDhpWUJKWndibmMvc2wwbzkrcnNyVHNuMXpyT1p3NWFhSDlrNFlUOXJNKzc3Ti80bnE1OWhGZmkvM2p2eDN6RnpHc3RIKzh0eXErOFZHRi9lT0Y2cHQvNXhYQTNTTXF4RHczSURUZVFjVGxscjBGeXpRSDRROEhNNHM5L0J4RVpCTzVidjJzY1JCUmFEOGNmcGpMUWNRc3hGd3YrSldEU0s0Vlc1TEpGZ2VSZlZaOG1WNUtRRE40UWVaQS9RZ0tGUUVnRmdGaUNTQldBR0pWSU5hQjJ3ZmlBWUdES0pUbWdkSnNVSm9KUXR2L2dkSS9vUFFYQmloQUNXRFd2TVRjMUdLb3BheFFRWllnMzJCWEtKc2pxTGl3TkxFb05RWEtaL1oxaEVteDVKWVVWVUxaWEpsaGlVWEY4V0FSVkJzNGkvTEw5V0MyZ0x6SzFBQnhCd2U2VTVKekVvdGhUb0VKY3FVa2xpVHFwUlVCOVFONS85QzBzT2NYbEdUbTV3RTFNWUVTQ1NjMEFCbWhHTmtneGlKb0NESTZhTUJDQXNvWGdQT1JOUWlVNW9GY25hS2JuRkdhbDYxcmFJb216MXlRbDQ1a0h3UFVkNHpReUlTeFdTRk9adm9QMWM0SkM3elU1SXg4S0pzdE5TODlNeThWRm1CcG1lbDY1WmtwSlJtd01BQUpaS1JtcG1lVXdJSXFKekVwTlFmbWtKVFVNaWlURHhqVzRLRFdLeWpLeklPcDVnS0tGdXVWNUpja3dyUndKZWZud0VUQW9jcndEd0NCeVVyYmxRTUFBQT09In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\6.706547\,\2\:\0.6269781\,\3\:\5.267592\,\4\:\5\,\5\:\10.50\},{\1\:\6.538751\,\2\:\0.6434569\,\3\:\5.067239\,\4\:\10\,\5\:\5.25\},{\1\:\6.437671\,\2\:\0.6511902\,\3\:\4.985113\,\4\:\16\,\5\:\3.50\},{\1\:\6.490417\,\2\:\0.6407205\,\3\:\5.028690\,\4\:\20\,\5\:\2.75\},{\1\:\6.552670\,\2\:\0.6335237\,\3\:\5.031768\,\4\:\24\,\5\:\2.25\},{\1\:\6.614680\,\2\:\0.6246989\,\3\:\5.053056\,\4\:\32\,\5\:\1.75\},{\1\:\6.669754\,\2\:\0.6168796\,\3\:\5.106667\,\4\:\37\,\5\:\1.50\},{\1\:\6.701178\,\2\:\0.6134223\,\3\:\5.185768\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNNFNCMUozWjZVWXFLZ3hUUDZkY0NzWThjSko5dEszN2RzczlCU2tILzUwSUhKUWNwK1o4dUdkY3ZPVWlsRzIwOEl0YmpJRFdGdTl4NGY3bUQxSW0zSjFzS3ZzRE1zWC84TjJWVmIwR1YvWlBWTHc1SHAzMEMwbVhyTHZYYTJ6OUpqQXFhOUNmQi9rbTB5ajdqbmk3N0o5d05LZjRQZDlvL3Zydm8wZFp2U2ZhUFY3RDhtUDR4RE80ZVVRbjJPNGM3THp1SWVJWWxtSWp2ZFJEK3Q2RnJLVmVJZzRqOUR1WURhWlVPSWdxc1IzTFZzaHhFSE56amQvdXZkeERKV05nbXQ2SEpRV1RGTXZaS0lXYWdHYndnYzZCK0JJV0tBQkNMQUxFRUVDc0FzU29RNjhEdEEvR0F3RUVVU3ZOQWFUWW96UVNoN2Y5QTZSOVErZ3NERktBRU1HdGVZbTVxTWRSU1ZxZ2dTNUJ2c0N1VXpSRlVYRmlhV0pTYUF1VXorenJDcEZoeVM0b3FvV3l1ekxERW91SjRzQWlxRFp4RitlVjZNRnRBWG1WcWdMaURBOTBweVRtSnhUQ253QVM1VWhKTEV2WFNpb0Q2Z2J4L2FGclk4d3RLTXZQemdKcVlRSW1FRXhxQWpGQ01iQkJqRVRRRUdSMDBZQ0VCNVF2QStjZ2FCRXJ6UUs1TzBVM09LTTNMMWpVMFJaTm5Mc2hMUjdLUEFlbzdSbWhrd3Rpc0VDY3ovWWRxNTRRRlhtcHlSajZVelphYWw1Nlpsd29Mc0xUTWRMM3l6SlNTREZnWWdBUXlValBUTTBwZ1FaV1RtSlNhQTNOSVNtb1psTWtIREd0d1VPc1ZGR1htd1ZSekFVV0w5VXJ5U3hKaFdyaVM4M05nSXVCUVpmZ0hBQlZJT3BhVkF3QUEifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\6.715201\,\2\:\0.6246818\,\3\:\5.273467\,\4\:\5\,\5\:\10.50\},{\1\:\6.512497\,\2\:\0.6459850\,\3\:\5.071619\,\4\:\10\,\5\:\5.25\},{\1\:\6.475305\,\2\:\0.6459306\,\3\:\4.998720\,\4\:\16\,\5\:\3.50\},{\1\:\6.531433\,\2\:\0.6368839\,\3\:\5.062225\,\4\:\20\,\5\:\2.75\},{\1\:\6.531224\,\2\:\0.6361259\,\3\:\5.031272\,\4\:\24\,\5\:\2.25\},{\1\:\6.600779\,\2\:\0.6264040\,\3\:\5.062772\,\4\:\32\,\5\:\1.75\},{\1\:\6.644575\,\2\:\0.6208052\,\3\:\5.102179\,\4\:\37\,\5\:\1.50\},{\1\:\6.696220\,\2\:\0.6142602\,\3\:\5.164696\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTAwVTBJeGRWcEhkR1JMVjJObk5WUTJUMmtyVDBSSVJVaDVVVTAyZERBMWVHNXVTMUV2UzJJdk5YaElTRU5SWTNBd0wyVmpWSFU1Y1VoaFVrczRlV0pWZEhFNWVXdEdjRGNyVnk5Tk5ETXdUMVYxWTFreGVscHhSamhRVFhOWU9HbFpRa3BhZDJKdVl5OXpiREJ2T1N0eWMzSlVjMjR4ZW5KUFduYzFZV0ZJT1dzMFdWUTVjazByTnpkT0x6UnVjVFU1YUVabWFTOHphblo0TTNwR2VrZHpkRWdyT0hSNWNTczRWa2RHTDJWUFJqWndkQzgxZUZoQk0xTk5jWGhFZHpOSlJGUmxVV05VYkd4eU1FWjVlbEZJTkZFNFNFMDBjemt2UW5oRldrSlBOV0oyTW5OalVrSlNZVVE0WTJad2FreFJZMUZ6ZUVaM2RpdEtWMFJUU3pSV1Z6Vk1Ta1puWlZKbVZsbzRiVlkxUzFGRVRqUlJaVnBCTDFGblMwWlJSV2RHWjBacFExTkNWMEZIU2xaSlRtRkNNbmRtYVVGWlIwUkxTbFJ0WjJSS2MxVktiMHBSZEhZdloyUkpMMjlRVVZoQ2FXaEJRMWRFVjNaTlZHTXhSMHR2Y0dGNFVWRmFXV2N6TWtKWVMwcHphbkZNYVhkT1RFVnZUbEZZUzFvdldqRm9SVzE0TlVwWlZWWlZURnBZU214b2FWVllSamhYUVZKV1FuTTBhUzlNVERsWFF6Sm5USHBMTVVGQ2VFSjNaVFpWTlVwNlJXOTBhRlJ2UlVwamNWVnJiR2xVY1hCU1ZVSTVVVTQxTHpsRE1ITlBZMWhzUjFSdE5YZEZNVTFaUlZORFUyTXdRVUp0YUVkT2EyZDRhVXB2UTBSSk5tRk5Ra05CYzI5WVoxQlBVazVSYVZVMWIwWmpibUZMWW01R1IyRnNOakZ5WVVsdmJYb3hlVkZzTkRWclNIZFFWV1EwZWxGNVNWTjRWMU5HVDFwMmIxQXhZelJLUXpkNlZUVkplRGhMU25OMFRsTTRPVTE1T0ZaR2JVSndiV1ZzTmpWYWEzQktVbTEzVFVGQlNscExVbTF3YldWVmQwbEpjVXA2UlhCT1VXWnRhMHBVVlUxcGFWUkVlR3BYTkV0RVYwdDVha3Q2U1U5d05XZExTMFoxZFZZMVNtTnJkM0pTZDBwbFptNTNSVlJCYjJOeWQwUjNRMEo1VlhKaWJGRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjYuNzA2NTQ3XCIsXCIyXCI6XCIwLjYyNjk3ODFcIixcIjNcIjpcIjUuMjY3NTkyXCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCI2LjUzODc1MVwiLFwiMlwiOlwiMC42NDM0NTY5XCIsXCIzXCI6XCI1LjA2NzIzOVwiLFwiNFwiOlwiMTBcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiNi40Mzc2NzFcIixcIjJcIjpcIjAuNjUxMTkwMlwiLFwiM1wiOlwiNC45ODUxMTNcIixcIjRcIjpcIjE2XCIsXCI1XCI6XCIzLjUwXCJ9LHtcIjFcIjpcIjYuNDkwNDE3XCIsXCIyXCI6XCIwLjY0MDcyMDVcIixcIjNcIjpcIjUuMDI4NjkwXCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCI2LjU1MjY3MFwiLFwiMlwiOlwiMC42MzM1MjM3XCIsXCIzXCI6XCI1LjAzMTc2OFwiLFwiNFwiOlwiMjRcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiNi42MTQ2ODBcIixcIjJcIjpcIjAuNjI0Njk4OVwiLFwiM1wiOlwiNS4wNTMwNTZcIixcIjRcIjpcIjMyXCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjYuNjY5NzU0XCIsXCIyXCI6XCIwLjYxNjg3OTZcIixcIjNcIjpcIjUuMTA2NjY3XCIsXCI0XCI6XCIzN1wiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCI2LjcwMTE3OFwiLFwiMlwiOlwiMC42MTM0MjIzXCIsXCIzXCI6XCI1LjE4NTc2OFwiLFwiNFwiOlwiNDRcIixcIjVcIjpcIjEuMjVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls4XX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE00U0IxdVpHdGRLV2NnNVQ2T2krT0RIRUh5UU02dDA1eG5uS1EvS2IvNXhISENRY3AwL2VjVHU5cUhhUks4eWJVdHE5eWtGcDcrVy9NNDMwT1V1Y1kxelpxRjhQTXNYOGlZQkpad2JuYy9zbDBvOStyc3JUc24xenJPWnc1YWFIOWs0WVQ5ck0rNzdOLzRucTU5aEZmaS8zanZ4M3pGekdzdEgrOHR5cSs4VkdGL2VPRjZwdC81eFhBM1NNcXhEdzNJRFRlUWNUbGxyMEZ5elFINFE4SE00czkvQnhFWkJPNWJ2MnNjUkJSYUQ4Y2ZwakxRY1FzeEZ3ditKV0RTSzRWVzVMSkZnZVJmVlo4bVY1S1FETjRRZVpBL1FnS0ZRRWdGZ0ZpQ1NCV0FHSlZJTmFCMndmaUFZR0RLSlRtZ2RKc1VKb0pRdHYvZ2RJL29QUVhCaWhBQ1dEV3ZNVGMxR0tvcGF4UVFaWWczMkJYS0pzanFMaXdOTEVvTlFYS1ovWjFoRW14NUpZVVZVTFpYSmxoaVVYRjhXQVJWQnM0aS9MTDlXQzJnTHpLMUFCeEJ3ZTZVNUp6RW90aFRvRUpjcVVrbGlUcXBSVUI5UU41LzlDMHNPY1hsR1RtNXdFMU1ZRVNDU2MwQUJtaEdOa2d4aUpvQ0RJNmFNQkNBc29YZ1BPUk5RaVU1b0ZjbmFLYm5GR2FsNjFyYUlvbXoxeVFsNDVrSHdQVWQ0elF5SVN4V1NGT1p2b1AxYzRKQzd6VTVJeDhLSnN0TlM4OU15OFZGbUJwbWVsNjVaa3BKUm13TUFBSlpLUm1wbWVVd0lJcUp6RXBOUWZta0pUVU1paVREeGpXNEtEV0t5akt6SU9wNWdLS0Z1dVY1SmNrd3JSd0plZm53RVRBb2Nyd0R3Q0J5VXJibFFNQUFBPT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"6.706547","2":"0.6269781","3":"5.267592","4":"5","5":"10.50"},{"1":"6.538751","2":"0.6434569","3":"5.067239","4":"10","5":"5.25"},{"1":"6.437671","2":"0.6511902","3":"4.985113","4":"16","5":"3.50"},{"1":"6.490417","2":"0.6407205","3":"5.028690","4":"20","5":"2.75"},{"1":"6.552670","2":"0.6335237","3":"5.031768","4":"24","5":"2.25"},{"1":"6.614680","2":"0.6246989","3":"5.053056","4":"32","5":"1.75"},{"1":"6.669754","2":"0.6168796","3":"5.106667","4":"37","5":"1.50"},{"1":"6.701178","2":"0.6134223","3":"5.185768","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTk5GTkVNUzlOZDFOR1YyTXpRbmx1Vm5WT1ptVXhiRTFqU2tJNUsxaFFSRkkyU2tkRU5VWXZSbWM1U0hwVWVtaEpSMkZqZEcxS1EyNDNVMEZXTVhsRGMzVXJaV05uTVZGdU1EWnVTRXhhT0dOd1VGbGFZbFJqZG1aUlFYcDRMemQ0TWpoTlpWWlNXRlEzU2k4d2NrVjRiSFo0VG13dk1sUlViVFF6TDFVMk4yRlFNbXc1T0hZNWRuVlpWRGxGTURnM056VlRXbFYyV2xCb1RHcE9jRmczVDNSdUx6aFJhV2t2SzA0NVV5czRaV0kyYkU0cmVFaHVRak5UVFhGS04xQXhZMlp2U0VJMVJsbHBZbE5LY1hsSlkyaElPWFZwVHpONlJGaE5VVVZrTVZKdVRrZDVlVEJJUlZVelZ5OHJWM1IxUW5oSE4zZzNPU3QyUVhoNFJVMXNOamxJTDFkcmFHdFBTVzR6Tm05c1RVWmhiMFp0T0VsTVRXZG1iMUpHUTI5RFVVTjNRM2hDU2tGeVFVUkZjV3REYzBFM1kxQjRRVTFEUWpGRmIzcFJUMnd5WVVFd1JUUlRNaTkzVDJ4bU1FUndUSGQ0VVdkQ1RFRnlTRzFLZFdGdVJsVkZkRnB2V1VselVXSTNRbkpzUVRKU01VSjRXVmRzYVZWWGIwdHNUUzl6Tm5kcFZGbHphM1JMWVhGRmMzSnJlWGQ0UzB4cGRWQkNTWEZuTW1OQ1lteHNLM1pDWWtGR05XeGhhMEkwWnpSUFpFdGphelY1VVZkM05YZERSU3RTUzFOVGVFb3hSWE55UVhWdlNEaDJObWhoVjBoUVRIbHFTbnBOT0VSaGJVbERTbEpLVDJGQlFYbFJha2Q1VVZsNFJqQkNRbXRrVGtOQmFGRlRWVXgzUkc1Sk1uTlJTMDB3UkhWVWNFWk9lbTFxVGtNNVlqRTVRVlZVV2pZMVNVTTRaSGxVTkVkeFR6aFpiMXBGU2xrM1RrTnVUWG93U0RaeFpFVjRXalJ4WTJ0YUsxWkJNbGN5Y0dWbGJWcGxTMmw2UVRCcVRGUTVZMjk2VlRCdmVWbEhSVUZGYzJoSmVsVjZVRXRKUlVaV1ZUVnBWVzF2VDNwRFJYQnhWMVpSU21nNGQzSk5Sa0p5Vm1SUmJFcHJTRlU0TUVaR1F6TlhTemhyZGxOWlVuQTBWWEpQZWpSSFNtZEZUMVkwVWpoQk5tRktLMVJhVlVSQlFVRTlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFw2LjcyNjM2N1xcLFxcMlxcOlxcMC42MjI3NzM4XFwsXFwzXFw6XFw1LjI3OTQwNlxcLFxcNFxcOlxcNVxcLFxcNVxcOlxcMTAuNTBcXH0se1xcMVxcOlxcNi41MzY0OTVcXCxcXDJcXDpcXDAuNjQyMTcwNlxcLFxcM1xcOlxcNS4wOTA5MTNcXCxcXDRcXDpcXDEwXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDYuNDcwNjQ4XFwsXFwyXFw6XFwwLjY0Njg0MTRcXCxcXDNcXDpcXDQuOTkzODM3XFwsXFw0XFw6XFwxNlxcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFw2LjQ5NzE5OVxcLFxcMlxcOlxcMC42NDEzNDQ1XFwsXFwzXFw6XFw1LjAyMTIxMVxcLFxcNFxcOlxcMjBcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcNi41NTAxOTZcXCxcXDJcXDpcXDAuNjMzOTQwOFxcLFxcM1xcOlxcNS4wNzE0MzNcXCxcXDRcXDpcXDI0XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDYuNTkyMjg1XFwsXFwyXFw6XFwwLjYyNzIwMjZcXCxcXDNcXDpcXDUuMDYxNDE3XFwsXFw0XFw6XFwzMlxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFw2LjYzMzgwMFxcLFxcMlxcOlxcMC42MjIwNzkxXFwsXFwzXFw6XFw1LjEwNDM4MlxcLFxcNFxcOlxcMzdcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcNi42ODU3NDBcXCxcXDJcXDpcXDAuNjE1NTM5M1xcLFxcM1xcOlxcNS4xMzg4NTFcXCxcXDRcXDpcXDQ0XFwsXFw1XFw6XFwxLjI1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbOF19LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNNFNEMS9Nd1NGV2MzQnluVnVOZmUxbE1jSkI5K1hQRFI2SkdENUYvRmc5SHpUemhJR2FjdG1KQ243U0FWMXlDc3UrZWNnMVFuMDZuSExaOGNwUFlaYlRjdmZRQXp4Lzd4MjhNZVZSWFQ3Si8wckV4bHZ4TmwvMlRUbTQzL1U2N2FQMmw5OHY5dnVZVDlFMDg3NzVTWlV2WlBoTGpOcFg3T3RuLzhRaWkvK045Uys4ZWI2bE4reEhuQjNTTXFKN1AxY2ZvSEI1RllpYlNKcXlJY2hIOXVpTzN6RFhNUUVkMVJuTkd5eTBIRVUzVy8rV3R1QnhHN3g3OSt2QXh4RU1sNjlIL1draGtPSW4zNm9sTUZhb0ZtOElMTWdmb1JGQ29DUUN3Q3hCSkFyQURFcWtDc0E3Y1B4QU1DQjFFb3pRT2wyYUEwRTRTMi93T2xmMERwTHd4UWdCTEFySG1KdWFuRlVFdFpvWUlzUWI3QnJsQTJSMUJ4WVdsaVVXb0tsTS9zNndpVFlza3RLYXFFc3JreXd4S0xpdVBCSXFnMmNCYmxsK3ZCYkFGNWxha0I0ZzRPZEtjazV5UVd3NXdDRStSS1NTeEoxRXNyQXVvSDh2NmhhV0hQTHlqSnpNOERhbUlDSlJKT2FBQXlRakd5UVl4RjBCQmtkTkNBaFFTVUx3RG5JMnNRS00wRHVUcEZOem1qTkM5YjE5QVVUWjY1SUM4ZHlUNEdxTzhZb1pFSlk3TkNuTXowSDZxZEV4WjRxY2taK1ZBMlcycGVlbVplS2l6QTBqTFQ5Y296VTBveVlHRUFFc2hJelV6UEtJRUZWVTVpVW1vT3pDRXBxV1ZRSmg4d3JNRkJyVmRRbEprSFU4MEZGQzNXSzhrdlNZUnA0VXJPejRHSmdFT1Y0UjhBNmFKK1RaVURBQUE9In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\6.726367\,\2\:\0.6227738\,\3\:\5.279406\,\4\:\5\,\5\:\10.50\},{\1\:\6.536495\,\2\:\0.6421706\,\3\:\5.090913\,\4\:\10\,\5\:\5.25\},{\1\:\6.470648\,\2\:\0.6468414\,\3\:\4.993837\,\4\:\16\,\5\:\3.50\},{\1\:\6.497199\,\2\:\0.6413445\,\3\:\5.021211\,\4\:\20\,\5\:\2.75\},{\1\:\6.550196\,\2\:\0.6339408\,\3\:\5.071433\,\4\:\24\,\5\:\2.25\},{\1\:\6.592285\,\2\:\0.6272026\,\3\:\5.061417\,\4\:\32\,\5\:\1.75\},{\1\:\6.633800\,\2\:\0.6220791\,\3\:\5.104382\,\4\:\37\,\5\:\1.50\},{\1\:\6.685740\,\2\:\0.6155393\,\3\:\5.138851\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTAwVTBJeFNqTmFObFZaY1V0bmVGUlFObVJqUTNOWk9HTktTamwwU3pNM1pITnpPVUpUYTBndk5UQkpTRXBSWTNBcldqaDFSMlJqZGs5VmFXeEhNakE0U1hSaWFrbEVWMFoxT1hnMFpqZHRSREZKYlROS01YTkxkbk5FVFhOWUx6aE9NbFpXWWpCSFZpOWFVRlpNZHpWSWNETXdRekJ0V0hKTWRsaGhNbm81U21wQmNXRTVRMlpDTDJ0dE1IbHFOMnB1YVRjM1NqbDNUa3RtTkZCa09XOHZkbkoyYnpCa1duWlRabUZRVmpkRU9HMVFOSGhFVHpSbFZWRnVNazgwWXpkTWVuVkpaVWxaYkcxSmFuWmtVa1FyZERaR2NrdFdaVWxuTkdvNVJIVlpSR0ZhVlU5SlozRnpVak5NVm5Ob2VFVklUbnBxWkM5MWRtUjRSRXBYVG1kdGREWklTbEZYVkVaTmRscExTVmRoWjBkaWQyZGpOa0lyUWtsWFMwRkNRMHhCVEVWRlJVTnpRWE5UYjFFMk9FUjBRUzlIUVhkRlJWVlRkazVCWVZSWmIzcFJVMmczWmpsQk5sSTVVU3RuYzBSR1MwRkZUVWQwWlZsdE5YRk5aRkpUVm5GbloxTTFRblp6UTNWVmVsSkdWVmhHYVdGWFNsTmhRWFZWZWl0NmNrTndSbWg1VXpSdmNXOVhlWFY2VEVSRmIzVktOSE5CYVhGRVduaEdLMlZXTmsxR2RFRlliVlp4WjB4cFJFRTVNSEI1VkcxS2VGUkRibmRCVXpWVmFFcE1SWFpZVTJsdlJEWm5Zbmd2WVVaeVdUaDNkRXROZGxCNlowcHhXVkZKYlVWRmVIRkJha1pEVFdKQ1FtcEZWRkZGUjFJd01GbERSVUkxVVhaQksyTm5ZVUpGY25wUlN6VlBNRlV6VDB0Tk0wd3hhbFV3VWxwT2JreHphRXhTTjB0UVFXVnZOMUp0YUd0M2RHbHpSVU5qZWk5WlpIRTFORkZHV0cxd2VWSnFObFY2V21GaGJEVTJXbXgzYjB4elRGUk5aRXd6ZVhwS1UxTkVSbWRaWjBGUmVWVnFVRlJOTUhCblVWcFhWRzFLVTJGQk0wNUpVMjF2V214TmEwaEVSM1IzVlU5elZrWkhXRzEzVmxKNlFWVlhURGxWY25sVGVFcG9WM0pwVXpnelRtZEpkVUpSV21ablNFRkNWa2xQY0dGV1FYZEJRU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCI2LjcxNTIwMVwiLFwiMlwiOlwiMC42MjQ2ODE4XCIsXCIzXCI6XCI1LjI3MzQ2N1wiLFwiNFwiOlwiNVwiLFwiNVwiOlwiMTAuNTBcIn0se1wiMVwiOlwiNi41MTI0OTdcIixcIjJcIjpcIjAuNjQ1OTg1MFwiLFwiM1wiOlwiNS4wNzE2MTlcIixcIjRcIjpcIjEwXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjYuNDc1MzA1XCIsXCIyXCI6XCIwLjY0NTkzMDZcIixcIjNcIjpcIjQuOTk4NzIwXCIsXCI0XCI6XCIxNlwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCI2LjUzMTQzM1wiLFwiMlwiOlwiMC42MzY4ODM5XCIsXCIzXCI6XCI1LjA2MjIyNVwiLFwiNFwiOlwiMjBcIixcIjVcIjpcIjIuNzVcIn0se1wiMVwiOlwiNi41MzEyMjRcIixcIjJcIjpcIjAuNjM2MTI1OVwiLFwiM1wiOlwiNS4wMzEyNzJcIixcIjRcIjpcIjI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjYuNjAwNzc5XCIsXCIyXCI6XCIwLjYyNjQwNDBcIixcIjNcIjpcIjUuMDYyNzcyXCIsXCI0XCI6XCIzMlwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCI2LjY0NDU3NVwiLFwiMlwiOlwiMC42MjA4MDUyXCIsXCIzXCI6XCI1LjEwMjE3OVwiLFwiNFwiOlwiMzdcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiNi42OTYyMjBcIixcIjJcIjpcIjAuNjE0MjYwMlwiLFwiM1wiOlwiNS4xNjQ2OTZcIixcIjRcIjpcIjQ0XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbOF19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE00U0IxSjNaNlVZcUtneFRQNmRjQ3NZOGNKSjl0SzM3ZHNzOUJTa0gvNTBJSEpRY3ArWjh1R2Rjdk9VaWxHMjA4SXRiaklEV0Z1OXg0ZjdtRDFJbTNKMXNLdnNETXNYLzhOMlZWYjBHVi9aUFZMdzVIcDMwQzBtWHJMdlhhMno5SmpBcWE5Q2ZCL2ttMHlqN2puaTc3Sjl3TktmNFBkOW8vdnJ2bzBkWnZTZmFQVjdEOG1QNHhETzRlVVFuMk80YzdMenVJZUlZbG1JanZkUkQrdDZGcktWZUlnNGo5RHVZRGFaVU9JZ3FzUjNMVnNoeEVITnpqZC91dmR4REpXTmdtdDZISlFXVEZNdlpLSVdhZ0did2djNkIrQklXS0FCQ0xBTEVFRUNzQXNTb1E2OER0QS9HQXdFRVVTdk5BYVRZb3pRU2g3ZjlBNlI5UStnc0RGS0FFTUd0ZVltNXFNZFJTVnFnZ1M1QnZzQ3VVelJGVVhGaWFXSlNhQXVVeit6ckNwRmh5UzRvcW9XeXV6TERFb3VKNHNBaXFEWnhGK2VWNk1GdEFYbVZxZ0xpREE5MHB5VG1KeFRDbndBUzVVaEpMRXZYU2lvRDZnYngvYUZyWTh3dEtNdlB6Z0pxWVFJbUVFeHFBakZDTWJCQmpFVFFFR1IwMFlDRUI1UXZBK2NnYUJFcnpRSzVPMFUzT0tNM0wxalUwUlpObkxzaExSN0tQQWVvN1JtaGt3dGlzRUNjei9ZZHE1NFFGWG1weVJqNlV6WmFhbDU2Wmx3b0xzTFRNZEwzeXpKU1NERmdZZ0FReVVqUFRNMHBnUVpXVG1KU2FBM05JU21vWmxNa0hER3R3VU9zVkZHWG13VlJ6QVVXTDlVcnlTeEpoV3JpUzgzTmdJdUJRWmZnSEFCVklPcGFWQXdBQSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"6.715201","2":"0.6246818","3":"5.273467","4":"5","5":"10.50"},{"1":"6.512497","2":"0.6459850","3":"5.071619","4":"10","5":"5.25"},{"1":"6.475305","2":"0.6459306","3":"4.998720","4":"16","5":"3.50"},{"1":"6.531433","2":"0.6368839","3":"5.062225","4":"20","5":"2.75"},{"1":"6.531224","2":"0.6361259","3":"5.031272","4":"24","5":"2.25"},{"1":"6.600779","2":"0.6264040","3":"5.062772","4":"32","5":"1.75"},{"1":"6.644575","2":"0.6208052","3":"5.102179","4":"37","5":"1.50"},{"1":"6.696220","2":"0.6142602","3":"5.164696","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTk5GTkVNVFZQTDI1V09HRlRSR3hMZVZGV1RXRjFUbU0xVTBRM2JHNVFNWGgwV1RKRVJrbFFjWGxaWkZwblp6VlRiV3RGVEZoMWFFNWpjRU5MUzFGcFdHMUVTRnBSVjNGcFUyeHBWQzlwWTBoeFVqSTJZeXRXWVZBNFJFMXpXQzg0WTFrNVUzUmhSMm92V2xCS1ZqRnJNemxITm5kbU4wa3JjazFXU3l0S1lqbHJORFpoWWpGMldFdGtheTlEVkRabU5HaDNVbGt2T1VWU1JVSnhXalZYUlM5bFR6ZE5lRnBZTW1KcVdWQTVOMVk1ZFZwd1ltaEVZMUJoUzB0TU1WcHNUM3BaTm1sSlVVaHVRM1EyZUdWRlp5OUhPVXgzTjJKd1VGRTBhVWxzUzBONlRtTlBUelJxV1V4UVYwMWlkRGRvU1VkS1lYcHRkM1pqYzFKQ1NrOWtkR05oWlVWdVdVNUpkemRWWm1saVZVWlJSRTQwVVdWYVFTOVJaMHRHVVVWblJtZEdhVU5UUWxkQlIwcFdTVTVoUWpKM1ptbEJXVWRFUzBwVWJXZGtTbk5WU205S1VYUjJMMmRrU1M5dlVGRllRbWxvUVVOWFJGZDJUVlJqTVVkTGIzQmhlRkZSV2xsbk16SkNXRXRLYzJweFRHbDNUa3hGYjA1UldFdGFMMW94YUVWdGVEVktXVlZXVlV4YVdFcHNhR2xWV0VZNFYwRlNWa0p6TkdrdlRFdzVWME15WjB4NlN6RkJRbmhDZDJVMlZUVktla1Z2ZEdoVWIwVktZM0ZWYTJ4cFZIRndVbFZDT1ZGT05TODVRekJ6VDJOWWJFZFViVFYzUlRGTldVVlRRMU5qTUVGQ2JXaEhUbXRuZUdsS2IwTkVTVFpoVFVKRFFYTnZXR2RRVDFKT1VXbFZOVzlHWTI1aFMySnVSa2RoYkRZeGNtRkpiMjE2TVhsUmJEUTFhMGgzVUZWa05IcFJlVWxUZUZkVFJrOWFkbTlRTVdNMFNrTTNlbFUxU1hnNFMwcHpkRTVUT0RsTmVUaFdSbTFDY0cxbGJEWTFXbXR3U2xKdGQwMUJRVXBhUzFKdGNHMWxWWGRKU1hGS2VrVndUbEZtYld0S1ZGVk5hV2xVUkhocVZ6UkxSRmRMZVdwTGVrbFBjRFZuUzB0R2RYVldOVXBqYTNkeVVuZEtaV1p1ZDBWVVFXOWpjbmRFZDBObGRWSlZOR3hSVFVGQlFUMDlJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFw2LjcyMzYyNVxcLFxcMlxcOlxcMC42MjMyNTg3XFwsXFwzXFw6XFw1LjI4MzExNFxcLFxcNFxcOlxcNVxcLFxcNVxcOlxcMTAuNTBcXH0se1xcMVxcOlxcNi41Mjg2MzVcXCxcXDJcXDpcXDAuNjQzMDQ1OVxcLFxcM1xcOlxcNS4wODUyNjlcXCxcXDRcXDpcXDEwXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDYuNDczNjY5XFwsXFwyXFw6XFwwLjY0NjQwMzZcXCxcXDNcXDpcXDQuOTk4NzM1XFwsXFw0XFw6XFwxNlxcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFw2LjUwMDE0NFxcLFxcMlxcOlxcMC42NDE2NjExXFwsXFwzXFw6XFw1LjAxOTYzMVxcLFxcNFxcOlxcMjBcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcNi41NDAzNTRcXCxcXDJcXDpcXDAuNjM1MjMwN1xcLFxcM1xcOlxcNS4wNTkyMjRcXCxcXDRcXDpcXDI0XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDYuNTkwMjcyXFwsXFwyXFw6XFwwLjYyNzQ0OTFcXCxcXDNcXDpcXDUuMDUyMjEyXFwsXFw0XFw6XFwzMlxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFw2LjY0MTc0MFxcLFxcMlxcOlxcMC42MjA4MDAzXFwsXFwzXFw6XFw1LjEwNjM3NVxcLFxcNFxcOlxcMzdcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcNi42Nzk4NjJcXCxcXDJcXDpcXDAuNjE2NTE5NFxcLFxcM1xcOlxcNS4xMjU4MjBcXCxcXDRcXDpcXDQ0XFwsXFw1XFw6XFwxLjI1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbOF19LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNNFNEMTVPL25WOGFTRGxLeVFWTWF1TmM1U0Q3bG5QMXh0WTJERklQcXlZZFpnZzVTbWtFTFh1aE5jcENLS1FpWG1ESFpRV3FpU2xpVC9pY0hxUjI2YytWYVA4RE1zWC84Y1k5U3RhR2ovWlBKVjFrMzlHNndmN0krck1WSytKYjlrNDZhYjF2WEtkay9DVDZmNGh3UlkvOUVSRUJxWjVXRS9lTzdNeFpYMmJqWVA5N1Y5dVpwYmhEY1BhS0tMMVpsT3pZNmlJUUhuQ3Q2eGVFZy9HOUx3N2JwUFE0aUlsS0N6TmNPTzRqWUxQV01idDdoSUdKYXptd3Zjc1JCSk9kdGNhZUVuWU5JdzdVZmliVUZRRE40UWVaQS9RZ0tGUUVnRmdGaUNTQldBR0pWSU5hQjJ3ZmlBWUdES0pUbWdkSnNVSm9KUXR2L2dkSS9vUFFYQmloQUNXRFd2TVRjMUdLb3BheFFRWllnMzJCWEtKc2pxTGl3TkxFb05RWEtaL1oxaEVteDVKWVVWVUxaWEpsaGlVWEY4V0FSVkJzNGkvTEw5V0MyZ0x6SzFBQnhCd2U2VTVKekVvdGhUb0VKY3FVa2xpVHFwUlVCOVFONS85QzBzT2NYbEdUbTV3RTFNWUVTQ1NjMEFCbWhHTmtneGlKb0NESTZhTUJDQXNvWGdQT1JOUWlVNW9GY25hS2JuRkdhbDYxcmFJb216MXlRbDQ1a0h3UFVkNHpReUlTeFdTRk9adm9QMWM0SkM3elU1SXg4S0pzdE5TODlNeThWRm1CcG1lbDY1WmtwSlJtd01BQUpaS1JtcG1lVXdJSXFKekVwTlFmbWtKVFVNaWlURHhqVzRLRFdLeWpLeklPcDVnS0tGdXVWNUpja3dyUndKZWZud0VUQW9jcndEd0NldVJVNGxRTUFBQT09In0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\6.723625\,\2\:\0.6232587\,\3\:\5.283114\,\4\:\5\,\5\:\10.50\},{\1\:\6.528635\,\2\:\0.6430459\,\3\:\5.085269\,\4\:\10\,\5\:\5.25\},{\1\:\6.473669\,\2\:\0.6464036\,\3\:\4.998735\,\4\:\16\,\5\:\3.50\},{\1\:\6.500144\,\2\:\0.6416611\,\3\:\5.019631\,\4\:\20\,\5\:\2.75\},{\1\:\6.540354\,\2\:\0.6352307\,\3\:\5.059224\,\4\:\24\,\5\:\2.25\},{\1\:\6.590272\,\2\:\0.6274491\,\3\:\5.052212\,\4\:\32\,\5\:\1.75\},{\1\:\6.641740\,\2\:\0.6208003\,\3\:\5.106375\,\4\:\37\,\5\:\1.50\},{\1\:\6.679862\,\2\:\0.6165194\,\3\:\5.125820\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTAwVTBReEwwMTNVMFpYWXpOQ2VXNVdkVTVtWlRGc1RXTktRamtyV0ZCRVVqWktSMFExUmk5R1p6bEllbFI2YUVsSFlXTjBiVXBEYmpkVFFWWXhlVU56ZFN0bFkyY3hVVzR3Tm01SVRGbzRZM0JRV1ZwaVZHTjJabEZCZW5ndk4zZ3lPRTFsVmxKWVZEZEtMekJ5Ulhoc2RuaE9iQzh5VkZSdE5ETXZWVFkzWVZBeWJEazRkamwyZFZsVU9VVXdPRGMzTlZOYVZYWmFVR2hNYWs1d1dEZFBkRzR2T0ZGcGFTOHJUamxUS3pobFlqWnNUaXQ0U0c1Q00xTk5jVW8zVURGalptOUlRalZHV1dsaVUwcHhlVWxqYUVnNWRXbFBNM3BFV0UxUlJXUXhVbTVPUjNsNU1FaEZWVE5YTHl0WGRIVkNlRWMzZURjNUszWkJlSGhGVFd3Mk9VZ3ZWMnRvYTA5SmJqTTJiMnhOUm1GdlJtMDRTVXhOWjJadlVrWkRiME5SUTNkRGVFSktRWEpCUkVWeGEwTnpRVGRqVUhoQlRVTkNNVVZ2ZWxGUGJESmhRVEJGTkZNeUwzZFBiR1l3UkhCTWQzaFJaMEpNUVhKSWJVcDFZVzVHVlVWMFdtOVpTWE5SWWpkQ2NteEJNbEl4UW5oWlYyeHBWVmR2UzJ4TkwzTTJkMmxVV1hOcmRFdGhjVVZ6Y210NWQzaExUR2wxVUVKSmNXY3lZMEppYkd3cmRrSmlRVVkxYkdGclFqUm5ORTlrUzJOck5YbFJWM2MxZDBORksxSkxVMU40U2pGRmMzSkJkVzlJT0hZMmFHRlhTRkJNZVdwS2VrMDRSR0Z0U1VOS1VrcFBZVUZCZVZGcVIzbFJXWGhHTUVKQ2EyUk9RMEZvVVZOVlRIZEVia2t5YzFGTFRUQkVkVlJ3Ums1NmJXcE9RemxpTVRsQlZWUmFOalZKUXpoa2VWUTBSM0ZQT0ZsdldrVktXVGRPUTI1TmVqQklObkZrUlhoYU5IRmphMW9yVmtFeVZ6SndaV1Z0V21WTGFYcEJNR3BNVkRsamIzcFZNRzk1V1VkRlFVVnphRWw2VlhwUVMwbEZSbFpWTldsVmJXOVBla05GY0hGWFZsRkthRGgzY2sxR1FuSldaRkZzU210SVZUZ3dSa1pETTFkTE9HdDJVMWxTY0RSVmNrOTZORWRLWjBWUFZqUlNPRUUyWVVvclZGcFZSRUZCUVQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjYuNzI2MzY3XCIsXCIyXCI6XCIwLjYyMjc3MzhcIixcIjNcIjpcIjUuMjc5NDA2XCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCI2LjUzNjQ5NVwiLFwiMlwiOlwiMC42NDIxNzA2XCIsXCIzXCI6XCI1LjA5MDkxM1wiLFwiNFwiOlwiMTBcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiNi40NzA2NDhcIixcIjJcIjpcIjAuNjQ2ODQxNFwiLFwiM1wiOlwiNC45OTM4MzdcIixcIjRcIjpcIjE2XCIsXCI1XCI6XCIzLjUwXCJ9LHtcIjFcIjpcIjYuNDk3MTk5XCIsXCIyXCI6XCIwLjY0MTM0NDVcIixcIjNcIjpcIjUuMDIxMjExXCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCI2LjU1MDE5NlwiLFwiMlwiOlwiMC42MzM5NDA4XCIsXCIzXCI6XCI1LjA3MTQzM1wiLFwiNFwiOlwiMjRcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiNi41OTIyODVcIixcIjJcIjpcIjAuNjI3MjAyNlwiLFwiM1wiOlwiNS4wNjE0MTdcIixcIjRcIjpcIjMyXCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjYuNjMzODAwXCIsXCIyXCI6XCIwLjYyMjA3OTFcIixcIjNcIjpcIjUuMTA0MzgyXCIsXCI0XCI6XCIzN1wiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCI2LjY4NTc0MFwiLFwiMlwiOlwiMC42MTU1MzkzXCIsXCIzXCI6XCI1LjEzODg1MVwiLFwiNFwiOlwiNDRcIixcIjVcIjpcIjEuMjVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls4XX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE00U0QxL013U0ZXYzNCeW5WdU5mZTFsTWNKQjkrWFBEUjZKR0Q1Ri9GZzlIelR6aElHYWN0bUpDbjdTQVYxeUNzdStlY2cxUW4wNm5ITFo4Y3BQWVpiVGN2ZlFBengvN3gyOE1lVlJYVDdKLzByRXhsdnhObC8yVFRtNDMvVTY3YVAybDk4djl2dVlUOUUwODc3NVNaVXZaUGhMak5wWDdPdG4vOFFpaS8rTjlTKzhlYjZsTit4SG5CM1NNcUo3UDFjZm9IQjVGWWliU0pxeUljaEg5dWlPM3pEWE1RRWQxUm5OR3l5MEhFVTNXLytXdHVCeEc3eDc5K3ZBeHhFTWw2OUgvV2toa09JbjM2b2xNRmFvRm04SUxNZ2ZvUkZDb0NRQ3dDeEJKQXJBREVxa0NzQTdjUHhBTUNCMUVvelFPbDJhQTBFNFMyL3dPbGYwRHBMd3hRZ0JMQXJIbUp1YW5GVUV0Wm9ZSXNRYjdCcmxBMlIxQnhZV2xpVVdvS2xNL3M2d2lUWXNrdEthcUVzcmt5d3hLTGl1UEJJcWcyY0JibGwrdkJiQUY1bGFrQjRnNE9kS2NrNXlRV3c1d0NFK1JLU1N4SjFFc3JBdW9IOHY2aGFXSFBMeWpKek04RGFtSUNKUkpPYUFBeVFqR3lRWXhGMEJCa2ROQ0FoUVNVTHdEbkkyc1FLTTBEdVRwRk56bWpOQzliMTlBVVRaNjVJQzhkeVQ0R3FPOFlvWkVKWTdOQ25NejBINnFkRXhaNHFja1orVkEyVzJwZWVtWmVLaXpBMGpMVDljb3pVMG95WUdFQUVzaEl6VXpQS0lFRlZVNWlVbW9PekNFcHFXVlFKaDh3ck1GQnJWZFFsSmtIVTgwRkZDM1dLOGt2U1lScDRVck96NEdKZ0VPVjRSOEE2YUorVFpVREFBQT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"6.726367","2":"0.6227738","3":"5.279406","4":"5","5":"10.50"},{"1":"6.536495","2":"0.6421706","3":"5.090913","4":"10","5":"5.25"},{"1":"6.470648","2":"0.6468414","3":"4.993837","4":"16","5":"3.50"},{"1":"6.497199","2":"0.6413445","3":"5.021211","4":"20","5":"2.75"},{"1":"6.550196","2":"0.6339408","3":"5.071433","4":"24","5":"2.25"},{"1":"6.592285","2":"0.6272026","3":"5.061417","4":"32","5":"1.75"},{"1":"6.633800","2":"0.6220791","3":"5.104382","4":"37","5":"1.50"},{"1":"6.685740","2":"0.6155393","3":"5.138851","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTk5GTkNNVGwzZFdwa2VTdGlaelZTTURGemJtTTFVVzlQYTJndk5UZENVVmQ0YW14SlRXRnRabXB0Vm5OaldrTlRkUzlETUM5VmJWVm5NVk52TTA5WE0xb3JPRGRUU0ZWMmRHcFlTbVpQVVdka1prSlBMMlJtVEhFeVJHMHlSQzhyWlZkYWNXOHlTMHd2V2swMVpqVjJkWHBPWlhobU4weGpTbU5TWTAxamFpdFRaSE5XWXl0emMxWXZjMjQ0VkN0YWNHNXFkSE16T0dsdVluQTBiVEZ0Tnk5bFRraHVkekoyVEVSMGJDOHphRVJZVUc1alFtRXZhRGRvUmxaWFQybHRibk5FY0VsQ1NUZHdVMHd4YTI5eFJFTkxkbUV4V21kTUwzaDRSVkpNVDA5TWRqZGtORk5EYVdzemFsWTRPVmxEUW5oRmVtSTJWV0poVlVSNE9VNVFVRUUxVjI1UGIyb3dWMjByYzNaeE9FZE9TVTFZV2tFM1ZXbzJRbEZGVVVKcFJWTkRWMEZIU1VaSlJsbEdXV2d5TkdaVFFXVkZSR2xKVVcxclpVdE5NRWR3V210bmRGQXdaa3RRTUVSVGJqbG9aMEZMVlVGSFlrNVRPSGhPVEZsYVlYbG5iMVphUVc1NVJGaGhSbk5xYlVOcFozUk1SVFIwVTFVMlFqaGFiRGxJYlVKU1RHSnJiRkpLV2xST2JGSnRWMWRHVVdORWVGcENkRmxIZWt0TU9XTkVNbGxNZVV0MFRVUlNRak5qUzBFM1NsUnJibk5TYW0xR1NtZG5WakJ3YVZOaFNtVlhhRVpSVURWRU0wUXdNRXhsTXpWQ1UxZGFLMGhzUVZSRmVXbFNZMFZKUkd0Q1IwdHJVVEZwVEVsTFIwbExUMFJDYVhkcmIwaDNRazlDT1Zwbk1FSndTSE5xVmt0aWNrcEhZVlkxTW1KeFIzQnRhbmw2UVZZMU5sVnFNazFWUWpsNGQybE9WRUpwWWtabFNtdHdkamxSTjFwNWQzZEZkRTU2YzJsSWMzUnNVemc1U1hvNE1VcG9RVnBoVjIxaE5WaHVjR3hUYTJkRlRFRTFRa0ZTYlhCdFpXdFpTa3hMYUhsRmNFNVRZekpCVDFOVmEzUm5la3cxWjBkRlRrUnRjVGxuY1V4TlVFcG9jVXh4UW05elZqVktabXRyYVZSQmRGaGpialJQVkVGUlkzRm5laTlCUTJaSGJEQmhWa0YzUVVFaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDYuNzE2NzUxXFwsXFwyXFw6XFwwLjYyNDI0MzFcXCxcXDNcXDpcXDUuMjgxODY1XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFw2LjUyNjc3NVxcLFxcMlxcOlxcMC42NDQxNjM5XFwsXFwzXFw6XFw1LjA5MTM4N1xcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcNi40ODU0MDZcXCxcXDJcXDpcXDAuNjQ1NDE4M1xcLFxcM1xcOlxcNS4wMDUwMzFcXCxcXDRcXDpcXDE2XFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDYuNTAyMTA1XFwsXFwyXFw6XFwwLjY0MTQ1ODZcXCxcXDNcXDpcXDUuMDIwOTE1XFwsXFw0XFw6XFwyMFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFw2LjUzMDA5NFxcLFxcMlxcOlxcMC42MzY3MTU0XFwsXFwzXFw6XFw1LjA0MzM0MlxcLFxcNFxcOlxcMjRcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcNi41ODMxMjVcXCxcXDJcXDpcXDAuNjI4MzQ0NFxcLFxcM1xcOlxcNS4wNTMwMjFcXCxcXDRcXDpcXDMyXFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDYuNjM2MzY1XFwsXFwyXFw6XFwwLjYyMTQ1MzlcXCxcXDNcXDpcXDUuMTAxMzY0XFwsXFw0XFw6XFwzN1xcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFw2LjY4OTMxOFxcLFxcMlxcOlxcMC42MTUyNzk0XFwsXFwzXFw6XFw1LjEzNzkyM1xcLFxcNFxcOlxcNDRcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNNFNCMTl3dWpkeStiZzVSMDFzbmM1UW9Pa2gvNTdCUVd4amxJTWFtZmptVnNjWkNTdS9DMC9VbVVnMVNvM09XM1orODdTSFV2dGpYSmZPUWdkZkJPL2RmTHEyRG0yRC8rZVdacW8yS0wvWk01ZjV2dXpOZXhmN0xjSmNSY01jaitTZHNWYytzc1Yvc244VCtacG5qdHMzOGluYnA0bTFtNy9lTkhudzJ2TER0bC8zaERYUG5jQmEvaDdoRlZXT2ltbnNEcElCSTdwU0wxa29xRENLdmExWmdML3h4RVJMT09MdjdkNFNDaWszalY4OVlDQnhFemI2VWJhVUR4OU5QUEE1V25Pb2owV20rc3ZxOEdOSU1YWkE3VWo2QlFFUUJpRVNDV0FHSUZJRllGWWgyNGZTQWVFRGlJUW1rZUtNMEdwWmtndFAwZktQMERTbjloZ0FLVUFHYk5TOHhOTFlaYXlnb1ZaQW55RFhhRnNqbUNpZ3RMRTR0U1U2QjhabDlIbUJSTGJrbFJKWlRObFJtV1dGUWNEeFpCdFlHektMOWNEMllMeUt0TURSQjNjS0E3SlRrbnNSam1GSmdnVjBwaVNhSmVXaEZRUDVEM0QwMExlMzVCU1daK0hsQVRFeWlSY0VJRGtCR0trUTFpTElLR0lLT0RCaXdrb0h3Qk9COVpnMEJwSHNqVktickpHYVY1MmJxR3Btanl6QVY1NlVqMk1VQjl4d2lOVEJpYkZlSmtwdjlRN1p5d3dFdE56c2lIc3RsUzg5SXo4MUpoQVphV21hNVhucGxTa2dFTEE1QkFSbXBtZWtZSkxLaHlFcE5TYzJBT1NVa3Rnekw1Z0dFTkRtcTlncUxNUEpocUxxQm9zVjVKZmtraVRBdFhjbjRPVEFRY3Fnei9BQ2ZHbDBhVkF3QUEifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\6.716751\,\2\:\0.6242431\,\3\:\5.281865\,\4\:\5\,\5\:\10.50\},{\1\:\6.526775\,\2\:\0.6441639\,\3\:\5.091387\,\4\:\10\,\5\:\5.25\},{\1\:\6.485406\,\2\:\0.6454183\,\3\:\5.005031\,\4\:\16\,\5\:\3.50\},{\1\:\6.502105\,\2\:\0.6414586\,\3\:\5.020915\,\4\:\20\,\5\:\2.75\},{\1\:\6.530094\,\2\:\0.6367154\,\3\:\5.043342\,\4\:\24\,\5\:\2.25\},{\1\:\6.583125\,\2\:\0.6283444\,\3\:\5.053021\,\4\:\32\,\5\:\1.75\},{\1\:\6.636365\,\2\:\0.6214539\,\3\:\5.101364\,\4\:\37\,\5\:\1.50\},{\1\:\6.689318\,\2\:\0.6152794\,\3\:\5.137923\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTAwVTBReE5VOHZibFk0WVZORWJFdDVVVlpOWVhWT1l6VlRSRGRzYmxBeGVIUlpNa1JHU1ZCeGVWbGtXbWRuTlZOdGEwVk1XSFZvVG1Od1EwdExVV2xZYlVSSVdsRlhjV2xUYkdsVUwybGpTSEZTTWpaaksxWmhVRGhFVFhOWUx6aGpXVGxUZEdGSGFpOWFVRXBXTVdzek9VYzJkMlkzU1N0eVRWWkxLMHBpT1dzME5tRmlNWFpZUzJSckwwTlVObVkwYUhkU1dTODVSVkpGUW5GYU5WZEZMMlZQTjAxNFdsZ3lZbXBaVURrM1ZqbDFXbkJpYUVSalVHRkxTMHd4V214UGVsazJhVWxSU0c1RGREWjRaVVZuTDBjNVRIYzNZbkJRVVRScFNXeExRM3BPWTA5UE5HcFpURkJYVFdKME4yaEpSMHBoZW0xM2RtTnpVa0pLVDJSMFkyRmxSVzVaVGtsM04xVm1hV0pWUmxGRVRqUlJaVnBCTDFGblMwWlJSV2RHWjBacFExTkNWMEZIU2xaSlRtRkNNbmRtYVVGWlIwUkxTbFJ0WjJSS2MxVktiMHBSZEhZdloyUkpMMjlRVVZoQ2FXaEJRMWRFVjNaTlZHTXhSMHR2Y0dGNFVWRmFXV2N6TWtKWVMwcHphbkZNYVhkT1RFVnZUbEZZUzFvdldqRm9SVzE0TlVwWlZWWlZURnBZU214b2FWVllSamhYUVZKV1FuTTBhUzlNVERsWFF6Sm5USHBMTVVGQ2VFSjNaVFpWTlVwNlJXOTBhRlJ2UlVwamNWVnJiR2xVY1hCU1ZVSTVVVTQxTHpsRE1ITlBZMWhzUjFSdE5YZEZNVTFaUlZORFUyTXdRVUp0YUVkT2EyZDRhVXB2UTBSSk5tRk5Ra05CYzI5WVoxQlBVazVSYVZVMWIwWmpibUZMWW01R1IyRnNOakZ5WVVsdmJYb3hlVkZzTkRWclNIZFFWV1EwZWxGNVNWTjRWMU5HVDFwMmIxQXhZelJLUXpkNlZUVkplRGhMU25OMFRsTTRPVTE1T0ZaR2JVSndiV1ZzTmpWYWEzQktVbTEzVFVGQlNscExVbTF3YldWVmQwbEpjVXA2UlhCT1VXWnRhMHBVVlUxcGFWUkVlR3BYTkV0RVYwdDVha3Q2U1U5d05XZExTMFoxZFZZMVNtTnJkM0pTZDBwbFptNTNSVlJCYjJOeWQwUjNRMlYxVWxVMGJGRk5RVUZCUFQwaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjYuNzIzNjI1XCIsXCIyXCI6XCIwLjYyMzI1ODdcIixcIjNcIjpcIjUuMjgzMTE0XCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCI2LjUyODYzNVwiLFwiMlwiOlwiMC42NDMwNDU5XCIsXCIzXCI6XCI1LjA4NTI2OVwiLFwiNFwiOlwiMTBcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiNi40NzM2NjlcIixcIjJcIjpcIjAuNjQ2NDAzNlwiLFwiM1wiOlwiNC45OTg3MzVcIixcIjRcIjpcIjE2XCIsXCI1XCI6XCIzLjUwXCJ9LHtcIjFcIjpcIjYuNTAwMTQ0XCIsXCIyXCI6XCIwLjY0MTY2MTFcIixcIjNcIjpcIjUuMDE5NjMxXCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCI2LjU0MDM1NFwiLFwiMlwiOlwiMC42MzUyMzA3XCIsXCIzXCI6XCI1LjA1OTIyNFwiLFwiNFwiOlwiMjRcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiNi41OTAyNzJcIixcIjJcIjpcIjAuNjI3NDQ5MVwiLFwiM1wiOlwiNS4wNTIyMTJcIixcIjRcIjpcIjMyXCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjYuNjQxNzQwXCIsXCIyXCI6XCIwLjYyMDgwMDNcIixcIjNcIjpcIjUuMTA2Mzc1XCIsXCI0XCI6XCIzN1wiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCI2LjY3OTg2MlwiLFwiMlwiOlwiMC42MTY1MTk0XCIsXCIzXCI6XCI1LjEyNTgyMFwiLFwiNFwiOlwiNDRcIixcIjVcIjpcIjEuMjVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls4XX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE00U0QxNU8vblY4YVNEbEt5UVZNYXVOYzVTRDdsblAxeHRZMkRGSVBxeVlkWmdnNVNta0VMWHVoTmNwQ0tLUWlYbURIWlFXcWlTbGlUL2ljSHFSMjZjK1ZhUDhETXNYLzhjWTlTdGFHai9aUEpWMWszOUc2d2Y3SStyTVZLK0piOWs0NmFiMXZYS2RrL0NUNmY0aHdSWS85RVJFQnFaNVdFL2VPN014WlgyYmpZUDk3Vjl1WnBiaERjUGFLS0wxWmxPelk2aUlRSG5DdDZ4ZUVnL0c5THc3YnBQUTRpSWxLQ3pOY09PNGpZTFBXTWJ0N2hJR0phem13dmNzUkJKT2R0Y2FlRW5ZTkl3N1VmaWJVRlFETjRRZVpBL1FnS0ZRRWdGZ0ZpQ1NCV0FHSlZJTmFCMndmaUFZR0RLSlRtZ2RKc1VKb0pRdHYvZ2RJL29QUVhCaWhBQ1dEV3ZNVGMxR0tvcGF4UVFaWWczMkJYS0pzanFMaXdOTEVvTlFYS1ovWjFoRW14NUpZVVZVTFpYSmxoaVVYRjhXQVJWQnM0aS9MTDlXQzJnTHpLMUFCeEJ3ZTZVNUp6RW90aFRvRUpjcVVrbGlUcXBSVUI5UU41LzlDMHNPY1hsR1RtNXdFMU1ZRVNDU2MwQUJtaEdOa2d4aUpvQ0RJNmFNQkNBc29YZ1BPUk5RaVU1b0ZjbmFLYm5GR2FsNjFyYUlvbXoxeVFsNDVrSHdQVWQ0elF5SVN4V1NGT1p2b1AxYzRKQzd6VTVJeDhLSnN0TlM4OU15OFZGbUJwbWVsNjVaa3BKUm13TUFBSlpLUm1wbWVVd0lJcUp6RXBOUWZta0pUVU1paVREeGpXNEtEV0t5akt6SU9wNWdLS0Z1dVY1SmNrd3JSd0plZm53RVRBb2Nyd0R3Q2V1UlU0bFFNQUFBPT0ifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"6.723625","2":"0.6232587","3":"5.283114","4":"5","5":"10.50"},{"1":"6.528635","2":"0.6430459","3":"5.085269","4":"10","5":"5.25"},{"1":"6.473669","2":"0.6464036","3":"4.998735","4":"16","5":"3.50"},{"1":"6.500144","2":"0.6416611","3":"5.019631","4":"20","5":"2.75"},{"1":"6.540354","2":"0.6352307","3":"5.059224","4":"24","5":"2.25"},{"1":"6.590272","2":"0.6274491","3":"5.052212","4":"32","5":"1.75"},{"1":"6.641740","2":"0.6208003","3":"5.106375","4":"37","5":"1.50"},{"1":"6.679862","2":"0.6165194","3":"5.125820","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTk5GTkNNVGhsVUVVNVZrZFlTR0ZUYTNSVk5DOTFXa3h4U1ZCdVJqbDFORGcyTm1OUGEzUTViVEo0TmpFelQxRm5TbGh1Y0ROQmRHVk5kMlZ3ZVZBcmNqSXZWVk5JUzFSeFdsUTVTMkZMTlhsclJIQnpMekl2VEVjeGJWbFBabHBRTWtnMlltSnVhSEZhTHpscldHMWhRbWh5Y1V3dldsQkdXRzk1UTFKV2RuTnVNSGNyV0cxdUx6UTNTRGxyZVZSU1VHTk1lbTExZVdaVFVEVjZiREZ5ZDNkbU4zaDRNRE5sVEdSV2VUbHZMMWhsVVZsbE9YQmhRM1V3WkZWWWJHTnFlSGxRU1ZGVFZIVjRMM05aY1ZGalQwbHFlbXd6UW5WdWMwUnhTWE5OS3pWWmNrZzJibGxQU1Zsc1dHRm9hR040UkdsS1YweElPVVl3TkhkalVrVkpkU3RoVVhSQk5ISXpZVXN6YlZaVU9FTk9TVTFZV2tFM1ZXbzJRbEZGVVVKcFJWTkRWMEZIU1VaSlJsbEdXV2d5TkdaVFFXVkZSR2xKVVcxclpVdE5NRWR3V210bmRGQXdaa3RRTUVSVGJqbG9aMEZMVlVGSFlrNVRPSGhPVEZsYVlYbG5iMVphUVc1NVJGaGhSbk5xYlVOcFozUk1SVFIwVTFVMlFqaGFiRGxJYlVKU1RHSnJiRkpLV2xST2JGSnRWMWRHVVdORWVGcENkRmxIZWt0TU9XTkVNbGxNZVV0MFRVUlNRak5qUzBFM1NsUnJibk5TYW0xR1NtZG5WakJ3YVZOaFNtVlhhRVpSVURWRU0wUXdNRXhsTXpWQ1UxZGFLMGhzUVZSRmVXbFNZMFZKUkd0Q1IwdHJVVEZwVEVsTFIwbExUMFJDYVhkcmIwaDNRazlDT1Zwbk1FSndTSE5xVmt0aWNrcEhZVlkxTW1KeFIzQnRhbmw2UVZZMU5sVnFNazFWUWpsNGQybE9WRUpwWWtabFNtdHdkamxSTjFwNWQzZEZkRTU2YzJsSWMzUnNVemc1U1hvNE1VcG9RVnBoVjIxaE5WaHVjR3hUYTJkRlRFRTFRa0ZTYlhCdFpXdFpTa3hMYUhsRmNFNVRZekpCVDFOVmEzUm5la3cxWjBkRlRrUnRjVGxuY1V4TlVFcG9jVXh4UW05elZqVktabXRyYVZSQmRGaGpialJQVkVGUlkzRm5laTlCVDFOa1VsUXJWa0YzUVVFaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVxcZmFsc2VcXD5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XFxhcHBsaWNhdGlvbi9qc29uXFw+XG57XFxjb2x1bW5zXFw6W3tcXGxhYmVsXFw6W1xcUk1TRVxcXSxcXG5hbWVcXDpbMV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxSc3F1YXJlZFxcXSxcXG5hbWVcXDpbMl0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxNQUVcXF0sXFxuYW1lXFw6WzNdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcbXRyeVxcXSxcXG5hbWVcXDpbNF0sXFx0eXBlXFw6W1xcaW50XFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX0se1xcbGFiZWxcXDpbXFxpVmFyc19tdHJ5XFxdLFxcbmFtZVxcOls1XSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfV0sXFxkYXRhXFw6W3tcXDFcXDpcXDYuNzA1MDIzXFwsXFwyXFw6XFwwLjYyNTg1MjJcXCxcXDNcXDpcXDUuMjgwNDQ2XFwsXFw0XFw6XFw1XFwsXFw1XFw6XFwxMC41MFxcfSx7XFwxXFw6XFw2LjUyNjUzMFxcLFxcMlxcOlxcMC42NDQzMzc0XFwsXFwzXFw6XFw1LjA5Mjc0NlxcLFxcNFxcOlxcMTBcXCxcXDVcXDpcXDUuMjVcXH0se1xcMVxcOlxcNi40ODg1MTdcXCxcXDJcXDpcXDAuNjQ0OTMyN1xcLFxcM1xcOlxcNS4wMTIxNzNcXCxcXDRcXDpcXDE2XFwsXFw1XFw6XFwzLjUwXFx9LHtcXDFcXDpcXDYuNDkwODI3XFwsXFwyXFw6XFwwLjY0MzAzOTVcXCxcXDNcXDpcXDUuMDA3NDM0XFwsXFw0XFw6XFwyMFxcLFxcNVxcOlxcMi43NVxcfSx7XFwxXFw6XFw2LjUyNTIxOFxcLFxcMlxcOlxcMC42MzY5NzMzXFwsXFwzXFw6XFw1LjAzMjY5M1xcLFxcNFxcOlxcMjRcXCxcXDVcXDpcXDIuMjVcXH0se1xcMVxcOlxcNi41ODc4ODlcXCxcXDJcXDpcXDAuNjI4MTczMFxcLFxcM1xcOlxcNS4wNTY2NjBcXCxcXDRcXDpcXDMyXFwsXFw1XFw6XFwxLjc1XFx9LHtcXDFcXDpcXDYuNjI0MTM4XFwsXFwyXFw6XFwwLjYyMzI1NDBcXCxcXDNcXDpcXDUuMDgyODMzXFwsXFw0XFw6XFwzN1xcLFxcNVxcOlxcMS41MFxcfSx7XFwxXFw6XFw2LjY5MDY3NFxcLFxcMlxcOlxcMC42MTUwMjUyXFwsXFwzXFw6XFw1LjEzNjg4MlxcLFxcNFxcOlxcNDRcXCxcXDVcXDpcXDEuMjVcXH1dLFxcb3B0aW9uc1xcOntcXGNvbHVtbnNcXDp7XFxtaW5cXDp7fSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls1XX0sXFxyb3dzXFw6e1xcbWluXFw6WzEwXSxcXG1heFxcOlsxMF0sXFx0b3RhbFxcOls4XX0sXFxwYWdlc1xcOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNNFNCMThlUEU5VkdYSGFTa3RVNC91WkxxSVBuRjl1NDg2NmNPa3Q5bTJ4NjEzT1FnSlhucDNBdGVNd2VweVArcjIvVVNIS1RxWlQ5S2FLNXlrRHBzLzIvTEcxbVlPZlpQMkg2YmJuaHFaLzlrWG1hQmhycUwvWlBGWG95Q1JWdnNuMHcrWG1uLzQ3SDlreVRSUGNMem11eWZTUDV6bDFyd3dmN3h4MDNlTGRWeTlvL1hlUVllOXBhQ3UwZFVYbGNqeHlQSVFTVHV4L3NZcVFjT0lqemwzQnVuc0RxSXNNKzVZckg2bllPSVlsWGFoaGN4RGlKV0xIOUYwNHdjUkVJdSthUXRBNHIzYUszbVZUOENOSU1YWkE3VWo2QlFFUUJpRVNDV0FHSUZJRllGWWgyNGZTQWVFRGlJUW1rZUtNMEdwWmtndFAwZktQMERTbjloZ0FLVUFHYk5TOHhOTFlaYXlnb1ZaQW55RFhhRnNqbUNpZ3RMRTR0U1U2QjhabDlIbUJSTGJrbFJKWlRObFJtV1dGUWNEeFpCdFlHektMOWNEMllMeUt0TURSQjNjS0E3SlRrbnNSam1GSmdnVjBwaVNhSmVXaEZRUDVEM0QwMExlMzVCU1daK0hsQVRFeWlSY0VJRGtCR0trUTFpTElLR0lLT0RCaXdrb0h3Qk9COVpnMEJwSHNqVktickpHYVY1MmJxR3Btanl6QVY1NlVqMk1VQjl4d2lOVEJpYkZlSmtwdjlRN1p5d3dFdE56c2lIc3RsUzg5SXo4MUpoQVphV21hNVhucGxTa2dFTEE1QkFSbXBtZWtZSkxLaHlFcE5TYzJBT1NVa3Rnekw1Z0dFTkRtcTlncUxNUEpocUxxQm9zVjVKZmtraVRBdFhjbjRPVEFRY3Fnei9BT1NkUlQrVkF3QUEifQ== -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\6.705023\,\2\:\0.6258522\,\3\:\5.280446\,\4\:\5\,\5\:\10.50\},{\1\:\6.526530\,\2\:\0.6443374\,\3\:\5.092746\,\4\:\10\,\5\:\5.25\},{\1\:\6.488517\,\2\:\0.6449327\,\3\:\5.012173\,\4\:\16\,\5\:\3.50\},{\1\:\6.490827\,\2\:\0.6430395\,\3\:\5.007434\,\4\:\20\,\5\:\2.75\},{\1\:\6.525218\,\2\:\0.6369733\,\3\:\5.032693\,\4\:\24\,\5\:\2.25\},{\1\:\6.587889\,\2\:\0.6281730\,\3\:\5.056660\,\4\:\32\,\5\:\1.75\},{\1\:\6.624138\,\2\:\0.6232540\,\3\:\5.082833\,\4\:\37\,\5\:\1.50\},{\1\:\6.690674\,\2\:\0.6150252\,\3\:\5.136882\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTAwVTBJeE9YZDFhbVI1SzJKbk5WSXdNWE51WXpWUmIwOXJhQzgxTjBKUlYzaHFiRWxOWVcxbWFtMVdjMk5hUTFOMUwwTXdMMVZ0VldjeFUyOHpUMWN6V2lzNE4xTklWWFowYWxoS1prOVJaMlJtUWs4dlpHWk1jVEpFYlRKRUx5dGxWMXB4YnpKTFRDOWFUVFZtTlhaMWVrNWxlR1kzVEdOS1kxSmpUV05xSzFOa2MxWmpLM056Vmk5emJqaFVLMXB3Ym1wMGN6TTRhVzVpY0RSdE1XMDNMMlZPU0c1M01uWk1SSFJzTHpOb1JGaFFibU5DWVM5b04yaEdWbGRQYVcxdWMwUndTVUpKTjNCVFRERnJiM0ZFUTB0MllURmFaMHd2ZUhoRlVreFBUMHgyTjJRMFUwTnBhek5xVmpnNVdVTkNlRVY2WWpaVlltRlZSSGc1VGxCUVFUVlhiazl2YWpCWGJTdHpkbkU0UjA1SlRWaGFRVGRWYWpaQ1VVVlJRbWxGVTBOWFFVZEpSa2xHV1VaWmFESTBabE5CWlVWRWFVbFJiV3RsUzAwd1IzQmFhMmQwVURCbVMxQXdSRk51T1doblFVdFZRVWRpVGxNNGVFNU1XVnBoZVdkdlZscEJibmxFV0dGR2MycHRRMmxuZEV4Rk5IUlRWVFpDT0Zwc09VaHRRbEpNWW10c1VrcGFWRTVzVW0xWFYwWlJZMFI0V2tKMFdVZDZTMHc1WTBReVdVeDVTM1JOUkZKQ00yTkxRVGRLVkd0dWMxSnFiVVpLWjJkV01IQnBVMkZLWlZkb1JsRlFOVVF6UkRBd1RHVXpOVUpUVjFvclNHeEJWRVY1YVZKalJVbEVhMEpIUzJ0Uk1XbE1TVXRIU1V0UFJFSnBkMnR2U0hkQ1QwSTVXbWN3UW5CSWMycFdTMkp5U2tkaFZqVXlZbkZIY0cxcWVYcEJWalUyVldveVRWVkNPWGgzYVU1VVFtbGlSbVZLYTNCMk9WRTNXbmwzZDBWMFRucHphVWh6ZEd4VE9EbEplamd4U21oQldtRlhiV0UxV0c1d2JGTnJaMFZNUVRWQ1FWSnRjRzFsYTFsS1RFdG9lVVZ3VGxOak1rRlBVMVZyZEdkNlREVm5SMFZPUkcxeE9XZHhURTFRU21oeFRIRkNiM05XTlVwbWEydHBWRUYwV0dOdU5FOVVRVkZqY1dkNkwwRkRaa2RzTUdGV1FYZEJRU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCI2LjcxNjc1MVwiLFwiMlwiOlwiMC42MjQyNDMxXCIsXCIzXCI6XCI1LjI4MTg2NVwiLFwiNFwiOlwiNVwiLFwiNVwiOlwiMTAuNTBcIn0se1wiMVwiOlwiNi41MjY3NzVcIixcIjJcIjpcIjAuNjQ0MTYzOVwiLFwiM1wiOlwiNS4wOTEzODdcIixcIjRcIjpcIjEwXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjYuNDg1NDA2XCIsXCIyXCI6XCIwLjY0NTQxODNcIixcIjNcIjpcIjUuMDA1MDMxXCIsXCI0XCI6XCIxNlwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCI2LjUwMjEwNVwiLFwiMlwiOlwiMC42NDE0NTg2XCIsXCIzXCI6XCI1LjAyMDkxNVwiLFwiNFwiOlwiMjBcIixcIjVcIjpcIjIuNzVcIn0se1wiMVwiOlwiNi41MzAwOTRcIixcIjJcIjpcIjAuNjM2NzE1NFwiLFwiM1wiOlwiNS4wNDMzNDJcIixcIjRcIjpcIjI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjYuNTgzMTI1XCIsXCIyXCI6XCIwLjYyODM0NDRcIixcIjNcIjpcIjUuMDUzMDIxXCIsXCI0XCI6XCIzMlwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCI2LjYzNjM2NVwiLFwiMlwiOlwiMC42MjE0NTM5XCIsXCIzXCI6XCI1LjEwMTM2NFwiLFwiNFwiOlwiMzdcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiNi42ODkzMThcIixcIjJcIjpcIjAuNjE1Mjc5NFwiLFwiM1wiOlwiNS4xMzc5MjNcIixcIjRcIjpcIjQ0XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbOF19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE00U0IxOXd1amR5K2JnNVIwMXNuYzVRb09raC81N0JRV3hqbElNYW1mam1Wc2NaQ1N1L0MwL1VtVWcxU28zT1czWis4N1NIVXZ0alhKZk9RZ2RmQk8vZGZMcTJEbTJELytlV1pxbzJLTC9aTTVmNXZ1ek5leGY3TGNKY1JjTWNqK1Nkc1ZjK3NzVi9zbjhUK1pwbmp0czM4aW5icDRtMW03L2VOSG53MnZMRHRsLzNoRFhQbmNCYS9oN2hGVldPaW1uc0RwSUJJN3BTTDFrb3FEQ0t2YTFaZ0wveHhFUkxPT0x2N2Q0U0NpazNqVjg5WUNCeEV6YjZVYmFVRHg5TlBQQTVXbk9vajBXbStzdnE4R05JTVhaQTdVajZCUUVRQmlFU0NXQUdJRklGWUZZaDI0ZlNBZUVEaUlRbWtlS00wR3Baa2d0UDBmS1AwRFNuOWhnQUtVQUdiTlM4eE5MWVpheWdvVlpBbnlEWGFGc2ptQ2lndExFNHRTVTZCOFpsOUhtQlJMYmtsUkpaVE5sUm1XV0ZRY0R4WkJ0WUd6S0w5Y0QyWUx5S3RNRFJCM2NLQTdKVGtuc1JqbUZKZ2dWMHBpU2FKZVdoRlFQNUQzRDAwTGUzNUJTV1orSGxBVEV5aVJjRUlEa0JHS2tRMWlMSUtHSUtPREJpd2tvSHdCT0I5WmcwQnBIc2pWS2JySkdhVjUyYnFHcG1qeXpBVjU2VWoyTVVCOXh3aU5UQmliRmVKa3B2OVE3Wnl3d0V0TnpzaUhzdGxTODlJejgxSmhBWmFXbWE1WG5wbFNrZ0VMQTVCQVJtcG1la1lKTEtoeUVwTlNjMkFPU1VrdGd6TDVnR0VORG1xOWdxTE1QSmhxTHFCb3NWNUpma2tpVEF0WGNuNE9UQVFjcWd6L0FDZkdsMGFWQXdBQSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"6.716751","2":"0.6242431","3":"5.281865","4":"5","5":"10.50"},{"1":"6.526775","2":"0.6441639","3":"5.091387","4":"10","5":"5.25"},{"1":"6.485406","2":"0.6454183","3":"5.005031","4":"16","5":"3.50"},{"1":"6.502105","2":"0.6414586","3":"5.020915","4":"20","5":"2.75"},{"1":"6.530094","2":"0.6367154","3":"5.043342","4":"24","5":"2.25"},{"1":"6.583125","2":"0.6283444","3":"5.053021","4":"32","5":"1.75"},{"1":"6.636365","2":"0.6214539","3":"5.101364","4":"37","5":"1.50"},{"1":"6.689318","2":"0.6152794","3":"5.137923","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpwYkltUmhkR0V1Wm5KaGJXVWlYU3dpYm5KdmR5STZPQ3dpYm1OdmJDSTZOU3dpYzNWdGJXRnllU0k2ZXlKRVpYTmpjbWx3ZEdsdmJpSTZXeUprWmlCYk9DRERseUExWFNKZGZYMHNJbkprWmlJNklrZzBjMGxCUVVGQlFVRkJRVUpuZEhscFZFUnRhWFZDYVZsSFFtZGFiVUpvV1ZkS1oxcG5WWGxIVm1oRVVUbDRNRXhTWjFsblFVbE5SRWwzVFV4QmVXTkpURzlEY1VWbldVcEJka1ZtUlVSTk5GTkNNVFF6VGxOM1ltTXhSR3hLYVdzMVZ6TlFlbTVuU1ZCcmRUaGpVVmd2VVRSSWVXRTVWak40V1dONU0xTlJSVzlzV1ROWGJUbDRSVVZ4VFdwa05DOXdTVzVFYkVwT2VqYzJjMWx5Um5sclJISXhiMGhMZEZOVFRFMUlVSE51YWtkdFZIQXhLMk5aVURscmQxbGhPSG9yUlZNNWF6bFhlVWd6ZHpOcE9YVXZNbFJoV1c0clptWm5NemRLSzJ3MU56bGxZemR5Umk5SmNsVTJZemhtUWxNdllWQXpLelZTZG1wbVVIaFFOM2hyZG1OdGFuTXdSMk5RWlVsTGJHUlpSM1IzS3pkRFFWTXZWVll6SzNaU1dVSjRSVTh6Wkd4d01ESTBObWxNUTBkTWEyeE9SRmhCVVd0Uk5qWTRjMFIxYWxsUFNUVlRZbTFVWWpoaVNGVlRhVEp0TldRMFVETnVTVTVMTDNsV2FteGFVVlJSUkVZMlVVOVdRUzluYTBwR1FVbG9SbWRHWjBOcFFsZEJWMEpYU1dSbFJESm5XR2hCTkVOQlMzQlliV2RPUW5WVldtOU1VVGx1SzJjNVFUaHZMMWxWUWtOc1FVTnRSRlYyVFZSbE1VZEhiM0JMTVZOUlNtTm5NekpDV0VzMVoyZHhUR2w0VGt4RmNFNW5aa3RhWmxJeGFGVnBlVFZLVlZkV1ZVUmFXRnBzYUdsVldFVTRWMEZVVmtKek5ta3ZTRWs1YlVNd1ozSjZTVEZSVG5wQ1oyVTJWVFZLZWtWWmNHaFVXVWxLWTB0WmEyeHBXSEJ3VWxWRU9WRk9OQzlPUXpOeksxRlZiRzFtYkRWUlJURk5iMFZVUTBOUk1VRlNhV2hIVG05cGVFTkNjVU5xUVRSaGMwcERRVGhuV0dkbVIxRk9RWEZXTlVsR1pXNDJRMXB1YkU5YWJEWjRjV0Z2YzJ0NlJpdFRiRWs1YmtoQlVGVmtTWHBSZVZsWGVGZHBTazlhTDJ0UE1XTTRTVU5NZWxVMVNYZ3ZTMXByZGs1VE9DOU5VelJWUmxkR2NHMTFiRFUxV210d1NrSnBkMDFSUVVsYWNWcHVjRWRUVjNkdlRYQktWRVZ5VG1kVWEydEtZbFZOZVhWUlJHaHFWVFJ4VUZWTGFXcE1lbGxMY1RWblMweEdaV2xZTlVwWmEzZE1WbnBLSzFScmQwVllRMjlOZG5kRVFVcFhabm94TWxaQmQwRkJJbjA9IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cXGZhbHNlXFw+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVxcYXBwbGljYXRpb24vanNvblxcPlxue1xcY29sdW1uc1xcOlt7XFxsYWJlbFxcOltcXFJNU0VcXF0sXFxuYW1lXFw6WzFdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcUnNxdWFyZWRcXF0sXFxuYW1lXFw6WzJdLFxcdHlwZVxcOltcXGRibFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcTUFFXFxdLFxcbmFtZVxcOlszXSxcXHR5cGVcXDpbXFxkYmxcXF0sXFxhbGlnblxcOltcXHJpZ2h0XFxdfSx7XFxsYWJlbFxcOltcXG10cnlcXF0sXFxuYW1lXFw6WzRdLFxcdHlwZVxcOltcXGludFxcXSxcXGFsaWduXFw6W1xccmlnaHRcXF19LHtcXGxhYmVsXFw6W1xcaVZhcnNfbXRyeVxcXSxcXG5hbWVcXDpbNV0sXFx0eXBlXFw6W1xcZGJsXFxdLFxcYWxpZ25cXDpbXFxyaWdodFxcXX1dLFxcZGF0YVxcOlt7XFwxXFw6XFw2LjcxMTg2NlxcLFxcMlxcOlxcMC42MjUxNzEwXFwsXFwzXFw6XFw1LjI4NDYzOFxcLFxcNFxcOlxcNVxcLFxcNVxcOlxcMTAuNTBcXH0se1xcMVxcOlxcNi41MjIwNDZcXCxcXDJcXDpcXDAuNjQ0NjE1NFxcLFxcM1xcOlxcNS4wODk3OTlcXCxcXDRcXDpcXDEwXFwsXFw1XFw6XFw1LjI1XFx9LHtcXDFcXDpcXDYuNDgyNzk1XFwsXFwyXFw6XFwwLjY0NTUyMjZcXCxcXDNcXDpcXDUuMDA3OTg2XFwsXFw0XFw6XFwxNlxcLFxcNVxcOlxcMy41MFxcfSx7XFwxXFw6XFw2LjQ4OTcyN1xcLFxcMlxcOlxcMC42NDMzODg0XFwsXFwzXFw6XFw1LjAwNTIxMFxcLFxcNFxcOlxcMjBcXCxcXDVcXDpcXDIuNzVcXH0se1xcMVxcOlxcNi41MTk4NjlcXCxcXDJcXDpcXDAuNjM3NjI2MVxcLFxcM1xcOlxcNS4wMjY2ODNcXCxcXDRcXDpcXDI0XFwsXFw1XFw6XFwyLjI1XFx9LHtcXDFcXDpcXDYuNTg3MzMxXFwsXFwyXFw6XFwwLjYyODI1NTZcXCxcXDNcXDpcXDUuMDU2MzQzXFwsXFw0XFw6XFwzMlxcLFxcNVxcOlxcMS43NVxcfSx7XFwxXFw6XFw2LjYyNzgzNFxcLFxcMlxcOlxcMC42MjI3NzA0XFwsXFwzXFw6XFw1LjA4ODQwNVxcLFxcNFxcOlxcMzdcXCxcXDVcXDpcXDEuNTBcXH0se1xcMVxcOlxcNi42OTgxMjJcXCxcXDJcXDpcXDAuNjEzODgzNlxcLFxcM1xcOlxcNS4xNDAzMjhcXCxcXDRcXDpcXDQ0XFwsXFw1XFw6XFwxLjI1XFx9XSxcXG9wdGlvbnNcXDp7XFxjb2x1bW5zXFw6e1xcbWluXFw6e30sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbNV19LFxccm93c1xcOntcXG1pblxcOlsxMF0sXFxtYXhcXDpbMTBdLFxcdG90YWxcXDpbOF19LFxccGFnZXNcXDp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
```
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbImRhdGEuZnJhbWUiXSwibnJvdyI6OCwibmNvbCI6NSwic3VtbWFyeSI6eyJEZXNjcmlwdGlvbiI6WyJkZiBbOCDDlyA1XSJdfX0sInJkZiI6Ikg0c0lBQUFBQUFBQUJndHlpVERtaXVCaVlHQmdabUJoWVdKZ1pnVXlHVmhEUTl4MExSZ1lnQUlNREl3TUxBeWNJTG9DcUVnWUpBdkVmRURNNFNCMTQzTlN3YmMxRGxKaWs1VzNQem5nSVBrdThjUVgvUTRIeWE5VjN4WWN5M1NRRW9sWTNXbTl4RUVxTWpkNC9wSW5EbEpOejc2c1lyRnlrRHIxb0hLdFNTTE1IUHNuakdtVHAxK2NZUDlrd1lhOHorRVM5azlXeUgzdzNpOXUvMlRhWW4rZmZnMzdKK2w1NzllYzdyRi9JclU2YzhmQlMvYVAzKzVSdmpmUHhQN3hrdmNtanMwR2NQZUlLbGRZR3R3KzdDQVMvVVYzK3ZSWUJ4RU8zZGxwMDI0NmlMQ0dMa2xORFhBUWtRNjY4c0R1allPSTVTYm1UYjhiSFVTaTJtNWQ0UDNuSU5LL3lWamxaUVRRREY2UU9WQS9na0pGQUloRmdGZ0NpQldBV0JXSWRlRDJnWGhBNENBS3BYbWdOQnVVWm9MUTluK2c5QThvL1lVQkNsQUNtRFV2TVRlMUdHb3BLMVNRSmNnMzJCWEs1Z2dxTGl4TkxFcE5nZktaZlIxaFVpeTVKVVdWVURaWFpsaGlVWEU4V0FUVkJzNmkvSEk5bUMwZ3J6STFRTnpCZ2U2VTVKekVZcGhUWUlKY0tZa2xpWHBwUlVEOVFONC9OQzNzK1FVbG1mbDVRRTFNb0VUQ0NRMUFSaWhHTm9peENCcUNqQTRhc0pDQThnWGdmR1FOQXFWNUlGZW42Q1pubE9abDZ4cWFvc2t6RitTbEk5bkhBUFVkSXpReVlXeFdpSk9aL2tPMWM4SUNMelU1SXgvS1prdk5TOC9NUzRVRldGcG11bDU1WmtwSkJpd01RQUlacVpucEdTV3dvTXBKVEVyTmdUa2tKYlVNeXVRRGhqVTRxUFVLaWpMellLcTVnS0xGZWlYNUpZa3dMVnpKK1Rrd0VYQ29NdndEQUpXZnoxMlZBd0FBIn0= -->
<div data-pagedtable=\false\>
<script data-pagedtable-source type=\application/json\>
{\columns\:[{\label\:[\RMSE\],\name\:[1],\type\:[\dbl\],\align\:[\right\]},{\label\:[\Rsquared\],\name\:[2],\type\:[\dbl\],\align\:[\right\]},{\label\:[\MAE\],\name\:[3],\type\:[\dbl\],\align\:[\right\]},{\label\:[\mtry\],\name\:[4],\type\:[\int\],\align\:[\right\]},{\label\:[\iVars_mtry\],\name\:[5],\type\:[\dbl\],\align\:[\right\]}],\data\:[{\1\:\6.711866\,\2\:\0.6251710\,\3\:\5.284638\,\4\:\5\,\5\:\10.50\},{\1\:\6.522046\,\2\:\0.6446154\,\3\:\5.089799\,\4\:\10\,\5\:\5.25\},{\1\:\6.482795\,\2\:\0.6455226\,\3\:\5.007986\,\4\:\16\,\5\:\3.50\},{\1\:\6.489727\,\2\:\0.6433884\,\3\:\5.005210\,\4\:\20\,\5\:\2.75\},{\1\:\6.519869\,\2\:\0.6376261\,\3\:\5.026683\,\4\:\24\,\5\:\2.25\},{\1\:\6.587331\,\2\:\0.6282556\,\3\:\5.056343\,\4\:\32\,\5\:\1.75\},{\1\:\6.627834\,\2\:\0.6227704\,\3\:\5.088405\,\4\:\37\,\5\:\1.50\},{\1\:\6.698122\,\2\:\0.6138836\,\3\:\5.140328\,\4\:\44\,\5\:\1.25\}],\options\:{\columns\:{\min\:{},\max\:[10],\total\:[5]},\rows\:{\min\:[10],\max\:[10],\total\:[8]},\pages\:{}}}
</script>
</div>
<!-- rnb-frame-end -->
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTAwVTBJeE9HVlFSVGxXUjFoSVlWTnJkRlUwTDNWYVRIRkpVRzVHT1hVME9EWTJZMDlyZERsdE1uZzJNVE5QVVdkS1dHNXdNMEYwWlUxM1pYQjVVQ3R5TWk5VlUwaExWSEZhVkRsTFlVczFlV3RFY0hNdk1pOU1SekZ0V1U5bVdsQXlTRFppWW01b2NWb3ZPV3RZYldGQ2FISnhUQzlhVUVaWWIzbERVbFoyYzI0d2R5dFliVzR2TkRkSU9XdDVWRkpRWTB4NmJYVjVabE5RTlhwc01YSjNkMlkzZUhnd00yVk1aRlo1T1c4dldHVlJXV1U1Y0dGRGRUQmtWVmhzWTJwNGVWQkpVVk5VZFhndmMxbHhVV05QU1dwNmJETkNkVzV6UkhGSmMwMHJOVmx5U0RadVdVOUpXV3hZWVdob1kzaEVhVXBYVEVnNVJqQTBkMk5TUlVsMUsyRlJkRUUwY2pOaFN6TnRWbFE0UTA1SlRWaGFRVGRWYWpaQ1VVVlJRbWxGVTBOWFFVZEpSa2xHV1VaWmFESTBabE5CWlVWRWFVbFJiV3RsUzAwd1IzQmFhMmQwVURCbVMxQXdSRk51T1doblFVdFZRVWRpVGxNNGVFNU1XVnBoZVdkdlZscEJibmxFV0dGR2MycHRRMmxuZEV4Rk5IUlRWVFpDT0Zwc09VaHRRbEpNWW10c1VrcGFWRTVzVW0xWFYwWlJZMFI0V2tKMFdVZDZTMHc1WTBReVdVeDVTM1JOUkZKQ00yTkxRVGRLVkd0dWMxSnFiVVpLWjJkV01IQnBVMkZLWlZkb1JsRlFOVVF6UkRBd1RHVXpOVUpUVjFvclNHeEJWRVY1YVZKalJVbEVhMEpIUzJ0Uk1XbE1TVXRIU1V0UFJFSnBkMnR2U0hkQ1QwSTVXbWN3UW5CSWMycFdTMkp5U2tkaFZqVXlZbkZIY0cxcWVYcEJWalUyVldveVRWVkNPWGgzYVU1VVFtbGlSbVZLYTNCMk9WRTNXbmwzZDBWMFRucHphVWh6ZEd4VE9EbEplamd4U21oQldtRlhiV0UxV0c1d2JGTnJaMFZNUVRWQ1FWSnRjRzFsYTFsS1RFdG9lVVZ3VGxOak1rRlBVMVZyZEdkNlREVm5SMFZPUkcxeE9XZHhURTFRU21oeFRIRkNiM05XTlVwbWEydHBWRUYwV0dOdU5FOVVRVkZqY1dkNkwwRlBVMlJTVkN0V1FYZEJRU0o5IC0tPlxuXG48ZGl2IGRhdGEtcGFnZWR0YWJsZT1cImZhbHNlXCI+XG4gIDxzY3JpcHQgZGF0YS1wYWdlZHRhYmxlLXNvdXJjZSB0eXBlPVwiYXBwbGljYXRpb24vanNvblwiPlxue1wiY29sdW1uc1wiOlt7XCJsYWJlbFwiOltcIlJNU0VcIl0sXCJuYW1lXCI6WzFdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiUnNxdWFyZWRcIl0sXCJuYW1lXCI6WzJdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiTUFFXCJdLFwibmFtZVwiOlszXSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfSx7XCJsYWJlbFwiOltcIm10cnlcIl0sXCJuYW1lXCI6WzRdLFwidHlwZVwiOltcImludFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wiaVZhcnNfbXRyeVwiXSxcIm5hbWVcIjpbNV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX1dLFwiZGF0YVwiOlt7XCIxXCI6XCI2LjcwNTAyM1wiLFwiMlwiOlwiMC42MjU4NTIyXCIsXCIzXCI6XCI1LjI4MDQ0NlwiLFwiNFwiOlwiNVwiLFwiNVwiOlwiMTAuNTBcIn0se1wiMVwiOlwiNi41MjY1MzBcIixcIjJcIjpcIjAuNjQ0MzM3NFwiLFwiM1wiOlwiNS4wOTI3NDZcIixcIjRcIjpcIjEwXCIsXCI1XCI6XCI1LjI1XCJ9LHtcIjFcIjpcIjYuNDg4NTE3XCIsXCIyXCI6XCIwLjY0NDkzMjdcIixcIjNcIjpcIjUuMDEyMTczXCIsXCI0XCI6XCIxNlwiLFwiNVwiOlwiMy41MFwifSx7XCIxXCI6XCI2LjQ5MDgyN1wiLFwiMlwiOlwiMC42NDMwMzk1XCIsXCIzXCI6XCI1LjAwNzQzNFwiLFwiNFwiOlwiMjBcIixcIjVcIjpcIjIuNzVcIn0se1wiMVwiOlwiNi41MjUyMThcIixcIjJcIjpcIjAuNjM2OTczM1wiLFwiM1wiOlwiNS4wMzI2OTNcIixcIjRcIjpcIjI0XCIsXCI1XCI6XCIyLjI1XCJ9LHtcIjFcIjpcIjYuNTg3ODg5XCIsXCIyXCI6XCIwLjYyODE3MzBcIixcIjNcIjpcIjUuMDU2NjYwXCIsXCI0XCI6XCIzMlwiLFwiNVwiOlwiMS43NVwifSx7XCIxXCI6XCI2LjYyNDEzOFwiLFwiMlwiOlwiMC42MjMyNTQwXCIsXCIzXCI6XCI1LjA4MjgzM1wiLFwiNFwiOlwiMzdcIixcIjVcIjpcIjEuNTBcIn0se1wiMVwiOlwiNi42OTA2NzRcIixcIjJcIjpcIjAuNjE1MDI1MlwiLFwiM1wiOlwiNS4xMzY4ODJcIixcIjRcIjpcIjQ0XCIsXCI1XCI6XCIxLjI1XCJ9XSxcIm9wdGlvbnNcIjp7XCJjb2x1bW5zXCI6e1wibWluXCI6e30sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbNV19LFwicm93c1wiOntcIm1pblwiOlsxMF0sXCJtYXhcIjpbMTBdLFwidG90YWxcIjpbOF19LFwicGFnZXNcIjp7fX19XG4gIDxcL3NjcmlwdD5cbjxcL2Rpdj5cblxuPCEtLSBybmItZnJhbWUtZW5kIC0tPlxuIn0= -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE00U0IxOGVQRTlWR1hIYVNrdFU0L3VaTHFJUG5GOXU0ODY2Y09rdDltMng2MTNPUWdKWG5wM0F0ZU13ZXB5UCtyMi9VU0hLVHFaVDlLYUs1eWtEcHMvMi9MRzFtWU9mWlAySDZiYm5ocVovOWtYbWFCaHJxTC9aUEZYb3lDUlZ2c24wdytYbW4vNDdIOWt5VFJQY0x6bXV5ZlNQNXpsMXJ3d2Y3eHgwM2VMZFZ5OW8vWGVRWWU5cGFDdTBkVVhsY2p4eVBJUVNUdXgvc1lxUWNPSWp6bDNCdW5zRHFJc00rNVlySDZuWU9JWWxYYWhoY3hEaUpXTEg5RjA0d2NSRUl1K2FRdEE0cjNhSzNtVlQ4Q05JTVhaQTdVajZCUUVRQmlFU0NXQUdJRklGWUZZaDI0ZlNBZUVEaUlRbWtlS00wR3Baa2d0UDBmS1AwRFNuOWhnQUtVQUdiTlM4eE5MWVpheWdvVlpBbnlEWGFGc2ptQ2lndExFNHRTVTZCOFpsOUhtQlJMYmtsUkpaVE5sUm1XV0ZRY0R4WkJ0WUd6S0w5Y0QyWUx5S3RNRFJCM2NLQTdKVGtuc1JqbUZKZ2dWMHBpU2FKZVdoRlFQNUQzRDAwTGUzNUJTV1orSGxBVEV5aVJjRUlEa0JHS2tRMWlMSUtHSUtPREJpd2tvSHdCT0I5WmcwQnBIc2pWS2JySkdhVjUyYnFHcG1qeXpBVjU2VWoyTVVCOXh3aU5UQmliRmVKa3B2OVE3Wnl3d0V0TnpzaUhzdGxTODlJejgxSmhBWmFXbWE1WG5wbFNrZ0VMQTVCQVJtcG1la1lKTEtoeUVwTlNjMkFPU1VrdGd6TDVnR0VORG1xOWdxTE1QSmhxTHFCb3NWNUpma2tpVEF0WGNuNE9UQVFjcWd6L0FPU2RSVCtWQXdBQSJ9 -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"6.705023","2":"0.6258522","3":"5.280446","4":"5","5":"10.50"},{"1":"6.526530","2":"0.6443374","3":"5.092746","4":"10","5":"5.25"},{"1":"6.488517","2":"0.6449327","3":"5.012173","4":"16","5":"3.50"},{"1":"6.490827","2":"0.6430395","3":"5.007434","4":"20","5":"2.75"},{"1":"6.525218","2":"0.6369733","3":"5.032693","4":"24","5":"2.25"},{"1":"6.587889","2":"0.6281730","3":"5.056660","4":"32","5":"1.75"},{"1":"6.624138","2":"0.6232540","3":"5.082833","4":"37","5":"1.50"},{"1":"6.690674","2":"0.6150252","3":"5.136882","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjRnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqb3hNaXdpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjoxMiwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1mcmFtZS1iZWdpbiBleUp0WlhSaFpHRjBZU0k2ZXlKamJHRnpjMlZ6SWpvaVpHRjBZUzVtY21GdFpTSXNJbTV5YjNjaU9qZ3NJbTVqYjJ3aU9qVXNJbk4xYlcxaGNua2lPbnNpUkdWelkzSnBjSFJwYjI0aU9pSmtaaUJiT0NERGx5QTFYU0o5ZlN3aWNtUm1Jam9pU0RSelNVRkJRVUZCUVVGQlFtZDBlV2xVUkcxcGRVSnBXVWRDWjFwdFFtaFpWMHBuV21kVmVVZFdhRVJST1hnd1RGSm5XV2RCU1UxRVNYZE5URUY1WTBsTWIwTnhSV2RaU2tGMlJXWkZSRTAwVTBJeE5ETk9VM2RpWXpGRWJFcHBhelZYTTFCNmJtZEpVR3QxT0dOUldDOVJORWg1WVRsV00zaFpZM2t6VTFGRmIyeFpNMWR0T1hoRlJYRk5hbVEwTDNCSmJrUnNTazU2TnpaeldYSkdlV3RFY2pGdlNFdDBVMU5NVFVoUWMyNXFSMjFVY0RFclkxbFFPV3QzV1dFNGVpdEZVemxyT1ZkNVNETjNNMms1ZFM4eVZHRlpiaXRtWm1jek4wb3JiRFUzT1dWak4zSkdMMGx5VlRaak9HWkNVeTloVURNck5WSjJhbVpRZUZBM2VHdDJZMjFxY3pCSFkxQmxTVXRzWkZsSGRIY3JOME5CVXk5VlZqTXJkbEpaUW5oRlR6TmtiSEF3TWpRMmFVeERSMHhyYkU1RVdFRlJhMUUyTmpoelJIVnFXVTlKTlZOaWJWUmlPR0pJVlZOcE1tMDFaRFJRTTI1SlRrc3ZlVlpxYkZwUlZGRkVSalpSVDFaQkwyZHJTa1pCU1doR1owWm5RMmxDVjBGWFFsZEpaR1ZFTW1kWWFFRTBRMEZMY0ZodFowNUNkVlZhYjB4Uk9XNHJaemxCT0c4dldWVkNRMnhCUTIxRVZYWk5WR1V4UjBkdmNFc3hVMUZLWTJjek1rSllTelZuWjNGTWFYaE9URVZ3VG1kbVMxcG1VakZvVldsNU5VcFZWMVpWUkZwWVdteG9hVlZZUlRoWFFWUldRbk0yYVM5SVNUbHRRekJuY25wSk1WRk9la0puWlRaVk5VcDZSVmx3YUZSWlNVcGpTMWxyYkdsWWNIQlNWVVE1VVU0MEwwNURNM01yVVZWc2JXWnNOVkZGTVUxdlJWUkRRMUV4UVZKcGFFZE9iMmw0UTBKeFEycEJOR0Z6U2tOQk9HZFlaMlpIVVU1QmNWWTFTVVpsYmpaRFdtNXNUMXBzTm5oeFlXOXphM3BHSzFOc1NUbHVTRUZRVldSSmVsRjVXVmQ0VjJsS1Qxb3ZhMDh4WXpoSlEweDZWVFZKZUM5TFdtdDJUbE00TDAxVE5GVkdWMFp3YlhWc05UVmFhM0JLUW1sM1RWRkJTVnB4V201d1IxTlhkMjlOY0VwVVJYSk9aMVJyYTBwaVZVMTVkVkZFYUdwVk5IRlFWVXRwYWt4NldVdHhOV2RMVEVabGFWZzFTbGxyZDB4V2Vrb3JWR3QzUlZoRGIwMTJkMFJCU2xkbWVqRXlWa0YzUVVFaWZRPT0gLS0+XG5cbjxkaXYgZGF0YS1wYWdlZHRhYmxlPVwiZmFsc2VcIj5cbiAgPHNjcmlwdCBkYXRhLXBhZ2VkdGFibGUtc291cmNlIHR5cGU9XCJhcHBsaWNhdGlvbi9qc29uXCI+XG57XCJjb2x1bW5zXCI6W3tcImxhYmVsXCI6W1wiUk1TRVwiXSxcIm5hbWVcIjpbMV0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJSc3F1YXJlZFwiXSxcIm5hbWVcIjpbMl0sXCJ0eXBlXCI6W1wiZGJsXCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJNQUVcIl0sXCJuYW1lXCI6WzNdLFwidHlwZVwiOltcImRibFwiXSxcImFsaWduXCI6W1wicmlnaHRcIl19LHtcImxhYmVsXCI6W1wibXRyeVwiXSxcIm5hbWVcIjpbNF0sXCJ0eXBlXCI6W1wiaW50XCJdLFwiYWxpZ25cIjpbXCJyaWdodFwiXX0se1wibGFiZWxcIjpbXCJpVmFyc19tdHJ5XCJdLFwibmFtZVwiOls1XSxcInR5cGVcIjpbXCJkYmxcIl0sXCJhbGlnblwiOltcInJpZ2h0XCJdfV0sXCJkYXRhXCI6W3tcIjFcIjpcIjYuNzExODY2XCIsXCIyXCI6XCIwLjYyNTE3MTBcIixcIjNcIjpcIjUuMjg0NjM4XCIsXCI0XCI6XCI1XCIsXCI1XCI6XCIxMC41MFwifSx7XCIxXCI6XCI2LjUyMjA0NlwiLFwiMlwiOlwiMC42NDQ2MTU0XCIsXCIzXCI6XCI1LjA4OTc5OVwiLFwiNFwiOlwiMTBcIixcIjVcIjpcIjUuMjVcIn0se1wiMVwiOlwiNi40ODI3OTVcIixcIjJcIjpcIjAuNjQ1NTIyNlwiLFwiM1wiOlwiNS4wMDc5ODZcIixcIjRcIjpcIjE2XCIsXCI1XCI6XCIzLjUwXCJ9LHtcIjFcIjpcIjYuNDg5NzI3XCIsXCIyXCI6XCIwLjY0MzM4ODRcIixcIjNcIjpcIjUuMDA1MjEwXCIsXCI0XCI6XCIyMFwiLFwiNVwiOlwiMi43NVwifSx7XCIxXCI6XCI2LjUxOTg2OVwiLFwiMlwiOlwiMC42Mzc2MjYxXCIsXCIzXCI6XCI1LjAyNjY4M1wiLFwiNFwiOlwiMjRcIixcIjVcIjpcIjIuMjVcIn0se1wiMVwiOlwiNi41ODczMzFcIixcIjJcIjpcIjAuNjI4MjU1NlwiLFwiM1wiOlwiNS4wNTYzNDNcIixcIjRcIjpcIjMyXCIsXCI1XCI6XCIxLjc1XCJ9LHtcIjFcIjpcIjYuNjI3ODM0XCIsXCIyXCI6XCIwLjYyMjc3MDRcIixcIjNcIjpcIjUuMDg4NDA1XCIsXCI0XCI6XCIzN1wiLFwiNVwiOlwiMS41MFwifSx7XCIxXCI6XCI2LjY5ODEyMlwiLFwiMlwiOlwiMC42MTM4ODM2XCIsXCIzXCI6XCI1LjE0MDMyOFwiLFwiNFwiOlwiNDRcIixcIjVcIjpcIjEuMjVcIn1dLFwib3B0aW9uc1wiOntcImNvbHVtbnNcIjp7XCJtaW5cIjp7fSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls1XX0sXCJyb3dzXCI6e1wibWluXCI6WzEwXSxcIm1heFwiOlsxMF0sXCJ0b3RhbFwiOls4XX0sXCJwYWdlc1wiOnt9fX1cbiAgPFwvc2NyaXB0PlxuPFwvZGl2PlxuXG48IS0tIHJuYi1mcmFtZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjoiZGF0YS5mcmFtZSIsIm5yb3ciOjgsIm5jb2wiOjUsInN1bW1hcnkiOnsiRGVzY3JpcHRpb24iOiJkZiBbOCDDlyA1XSJ9fSwicmRmIjoiSDRzSUFBQUFBQUFBQmd0eWlURG1pdUJpWUdCZ1ptQmhZV0pnWmdVeUdWaERROXgwTFJnWWdBSU1ESXdNTEF5Y0lMb0NxRWdZSkF2RWZFRE00U0IxNDNOU3diYzFEbEppazVXM1B6bmdJUGt1OGNRWC9RNEh5YTlWM3hZY3kzU1FFb2xZM1dtOXhFRXFNamQ0L3BJbkRsSk56NzZzWXJGeWtEcjFvSEt0U1NMTUhQc25qR21UcDErY1lQOWt3WWE4eitFUzlrOVd5SDN3M2k5dS8yVGFZbitmZmczN0orbDU3OWVjN3JGL0lyVTZjOGZCUy9hUDMrNVJ2amZQeFA3eGt2Y21qczBHY1BlSUtsZFlHdHcrN0NBUy9VVjMrdlJZQnhFTzNkbHAwMjQ2aUxDR0xrbE5EWEFRa1E2NjhzRHVqWU9JNVNibVRiOGJIVVNpMm01ZDRQM25JTksveVZqbFpRVFFERjZRT1ZBL2drSkZBSWhGZ0ZnQ2lCV0FXQldJZGVEMmdYaEE0Q0FLcFhtZ05CdVVab0xROW4rZzlBOG8vWVVCQ2xBQ21EVXZNVGUxR0dvcEsxU1FKY2czMkJYSzVnZ3FMaXhOTEVwTmdmS1pmUjFoVWl5NUpVV1ZVRFpYWmxoaVVYRThXQVRWQnM2aS9ISTltQzBncnpJMVFOekJnZTZVNUp6RVlwaFRZSUpjS1lrbGlYcHBSVUQ5UU40L05DM3MrUVVsbWZsNVFFMU1vRVRDQ1ExQVJpaEdOb2l4Q0JxQ2pBNGFzSkNBOGdYZ2ZHUU5BcVY1SUZlbjZDWm5sT1psNnhxYW9za3pGK1NsSTluSEFQVWRJelF5WVd4V2lKT1ova08xYzhJQ0x6VTVJeC9LWmt2TlM4L01TNFVGV0ZwbXVsNTVaa3BKQml3TVFBSVpxWm5wR1NXd29NcEpURXJOZ1Rra0piVU15dVFEaGpVNHFQVUtpakx6WUtxNWdLTEZlaVg1Sllrd0xWekorVGt3RVhDb012d0RBSldmejEyVkF3QUEifQ== -->
<div data-pagedtable="false">
<script data-pagedtable-source type="application/json">
{"columns":[{"label":["RMSE"],"name":[1],"type":["dbl"],"align":["right"]},{"label":["Rsquared"],"name":[2],"type":["dbl"],"align":["right"]},{"label":["MAE"],"name":[3],"type":["dbl"],"align":["right"]},{"label":["mtry"],"name":[4],"type":["int"],"align":["right"]},{"label":["iVars_mtry"],"name":[5],"type":["dbl"],"align":["right"]}],"data":[{"1":"6.711866","2":"0.6251710","3":"5.284638","4":"5","5":"10.50"},{"1":"6.522046","2":"0.6446154","3":"5.089799","4":"10","5":"5.25"},{"1":"6.482795","2":"0.6455226","3":"5.007986","4":"16","5":"3.50"},{"1":"6.489727","2":"0.6433884","3":"5.005210","4":"20","5":"2.75"},{"1":"6.519869","2":"0.6376261","3":"5.026683","4":"24","5":"2.25"},{"1":"6.587331","2":"0.6282556","3":"5.056343","4":"32","5":"1.75"},{"1":"6.627834","2":"0.6227704","3":"5.088405","4":"37","5":"1.50"},{"1":"6.698122","2":"0.6138836","3":"5.140328","4":"44","5":"1.25"}],"options":{"columns":{"min":{},"max":[10],"total":[5]},"rows":{"min":[10],"max":[10],"total":[8]},"pages":{}}}
</script>
</div>
<!-- rnb-frame-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBNWtBQUFFekNBSUFBQUEwTEZEUUFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzNkZjJ3ajZYblk4V2NrN1EvZjJXNXNLM0VjbnB5OWdGUlFSUW5hSEZ0MVNTelFRK0FXbEdwQ1JSUzFQYVNyQUVYRmJvQ2FsSTAxM056KzFleWk2QzE2RXZ0clFSVXBzdHZpQ3NocUs3Q1ZDTGhwRnNWQnZDT2dGR21oS3VpUzdtNnJwV003c2gxZmN1ZjlvZVhiUDRhVUtJcjZOZk1PWjE3eSs4SDh3Um1OSHI0aTU5SDd6TXc3TTVaU1NnQUFBQUFEOWZuZEFBQUFBTUFoYWxrQUFBQ1lpbG9XQUFBQXBxS1dCUUFBZ0trR092Wk8wV2kwWSs4RmJHeHMrTjBFTTVDWThBSUo2QktKaVU0eVBXRTdWOHVLb3c5cloyZG5jSEJRYnpPOGlHbFcySzV2S3QzQW1adzFNYlYvMGNIWmNqb2NzMXNiU1FKcVFZOFprTEJkMzlRdVNGakdHQUFBQU1CVTFMSUFBQUF3VlVmSEdOZ1NyMzdaazdqbnozc1J0ZmJ4QzlwanF2T2VmT3g5SHozeklxeDQ4RFFONjBlZU5MVlFmc3VMc0QzaUMzMi9vajFtMzhXUGFRNzRpWmYxQmhRUitkaEZ6UUUvL0VoelFCSDFvcVkzWU8xUFA5UWJVRVMrOGV3ZDdUSHhpMzl2M291d1R6L2xSVlI1OHVQNis0c1hMMm5lK0cxOVAvTG1XSjdsUWNnWCttT0t5RGUvNGsweDVnZU95d0lBQU1CVTFMSUFBQUF3RmJVc0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVTFMSUFBQUF3RmJVc0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVTFMSUFBQUF3RmJVc0FBQUFURVV0Q3dBQUFGTlJ5d0lBQU1CVU9tclo2bko2dm5Ua0xBQmZrSmhBQUpHWWdHN3VhOW5TL0xWN0Q0K2NCZUFMRWhNSUlCSVQwRy9BNWUrWDVvdXhPMWNmTGJXZnRVV2pVZnZGenM2T3k3Y0Rqc0VHdG9mRVJPZXhJWjJJeEVSd2ROTUc1dTY0YkdtK0dKc2JPMnEyWVdOalkyTmpRMFFHQndjSEJ3ZGR2U053dE1FR3Z4dmlOeElUZmlBQlQwQmlJa2k2S1dIZEhKZXRMcjl6Ly83RCsvZEZSQ1FwVjY4K2FwNTlNOThtU1FGNGpjUUVBb2pFQkx6aXBwWU5UV1h6VXlKU1hVNHZEV1hueGtTbURzNEM2RHdTRXdnZ0VoUHdDdmZrQWdBQWdLbmNYdnNsSWhLYXlzNGRQUXZBRnlRbUVFQWtKcUFieDJVQkFBQmdLbXBaQUFBQW1JcGFGZ0FBQUthaWxnVUFBSUNwcUdVQkFBQmdLbXBaQUFBQW1JcGFGZ0FBQUthaWxnVUFBSUNwcUdVQkFBQmdLbXBaQUFBQW1FckhNMnpQNk9uUC9JUVhZVC82M0hrdndqNS95ZEllcy8rcDBoNVRSR29ETDNzUjl2bkwraitCdmhmYVE4S3RnVmQvV252TXA1Y0c5UVo4OFZLLzNvQWkwditSNXMyeGRrNS95anovaE9iLzFkWUxULzRMUWJzZi91VWZlUkcycjcvbVJWaXBlZEJqS3YweFJhUi8wSk4rNkRPZi9GQjd6S2U3UHBScVp1RzRMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV4RkxRc0FBQUJUVWNzQ0FBREFWTlN5QUFBQU1CVzFMQUFBQUV3MTRPcTNxOHZwYS9jZWlyeDY5VTUyS3JRM0t5S3Z2NW1mRzlQUlFBQm5SV0lDQVVSaUF0NXdWOHZLNWEvbXAwSlNtaysvVjUyYWtzZERYODNuUXlKU1dsNStSVXZ6QURoQVlnSUJSR0lDbm5CWHk0WkNJUkdwYmcrOU1SVVNrYkg2Zm1WcFd5NDM3V0pHbzFIN3hjN09qcXUzQTQ3RkJsWkhZc0lQYkVnbklERVJKTjIwZ2JrOExpdWwrZVN0K3lLdkQwMk43ZVZpUzJMS3hzYUdpRVNqMGNIQlFaZHZCeHlERFd3UGlZbk9ZME02RVltSjRPaW1EY3p0dFY5amMvbDgvczdWUjhYUzNxTFN0bHdPdVF3THdBMFNFd2dnRWhQd2dwYjdHSVNHcmd6dGpmWWhNWUZnSURHQkFDSXhBYzFjalRHb255NnhyOEZzTEdzNVhRS2d3MGhNSUlCSVRNQWpybXJac2JuOFhrYnVMWnVhY2hNU2dGc2tKaEJBSkNiZ0VaNlZBQUFBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXcxVURuMy9LN3IxM3dJdXp6ajNzUlZXcm45Y2RVZlpiK29DSzFDOHFMc05aekQ4SjY4Z0hBbGU5ZCtTbnRNWjk5WFBNM1hUdW5ONTZJaUxJMC94djA0cCtHZUpMY01NQmZIZDd5SXV3UG5yM2tSZGcrUy8rVyt1bHpIMm1QS1NJMWIvcWhwelg5WlJVZDVvazRMZ3NBQUFCVFVjc0NBQURBVk5TeUFBQUFNQlcxTEFBQUFFeEZMUXNBQUFCVFVjc0NBQURBVk5TeUFBQUFNQlcxTEFBQUFFeEZMUXNBQUFCVFVjc0NBQURBVk5TeUFBQUFNQlcxTEFBQUFFeEZMUXVJU0NVYnQ1ckZzNVVEeTFPRnc3OVRTTzJ2YXIrT1p5dUZiTGJTK0VtVGRyOFBvTzZvQk94a0F6citub0NwVHRzek5pMXFYbFYvRittdWxxMHVwNVBKWkRLWlhxNktpRWhwL3NBc1lJcHdlcjI4RUpQWk5hV1VVbXV6eFV3a1ZiQ1hxL0pDVEJadnR2WnpsZXpOUllrdGxOVjZPbHhJalc4dWxKVzZLelBqU3lLU3lLbnlRaXkyVUZhMjhzSklSLzhhRWhPR09Tb0JPNlNRaW1TSzNyOE5pWWt1Y2JxZXNiR3NzQ0t6czRzcit4bXR2NHQwZVZ6MjhsZnorWHorelV2dnZsY1ZxUzV2eCt6WmUwc2xsKzBDZkpTNHZoQ1R6UWQ3T1RxOXNDQ1oyd2U2MXNxcVRDL0U5dWRIaDhNaTRmVDYyblNiZU9GME91RlpZOXNoTVdHeTFnVDAvZzF6NWVaczlneUppVzV5aXA1UlJLU3dJcE81eVFQRmJBdjNYYVM3V2pZVUNvbElkWHZvamFtUVNHaHFha3hFWkN6MitxUHRwdjNNYURRYWpVWkZaR2RuWjJkbng5VTdBa2ZiYVhBWnA1S2R5UlJqMHhON2U1VXluTDV4TUJFTHQ3ZUdKL2JtRXBPemkrUDJTWkpFZW45bnRCRXQyK2tCQmlRbS9PQk5BdGJQWnFheWhZSmQzTmJQVDZheTJWUzJZcytrQ3ZYRjlubk52VE9ZOXJIZFFzcEtaYk54KzZldEowRHI4eDA1TGt0aUlramNKK3dKUGFPdDhtQmtNaUdKSTR0WkxWMmsyL0d5cGZsazh0cTllOFdEZTVWRFZ5Nkg5dWMyTmpZMk5qWkVaSEJ3Y0hCdzBPVTdBa2NaYkhBY1lYSGNzaXdyc2pSOTRBU0ppRWppK3NMbTN0bVVTblpsNUhyemJtUWlwOVptRjhjUERoRXFaaUoySjdubHVEMk9rWmpvUEU4U3NIQjdhYnFzbEpyY3V2bEFSQ3JaK00yUnNsSktUVzVsTnV1cEp5Sk54MVlyMlp1YkMyV2x5Z3V4elFlVlNqWSt2aWlMUzNKWHFmVjBPV1gvOXRwb1ppWmJrVW8yUGk1clNxbk9ISllsTVJFazdoUDJwSjVSUktTeUtzTUprVGJGck00dTBtMHRPemFYeitmdlhIM1VsSnFsK2VMUVZPaVkzd0dDYW5aTnFiVlplOEJBaTNENnhtajliRXBsVlNaYmo3NUtJcWRVZVVFeWtiMXl0ajRZcU5PRFpVV0V4SVNaMmlSZ1pFUXlFU3VlamVUVzAyR3ByQzVKL1lCdFpPU0k4ak9jWGw5UFN6WWV5UlNMVytWd2VuMXRWbVp2cE1NaVVubXdhZmVmNDR0UzNDcFhWcGRrNFhwQ1JNSVQweDBwWmtsTWRKbVRlc2JLNmxKbTNMTHNwRHRZek9yc0lyWGN4eUEwZEdYb0ZmdGxhVDVaak0yTjZZZ0srQ0tSVzVQeGR0ZWRKQ1puRjI5bUsxSzR2VFY4Y05lemtMTFhENmZYMTJhTFcrVURQK3o0WU5rOUpDWU0xSktBNGZTNlV1WHBwY2pwTDNVdXBDeHJSdTYyUDlaYXY3eE1LWlh6S1M5SlRIU1ZvM3RHRWFtc3lvMUd4cWx5MHpIY2ZWcTZTRmUxYlAwaXpHVFMzcTJzTHFlVHQrN0wvVnZKWkhLZW9ld3cxbEhWYk9MNmdtUm00bTNPb3V4ZHpWbDVzTmt1WWlXYjZ1RDlma2hNR08xQUFoYXkyWXFFMCt0cWJYYnpRU1U4UEZwY1dqMGlsOHBieFdJbWtrcXRMTTZ1clI4NlBpUWlFaDRlYlJ3WktxUlNoZkR3YUhILzBoWFA3NTFBWXFJckhkTXpOZ1lZMk1JVDA5SStmVjEza1FOdWZubHNMcCtmMjU4TlRXWHpVMjdpQVg2cFpPT1JURkZrM0pJMWxVc2tjbXNybG1XSnhHS3hZckVva2xsYUtLK253K2ticzVtVnlmWHczdm9Tc1pZV3lqZEdGbTdJakdVVlJXUjJUU1VLS1d0OFVVUWlWcVllUDdaUVRuZnNqeUV4WVpxakVuQjJiVzFrYWNiSzFGTXJMSkpiVzdFYWlSVmJFQkZKVE02T2oxdUxJckZZTExad041Y3VpelZ1TFVvc0ZwUGllRXBtRnhkRkZ1TWo1ZlYwZUMrd3pLNnBuRWhpYmRZYXR4YnRSc3l1ZVh1b2xzUkV0MmdrN0hFOTQreXNMQzRXUlpha2JPOWFWckl6bVdKUkl0WlN2Vi9WMkVWYVNpbTNmOVRwUktOUmV6ejc2RmZudllqLy9PTmVSSlhhZWYweGxUZFBxS2hkOE9TcnRKNTdFZFNEbUNMZi9NcVg3UmQ3R3h0T3RQZFovY1ZmZTF0NzhHY2YxL3hOMTg3cGpTY2lvblJ2alY3ODA1QU8vWjkyNVgvOTQzcWwxcEVFckdUak0zSzMvZkhYTHJEM0dmNzZmLzlWTCtMLzRObExYb1R0cy9SdnFaOCs5NUgybUNKUzg2WWZlbHB6ZFlpd0xXODZUUGxYMGQrMlgzUkJqOGx6dndBQUFHQXEvVHNRQUFCNHF2Nmtya2hxMkw5cnVBQUVCTFVzQU1Bd2laeFNPYjhiQVNBWUdHTUFBQUFBVTFITEFnQUF3RlNNTVFEcXZ0RDNLdzUrNjcvVXZxNjlKVUFQcW4xNzJNRnY5ZjNrZzVZbDltMkJZZ3ZsbG5zY0hGaGV2Mi9lN0JyRGJRRkhBdFZqVXNzQ2RkWUE2UUQ0NXJuYWRmQmJGMXJtSzltWnJSdEtKUXFwZUxheVg4M2FkL0JTcWo1ZmtFbkcyd0p1QktySFpJd0JVR2YxRHppWS9HNDEwQ1V1Zk83LzJOTlR0WHY4MUx4bVM1REs2dExvWkVKRUVwT2pUVThZS3R6T0ZJdVp2ZWZnRmxiR3g2MTRCNS9GQjNTZFFQV1k5TVJBblhXT2RBQjg4MGZmQ3VsWWMzUWtJaUlpa1pIUnZkRUhoUlZaVXlvaGxXeDhKbHRKVEVTdUs1VXJwS3g0dG5VZ0FvRFRDVlNQNlVOVGZ2U2FKOC93K095bi9zU0xzRHNmdkt3OTVzY3VlUEVvTGZuRXhhZGVoTDB3b0wrMUwvVTdPWm5vdVNDZE1lbTg3MTZ1YVkvWi8yT2F0OG5kUDlIL1RDM3J3Z3U5QWMrL3BEOWx0RDlPNmR5QTVyL2F2YWRLeXhhNHVWVVdDWXVVdHpabG91Vm40WW5wMFZXUmNEZ3NJb2xjK1VGcXRTSUJMMlovL3VYSFhvUzE5UGRzSWlMNTcveUM5cGdEbHY1L1RTTHkweC83bmhkaFAzdnVBKzB4UDlIL0krMHhOUWhTajhrWUE2RE9HaGh3TUxVTlZjbkdMYXZwSEtZOWIxbFc0eHduZ0JaUGxPVmdhZ2tTbnBqZVhDbUlTR0ZsYzNxaVVhVkdSdXlGVXQ2UzRiM1N0Yks2MURRSDRDdzA5cGp1QmFpc0JudzIwSzhsVE10VkppSlNLUS9YNXd2WmJFVExtd0RkNXVtaHd0U0pjUHFHV0pZbHNZWHllbGdxMmZqdDRmVmNJbjEzSkc1WjR6SzdwbkwxR3hxSXhCYks2OXpFQUhCSVU0K3BCYlVzVUZmNDFqKzNYeVErbnpsaHpmKzNjUFNhaGR1WllsRWlWbWIvZGovaFJMM0hMRHlRQ1RwUG9KMG5TazkvMVB4SXNIQjZQZGQ0b2RMN0MvZGVBM0FvU0dNTUF0UVV3RitKVjc5Y2Y5Vi93dGliNDlac3Vjcmt3Rmc4U2xuZ1NFOVZnQTd6QURqQlNSMWxKMUhMQWcxYTl6THJWNWswbzVRRmp2WlVuZk83Q1FCT2plT3lRQkJwMmN1TWpHemVMa2dpSWVVdEdUNXdJcE5TRmppR3JqRUdBRHFCNDdKQUFDa3RJOW5EclZlWjNCNWV6eVdFVWhZNDN0T2EvaHV1QWZDSW5oNVRFMnBab0VIVFhtYkxWU2FOcTFBU2FTNDNBWTcyaERFR2dFRTRMZ3NFa0JvSVVHWUN2WVl4Qm9CQkF0Vmo4cjhEcUZQOUFUcGpBdlNhcHpXT3l3TEdDRlNQU1MwTDFBVnFMeFBvTmR6SEFEQklvSHBNYWxtZ29WL0hZNGNBT1BLVU1RYUFRWUxVWS9LL0E2aXJCV2t2RStnMWpERUFEQktvSHRObFUwcnp5V1F5bVV3dlYvZVhWWmZUOHlWM1lRRWZxSDdMd2VSM3E5c2lNV0dlcDdVQkI1UGZyVDRURWhQZEkxQTlwcXRhdHJxOEhjdm44L2szTDkxYmF1UmlhZjdhdlljYUdnWjBXcUF5MHcwU0V5YnErbHFXeEVRM0NWU1A2ZW9mUVdocUtpUWlNaFo3L1ozdHFveUZwRFJmak4yNSttanB3R3JSYU5SK3NiT3o0K2J0Z09PNTNNQlVYeEFMVXdkSVRQakM1WWJVOWVObFNVd0VTamYxbUpyK2R3eGR1UndTS2MwWFkzTnpzdnpPd1I5dWJHeUlTRFFhSFJ3YzFQTjJRRHN1TjdEYXVRQmxwaDRrSmpySTVZYjA3RVdYMTdMN3pwU1kzL09oZ2VnRjNkUmo2dmpmVVpvdkRzM05TWFg1bmZ2M0g5Ni9MeUlpU1hrelB6ZW1JVGpRS1NwQUE5bDFJREZobEdjcVFMZXI5QkNKaWE0UXFCN1RkUzFibWs4V1kvazVFUWxOWmZOVElsSmRUaThOWlVsTG1DYVlnMThkSWpGaG1xZTljRnlXeEVTMzBOWmpGbExXK0tMSTdKcktKUTR1aWkyVTE5UGgwOFJ3ZWUxWE9ubnJ2dHkvbFV3bXVSQVRwcXYxV3c0bXYxdmRCb2tKRXoydkRUaVlEc2VwWk9PV1pjV3psUk9XVjdMeFZNSHJQNm9aaVlsdW9xdkhMTWlrVWtydEY3SlN5VDZZVkVxcHRkSE03Vk9tcU10cnYrejl5a05MNTl4RUJmelJOVmVla0pndzBiT2FqakVHbGV6TTFnMmxFb1ZVUEZ2WlA2WlR5Y1puNUs1U2U4ZDRDcWxJcGppN3B1RWRUNDNFUkRjcExuM0Zmbkg1alg5eS9KcnZ2WFBNbW9XVjhmSHhnd2RndzJuN2RXSnk5dWFEaWlST2NXVDIrTjY3a0xKdWpwejJFQzlndGtCZGxYa3NFaE5kNkQvRy80WDk0cSs5Ky9lUFgvTS9YL2xuUjYxWldWMGFuVndYa2NUazZNM1ZTcjFQbE1MdFRMRW9FU3RUUDQ5WlNLMU1saGMyYjJ2OUEwaE05SksvOUt0djExK2QxSFVldDJZbGNsMnBYQ0ZseGJOdFVtZGtldUowMlhUOEdJTkVUdDJWR2N1eUxLdXo1MktBenFzTk9KbjhRR0tpQy8yVi96Wm5UODlxQThkUHpXc2VDak02RWhFUmtjakk2TjZ5d29xc0thVlVlV0h6WnJZaWhkVEs1UDRKVFgxSVRQUVFQVDFtT0J3V2tVU3VQTDIxMmpJc3FKQmFHVDd0anVHSjQyWEQ2WFdsbEZLVEs1YlZkZ3dTMENWVW41UEpKeVFtdXMzekYzME9wa05oTnJmS0lpSlMzdG84OUxQd3hQU29sTE0zRnhmSExTdVNLUzZPNnk0NlNVejBDcTA5Wm1WMVNZYWI2OVpDeWpyTEh1ZXB1dUpLTm02Tkw4WVd5cXErMDBsK29nc1pkKzBYaVlsdThyelc3MkJxQ1JLZW1ONWNLWWhJWVdWei8vUmtaTVJlS09VdEdVN1V5ODN5UXF6NXltbDlTRXowQWkwOXBuMUZwbVhOeU4xY29uRkJwcDFCc2poKytqTWN4OWV5aFZUalRaUlM2K2x3WTZmenJ0d21OOUZ0VkwrVHlROGtKcnJRN290K0IxTnJsSEQ2aG94YmxuVno1RzQ2M0xoWFFUaDlkK1NtWlZsbk90SnpkaVFtZW9pV0hyTnhJcU0rVkRhY1hzOGw5aFlldkx2QnNVNGE3dGQrdDdXOHRiZzFuQk1HdUtPYm1IU25kaElUWFdlM3BtZklUaUtuVks3K09weGV6elZlcVBUQjlmWitwaEdKaVo0UnFCN3pwUDhkaXl2dGp1OG1jbDZjbUFGOFZldDNNdm1EeEVUWDBUUmUxbGNrSm5wR29Ick1FKzVqTURsN1lMNlN6WEp4SnJwV242UEpCeVFtdWxDdDF1ZGc4cnZWelVoTTlKSWc5WmduakpkZFdWd2N0L1pGTWx0ZU5RVHdXNkQyTW85RllxSUxQZC90ZHpENTNlcG1KQ1o2U0tCNnpKT095eTRzbE5XKzhzS0lWdzBCL0diT1BibElUSFNobXJJY1RINjN1aG1KaVI0U3FCN3poT2QrUFpDSi9WRStsZXpNMXZDNlZ5MEJmQmFva2V6SElqSFJoV292QWxXWU9rQmlvb2NFcXNjOHFwYXRaT09SVEZGRUpKTnBXaHhiT04yamNZL3pkMGFMN2dLMDk1K3FQKzlGMkw4ZStaL2FZejd6WmhQWTllYncvVTllK0tIMm1IMVdUWHRNOXpUdU10cjVjL0FSMCswWE9nb3M0a0ZpL3JtZmUrUXVRQnQvOE4yZjBCdndMNHpxdjdYUmdQVkNiOENhQndjZlBudnhBNzBCeit2K3E5MVR3UnI4ZWlZZUp1WUZhOWRkZ1BaKzUvdWVIRFArdTZGM3RjZnM5NmEvcUlrbiswNmZIL2krOXBqbnVyM0hkTytvV3RhK2dVa2htNDJrZWJZMGVvUFM5RURhU2pZK0kzZVZDcCs0OE94SVRIU3QycTY1eDJWSlRQUWNYVDJtRmllTWwyMUpTNjdLUkJmN2czODRaMDhuanZocFh2T1F3dTFNc1ppSkhIeGVTZHVGanBHWTZFS3Faam1ZL0c1MU14SVRQU1JRNDJWUENGeC9qQWxYWmFJSC9PeHZ6dHZUaVU4dWFWNnpWV0ZGMXV6TFBqWnY3ajNycCsxQ0YwaE1kS0dhNVdRS0VoSVR2U05RVDhvODRkcXZGVmxUaW5zOG95Zm8zV1VNVDB5UHJwNXE0ZG1SbU9oQ3l2eHJ2MGhNOUk1QWpaYzlZWXpCOVpFSHphZElPR09DTHFabkx6TXlzbWsvK3FlOEpjUGg0eFk2UjJLaUMxa3ZMQWVUMzYxdVJtS2lod1RxdU93SmRYVjVLOE9kbjlFajlJeitDYWZ2anR5MExNdGFtY3dscEpLTnB3cXRDOTBqTWRHRnpCOWpRR0tpZHdScXZPeEpZd3cyRjhxS3l6TFJFOVNBMGhMSHZxUjU3M1h1MEVMWFNFeDBvWUFkWkhXQXhFUVAwZFZqYW5IQ0dJUGNqZUZ5MHp4blROREZBcldYZVN3U0U5Mm81bWdLRUJJVFBTUlFQZWJ4Z1F1cDhYSE9tS0JIcUg3bFlQS2pwU1FtdXBENTQyVkpUUFNRUVBXWUp4eVg1ZW5TNkNHV284a0hKQ2E2a0ZWek1nVUppWWxlRXFRZTg0UUR2aTIzZmc2bjA5eHVCTjFLRFNnSGt5OU5KVEhSZmF4ZHk4RjBPRTRsRzdjc0szN29Sczc3eSsxWDdkWnhpY1JFN3doVWp4bWsrNE1CL3VwVFRpWUFPdWc1TGx2SnptemRVRXJkMkpwcHJsUWJENUZXNittd3lNUmRwWlJhRzExYTFWek1BcjBqU0QxbWtKNm5DL2pLcDhHdkFFUkV5bCticzE4TTM1by9mczBIYng2NVptVjFhWFJ5WFVRU2s2TTNWeXVONDZTRjI1bGlVU0pXWm5aTjVSTGhjRmhFS2c5R2JuRFBBY0NoUVBXWUxvL0xsdWFUeVdReW1WNnUydlBWNVhUekxHQVFxMTg1bVB4dWRWc2tKc3l6OTJqb0U0L0ZOcTk1eU9oSVJFUkVJaU9qZThzT1BVUzZrTEtzU0NhejB1SGJESkNZNkI2QjZqRmQxYkxWNWUxWVBwL1B2M25wM2xKSlJLckxiMjIva2MvbjM5aCtpOXlFZVlKMHhzUU5FaE1tc2w0NG1RN1ozTEp2aTFYZTJqejBzL0RFdEYzZ0puSjJaZHZSWXBiRVJGY0pVby9wcXBZTlRVMk5pWWlNeFY1L3RGMlY2bnZ2WG9xTmljaFk3Tks3NysyblpqUWFqVWFqSXJLenM3T3pzK09xdmNEUmRocWMvYnJWcHh4TWV2OEVMVWhNK01KdEF1b1lMeHVlbUxZTDFNTEs1dlRFOFErUkRnOVAxNC9oZGdhSmlVQUpTbzlaU0ZtV1pWbXBwaDFMKy9MTTFPbDNOVFdObHgyNmNqa2tJcGVHWGhFUmtWZUdMbTN2LzNCalkwTkVvdEhvNE9DZ2lNaDM5THduMEtLK2dUblZGNlNubU9oeHBzUUUzSEc1SWJVN3lIcDI0ZlFOc1N4TFlndmw5YkJVc3ZIYncrdTVSUHJ1U055eXhtVjJUZVdra0xMR0YwWEVudlBEbVJMeit6NDBFTDBnSUQxbVFTWlZheUtHMCt0bGlkOCtmUkFkdFd4cHZqZzBOeWRTbFVmYmowVkNJbyszSDhsbERaR0JEckw2Z25XelNyZElUQmhGVHkxcmp4OW85SXh0SHlMZHZJSVBTRXgwaFcvK3pkK3dYNFNYYmg2L1ptWDZ4dEZyRmxiR3g4ZGpDK1YxVnhkaXVxNWxTL1BKWWl3L0p5SVN1bnpsMFZKSnhzWkt4VWRYcGtOdUl3T2QxUmZRQzdrY0lURmhHbDIxYktDUm1PZ1d3Ly8rTiswWGZmMHUxcXhFcml1Vks2U3NlTlpOT2V1cWxxMHVwNi9kZXloeVAzbGZYbjh6UHpjMjlZWWtrMGw1OWVxZExJa0owL1JaWFZMTGtwZ3dVY0FlNHFVZmlZbHVvcWZIdEcrUWw4aVZINlJXSytLNG1IVlZ5NGFtc3ZtcEEwdkc1dkw1T1RjaEFkOE1ESFRKY1NFU0V5YnE2NUw4T3hLSmlXNml0Y2VzckM3SmNQcms5WTdDYzcrQXV2Nittb1BKNzFZRDNhTG1hQUxnQnkwOVp1TjUwak55TjVjUXFXVGo5czBMQ3FsSXByZzRmdXJIVFBQY0w2RHVYRDhkSStDYnJqOHVDM1FUTFQxbTgwV1owblN4NWxrdjBLU1dCZW9HT01nSytLY25ydjBDdWtXZ2VreHFXYUJ1b0orK0ZQQU50U3hna0VEMW1OU3lRTjA1em5FQy91bDcwU1UzRWdGNlFhQjZUR3Bab081Y2tNNllBTDJtNisvSkJYU1RRUFdZMUxKQTNmbitYYitiQVBTdVB2SVBNRWVnZWt4cVdhQXVVSHVaUUsreGFvd3hBSXdScUI2VFdoYW9PeCtrMFQ5QXI3RUNkSlFId0FrQzFXUHlyQVNnN2x6ZnJvT3BiU2o3L3M4SGJ2TmNTRm1XWlZuMmZhQUJ0T3A3b1J4TWZyY2E2RkVhZTB6M2ZEZ3UrN1hQbEwwSSt6TVh2dXRGMkpmN25tcVArVlNkMHg1VFJLclBQK1ZGMktjMS9hMzllUDhUN1RIZHU2QnA5RThsRzUrUnUwb2RlTEIwUVNiUGR1dm5qdnNQNFc5b2ovbHZQL3NadlFGL3JQOGp2UUZGNUludWZQekI3c3Q2QTRySUUzVmViOENYUFBqUDVwSkZZZHJPcjMzU2s2N3RsMTc2cGhkaFgrN3IxeDd6dzVvbngvOCtVUHFiS2lKLy9PS2k5cGd2OVQzWEh0TTlYVDJtRm93eEFPcCtLL3JiOW90cnYvZTNqMS96em12LzV1ZzFDN2N6eGFKRXJNenNtc29sR2d0WHhzZkhZd3ZsOVhUNDBDOEFFTzVqQUJqbGZKRHVDRTB0QzlTbGYvOXYyUy9PbjdTN2Z0eWFoUlZaVXlvaGxXeDhKbHRKMkxWckpYSmRxVndoWmNXemxMTkFXMzNQT1M0TEdDTlE5ekZndkN4UWQ4SGFkVEFkRlMwOE1UMjZQeE1PaTBnaVY1N2VXcTBjOVJ0QVQ3TnF5c0YwT0U2YjBlcXR5K3VqMXcrdkErQ1U5UGFZTGxITEFuWG4rM1lkVEsxUklpT2JLd1VSa2ZLV0RMY2NnYTJzTGgxYUJrQkVSS3dYeXNIVUdxV1NuZG02b1pTNnNUWFRYS2syUnJHcjlYUzRrbjB3cVpSU2E2T1oyMXlMQ1RpanA4ZlVoREVHUU4xRkxidU00ZlRka2JobGpjdnNtc3BKSlJ1L1BieCsvVUU4a2ltS3hCYks2NG1UUXdDOTZIZC81MnYyaTE5Ni9SOGR2K1ovdmY4UGpscXpzcm8wT3JrdUlvbkowWnVybFhSOVJNL0JVZXoxcFluSjJac1BLcEpnOXhJNE96MDlwaWJVc2tEZGhYNDkxNHFHMCtzcXZmODZKeUtKL1NVQTJ2ckNsVnYyaXhOUEZ4Njc1dWhJUkVSRUlpT2pEeHJMMm81aUY1R1I2UWtLV2NBUlhUMm1GdFN5UUoxM1Eza0FuRXpQUGJrMnQ4b2lZWkh5MXFaTXRQd3NQREU5dXRxWUthUldobk9Cdms4ZUVHQ0I2akdwWllHNkMxYUE5aktCWG1QdGFyZ3BWM2hpZXZOMlFSS0p3c3JtOVBYR1FkZklpTDFReWxzeW5CWVJLYVNzbGNsZzMvRVpDTFJBOVpqVXNrRGRoVURlanhyb0VkWUxIYmVyREtkdmlHVlpFbHNvcjRmckE5WnppZFpSN0pGTVVXVFJXcFRtdTBBRE9MMUE5WmpVc2tCZG9FYXlBNzFHeTNGWkVVbms5aCt4Vngrd2ZtZ1VPK1BYQVpjQzFXTlN5d0oxZ1RwakF2U2NGeno0Q3pCR29IcE1hbG1nN21LUXpwZ0F2Y2FpbGdYTUVhZ2VrMW9XcUF2VVhpYlFjM1lEOUhoM0FNY0xWSS9wOHJsZjFlVjBNcG1jTHgxYWxGNnV1b3NzSXRMM3ViSTl1UThGbk9pQzlkekI1SGVyMi9Jd01jbEtlR1YzMThsa0VucE1kQTl0UFdiOWtkS3A1b2Z3SGZVazZxTzRQQzRibXNyZWtmVFMzbngxT2YyV2ZEV2ZEN2tMS3lMU25KQjlueXZYL2pEaVBpWndqSXRXMXh3Vzhpb3h5VXA0cVB2SEdOQmpvbnZvNmpFTE1xbGFibzlYZnhKMW9wQ0taeXZyNlZNODBFVHZHSVBTMHIySEQrVmE4dDdyYitibnhocExvOUdvL1dKblowZEVQcTMxTFlFOTlnYm1XS0R1L0t3VmlZbE9jSm1BcGgxa2RZL0VoSjljSnV4cm4vKy85b3ZON1JOMnhrYUhxa2V2V1ZnWkh4K1BMWlNiU3RZam5rUjlISzIxYktrb2IrYnpZMUpkVHIrMVhCMmJxamQ2WTJORFJLTFI2T0Rnb0lqVXZxM3pQWUU5OWdibTJFVkx5Mk9IZ29mRVJFZTRUTUNlR3k5TFlzSlhMaE8yOHZpbjdCY1hMUmRyVmlMWGxjb1ZVbFk4MjFUT3Ruc1M5YkZjanBkdEwzVDV5aVhYUVpwUGtYQzZCQjF3MFZJT0pyOWJmUWJ1RTVPc2hIZlU3cTZEeWU5V2EwQ1BDUlBwNlRIRDRiQ0lKSExsNmEzVi9jR3htMXYya0pueTF1YnBHcU8xbG4xbDZGR3hKQ0x5ZUZ1R05Bd0FxdjFoeEo3Y2h3Sk9kTUhxY3pENTNlcFQwSnFZWkNXODB2M1hmaDFFandtVGFlMHhLNnRMTXR3NEtodWVtTjVjS1loSVlXVnpldUlVbzJYZDE3S2wrYjl0TkNRQUFBb3JTVVJCVkd2M0h0Ni9aVitFR1pyNjZ0QTd5V1F5V1l6dGovMEJESEZCK2gxTWZyZTZQUklUeGxIUGR4MU1mcmY2YkVoTWRBMHRQYVo5dndMTG1wRzd1WVJJSlJ0UEZld25VWTlibG5WejVPNXBMdndTOStObHgrYnkrYm45MmRCVU5qL2xNaVRnai9OV1FBdFRCMGhNR0VlOU1Ld3dkWURFUk5mUTBtTzJQRkI2NzZIVHpVK2lQZzJlbFFEVVhmemNRNytiQVBTdWJ6ejdkMzQzQWNCcEJhckhOR0cwSHdBQUFOQU90U3dBQUFCTVJTMExBQUFBVTFITEFnQUF3RlRVc2dBQUFEQVZ0U3dBQUFCTVJTMExBQUFBVTFITEFnQUF3RlRVc2dBQUFEQ1ZEOC85K3NYZit4dGVoUDJ6bi9tT0YyRWYvT0RIdGNkODZmd3o3VEZGcEYrVUYyRXRTMy9ZQy8wdnRNY1VrVi8vV1MraTlvcmYrTzR2YUkvNWN4OTdyRGRnL3Z0L1htOUFFZm5Fd0JPOUFUOXo3a085QVVXa3o2cnBEZmhNZGM4VG03dmJMMy96QzE2RWZmckNrOTYvK3NFbnRjZThNT0JKZi9GMDE1TVVxTlgwSHlMczc5ZWMvcmJmLzd3WFVmM0JjVmtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcHFLV0JRQUFnS21vWlFFQUFHQXFhbGtBQUFDWWlsb1dBQUFBcG5KWnkxYVgwOGxrY3I1MGNENjlYSFhiTGdET2taaEFBSkdZZ0NkYzFyS2hxZXlkcTY4MjVxckxiMjIva2MvbjM5aCtpOXdFL0VOaUFnRkVZZ0tlR05BWXEvcmV1NWRpV1JFWmkxMTY1NzNxMUZUSVhoNk5SdTBYT3pzN0d0OE9hTUVHMWhhSmljNWdRem9URWhQKzZxWU5UR2N0SzNKcDZCVVJFWGxsNk5MMi90S05qUTBSaVVhamc0T0RXdDhPT0lBTjdBaW5TOHh2K2RFMGRCRVM4SXhPbDVqLzI0K21vUWQwVThMcXZmYnIwZlpqRVJGNXZQMUlhMXdBTHBDWVFBQ1JtSUFlT212WjBPVXJqNG9sRVNrVkgxMjVITklZR1lCakpDWVFRQ1Ftb0l2Yk1RYWwrV3YzSG9xa2grNWtwMEtocVRja21VektxMWZ2WkVsTXdEOGtKaEJBSkNiZ0JiZTE3TmhjUGo5MzVDd0FYNUNZUUFDUm1JQVhlRllDQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZOUnl3SUFBTUJVMUxJQUFBQXdGYlVzQUFBQVRFVXRDd0FBQUZPNWZZYXRBNTlML2RDTHNELzRzT1pGMkUvLzhJSDJtRmEvSng5NzM4Y3VlaEhXK2pPZjFCLzB5VlA5TVVYa2p6eUoyaU1LL3pxdVBlYnYvckhTRy9EOEIvclRYUFZiZWdQdVh0UWNVRVNldjZ3NVp0OXp6VitOaUZ6L0xlMGhJVTkrV2Y4M0pTTHF5Wjk2RWZZbm4zeFBlOHphN25QdE1VWEVzanc1bG1mMTZROWJlLzVNZTB3UkVVK0tKbjl3WEJZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBUUFBWUNwcVdRQUFBSmlLV2hZQUFBQ20wbDNMbHVhVHlXUXlPVi9TSEJlQUN5UW1FRUFrSnFERGdONXdKWW5sODNONll3SndpY1FFQW9qRUJMVFFXOHVXaXJkdTNYcjE2cDNzVktocGFUUWF0Vi9zN094b2ZUdmdBRGF3STVDWTZBUTJwRE1pTWVHbmJ0ckF0STR4cUw0eW5jL24zOWkrbGw2dU5pM2UyTmpZMk5nUWtjSEJ3Y0hCUVozdkNEUVpiUEM3SVFGRFlxSWpTTUN6SVRIaHEyNUtXSzIxYkNnVUVwR3h1VHRYdHQrcm5yZzJnSTRnTVlFQUlqRUJUYnk0ajBIMXZYZGxLSFR5ZWdBNmlNUUVBb2pFQk56U09WNjJ1cHkrZHUraHlLdFg3MlRITk1ZRjRBS0pDUVFRaVFub29yT1dEVTFsODFNYTR3SFFnTVFFQW9qRUJIVGhXUWtBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk5SeXdJQUFNQlUxTElBQUFBd0ZiVXNBQUFBVEVVdEN3QUFBRk5SeXdJQUFNQlUxTElBQUFBd0ZiVXNBQUFBVEtYekdiYW5WSGo4VDArLzhzN096dURnb040R2VCSFRyTEEwRllmOWo0VzVVNjZwL1VzeFpjdnB6VCtjSFBSWDRkdi84dlFyRzdGRkdSZVdwZ1lmeDJVQkFBQmdLbXBaQUFBQW1JcGFGZ0FBQUticTZIalphRFRheWJjRGNCb2tKaEJBSkNad1dpcllYbnZ0TlNOaW1oV1dwc0lON1YrS0tWdE9iLzdoNUtCQmpOaWlqQXRMVTRPUE1RWUFBQUF3bGFXVThyc05BQUFBZ0JNY2x3VUFBSUNwcUdVQkFBQmdLbXBaQUFBQW1DbzR0V3hwUHBsTUpwUHA1ZXJCQmZNbEVaSHFjbnJ2dFlPbzlWKzBvelRld2tITTFsODVHTkJ4L0VOcmFtajI4WitudTQraXVweHVyS3ZuRXpqWU50M2ZHaHp6SUN0MWZybGU1S1AyWlBRc0UvV21JVGxvR0hwTWVreXl0WW5mTjFLb2UvejFyNyt2bEZMdnYvM0Z0OTlYU2luMS92dnZ0Njd5cGJmZlAvU0x4enNRcEJIZy9iZS85UFhIam1NMi9VcExRRmZ4RDZ6cHZ0a25mSjZ1bXZyKzIxLzhZajJxcGsrZzVidjI0RnVERTE1a3BlNHYxNHQ4MUptTW5tV2k1alFrQjgxQ2owbVAyWDYyVjdNMUtNZGxRMU5UWXlJaVk3SFhIMjFYUmFSVXZIV3JhUmZKbVFOQnF1KzlleWsySmlKanNVdnZ2dWN1Y0x1QSt1SnJhUGJ4bjZlYnBwYm1pN0U3VjE5dEY4ZHAySmJ2MnR0dkRhZm5RVlo2K09WNms0OXVHK3hSSnVwT1EzTFFNUFNZZXB0TmoybTZvTlN5KzRhdVhBNkpWRitaenVmemIyeGZjNU9jclVFdURiMGlJaUt2REYzUzB0VFdnSnJpNjIxMis4L1RhY3pTZkRFMk43WS9yK01UYUdtYjU5OGF6azVYVm5yNzVYcVFqeG9ickRFVHRhY2hPV2d1ZWt4NlRMSTFjTFZzYWI0NE5CVVNrVkFvSkNKamMzZXViRHZmdFdnTjhtajdzWWlJUE41K3BLT3hod0pxaXEreDJVZCtuczVpVnBmZnVYLy9Wako1N2Q3RCs3ZVM4eVU5bjBCTDJ6ei8xbkJHR3JQUzJ5L1hnM3pVMVdDZG1laEJHcEtEaHFMSEZIcE1zbFVrV0xWc2FUNTVjQmRHcFByZXV6SVVjaG0zSGlSMCtjcWpZa2xFU3NWSFZ5NjdEU3JTR2xCM2ZOZk5QdnJ6ZEJvek5KWE41L1A1L0oycnI3NytabjV1VE9zbjBQSmRlL1d0NFd3OHlVcFB2bHd2ODlGZGd6Vm5vbmRwU0E0YWhSN3pBSHJNM3M1V3Z3ZnMxajMrK3BlKzJQRDIrM3V6ZTRPWDdlSFR6UXRPSDdNMXlONjhnNWd0djlJMm9JUDR6V3RxYWZZcFAwK0hIMFhUVUhMM24wQkwyN3o0MXVDTTlxelUvdVY2a1k5Nms5SERUTlNYaHVTZ2NlZ3hOU2Fwb3NjMEg4K3dCUUFBZ0ttQ05NWUFBQUFBT0F0cVdRQUFBSmlLV2hZQUFBQ21vcFlGQUFDQXFhaGxBNmVTVFdVcmZqY0NBTWtJQkI1SkNxR1dEYUR5MXFiZlRRQWdRaklDZ1VlU1FxaGwvVlpJV2FsQ0lXVlpsaFhQVmtTa2tCcGZMR1lpVnFwUS8yazJHN2QvWnE5VlgwMWFad0c0UXpJQ0FVZVM0Z2grMytDMmw1VVhZaUlpTXJ1bTFOcXN4QmJLcWx4ZVc0akZGc3I3UDdWbjFOcXMvYUsrWHNzc0FGZElSaURnU0ZJY2FjQ0g4aGwxNGZUNjJwYTFNcGxMaUZSR1lpSWk0WENrOWFmcHNJaFVIbXdXTXhFckl5SWlzK1dLSEpnVkNmdlFmS0I3a0l4QXdKR2tPQkpqREl3eHU5YllBY2tsRHM4QzZCaVNFUWc0a3JTblVNdWFJVHc4dXJoU0VCR1JRaXBWYUpuMXMyVkFqeUVaZ1lBalNYdU90ME1ZY0t5MVdSRVJtVjFySHVsakw1eGRhL3kwTWJxblB0dll2V3laQmVBR3lRZ0VIRW1LbzFoS0taMmxNUUFBQU5BcGpERUFBQUNBcWFobEFRQUFZQ3BxV1FBQUFKaUtXaFlBQUFDbW9wWUZBQUNBcWFobEFRQUFZQ3BxV1FBQUFKanEvd05ZR2REbWRJeUpjUUFBQUFCSlJVNUVya0pnZ2c9PVwiIC8+XG5cbjwhLS0gcm5iLXBsb3QtZW5kIC0tPlxuIn0= -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA5kAAAEzCAIAAAA0LFDQAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO3df2wj6XnY8Wck7Q/f2W5sK3Ecnpy9gFRQRQnaHFt1SSzQQ+AWlGpCRRS1PaSrAEXFboCalI013Nz+1eyi6C16EvtrQRUpstviCshqK7CVCLhpFsVBvCOgFGmhKuiS7m6rpWM7sh1fcuf9oeXbP4aUKIr6NfMOZ17y+8H8wRmNHr4i59H7zMw7M5ZSSgAAAAAD9fndAAAAAMAhalkAAACYiloWAAAApqKWBQAAgKkGOvZO0Wi0Y+8FbGxs+N0EM5CY8AIJ6BKJiU4yPWE7V8uKow9rZ2dncHBQbzO8iGlW2K5vKt3AmZw1MbV/0cHZcjocs1sbSQJqQY8ZkLBd39QuSFjGGAAAAMBU1LIAAAAwVUfHGNgSr37Zk7jnz3sRtfbxC9pjqvOefOx9Hz3zIqx48DQN60eeNLVQfsuLsD3iC32/oj1m38WPaQ74iZf1BhQR+dhFzQE//EhzQBH1oqY3YO1PP9QbUES+8ewd7THxi39v3ouwTz/lRVR58uP6+4sXL2ne+G19P/LmWJ7lQcgX+mOKyDe/4k0x5geOywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBUOmrZ6nJ6vnTkLABfkJhAAJGYgG7ua9nS/LV7D4+cBeALEhMIIBIT0G/A5e+X5ouxO1cfLbWftUWjUfvFzs6Oy7cDjsEGtofEROexIZ2IxERwdNMG5u64bGm+GJsbO2q2YWNjY2NjQ0QGBwcHBwddvSNwtMEGvxviNxITfiABT0BiIki6KWHdHJetLr9z//7D+/dFRCQpV68+ap59M98mSQF4jcQEAojEBLzippYNTWXzUyJSXU4vDWXnxkSmDs4C6DwSEwggEhPwCvfkAgAAgKncXvslIhKays4dPQvAFyQmEEAkJqAbx2UBAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgKmpZAAAAmIpaFgAAAKailgUAAICpqGUBAABgKmpZAAAAmErHM2zP6OnP/IQXYT/63Hkvwj5/ydIes/+p0h5TRGoDL3sR9vnL+j+BvhfaQ8KtgVd/WnvMp5cG9QZ88VK/3oAi0v+R5s2xdk5/yjz/hOb/1dYLT/4LQbsf/uUfeRG2r7/mRVipedBjKv0xRaR/0JN+6DOf/FB7zKe7PpRqZuG4LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAEw14Oq3q8vpa/ceirx69U52KrQ3KyKvv5mfG9PRQABnRWICAURiAt5wV8vK5a/mp0JSmk+/V52aksdDX83nQyJSWl5+RUvzADhAYgIBRGICnnBXy4ZCIRGpbg+9MRUSkbH6fmVpWy437WJGo1H7xc7Ojqu3A47FBlZHYsIPbEgnIDERJN20gbk8Liul+eSt+yKvD02N7eViS2LKxsaGiESj0cHBQZdvBxyDDWwPiYnOY0M6EYmJ4OimDczttV9jc/l8/s7VR8XS3qLStlwOuQwLwA0SEwggEhPwgpb7GISGrgztjfYhMYFgIDGBACIxAc1cjTGony6xr8FsLGs5XQKgw0hMIIBITMAjrmrZsbn8XkbuLZuachMSgFskJhBAJCbgEZ6VAAAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAw1UDn3/K7r13wIuzzj3sRVWrn9cdUfZb+oCK1C8qLsNZzD8J68gHAle9d+SntMZ99XPM3XTunN56IiLI0/xv04p+GeJLcMMBfHd7yIuwPnr3kRdg+S/+W+ulzH2mPKSI1b/qhpzX9ZRUd5ok4LgsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQsAAABTUcsCAADAVNSyAAAAMBW1LAAAAExFLQuISCUbt5rFs5UDy1OFw79TSO2var+OZyuFbLbS+EmTdr8PoO6oBOxkAzr+noCpTtszNi1qXlV/F+mulq0up5PJZDKZXq6KiEhp/sAsYIpwer28EJPZNaWUUmuzxUwkVbCXq/JCTBZvtvZzlezNRYktlNV6OlxIjW8ulJW6KzPjSyKSyKnyQiy2UFa28sJIR/8aEhOGOSoBO6SQimSK3r8NiYkucbqesbGssCKzs4sr+xmtv4t0eVz28lfz+Xz+zUvvvlcVqS5vx+zZe0sll+0CfJS4vhCTzQd7OTq9sCCZ2we61sqqTC/E9udHh8Mi4fT62nSbeOF0OuFZY9shMWGy1gT0/g1z5eZs9gyJiW5yip5RRKSwIpO5yQPFbAv3XaS7WjYUColIdXvojamQSGhqakxEZCz2+qPtpv3MaDQajUZFZGdnZ2dnx9U7AkfbaXAZp5KdyRRj0xN7e5UynL5xMBELt7eGJ/bmEpOzi+P2SZJEen9ntBEt2+kBBiQm/OBNAtbPZqayhYJd3NbPT6ay2VS2Ys+kCvXF9nnNvTOY9rHdQspKZbNx+6etJ0Dr8x05LktiIkjcJ+wJPaOt8mBkMiGJI4tZLV2k2/Gypflk8tq9e8WDe5VDVy6H9uc2NjY2NjZEZHBwcHBw0OU7AkcZbHAcYXHcsiwrsjR94ASJiEji+sLm3tmUSnZl5HrzbmQip9ZmF8cPDhEqZiJ2J7nluD2OkZjoPE8SsHB7abqslJrcuvlARCrZ+M2RslJKTW5lNuupJyJNx1Yr2ZubC2WlyguxzQeVSjY+viiLS3JXqfV0OWX/9tpoZiZbkUo2Pi5rSqnOHJYlMREk7hP2pJ5RRKSyKsMJkTbFrM4u0m0tOzaXz+fvXH3UlJql+eLQVOiY3wGCanZNqbVZe8BAi3D6xmj9bEplVSZbj75KIqdUeUEykb1ytj4YqNODZUWExISZ2iRgZEQyESuejeTW02GprC5J/YBtZOSI8jOcXl9PSzYeyRSLW+Vwen1tVmZvpMMiUnmwafef44tS3CpXVpdk4XpCRMIT0x0pZklMdJmTesbK6lJm3LLspDtYzOrsIrXcxyA0dGXoFftlaT5ZjM2N6YgK+CKRW5PxdtedJCZnF29mK1K4vTV8cNezkLLXD6fX12aLW+UDP+z4YNk9JCYM1JKA4fS6UuXppcjpL3UupCxrRu62P9Zav7xMKZXzKS9JTHSVo3tGEamsyo1Gxqly0zHcfVq6SFe1bP0izGTS3q2sLqeTt+7L/VvJZHKeoeww1lHVbOL6gmRm4m3OouxdzVl5sNkuYiWb6uD9fkhMGO1AAhay2YqE0+tqbXbzQSU8PFpcWj0il8pbxWImkkqtLM6urR86PiQiEh4ebRwZKqRShfDwaHH/0hXP751AYqIrHdMzNgYY2MIT09I+fV13kQNufnlsLp+f258NTWXzU27iAX6pZOORTFFk3JI1lUskcmsrlmWJxGKxYrEokllaKK+nw+kbs5mVyfXw3voSsZYWyjdGFm7IjGUVRWR2TSUKKWt8UUQiVqYeP7ZQTnfsjyExYZqjEnB2bW1kacbK1FMrLJJbW7EaiRVbEBFJTM6Oj1uLIrFYLLZwN5cuizVuLUosFpPieEpmFxdFFuMj5fV0eC+wzK6pnEhibdYatxbtRsyueXuolsREt2gk7HE94+ysLC4WRZakbO9aVrIzmWJRItZSvV/V2EVaSim3f9TpRKNRezz76FfnvYj//ONeRJXaef0xlTdPqKhd8OSrtJ57EdSDmCLf/MqX7Rd7GxtOtPdZ/cVfe1t78Gcf1/xN187pjScionRvjV7805AO/Z925X/943ql1pEErGTjM3K3/fHXLrD3Gf76f/9VL+L/4NlLXoTts/RvqZ8+95H2mCJS86YfelpzdYiwLW86TPlX0d+2X3RBj8lzvwAAAGAq/TsQAAB4qv6krkhq2L9ruAAEBLUsAMAwiZxSOb8bASAYGGMAAAAAU1HLAgAAwFSMMQDqvtD3Kw5+67/Uvq69JUAPqn172MFv9f3kg5Yl9m2BYgvllnscHFhev2/e7BrDbQFHAtVjUssCddYA6QD45rnadfBbF1rmK9mZrRtKJQqpeLayX83ad/BSqj5fkEnG2wJuBKrHZIwBUGf1DziY/G410CUufO7/2NNTtXv81LxmS5DK6tLoZEJEEpOjTU8YKtzOFIuZvefgFlbGx614B5/FB3SdQPWY9MRAnXWOdAB880ffCulYc3QkIiIikZHRvdEHhRVZUyohlWx8JltJTESuK5UrpKx4tnUgAoDTCVSP6UNTfvSaJ8/w+Oyn/sSLsDsfvKw95scuePEoLfnExadehL0woL+1L/U7OZnouSCdMem8716uaY/Z/2Oat8ndP9H/TC3rwgu9Ac+/pD9ltD9O6dyA5r/avadKyxa4uVUWCYuUtzZlouVn4Ynp0VWRcDgsIolc+UFqtSIBL2Z//uXHXoS19PdsIiL57/yC9pgDlv5/TSLy0x/7nhdhP3vuA+0xP9H/I+0xNQhSj8kYA6DOGhhwMLUNVcnGLavpHKY9b1lW4xwngBZPlOVgagkSnpjeXCmISGFlc3qiUaVGRuyFUt6S4b3StbK61DQH4Cw09pjuBaisBnw20K8lTMtVJiJSKQ/X5wvZbETLmwDd5umhwtSJcPqGWJYlsYXyelgq2fjt4fVcIn13JG5Z4zK7pnL1GxqIxBbK69zEAHBIU4+pBbUsUFf41j+3XyQ+nzlhzf+3cPSahduZYlEiVmb/dj/hRL3HLDyQCTpPoJ0nSk9/1PxIsHB6Pdd4odL7C/deA3AoSGMMAtQUwF+JV79cf9V/wtib49ZsucrkwFg8SlngSE9VgA7zADjBSR1lJ1HLAg1a9zLrV5k0o5QFjvZUnfO7CQBOjeOyQBBp2cuMjGzeLkgiIeUtGT5wIpNSFjiGrjEGADqB47JAACktI9nDrVeZ3B5ezyWEUhY43tOa/huuAfCInh5TE2pZoEHTXmbLVSaNq1ASaS43AY72hDEGgEE4LgsEkBoIUGYCvYYxBoBBAtVj8r8DqFP9ATpjAvSapzWOywLGCFSPSS0L1AVqLxPoNdzHADBIoHpMalmgoV/HY4cAOPKUMQaAQYLUY/K/A6irBWkvE+g1jDEADBKoHtNlU0rzyWQymUwvV/eXVZfT8yV3YQEfqH7LweR3q9siMWGep7UBB5PfrT4TEhPdI1A9pqtatrq8Hcvn8/k3L91bauRiaf7avYcaGgZ0WqAy0w0SEybq+lqWxEQ3CVSP6eofQWhqKiQiMhZ7/Z3tqoyFpDRfjN25+mjpwGrRaNR+sbOz4+btgOO53MBUXxALUwdITPjC5YbU9eNlSUwESjf1mJr+dwxduRwSKc0XY3NzsvzOwR9ubGyISDQaHRwc1PN2QDsuN7DauQBlph4kJjrI5Yb07EWX17L7zpSY3/OhgegF3dRj6vjfUZovDs3NSXX5nfv3H96/LyIiSXkzPzemITjQKSpAA9l1IDFhlGcqQLer9BCJia4QqB7TdS1bmk8WY/k5EQlNZfNTIlJdTi8NZUlLmCaYg18dIjFhmqe9cFyWxES30NZjFlLW+KLI7JrKJQ4uii2U19Ph08Rwee1XOnnrvty/lUwmuRATpqv1Ww4mv1vdBokJEz2vDTiYDsepZOOWZcWzlROWV7LxVMHrP6oZiYluoqvHLMikUkrtF7JSyT6YVEqptdHM7VOmqMtrv+z9ykNL59xEBfzRNVeekJgw0bOajjEGlezM1g2lEoVUPFvZP6ZTycZn5K5Se8d4CqlIpji7puEdT43ERDcpLn3FfnH5jX9y/JrvvXPMmoWV8fHxgwdgw2n7dWJy9uaDiiROcWT2+N67kLJujpz2EC9gtkBdlXksEhNd6D/G/4X94q+9+/ePX/M/X/lnR61ZWV0anVwXkcTk6M3VSr1PlMLtTLEoEStTP49ZSK1Mlhc2b2v9A0hM9JK/9Ktv11+d1HUet2Ylcl2pXCFlxbNtUmdkeuJ02XT8GINETt2VGcuyLKuz52KAzqsNOJn8QGKiC/2V/zZnT89qA8dPzWseCjM6EhERkcjI6N6ywoqsKaVUeWHzZrYihdTK5P4JTX1ITPQQPT1mOBwWkUSuPL212jIsqJBaGT7tjuGJ42XD6XWllFKTK5bVdgwS0CVUn5PJJyQmus3zF30OpkNhNrfKIiJS3to89LPwxPSolLM3FxfHLSuSKS6O6y46SUz0Cq09ZmV1SYab69ZCyjrLHuepuuJKNm6NL8YWyqq+00l+ogsZd+0XiYlu8rzW72BqCRKemN5cKYhIYWVz//RkZMReKOUtGU7Uy83yQqz5yml9SEz0Ai09pn1FpmXNyN1conFBpp1Bsjh++jMcx9eyhVTjTZRS6+lwY6fzrtwmN9FtVL+TyQ8kJrrQ7ot+B1NrlHD6hoxblnVz5G463LhXQTh9d+SmZVlnOtJzdiQmeoiWHrNxIqM+VDacXs8l9hYevLvBsU4a7td+t7W8tbg1nBMGuKObmHSndhITXWe3pmfITiKnVK7+OpxezzVeqPTB9fZ+phGJiZ4RqB7zpP8diyvtju8mcl6cmAF8Vet3MvmDxETX0TRe1lckJnpGoHrME+5jMDl7YL6SzXJxJrpWn6PJByQmulCt1udg8rvVzUhM9JIg9ZgnjJddWVwct/ZFMlteNQTwW6D2Mo9FYqILPd/tdzD53epmJCZ6SKB6zJOOyy4slNW+8sKIVw0B/GbOPblITHShmrIcTH63uhmJiR4SqB7zhOd+PZCJ/VE+lezM1vC6Vy0BfBaokezHIjHRhWovAlWYOkBioocEqsc8qpatZOORTFFEJJNpWhxbON2jcY/zd0aL7gK095+qP+9F2L8e+Z/aYz7zZhPY9ebw/U9e+KH2mH1WTXtM9zTuMtr5c/AR0+0XOgos4kFi/rmfe+QuQBt/8N2f0BvwL4zqv7XRgPVCb8CaBwcfPnvxA70Bz+v+q91TwRr8eiYeJuYFa9ddgPZ+5/ueHDP+u6F3tcfs96a/qIkn+06fH/i+9pjnur3HdO+oWta+gUkhm42kebY0eoPS9EDaSjY+I3eVCp+48OxITHSt2q65x2VJTPQcXT2mFieMl21JS67KRBf7g384Z08njvhpXvOQwu1MsZiJHHxeSduFjpGY6EKqZjmY/G51MxITPSRQ42VPCFx/jAlXZaIH/OxvztvTiU8uaV6zVWFF1uzLPjZv7j3rp+1CF0hMdKGa5WQKEhITvSNQT8o84dqvFVlTins8oyfo3WUMT0yPrp5q4dmRmOhCyvxrv0hM9I5AjZc9YYzB9ZEHzadIOGOCLqZnLzMysmk/+qe8JcPh4xY6R2KiC1kvLAeT361uRmKihwTquOwJdXV5K8Odn9Ej9Iz+Cafvjty0LMtamcwlpJKNpwqtC90jMdGFzB9jQGKidwRqvOxJYww2F8qKyzLRE9SA0hLHvqR573Xu0ELXSEx0oYAdZHWAxEQP0dVjanHCGIPcjeFy0zxnTNDFArWXeSwSE92o5mgKEBITPSRQPebxgQup8XHOmKBHqH7lYPKjpSQmupD542VJTPSQQPWYJxyX5enS6CGWo8kHJCa6kFVzMgUJiYleEqQe84QDvi23fg6n09xuBN1KDSgHky9NJTHRfaxdy8F0OE4lG7csK37oRs77y+1X7dZxicRE7whUjxmk+4MB/upTTiYAOug5LlvJzmzdUErd2JpprlQbD5FW6+mwyMRdpZRaG11a1VzMAr0jSD1mkJ6nC/jKp8GvAEREyl+bs18M35o/fs0Hbx65ZmV1aXRyXUQSk6M3VyuN46SF25liUSJWZnZN5RLhcFhEKg9GbnDPAcChQPWYLo/LluaTyWQymV6u2vPV5XTzLGAQq185mPxudVskJsyz92joE4/FNq95yOhIREREIiOje8sOPUS6kLKsSCaz0uHbDJCY6B6B6jFd1bLV5e1YPp/Pv3np3lJJRKrLb22/kc/n39h+i9yEeYJ0xsQNEhMmsl44mQ7Z3LJvi1Xe2jz0s/DEtF3gJnJ2ZdvRYpbERFcJUo/pqpYNTU2NiYiMxV5/tF2V6nvvXoqNichY7NK77+2nZjQajUajIrKzs7Ozs+OqvcDRdhqc/brVpxxMev8ELUhM+MJtAuoYLxuemLYL1MLK5vTE8Q+RDg9P14/hdgaJiUAJSo9ZSFmWZVmpph1L+/LM1Ol3NTWNlx26cjkkIpeGXhERkVeGLm3v/3BjY0NEotHo4OCgiMh39Lwn0KK+gTnVF6SnmOhxpsQE3HG5IbU7yHp24fQNsSxLYgvl9bBUsvHbw+u5RPruSNyyxmV2TeWkkLLGF0XEnvPDmRLz+z40EL0gID1mQSZVayKG0+tlid8+fRAdtWxpvjg0NydSlUfbj0VCIo+3H8llDZGBDrL6gnWzSrdITBhFTy1rjx9o9IxtHyLdvIIPSEx0hW/+zd+wX4SXbh6/ZmX6xtFrFlbGx8djC+V1Vxdiuq5lS/PJYiw/JyISunzl0VJJxsZKxUdXpkNuIwOd1RfQC7kcITFhGl21bKCRmOgWw//+N+0Xff0u1qxEriuVK6SseNZNOeuqlq0up6/deyhyP3lfXn8zPzc29YYkk0l59eqdLIkJ0/RZXVLLkpgwUcAe4qUfiYluoqfHtG+Ql8iVH6RWK+K4mHVVy4amsvmpA0vG5vL5OTchAd8MDHTJcSESEybq65L8OxKJiW6itcesrC7JcPrk9Y7Cc7+Auv6+moPJ71YD3aLmaALgBy09ZuN50jNyN5cQqWTj9s0LCqlIprg4furHTPPcL6DuXD8dI+Cbrj8uC3QTLT1m80WZ0nSx5lkv0KSWBeoGOMgK+Kcnrv0CukWgekxqWaBuoJ++FPANtSxgkED1mNSyQN05znEC/ul70SU3EgF6QaB6TGpZoO5ckM6YAL2m6+/JBXSTQPWY1LJA3fn+Xb+bAPSuPvIPMEegekxqWaAuUHuZQK+xaowxAIwRqB6TWhaoOx+k0T9Ar7ECdJQHwAkC1WPyrASg7lzfroOpbSj7/s8HbvNcSFmWZVn2faABtOp7oRxMfrca6FEae0z3fDgu+7XPlL0I+zMXvutF2Jf7nmqP+VSd0x5TRKrPP+VF2Kc1/a39eP8T7THdu6Bp9E8lG5+Ru0odeLB0QSbPduvnjvsP4W9oj/lvP/sZvQF/rP8jvQFF5InufPzB7st6A4rIE3Veb8CXPPjP5pJFYdrOr33Sk67tl176phdhX+7r1x7zw5onx/8+UPqbKiJ//OKi9pgv9T3XHtM9XT2mFowxAOp+K/rb9otrv/e3j1/zzmv/5ug1C7czxaJErMzsmsolGgtXxsfHYwvl9XT40C8AEO5jABjlfJDuCE0tC9Slf/9v2S/On7S7ftyahRVZUyohlWx8JltJ2LVrJXJdqVwhZcWzlLNAW33POS4LGCNQ9zFgvCxQd8HadTAdFS08MT26PxMOi0giV57eWq0c9RtAT7NqysF0OE6b0eqty+uj1w+vA+CU9PaYLlHLAnXn+3YdTK1RIiObKwURkfKWDLccga2sLh1aBkBERKwXysHUGqWSndm6oZS6sTXTXKk2RrGr9XS4kn0wqZRSa6OZ21yLCTijp8fUhDEGQN1FLbuM4fTdkbhljcvsmspJJRu/Pbx+/UE8kimKxBbK64mTQwC96Hd/52v2i196/R8dv+Z/vf8Pjlqzsro0OrkuIonJ0ZurlXR9RM/BUez1pYnJ2ZsPKpJg9xI4Oz09pibUskDdhX4914qG0+sqvf86JyKJ/SUA2vrClVv2ixNPFx675uhIREREIiOjDxrL2o5iF5GR6QkKWcARXT2mFtSyQJ13Q3kAnEzPPbk2t8oiYZHy1qZMtPwsPDE9utqYKaRWhnOBvk8eEGCB6jGpZYG6C1aA9jKBXmPtargpV3hievN2QRKJwsrm9PXGQdfIiL1QylsynBYRKaSslclg3/EZCLRA9ZjUskDdhUDejxroEdYLHberDKdviGVZElsor4frA9ZzidZR7JFMUWTRWpTmu0ADOL1A9ZjUskBdoEayA71Gy3FZEUnk9h+xVx+wfmgUO+PXAZcC1WNSywJ1gTpjAvScFzz4CzBGoHpMalmg7mKQzpgAvcailgXMEagek1oWqAvUXibQc3YD9Hh3AMcLVI/p8rlf1eV0MpmcLx1alF6uuossItL3ubI9uQ8FnOiC9dzB5Her2/IwMclKeGV318lkEnpMdA9tPWb9kdKp5ofwHfUk6qO4PC4bmsrekfTS3nx1Of2WfDWfD7kLKyLSnJB9nyvX/jDiPiZwjItW1xwW8ioxyUp4qPvHGNBjonvo6jELMqlabo9XfxJ1opCKZyvr6VM80ETvGIPS0r2HD+Va8t7rb+bnxhpLo9Go/WJnZ0dEPq31LYE99gbmWKDu/KwViYlOcJmAph1kdY/EhJ9cJuxrn/+/9ovN7RN2xkaHqkevWVgZHx+PLZSbStYjnkR9HK21bKkob+bzY1JdTr+1XB2bqjd6Y2NDRKLR6ODgoIjUvq3zPYE99gbm2EVLy2OHgofEREe4TMCeGy9LYsJXLhO28vin7BcXLRdrViLXlcoVUlY821TOtnsS9bFcjpdtL3T5yiXXQZpPkXC6BB1w0VIOJr9bfQbuE5OshHfU7q6Dye9Wa0CPCRPp6THD4bCIJHLl6a3V/cGxm1v2kJny1ubpGqO1ln1l6FGxJCLyeFuGNAwAqv1hxJ7chwJOdMHqczD53epT0JqYZCW80v3Xfh1EjwmTae0xK6tLMtw4KhuemN5cKYhIYWVzeuIUo2Xd17Kl+b9tNCQAAAorSURBVGv3Ht6/ZV+EGZr66tA7yWQyWYztj/0BDHFB+h1Mfre6PRITxlHPdx1Mfrf6bEhMdA0tPaZ9vwLLmpG7uYRIJRtPFewnUY9blnVz5O5pLvwS9+Nlx+by+bn92dBUNj/lMiTgj/NWQAtTB0hMGEe9MKwwdYDERNfQ0mO2PFB676HTzU+iPg2elQDUXfzcQ7+bAPSubzz7d343AcBpBarHNGG0HwAAANAOtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADAVtSwAAABMRS0LAAAAU1HLAgAAwFTUsgAAADCVD8/9+sXf+xtehP2zn/mOF2Ef/ODHtcd86fwz7TFFpF+UF2EtS3/YC/0vtMcUkV//WS+i9orf+O4vaI/5cx97rDdg/vt/Xm9AEfnEwBO9AT9z7kO9AUWkz6rpDfhMdc8Tm7vbL3/zC16EffrCk96/+sEntce8MOBJf/F015MUqNX0HyLs79ec/rbf/7wXUf3BcVkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApqKWBQAAgKmoZQEAAGAqalkAAACYiloWAAAApnJZy1aX08lkcr50cD69XHXbLgDOkZhAAJGYgCdc1rKhqeydq6825qrLb22/kc/n39h+i9wE/ENiAgFEYgKeGNAYq/reu5diWREZi116573q1FTIXh6NRu0XOzs7Gt8OaMEG1haJic5gQzoTEhP+6qYNTGctK3Jp6BUREXll6NL2/tKNjQ0RiUajg4ODWt8OOIAN7AinS8xv+dE0dBES8IxOl5j/24+moQd0U8Lqvfbr0fZjERF5vP1Ia1wALpCYQACRmIAeOmvZ0OUrj4olESkVH125HNIYGYBjJCYQQCQmoIvbMQal+Wv3Hoqkh+5kp0KhqTckmUzKq1fvZElMwD8kJhBAJCbgBbe17NhcPj935CwAX5CYQACRmIAXeFYCAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFO5fYatA59L/dCLsD/4sOZF2E//8IH2mFa/Jx9738cuehHW+jOf1B/0yVP9MUXkjzyJ2iMK/zquPebv/rHSG/D8B/rTXPVbegPuXtQcUESev6w5Zt9zzV+NiFz/Le0hIU9+Wf83JSLqyZ96EfYnn3xPe8za7nPtMUXEsjw5lmf16Q9be/5Me0wREU+KJn9wXBYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJiKWhYAAACm0l3LluaTyWQyOV/SHBeACyQmEEAkJqDDgN5wJYnl83N6YwJwicQEAojEBLTQW8uWirdu3Xr16p3sVKhpaTQatV/s7OxofTvgADawI5CY6AQ2pDMiMeGnbtrAtI4xqL4ync/n39i+ll6uNi3e2NjY2NgQkcHBwcHBQZ3vCDQZbPC7IQFDYqIjSMCzITHhq25KWK21bCgUEpGxuTtXtt+rnrg2gI4gMYEAIjEBTby4j0H1vXdlKHTyegA6iMQEAojEBNzSOV62upy+du+hyKtX72THNMYF4AKJCQQQiQnoorOWDU1l81Ma4wHQgMQEAojEBHThWQkAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATEUtCwAAAFNRywIAAMBU1LIAAAAwFbUsAAAATKXzGbanVHj8T0+/8s7OzuDgoN4GeBHTrLA0FYf9j4W5U66p/UsxZcvpzT+cHPRX4dv/8vQrG7FFGReWpgYfx2UBAABgKmpZAAAAmIpaFgAAAKbq6HjZaDTaybcDcBokJhBAJCZwWirYXnvtNSNimhWWpsIN7V+KKVtOb/7h5KBBjNiijAtLU4OPMQYAAAAwlaWU8rsNAAAAgBMclwUAAICpqGUBAABgKmpZAAAAmCo4tWxpPplMJpPp5erBBfMlEZHqcnrvtYOo9V+0ozTewkHM1l85GNBx/ENramj28Z+nu4+iupxurKvnEzjYNt3fGhzzICt1frle5KP2ZPQsE/WmITloGHpMekyytYnfN1Koe/z1r7+vlFLvv/3Ft99XSin1/vvvt67ypbffP/SLxzsQpBHg/be/9PXHjmM2/UpLQFfxD6zpvtknfJ6umvr+21/8Yj2qpk+g5bv24FuDE15kpe4v14t81JmMnmWi5jQkB81Cj0mP2X62V7M1KMdlQ1NTYyIiY7HXH21XRaRUvHWraRfJmQNBqu+9eyk2JiJjsUvvvucucLuA+uJraPbxn6ebppbmi7E7V19tF8dp2Jbv2ttvDafnQVZ6+OV6k49uG+xRJupOQ3LQMPSYeptNj2m6oNSy+4auXA6JVF+Zzufzb2xfc5OcrUEuDb0iIiKvDF3S0tTWgJri6212+8/TaczSfDE2N7Y/r+MTaGmb598azk5XVnr75XqQjxobrDETtachOWguekx6TLI1cLVsab44NBUSkVAoJCJjc3eubDvftWgN8mj7sYiIPN5+pKOxhwJqiq+x2Ud+ns5iVpffuX//VjJ57d7D+7eS8yU9n0BL2zz/1nBGGrPS2y/Xg3zU1WCdmehBGpKDhqLHFHpMslUkWLVsaT55cBdGpPreuzIUchm3HiR0+cqjYklESsVHVy67DSrSGlB3fNfNPvrzdBozNJXN5/P5/J2rr77+Zn5uTOsn0PJde/Wt4Ww8yUpPvlwv89FdgzVnondpSA4ahR7zAHrM3s5Wvwfs1j3++pe+2PD2+3uze4OX7eHTzQtOH7M1yN68g5gtv9I2oIP4zWtqafYpP0+HH0XTUHL3n0BL27z41uCM9qzU/uV6kY96k9HDTNSXhuSgcegxNSaposc0H8+wBQAAgKmCNMYAAAAAOAtqWQAAAJiKWhYAAACmopYFAACAqahlA6eSTWUrfjcCAMkIBB5JCqGWDaDy1qbfTQAgQjICgUeSQqhl/VZIWalCIWVZlhXPVkSkkBpfLGYiVqpQ/2k2G7d/Zq9VX01aZwG4QzICAUeS4gh+3+C2l5UXYiIiMrum1NqsxBbKqlxeW4jFFsr7P7Vn1Nqs/aK+XsssAFdIRiDgSFIcacCH8hl14fT62pa1MplLiFRGYiIi4XCk9afpsIhUHmwWMxErIyIis+WKHJgVCfvQfKB7kIxAwJGkOBJjDIwxu9bYAcklDs8C6BiSEQg4krSnUMuaITw8urhSEBGRQipVaJn1s2VAjyEZgYAjSXuOt0MYcKy1WRERmV1rHuljL5xda/y0MbqnPtvYvWyZBeAGyQgEHEmKo1hKKZ2lMQAAANApjDEAAACAqahlAQAAYCpqWQAAAJiKWhYAAACmopYFAACAqahlAQAAYCpqWQAAAJjq/wNYGdDmdIyJcQAAAABJRU5ErkJggg==" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0EwTURBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eUxqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDQwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzIuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 4001
mtry <- as.integer(length(iVars)/2.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTBNREF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh5TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDQwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzIuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA0MDAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8yLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 4001
mtry <- as.integer(length(iVars)/2.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUkVhV1ptY3lBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJFYVdabWN5UlBUMEpmVWsxVFJWeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXREaWZmcyA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXREaWZmcyRPT0JfUk1TRVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
nperm <- 5
resultsOutDiffs <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutDiffs$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSRWFXWm1jeUE4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUkVhV1ptY3lSUFQwSmZVazFUUlZ4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0RGlmZnMgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0RGlmZnMkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXREaWZmcyA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXREaWZmcyRPT0JfUk1TRVxuYGBgXG5gYGAifQ== -->
```r
```r
nperm <- 5
resultsOutDiffs <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutDiffs$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDYuNDc4MDU4XG5cbjwhLS0gcm5iLXNvdXJjZS1iZWdpbiBleUprWVhSaElqb2lZR0JnY2x4dWNtVnpkV3gwYzA5MWRFUnBabVp6SkU5UFFsOU5RVVZjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbnJlc3VsdHNPdXREaWZmcyRPT0JfTUFFXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
[1] 6.478058
resultsOutDiffs$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFUnBabVp6SkU5UFFsOU5RVVZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutDiffs$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDQuOTU5ODY3XG5cbjwhLS0gcm5iLXNvdXJjZS1iZWdpbiBleUprWVhSaElqb2lZR0JnY2x4dWNtVnpkV3gwYzA5MWRFUnBabVp6SkZKemNYVmhjbVZrWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0RGlmZnMkUnNxdWFyZWRcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
[1] 4.959867
resultsOutDiffs$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFUnBabVp6SkZKemNYVmhjbVZrWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJFJzcXVhcmVkXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutDiffs$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjQxMjMwNlxuIn0= -->
```
[1] 0.6412306
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwUkdsbVpuTWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRFUnBabVp6SkU5UFFsOVNUVk5GWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbnJlc3VsdHNPdXREaWZmcyA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0RGlmZnMkT09CX1JNU0VcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
resultsOutDiffs <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutDiffs$OOB_RMSE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBSR2xtWm5NZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEVScFptWnpKRTlQUWw5U1RWTkZYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXREaWZmcyA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0RGlmZnMkT09CX1JNU0VcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0RGlmZnMgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dERpZmZzJE9PQl9STVNFXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutDiffs <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutDiffs$OOB_RMSE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDYuNDkyMjFcblxuPCEtLSBybmItc291cmNlLWJlZ2luIGV5SmtZWFJoSWpvaVlHQmdjbHh1Y21WemRXeDBjMDkxZEVScFptWnpKRTlQUWw5TlFVVmNibUJnWUNKOSAtLT5cblxuYGBgclxucmVzdWx0c091dERpZmZzJE9PQl9NQUVcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
[1] 6.49221
resultsOutDiffs$OOB_MAE
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFUnBabVp6SkU5UFFsOU5RVVZjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJE9PQl9NQUVcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJE9PQl9NQUVcbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutDiffs$OOB_MAE
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDQuOTY4NjkyXG5cbjwhLS0gcm5iLXNvdXJjZS1iZWdpbiBleUprWVhSaElqb2lZR0JnY2x4dWNtVnpkV3gwYzA5MWRFUnBabVp6SkZKemNYVmhjbVZrWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5yZXN1bHRzT3V0RGlmZnMkUnNxdWFyZWRcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
[1] 4.968692
resultsOutDiffs$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNtVnpkV3gwYzA5MWRFUnBabVp6SkZKemNYVmhjbVZrWEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJFJzcXVhcmVkXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucmVzdWx0c091dERpZmZzJFJzcXVhcmVkXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutDiffs$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiWzFdIDAuNjM5NTA0MlxuIn0= -->
```
[1] 0.6395042
```
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMFJwWm1ZZ2RtRnljeWNzSUNkU1RWTkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRFUnBabVp6SkU5UFFsOVNUVk5GWEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkRWFXWm1JSFpoY25NbkxDQW5UVUZGSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRVJwWm1aekpFOVBRbDlOUVVWY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowUnBabVlnZG1GeWN5Y3NJQ2RTYzNGMVlYSmxaQ2RkSUR3dElISmxjM1ZzZEhOUGRYUkVhV1ptY3lSU2MzRjFZWEpsWkZ4dWNtVnpaRWhwUVc1dWIzbFFaWEp0U1cxd1FVSWtSR2xtWmxaaGNuTWdQQzBnY21WemRXeDBjMDkxZEVScFptWnpKR052Ym1ScGRHbHZibUZzWDNCbGNtMXBiWEJjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiB2YXJzJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0RGlmZnMkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgdmFycycsICdNQUUnXSA8LSByZXN1bHRzT3V0RGlmZnMkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiB2YXJzJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dERpZmZzJFJzcXVhcmVkXG5yZXNkSGlBbm5veVBlcm1JbXBBQiREaWZmVmFycyA8LSByZXN1bHRzT3V0RGlmZnMkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdHiAnnoyFitAB['Diff vars', 'RMSE'] <- resultsOutDiffs$OOB_RMSE
resdHiAnnoyFitAB['Diff vars', 'MAE'] <- resultsOutDiffs$OOB_MAE
resdHiAnnoyFitAB['Diff vars', 'Rsquared'] <- resultsOutDiffs$Rsquared
resdHiAnnoyPermImpAB$DiffVars <- resultsOutDiffs$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowUnBabVlnZG1GeWN5Y3NJQ2RTVFZORkoxMGdQQzBnY21WemRXeDBjMDkxZEVScFptWnpKRTlQUWw5U1RWTkZYRzV5WlhOa1NHbEJibTV2ZVVacGRFRkNXeWRFYVdabUlIWmhjbk1uTENBblRVRkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRFUnBabVp6SkU5UFFsOU5RVVZjYm5KbGMyUklhVUZ1Ym05NVJtbDBRVUpiSjBScFptWWdkbUZ5Y3ljc0lDZFNjM0YxWVhKbFpDZGRJRHd0SUhKbGMzVnNkSE5QZFhSRWFXWm1jeVJTYzNGMVlYSmxaRnh1Y21WelpFaHBRVzV1YjNsUVpYSnRTVzF3UVVJa1JHbG1abFpoY25NZ1BDMGdjbVZ6ZFd4MGMwOTFkRVJwWm1aekpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQmNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgdmFycycsICdSTVNFJ10gPC0gcmVzdWx0c091dERpZmZzJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIHZhcnMnLCAnTUFFJ10gPC0gcmVzdWx0c091dERpZmZzJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgdmFycycsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXREaWZmcyRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkRGlmZlZhcnMgPC0gcmVzdWx0c091dERpZmZzJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgdmFycycsICdSTVNFJ10gPC0gcmVzdWx0c091dERpZmZzJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIHZhcnMnLCAnTUFFJ10gPC0gcmVzdWx0c091dERpZmZzJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgdmFycycsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXREaWZmcyRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkRGlmZlZhcnMgPC0gcmVzdWx0c091dERpZmZzJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdHiAnnoyFitAB['Diff vars', 'RMSE'] <- resultsOutDiffs$OOB_RMSE
resdHiAnnoyFitAB['Diff vars', 'MAE'] <- resultsOutDiffs$OOB_MAE
resdHiAnnoyFitAB['Diff vars', 'Rsquared'] <- resultsOutDiffs$Rsquared
resdHiAnnoyPermImpAB$DiffVars <- resultsOutDiffs$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRVJwWm1aekxtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUkVhV1ptY3lSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJFYVdabWN5NWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSRWFXWm1jeTVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRVJwWm1aekxtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iT0Ywc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9KU0JvYVdkb2JIa2dZVzV1YjNsbFpDbGNJaWtnS3lCMGFHVnRaU2gwWlhoMElEMGdaV3hsYldWdWRGOTBaWGgwS0daaGJXbHNlU0E5SUZ3aWMyVnlhV1pjSWlrc0lIQmhibVZzTG1keWFXUTlaV3hsYldWdWRGOXNhVzVsS0dOdmJHOXlJRDBnY21kaUtESXpOU3dnTWpNMUxDQXlNelVzSURFd01Dd2diV0Y0UTI5c2IzSldZV3gxWlNBOUlESTFOU2tzSUd4cGJtVjNhV1IwYUNBOUlEQXVNalVzSUd4cGJtVjBlWEJsSUQwZ01pa3BJQ3NnWTI5dmNtUmZabXhwY0NncFhHNXdRbUZ5WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0RGlmZnMuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dERpZmZzJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dERpZmZzLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s4XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutDiffs.conimp <- arrange(resultsOutDiffs$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutDiffs.conimp) + geom_col(aes(x=factor(rownames(resultsOutDiffs.conimp), levels=rownames(resultsOutDiffs.conimp)), y=CondPermImp), fill=mycolours[8], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRFUnBabVp6TG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSRWFXWm1jeVJqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUkVhV1ptY3k1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJFYVdabWN5NWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRFUnBabVp6TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJPRjBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb0pTQm9hV2RvYkhrZ1lXNXViM2xsWkNsY1hDa2dLeUIwYUdWdFpTaDBaWGgwSUQwZ1pXeGxiV1Z1ZEY5MFpYaDBLR1poYldsc2VTQTlJRnhjYzJWeWFXWmNYQ2tzSUhCaGJtVnNMbWR5YVdROVpXeGxiV1Z1ZEY5c2FXNWxLR052Ykc5eUlEMGdjbWRpS0RJek5Td2dNak0xTENBeU16VXNJREV3TUN3Z2JXRjRRMjlzYjNKV1lXeDFaU0E5SURJMU5Ta3NJR3hwYm1WM2FXUjBhQ0E5SURBdU1qVXNJR3hwYm1WMGVYQmxJRDBnTWlrcElDc2dZMjl2Y21SZlpteHBjQ2dwWEc1d1FtRnlYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0RGlmZnMuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dERpZmZzJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dERpZmZzLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s4XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dERpZmZzLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXREaWZmcyRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXREaWZmcy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXREaWZmcy5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbOF0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcbmBgYCJ9 -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutDiffs.conimp <- arrange(resultsOutDiffs$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutDiffs.conimp) + geom_col(aes(x=factor(rownames(resultsOutDiffs.conimp), levels=rownames(resultsOutDiffs.conimp)), y=CondPermImp), fill=mycolours[8], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qRXdMQ0ozYVdSMGFDSTZPQ3dpYzJsNlpWOWlaV2hoZG1sdmNpSTZNU3dpWTI5dVpHbDBhVzl1Y3lJNlcxMTkgLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjEwLCJ3aWR0aCI6OCwic2l6ZV9iZWhhdmlvciI6MSwiY29uZGl0aW9ucyI6W119 -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFNQUNBTUFBQUM1S0Z0TEFBQUJ5RkJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qcXROanNoUTllbG1BQUJtQURwbUFHWm1PcEJtWmdCbVpyWm1rTnRtdHR0bXR2OXVUVTF1VFc1dVRZNXViazF1Ym01dWJxdHVqbzV1anNodXE2dHVxOGh1cStTT1RVMk9UVzZPVFk2T2JrMk9ibzZPYnF1T2prMk9qbTZPam82T2pzaU9xNnVPcThpT3ErU095TWlPeU9TT3lQK1FPZ0NRT2pxUU9tYVFaZ0NRWnBDUWtEcVFrR2FRa0xhUWtOdVF0cENRdHYrUTI3YVEyOXVRMi8rcmJrMnJibTZyYm82cmprMnJqbzZyanF1cnEyNnJxNDZycTZ1cnE4aXJxK1NyeUt1cnlNaXJ5UCtyNU1pcjVPU3I1UCsyWmdDMlpqcTJabWEya0RxMmtKQzJ0bWEyMjVDMi83YTIvOXUyLy8vSWprM0lqbTdJam83SXEyN0lxNDdJcTZ2SXlJN0l5S3ZJeU1qSXlPVEl5UC9JNUt2STVQL0kvOGpJLytUSS8vL2JrRHJia0diYmtKRGJ0bWJiMjVEYjI3YmIvN2JiLy8va3EyN2txNDdrcTZ2a3lJN2t5S3ZreU1qazVLdms1TWprLzhqay8rVGsvLy8zOS9mL3RtYi90cEQveUk3L3lLdi95TWovMjVELzVLdi81TWovNU9ULy83Yi8vOGovLzl2Ly8rVC8vLytXdVVHckFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzE5ajU4YjEzSGY2VWRWdDA2NWR4Sm8xSEhpbEdmUzFFbUFwRjZqczg5Y0pZNGJOYkVncWFlYXFraUNUZHdteEZFaW8wcWxvQ1J0dENSdDlRN0hnQ0pxUXRoL3QyOW0zaTRXaTcyNzNjWGIzWG52NXZ1eENXQ3hPemNBdm5xNzczMzNPN01XQ2dTVlk2M3BCQVJuQVVJelFRMFFtZ2xxZ05CTVVBTzQwdXhmQ0J3Qi9weHNhZFowQWdJenNKQm1SNGIvQ1BONHpOUExGMDlveGowZTgvU0Vaam5CUEI3ejlKeWwyYjhWY01ZSlArU3hOTnZ2VDd1dFQvcVQzYVYzSmovcXoxL0FUdGU3WHV1dzU3MjR1YTdlbVBVOFFQdWtnOVJSdE92R01IcnR0VWJ3citmNVFqTmJVWUptaWhhQlAvblJqVjVuNmExdi9rTmlHK3pVbjI0cmpteVBwdThxY3YyL2Z6K2N2VGVjOWZ3VERsSzgwcnZHcjFVRTllOU9PRzZOaEdhV29qRE4xSkMwM3NkZmZQS1Q3c1l3Z0Zjdlg3ejdTaGVHbjAvVkc5TnVaMHpiWUtlSVpyOTZmUmorOWo4RHpjS2dvMkswRHJxdGo3MU9vSTZDZzhMQmVuK2d0cW14THRwVlJiN1JhNzNmbWRPc0hkS2kyZEVSbnZxUGtvOU5mNCtDRTdIMGU4SGpTVFFMT3Vxa0dZNjlUamk1T0ZUUHd2R1Zuam92S3NKMXd1bG5VMFdSc2RwREVXU0VPK0haVG5Idnc0RS8rNSszOVdnVytDcU0ydTMyY1BxWlBraVI2WEVmanV4SHU2ckkvblQ3bzJnMDY4WW5XeG5ON0VQaDBVd3g2ejVjUzZsVDRxNTZwbjUrWDdGRC9XK3lwWGdGRjFCSWxqR2VDQU0vR3MwK25Geit2LzlMMGF3SDEyWXF4bVJyOXQ2OU83c1Bodm9ndGUyT0d0T1FrYlFyUklaWTBXZzJ1VHdTbXRtS3dqUlRnMWJRZWdnRVFKcmRIbzQxemRRYnZ4M0JtVTF0SDJ6Y1ZkdGdwNWhtczNkL09zTFJER0swOFlETFg4RGxIUjBVVG41OERZNVFoTks3UXVUSjFqNWUzVTEyMVVrejZKeEFNeWRtK0kyRjQ3ZWdBV2RCLy9FbGIyTTQyTGpYYlFmcWxQait4bEFOU1RDajlHRThnaXNzZjdBeGhKM3VSVE5OR1BNQ21HZkNKUnhjbXluMmZSZytnT0VORHhxcE0yZzQyZlM4ODEzYWRlTUR6M3ZwalNzOWRham5yYXNacTdxaVcrL1BzeXZ6dVFxQWVUem02VlcxYmpaZW5uV1d3RGZEY0hiMTFMMkVadXpUcTRobTgyV3VsYUNHdS9YK3FYdUpkTzRJTEZRQkJQWkJhQ2FvQVVJelFRMndrR1pOTHd4VmlLeVBleGFtQVBtazgxblBhK04rc0U2eGp2OTJVQk5vbjNDUVNPZkx5UHE0WjRCbWVhWHo2ZllJMWZQSnhXRTRmYTMvdTVIYUlOSjVjV1I5WE9kcGxsODZ2N2M5d3YxdzlSNyttVndMUlRvdmppWEpXVC9KMmw3MnNaRjRacVJ6NEFmc040RFJTM0Zrb0U2WElwMFhSK2JQNEFMTVNPZkVqOENQUnpQa21Fam5SV0grOTJVQ005SzU0Z2VxNTNDSkQ5ZG5ZWGhuVkpsMExyQVBScVR6TDlSTUUvZlRNODJCMnFvT3JrZzZGOWdIa2M2NXgyT2VuclBTdVJQZmUyUGhMS0ZaclJDYXNVOVBhSllUek9NeFQ4OVptZ25zZzRVMGEzcHh5OTNWcmVwUWpHYmxUZWlnVmFrcDZ0aUQxUTk5K1crcmRKNzN1eFhFS0VTelZVem9reTFRQkQ0TlNTQi9qS1MwVkRyUDkyVUpFaWhBczlWTTZBRjY3THF0RVdtYU01VEs3WlRPVDVHS2p4eVF1dXVVemxOWXpZUit2eDlPZG44M1FqYkNPUk9sY2p1bDgxTytKNWxwTHFNQXpWWXpvZU5vcHQ2NDM4ZlJETlVFUzZWekU5OTdmcHcxbXExbVFxZHJNN2gxQXdYeUxaVEt4WFZlZXpqMk5GdkpoSzRPVWlkU3VKNmowbWRYZWlpVmkzUitOckR5dXBrWkpmMFlDTTBjd2FvME02U2tId09obVNPd1VBVVEyQWNMYWViRU5YRmo0ZGhQQVJxQTBJeDllczdTek93cUYvdmZrWGw2YkdoR2luaEk4am91WjhDaXhYelRBdmI3MDlmUkZBVkN1OURNZkRobmFhWVg5N1c4VHNMNXdxWUVpSGFUWFgwUFNDMDBFMVNQT21tR25uT1NtaFkzZGRFTjlmSTFGT2VuMjdES3F3WXpROUw1MHZIeVdQOWpqVFRUbm5NdG5DYzIzZStQd1ppT2J1TDlmdEFhNFV1QWpHYU9vRWFha2J5K01KclJwb0hudGZmN2ltWW96cy8yaEdiT29TNmFxWXN0a3RkSk9GL1k5R0JJdXJ5UDR2emhhVFJ6NHBxNHNYRE9UZ0h3eHJQMUd5U3Z2L1FHQ09jL1MyNEN4YjJOdWp6K00vYXU5S0xidElWbTdOTmpRN084Q1B5bFRVSXo5dW5aUnJQSjVySUlMelJqbjU1dE5NdUNTT2VPUUdnbXFBRVcwa3pXTWV5RDBFeFFBNHpTYlA4Nm11WU90Sktra2VWQi93SnZ1ZzNncnYrNUJ4MGxKcEFGVXRtbFlKcG16Syt4bWFkWC94UUFyT1k3NFd6djQ5YWNabUJUeXZDZ1k1MXRORHNsUE9nN0lSVVNUV2VYZ3RETXZuam1hRWE2OTg3c3FpTGFBZnJQMWZqVUdhdi9aWGpRcVp5Nzl0bEZIdlFkYmE5RFUvdXFydlA4MHU2UllhblljTHdqVTNrMUdjOGN6VkQzUnNjNHFwSWdndnRoK0hBcnpQS2dJODNRaUo3d29PT3pBSTNzKzNRYm1veG03Tk9yZXpSRDNWdVBaa1F6cUZxZ1RveGhoZ2M5TlpxUkIxMk5aajFmSFl4dTQwUjJLWmltbWFCNkdCM05ndGJCam5wR1RCbHNmT0FqemJJODZJdlhadHFEcm80ZDVLQ1p3RDZZb3htY0ZuL1dwU0ptZnFTRXQ2ZmR6akVlZEdpcm8yZWFrUWNkVHF0ajhLM2Y2N1lUMlFtc2g0WHJaZ0w3WUNITm5MZ21iaXljN1ZPQUtpQTBZNStlMEN3bm1NZGpucDZ6TkRPOW5NSDhkMlNlbnRCTXdBWlZGR3pQYW4yT09ubDlCZHR6ZjM1QkxhaWtZSHRXNi9ONkM3Ym4renlDdWxCSndmYXMxdWYxRm13M0tZWExZNjJ1ODlWYW45ZGJzRDNQNTRuQS9CcWJlWG9ORm16UGFuMWViOEgyUEo4bkF2UGZrWGw2RFJac3oycDlMZ1hiZVlSalQ3T1ZXcCtIb2JHQzdVNTg3NDJGWTAremJFakJkc0hwa0lMdGdocGdvUW9nc0E5Q00wRU5zSkJtWnBjejJGOWpNMCt2TnVtY1RNQkxWYU5BK0NRLzA5ZHFCcGx0QUs1STB5eVdQL1Bma1hsNmRkR01UTURqMW1oeDh3eUZUN1FIUC9SbjcvWXpEY0FWYVpyRlBnRHozNUY1ZXZYUVRKdUFZWEZXUFczRlBtQ3ZqY0luR3VwbzFTUExBRnlScHRtb2ZWZnN3S3RwbXBtWW00Q0JRMEVuMHB2Mit5aDgwanRZRnlQTEFGeVJwbG42MHdncXdxbzAweVpnVUNIVjA4a1dNZ3dVQVhKYjBtaUdFbnFXQWJnaVRiUDBweEZVQkFPakdacUE0YkZOY3VkZzR5N1FTdE1zeEhzMHdJdWVZUUF1cFdrS3plekRxalNMVE1DekhoVEd4cnQ4UEgraXBwWnRFRDdQZ3oxWWQyREtOQUJMRStxemdVcld6YjRaaG5qbHZ6SkVPbWVmWG9PV2swQXZqSzBNb1JuNzlKeDFOam54dlRjV1RtaTJES0VaKy9TY3BabkFQbGhJTTFuUHNBK1YwaXp1T0EzYTAyWnJCSE1EVDh2akZUYWhydWJEQ0ZaQXRhTVpxZVN6OTRaUTdSTzA5QWREdmRKZlpSUHFpajZNb0R3cXA5bGp1amNqNk14KzFmT1hhRlpKRStwbXBXNlJ6aXVRems4R3FlUjZOTHM2ZmEyZm9sazFUYWdMSnNsOEtzYzhQUTR6VFQyYXFVc3RsRFVubCs4czBxeWFKdFFGazJUK096SlBqd25Od3NrVzlTNEIrU25ZR0dwNWZJVW0xRUl6KytKVlA5TUVaWDFqQ004VmRXN2Y2OGFUejdKTnFBWDJnZEc2V2Q0bTFBTDd3SWRtdVp0UUMrd0RINXBsUVdqbUNDeWttUlBYeEkyRmMzQUtzREtFWnV6VGM1Wm01cFl5Q014L1IrYnAxVUV6cUptZCtRWmE1cVlMYnZTNHUvVFkyL2o4R2xUWE51ODZML1VobVArT3pOT3JaVFNMdEVsME1LWGUya240eHhQdlR5NURMV1Nzcm0zY2RWNzJZd2dxeHVvMFEzZjVtTWFtOGNzWFAzalRlOU9ETHEyd0NmM2pXSExiQTNzbStOSkh1bFVtVk5jMjdqbzNLb0hMbzduSGxXbEdMYU1mYm9FQS9tcXZkZEJ0ajl1VDNhQTFVcHNpLy9qWVZ5L1VKdlNsMzZiQkM2cHJHM2VkbC8wWWdvcGhZRFFEMis5a0N3VndLSG5zZ3ljWWV2eHVhZjg0ZU1yVkM3VUpmZW02alRrV096YnRPaS83TVFRVnd4ek5RQUJmb2hsSTR1UXBCNXFSTDExeENKWHhPeVBqcnZOU240SDVOVGJ6OU9xYWFXSlpiWFZSRCtjNnFLTGRldC96TnU2Q0R2NEsrY2YvMktOS1FaNlAxMlp3OTA4YnEydFRad0dwcEYxck9CdHBWaldFWnV6VEU1cmxCUE40ek5OemxtWUMreUEwRTlRQW9abWdCbGhJTTFrenN3OU5TZWZxUGNQU2VjbVB3UDRhbTNsNnZLWHpCME5GTzZQU2VkbVB3UDEzWko1ZVhUUXJLNTFEdVF5VDB2blNmbmtmand4THhZYmpIWm5LcThsNGpVbm5KRFlabE03TGZnVHV3d1h6OUdvYnpVcEs1MlBmYk1IMnNoOUJVQU1hazg3aHZGaE9PaGZZaDZhazg0RHM2Rkt3L1d6QXduVXpnWDJ3a0daT1hCTTNGczdLS1VERkVKcXhUMDlvbGhQTTR6RlBUMmlXRTh6ak1VL1BXWnJKZXBsOU1Fb3o2bnJlT3RoZWFFZzk3YlkrVVcrMERudmVpNXVSV0I1QVViMHh0RUNmZHo3SHdzYXh3ajdQTGdXaG1YMHdTVFBxZWo3Yit6alI5eHpXV24xNFExRXY0VFBIeHByaHAyRlUwMTN2U3VWRDA5bWxJRFN6RCtab3BydWVRNFBXdmJqbGVXZXMvZ2VzaTJnV2llWFlKcmpiR29XSnp1ZElzMGlNenkyZEw3MHZqL3dlemRGczN2VWNhMkZENlhVL0RCOXV3Ym14UTZmRVZpeVdZOVB6MzQzRzJPYzE2bnlPejRJV2lmRVlzNWJSalBrMU52UDA2cDRDNks3bk9Kb1J6ZURXQzNWMkRLR3NiRFNhYWJFY1J6UDF4djErb3ZPNUdzMTZQcWlob0pJbXNrdEJhR1pmUEtPakdYWTlEME5peW1EakF4OXBOc1lUWkVRekVzdnAya3lmSktQTzUrcllRUTZhT2ZHOU54Yk9kcHBGWGMvaEpPbEg5ZGRCVTM5OHlkdTRGODAwdFZnK0hLZ2Q0WDdIaGM3bmNGcFZCNk1ZbjhpdXpPY3FBT2J4bUtmbjdMcVp3RDRJelFRMVFHZ21xQUZDTTBFTnNKQm1UbHdUTnhaT3BnRExPSDNkek1BZllmNDdNayt2U3ByaG1uNTc0WFZybE5wbi8zcHNLcDlzZXEvdUhkQStBM1hrK2RUaGlLVzI1NkhRcklKd050Rk1OL3pWTDhCZnZwMW1HY2psV2llZnZnWWEwZ2ozbWUwZGJCOWVYVGhjSTkzMmZKNWRDa0l6KytLVnAxa1lkTkJQL3ZMRnU1NzJpNE56aVZSejB0RWpuWno0RXpXZVZnKzYrem51M3ZyWTZ3UWJRMnA3UGxqdkQ2Qy9Kb3gxdWFSekp0S3dQRllpblVmRDBmaEtqL3psU0NGMGxaTnFqanE2MXNrSFBoQnc0OTRDemRUaDBlNjNoOVBQZE50elZEZ3hBdjZaV2tZelFmVW9Tek5zWDA0MWlrRzNKSnFocXh4SlFqcDZwSk8zWS9VeTFEVER3M0gzMlh2Mzd1dytHT3EyNTJyYm5SRjBETTVicXFYczV4YlVpaFZPbWlINnllYzBtK3lTcXh4VmM5VFJJNTE4MDQ5Rjh0MzRwS2tHUDlnOURDNS8wVk5uVldwN0hrNStmQTIwOW9Yc0JOYWo5RXdUYmp3TVBLLzEvc1lRL2VVZTZlQjRBeGxKNTdHcEhHYWExTTBjYmlnYlFQRWdQSnhNNk5NUHd3ZnFGRXB0ejBlS3VpSHVuc2d1QlNldWlSc0xaOVVVb0ZKOE13eG5WL0daMEl4OWV2YlNMTkFtRktGWkJlR0Vac3NRbXJGUHoxbWFDZXlEMEV4UUF5eWttYXliMlFjRE5DT3Z1Wi9lUE5uVkVudnI2MDNQeS9hWnIxNndmWlhFQmJWaGRacVIxM3ljdmtOakJtdXVhSXJiZStqUDN1MW4rc3hYTDlpK1F1SVJtRjlqTTArdm5pbUE5cHJEQ3Y1Y09JY0JxWTNlY2ZSdG9nc3owMmUrZXNGMkE5THVrV0dwMkhDOEkxTjVOUmx2VlpyTnZlWUo0UnovbVZ3Y1J1K0FLSjdwTTErOVlIdnB4T2RnUGx3d1Q2K2UwVXg3emFFODlsdzRSOWtJVGIwMG1nMzhNTXowbWE5ZXNMMTA0bk13L3gyWnAxY1B6U0t2T1R6R3d2bGR1SUxYTkZQUDRJUjZOZE5uTGdYYnp3aFdwVm5rTlovMTFPVlZKSnlqOWczZThmUGdRa2RqZVNmTTlKbEx3ZmF6Z1VyV3plYmE5NG9RbWptQ1NtZzIxNzVYaE5ETUVWaW9Bamh4VGR4WU9EdW5BTlZDYU1ZK1BhRlpUakNQeHp3OVoybG1XdEJrL2pzeVQ2OUNtcUhHRFRmNWsxVWNLckxmMElKNHN0NDZpdVdJTVJYU3cwVlhPQVFYTmRhdnJ5cWRGOHRhMEJ4S1drNWd1UjRhYUtKVlBLN0l2bGlmUUMvSUFpTEZISUNIa0h5K3FuUmVNR3RCWTFpUlptZ1ZqeXV5VTQzWnllYjV6NkJXTzhwTDQxZEFRTmVLT1I2TGg1RGd0S3AwM3J5YldoN3pQYTVHTTdLS1UwVjIyRFRaQ2xxaisvMXZvRkkyaXVVL2hZWW1IVkxNdFJ1WTNPVWtuNjhvblJmTVd0QVlWcURaN2RncUhsVmtWNlBYYkc4RUYxdEFIUnJOT2xTekhSVnoySk1PMGFQWml0SjV1WStjQnZOcmJPYnBWVG5UbkwzYlIwNlFWVHl1eUs2dXpSVE5IZ3pWb09icmF6TzQwNndUSmt6bmRBako1K1drY3llKzk4YkMyVVF6TUlhakNJNVc4ZDljbXQ5NlBmYjhyN3RVcXgzRjhyR0hrMUs2MVJFdXdmQ1FsOTd3eXZjNmQrSjdieXljVlRUTGpmRnkwYklDRUpxeFQ0OEZ6ZWFMWXFVZzBya2pzRkFGRU5nSG9abWdCbGhJTTFrM3N3OUNNKzdYMk16VHEzUUtVS1ppK3dnazlyN0pndTFGczg0Rzg5K1JlWHJWempUTFZHd0hpZjJHeVlMdGhiUE9CUFBma1hsNmxkT3NjTVYydXUvQ1lNRjJsaTV4Y1owYms4N0xWV3dmZ3NSdXNtQjc0YXdGRGFFMHpVcFViQStSaHdZTHRwZjkwSUs2c2NwSnMyakY5bkY4RzRZVWJEOWpLRC9UTEZ5eFBZU201OFBWQzdZTDdBUEhkVE1wMkY1aE9MdG1tbFZDQ3JaWEdFNW90Z3loR2Z2MGhHWTV3VHdlOC9TY3BabXNadGdIb1ptZ0J0VGlPZ2YxZkdyYWRWNHNaVUdqcU1kMURzdXhwbDNuQlZNV05JbGFYT2NMTkRQbE9sL2FYdlpScEhPdTBubEIxM21TWnNaYzV3VlRQaDdNcDNMTTA2dHlwbG5VZFo2Z21USFhlY0dVandmejM1RjVlcHhjNXhITnhIWGVlRGliYUZiUWRRNDdIUmh6blF2c2c0V3VjNEY5RU5lNW9BWllxQUlJN0lPRk5IUGltcml4Y0ZaTkFXckM4UXNhQnY4STg5K1JlWHBDczV4Zy9qc3lUNDhielU3UTIwL0pMZ1dobVgzeGFoek5qdEhiSDZkb2hpMDRGN0pMUVlSeis5QUV6UmIwZHNVeWJUVmY3Mk43OUxIWEFmSDlGT204cGtMajhtam1zUUdhSmZWMjNmWmNrZTErZi94cWIyTzQzMys0RllMNGpvZklhT1lJNnFiWmt0NE81MHl3bWc4OHI0MTlxMEZwanhaMWhXYU9vRWFhSGFlM2I2SFZITTZtRWMxQWZFOWtsNElUMThTTmhYTitDbkNNM2c0ajIyMjhBdzNibzdlbjNRNkk3NG5zVW5EaWUyOHNuUHMwS3c2aEdmdjBoR1k1d1R3ZTgvU2NwWm5BUGdqTkJEWEFRcHJKZW9aOVdKVm0rOWNUN3QwNUpydWg5dnpDZmRzYm4zODBkLzZpb2trcll3SGNqaDNKbW1nRDdpejRpWVZtcm1CRm1vRXVPWGZ2eHBoQi9VWHQrWjFjSGsyN25ibnpseXBtZ3drRlBTbHpXVk1Gb2lxTzZleFNNRTB6NXRmWXpOT3JZUXBBNWJMUnZUdXZvUTJqVWh2VlNWcmp2MDhjMHM1ZnJXaFNMVzI5UXZ1NFAwTXo4STV1dTRrSG42eHBtdFRjamd4cmVJYmpIWm5LcThsNEs5R015bVdqZTNkZVF4di9tVndjNGp2cWRIZ2JCNmpZK2FzVlRhQVorSVYzSTFuekl5MXdCcTFEbERieEQ4aG94ajY5R2tZektwZU43dDE1RFcwc0lZdXlFWTFteEpqSStSc3Btb3VqR1RxZ1lEVHIrYk05T2ppUlhRcENNL3ZpclRxYUJhMERkTy9PYTJqZmhmbEFSRFBGUFNDaFlwTjIva1lWc3hldXpkUk9ZQWJlQ2NOQkF6UVRWSStWYUtiTFpZTjc5MFpjUXh2cllJTTYrVDJ0V0tyeHF6M1Z6dC8xUzdwaTlvQmN3alRUOUs3MHRCbTROUnA3UGtxYmlld0Uxc1A4dXRtOER2YnFFSm81QXZNMEMwNit2YjhRaEdhT3dFSVZ3SWxyNHNiQ1dUZ0ZxQnhDTS9icENjMXlnbms4NXVrNVN6UFQ2eG5NZjBmbTZUVk9NMnBVUGRsc2pXQmE0RkdWYkZMUTZWV1kwWGw2dno5OWZZZzdkTUthYUNhb0hsV09adFNjRldYMEIwTmQ4RE5xUzUwc3E1MEEwVzZ5QzNkNGhFSXpaMUF4emFEVjlLOTYvcHhtV2tGZkxLc05ZOXpBZS9rYVNmSGJCM1JMMEFuU3VWR3BXeDd0dGdQcjBlenE5TFYrVERPdG9DK1UxYjdmeDFMSWdZOVNmTkFhNFV1QWpHYU9vRkthWWF2cDJkVndjdmxPVEROZE96dFpWaHVjd1B0OVJUT1U0bWQ3TmRPTStUVTI4L1FhbndMb214UkJlUXJ3NWpPNDdVY3I2QXRsdGNFSkhPalJMR2dkQ3MycURPY2N6YWpWdEJyU0ZHVnUzK3ZxS3Rtb29DT2lzdHBRWkxzZGQ2NzJ4OTZWWG5UZnQ2eWJzVSt2Y1pvVlJiRGtLQkNhbVE5MzFtazIyVnd1dWkzU3VTUGdRN01zQ00wY2dkQk1VQU9FWm9JYVlDSE5aRUhEdm5nTnVjNnBRZlY0M2xLc21PdThkTHBaWVA0N01rK3ZGcHFWZFoxVGcrcFA0NTNnb0FLdTg3THBab0w1NzhnOFBkYXVjN0pvZHFOMjFFVmQ1MGFsM1NQRFVySGhlRWVtOG1veVhrT3VjelNjLzI0MFJ0TmRjZGQ1dVhRRmphRWgxem1PWm1FWTcxVFFkVjR1WFVGamFNaDFUdGRtK2lSWjBIVXVzQS9OdWM0Vk5hbXd0cmpPM1llRnJuTW5wbDZOaGJOd3BwbUp5bDNuVG56dmpZVnpoV1ltSVRSam41N1FMQ2VZeDJPZW5yTTBFOWdIQzJrbTYyYjJvUnFhWlJqT3diL2tuUmZYK2RsRVJhUFpzdUY4dG5ld2ZYaFZYT2RuRTlYUkxHMDR4M3N4T0xyT1JUcG5McDBmand6RE9kR01vZXVjK1ZTT2VYcU56alF6RE9lYVp1STZiemFjV3pSYk5weHJtcTN1T25maWUyOHNuRXMweXpDY3c5VlhaMnJDZFM2d0Q0eld6Zks2emdYMmdRL054SFh1TVBqUUxBdENNMGRnSWMyY3VDWnVMSnhMVXdCVEVKcXhUODlabXNtNm1YM3hpdE5zMnZWYW84Q0wvT1BUYnV1VEc5bzZublNNbzYwY0FGWnpQQVplTEVqbDA3a1ZmUjZaWkhjL21WMEtRalA3NHBVWXpYQUYvMEhrSHc5OGNKN0RhdXZDelJiYXVnU0FwZHBzcVh4dVJVOUVEaE0yZHBIT0hjRXFORVBkR3htQm03RFQ3MlR6L0dkcVBPcWdFWFA4Q3RqSGt6UmJsTW9qSVQyQXBWcnduY2MwYTRmMXVjN2xzZnJIRldpbXU1YVBvYjRLYkpwc0JhM1IvZjQzUTFobkJWdjVUOVhwTU9na2FaYVN5bU1yZWpqMjBYZE9ORU1iTzBKR00wZFFsbWJ6cnVWdzN0U2oyV3h2QkZkYXdCc2F6VHB3OGt6UUxDV1Z4MEo2MTBNWGVqU2FnWU00a1YwS1FqUDdVSUptczNmN1NBalN2Y2MrblMzaDJrelI3TUZRRFdxK3ZqYURJV3MrbWkxTDVaR1FmbnM0OXRGM1RrWGQwY2FleUM0Rko2NkpHd3RuelJRZ25HeVNYUngxNzk5Y21oY3BHM3YrMTExVXdOc2dsTVBnaFIzTlczaWo0cEpVL2pNdHBHOTg0SGt2dmFGOTUxRFVIV3pzL1hsMlpUNVhBVENQeHp3OUJ1dG00ODVKNzJaSTVXa0l6ZGluMXp6TjVpdGlXY2lTeXRNUW1yRlByM21hclE2UnpoMkIwRXhRQTRSbWdocGdJYzFrMmN3K1ZDK2RRMW4yZTJhbDh3TFo1Z0R6YTJ6bTZiR1J6cU95N0FBejBubVJiRThIODkrUmVYclYweXlmZEI2VlpjZGp6VWpuckYzaTRqcHZSRHFuc3V4R3BmTWkyWjRPNXNNRjgvU3FIYzBLU09lNkxEdnNhVWc2TDVLdGdBTnFrTTdqc3V5R3BIT0JmYWhlT29leTdGT1Qwcm5BUGxnb25RdnNnMGpuM09NeFQ4OVo2ZHlKNzcyeGNFS3paUWpOMktjbk5Nc0o1dkdZcCtjc3pXVGR6RDQwUVROUTIvOXJYTXdkRm13akxTcmVZN3RHVFZOUVBacWdHYXJ0VVRGMzFNbURWTFAwb0U3cFhGQTltcUFacXUxUk1YZnFsTDQzQWoxOW9QN1hPbEJQMU92NnBITjVaT2s2WHgyZ3RrZkYzRkVuVjdRQ1BSMGJVc01UcEZrbzBua0Y0YzdVRkNEd28yTHVxSk1yV29HZUh1NzM3K0FUb1ZsbDRjNE96VkJ0ajRxNW8wNk9tcnQ2Wi9MamF5aXNuMGd6Sjc3M3hzS2RIWm85SnJWZEYzTUhuZnkvYUwwZDdpK0NKMk45bDdiUWpIMTZmR21XSHlLZE93S2htYUFHQ00wRU5VQm9KcWdCRnRMTWlXdml4c0xKRkdBWnNtN0dQcjA2YWJaL0hXNzJieDJrRkhBMERZQnRhZFpySGVLdHRBR3NYNUJ4UUZ6bmpZU3ptR2JnTzk4Slozc2ZKeFJ3dFdGeWNSaE9YK3VEaDI1eURXdURvdDhKYnI5NGpJNFNjWjNYSDg1YW1sR0g4cDNaVlVXMGcyNW5qQU5ZWit4MTBBWVhkTUJ3OTlzUnRUL1hicnZIL1JtNnpGbTR6dVhSQ3VrY081VGpJajcyajRaMjVlcWM5M0FySE1DcEQ2eWNuZW1IMUlVQ3ZPaTdhbGNvNndJdWN4YXVjMEgxTUVBejdGQ3VSek9pR1JCSG5SLzFhQlpPWC8rN2ZwZ2F6ZEJkSjY3enN3SXpvMW5RT3RnSlVmR2U3SWFEalEvSWRnNDFndUQ2TEJ6Z0RXYkphN1BKRnJyTXhYVitSbUNBWnRwQTNvSDd5UHlvWjNsNzJ1M1FURFBVdHVBQkZXK25tYVozcFljdWN5bllYbmM0YTZjQUZVSm94ajQ5b1ZsT01JL0hQRDJoV1U0d2o4YzhQV2RwSnJBUEZ0Sk1GalRzZzlCTVVBUE0wQXpsN3ZiQzY1VEJGK1gxU0NtZmJIcXZnak96OVVsL2dBY0d0QndTMStOYnpDNEZvWmw5TURTYXpkNGJ6bnBSV2J6cHpsSzFBcExYdFZJK2ZhMFB2bkl3bjkvWU85Zyt2RXJWM2FQQzdvOXJwaG56YTJ6bTZkVTZCVUFscVFQMVA4Y3ZYN3pyYVJGODFvTUtvQ0Ntazd3ZUtlVzB4ayszWWNDZXBFSHB3dTVhVnBlQzdmcnh5RlJlVGNZelBKcU5yL1JhbzRkYmVqUlQ5QWs2SkthanZLNlY4b0VQQk53WWd2a2M5MFJGblFxN3g3STZRa1l6OXVuVk81cjE0QkpyaWpXTFFia2ttcWt6NFdRTGFVYnl1bGJLZ3pZTmY4akRlRFFMZFdGM0xhc25za3RCYUdaZlBJTW5UVER6amhNMG0rd0djQk1RaWVrb3IydWxmTExwd3dIaitLNE0zWGtuS3V5T3Nub2lPNEgxTURiVHBGdXd2ZGI3MEQ3bkZTelFEbGRrZUI0a1JUMnV6dzR6VFRYMmdmbDhpSVhkOForQUR0Q3lPazFVaFdhT3dNSjFNNEY5RUpvSmFvQ0ZOSFBpbXJpeGNGWlBBU3FDMEl4OWVzN1NUQlkwN0lzbk5PUCtPekpQcjNxYTdkL29KZlZ5UXRTZ3RkdjY1SHJYYXgzMnZCYzNZM1A1WXFOcUpxNXpRZlZZZ1dhNngza0t1dFo2M0FKZC9YOXVMbDlzZGM3RWRTNm9Ia3MwZTdSMjdza0w1MDQva01UdzdWSHdwdmVtNTBOWDgzc2trdTlodi9PNEJUclFURXZtdXRXNUxzdnVlVzF4blorVnh6VE5udjd3NmR2aDB4L2NDazhEaWVIYkI5MzJ1SzI3bXFONmliWFh2eGxTQzNRczRES0t6ZVhVNmh4MXkzRlNTeGZYdWV0STAremJQMWMwZS9UY1Y2Y2VTR0w0OWdoVXpNa3VLcGtSemZUVkZyVkFoOUZNUytaUmQzUW95NDYyVFI2dWMrYlgyTXpUS3prRmVMUzJ0dmJzNllPWjlwb25hQmFRU1A0RjlUdVBXNkFqelVneTE2M09zU3o3R0M3eXk3bk9uZmplR3d2SGhHYUlmemlkWjNCQ3ZOTHp2cWV1cVR4djQ2NFhpZVM2M3pubzR2ZWltU1pKNXV1WHFOWDVDTXF5ZzNwK3ZseXZjeWUrOThiQ01hRFowKyt2RWZJTVp3czR1YXQ1QnRUVkd6U2d5SlZkQ2s1ODc0MkZZMEN6OE5mNm1pekhhTGFBazd1YVp5RllzSlljQjVIT0hZR0ZLb0RBUGl6UkRFNmN6emVVekJLRVpvNWdhVUhqclhOcXRwbGplYllXeUxxWkkxaGFudjBEdUR3cmVtMTJER0pYTUdpWlZFSDdlbktUWHI0ZHdISXNPb0poVFczNitoQjM3WVN5YmxaQk9BNVRBSVcvZjBmOTgxZG1hQmE3Z2xITEpLdnY0aWFvdi8zUUR3ZStkcDJRdGo3Wm5ld21za3RCYUdaZnZPd0ZEVk1uelloVHFHV1NPVzV4RTFTc1JaY21ldWkwVGdwNnB4ck14QTdzcWgxWUwyZzgrYVBRREtLN2drakwxRmJmeFUxdFdQS2Y3QkxYMERuY0dvMDdlaDFPUmpQMjZaVThhZDRzdFR4N0REU25TTXRjR00zMEpoak5rSDQ0bXFGT2l1VzQ2NlNab0hvczM2SHg3WitIVDk4MkZKMUVTcTFsa3RWM2NkTU83YlpEam1EVVNRK0ZadTVoaVdadmg0OHVmUHVueG1hYUh0eEtobHJtUzIrQTFmZG55VTB2YnNKOE1rQXI4VURmT09TUFFTclY5OC9LdXBraldEcHBmdm5zclp0czFtZUZabzZnOUIwYXRVQ2tjL2JwbFZuUStNRXRXdE13TlFWWUZVSXo5dW1WbkduKzJxQUtzREtFWnV6VEswZXpQRGFBK2lBMFk1OWV5U3JEeTlNQUFCN0ZTVVJCVk5FTWRTYldvNW1zWjlpSHBkRXN6N1hadmk2QXZRQzQ2WC9aQTd4K0tibWZHVHR3bnM4bFlJVXkxMlpSQWV6RnJibzJkdG9ESEdtWXVCSnJ4ZzZjNTNNSldDRnpRZU5FVFJQMWJXUUVGbU9jL0tTN01jUktpM3VqTEErd2VvcTdZRDFqTTNaZ3cxSzNQTlp2Qno1ZDAwUjlPNnBNSEx5cVRubHdCOC9ZVnpUTDhnQlB0dzl4bDRkYm9Tazc4UEc1bFFMemEyem02WldjYVo2cWFhSytqWXpBUXRtVFhiQUZkejJrV1lZSEdFWXoyR1d5RlpxeUErZjY5UG5CL0hka25sNUptcDJxYWFLK1BjTFJUQmZLdnQ4SFB5K2NORE04d0VtYW1iRURDODNzaTFkYzAwUjlHNVZ1dkRZYmJOenJ0cUdFOXNQalBNQnQzR1hhZmJVbmR1RG13ekdoV1UxWXdRNHNzQTlOMFV6c3dHY0tpOUw1RHh2TUpBdENNMGVRdHB4d3VUZURJRFJ6QklzMGV4dkZKaTVtWUprQ1ZCQ096eFRnU3paam1peG9zRSt2ekcyTmIwTjFneEozTmU1Zng2WC9nMVRGNDhrbStDNWg2YmJYR2kwM21tWWluVFAvSFptblY5WU9mS0g0WHdMQkhQempIeWNhbklOYjZlSXduTDZHQzdPVGExbU5wbmxJNTh4L1IrYnBsYnRKdThUZklhODRPQzVuZTlSeVdnMUluYkhYd2JYOG9ETjd0eC8rZHBUVmFGcWs4N1B5YUdEZGpHcHFnOTZOVGw3d1c2cHozc090Y0FDbnZqRW9VdE1QTXh0Tjg1RE9CZFhEQU0yb3BqYU5aa1F6SUk0NlNlclJMSnkrL25mOXpFYlRQS1J6UWZVd001b0ZyUU80YXhGYVQyRExhUjlwQnZmS3d2VlpPR2hsTjVybUlaMExxb2NCbXVrRzB6aVA5S09XMCsxcHQwTXp6VkFYUUY1dU5CM0o2eUtkMXhpT3dSU0FIWVJtN05NVG11VUU4M2pNMHhPYTVRVHplTXpUYzVabUF2c2dOQlBVQUF0cEpnc2E5c0VJelZEdGJpKzhibzFTKyt4Zmo0WHl5YWIzNnQ0QjdVUDI5V1ZaUFpsZENrSXorMkJtTkp1OU41ejE5RjBWb0VrdU42Y0dkVDN5b2IvV2o3eFJvSUp1SDE3Tmt0VVQyYVVnMHJsOThZelJMQXpBeDlRZnYzenhycWMxY0hBK2taWk82bm9rbE5NU2YxUlNtM3pGUzdKNmZkTDVFZTk0UjZieWFqS2UyZEZzZktYWEdqM2MwaFFDVnpwMXBnNlNIdk9CRHdUY3VEZW5XWmFzanBEUmpIMTZ0WTVtUGJqQ21xTHZFdFJMb2htNjBwRm1wSzVyb1R4b3g5Sm1tQmpOd2tWWlBaRmRDa0l6KytLWk8ybUdJU2pnYzVwTmRpTlgrbURqQTFUWHRWQSsyZlJqQlgxWGwzRmZsdFVUMlFtc2g2bVpKdHhvRGQ3ejl6ZUcwKzRyV0pXOWo2NzBTRXNIZFoyRWNwaHBnclJPazBwUTFETmtkWnFwQ3MwY2dZWHJaZ0w3SURRVDFBQUxhZWJFTlhGajRXeWVBbFFGb1JuNzlJUm1PY0U4SHZQMG5LV1pySnZaRjY4d3pkTEYydWN5K2Y0TkxYeVB2WTNQUDVvN3l1T3U1dTFVcUhUNWR1d0pETlZwVTltbElOSzVmU2hLcytWaTdaRk1ybXUxUCs1UExvK20zYzdjVVk1VjJoZkVkWTEwK2ZZZHZjeWJ6aTRGb1psOUtFYXpyR0x0c1V5K3JxV2krMVM0UUF2bHVrbzdpZXNrcHJjKzlqcUJHdWJTNWR0M3RBNkFZY1YxN3RKak1acGxGV3ZYTXJtMm5pc1czc1lSS1hhVVU1VjJHczBpTWYzMmNQclpjdmwyUERwb0hlb2E4S0dNWnM2Z0dNMHlpN1ZITW5ra2ZCTkZJcUZjVjJrbmNSMlBtcjEzNzg3dWcrRnkrWFkxbXZWOHNoVGZyNUZteksreG1hZFh4UlFncTFpN2xzbFJIQ2ZoKy9JSXkyYVFVSzZydE5OVkZ4NFZCcGUvNkhVeXlyZnZoT0VnQjgyYytONGJDMmNEelRLS3RaOG5DUnpld1I3bFVBMkRsUEdvWUx2dWFnNlhXM2lVR3VqQ0Irb1V1bHkrSGJxampEMGZDN3duc2l2enVRcUFlVHptNmRtMGJuWmMrWGFoR2Z2MGJLTFpjZVhiUlRwM0JEeG9kaHlFWm81QWFDYW9BVUl6UVEyd2tHYXlibVpmdkdwb0Z1dnBxSTVEQy9UK0NlOG5zZCtmdmo1RVMwQW5GSnBWRU00bG1zVjZPcXJqMkFMOWhQY1RvQjBudTVQZFJIWXBDTTNzaTFjeHpWQWR4eXIvd1p2ZW01Ni9XSnBkdjQ5dEtBYmV5OWUwL241QXR3U0o2MXhjNTZjZzh2cWlPZzR0MEtmZDlyZ05ZMVN5Tkx0Ky8zNS9ESHA2NEtQK0hyUkcrQklnMHJranFKWm00Nmd2VHVDRFUzaXl1MWlhWGI4LzhMejJQcFIwUi8wZHE3NEx6ZHhDaFRSVFl4ZXA0OWdDbldpMldKcGR2LzlnU0tLOGovcjc0V2swRTlpSHltYWFIbHlGa1RyK20wdFF1YXoxdnBjcXpSNjlmOUFsRXpwVmV4K1RCTy9Qc3hOWUQwYnJab0cvdEVta2MvYnAyU1NkQXlhYkc4UDBOcUVaKy9Sc28xa1doR2JzMHhPYTVRVHplTXpUYzVabUF2dGdJYzFrM2N3K1ZFZXpiSGw4WWV1VWJ2OGZnQjhkYTdZM0lwMExxa2VGbzFtMlBMNndGVHVrUC9URGdhL3JnalloblF1cVJ3MDBXNVRIRjdkQ1QyR3NvNDFWamtVNjV5SjFXeUtkQTdMbDhZV3QyTlk4NkNpYUVkY2FrYzZaVCtXWXA5ZjRURE5iSGwvWWlxTVpGalhBMGF3WjZaejU3OGc4UFJZMFc1YkhGN2FDMFR6RVN6UzhOc3NublR2eHZUY1d6aldhTGNybmtUeitzK1RXRnpkaFBobWdJUjJzN0NLZHU0cWExODB5NVBHVElEUnpCUFhTTEVzZVB3bENNMGRnb1FvZ3NBOFcwc3lKYStMR3dyazJCVEFCb1JuNzlKeWxtYXliMlJldlVwb3Q2T1NvaDY5Zno1RE94N0NpMFp4MHp2eDNaSjRlQTVxbGRISXM1NzRzblkrZ3libEk1MDZqSHBxUlRvNEZrSmVsYzJ4eTNxQjBMby9WUDlaQ3MxZ25YKzh2YldxSDJPUzhRZWxjVUQxcW9abld5Wk9qV1VJNkQ2SEplWVBTdWFCNlZFK3p1VTZPNWR5enBQUFplME9Sem1zSzUrQVVZRUU5ZitrTktPZWVLWjFEZWVQODBya1QzM3RqNFJ5azJjb1FtckZQVDJpV0U4empNVS9QV1pvSjdJUFFURkFEaEdhQ0dtQWh6V1RkekQ3a3B4bTBNbStuTjBacit0M1dKeUNLSC9hOEZ6ZXB5VG1zWHB6YTNUenVoNjVmWTMrNmJyU2NJZEo1QmVHWVR3RjBLL01VQXJyZEFrdXl3OXZxLzFHVDh6emR6ZU4rNlBvMS9vSHBEdFhlRG9WbUZZUmpUYk9vbFRtVlhSKy8wdDI0MSsyTTEwRVptbXllL3d4cEVkRk1Oem5QMDkxYzc3cFl4aDFvMWc3cjYzVit4RHZla2FtOG1veVhrMmJVeW56N0FNdXUvMVNkNXJCbCtUN1E3SDcvRzJnbzNZbnVIb3Vhbk9mcGJoNzFRMThvNDQ1Nk9rRkdNL2JwR1IzTm9sYm1WQTliY1dTeUZkRk1YMXVSMFJkR005M2tQRTkzYzczcllobjM2UTYwc1U1a2w0Sk1BZXhEL3RFTVc1bkhOQXVnMGZsZzQ0dTkwWU9ob2h5d0pLWVpOVG5QMDkxYzc3cFl4bDJkTklOT01qdUI5Y2hKTTkzSy9IdFVkdjB1bmh4SjUvYS9Wa1BSNDB1ZXVsalRNMDFxY3E2UW83czU3cnBZeGwzTldOVVZIVFVMRnBvNWdsTHJadVBPNmZ1Y2d1TzZteTlDYU9ZSXl0QnN2dEpWSHNkMU4xK0VTT2ZzMDNOV09uZmllMjhzbk5Cc0dVSXo5dWs1U3pOWk43TXZudEJNVUFOV285a3NRMDFIWUxmV3BBaXVOd0hHM3NibjErRGZlenlrYzBIMVdIRTBpOVIwYlZGYWVHc25JWUluM3A5Y0hrMjduUkNzNWp5a2MwSDFXSjFtazU5ME40YllabnE5UDM3NTRnY29yb011cFRhaENBN09KWGl4UGNLMTJ2dTRqb0ZXY3g3U3VUeXlkNTFQdHcvVk9XKy8vM0FMU3JLLzJtdVJ1TDRidEVacVV5U0NqMzMxUW0xQ0hmMDJEbDVvTlJmcHZQNXdWazRCWURUYlZReWJiR0ZKOW5FbkpOVVRiaERhMGlJNENPUHFoZHFFT3ZwK3RDcDd2ODlET21mK096SlByMjZhUVVuMkpacUJDRTdDT05BTWRYVGdFS2hWcy9lRzVhUnpKNzczeHNMWlNET1lhUTdVakxHdEx1cmhYRGVJZXByZmhjYmxyNUFJL3NjZTNObllHWHMrNmVoanVFRUlMdGltNWFSeko3NzN4c0xaU0xPcUlkSzVJeENhQ1dxQTBFeFFBNFJtZ2hwZ0ljMWtRY08rZUVJejdyOGo4L1Nxb1JtVlhjKzg3MVdYWEorTDRmdlh1N3J3K3J4Z2UzOHVvWXZydklsd2R0Q01TbnRTallLRUhoNTF4S1JYWkdvQ0kvb09QWThMdHFlcUc3Q1F6cG4vanN6VHE1Qm00SmJya2g3ZXhWWFdqbnFLUllyQmp6NUVhcEZQWGRNc0t0Z2VrczhPak9wd2xFam5aK1d4SE0wbVc5QzduUFJ5NEZlSVQwUHRSdytwcmdIWXlyRkcrOXh0RGtjR0xUU3F3MUU4cEhOQjlTZzdtb0ZRcnZWeW9JbDZTcU1aK05HUlp1UlRWNk5aejU4WGJJY2p0VkVkanVJaG5RdXFSOWxyc3dmRUxXeGg3dU5UdkRaRFAzbzBtZ1d0QTNYMU52Q1RCZHQvQlBVUXdLaE9vNW00enM4R3lzNDBwOWk3dkVNUCtCUkxyby9CajA3MU1hTEc1bUJGand1MnF5TzFVVjI5WDlKMTdzUTFjV1BoTEprQ25Bd0RmdlFraEdiczAydUNaaWI4NkVrSXpkaW41NndLNE1UMzNsZzRvZGt5WkFyZ0NDeWttU3hvMklmU05DdFlXSHRqaUpMbjJOdjRJbFpGbVdpYWd1cFJsbWFGQzJ1VDVJa21ZR3hHRGZ2eDBEUUYxYU1jelVvVTFrYVJnRXpBVU9KNGhob21DMDN6aUhlOEkxTjVOUm12SE0xS0ZOYkdMdE5rQXRiTnFEOWlvbWt5bjhveFQ2L0ttV2FKd3RvNG1vVWhIUWZuVE5Bd1dXaWF6SDlINXVsVlNiTVNoYlgxN1doZ0FzWm0xS2hobHRJMGhXYjJ4U3RIcytLRnRUZUdJSG1DQ1pqYU9WM3BvWVlwbGJUUEJreXNteGtXTWhNUW1qa0NBelF6TFdRbUlEUnpCQmFxQUFMN1lDSE5uTGdtYml5Y1RWT0F1aUEwWTUrZXN6U1RCUTM3NGxWRU03cVhHKzNBN2NsbWF4UmlyekFTeGttdkJNZW1GZ29Hc09xdnpjVDcvZW5yMkNNUlh3ck4yS2ZYN0doRytqaTFicDFCazhNSFE3M0dyd1YzY2dqdmhMTzloMzQ0OFBYcUxkbUZKN3VUM1VSMktZaDBiaDhxcE5uanZyWTR6WDdWODVkb1JnN2huZGxWTkhqdW9oYWxGZmtEcW9rZ2RtQjNIaXVqR2VyamVqUzdPbjJ0bjZLWmRnaURTaDUwRk0ySWE2Q0xCcTBSK2owQk1wbzVnb3BITTJ4RXJVYXN5ZVU3aXpUVERtRVl6WkNST0pxaElqL2JFNW81aHlxdnphREpPZWdEMEo4MTJCaHFZUnovalJ6Q1ZPd2xLdlNDaXZ4aDNUUmpmbzNOUEwzbVo1cGdCOTdBb2kyS05MZnZkZVBKNS9vTmNnaS91QW52Qk5pdGVxQnZVZlBISU1ycjI3UmwzWXg5ZXM2dW16bnh2VGNXVG1pMkRLRVorL1NjcFpuQVBnak5CRFZBYUNhb0FVSXpRUTB3VGJNRmFSenQ1LzNqM3k4bm5UdHhUZHhZT0VlbUFBdlNPTnJQVDNpL2xIVHV4UGZlV0RqSGFJYlNPTnJQeVpxKzZDeGZSVG8vTWl6dE1vOTNaQ3F2SnVOVlJUT1N4a09zNlk1dHFSZWQ1YXRJNTA3ODU5MVlPTGRHczNHa0Z3VStlWVlYbmVXclNPY0MrMUFKeldKcEhPM25STE5GWi9rcTBybkFQbFF3MDV4TDQ2M2ZYUEtpdHRRTHp2S1ZwSE9CZlpCMU0wRU5zSkJtVGx3VE54Yk9rU21BVVFqTjJLY25OTXNKNXZHWXB5YzB5d25tOFppbjV5ek5CUFpoTlpybGFVa05SZHJCZUtKYlVzL21kZDVMRm13WDJJY1ZSN004TGFrL3hYL2psdFNScUtsZWxTdllMckFQQm1oMlNrdHFMTktlYUVrTlRhaC9vcmFQeXphaGxrZjdIazNRN09TVzFGaWtQZEdTZXJwOXFMYnY5OVZPNVFxMk8zRk4zRmc0SzZjQWVWcFNRNUgyUkV0cUdNMTIxYXZKVnNtQzdVNTg3NDJGczVabXA3V2toak5sb2lYMUFzM0tGR3gzNG50dkxKeU5OTXZUa2pyUU84eGJVcmNIRy9lNmFxZFhwQWwxL2VGc3BOa3BXTG1TdTh3MEhVR1ZORnU5a3J2UXpCR0lDaUNvQVVJelFRMndrR1pPWEJNM0ZzN0JLY0RLRUpxeFQ2LzVNbnA1QzdhanRpNnU4M3JDT1VXeklnWGJSNkN0aSt1OHBuRE8wU3h2d1hiVTFndTR6dVhSdmtjR0JkdFJXeS9nT2hmWUJ3WUYyMFBRMXNWMTdqUllGR3hYdTRucjNHbXdLTmdPT3JrVWJLOG5uRnRUQURNUW1yRlBUMmlXRTh6ak1VOVBhSllUek9NeFQ4OVptZ25zZzlCTVVBT0Vab0lhVUwzclBMcUhWbHpuWnhnMXVNNXBqZGFjNjl5SmErTEd3bGs1QmNqaE9rZWFtWFNkSHhtV2RwbkhPektWVjVQeHFuZWQ2OXMweEhYT0k1ek5vOW1Kcm5PZ21iak91WVN6bG1hbnVjNzFhR2JNZFM2d0Q5Vzd6cUZ3KzhpazYxeGdIOFIxTHFnQjRqb1gxQUFMVlFBbnJva2JDMmZsRktCaUNNM1lweWMweXdubThaaW5KelRMQ2VieG1LZlhETTNLOURvdjZEb1gyQWNHdmM2THVzNEY5b0ZCcjNOeG5idi95S0RYdWJqTzNRZURYdWRoUWRlNUU5ZkVqWVZ6WXdwUXF0ZDVNZGU1RTk5N1krSGNvRm1wWHVmaU9xOHZuQnMwTXd1aEdmdjBuS1dad0Q0SXpRUTFRR2dtcUFGQ00wRU5zSkJtVGx3VE54Yk9qU25BZExsR094aWV2UFBhWWE0M0xVam5BekRNU2NIMmVzSzVRYk53dVViN2JPOWcrL0JxNURCZmxzNGYrdUhBbDRMdE5ZVnpoMmJwR3Uyb0RFUU84Mlhwbk9UTS9OTDVrV0ZwbDNtOEkxTjVOUm12cXRFc1dhT2RhS1lkNXN2U2VkQlJOQlBwM0dtWXA5bHlqWFpOTSswd1g1TE9zZWFCRkd4M0dwV2NORk0xMmpYTnlHR2VKWjFIRllTa1lMdXJxR0NtbWE3UjNnZFpmS29kNW9pMGRBNTJ6dnpTdWNBK3lMb1o5M2pNMDNOV09uZmllMjhzbk5Cc0dVSXo5dWtKelhLQ2VUem02VGxMTTRGOUVKb0phc0NxTk52dmd6RGVqbC9IcnZKdy80YXVzVGYyTmo3L2FGNmJuV1JMVk1ySDRCU0lTcjVQU1dKQzM5MWlkZ0xyc1NMTkpqKzZnY0w0ZkV1a1dVS0JkdXgzUHJrOGdrS09jVzEyMU14SktmODBqSnFpNDVFN2VtMDNuWjNBZXF4RU01UzZrU2pxV1l2cXNCUE50QWdPSFlMdkU0ZTBjcTQxYzlTVzBHNk9PODNRajc1UXoxMEt0b2NpblJOUTZrYWFLZG9FcjJJZGRxSlpva0Q3YlJ5ZzR0cnNwSm1qVW81Mjg2aUsrMGU2UFhyUW9ucnUrQWRrcHNrK3ZScG1taWgxSTgzVXM4a1dGc2dtbWxHQmRoek5pREdSY3E0MWN4ek53akRlQ2Yzb1dNOTl0a2VGdGhQWmxmbGNCY0E4SHZQMGFxQVpTdDBqSE0zYUlWakxOYzN3bHA2Z2RZRDl6cUhJdnpwQmF1VmNhK2I2TGtiZFcwZnRCSDUwck9jdU5LczJuSVUwUTZrYlJXKzhOb002N09kSkxZZDNVQUdId2hrZWxuRkg1WHo5RXRuUlIzQVEyTTJwS2ZxVm52YWpRN0V6SCt1NUo3SVRXQTlaTnhQVUFLR1pvQVlJelFRMXdFS2FPWEZOM0ZnNEM2Y0FsVU5veGo0OW9WbE9NSS9IUEwxcWFKYW51M21JRmRqajd1WWh1WHpqYm5XeE5sNnkxN2tUMzN0ajRleWdXYTd1NXAvaXYzRjM4OGhpUGo4eU9xcFVyM09CZlNoRnMxTzZtNk1rbnVodUhsbk05WkhibzhubStjL2dxSEs5enVYUnZzZHlORHU1dXpsSzRnbnhQTEtZMDVFQlZHZi9aZ2hIbGV0MUxyQVBaVWV6RTd1Ymd5U2U2RzRlV2N6cHlObmVDQzdINEtoeXZjNEY5cUhzdGRtSjNjM2hUSm5vYmg1WnpPbElSYk1IUXpXbzRXaFdwdGU1RTlmRWpZV3pZd3FRcDd0NW9IZVlkemNIdWZ5bE42Sjd0djJ2MWVpbDNqOWZydGU1RTk5N1krSHNvTmtwV0xtNytTS0VadXpUYTRKbXEzYzNYNFRRakgxNnpxb0FBdnNnTkJQVUFLR1pvQVlJelFRMW9CS2FaVlJ0bjU1UXNMMWdyM01ucm9rYkMrZlNGR0M1YW5zc2s2L2U2OXlKNzcyeGNJN1JMRjIxL2ZpQzdVVjduUjhabG5hWnh6c3lsVmVUOFNvZHpaSlYyNDh2MkY2MDE3a1QvM2szRnM2cDBXeTVhdnZ4QmR2RGdyM09CZmFodXBObXFtcjdTUVhiaS9VNkY5aUhxbWFhNmFydDEwOHEyRjZzMTduQVBzaTZtYUFHV0Vneko2NkpHd3ZuMGhUQUZJUm03Tk1UbXVVRTgzak0weE9hNVFUemVNelRhNUJtQlRYTmdrMm9CZmFCZ2FaWnRBbTF3RDR3MERTTE5xR1dSL3NlR1dpYTBvVGFmVERRTklzMm9YYmltcml4Y0E1TkFZcHFtc1dhVUR2eHZUY1d6aUdhRmRVMGl6V2hkdUo3Ynl5Y1F6UXpCcUVaKy9TY3BabkFQZ2pOQkRWQWFDYW9BVUl6UVEyd2tHWk9YQk0zRnM2eUtVQ0prdHJMbGJPbGtuYnQ0U3lqV1ptUzJrdVZzMHRWMG5iaWUyOHNuSTAwSzFoU2U2bHlkcWxLMmtlR3BWM204WTVNNWRWa3ZCVnBWcXlrOWxMbGJLbWtmVWF3OG1oV3BLVDJVdVZzcWFSOVJyRHl0Vm1Sa3RwTGxiTkxWZElXMkllVlo1b0ZTbW9mTEZmT0xsTkpXMkFmcWxvM00xTlNXMmFhN05OclZEbzNWRkpiYU1ZK1BXZnYwSERpZTI4c25OQnNHVUl6OXVrNVN6T0JmUkNhQ1dxQWFacGxHTTVoNmRZN2I2NlN0c0ErR0IvTmxnM25zNzJEN2NPcjVpcHBDK3hERlRSTEc4NVJNSkJLMmlVZno3aDBmZ3d5RE9kRU02bWt6U0tjSXpQTkRNTzVwcG1wU3RwT2ZPK05oWE9GWnN1R2MwMHpVNVcwbmZqZUd3dm5CczB5RE9kOTBOS25Va243TEVQV3pRUTFRR2dtcUFGQ00wRU5zSkJtVGx3VE54Yk9qU21BV1FqTjJLY25OTXNKNXZHWXA4ZkFkUjdkUXl1dWN6N2hMS05aTHRjNXJkVWFkcDBMN0VPbHJuT2ttWEhYdVR6YTkxaXA2MXpmcmlHdTh6T1BhbDNuUUROeG5Rc3FkcDNyMGN5czY5eUphK0xHd2xrMkJjampPbGZQV2lQanJuTW52dmZHd2xsR3MxTWdybk9tNFp5aW1iak91WVp6aW1hR0lGTUFSeUEwRTlRQW9abWdCZ2pOQkRXZ05NMzIrMkFtYnk5dW5HNGY2bldPc2JmeCtVZHphVnlMbi9vaDJsdWs4L3JEMlRVRm1Qem9CcHJKRjdjR3JSRXNzVDd1VHk2UFlERXRsc2JSWXg0L1JKQ0M3ZldIczRsbUtJY2pLOVN6MW1qeWsrNEc2Ti9nc1ZRYkg0TzhCTHRGMHJqMm1PdUh3WHAvQUV1MVhsc0t0dWQ0UERLVlY1UHh5dEVNNVhDa1dlQ0h3YXZxdEFlMy9veDlvQm1LNUxkeGhJcWxjZktZUjFaeklPSVlCZlZTMHJrVC8zazNGczZtMFF6bGNHU0ZlamJabXV5Q090NzEvSGcwb3h2T0ltbGNlOHlqaC8zK0hhMURpWFIrUmxCNk5OT1hZVUZiOFFOcEJ2bzMwUXlJcDRneTdrVFN1UGFZUncrVEgxOVR3MWNZaGxLdy9heWdITTNRSG80U09WNmJEVGJ1ZGR1QjU3VWVrbU1jeGlZUHBYU1V4dGN2NGM0dnZZRVA2dXBNRVcreUNUWFBwR0Q3R1VGVDYyYmZETVBaMVZQM0VwbzVncVpvRmh6blYxbUFUQUhZcCtlc2RPN0U5OTVZT0tIWk1vUm03Tk1UbXVVRTgzak0wM09XWmdMN1VKeG14MmptbzJtMzljbjFydGM2N0hrdmJwSW12bjRwc1I5NjBjZmV4aGV4WGIya2RDNndENFZwZHF4bUh2amdMb2Z5bjRweXFlcnNzUmNkYXJPVHVJNmJ4WFYrUmxDUVppZG81a2lOaUdiejZ1eTRTK1JGeDlyc0tFZk54SFYrbGg0TDB1d0V6VnlkRUR0UjM1SjVkZlpEM0VWNzBYZXhOcnQyb0pkMm5UdHhUZHhZT0N1bUFDZG81aUg0Z2FQUmJGNmRIWGVKdk9naDFHWW5jYjI4Njl5Sjc3MnhjRmJRN0FUTmZJeG54WWhtY1hYMmlHYTZUaEFVYkNGeFhWem5qWVN6Z21iSGErYis0MHVlZXFWbm1yRm0zc1pkSWk4NlhzYWh1SDZsSjY3elJzSlpRYk9hSVROTlJ5QTBFOVFBb1ptZ0Jnak5CRFhBUXBvNWNVM2NXRGlaQWl4RGFNWSt2V3FkVGNVdDU4YWtjeWUrOThiQ1dVU3pNcFp6YzlLNUU5OTdZK0dzb1ZrNXk3bEk1MmY1c1FUTnlsbk96VW5uQXZ0UWdtYmxMT2ZtcEhPQmZTZzNtcFd3bkp1VHpnWDJvUVROU2xuTzFYNGluWE1JWjgwVW9FWUl6ZGluSnpUTENlYnhtS2NuTk1zSjV2R1lwK2NFelFTT0FIOU9yalRMQlBmcEovUDhHa3hQYUdZUXpQTVRtZ25jaHRCTVVBT0Vab0lhSURRVDFBQ0xhSVozUjNJRjNhTEpOc1ZwRnpKckxqMTdhS1lWZUs2QTV1NThVM3d3bkw0K2JEQTllMmdXM1UvRUZFQXoxaW51OXh0TXp4NmE0ZDJSVFNkeFBJQm1yRk84TTJvd1BYdG94bnFvNEQrYWpmMG0wN09IWm53dmZCQzhyODJvbFpGY20rWEFnT3MwRG9HOWd0aW1HSGpSRGFuTndDS2FDZXlGMEV4UUE0Um1naG9nTkJQVUFLR1pvQVlJelFRMXdIMmFmYm0yZHU3djMwbHQvUFpQM25uNis3aFJQeXdnYTF1ODhjbDN2enB1bDlPeGZGakpRSmpKN3ozOS90b0Y5ZVN2YnVITDc5eEtwcm53cWdEVVYvUGZTcWQwSEp5bjJjM252Z3EvZkNiOXZkMmtMVXYwVzNnM0UwKy8vOXhYcCt5U1F2eEhqdmxydVk3TmdPTDdsK2NlcVd3ZUFkWENiOTk2OXRiOFRmMnFRSm9SMUNFclVQOFl1RTZ6Si84U3ZqSDZJUkpRLzhuQ3d6SC8yZXAzajRtSW85bUp1eXdpL2lNbEJva1REdm4yVDIrRlNMT25QNlFOVDMrUW9KbCtWU0ROT0s0NjVPa2ZmRlgwc0pQaE9zMitmRTUvWVhEdVZOLzlmMStELy96WDF2QS9XZlY0QWY3TFRieW5Ua1BQM3NJZjU5dTMxcDVYWThMZndJYW5QL2pGTTMvNSsrL2dtMCsrKy9PMTUvSEh1TG1Hd2VGQWRUeStoQjMvMDNmL2V1MjVmMXg3N3ArKy8rd3ROVFRnSDRFRE0vNWFpS2UxSi9xQXI2SkllbzlmUFBNZm8yUDE3bCtxcDlHZmZmUzhvdndMNnFUNUQ1cGQrZ1A4L2pzcTg3Vm4vd1pmZmZzbmY0azV2d0JqV3lKU0hHL3QzTk5vaDV2eFY2TStTL3EveXhWeFZtaW14cUFuTC93N3hSejRXYjl6U3cxeWlnSC9CN2p5ekR2Sjk3NDhwd2hFWXdDTUIvK01HMzc1bHZyWjFZNzQ1cE1YTG56NzFnWDE1SkhhZG83b3FIN3ZDL0R5MzZnZDFXdjEwejBQVjM4L0FNTENIOEVETS81YUNPZW9YMFlIL0ZKSGl2WTRGMGJIL3BKMlY4eTZlVTcvV2JXZFB1R1RQOUlmVmNWUSswQ2ErTWZ4RmVXclQ3N3pTRG9lL3FFTGVnZU1TMS9OUExncG5CV2F3ZmQyOHh6OThPbzVjUW5vUksvajk0QTFGL1NwUnYyYXYvNEtOd0Rqb2pmaHBJbTBVVU9Cb29VK1BYMTVEbC9DY3dxa3FLaWY2S0h4UXRaZm84bEk0Z0NNRk8wUnhzZlNMampHUkg5V00rSGJQMU5VZVViL1owRi83dEdjNHhEZ3kvaThPbzhVZnhId0lXa0hqRXRmamRDc0tPamE3TWxmZlBrOGZIZkgwQ3p4M2lNMXVFUTBlL0tkLy9FWElXN1FQemsrbjlOTW4xZ2ljbHpRenpOb0ZrZE4vYlV3bTJiUkhtRjhiSkptK3M5cUpxaHg2dWFGUjVydSttUEJxRGovNHlvd3pTUVNrZlFYZ1g5STc0QnhoV1lsQVROTmRVV3I2QlovdTQvVTFkZGJ6LzV0VExQa2V6ZjFHVEUrRmpmb254eWZLNXJSMlVqOXRqaEt3TW1Qem1oUGY1aW0yZFB2dzk4SjQ2aXB2eGFtYUVhUjRqM29DdkJDekZpODNvLytMRklMVDVscG1qMDZsM3lsOXFTTHVXUWsrcGYra040QjQ5SlhjMHV1elFyajVocGNOOE01NFlKNi92eVg2aXRWbTlZdTBCTjhTTHozajJ2UC9LdG5mNkYvRi9nTkg4R0dQOFNkNk0yL2ZRdjJwcU54MFVCZFE5Tmw4eHBkUnF0QTZ1R3Y4ZGt6L3hwbUNoY3d5SzNsdi9ZVjVQWGN6Nk1EL2tsSDBuc0F5Zld4ZnhnbC9zdzdvZjZ6TU5Pa0thRSthVkpJRmVaL3Y2Q3U3T05YWDhVWDlJbElQNmQ0K0lkQ3ZjTk5tbC9BSnBscDhzUGlRa0o5a1dnQk5nUC9yRWozNndSUDFPWGJ5WkhTTzVSWUJqa0ZRck9WMFJUTndpZS9sN2taRjc3ZVRteFlXalZNSTcyRHFBRDhvQzY0bnpOemlqRVY2UkZkSm1qY3hIbnBDVGgxQndNUW1nbHFnTkJNVUFPRVpvSWFJRFFUMUFDaG1hQUcvSDhXY1dvNFBRV3QyUUFBQUFCSlJVNUVya0pnZ2c9PVwiIC8+XG5cbjwhLS0gcm5iLXBsb3QtZW5kIC0tPlxuIn0= -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAMACAMAAAC5KFtLAAAByFBMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshQ9elmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojm6Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq46rq6urq8irq+SryKuryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///39/f/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///+WuUGrAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO19j58b13Hf6UdVt065dxJo1HHilGfS1EmApF6js89cJY4bNbEgqaeaqkiCTdwmxFEio0qloCRttCRt9Q7HgCJqQth/t29m3i4Wi7273cXb3Xnv5vuxCWCxOzcAvnq77333O7MWCgSVY63pBARnAUIzQQ0QmglqgNBMUAO40uxfCBwB/pxsadZ0AgIzsJBmR4b/CPN4zNPLF09oxj0e8/SEZjnBPB7z9Jyl2b8VcMYJP+SxNNvvT7utT/qT3aV3Jj/qz1/ATte7Xuuw5724ua7emPU8QPukg9RRtOvGMHrttUbwr+f5QjNbUYJmihaBP/nRjV5n6a1v/kNiG+zUn24rjmyPpu8qcv2/fz+cvTec9fwTDlK80rvGr1UE9e9OOG6NhGaWojDN1JC03sdffPKT7sYwgFcvX7z7SheGn0/VG9NuZ0zbYKeIZr96fRj+9j8DzcKgo2K0Drqtj71OoI6Cg8LBen+gtqmxLtpVRb7Ra73fmdOsHdKi2dERnvqPko9Nf4+CE7H0e8HjSTQLOuqkGY69Tji5OFTPwvGVnjovKsJ1wulnU0WRsdpDEWSEO+HZTnHvw4E/+5+39WgW+CqM2u32cPqZPkiR6XEfjuxHu6rI/nT7o2g068YnWxnN7EPh0Uwx6z5cS6lT4q56pn5+X7FD/W+ypXgFF1BIljGeCAM/Gs0+nFz+v/9L0awH12YqxmRr9t69O7sPhvogte2OGtOQkbQrRIZY0Wg2uTwSmtmKwjRTg1bQeggEQJrdHo41zdQbvx3BmU1tH2zcVdtgp5hms3d/OsLRDGK08YDLX8DlHR0UTn58DY5QhNK7QuTJ1j5e3U121Ukz6JxAMydm+I2F47egAWdB//Elb2M42LjXbQfqlPj+xlANSTCj9GE8gissf7AxhJ3uRTNNGPMCmGfCJRxcmyn2fRg+gOENDxqpM2g42fS8813adeMDz3vpjSs9dajnrasZq7qiW+/PsyvzuQqAeTzm6VW1bjZennWWwDfDcHb11L2EZuzTq4hm82WulaCGu/X+qXuJdO4ILFQBBPZBaCaoAUIzQQ2wkGZNLwxViKyPexamAPmk81nPa+N+sE6xjv92UBNon3CQSOfLyPq4Z4BmeaXz6fYI1fPJxWE4fa3/u5HaINJ5cWR9XOdpll86v7c9wv1w9R7+mVwLRTovjiXJWT/J2l72sZF4ZqRz4AfsN4DRS3FkoE6XIp0XR+bP4ALMSOfEj8CPRzPkmEjnRWH+92UCM9K54geq53CJD9dnYXhnVJl0LrAPRqTzL9RME/fTM82B2qoOrkg6F9gHkc65x2OenrPSuRPfe2PhLKFZrRCasU9PaJYTzOMxT89Zmgnsg4U0a3pxy93VrepQjGblTeigVakp6tiD1Q99+W+rdJ73uxXEKESzVUzoky1QBD4NSSB/jKS0VDrP92UJEihAs9VM6AF67LqtEWmaM5TK7ZTOT5GKjxyQuuuUzlNYzYR+vx9Odn83QjbCOROlcjul81O+J5lpLqMAzVYzoeNopt6438fRDNUES6VzE997fpw1mq1mQqdrM7h1AwXyLZTKxXVeezj2NFvJhK4OUidSuJ6j0mdXeiiVi3R+NrDyupkZJf0YCM0cwao0M6SkHwOhmSOwUAUQ2AcLaebENXFj4dhPARqA0Ix9es7SzOwqF/vfkXl6bGhGinhI8jouZ8CixXzTAvb709fRFAVCu9DMfDhnaaYX97W8TsL5wqYEiHaTXX0PSC00E1SPOmmGnnOSmhY3ddEN9fI1FOen27DKqwYzQ9L50vHyWP9jjTTTnnMtnCc23e+PwZiObuL9ftAa4UuAjGaOoEaakby+MJrRpoHntff7imYozs/2hGbOoS6aqYstktdJOF/Y9GBIuryP4vzhaTRz4pq4sXDOTgHwxrP1GySvv/QGCOc/S24Cxb2Nujz+M/au9KLbtIVm7NNjQ7O8CPylTUIz9unZRrPJ5rIILzRjn55tNMuCSOeOQGgmqAEW0kzWMeyD0ExQA4zSbP86muYOtJKkkeVB/wJvug3grv+5Bx0lJpAFUtmlYJpmzK+xmadX/xQArOY74Wzv49acZmBTyvCgY51tNDslPOg7IRUSTWeXgtDMvnjmaEa6987sqiLaAfrP1fjUGav/ZXjQqZy79tlFHvQdba9DU/uqrvP80u6RYanYcLwjU3k1Gc8czVD3Rsc4qpIggvth+HArzPKgI83QiJ7woOOzAI3s+3Qbmoxm7NOrezRD3VuPZkQzqFqgToxhhgc9NZqRB12NZj1fHYxu40R2KZimmaB6GB3NgtbBjnpGTBlsfOAjzbI86IvXZtqDro4d5KCZwD6YoxmcFn/WpSJmfqSEt6fdzjEedGiro2eakQcdTqtj8K3f67YT2Qmsh4XrZgL7YCHNnLgmbiyc7VOAKiA0Y5+e0CwnmMdjnp6zNDO9nMH8d2SentBMwAZVFGzPan2OOnl9Bdtzf35BLaikYHtW6/N6C7bn+zyCulBJwfas1uf1Fmw3KYXLY62u89Van9dbsD3P54nA/BqbeXoNFmzPan1eb8H2PJ8nAvPfkXl6DRZsz2p9LgXbeYRjT7OVWp+HobGC7U58742FY0+zbEjBdsHpkILtghpgoQogsA9CM0ENsJBmZpcz2F9jM0+vNumcTMBLVaNA+CQ/09dqBpltAK5I0yyWP/PfkXl6ddGMTMDj1mhx8wyFT7QHP/Rn7/YzDcAVaZrFPgDz35F5evXQTJuAYXFWPW3FPmCvjcInGupo1SPLAFyRptmofVfswKtpmpmYm4CBQ0En0pv2+yh80jtYFyPLAFyRpln60wgqwqo00yZgUCHV08kWMgwUAXJb0miGEnqWAbgiTbP0pxFUBAOjGZqA4bFNcudg4y7QStMsxHs0wIueYQAupWkKzezDqjSLTMCzHhTGxrt8PH+ippZtED7Pgz1Yd2DKNABLE+qzgUrWzb4ZhnjlvzJEOmefXoOWk0AvjK0MoRn79Jx1NjnxvTcWTmi2DKEZ+/ScpZnAPlhIM1nPsA+V0izuOA3a02ZrBHMDT8vjFTahrubDCFZAtaMZqeSz94ZQ7RO09AdDvdJfZRPqij6MoDwqp9ljujcj6Mx+1fOXaFZJE+pmpW6RziuQzk8GqeR6NLs6fa2folk1TagLJsl8Ksc8PQ4zTT2aqUstlDUnl+8s0qyaJtQFk2T+OzJPjwnNwskW9S4B+SnYGGp5fIUm1EIz++JVP9MEZX1jCM8VdW7f68aTz7JNqAX2gdG6Wd4m1AL7wIdmuZtQC+wDH5plQWjmCCykmRPXxI2Fc3AKsDKEZuzTc5Zm5pYyCMx/R+bp1UEzqJmd+QZa5qYLbvS4u/TY2/j8GlTXNu86L/UhmP+OzNOrZTSLtEl0MKXe2kn4xxPvTy5DLWSsrm3cdV72Ywgqxuo0Q3f5mMam8csXP3jTe9ODLq2wCf3jWHLbA3sm+NJHulUmVNc27jo3KoHLo7nHlWlGLaMfboEA/mqvddBtj9uT3aA1Upsi//jYVy/UJvSl36bBC6prG3edl/0YgophYDQD2+9kCwVwKHnsgycYevxuaf84eMrVC7UJfem6jTkWOzbtOi/7MQQVwxzNQABfohlI4uQpB5qRL11xCJXxOyPjrvNSn4H5NTbz9OqaaWJZbXVRD+c6qKLdet/zNu6CDv4K+cf/2KNKQZ6P12Zw908bq2tTZwGppF1rOBtpVjWEZuzTE5rlBPN4zNNzlmYC+yA0E9QAoZmgBlhIM1kzsw9NSefqPcPSecmPwP4am3l6vKXzB0NFO6PSedmPwP13ZJ5eXTQrK51DuQyT0vnSfnkfjwxLxYbjHZnKq8l4jUnnJDYZlM7LfgTuwwXz9GobzUpK52PfbMH2sh9BUAMak87hvFhOOhfYh6ak84Ds6FKw/WzAwnUzgX2wkGZOXBM3Fs7KKUDFEJqxT09olhPM4zFPT2iWE8zjMU/PWZrJepl9MEoz6nreOtheaEg97bY+UW+0Dnvei5uRWB5AUb0xtECfdz7Hwsaxwj7PLgWhmX0wSTPqej7b+zjR9xzWWn14Q1Ev4TPHxprhp2FU013vSuVD09mlIDSzD+ZoprueQ4PWvbjleWes/gesi2gWieXYJrjbGoWJzudIs0iMzy2dL70vj/wezdFs3vUca2FD6XU/DB9uwbmxQ6fEViyWY9Pz343G2Oc16nyOz4IWifEYs5bRjPk1NvP06p4C6K7nOJoRzeDWC3V2DKGsbDSaabEcRzP1xv1+ovO5Gs16PqihoJImsktBaGZfPKOjGXY9D0NiymDjAx9pNsYTZEQzEsvp2kyfJKPO5+rYQQ6aOfG9NxbOdppFXc/hJOlH9ddBU398ydu4F800tVg+HKgd4X7Hhc7ncFpVB6MYn8iuzOcqAObxmKfn7LqZwD4IzQQ1QGgmqAFCM0ENsJBmTlwTNxZOpgDLOH3dzMAfYf47Mk+vSprhmn574XVrlNpn/3psKp9seq/uHdA+A3Xk+dThiKW256HQrIJwNtFMN/zVL8Bfvp1mGcjlWiefvgYa0gj3me0dbB9eXThcI932fJ5dCkIz++KVp1kYdNBP/vLFu572i4NziVRz0tEjnZz4EzWeVg+6+znu3vrY6wQbQ2p7PljvD6C/Jox1uaRzJtKwPFYinUfD0fhKj/zlSCF0lZNqjjq61skHPhBw494CzdTh0e63h9PPdNtzVDgxAv6ZWkYzQfUoSzNsX041ikG3JJqhqxxJQjp6pJO3Y/Uy1DTDw3H32Xv37uw+GOq252rbnRF0DM5bqqXs5xbUihVOmiH6yec0m+ySqxxVc9TRI518049F8t34pKkGP9g9DC5/0VNnVWp7Hk5+fA209oXsBNaj9EwTbjwMPK/1/sYQ/eUe6eB4AxlJ57GpHGaa1M0cbigbQPEgPJxM6NMPwwfqFEptz0eKuiHunsguBSeuiRsLZ9UUoFJ8MwxnV/GZ0Ix9evbSLNAmFKFZBeGEZssQmrFPz1maCeyD0ExQAyykmayb2QcDNCOvuZ/ePNnVEnvr603Py/aZr16wfZXEBbVhdZqR13ycvkNjBmuuaIrbe+jP3u1n+sxXL9i+QuIRmF9jM0+vnimA9prDCv5cOIcBqY3ecfRtogsz02e+esF2A9LukWGp2HC8I1N5NRlvVZrNveYJ4Rz/mVwcRu+AKJ7pM1+9YHvpxOdgPlwwT6+e0Ux7zaE89lw4R9kITb00mg38MMz0ma9esL104nMw/x2Zp1cPzSKvOTzGwvlduILXNFPP4IR6NdNnLgXbzwhWpVnkNZ/11OVVJJyj9g3e8fPgQkdjeSfM9JlLwfazgUrWzeba94oQmjmCSmg2175XhNDMEVioAjhxTdxYODunANVCaMY+PaFZTjCPxzw9Z2lmWtBk/jsyT69CmqHGDTf5k1UcKrLf0IJ4st46iuWIMRXSw0VXOAQXNdavryqdF8ta0BxKWk5guR4aaKJVPK7IvlifQC/IAiLFHICHkHy+qnReMGtBY1iRZmgVjyuyU43Zyeb5z6BWO8pL41dAQNeKOR6Lh5DgtKp03rybWh7zPa5GM7KKU0V22DTZClqj+/1voFI2iuU/hYYmHVLMtRuY3OUkn68onRfMWtAYVqDZ7dgqHlVkV6PXbG8EF1tAHRrNOlSzHRVz2JMO0aPZitJ5uY+cBvNrbObpVTnTnL3bR06QVTyuyK6uzRTNHgzVoObrazO406wTJkzndAjJ5+Wkcye+98bC2UQzMIajCI5W8d9cmt96Pfb8r7tUqx3F8rGHk1K61REuwfCQl97wyvc6d+J7byycVTTLjfFy0bICEJqxT48FzeaLYqUg0rkjsFAFENgHoZmgBlhIM1k3sw9CM+7X2MzTq3QKUKZi+wgk9r7Jgu1Fs84G89+ReXrVzjTLVGwHif2GyYLthbPOBPPfkXl6ldOscMV2uu/CYMF2li5xcZ0bk87LVWwfgsRusmB74awFDaE0zUpUbA+RhwYLtpf90IK6scpJs2jF9nF8G4YUbD9jKD/TLFyxPYSm58PVC7YL7APHdTMp2F5hOLtmmlVCCrZXGE5otgyhGfv0hGY5wTwe8/ScpZmsZtgHoZmgBtTiOgf1fGradV4sZUGjqMd1Dsuxpl3nBVMWNIlaXOcLNDPlOl/aXvZRpHOu0nlB13mSZsZc5wVTPh7Mp3LM06typlnUdZ6gmTHXecGUjwfz35F5epxc5xHNxHXeeDibaFbQdQ47HRhznQvsg4Wuc4F9ENe5oAZYqAII7IOFNHPimrixcFZNAWrC8QsaBv8I89+ReXpCs5xg/jsyT48bzU7Q20/JLgWhmX3xahzNjtHbH6dohi04F7JLQYRz+9AEzRb0dsUybTVf72N79LHXAfH9FOm8pkLj8mjmsQGaJfV23fZcke1+f/xqb2O433+4FYL4jofIaOYI6qbZkt4O50ywmg88r419q0FpjxZ1hWaOoEaaHae3b6HVHM6mEc1AfE9kl4IT18SNhXN+CnCM3g4j2228Aw3bo7en3Q6I74nsUnDie28snPs0Kw6hGfv0hGY5wTwe8/ScpZnAPgjNBDXAQprJeoZ9WJVm+9cT7t05Jruh9vzCfdsbn380d/6iokkrYwHcjh3JmmgD7iz4iYVmrmBFmoEuOXfvxphB/UXt+Z1cHk27nbnzlypmgwkFPSlzWVMFoiqO6exSME0z5tfYzNOrYQpA5bLRvTuvoQ2jUhvVSVrjv08c0s5frWhSLW29Qvu4P0Mz8I5uu4kHn6xpmtTcjgxreIbjHZnKq8l4K9GMymWje3deQxv/mVwc4jvqdHgbB6jY+asVTaAZ+IV3I1nzIy1wBq1DlDbxD8hoxj69GkYzKpeN7t15DW0sIYuyEY1mxJjI+RspmoujGTqgYDTr+bM9OjiRXQpCM/virTqaBa0DdO/Oa2jfhflARDPFPSChYpN2/kYVsxeuzdROYAbeCcNBAzQTVI+VaKbLZYN790ZcQxvrYIM6+T2tWKrxqz3Vzt/1S7pi9oBcwjTT9K70tBm4NRp7PkqbiewE1sP8utm8DvbqEJo5AvM0C06+vb8QhGaOwEIVwIlr4sbCWTgFqBxCM/bpCc1ygnk85uk5SzPT6xnMf0fm6TVOM2pUPdlsjWBa4FGVbFLQ6VWY0Xl6vz99fYg7dMKaaCaoHlWOZtScFWX0B0Nd8DNqS50sq50A0W6yC3d4hEIzZ1AxzaDV9K96/pxmWkFfLKsNY9zAe/kaSfHbB3RL0AnSuVGpWx7ttgPr0ezq9LV+TDOtoC+U1b7fx1LIgY9SfNAa4UuAjGaOoFKaYavp2dVwcvlOTDNdOztZVhucwPt9RTOU4md7NdOM+TU28/QanwLomxRBeQrw5jO47Ucr6AtltcEJHOjRLGgdCs2qDOcczajVtBrSFGVu3+vqKtmooCOistpQZLsdd672x96VXnTft6ybsU+vcZoVRbDkKBCamQ931mk22Vwuui3SuSPgQ7MsCM0cgdBMUAOEZoIaYCHNZEHDvngNuc6pQfV43lKsmOu8dLpZYP47Mk+vFpqVdZ1Tg+pP453goAKu87LpZoL578g8Pdauc7JodqN21EVd50al3SPDUrHheEem8moyXkOuczSc/240RtNdcdd5uXQFjaEh1zmOZmEY71TQdV4uXUFjaMh1Ttdm+iRZ0HUusA/Nuc4VNamwtrjO3YeFrnMnpl6NhbNwppmJyl3nTnzvjYVzhWYmITRjn57QLCeYx2OenrM0E9gHC2km62b2oRqaZRjOwb/knRfX+dlERaPZsuF8tnewfXhVXOdnE9XRLG04x3sxOLrORTpnLp0fjwzDOdGMoeuc+VSOeXqNzjQzDOeaZuI6bzacWzRbNpxrmq3uOnfie28snEs0yzCcw9VXZ2rCdS6wD4zWzfK6zgX2gQ/NxHXuMPjQLAtCM0dgIc2cuCZuLJxLUwBTEJqxT89Zmsm6mX3xitNs2vVao8CL/OPTbuuTG9o6nnSMo60cAFZzPAZeLEjl07kVfR6ZZHc/mV0KQjP74pUYzXAF/0HkHw98cJ7DauvCzRbaugSApdpsqXxuRU9EDhM2dpHOHcEqNEPdGxmBm7DT72Tz/GdqPOqgEXP8CtjHkzRblMojIT2ApVrwncc0a4f1uc7lsfrHFWimu5aPob4KbJpsBa3R/f43Q1hnBVv5T9XpMOgkaZaSymMrejj20XdONEMbO0JGM0dQlmbzruVw3tSj2WxvBFdawBsazTpw8kzQLCWVx0J610MXejSagYM4kV0KQjP7UIJms3f7SAjSvcc+nS3h2kzR7MFQDWq+vjaDIWs+mi1L5ZGQfns49tF3TkXd0caeyC4FJ66JGwtnzRQgnGySXRx1799cmhcpG3v+111UwNsglMPghR3NW3ij4pJU/jMtpG984HkvvaF951DUHWzs/Xl2ZT5XATCPxzw9Butm485J72ZI5WkIzdin1zzN5itiWciSytMQmrFPr3marQ6Rzh2B0ExQA4RmghpgIc1k2cw+VC+dQ1n2e2al8wLZ5gDza2zm6bGRzqOy7AAz0nmRbE8H89+ReXrV0yyfdB6VZcdjzUjnrF3i4jpvRDqnsuxGpfMi2Z4O5sMF8/SqHc0KSOe6LDvsaUg6L5KtgANqkM7jsuyGpHOBfaheOoey7FOT0rnAPlgonQvsg0jn3OMxT89Z6dyJ772xcEKzZQjN2KcnNMsJ5vGYp+cszWTdzD40QTNQ2/9rXMwdFmwjLSreY7tGTVNQPZqgGartUTF31MmDVLP0oE7pXFA9mqAZqu1RMXfqlL43Aj19oP7XOlBP1Ov6pHN5ZOk6Xx2gtkfF3FEnV7QCPR0bUsMTpFko0nkF4c7UFCDwo2LuqJMrWoGeHu737+AToVll4c4OzVBtj4q5o06Omrt6Z/Ljayisn0gzJ773xsKdHZo9JrVdF3MHnfy/aL0d7i+CJ2N9l7bQjH16fGmWHyKdOwKhmaAGCM0ENUBoJqgBFtLMiWvixsLJFGAZsm7GPr06abZ/HW72bx2kFHA0DYBtadZrHeKttAGsX5BxQFznjYSzmGbgO98JZ3sfJxRwtWFycRhOX+uDh25yDWuDot8Jbr94jI4ScZ3XH85amlGH8p3ZVUW0g25njANYZ+x10AYXdMBw99sRtT/XbrvH/Rm6zFm4zuXRCukcO5TjIj72j4Z25eqc93ArHMCpD6ycnemH1IUCvOi7alco6wIucxauc0H1MEAz7FCuRzOiGRBHnR/1aBZOX/+7fpgazdBdJ67zswIzo1nQOtgJUfGe7IaDjQ/Idg41guD6LBzgDWbJa7PJFrrMxXV+RmCAZtpA3oH7yPyoZ3l72u3QTDPUtuABFW+nmaZ3pYcucynYXnc4a6cAFUJoxj49oVlOMI/HPD2hWU4wj8c8PWdpJrAPFtJMFjTsg9BMUAPM0Azl7vbC65TBF+X1SCmfbHqvgjOz9Ul/gAcGtBwS1+NbzC4FoZl9MDSazd4bznpRWbzpzlK1ApLXtVI+fa0PvnIwn9/YO9g+vErV3aPC7o9rphnza2zm6dU6BUAlqQP1P8cvX7zraRF81oMKoCCmk7weKeW0xk+3YcCepEHpwu5aVpeC7frxyFReTcYzPJqNr/Rao4dbejRT9Ak6JKajvK6V8oEPBNwYgvkc90RFnQq7x7I6QkYz9unVO5r14BJrijWLQbkkmqkz4WQLaUbyulbKgzYNf8jDeDQLdWF3LasnsktBaGZfPIMnTTDzjhM0m+wGcBMQiekor2ulfLLpwwHj+K4M3XknKuyOsnoiO4H1MDbTpFuwvdb70D7nFSzQDldkeB4kRT2uzw4zTTX2gfl8iIXd8Z+ADtCyOk1UhWaOwMJ1M4F9EJoJaoCFNHPimrixcFZPASqC0Ix9es7STBY07IsnNOP+OzJPr3qa7d/oJfVyQtSgtdv65HrXax32vBc3Y3P5YqNqJq5zQfVYgWa6x3kKutZ63AJd/X9uLl9sdc7EdS6oHks0e7R27skL504/kMTw7VHwpvem50NX83skku9hv/O4BTrQTEvmutW5LsvueW1xnZ+VxzTNnv7w6dvh0x/cCk8DieHbB932uK27mqN6ibXXvxlSC3Qs4DKKzeXU6hx1y3FSSxfXuetI0+zbP1c0e/TcV6ceSGL49ghUzMkuKpkRzfTVFrVAh9FMS+ZRd3Qoy462TR6uc+bX2MzTKzkFeLS2tvbs6YOZ9ponaBaQSP4F9TuPW6AjzUgy163OsSz7GC7yy7nOnfjeGwvHhGaIfzidZ3BCvNLzvqeuqTxv464XieS63zno4veimSZJ5uuXqNX5CMqyg3p+vlyvcye+98bCMaDZ0++vEfIMZws4uat5BtTVGzSgyJVdCk58742FY0Cz8Nf6mizHaLaAk7uaZyFYsJYcB5HOHYGFKoDAPizRDE6czzeUzBKEZo5gaUHjrXNqtpljebYWyLqZI1hanv0DuDwrem12DGJXMGiZVEH7enKTXr4dwHIsOoJhTW36+hB37YSyblZBOA5TAIW/f0f981dmaBa7glHLJKvv4iaov/3QDwe+dp2Qtj7ZnewmsktBaGZfvOwFDVMnzYhTqGWSOW5xE1SsRZcmeui0Tgp6pxrMxA7sqh1YL2g8+aPQDKK7gkjL1FbfxU1tWPKf7BLX0DncGo07eh1ORjP26ZU8ad4stTx7DDSnSMtcGM30JhjNkH44mqFOiuW466SZoHos36Hx7Z+HT982FJ1ESq1lktV3cdMO7bZDjmDUSQ+FZu5hiWZvh48ufPunxmaaHtxKhlrmS2+A1fdnyU0vbsJ8MkAr8UDfOOSPQSrV98/KupkjWDppfvnsrZts1meFZo6g9B0atUCkc/bplVnQ+MEtWtMwNQVYFUIz9umVnGn+2qAKsDKEZuzTK0ezPDaA+iA0Y59eySrDy9MAAB7FSURBVNEMdSbWo5msZ9iHpdEsz7XZvi6AvQC46X/ZA7x+KbmfGTtwns8lYIUy12ZRAezFrbo2dtoDHGmYuBJrxg6c53MJWCFzQeNETRP1bWQEFmOc/KS7McRKi3ujLA+weoq7YD1jM3Zgw1K3PNZvBz5d00R9O6pMHLyqTnlwB8/YVzTL8gBPtw9xl4dboSk78PG5lQLza2zm6ZWcaZ6qaaK+jYzAQtmTXbAFdz2kWYYHGEYz2GWyFZqyA+f69PnB/Hdknl5Jmp2qaaK+PcLRTBfKvt8HPy+cNDM8wEmambEDC83si1dc00R9G5VuvDYbbNzrtqGE9sPjPMBt3GXafbUnduDmwzGhWU1YwQ4ssA9N0UzswGcKi9L5DxvMJAtCM0eQtpxwuTeDIDRzBIs0exvFJi5mYJkCVBCOzxTgSzZjmixosE+vzG2Nb0N1gxJ3Ne5fx6X/g1TF48km+C5h6bbXGi03mmYinTP/HZmnV9YOfKH4XwLBHPzjHycanINb6eIwnL6GC7OTa1mNpnlI58x/R+bplbtJu8TfIa84OC5ne9RyWg1InbHXwbX8oDN7tx/+dpTVaFqk87PyaGDdjGpqg96NTl7wW6pz3sOtcACnvjEoUtMPMxtN85DOBdXDAM2opjaNZkQzII46SerRLJy+/nf9zEbTPKRzQfUwM5oFrQO4axFaT2DLaR9pBvfKwvVZOGhlN5rmIZ0LqocBmukG0ziP9KOW0+1pt0MzzVAXQF5uNB3J6yKd1xiOwRSAHYRm7NMTmuUE83jM0xOa5QTzeMzTc5ZmAvsgNBPUAAtpJgsa9sEIzVDtbi+8bo1S++xfj4Xyyab36t4B7UP29WVZPZldCkIz+2BmNJu9N5z19F0VoEkuN6cGdT3yob/Wj7xRoIJuH17NktUT2aUg0rl98YzRLAzAx9Qfv3zxrqc1cHA+kZZO6noklNMSf1RSm3zFS7J6fdL5Ee94R6byajKe2dFsfKXXGj3c0hQCVzp1pg6SHvOBDwTcuDenWZasjpDRjH16tY5mPbjCmqLvEtRLohm60pFmpK5roTxox9JmmBjNwkVZPZFdCkIz++KZO2mGISjgc5pNdiNX+mDjA1TXtVA+2fRjBX1Xl3FfltUT2Qmsh6mZJtxoDd7z9zeG0+4rWJW9j670SEsHdZ2EcphpgrROk0pQ1DNkdZqpCs0cgYXrZgL7IDQT1AALaebENXFj4WyeAlQFoRn79IRmOcE8HvP0nKWZrJvZF68wzdLF2ucy+f4NLXyPvY3PP5o7yuOu5u1UqHT5duwJDNVpU9mlINK5fShKs+Vi7ZFMrmu1P+5PLo+m3c7cUY5V2hfEdY10+fYdvcybzi4FoZl9KEazrGLtsUy+rqWi+1S4QAvluko7ieskprc+9jqBGubS5dt3tA6AYcV17tJjMZplFWvXMrm2nisW3sYRKXaUU5V2Gs0iMf32cPrZcvl2PDpoHeoa8KGMZs6gGM0yi7VHMnkkfBNFIqFcV2kncR2Pmr13787ug+Fy+XY1mvV8shTfr5FmzK+xmadXxRQgq1i7lslRHCfh+/IIy2aQUK6rtNNVFx4VBpe/6HUyyrfvhOEgB82c+N4bC2cDzTKKtZ8nCRzewR7lUA2DlPGoYLvuag6XW3iUGujCB+oUuly+HbqjjD0fC7wnsivzuQqAeTzm6dm0bnZc+XahGfv0bKLZceXbRTp3BDxodhyEZo5AaCaoAUIzQQ2wkGaybmZfvGpoFuvpqI5DC/T+Ce8nsd+fvj5ES0AnFJpVEM4lmsV6Oqrj2AL9hPcToB0nu5PdRHYpCM3si1cxzVAdxyr/wZvem56/WJpdv49tKAbey9e0/n5AtwSJ61xc56cg8vqiOg4t0Kfd9rgNY1SyNLt+/35/DHp64KP+HrRG+BIg0rkjqJZm46gvTuCDU3iyu1iaXb8/8Lz2PpR0R/0dq74LzdxChTRTYxep49gCnWi2WJpdv/9gSKK8j/r74Wk0E9iHymaaHlyFkTr+m0tQuaz1vpcqzR69f9AlEzpVex+TBO/PsxNYD0brZoG/tEmkc/bp2SSdAyabG8P0NqEZ+/Rso1kWhGbs0xOa5QTzeMzTc5ZmAvtgIc1k3cw+VEezbHl8YeuUbv8fgB8da7Y3Ip0LqkeFo1m2PL6wFTukP/TDga/rgjYhnQuqRw00W5THF7dCT2Gso41VjkU65yJ1WyKdA7Ll8YWt2NY86CiaEdcakc6ZT+WYp9f4TDNbHl/YiqMZFjXA0awZ6Zz578g8PRY0W5bHF7aC0TzESzS8NssnnTvxvTcWzjWaLcrnkTz+s+TWFzdhPhmgIR2s7CKdu4qa180y5PGTIDRzBPXSLEsePwlCM0dgoQogsA8W0syJa+LGwrk2BTABoRn79Jylmayb2RevUpot6OSoh69fz5DOx7Ci0Zx0zvx3ZJ4eA5qldHIs574snY+gyblI506jHpqRTo4FkJelc2xy3qB0Lo/VP9ZCs1gnX+8vbWqH2OS8QelcUD1qoZnWyZOjWUI6D6HJeYPSuaB6VE+zuU6O5dyzpPPZe0ORzmsK5+AUYEE9f+kNKOeeKZ1DeeP80rkT33tj4Ryk2coQmrFPT2iWE8zjMU/PWZoJ7IPQTFADhGaCGmAhzWTdzD7kpxm0Mm+nN0Zr+t3WJyCKH/a8FzepyTmsXpza3Tzuh65fY3+6brScIdJ5BeGYTwF0K/MUArrdAkuyw9vq/1GT8zzdzeN+6Po1/oHpDtXeDoVmFYRjTbOolTmVXR+/0t241+2M10EZmmye/wxpEdFMNznP091c77pYxh1o1g7r63V+xDvekam8moyXk2bUynz7AMuu/1Sd5rBl+T7Q7H7/G2go3YnuHouanOfpbh71Q18o4456OkFGM/bpGR3NolbmVA9bcWSyFdFMX1uR0RdGM93kPE93c73rYhn36Q60sU5kl4JMAexD/tEMW5nHNAug0flg44u90YOhohywJKYZNTnP091c77pYxl2dNINOMjuB9chJM93K/HtUdv0unhxJ5/a/VkPR40ueuljTM01qcq6Qo7s57rpYxl3NWNUVHTULFpo5glLrZuPO6fucguO6my9CaOYIytBsvtJVHsd1N1+ESOfs03NWOnfie28snNBsGUIz9uk5SzNZN7MvntBMUANWo9ksQ01HYLfWpAiuNwHG3sbn1+Dfezykc0H1WHE0i9R0bVFaeGsnIYIn3p9cHk27nRCs5jykc0H1WJ1mk590N4bYZnq9P3754gcoroMupTahCA7OJXixPcK12vu4joFWcx7SuTyyd51Ptw/VOW+//3ALSrK/2muRuL4btEZqUySCj331Qm1CHf02Dl5oNRfpvP5wVk4BYDTbVQybbGFJ9nEnJNUTbhDa0iI4COPqhdqEOvp+tCp7v89DOmf+OzJPr26aQUn2JZqBCE7CONAMdXTgEKhVs/eG5aRzJ773xsLZSDOYaQ7UjLGtLurhXDeIeprfhcblr5AI/sce3NnYGXs+6ehjuEEILtim5aRzJ773xsLZSLOqIdK5IxCaCWqA0ExQA4RmghpgIc1kQcO+eEIz7r8j8/SqoRmVXc+871WXXJ+L4fvXu7rw+rxge38uoYvrvIlwdtCMSntSjYKEHh51xKRXZGoCI/oOPY8LtqeqG7CQzpn/jszTq5Bm4Jbrkh7exVXWjnqKRYrBjz5EapFPXdMsKtgeks8OjOpwlEjnZ+WxHM0mW9C7nPRy4FeIT0PtRw+prgHYyrFG+9xtDkcGLTSqw1E8pHNB9Sg7moFQrvVyoIl6SqMZ+NGRZuRTV6NZz58XbIcjtVEdjuIhnQuqR9lrswfELWxh7uNTvDZDP3o0mgWtA3X1NvCTBdt/BPUQwKhOo5m4zs8Gys40p9i7vEMP+BRLro/Bj071MaLG5mBFjwu2qyO1UV29X9J17sQ1cWPhLJkCnAwDfvQkhGbs02uCZib86EkIzdin56wK4MT33lg4odkyZArgCCykmSxo2IfSNCtYWHtjiJLn2Nv4IlZFmWiagupRlmaFC2uT5IkmYGxGDfvx0DQF1aMczUoU1kaRgEzAUOJ4hhomC03ziHe8I1N5NRmvHM1KFNbGLtNkAtbNqD9iomkyn8oxT6/KmWaJwto4moUhHQfnTNAwWWiazH9H5ulVSbMShbX17WhgAsZm1KhhltI0hWb2xStHs+KFtTeGIHmCCZjaOV3poYYplbTPBkysmxkWMhMQmjkCAzQzLWQmIDRzBBaqAAL7YCHNnLgmbiycTVOAuiA0Y5+eszSTBQ374lVEM7qXG+3A7clmaxRirzASxkmvBMemFgoGsOqvzcT7/enr2CMRXwrN2KfX7GhG+ji1bp1Bk8MHQ73GrwV3cgjvhLO9h3448PXqLdmFJ7uT3UR2KYh0bh8qpNnjvrY4zX7V85doRg7hndlVNHjuohalFfkDqokgdmB3HiujGerjejS7On2tn6KZdgiDSh50FM2Ia6CLBq0R+j0BMpo5gopHM2xErUasyeU7izTTDmEYzZCROJqhIj/bE5o5hyqvzaDJOegD0J812BhqYRz/jRzCVOwlKvSCivxh3TRjfo3NPL3mZ5pgB97Aoi2KNLfvdePJ5/oNcgi/uAnvBNiteqBvUfPHIMrr27Rl3Yx9es6umznxvTcWTmi2DKEZ+/ScpZnAPgjNBDVAaCaoAUIzQQ0wTbMFaRzt5/3j3y8nnTtxTdxYOEemAAvSONrPT3i/lHTuxPfeWDjHaIbSONrPyZq+6CxfRTo/MiztMo93ZCqvJuNVRTOSxkOs6Y5tqRed5atI5078591YOLdGs3GkFwU+eYYXneWrSOcC+1AJzWJpHO3nRLNFZ/kq0rnAPlQw05xL463fXPKittQLzvKVpHOBfZB1M0ENsJBmTlwTNxbOkSmAUQjN2KcnNMsJ5vGYpyc0ywnm8Zin5yzNBPZhNZrlaUkNRdrBeKJbUs/mdd5LFmwX2IcVR7M8Lak/xX/jltSRqKlelSvYLrAPBmh2SktqLNKeaEkNTah/oraPyzahlkf7Hk3Q7OSW1FikPdGSerp9qLbv99VO5Qq2O3FN3Fg4K6cAeVpSQ5H2REtqGM121avJVsmC7U58742Fs5Zmp7WkhjNloiX1As3KFGx34ntvLJyNNMvTkjrQO8xbUrcHG/e6aqdXpAl1/eFspNkpWLmSu8w0HUGVNFu9krvQzBGICiCoAUIzQQ2wkGZOXBM3Fs7BKcDKEJqxT6/5Mnp5C7ajti6u83rCOUWzIgXbR6Cti+u8pnDO0SxvwXbU1gu4zuXRvkcGBdtRWy/gOhfYBwYF20PQ1sV17jRYFGxXu4nr3GmwKNgOOrkUbK8nnFtTADMQmrFPT2iWE8zjMU9PaJYTzOMxT89Zmgnsg9BMUAOEZoIaUL3rPLqHVlznZxg1uM5pjdac69yJa+LGwlk5BcjhOkeamXSdHxmWdpnHOzKVV5Pxqned69s0xHXOI5zNo9mJrnOgmbjOuYSzlmanuc71aGbMdS6wD9W7zqFw+8ik61xgH8R1LqgB4joX1AALVQAnrokbC2flFKBiCM3Ypyc0ywnm8ZinJzTLCebxmKfXDM3K9Dov6DoX2AcGvc6Lus4F9oFBr3Nxnbv/yKDXubjO3QeDXudhQde5E9fEjYVzYwpQqtd5Mde5E997Y+HcoFmpXufiOq8vnBs0MwuhGfv0nKWZwD4IzQQ1QGgmqAFCM0ENsJBmTlwTNxbOjSnAdLlGOxievPPaYa43LUjnAzDMScH2esK5QbNwuUb7bO9g+/Bq5DBfls4f+uHAl4LtNYVzh2bpGu2oDEQO82XpnOTM/NL5kWFpl3m8I1N5NRmvqtEsWaOdaKYd5svSedBRNBPp3GmYp9lyjXZNM+0wX5LOseaBFGx3GpWcNFM12jXNyGGeJZ1HFYSkYLurqGCmma7R3gdZfKod5oi0dA52zvzSucA+yLoZ93jM03NWOnfie28snNBsGUIz9ukJzXKCeTzm6TlLM4F9EJoJasCqNNvvgzDejl/HrvJw/4ausTf2Nj7/aF6bnWRLVMrH4BSISr5PSWJC391idgLrsSLNJj+6gcL4fEukWUKBdux3Prk8gkKOcW121MxJKf80jJqi45E7em03nZ3AeqxEM5S6kSjqWYvqsBPNtAgOHYLvE4e0cq41c9SW0G6OO83Qj75Qz10KtocinRNQ6kaaKdoEr2IddqJZokD7bRyg4trspJmjUo5286iK+0e6PXrQonru+Adkpsk+vRpmmih1I83Us8kWFsgmmlGBdhzNiDGRcq41cxzNwjDeCf3oWM99tkeFthPZlflcBcA8HvP0aqAZSt0jHM3aIVjLNc3wlp6gdYD9zqHIvzpBauVca+b6LkbdW0ftBH50rOcuNKs2nIU0Q6kbRW+8NoM67OdJLYd3UAGHwhkelnFH5Xz9EtnRR3AQ2M2pKfqVnvajQ7EzH+u5J7ITWA9ZNxPUAKGZoAYIzQQ1wEKaOXFN3Fg4C6cAlUNoxj49oVlOMI/HPL1qaJanu3mIFdjj7uYhuXzjbnWxNl6y17kT33tj4eygWa7u5p/iv3F388hiPj8yOqpUr3OBfShFs1O6m6MknuhuHlnM9ZHbo8nm+c/gqHK9zuXRvsdyNDu5uzlK4gnxPLKY05EBVGf/ZghHlet1LrAPZUezE7ubgySe6G4eWczpyNneCC7H4Khyvc4F9qHstdmJ3c3hTJnobh5ZzOlIRbMHQzWo4WhWpte5E9fEjYWzYwqQp7t5oHeYdzcHufylN6J7tv2v1eil3j9frte5E997Y+HsoNkpWLm7+SKEZuzTa4Jmq3c3X4TQjH16zqoAAvsgNBPUAKGZoAYIzQQ1oBKaZVRtn55QsL1gr3MnrokbC+fSFGC5anssk6/e69yJ772xcI7RLF21/fiC7UV7nR8ZlnaZxzsylVeT8SodzZJV248v2F6017kT/3k3Fs6p0Wy5avvxBdvDgr3OBfahupNmqmr7SQXbi/U6F9iHqmaa6art108q2F6s17nAPsi6maAGWEgzJ66JGwvn0hTAFIRm7NMTmuUE83jM0xOa5QTzeMzTa5BmBTXNgk2oBfaBgaZZtAm1wD4w0DSLNqGWR/seGWia0oTafTDQNIs2oXbimrixcA5NAYpqmsWaUDvxvTcWziGaFdU0izWhduJ7byycQzQzBqEZ+/ScpZnAPgjNBDVAaCaoAUIzQQ2wkGZOXBM3Fs6yKUCJktrLlbOlknbt4SyjWZmS2kuVs0tV0nbie28snI00K1hSe6lydqlK2keGpV3m8Y5M5dVkvBVpVqyk9lLlbKmkfUaw8mhWpKT2UuVsqaR9RrDytVmRktpLlbNLVdIW2IeVZ5oFSmofLFfOLlNJW2Afqlo3M1NSW2aa7NNrVDo3VFJbaMY+PWfv0HDie28snNBsGUIz9uk5SzOBfRCaCWqAaZplGM5h6dY7b66StsA+GB/Nlg3ns72D7cOr5ippC+xDFTRLG85RMJBK2iUfz7h0fgwyDOdEM6mkzSKcIzPNDMO5ppmpStpOfO+NhXOFZsuGc00zU5W0nfjeGwvnBs0yDOd90NKnUkn7LEPWzQQ1QGgmqAFCM0ENsJBmTlwTNxbOjSmAWQjN2KcnNMsJ5vGYp8fAdR7dQyuucz7hLKNZLtc5rdUadp0L7EOlrnOkmXHXuTza91ip61zfriGu8zOPal3nQDNxnQsqdp3r0cys69yJa+LGwlk2BcjjOlfPWiPjrnMnvvfGwllGs1MgrnOm4ZyimbjOuYZzimaGIFMARyA0E9QAoZmgBgjNBDWgNM32+2Amby9unG4f6nWOsbfx+UdzaVyLn/oh2luk8/rD2TUFmPzoBprJF7cGrREssT7uTy6PYDEtlsbRYx4/RJCC7fWHs4lmKIcjK9Sz1mjyk+4G6N/gsVQbH4O8BLtF0rj2mOuHwXp/AEu1XlsKtud4PDKVV5PxytEM5XCkWeCHwavqtAe3/ox9oBmK5LdxhIqlcfKYR1ZzIOIYBfVS0rkT/3k3Fs6m0QzlcGSFejbZmuyCOt71/Hg0oxvOImlce8yjh/3+Ha1DiXR+RlB6NNOXYUFb8QNpBvo30QyIp4gy7kTSuPaYRw+TH19Tw1cYhlKw/aygHM3QHo4SOV6bDTbudduB57UekmMcxiYPpXSUxtcv4c4vvYEP6upMEW+yCTXPpGD7GUFT62bfDMPZ1VP3Epo5gqZoFhznV1mATAHYp+esdO7E995YOKHZMoRm7NMTmuUE83jM03OWZgL7UJxmx2jmo2m39cn1rtc67HkvbpImvn4psR960cfexhexXb2kdC6wD4VpdqxmHvjgLofyn4pyqerssRcdarOTuI6bxXV+RlCQZido5kiNiGbz6uy4S+RFx9rsKEfNxHV+lh4L0uwEzVydEDtR35J5dfZD3EV70XexNrt2oJd2nTtxTdxYOCumACdo5iH4gaPRbF6dHXeJvOgh1GYncb2869yJ772xcFbQ7ATNfIxnxYhmcXX2iGa6ThAUbCFxXVznjYSzgmbHa+b+40ueeqVnmrFm3sZdIi86XsahuH6lJ67zRsJZQbOaITNNRyA0E9QAoZmgBgjNBDXAQpo5cU3cWDiZAixDaMY+vWqdTcUt58akcye+98bCWUSzMpZzc9K5E997Y+GsoVk5y7lI52f5sQTNylnOzUnnAvtQgmblLOfmpHOBfSg3mpWwnJuTzgX2oQTNSlnO1X4inXMIZ80UoEYIzdinJzTLCebxmKcnNMsJ5vGYp+cEzQSOAH9OrjTLBPfpJ/P8GkxPaGYQzPMTmgnchtBMUAOEZoIaIDQT1ACLaIZ3R3IF3aLJNsVpFzJrLj17aKYVeK6A5u58U3wwnL4+bDA9e2gW3U/EFEAz1inu9xtMzx6a4d2RTSdxPIBmrFO8M2owPXtoxnqo4D+ajf0m07OHZnwvfBC8r82olZFcm+XAgOs0DoG9gtimGHjRDanNwCKaCeyF0ExQA4RmghogNBPUAKGZoAYIzQQ1wH2afbm2du7v30lt/PZP3nn6+7hRPywga1u88cl3vzpul9OxfFjJQJjJ7z39/toF9eSvbuHL79xKprnwqgDUV/PfSqd0HJyn2c3nvgq/fCb9vd2kLUv0W3g3E0+//9xXp+ySQvxHjvlruY7NgOL7l+ceqWweAdXCb9969tb8Tf2qQJoR1CErUP8YuE6zJ/8SvjH6IRJQ/8nCwzH/2ep3j4mIo9mJuywi/iMlBokTDvn2T2+FSLOnP6QNT3+QoJl+VSDNOK465OkffFX0sJPhOs2+fE5/YXDuVN/9f1+D//zX1vA/WfV4Af7LTbynTkPP3sIf59u31p5XY8LfwIanP/jFM3/5++/gm0+++/O15/HHuLmGweFAdTy+hB3/03f/eu25f1x77p++/+wtNTTgH4EDM/5aiKe1J/qAr6JIeo9fPPMfo2P17l+qp9GfffS8ovwL6qT5D5pd+gP8/jsq87Vn/wZfffsnf4k5vwBjWyJSHG/t3NNoh5vxV6M+S/q/yxVxVmimxqAnL/w7xRz4Wb9zSw1yigH/B7jyzDvJ9748pwhEYwCMB/+MG375lvrZ1Y745pMXLnz71gX15JHado7oqH7vC/Dy36gd1Wv10z0PV38/AMLCH8EDM/5aCOeoX0YH/FJHivY4F0bH/pJ2V8y6eU7/WbWdPuGTP9IfVcVQ+0Ca+MfxFeWrT77zSDoe/qELegeMS1/NPLgpnBWawfd28xz98Oo5cQnoRK/j94A1F/SpRv2av/4KNwDjojfhpIm0UUOBooU+PX15Dl/CcwqkqKif6KHxQtZfo8lI4gCMFO0RxsfSLjjGRH9WM+HbP1NUeUb/Z0F/7tGc4xDgy/i8Oo8UfxHwIWkHjEtfjdCsKOja7MlffPk8fHfH0Czx3iM1uEQ0e/Kd//EXIW7QPzk+n9NMn1giclzQzzNoFkdN/bUwm2bRHmF8bJJm+s9qJqhx6uaFR5ru+mPBqDj/4yowzSQSkfQXgX9I74BxhWYlATNNdUWr6BZ/u4/U1ddbz/5tTLPkezf1GTE+FjfonxyfK5rR2Uj9tjhKwMmPzmhPf5im2dPvw98J46ipvxamaEaR4j3oCvBCzFi83o/+LFILT5lpmj06l3yl9qSLuWQk+pf+kN4B49JXc0uuzQrj5hpcN8M54YJ6/vyX6itVm9Yu0BN8SLz3j2vP/Ktnf6F/F/gNH8GGP8Sd6M2/fQv2pqNx0UBdQ9Nl8xpdRqtA6uGv8dkz/xpmChcwyK3lv/YV5PXcz6MD/klH0nsAyfWxfxgl/sw7of6zMNOkKaE+aVJIFeZ/v6Cu7ONXX8UX9IlIP6d4+IdCvcNNml/AJplp8sPiQkJ9kWgBNgP/rEj36wRP1OXbyZHSO5RYBjkFQrOV0RTNwie/l7kZF77eTmxYWjVMI72DqAD8oC64nzNzijEV6RFdJmjcxHnpCTh1BwMQmglqgNBMUAOEZoIaIDQT1AChmaAG/H8WcWo4PQWt2QAAAABJRU5ErkJggg==" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtTR2xCYm01dmVVUnBabVpXWVhKelEyOXVVR1Z5YldsdGNDNXpkbWRjSWl3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRFd0xDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNJbk4yWjF3aUtTbGNiaUFnZFc1c2FXNXJLRndpVUhSelFVSmtTR2xCYm01dmVVUnBabVpXWVhKelEyOXVVR1Z5YldsdGNDNXpkbWRjSWlsY2JpQWdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjSWxCMGMwRkNaRWhwUVc1dWIzbEVhV1ptVm1GeWMwTnZibEJsY20xcGJYQXVjR1JtWENJc0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQweE1Dd2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p3WkdaY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNaRWhwUVc1dWIzbEVhV1ptVm1GeWMwTnZibEJsY20xcGJYQXVjR1JtWENJcFhHNTlYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lEaWZmVmFyc0NvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0xMCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lEaWZmVmFyc0NvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MTAsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyDiffVarsConPermimp.svg\, width=8, height=10, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyDiffVarsConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyDiffVarsConPermimp.pdf\, width=8, height=10, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyDiffVarsConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1NHbEJibTV2ZVVScFptWldZWEp6UTI5dVVHVnliV2x0Y0M1emRtZGNYQ3dnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVEV3TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY1hITjJaMXhjS1NsY2JpQWdkVzVzYVc1cktGeGNVSFJ6UVVKa1NHbEJibTV2ZVVScFptWldZWEp6UTI5dVVHVnliV2x0Y0M1emRtZGNYQ2xjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNYRkIwYzBGQ1pFaHBRVzV1YjNsRWFXWm1WbUZ5YzBOdmJsQmxjbTFwYlhBdWNHUm1YRndzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB4TUN3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHdaR1pjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1pFaHBRVzV1YjNsRWFXWm1WbUZ5YzBOdmJsQmxjbTFwYlhBdWNHUm1YRndwWEc1OVhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MTAsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZWYXJzQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTEwLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veURpZmZWYXJzQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZWYXJzQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTEwLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veURpZmZWYXJzQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lEaWZmVmFyc0NvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0xMCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lEaWZmVmFyc0NvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgIn0= -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyDiffVarsConPermimp.svg\, width=8, height=10, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyDiffVarsConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyDiffVarsConPermimp.pdf\, width=8, height=10, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyDiffVarsConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZCc2IzUWdiMjVzZVNCd2IzTnBkR2wyWlNCMllXeDFaWE5jYm5KbGMzVnNkSE5QZFhSRWFXWm1jeTVqYjI1cGJYQlFkSFlnUEMwZ2NtVnpkV3gwYzA5MWRFUnBabVp6TG1OdmJtbHRjQ0I4UGx4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJSEp2ZDI1aGJXVnpYM1J2WDJOdmJIVnRiaWduVFdWMGNtbGpKeWtnZkQ1Y2JpQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ1ptbHNkR1Z5WDJsbUtHbHpMbTUxYldWeWFXTXNJR0ZzYkY5MllYSnpLQzRnUGlBd0tTa2dmRDVjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdZMjlzZFcxdVgzUnZYM0p2ZDI1aGJXVnpLQ2ROWlhSeWFXTW5LVnh1WEc1d1FtRnlJRHd0SUdkbmNHeHZkQ2h5WlhOMWJIUnpUM1YwUkdsbVpuTXVZMjl1YVcxd1VIUjJLU0FySUdkbGIyMWZZMjlzS0dGbGN5aDRQV1poWTNSdmNpaHliM2R1WVcxbGN5aHlaWE4xYkhSelQzVjBSR2xtWm5NdVkyOXVhVzF3VUhSMktTd2diR1YyWld4elBYSnZkMjVoYldWektISmxjM1ZzZEhOUGRYUkVhV1ptY3k1amIyNXBiWEJRZEhZcEtTd2dlVDFEYjI1a1VHVnliVWx0Y0Nrc0lHWnBiR3c5YlhsamIyeHZkWEp6V3poZExDQjNhV1IwYUQwd0xqVXBJQ3NnYkdGaWN5aDRQVndpVm1GeWFXRmliR1ZjSWl3Z2VUMWNJa052Ym1ScGRHbHZibUZzSUhaaGNtbGhZbXhsSUhCbGNtMTFkR0YwYVc5dUlHbHRjRzl5ZEdGdVkyVWdLQ1VnYUdsbmFHeDVJR0Z1Ym05NVpXUXBYQ0lwSUNzZ2RHaGxiV1VvZEdWNGRDQTlJR1ZzWlcxbGJuUmZkR1Y0ZENobVlXMXBiSGtnUFNCY0luTmxjbWxtWENJcExDQndZVzVsYkM1bmNtbGtQV1ZzWlcxbGJuUmZiR2x1WlNoamIyeHZjaUE5SUhKbllpZ3lNelVzSURJek5Td2dNak0xTENBeE1EQXNJRzFoZUVOdmJHOXlWbUZzZFdVZ1BTQXlOVFVwTENCc2FXNWxkMmxrZEdnZ1BTQXdMakkxTENCc2FXNWxkSGx3WlNBOUlESXBLU0FySUdOdmIzSmtYMlpzYVhBb0tWeHVjRUpoY2x4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbiMgUGxvdCBvbmx5IHBvc2l0aXZlIHZhbHVlc1xucmVzdWx0c091dERpZmZzLmNvbmltcFB0diA8LSByZXN1bHRzT3V0RGlmZnMuY29uaW1wIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXNfdG9fY29sdW1uKCdNZXRyaWMnKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXJfaWYoaXMubnVtZXJpYywgYWxsX3ZhcnMoLiA+IDApKSB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW5fdG9fcm93bmFtZXMoJ01ldHJpYycpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXREaWZmcy5jb25pbXBQdHYpICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXREaWZmcy5jb25pbXBQdHYpLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcFB0dikpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbOF0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Plot only positive values
resultsOutDiffs.conimpPtv <- resultsOutDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > 0)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutDiffs.conimpPtv) + geom_col(aes(x=factor(rownames(resultsOutDiffs.conimpPtv), levels=rownames(resultsOutDiffs.conimpPtv)), y=CondPermImp), fill=mycolours[8], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkJzYjNRZ2IyNXNlU0J3YjNOcGRHbDJaU0IyWVd4MVpYTmNibkpsYzNWc2RITlBkWFJFYVdabWN5NWpiMjVwYlhCUWRIWWdQQzBnY21WemRXeDBjMDkxZEVScFptWnpMbU52Ym1sdGNDQjhQbHh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lISnZkMjVoYldWelgzUnZYMk52YkhWdGJpZ25UV1YwY21sakp5a2dmRDVjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnWm1sc2RHVnlYMmxtS0dsekxtNTFiV1Z5YVdNc0lHRnNiRjkyWVhKektDNGdQaUF3S1NrZ2ZENWNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ1kyOXNkVzF1WDNSdlgzSnZkMjVoYldWektDZE5aWFJ5YVdNbktWeHVYRzV3UW1GeUlEd3RJR2RuY0d4dmRDaHlaWE4xYkhSelQzVjBSR2xtWm5NdVkyOXVhVzF3VUhSMktTQXJJR2RsYjIxZlkyOXNLR0ZsY3loNFBXWmhZM1J2Y2loeWIzZHVZVzFsY3loeVpYTjFiSFJ6VDNWMFJHbG1abk11WTI5dWFXMXdVSFIyS1N3Z2JHVjJaV3h6UFhKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSRWFXWm1jeTVqYjI1cGJYQlFkSFlwS1N3Z2VUMURiMjVrVUdWeWJVbHRjQ2tzSUdacGJHdzliWGxqYjJ4dmRYSnpXemhkTENCM2FXUjBhRDB3TGpVcElDc2diR0ZpY3loNFBWeGNWbUZ5YVdGaWJHVmNYQ3dnZVQxY1hFTnZibVJwZEdsdmJtRnNJSFpoY21saFlteGxJSEJsY20xMWRHRjBhVzl1SUdsdGNHOXlkR0Z1WTJVZ0tDVWdhR2xuYUd4NUlHRnVibTk1WldRcFhGd3BJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjWEhObGNtbG1YRndwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJJR052YjNKa1gyWnNhWEFvS1Z4dWNFSmhjbHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSBwb3NpdGl2ZSB2YWx1ZXNcbnJlc3VsdHNPdXREaWZmcy5jb25pbXBQdHYgPC0gcmVzdWx0c091dERpZmZzLmNvbmltcCB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJvd25hbWVzX3RvX2NvbHVtbignTWV0cmljJykgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyX2lmKGlzLm51bWVyaWMsIGFsbF92YXJzKC4gPiAwKSkgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uX3RvX3Jvd25hbWVzKCdNZXRyaWMnKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0RGlmZnMuY29uaW1wUHR2KSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wUHR2KSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXREaWZmcy5jb25pbXBQdHYpKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzhdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSBwb3NpdGl2ZSB2YWx1ZXNcbnJlc3VsdHNPdXREaWZmcy5jb25pbXBQdHYgPC0gcmVzdWx0c091dERpZmZzLmNvbmltcCB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJvd25hbWVzX3RvX2NvbHVtbignTWV0cmljJykgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyX2lmKGlzLm51bWVyaWMsIGFsbF92YXJzKC4gPiAwKSkgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uX3RvX3Jvd25hbWVzKCdNZXRyaWMnKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0RGlmZnMuY29uaW1wUHR2KSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wUHR2KSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXREaWZmcy5jb25pbXBQdHYpKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzhdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5gYGAifQ== -->
```r
```r
# Plot only positive values
resultsOutDiffs.conimpPtv <- resultsOutDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > 0)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutDiffs.conimpPtv) + geom_col(aes(x=factor(rownames(resultsOutDiffs.conimpPtv), levels=rownames(resultsOutDiffs.conimpPtv)), y=CondPermImp), fill=mycolours[8], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qa3NJbmRwWkhSb0lqbzRMQ0p6YVhwbFgySmxhR0YyYVc5eUlqb3hMQ0pqYjI1a2FYUnBiMjV6SWpwYlhYMD0gLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjksIndpZHRoIjo4LCJzaXplX2JlaGF2aW9yIjoxLCJjb25kaXRpb25zIjpbXX0= -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFLekNBTUFBQUNEQVRFa0FBQUJ5RkJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qcXROanNoUTllbG1BQUJtQURwbUFHWm1PcEJtWmdCbVpyWm1rTnRtdHR0bXR2OXVUVTF1VFc1dVRZNXViazF1Ym01dWJxdHVqbzV1anNodXE2dHVxOGh1cStTT1RVMk9UVzZPVFk2T2JrMk9ibzZPYnF1T2prMk9qbTZPam82T2pzaU9xNnVPcThpT3ErU095TWlPeU9TT3lQK1FPZ0NRT2pxUU9tYVFaZ0NRWnBDUWtEcVFrR2FRa0xhUWtOdVF0cENRdHYrUTI3YVEyOXVRMi8rcmJrMnJibTZyYm82cmprMnJqbzZyanF1cnEyNnJxNDZycTZ1cnE4aXJxK1NyeUt1cnlNaXJ5UCtyNU1pcjVPU3I1UCsyWmdDMlpqcTJabWEya0RxMmtKQzJ0bWEyMjVDMi83YTIvOXUyLy8vSWprM0lqbTdJam83SXEyN0lxNDdJcTZ2SXlJN0l5S3ZJeU1qSXlPVEl5UC9JNUt2STVQL0kvOGpJLytUSS8vL2JrRHJia0diYmtKRGJ0bWJiMjVEYjI3YmIvN2JiLy8va3EyN2txNDdrcTZ2a3lJN2t5S3ZreU1qazVLdms1TWprLzhqay8rVGsvLy8zOS9mL3RtYi90cEQveUk3L3lLdi95TWovMjVELzVLdi81TWovNU9ULy83Yi8vOGovLzl2Ly8rVC8vLytXdVVHckFBQUFDWEJJV1hNQUFBdXdBQUFMc0FFYU9CQnlBQUFnQUVsRVFWUjRuTzE5ajU4YjEzSGY2VWNWdDA2NWR4Sm8xSGJpbEdmUzFFbUFwRjZqczArRUVzZU5tMWlRMUZOTlZTVEJKbTRUNGlpUlVlVlNZSkkyV3BLMmVzUXhvSWlZSVBiZjdadVp0NHZkeGQ3ZDd1THQ3cngzOC8zWUJMRFlIY3dCWDczZDk3NzduVmtMQklMS3NkWjBBb0xUQUtHWm9BWUl6UVExUUdnbXFBRmNhZmF2Qkk0QWYwNjJOR3M2QVlFWkNNMEVOVUJvSnFnQlFqTkJEYkNRWnY5T3dCbkgvSkJIMG14L01PdTJQaHRNZDVmZW1mNXdzSGdCTzEzdGVxMkhmZS9selhYMXhyenZBZHJISGFTT29sMDNSdUZycnpXR2Z6MnZKelN6RlNWb3Btamg5Nlkvdk5idkxMMzF6WCtNYllPZEJyTnR4Wkh0OGV4OVJhNS8rUStqK1FlamViOTN6RUdLVjNyWDZMV0tvUDdkQ1NhdHNkRE1VaFNtbVJxUzFnZjRpMDkvM04wWStmRHExZk8zWCt2QzhQTzVlbVBXN1V4b0crd1UwdXlYYjQ2QzMvNFhvRm5nZDFTTTFrRzM5YW5YOGRWUmNGQXdYQjhNMVRZMTFvVzdxc2pYK3EwUE93dWF0UU5hTkRzOFBJUk1EdU9QVFgrUGdtT3g5SHZCNDNFMDh6dnFwQmxNdkU0d1BUOVN6NExKcGI0Nkx5ckNkWUxaRnpORmtZbmFReEZrakR2aDJVNXg3K05oYi82L2J1clJ6TytwTUdxM202UFpGL29nUmFiSEF6aHlFTzZxSXZkbTI1K0VvMWszT3RuS2FHWWZDbzltaWxuMzRGcEtuUkozMVRQMTgvY1VPOVQvcGx1S1YzQUJoV1NaNEluUTc0V2oyY2ZUaS8vdmZ5dWE5ZUhhVE1XWWJzMC91SE5yOS81SUg2UzIzVkpqR2pLU2RvWElFQ3NjemFZWHgwSXpXMUdZWm1yUThsc1BnQUJJczV1amlhYVpldU8zWXppenFlM0RqZHRxRyt3VTBXeisvay9HT0pwQmpEWWVjUEZMdUx5amc0THBqNjdBRVlwUWVsZUlQTjNheDZ1NzZhNDZhZnFkWTJnbXNBL0gwUXpPZ3IzSEY3eU4wWERqVHJmdHExUGloeHNqTlNUQmpMSUg0eEZjWWZXR0d5UFk2VTQ0MDRReHo0ZDVKbHpDd2JXWll0L0h3WDBZM3ZDZ3NUcURCdE5Oenp2YnBWMDNQdks4Vjk2NjFGZUhldDY2bXJHcUs3cjF3U0k3Z2ZVb3ZtNDJXWjUxbHNBM28yQisrY1M5TW1sMmFPTHo3WW5IUEwxODhRclRiTEhNdFJMVWNMYytPSEV2b1JuNzlDcWlXYTBRbXJGUFQyaVdFOHpqTVUvUFdabzFQV092RUhWL3Y3WEJpS2FwNXBCdDNBOG1rT3Y0YndjWGE5dkhIQ1NhNWpKTy9yMHNoUmxOYzdZOVJsbHplbjRVek40WS9HNnNOb2ltV1J3bi9Wcld3b3ltZVdkN2pQdmhzaXI4TTcwU2lLWlpIRXRhb0N1UFpqUk40QWZzTjRUUlMzRmtxRTZYb21rV1I5YWY2L3dVSUwrbVNmendlOUZvaGh3VFRiTW9TditNQmNDT1p2azFUY1VQbERYaEVoK3V6NExnMXJneVRkT0o3NzJ4Y1B4b2xsdlQvRkxOTkhFL1BkTWNxcTNxNElvMFRTZSs5OGJDOGFOWk5oclhOQVgyd1VKTlUyQWZMRlFCQlBaQmFDYW9BUmJTck9sVmg1UFc2bVVLc0l4aU5DdHYyd1FSUWMwZEpoNU1TL1YxbWEyYTVnbGZrdEJzR1lWb3RvcHRjN29GUzdXZkI2UmNQa1pTV3FwcG52QXRDYzJXVVlCbXE5azJmWFNsZEZ0akVwdm1xR0hhcVdtZW9PRWRtdFVFRHczRmFUUmVBWnF0WnR1OE53aW11NzhiSXh2aG5Ja2FwcDJhWnA0dlM1QkFBWnF0WnR2RTBVeTljVytBb3hrdTgxcXFhYTcrclo4NkZCdk5WckJ0MHJVWmFPcW9YRzZoaGlrK3pWT0NBalJieWJhcERsSW5VcmllbzJKQmwvcW9ZWXBQODNSZzVYVXpNeExuRVJEcG5IMTY5VmhPREVtY1IwQm94ajQ5WjUxTlRuenZqWVVUbWkxRGFNWStQV2RwSnNzUDlxRUdtcEZVR1pEdWlmTk1tRTB1TmlXd1A1aTlpVFlDVUVDRlpxNmdqdEdNVmwyMTdrbUtabUpUREVTNzZhNFc1NFZtanFCT21xRkxrelNBNUtZdStnZGV2WUtxNld3Ymx0L1VZR1pJMDF3NlhoNTUrVFJOUVhOS3V6UzFvaG5iZEc4d0FTc24rdS8yQjM1cmpDOEJ0WXhteksreG1hZkhad3FnT1VXNloySTBvMDFEejJ2dkR4VE5VRFdkN3duTktnem5OczNVeFJicG5xUm9KamJkSDVGZzJrUFY5T0ZKTkhQaWUyOHNuTE0wd3p1QzFxK1I3dm5LVzZCb3ZoUGZCRkpvR3dWVC9HZmlYZXFIOTg4S3pkaW54NFptZWVIM2xqYUpkTzRJK05Cc3VybXNqZ3JOSEFFZm1tVkJhT1lJaEdhQ0dtQWh6UXl0WTBSZ2ZvM05QTDBHcGdEN1Y5Rm1jcUNYK0RXeVhKdGY0bTFxUHR3bnUzQnQ0dG8vck5lbXNrdEJhR1pmUEpNMEEzUG1UakRmKzdTMW9CbmMySi9oMnNTU29XZ1BpTGsyZHdLcWlaYk9MZ1dobVgzeHpOR01CTW1kK1dWRnRBTjBiS3J4cVROUi84dHdiVkpsV3UxTUNWMmJPOXFRZ2piUVZYMmErVFczUThNYW51RjRoNmJ5YWpLZU9acWhJSWtlUzVTTFFKM3NCY0dEclNETHRZazBRK3RtekxXSnozeTBmdTdUL1VHMWpHYUM2bUdPWmloSTZ0R01hQVkrWDNWaURESmNtNm5SakZ5YmFqVHI5OVRCNk0rTFpaZUMwTXcrR0IzTi9OYkJqbnBHVEJsdWZOUkRtbVc1TnBQWFp0cTFxWTRkNXFDWndENllveG1jRnQvcFV0bWZYaWhSdG1mZHpoR3VUZWdRb0dlYW9Xc1RUcXNUY0hyZTZiWmoyUW1zaDRYclprNU12Um9MWi90TXN3b0l6ZGluSnpUTENlYnhtS2NuTk1zSjV2R1lwK2NzeldRNXd6NEl6UVExb0lvU3gxbGRYRkVucjYvRWNlNi9YMUFMS2lseG5OWEZ0ZDRTeC9uK0hrRmRxS1RFY1ZZWDEzcExIRGNvZFl0MHZwcDB2bG9YMTNwTEhPZjVlMEl3bjhveFQ4LzRUSE8xTHE3MWxqak84L2VFWVA0N01rL1BPTTFXNitKcXJzU3hFOTk3WStIWTAyeWxMcTVCSUNXT1R6RXNMSEVzc0E4V2xqZ1cyQWNMVlFDQmZiQ1FaazVjRXpjV2p2MFVvQUdVWE5BbzlpSE1mMGZtNmRWR016SUJMNVh6QWVHVC9FeGZxeGxrdGdHNElrMnpXUDdNZjBmbTZkVkZNeklCVDFyajVPWTVDcDlvRDM3UW03OC95RFFBVjZScEZ2c0RtUCtPek5PcnE1a09tb0JoY1ZZOWJVVStZSytOd2ljYTZtalZJOHNBWEpHbTJYeEpYM2tzcldsbVltRUNCZzc1blZCdjJoK2c4RW52WUYyTUxBTndSWnBtNmI5R1VCRldwWmsyQVlNS3FaNU90NUJob0FpUTI1SkdNNVRRc3d6QUZXbWFwZjhhUVVVd01KcWhDUmdlMnlSM0RqZHVBNjAwelFLOFJ3Tzg2QmtHWUduYmVrcXdLczFDRS9DOER4V0w4UzRmcnpkVlU4czJDSjlud1I2c1crTmtHb0RMYUpwT1hCTTNGczdPS1VBbXZoa0ZlT1cvTW9SbTdOTnJrR2ErWGhoYkdVSXo5dWs1cXdJNDhiMDNGazVvdGd5WkFqZ0NDMmttNnhuMm9WS2FSVDFhUVJUWVZCTk4zOFBpVXNsT3JnbVlhTnRhelI4aldBSFZqbVlrWDg0L0dFRVpSaEE1NzQvMEVteVZiVnNyK21NRTVWRTV6UjZUYU81MzVyL3M5NVpvVmtuYjFvS2EyNkZoRGM5d3ZFTlRlVFVacjJLYW9YeXBSN1BMc3pjR0tacFYwN2ExWUpMTXAzTE0wK013MDlTam1iclVRcjFwZXZGV2ttYlZ0RzB0bUNUejM1RjVla3hvRmt5M3FLa0U2QUwreGtqcmx0SzJ0YUZ3RHRLTTVNdDN1bURaVk04VmRXN2U2VWFUejdKdFd3WDJnZEc2bWJSdGRSZDhhQ1p0V3gwR0g1cGxRV2ptQ0N5a21SUFh4STJGYzNBS3NES0tMbWlVK2hEbXZ5UHo5T3FnR1ZTWnpYd0RUU2F6aEg4ejZzYzY4VForZlFYcTBacjNhWmI2STVqL2pzelRxMlUwQzBVanZPYy85ZFpPekhFWmUzOTZFYXFIWWoxYTR6N05VbjhEODkrUmVYcDEwUXo5bUJNYW15YXZudi9vYmU5dEQvb2F3aVowWEdLUldnOE1UZURrSE92bWNsQ1AxcmhQMDZnMktZOXNmSnF6YldxeSttQUxsTW5YKzYyRGJudlNudTc2cmJIYUZEb3VKejMxUW0xQ0orZE5HcnlnSHExeG4yYlpQME5RTVF5TVptQ1VtMjZoTWdsRlFudmdvb091bUZ2YWNRa3VUUFZDYlVJbnAyNzhpK1ZCVGZzMHkvNFpnb3Boam1hZ1RDN1JETFJLY21FQ3pjakpxVGlFa3VXdHNmZzBUd3RXbjJsaUlWcDFVUS9uT3FnNzIvclE4elp1ZzBENUdqa3UvOWlqMmhwZUQ2L040TGFNTnRhanBWcmM0dE9zTlp5VlU0Q0tJVFJqbjU3UUxDZVl4Mk9lbnRBc0o1akhZNTZlc3pRVDJBY0xhU2FMR2ZhaEtVMVR2V2RZMHl6NUp3anFRRk9hNXYyUm9wMVJUYlBzbnlDb0FjMXBtbUF3TjZscEx1Mlg5L0hRc0labk9ONmhxYnlhak5lWXBra3FnRUZOcyt5ZndIMHF4enk5MnU3UUtLbHBUbnBtYTgrVy9STzQvNDdNMDZ1YlpnVTFUVGd2U2ovTitzUFpTTFB5bXFaUEJrN3BwM2s2WU9HNm1jQStDTTBFTlVCb0pxZ0JGdExNaVd2aXhzTFpPQVdvR25rV05GYitFT2EvSS9QMEdxQVpkZFpzSFd3bm1oN091cTNQMUJ1dGgzM3Y1YzFReGZTaFB0QUUybXd1dW10aWpjWkkrbHhrbDRMUXpMNTRKbWxHblRYbmU1L0dlbXZDSWxnUDNsRFVpemt6c1hsVDhIa1FscWZWdTFJbHRIUjJLUWpON0l0bmptYTZzeVkwQWR1TDJtcDJKdXAvd0xxUVpxR0tpYTNvdXExeEVPdXVpVFFMVmRMY211YlMrL0xJNzlFY3pSYWROYkdzSjFTUjdRWEJneTA0TjNaME8rcEl4Y1RHbXI4YlQ3Q1hXTmhkRTUvNUxWSkpNV1l0bzVtZ2VwaWptZTZzaWFNWjBRdzBjWFYyREtCQ1hqaWFhUlVUUnpQMXhyMUJyTHVtR3MzNlBaQ3BRTDZLWlplQzBNdytHQjNOc0xObUVCQlRoaHNmOVpCbUU5MnJsV2hHS2laZG0rbVRaTmhkY3djYXZBck5YSVE1bW9XZE5lRWsyUXRMeVlMWStmaUN0M0VubkdscUZYTTBWRHZDaldpSjdwcHdXbFVIbzBvYXl5NEZKNjZKR3d0bit4U2dDZ2pOMktjbk5Nc0o1dkdZcHljMHl3bm04WmluNXl6TkJQWkJhQ2FvQVJiU1RKWXo3RU01bXVHYWZqdnh1alZPN2JOL05YTDdUamU5MS9jT2FKK2hPdkpzNm5ERVVnZlhRR2ptREVxT1p0UzdVTDhBNCs5Mm1tVWdsMnVkZlBZR2FFaGozR2UrZDdEOThITGljSTEwQjlkRmRpbVlwaG56YTJ6bTZWVTZCYUJPckdqMGZmWDhiVThiZWNGU1FxbzU2ZWloVGs3OENYdG9xZ2ZkeUJWM2IzM3FkZnlORVhWd0hhNFBodEFxRE1hNlhOSTVQL3V1MklITlNlZmhjRFM1MUNmakwxSUk3YjZrbXFPT3JuWHlZUThJdUhFblFUTjFlTGo3emRIc0M5M0JGUlZPaklBZkk2TVorL1NxSGMyd0V5dFY5UVRka21pR2RsOGtDZW5vb1U3ZWp0VExRTk1NRDhmZDV4L2N1YlY3ZjZRN3VLcHR0OGJRL0RCdkRZMmlpV2VBK2UvSVBMM0tUNW9CR24wWE5KdnVrdDBYVlhQVTBVT2RmTE1YaWVTNzBVbFREWDZ3ZStCZi9MS3Z6cXJVd1RXWS91Z0thTzJKN0FUV28vUk1FMjQ4OUQydjllSEdDSTIvSHVuZ2VBTVpTZWVSMnhkbW10U1lGVzRvRzBKVkZ6eWMzTUd6ajRQNzZoUktIVnpIaXJvQjdoN0xUbUE5T0s2YmZUUENqdFdCME13WmNLU1pyMDBvUWpObndKRm1DNGgwemo0OVo2VnpKNzczeHNJSnpaWng0b0tHaVE5aC9qc3lUNjgybXBFSnVKZmVQTjNWMm1mcmF6Vnp6RFlBcjF6aWVKVzhRekQvSFptblZ4Zk55QVE4U1V2bmMxZ01RN2ZTM29QZS9QMUJwZ0Y0NVJMSEsrUXRxQkdyMGt5YmdHRnBkYUZvd29EVVJsTXZHdXJRSHBkcEFGNjV4TEZKTFZJZStkcUJGeWJnbUtLSi8welBqOEozUUszTU5BQ3ZYT0s0ZE42Q1dyRXF6YlFKR0FyS0xoUk5YTTlIdHlXTlpzTmVFR1FhZ0ZjdWNWdzZiMEd0TURDYW9Ra1lIaU5GOHpaY3dXdWFxV2R3UXIyY2FRQ1dFc2UxaDdOekNoQ2FnT2Q5ZFhrVktwb29Tb0twOXl6WWc5SHgyd2t5RGNEU3RyWHVjSGJTTEJNTFVYSkZDTTNZcDljZ3pSYWk1SW9RbXJGUHoxa1ZRR0FmaEdhQ0dtQWh6V1E1d3o2VW9obUtqM0JiTEprcm9ZYnhOYTFVeGlzVW80cUptRkRwS1Z3TmcwTnd0cmwrZFZWTnMxaldndVpROGladFdFZUZYbUJvcm94cUdDY2R2WHFsREJCS21RQThoSFROVlRYTmdsa2ZBZWJYMk16VHEzSUtFTkVNelpWUkRXT3F5ampkUFBzRlZEZkdkZi9KYTZCc2Fpa1RqOFZEU0FsWVZkTms2YXNVbjZZeFRUT2tHWmtycVlZeGJKcHUrZEQrOXh1b0xZc3E1aytnQlVDSHBFenRueU0vSnVtYUsycWFCYk0rQXN5SEMrYnBWVDZhM1l6TWxXRU5ZelY2emZmR2NMRUYxS0hSckVOVmpsSEtoRDNwRUQyYXJhaHBGc3o2Q0REL0habW5WeVhONXU4UGtCTmtyb3hxR0t0ck0wV3oreU0xcVBYMHRSbmNBdFFKWWpaTk9vUjB6WEthcHNBK2xGelFtRzZTT29ubXl0OWNXTndUTy9GNlgzZXB1akdxbUJNUEo2VjBEeHBjZ3VFaHI3emxTZHZXMDRTcTE4MG15MlYrQ2tCbzVnZ3FwdGxpVWF3VWhHYU93RUlWd0lscjRzYkMyVFFGcUF0Q00vYnBPVXN6V2RDd0wxNUptcFVwUGpzRzdYTmdzdlpzMGF5endmeDNaSjVldGFOWm1lS3pvSDFlTTFsN3RuRFdnb2F3QXMwS0Y1OGxRZHhnN2RubS9ZZnltTzl4MWRHc1NQSFpFV2lmSm12UEZzNWEwQkJLMDZ4RThka0FlV2l3OW16WlAxcFFOMVk1YVJZdFBqdUo5UEdWYXM4NmNVM2NXRGlycGdCbGlzOEcwTDkxdEhydFdTZSs5OGJDV1VXelNuRkM3VmtudnZmR3dnbk5RcHhRZTlhSjc3MnhjRUt6WlloMDdnaUVab0lhWUNITlpESERQdFRpMHdSWmMyYllwMWtzWTBHenFNZW5DZXRraG4yYUJUTStCc3l2c1ptbng4aW5tYUNaSVorbU9jM3QwTENHWnpqZW9hbThtb3hYaTA4elRqTlRQczJDR1I4RDVzTUY4L1E0K1RSak5EUGwweXlZOFRGZy9qc3lUNCtUVHpPa21mZzBUeWxxOFduQ1RnZmkwenpGRUorbW9BYUlUMU5RQXl4VUFaeTRKbTRzbkUxVGdMb2dOR09mbnRBc0o1akhZNTZlc3pRekxXa3kveDJacDhlTlpzZm83U2RrbDRJbzUvYWh4dEhzQ0wzOWNZcG0yRTBza1YwS1FqUDcwQVRORW5xN1lwbjJBSzhQc05QcnhPdUErSDZDZE03RTVpcVArUjRib0ZsY2I5Y2RYQlhaN2cwbXIvYzNSdnVEQjFzQmlPOTRpSXhtanFCdW1pM3A3WERPQkEvd0VQcFdRd3RPVU5yRFJWMlpBckJQajlzVTRFaTlmUXM5d0hBMkRXa0c0bnNzdXhTYytONGJDK2M4elk3UTIyRmt1NGwzb0dHbjEvYXMyd0h4UFpaZENrNTg3NDJGYzU5bXhTRTBZNStlc3pRVDJBZWhtYUFHQ00wRU5jQkNtc215bVgxWWxXYjdWMlB1M1FXbXU0SDIvTUo5Mnh1Ly9tVGgvRVZGazFiR2ZMZ2RPNVExMFFiY1NmaUo2NkVaODJ0czV1blZNZ1VBWFhMaDNvMHdoOEo0MnZNN3ZUaWVkVHNMNXkrVk1nWVRDbnBTRnJLbUNrVGw5ZExacFNBMHN5L2VTalNqT3NibzNsMFVONFpScVkzcUpLM3gzeU1PYWVldlZqU3B5TEZlb1gwOG1LTVplRWMzcXNPRGo5YzBUV3B1aDRZMVBNUHhEazNsMVdTOGxXaEdkWXpSdmJzb2Jvei9UTStQOEIxMU9yeUpBMVRrL05XS0p0QU0vTUs3b2F6NWlSWTQvZFpEbERieEEyUTBZNTllRGFNWjFURkc5KzZpdURIVzlrVFppRVl6WWt6by9BMFZ6ZVJvaGc0b0dNMzZ2ZmtlSFJ6TExnV1pBdGlIVlVjenYzV0E3dDFGY2VQYk1COElhYWE0QnlSVWJOTE8zN0NVY2VMYVRPMEVadUNkSUJqbW9KbkFQcXhFTTEzSEdOeTcxNkxpeGxpZ0dOVEo3MmpGVW8xZjdabDIvcTVmMEtXTWgrUVNwcG1tZDZtdnpjQ3Q4Y1Ryb2JRWnkwNWdQY3l2bXkwS0ZLOE9vWmtqTUU4ei8vamIrd3RCcEhQMjZUa3JuVHZ4dlRjV1RtaTJES0VaKy9TY3BabnA5UXptdnlQejlCcW5HYlYyblc2cUthWHY0U3hTYlNKcGsxNEZHYjFhOXdlek4wZTRReWVvaVdhQzZsSGxhRWJ0REZIZnZEL1NsUmpEUnE3eGVzY3hFTzJtdXlDOUIwSXpaMUF4emFBNTZ5Lzd2UVhOdExTWnJIY01ZOXpRZS9VS2FhVGJCM1N2eGpHYXBsRU5VaDd0OW1ucTBlenk3STFCUkRNdGJTYnFIZDhiWUkxYXY0Y2FxZDhhNDB1QWpHYU9vRkthWVhQVytlVmdldkZXUkROZDFEaGU3eGdzbXZzRFJUUFVTT2Q3TmRPTStUVTI4L1FhbndMb3U4ZEFFdkR4cmlDNEgwTkxtNGw2eDJEUjlQVm81cmNlbmtReko3NzN4c0k1UnpOcXpxcUdORVdabTNlNnVud3hTcHVJc040eFZEOXVSNzFlZXhQdlVqKzhJVmRveGo2OXhtbFdGUDdTcmQ1Q00vUGhUanZOcHB2TDFaQkZPbmNFZkdpV0JhR1pJeENhQ1dxQWhUU1RkVFA3MEpCUGsxcTZUaFpOZUlyNU5FdW5td1htMTlqTTAyUHQwNlNXcnA5SE84RkJCWHlhWmRQTkJQUGZrWGw2ckgyYVpHcnFoZzFjaS9vMGpXcHVoNFkxUE1QeERrM2wxV1M4aG55YWFOSDgzWGlDTnBYaVBzMXk2UjRCNXNNRjgvUlkrelJ4TkF1Q2FLZUNQczF5NlFvYVEwTStUYm8yMHlkSjhXazZqK1o4bW9xYVZJcFdmSnJ1UTN5YWdob2dQazN1OFppblo1dDBuZ1doR2Z2MGhHWTV3VHdlOC9TY3BabXNtOWtYcnhxYVpWZzA0WTUvNzZ6NE5FOG5LaHJObGkyYTg3MkQ3WWVYeGFkNU9sRWR6ZElXVFJUSnhhZDVPaCtySGMzaUZrMmltZmcwVHlXcW90bXlSVlBUVEh5YXpZWnphUXFRWmRIVU5CT2ZaclBoWEtKWmhrVVRycjQ2TS9GcE5oM09KWnFWZ3ZnMDZ3aDMybWttUGsySHdZZG1XUkNhT1FLaG1hQUdXRWd6V1RlekQwSXo3dGZZek5PcmFnb3c2M3F0c2UrRnh0NVp0L1haTmUzcGpWdDUwZThMQUE4d0hnTXZFbEw1Yk9FUlhrUW0yYjBYenk0Rm9abDk4VXFNWnJpQ2Z6ODA5dm85c0FURGFtdmlaZ3Z0S1FIQVVtMjJWTDd3Q01jaUJ6Ri9zZENNZlhyVjB3eDFiMlFFYnNLbWhkUE5zMStvOGFpRERybkphK0RyamRNc0taV0hRcm9QUzdWZ0NJNW8xZzdFRHF3ZkQwM2wxV1M4RldpbUc3Qk9vUEFGYkpwdSthM3h2Y0UzSTFobkJiL3ZUOVRwME8vRWFaYVN5aU9QY0REcG9TR1lhSWIrWW9STUFSeEJXWm90R3JEQ2VWT1Badk85TVZ4cEFXOW9OT3ZBeVROR3M1UlVIZ25wWFEvdHdlRm9CdGJPV0hZcENNM3NRd21hemQ4ZklDRkk5NTdvRnI5d2JhWm9kbitrQnJXZXZqYURJV3N4bWkxTDVhR1Fmbk0wNmFFaG1Nb2dvNzg0bHAzQWVwUlowSmh1a284WGRlL2ZYRmhVajVwNHZhKzdxSUMzUVNpSHdRdWJzN2J3UnNVbHFmd2RMYVJ2Zk9SNXI3eWxEY0ZRQmhuOHhZTkZkZ0xyVWVtNjJhUnozTHNaVW5rYUlwMnpUNjk1Nlh5eElwYUZMS2s4RGFFWisvU2FwOW5xRUpxeFQwOW9saFBNNHpGUHoxbWF5WHFHZmFoZTA0UkN4bmZNYXBvRnNoV3dRQTJhWmxqSUdHQkcweXlTcllBRHF0YzB3MExHZUt3WlRiTjVlNnM4Rm51c1h0T2tRc1pHTmMwaTJaNE01dGZZek5PcjlnNk5BcHFtTG1RTWV4clNOSXRrZXpLWS80N00wNnVNWmtVMXphaVFzU0ZOMDRudnZiRncxdENzb0tZSmhZeG5KalZOSjc3M3hzTFpRN1BjcUViVEZOZ0hDelZOZ1gyd1VBVVEyQWVobWFBR1dFZ3pXZEN3TDE0VE5BTVo5TDlGNVk5aEpTMFVDYUk5dG1zVW01ai9qc3pUNDBzemxFSEQ4c2NvWVBxcHZxOStuWm9tODkrUmVYcDhhWVl5YUZqK21KcSs3bzFCNkJ5cS83VU8xQlAxdWo1Tjg5Q3dobWM0M3FHcHZKcU0xOGkxR2NpZ1lmbGpGREFWclVEb3hONmE4QVJwRnNnZEdzNmdvU21BM3d2TEg2T0FxV2dGUW1ld1A3aUZUNFJtanFHUmt5YklvR0g1WXhRd1VReFY3MHgvZEFVVnoyTnBKckFQVGREc01jbWd1dnd4Q0pqL1ZRdWhjT01IUEpubzIyZUZabzdBd25Veko2WmVqWVU3UFRQTi9CQ2FzVTlQYUpZVHpPTXhUMDlvbGhQTTR6RlB6MW1heVlLR2ZUQkRzLzJyY0h0czZ5QWxUZUp0dG5Dai83emZlb2czbi9rd3NhUmJiY1duZVlwZ2hHYmcxTndKNW51ZnhxUkp0V0Y2ZmhUTTNoaUE2MlI2QmN1Y29VTUFkUEhIZUErMitEUlBDd3pRakpxdDdzd3ZRd2ZnYm1lQ0ExaG40blhRT09KM3dLTHkyekYxY3RYK2xNZURPZm95eGFkNVNoNE4wQXlicmVMcUtyYkNoTTZyNnB6M1lDc1l3cWtQekUrZDJjZFVVQnZjbTd0cVZ5aUVBTDVNOFduV0hzN2FLUUEyVzlXakdkRU1pS1BPajNvMEMyWnYvdDBnU0kxbTZFY1JuMmI5NGF5bEdUWmJQZGdKVUlxYzdnYkRqWS9JcUFsVk5lRDZMQmppblQveGE3UHBGdm95eGFkWmV6aHJhYVl0bHgyNHdhY1h0bDl0ejdvZG1ta0cya2czcERxME5OUDBMdlhSbHlrK3pickRNYUhabzdVelQxNDZZemlWc2hEcDNCR2thZmIwQjA5L0hqejkvbzJtOGtsQ2FPWUkwalI3OXVlS1pvOWUrS3FwZkpJUW1qbUNqSlBtMnRyelRBWXpvWmtyeUo0Qy9BTVRuc21DQnZ2MFNrd0JubjUzalZCME9FTWRzcDE0bmJMRW9lNFpTcGhxQnZvNmVKbGFudzJHZUtCUDg5U290RkF5dXhTRVp2YkZTNDVtdjlMWFpJVkhzL2tIbzNrL3JQQXoyMW55OTVMdXFTWE0yUnNEY0dLQ1hmUGEzc0gydzh0VXFEYXNVZnRZYUZaaE9BNDBLdzFjNHU5QUtiUEpxK2R2ZTFxZG5QZWhtQm1vbktSN2hoSW1MYjZTUGc1N2tqaWdhOVJxdlZOOG12cngwRlJlVGNaYm9obWNPRjhNaWlJY3pTYVgrcTN4Z3kwOW1pbjYrQjFTT1ZIMzFCTG1zQWNFM0JpQlhSUDNSS21UYXRSR2VpZEM3dEJ3QkVzTEd1K2VVYlBOd3N1enNMVGZoa3V5SHRXYkpacXBNK0YwQzJsR3VxZVdNUDAyRFgvSXcyZzBDM1NOV3ExM3hySkxRV2htSDVhV1ovOEFMcy9LWEpzRllIK2J4R2cyM2ZYaDdneFNPVkgzMUJMbWRMTUhCMHdpdVZ3M0VRaHIxS0xlR2N0T1lEMldUcHAvLzU3NjU2K0t6elRwM2xpdjlTRjBBbmdOYTgzQ0ZSbWVCMG5xakVyTndreFRqWDFnMXh4aGpWcjh4NmNEdE41SkUxV2htU1BJWHRCZ3JXazZNZlZxTEJ5SG1hWmUwSGp5UjRaVEtRdWhHZnYwU2k1b1hDK3pQRnNWaEdiczB5dEhzNmMvZVBibndkT2ZHMDZsTElSbTdOTXJTYk9mQjQvT1BmdFR6cU9aTEdqWWg2V1Q1dDNuYjF6UHVUNjdmNjBmRnpJSllST3didXV6cTEydjliRHZ2YndaMlRHVHpSREZwM2xxc01JZEdycVBaZ3E2Ykd6VVpsUDlmMkhIVExiVEZKL21xVUZ5UWVQN04yaE5JOGNVZ0ZUSzdiSC90dmUyMTRQT21YZEl2ZHpEbnBwUm0wMmdtZFl5ZFR0TlhXSFc4OXJpMHp3dGowdWoyYTl5cWdDa1VtNGZkTnVUdHU2Y2liSVNscEg5WmtSdE5ySGt3VGl5WTFJN1RSU1VKbkdSVTN5YTlZVmpNZ1hJYXdNZ2xYSjdEUExTZEJjbHBwQm0rbXFMMm16Q2FLYTF6TEFESjFTWVJhT1QrRFRyRDhlRFpxUXo1UnZOZktqTkV0SE1KL1h5UytxcEdiWFpSSnFSbHFuYmFXS0YyUWxjNUl0UHMvNXdQR2lXKzlvTVRvaVgrdDUzMURXVjUyM2M5a0wxVXZmVUJNSHlUampUSkMxei9RSzEweHhEaFZtUU5jOUtQODM2dy9HZ1dlNXJzeVNPNzV5WkFYWDFCclcwVDRCSTU0NGdjMEdqc0taNWZPZk1MUGlKZS82UGd0RE1FVmlvYVFyc2c0V2Fwc0ErV0tocE9uRk4zRmc0SmxPQUFwcG05WkIxTS9icE1haWtIYm1DUVRLbjBzWlg0NXUwU2pDRVZYOTBCTVBTN2V6TkVlN2FDWVJtRllSemtHYVJLeGdsYzdMNkpqZEJZZVFIdldEWTA2NFR1b1ZqdWp2ZGpXV1hndERNdm5oSjZmd0hobE1JT1lXU09abmprcHVnbENpNk5ORkRwK1Y0a05YVllDYlN1VHVQYWN1SjJhV004T1l6a3N5MTFUZTVxUTNLMG5TWHVJYk80ZFo0MHRITHZYSWprQ05JMHV6bktEYVo4elZwVHBGa25oak45Q1lZelpCK09KcWhISTkxa29WbWJpSHIydXl1c1RHTnRIQXRtWlBWTjdscGgzYmJJVWN3eXZFUFQ2S1p3RDZrUjdQZzJidm1SQUNjU2E1ZjY2Tmsvc3BiWVBWOUo3N3A1VTJZVC9wb0pSN3ErOU42RTFEazlXM2FzbTdHUHIyeTljM09HVTVqRlFqTjJLZFhobVpjU2h1SEVKcXhUNC9EdXRtcUVKcXhUODlabWduc2c0VTBrL1VNKzFDS1p2dTZNbkVDY05QL3NnZDQvVUo4UHpOMjRHTEpDaGlnRE0zQ3lzVEpyYnBvY2RvREhJcEx1RVJteGc1Y0tGa0JCeFNuR1FxUHlBaXNramY5Y1hkamhDWHc5c1paSG1EMUZIZkJRdUZrSFZjQUFCcXpTVVJCVkxObTdNQ0dOYmREM3ZFT1RlWFZaTHppTkVQaE1Td1o2Nyt1VG5sd2E4V2twMmlXNVFHZWJUL0VYUjVzQmFic3dBV1N6UVBtVXpubTZWVTEwMFRoRVJtQkZZeW51MkFMN25wSXN3d1BNSXhtc0F0MFBEZGtCeTZRYkI0dy94MlpwMWNWelZCNEhPTm9waXNZM3h1QW54ZE9taGtlNERqTnhBN2NmRGhiYUliQ0kwcVFlRzAyM0xqVGJVTnQ0d2RIZVlEYnVNdXMrM3JmakIxWVlCK2FXamNUTy9DcFFsTTBFenZ3cVlLRktvREFQbGhJTXlldWlSc0xaOHNVb0U3SWdnYjc5T3FrMmY1VlhKTTlTSldpVmRQSmRWcFQ2N2ZHeTYxWm1XaWF6SDlINXVuVlNETlFNc0Z4K1dtc0pURGMzMzkrRk16ZXdCV3o2WldzMXF3OE5FM212eVB6OUdxakdia3J3YU0wMzZNbXJXcEE2a3k4RGk2eStwMzUrNFBndCtPczFxdzhORTE1ck5tbldRNVU3QmlFU1BTK2dVTkpuZk1lYkFWRE9QVk5RQ3FZZlp6Wm1wV0hwaW1vSGdab1JzV09hVFFqbWdGeDFFbFNqMmJCN00yL0cyUzJadVdoYVFxcWg1blJ6Rzhkd08xazBCTUFtN1Qya0dad0V5TmNud1hEVm5acjFuS2Fwc0ErR0tDWmJzbUs4OGhlMktTMVBldDJhS1laNk1xMHk2MVpROTFUU2h6WEdNN2FLVUNGRUpxeFQwOW9saFBNNHpGUFQyaVdFOHpqTVUvUFdab0o3SU9GTkpNRkRmdGdoR1lvUTdZVHIxdmoxRDc3VnlNRlUwMUFYOTg3b0gzSThMbXNkOGF6UzBGb1poL01qR2J6RDBienZwYTdRU3hhYnVjS3NtZm8zSHhqRUxvSlFKN2Fmbmc1UysrTVpaZUMwTXcrR0tOWjRNT2QvNFBKcStkdmUxcWNCSzhBaVp3a2U0WUtKcTI5aHRWQnlZbTNwSGVLVDFNL0hwcktxOGw0WmtlenlhVithL3hnUzFNSWZKelV5OVdQdXpLSFBTRGd4cDBGemJMMFRvVGNvY0UrdlRwbm1yQ3kzNFpMc2g3MmI5VTBReDhuMG94a1Q2MWcrdTFJY3dwaW8xbVExRHRqMmFVZ05MTXZucm1UWmhDQU5MbWcyWFEzOUhFT056NUMyVk1ybU5QTlhpUnQ3dXFLdE10Nlp5eTdNbjlYQVRDUHh6eTlHbW1taGpHNEF4YmNtaDl1akdiZDE3REE3QUI5bktISUNiSW5LWmd3MHdUTmt5YVZJSFZtNkowMFU1VjFNMGRnNGJxWndENEl6UVExUUdnbXFBRVcwc3lKYStMR3dsazhCYWdNc3FEQlByMkthSmF1Tzd2UUwvZXZhVVZ5NG0zOCtwT0ZCelBxbk5sT2hVcFhvc1crYzFCb0w1VmRDa0l6KytJVnBkbHkzZGxRdjlSbFp4OFBwaGZIczI1bjRjSEVnck1KMVZNalhZbDJSNisvcGJOTFFXaG1YN3hpTk11cU94dnBsK3Q2RGY4ZVdYMjFncWtMenBMcVNTcG42MU92NDZ0aExsMkpka2N2MEdKWThXbTY5RmlNWmxsMVo3VitxYzJhaW9VM2NVU0tQSmhVY0paR3MxRGx2RG1hZmJGY2lSYVA5bHNQZFRuYlFPN1FjQWJGYUpaWmR6YlVMME5Ga2lnU0twaTY0Q3lwbm5qVS9JTTd0M2J2ajVZcjBhclJyTjhqRTk0OW9abFRLRHlhTGRXZDFmb2xxcGFrU0Y0Y285R2NGRXhkY0phdXV2Q293TC80WmIrVFVZbDJKd2lHT1dnbXNBL0ZhSlpSZC9Zc2FaUHdEdmJCQlA4NFNaWmg3Vm5kT1JNdXQvQW9OZEFGOTlVcGRMa1NMUlI2bjNnOXJGVWJ5eTRGSjY2Skd3dG53eFNnS2h4VmlWWm94ajQ5bTJoMlZDVmFvUm43OUd5aTJWRVFtckZQejFtYUNleUQwRXhRQXl5a21heWIyWWRxYUJicDZhaU9RemZYd1RIdng3RS9tTDA1d251MU80SFF6QmxVTkpxRmVqcXE0OWpOOVpqM1k2QWRwN3ZUM1ZoMktZaDBibCs4aW1tRzZqald4ZmJmOXQ3MmVzbGl4dnA5TE53KzlGNjlvdlgzQTdvbFNPekFZZ2MrQWFFSkU5Vng2T1k2NjdZbmJSaWo0c1dNOWZ2M0JoUFEwLzBlNnU5K2E0d3ZBVEthc1UrUHcyZzJDVHRKK0Qyd2NFNTNrOFdNOWZ0RHoydnZReEZrMU4reFRyTFFyS3B3enRGTWpWMmtqbU0zVjZKWnNwaXhmdi8raUVUNUh1cnZEMCtpbWNBK1ZEYlQ5T0Fxak5UeDMxeUFrbEt0RDcxVU1lUHcvWU11dVlPcFB2S0VKUGplSWp1QjlXQzBidWIzbGpZSnpSd0JINXBOTnpkRzZXMUNNMGZBaDJaWkVPbWNmWHJPU3VkT2ZPK05oUk9hTFVNV05OaW4xelROc25YTHhOWVozWmM5QktNd1ZqbHVSTk5rL2pzeVQ2OXBtaDJoV3lhMllyUFhCNzFnMk5PVjlKclFOQVhWb3dhYUpYWEw1RlpvajRpVlo3RXVhRE9hcGp4eXN3TVhRclp1bWRpS0hWcjlqcUlaY2EwUlRWTlFQYXFuV1VxM1RHekYwUXpkNWppYU5hTnBDcXBIeFRSYjFpMFRXOEVCSE9BbEdsNmI1ZE0wbmJnbWJpeWNhMU9BcEs0WjZwYnZ4TGUrdkFuelNSK2R3dUF4enFkcE92RzlOeGJPTlpwbElrTzNQQTVDTS9icGNhUlpsbTU1SElSbTdOUGpTTE9pRU9uY0VRak5CRFhBUXBySmdvWjlxSlJtQ1FFVGhjcjFxeG1hNWdTbW1zMXBtb0xxVWUxb2xoUXdzUUR5c3FZNWhuNnREV3FheksreG1hZkhZUXFRRkRDeFpPaXlwb245V2h2VU5BOTV4enMwbFZlVDhXcWhXU1JncmcrV05yVUQ3TmZhb0tiSmZMaGduaDZqMFV3TG1QSFJMS1pwQnRDdnRVRk5rL252eUR3OUxqUmJDSmhZQURsTDA1eC9NQ3FnYVFyc1E5VXp6WVdBK2NwYlVBQTVVOU9FZ3FENU5VMkJmYkJ3M1V4Z0g0Um1naHBnSWMyY3VDWnVMSnlMVTRCVklUUmpuNTZ6TkpNRkRmdmk1YWNaZEdWdHB6ZUdpNjNkMW1lZ1ZqN3NxOWtqOVd1RmFlV0pqVnFqMXE3Nk5iYmE2WWJ6VEtGWkJlR1kwMHgzWlUzQkp4MGNxOHZDMityL1liL1dQSTFhbzlhdStqVit3R3lIeW9nR0lwMDdnNXcwQzd1eVVnWFp5V3ZkalR2ZHptUWRsdXlubTJlL1FGcUVOTlA5V3ZNMGF0VzdKaXZTQXMzYWdiUnRkZWt4Sjgyb0srdjJBVmFRL1lrNnpXSDMxWDJnMmIzQk45QWJzeFBlMWhQMmE4M1RxRFZzN1pxb1NJdENKMEZHTTBlUWsyWmhWMVlxN2FrNE10MEthYWF2cmNnYUI2T1o3dGVhcDFHcjNqVlprWGEyQXgwNVk5bWxJRFN6RC9sSE0rektHdEhNaDU2dHc0MHY5OGIzUjRweXdKS0ladFN2TlUralZyMXJzaUt0T21uNm5YaDJLVGh4VGR4WU9OWlRBTjJWOVR0VVFmWTJuaHhKZ094OXJZYWl4eGM4ZGJHbVo1clVyMVVoUjZOVzNEVlprVmJOV05VVkhmVTlGSnF4VDYvQ2RiTko1K1I5VHNCUmpWcVRFSnF4VDY4Nm1pMVd1c3JqcUVhdFNRak4yS2ZuckFvZ3NBOUNNMEVORUpvSmFzQnFOSnRueUp3STdBZ1dWeWYxSnNERTIvajFGZmozVGpsTlUyQWZWaHpOUXBsVDM5U2ZlR3NucGs3RzNwOWVITSs2blFETW1lVTBUU2V1aVJzTForVVVRQkZqK3VQdXhnaGJHYTRQSnErZS93aFZUeEFNMUNaVUorRmVmM2l4UGNaRnRIczR3VVJ6WmpsTjg5Q3c1c1k4M3FHcHZKcU10ekxOSHFwejN2N2d3UlpVbDMyOTN5TFZjOWR2amRXbVVKMmM5TlFMdFFrRnpwczRlS0U1czV5bTZjUi8zbzJGczNZMDIxVU1tMjVoZGRsSkp5QTVDdTdjMk5McUpDaVc2b1hhaEFMbmZyaGNkbTlRVHROMDRudHZMSnp0TklQcXNrczBBM1dTRkV1Z0dRcWN3Q0dRRWVZZmpNcHBtZ0w3c1BwTWM2aG1qRzExVVEvbnVtSFlOL00yTk1kOGpkVEpQL2JnbHJQT3hPdVJ3RG1CT3pmZ2dtMVdUdE1VMkFkWk54UFVBS0dab0FaWVNETW5yb2tiQzJmbEZLQmlDTTNZcHljMHl3bm04WmluSnpUTENlYnhtS2RYRGMyb1VISG1EWW02U1BGQ0ROKy8ydFdsaWhjbGpnY0xDYjJzSFZoZ0h3cVBacmlFU3VieG1CNGVOdmVpVitRMkFZZndEajJQU2h5bmJPZWxwSE9CZlNoRk03QXhkVWtQNytJcWEwYzl4YktlWUJRZUliWElRS3hwRnBZNERzZ0FCUTVpT0txY2RDNlA5ajJXbzlsMEM5cXdrbDRPL0Fyd2FhQ053Z0VaenNIdmkxV05GelpnT05Kdm9ZTVlqaW9ublF2c1E5blJESVJ5clpjRFRkUlRHczNBS0l3MEl3T3hHczM2dlVXSll6aFNPNGpoS0pITzZ3OW54eFFndk1LNlQ5ekNicXc5ZklyWFptZ1VEa2N6djNXZ3J0Nkd2WGlKNHgrQ1VSMGN4RFNhaVIyNDduQjIwQ3lhTDJJYjFnNDk0Rk1zVWp3Qm96QVZMZ2g3dElKSE9DcHhySTdVRG1MMXZ0aUJHd2huQjgxT2dBR2pjQnhDTS9icE5VRXpFMGJoT0dRSzRBZ3NWQUVFOWtGb0pxZ0JRak5CRFNoTnM0SVZqemRHS0hsT3ZJMHZJMVcwcEticHhEVnhZK0hzbWdJVXJuaE1raWVhZ0xGOUsrd25kdUQ2dzlsRXN4SVZqMUVrSUJNdzFKNmRvNFlwZG1DbTlsM1Q4Y3JSckVURlkrekxTaVpnM2I3MWs1S2FwaFAvZVRjV3pxYlJyRVRGWXh6TmdvQ09nM01tYUppbE5FMkJmU2c5bWhXdGVLeHZSd01UTUxadlJRMVQ3TUNuQk9Wb1Zyemk4Y1lJSkU4d0FWT2ZuVXQ5MURERkRudzZZR0xkekxDUUdZUFF6QkVZb0pscElUTUdtUUt3VDArY1RUbkJQQjd6OUlSbU9jRThIdlAwaEdZNXdUd2U4L1FhcFJuZFpJcyt6Zlowc3pVT3NMc09LWllrSklHVlRxL2dEbUU1VnJzODl3ZXpON0dyR0w2VUtZQWpxR28wSStHU21oM09vUzNZL1pGZWZOVktLRmszZDRMNTNvTmVNT3pwWlRYeWNVNTNwN3V4N0FUV28wS2FQUjVvNzhuOGwvM2VFczNJdXJrenY0ek91MTBVQ2JSVWVrQm1kZkZwdXZOWUdjMVF1TlNqMmVYWkc0TVV6YlIxRStSTHY2Tm9SbHdEd2NwdmpkR0lCNURSekJGVVBKcGg2MVkxWWswdjNrclNURnMzWVRSRFJ1Sm9obExwZk84RW1qbHhUZHhZT0tlbUFHVEszS0ppR3REUjBOOFlhY1VTL3cydG0xU0ZJNnpBZ1ZMcFE2RlpsZUdjb2hrSmwrOTBvWFdyZXE1SWMvTk9ONXA4cmw4ajYrYkxtL0NPai8xZGgvcmVvZDRFMUZKOS82elFqSDE2c202V0U4empNVS9QV1pvSjdJUFFURkFEaEdhQ0dpQTBFOVFBMHpSTGFKWm8yQndjL1g0NVRkT0phK0xHd2preUJVaG9sbWpZUE9iOVVwcW1FOTk3WStFY294bHFsbWpZSkRObjBvdTVpcVo1YUZoell4N3YwRlJlVGNhcmltYWtXUVpZQlJrYnVTYTltS3RvbWs3ODU5MVlPTGRHczBtNGtPLzN5R1dYOUdLdW9ta0s3RU1sTklzMFN6UnNFczJTWHN4Vk5FMkJmYWhncHJuUUxGdS91ZUNGalZ3VFhzeVZORTJCZlpCMU0wRU5zSkJtVGx3VE54Yk9rU21BVVFqTjJLY25OTXNKNXZHWXB5YzB5d25tOFppblZ3Zk44blRYaEhxemNLdTI3cTQ1WDVTc2xYNmFwd1lyam1aNXVtdCtqdjlHM1RWRHRVbTlrbjZhcHdVR2FIWkNkMDJzTnh2cnJnbjlOSCtzdGsra24rYnBlVFJCcytPN2EySzkyVmgzemRuMlE3VjlmNkIya242YXB3Vm1Sck5qdTJ0Q3ZkbFlkMDBZelhiVnErbVc5Tk5zSUp5TlU0QmMzVFhoVEJucnJwbWdtZlRUckR1Y2pUVEwwMTNUMXpzc3VtdTJoeHQzdW1xbjE2U2ZadjNoYktUWkNWaTVLSzNRakgxNnpkTnM5YUswTWdWd0JCYXFBQUw3SURRVDFBQ2htYUFHY0tnOWk2S24rRFRyQ2VmV0ZLQkE3ZGt4aUo3aTA2d3BuSE0weTF0N0ZrVlA4V2tlOVhob0txOG00ekdvUFl1aXAvZzBhd3JuNUdpV3AvWnNBS0tuK0RTZEJvdmFzMm8zOFdrNkRSYTFaMEhBRkorbXk1QjFNMEVOc0pCbVRsd1ROeGJPclNtQUdRak4yS2NuTk1zSjV2R1lweWMweXdubThaaW41eXpOQlBhaGVqdHdlSE9qMklGUE1XcXdBOU1hcmRpQlR6T3F0d01qemNRT2ZMb2ZxN2NENjlzMHpObUJuYmdtYml5Y2xWT0FQSFpnb0puWWdibUVzNVptSjltQjlXZ21kbUFXNFd5a1dSNDdNSlE2SG9zZG1FczRHMmwyQXFxeEF3dnNnOWlCQlRWQVZBQkJEUkNhQ1dxQWhUUno0cHE0c1hCdVRBSEt0RzBWTzNDTjRkeWdXWW0ycldJSHJqT2NZelRMMzdaVjdNRDg3THVtNHpGbzIxclVEaXl3RHd6YXRnWmlCM1llTE5xMmloM1lkYkJvMnlwMllOY2g2MmJjNHpGUGo0RjB2aktFWnV6VEU1cmxCUE40ek5NVG11VUU4M2pNMDNPV1pnTDdVTWxNTTFuVkdDd0MzbG50eWRTYkVwcm1FQ3dtK1RWTmdYMHdQcG90VnpXZTd4MXNQN3djZWpLWE5jMEh2V0RZSzZCcEN1eERGVFJMVnpYR0pkdlFrN21zYVpMT2xGL1RsRWY3SHFzYXplSlZqWWxtMnBPNXJHbjZIVVV6S1hGY1V6aEhwZ0FaVlkwMXpiUW5jMG5UUkpkd0FVM1RpZSs5c1hDdTBHeTVxckdtR1hreXN6VE5zT1pHUGszVGllKzlzWEJ1MEd5MlhOVjRBSHJsVEhzeUVXbE5Fd3hRK1RWTko3NzN4c0s1UVRPemtKbW1JeENhQ1dxQTBFeFFBNFJtZ2hwZ0ljMmN1Q1p1TEp5ZFU0RDlBU2lXN2VoMTVNTU05cS9wY2tFVGIrUFhueXpLekpLZWhCTG1CTzZ0RGF2WHptanRINTBxeWV4U2NPSjdieXljbFRTYi92QWFLcGFMTGFHWUJMVm1zWFhyOU9JWWFsSkZaV1pSekNRSjgvTWc3TytLUis3b1JiZDBkaWs0OGIwM0ZzNUNtcUVHaVVSUnoxcFVVcFpvcHRWSmFIWjRqemlrSlUwdFp1S2lQeG8wY2FjNU9qZ1RwV21QcmoxN2FGaHpZeDd2MEZSZVRjWmJpV2FvUVNMTkZHMzgxN0drTE5Fc1ZtdjJKZzVRVVpsWkVqTlJ3a1NEWmxpUTloUGQ2ZFZ2VVdsYS9BQ1pBamlDbFdpR0dpVFNURDJiYm1HdFQ2SVoxWnJGMFl3WUUwcWFXc3pFMFN3SW9wM1F3WW1sYWVkN1ZETTBscDNBZXF3Nm12bHFQSUxSckIyQUdWUFRETysxOEZzSDJMb1Y2aFdyRTZTV05MV1lxVzh2MDIwQzFFN2c0TVRTdEVJekY3RVN6VkNEUkRVU3I4MmdwT3haa2pIaEhaUW13V3J1WVVWYWxEVFhMNUNCY3d3SGdVR1QrcnRlNm1zSEo1UUg2bUZwMmxoMkF1c2g2MmJjNHpGUHoxbnAzSW52dmJGd1FyTmxDTTNZcHljMHl3bm04WmluNXl6TkJQYWhLTTN5ZE5BTXNKaHMxRUV6SUY5YzFCRWxFaTJsbithcFFlSFJMRThIemMveDM2aURabWpLWEJ3WkhpWDlORThKU3RIc2hBNmFxRlhHT21pR3BreDk1UFo0dW5uMkN6aEsrbW1lbHNkeU5EdStneVpxbFRGVk16UmwwcEUrRkpyOVpnUkhTVC9OK3NOWk1nWEkwMEVUdE1wWUI4M1FsRWxIenZmR2NEa0dSMGsvemZyRFdVU3prenBvd3BreTFrRXpOR1hTa1lwbTkwZHFVTVBSVFBwcDFoM09EcHJsNmFEcDZ4MFdIVFJCeDN6bHJmQm0ydDdYYXZSUzc1K1ZmcHIxaDdPRFppZGc1UTZhU2NoTTB4R1lwZG5xSFRTVEVKbzVBbEVCQkRWQWFDYW9BUmJTeklscjRzYkNPVEVGTUF5aEdmdjBHcVJaUnAzajJURWxqcVZ0YTQzaEhLSlpScDNqU0NhWHRxM05obk9NWnVrNngwZVhPQzdhdGxVZTdYdXNkRFNMMXprK3VzU3h0RzExSHhYUmJMbk84ZEVsamdOcDIrbzhxanRwcHVvY0gxZmlXTnEydW82cVpwcnBPc2RYanl0eFhLeHRxeFBYeEkyRmMya0tZQXBDTS9icENjMXlnbms4NXVrSnpYS0NlVHptNlRsTE00RjlFSm9KYWdBSFRWUGF0am9QQnBxbXRHMTFId3cwemFKdFd3OE5hMjdNNHgyYXlxdkplQXcwVFduYldtYzRsMmFhaFRSTmFkdGFaemluYUZaTTA1UzJyZldGYzRobVJUWE5ZbTFiQmZaQjFzMEVOVUJvSnFnQlFqTkJEYkNRWms1Y0V6Y1d6cUVwZ0RFSXpkaW5WekhOU3RRNlhpNXBYS3JFc1JQZmUyUGhMS05abVZySFN5V05TNVU0ZHVKN2J5eWNqVFFyV090NHFhU3hsRGcrSlk4cjBxeFlyZU9sa3NhbFNod0w3TVBLbzFtUldzZExKWTFMbFRnVzJJZVZyODJLMURwZUttbGNxc1N4d0Q2c1BOTXNVT3Y0WUxta3NaUTRyanVjYlZPQTQyR20xckhRakgxNmpkTE1VSzFqb1JuNzlFUUZ5QW5tOFppbjV5ek5CUFpCYUNhb0FhWnBsbUhSaERVMTc2eTUyck1DKzJCOE5GdTJhTTczRHJZZlhqWlhlMVpnSDZxZ1dkcWlpU3U1NW1yUEhoclczSmpIT3pTVlY1UHhxaHJONGhaTm9wbXgyck5PVEwwYUMrZklURFBEb3FscFpxcjJyQlBmZTJQaFhLSFpza1ZUMDh4VTdWa252dmZHd3JsQnN3eUw1Z0JFenBtNTJyTUMreURyWm9JYUlEUVQxQUNobWFBR1dFZ3pKNjZKR3d2bnhoVEFMSVJtN05OajROTU03em9UbnlhZmNKYlJMSmRQa3hiUnhLZkpLSnlOTkR2QnA0azBFNSttUEZicjA5UTZ1dmcwVHoycTlXa0N6Y1NuS2FqWXA2bEhNL0Zwbm5aVTZ0TlV6MXBqOFdteUNtZmJGT0I0aUUrVGFUaW5hQ1krVGE3aG5LS1pJUWpOMktmbkJNMEVqZ0IvVHE0MHl3VDM2U2Z6L0JwTVQyaG1FTXp6RTVvSjNJYlFURkFEaEdhQ0dpQTBFOVFBaTJpMjZHM0JFTFFxelRaRnVGT3J5ZlRzb1Zuc25rbU9nSHNGK0taNGZ6UjdjOVJnZXZiUURPOHlhanFKbzRHM3BIQk9jWC9RWUhyMjBBeEx1alNkeE5FQW1yRk84ZGE0d2ZUc29SbnJvWUwvYURicE5abWVQVFRqZStHRDRIMXRoaDRMdVRiTGd5SFhhUnhpU0Rkek1rM1JSMnRpYytsWlJET0J2UkNhQ1dxQTBFeFFBNFJtZ2hvZ05CUFVBS0dab0FhNFQ3TzdhMnRuL3Y2OTFNWm5mL0xlMCsvaFJ2MlFRTmEyYU9PVGIzOTExQzRuWS9td2tvRXdrOTkvK3QyMWMrckpYOTNBbDkrNkVVOHo4YW9BMUZmejMwdW5kQlNjcDluMUY3NEs3ajZYL3Q2dTA1WWwraVhlemNUVDc3N3cxUW03cEJCOXlCR2ZsdXZZRENpKzN6M3pTR1h6Q0tnV1BIdjMrUnVMTi9XckFtbUdVSWVzUVAwajREck5udndlZkdQMFE4U2cvcE9GaHlQK3M5WHZIaEVSUjdOamQwa2krcEFTZzhReGh6ejcweHNCMHV6cEQyakQwKy9IYUtaZkZVZ3ppcXNPZWZvSFh4VTk3SGk0VHJPN0wrZ3ZETTZkNnJ2L0gydnduLy9hR3Y0bnF4N1B3WCs1c2ZmVWFlajVHL2pqUEh0MzdVVTFKdndOYkhqNi9aODk5NWZmZXcvZmZQTHRuNjY5aUQvRzlUVU1EZ2VxNC9FbDdQaWZ2LzNYYXkvODQ5b0wvL1RkNTIrb29RRS9CQTdNK0xRQVQydFA5QUZmaFpIMEhqOTc3aitGeCtyZDc2cW40Y2MrZWxGUi9pVjEwdndIelM3OUIzenZQWlg1MnZOL2c2K2UvY2xmWXM0dndkZ1dpeFRGV3p2ek5OemhldlRWcUw4bC9kL2xpamd0TkZOajBKT1gvcjFpRHZ5czM3cWhCam5GZ1A4TFhIbnV2Zmg3ZDg4b0F0RVlBT1BCUCtPR1g3eXJmbmExSTc3NTVLVnp6OTQ5cDU0OFV0dk9FQjNWNzMwT1h2NWJ0YU42clg2NkYrSHE3L3RBV1BnUVBERGowd0k0Ui8waVBPQVhPbEs0eDVrZ1BQWVh0THRpMXZVeittUFZkdm9Mbi95Ui9sTlZETFVQcElrZmpxOG9YMzN5WFVUUzhmQ0R6dWtkTUM1OU5ZdmdwbkJhYUFiZjIvVXo5TU9yNThRbG9CTzlqdDREMXB6VHB4cjFhLzdxSzl3QWpBdmZoSk1tMGtZTkJZb1crdlIwOXd5K2hPY1VTRkZSUDlGRDQ3bXNUNlBKU093QWpCVHVFVVRIMGk0NHhvUWZxNW53N004VVZaN1QvMW5ReHoxYWNCd0MzSTNPcTR0STBSY0JmeVR0Z0hIcHF4R2FGUVZkbXozNWk3c3Z3bmQzQk0xaTd6MVNnMHRJc3lmZitwOS9FZUFHL1pQajh3WE45SWtsSk1jNS9UeURabEhVMUtjRjJUUUw5d2lpWStNMDB4K3JtYURHcWV2bkhtbTY2ejhMUnNYRmg2dkFOSk9JUmRKZkJINlEzZ0hqQ3MxS0FtYWE2b3BXMFMzNmRoK3BxNjkzbi8vYmlHYng5NjdyTTJKMExHN1FQemsrVnpTanM1SDZiWEdVZ0pNZm5kR2UvaUJOczZmZmhjOEpvcWlwVHd0U05LTkkwUjUwQlhndVlpeGU3NGNmaTlUQ1UyYWFaby9PeEYrcFBlbGlMaDZKL3FVUDBqdGdYUHBxYnNpMVdXRmNYNFByWmpnbm5GUFBYN3lydmxLMWFlMGNQY0dIMkh2L3VQYmN2MzcrWi9wM2dkL3dFV3o0UTl5SjN2emJkMkZ2T2hvWERkUTFORjAycjlGbHRBcWtIdjRhbnozM2IyQ21jQTZEM0ZqK3RLOGdyeGQrR2g3d1R6cVMzZ05Jcm8vOXd6RHg1OTRMOU1mQ1RKT21oUHFrU1NGVm1QL3prcnF5ajE1OUZWM1F4eUw5bE9MaEJ3VjZoK3MwdjRCTk10UGtoK1JDUW4yUmFBRTJBLytzU1BlckdFL1U1ZHZ4a2RJN2xGZ0dPUUZDczVYUkZNMkNKNytmdVJrWHZuNGUyN0MwYXBoR2VnZFJBZmhCWFhDL1lPWVVZeXJTSTdwTTBMaU84OUpqY09JT0JpQTBFOVFBb1ptZ0Jnak5CRFZBYUNhb0FVSXpRUTM0LzExSEExeXpWblE4QUFBQUFFbEZUa1N1UW1DQ1wiIC8+XG5cbjwhLS0gcm5iLXBsb3QtZW5kIC0tPlxuIn0= -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAKzCAMAAACDATEkAAAByFBMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshQ9elmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojm6Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq46rq6urq8irq+SryKuryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///39/f/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///+WuUGrAAAACXBIWXMAAAuwAAALsAEaOBByAAAgAElEQVR4nO19j58b13Hf6UcVt065dxJo1HbilGfS1EmApF6js0+EEseNm1iQ1FNNVSTBJm4T4iiRUeVSYJI2WpK2esQxoIiYIPbf7ZuZt4vdxd7d7uLt7rx38/3YBLDYHcwBX73d9777nVkLBILKsdZ0AoLTAKGZoAYIzQQ1QGgmqAFcafavBI4Af062NGs6AYEZCM0ENUBoJqgBQjNBDbCQZv9OwBnH/JBH0mx/MOu2PhtMd5femf5wsHgBO13teq2Hfe/lzXX1xrzvAdrHHaSOol03RuFrrzWGfz2vJzSzFSVopmjh96Y/vNbvLL31zX+MbYOdBrNtxZHt8ex9Ra5/+Q+j+Qejeb93zEGKV3rX6LWKoP7dCSatsdDMUhSmmRqS1gf4i09/3N0Y+fDq1fO3X+vC8PO5emPW7UxoG+wU0uyXb46C3/4XoFngd1SM1kG39anX8dVRcFAwXB8M1TY11oW7qsjX+q0POwuatQNaNDs8PIRMDuOPTX+PgmOx9HvB43E08zvqpBlMvE4wPT9Sz4LJpb46LyrCdYLZFzNFkYnaQxFkjDvh2U5x7+Nhb/6/burRzO+pMGq3m6PZF/ogRabHAzhyEO6qIvdm25+Eo1k3OtnKaGYfCo9miln34FpKnRJ31TP18/cUO9T/pluKV3ABhWSZ4InQ74Wj2cfTi//vfyua9eHaTMWYbs0/uHNr9/5IH6S23VJjGjKSdoXIECsczaYXx0IzW1GYZmrQ8lsPgABIs5ujiaaZeuO3Yzizqe3DjdtqG+wU0Wz+/k/GOJpBjDYecPFLuLyjg4Lpj67AEYpQeleIPN3ax6u76a46afqdY2gmsA/H0QzOgr3HF7yN0XDjTrftq1PihxsjNSTBjLIH4xFcYfWGGyPY6U4404Qxz4d5JlzCwbWZYt/HwX0Y3vCgsTqDBtNNzzvbpV03PvK8V9661FeHet66mrGqK7r1wSI7gfUovm42WZ51lsA3o2B++cS9Mml2aOLz7YnHPL188QrTbLHMtRLUcLc+OHEvoRn79CqiWa0QmrFPT2iWE8zjMU/PWZo1PWOvEHV/v7XBiKap5pBt3A8mkOv4bwcXa9vHHCSa5jJO/r0shRlNc7Y9Rllzen4UzN4Y/G6sNoimWRwn/VrWwoymeWd7jPvhsir8M70SiKZZHEtaoCuPZjRN4AfsN4TRS3FkqE6XomkWR9af6/wUIL+mSfzwe9FohhwTTbMoSv+MBcCOZvk1TcUPlDXhEh+uz4Lg1rgyTdOJ772xcPxollvT/FLNNHE/PdMcqq3q4Io0TSe+98bC8aNZNhrXNAX2wUJNU2AfLFQBBPZBaCaoARbSrOlVh5PW6mUKsIxiNCtv2wQRQc0dJh5MS/V1ma2a5glfktBsGYVotoptc7oFS7WfB6RcPkZSWqppnvAtCc2WUYBmq9k2fXSldFtjEpvmqGHaqWmeoOEdmtUEDw3FaTReAZqtZtu8Nwimu78bIxvhnIkapp2aZp4vS5BAAZqtZtvE0Uy9cW+Aoxku81qqaa7+rZ86FBvNVrBt0rUZaOqoXG6hhik+zVOCAjRbybapDlInUrieo2JBl/qoYYpP83Rg5XUzMxLnERDpnH169VhODEmcR0Boxj49Z51NTnzvjYUTmi1DaMY+PWdpJssP9qEGmpFUGZDuifNMmE0uNiWwP5i9iTYCUECFZq6gjtGMVl217kmKZmJTDES76a4W54VmjqBOmqFLkzSA5KYu+gdevYKq6Wwblt/UYGZI01w6Xh55+TRNQXNKuzS1ohnbdG8wASsn+u/2B35rjC8BtYxmzK+xmafHZwqgOUW6Z2I0o01Dz2vvDxTNUDWd7wnNKgznNs3UxRbpnqRoJjbdH5Fg2kPV9OFJNHPie28snLM0wzuC1q+R7vnKW6BovhPfBFJoGwVT/GfiXeqH988Kzdinx4ZmeeH3ljaJdO4I+NBsurmsjgrNHAEfmmVBaOYIhGaCGmAhzQytY0Rgfo3NPL0GpgD7V9FmcqCX+DWyXJtf4m1qPtwnu3Bt4to/rNemsktBaGZfPJM0A3PmTjDf+7S1oBnc2J/h2sSSoWgPiLk2dwKqiZbOLgWhmX3xzNGMBMmd+WVFtAN0bKrxqTNR/8twbVJlWu1MCV2bO9qQgjbQVX2a+TW3Q8ManuF4h6byajKeOZqhIIkeS5SLQJ3sBcGDrSDLtYk0Q+tmzLWJz3y0fu7T/UG1jGaC6mGOZihI6tGMaAY+X3ViDDJcm6nRjFybajTr99TB6M+LZZeC0Mw+GB3N/NbBjnpGTBlufNRDmmW5NpPXZtq1qY4d5qCZwD6YoxmcFt/pUtmfXihRtmfdzhGuTegQoGeaoWsTTqsTcHre6bZj2Qmsh4XrZk5MvRoLZ/tMswoIzdinJzTLCebxmKcnNMsJ5vGYp+cszWQ5wz4IzQQ1oIoSx1ldXFEnr6/Ece6/X1ALKilxnNXFtd4Sx/n+HkFdqKTEcVYX13pLHDcodYt0vpp0vloX13pLHOf5e0Iwn8oxT8/4THO1Lq71ljjO8/eEYP47Mk/POM1W6+JqrsSxE997Y+HY02ylLq5BICWOTzEsLHEssA8WljgW2AcLVQCBfbCQZk5cEzcWjv0UoAGUXNAo9iHMf0fm6dVGMzIBL5XzAeGT/ExfqxlktgG4Ik2zWP7Mf0fm6dVFMzIBT1rj5OY5Cp9oD37Qm78/yDQAV6RpFvsDmP+OzNOrq5kOmoBhcVY9bUU+YK+Nwica6mjVI8sAXJGm2XxJX3ksrWlmYmECBg75nVBv2h+g8EnvYF2MLANwRZpm6b9GUBFWpZk2AYMKqZ5Ot5BhoAiQ25JGM5TQswzAFWmapf8aQUUwMJqhCRge2yR3DjduA600zQK8RwO86BkGYGnbekqwKs1CE/C8DxWL8S4frzdVU8s2CJ9nwR6sW+NkGoDLaJpOXBM3Fs7OKUAmvhkFeOW/MoRm7NNrkGa+XhhbGUIz9uk5qwI48b03Fk5otgyZAjgCC2km6xn2oVKaRT1aQRTYVBNN38PiUslOrgmYaNtazR8jWAHVjmYkX84/GEEZRhA574/0EmyVbVsr+mME5VE5zR6TaO535r/s95ZoVknb1oKa26FhDc9wvENTeTUZr2KaoXypR7PLszcGKZpV07a1YJLMp3LM0+Mw09SjmbrUQr1pevFWkmbVtG0tmCTz35F5ekxoFky3qKkE6AL+xkjrltK2taFwDtKM5Mt3umDZVM8VdW7e6UaTz7JtWwX2gdG6mbRtdRd8aCZtWx0GH5plQWjmCCykmRPXxI2Fc3AKsDKKLmiU+hDmvyPz9OqgGVSZzXwDTSazhH8z6sc68TZ+fQXq0Zr3aZb6I5j/jszTq2U0C0UjvOc/9dZOzHEZe396EaqHYj1a4z7NUn8D89+ReXp10Qz9mBMamyavnv/obe9tD/oawiZ0XGKRWg8MTeDkHOvmclCP1rhP06g2KY9sfJqzbWqy+mALlMnX+62DbnvSnu76rbHaFDouJz31Qm1CJ+dNGrygHq1xn2bZP0NQMQyMZmCUm26hMglFQnvgooOumFvacQkuTPVCbUInp278i+VBTfs0y/4ZgophjmagTC7RDLRKcmECzcjJqTiEkuWtsfg0TwtWn2liIVp1UQ/nOqg72/rQ8zZug0D5Gjku/9ij2hpeD6/N4LaMNtajpVrc4tOsNZyVU4CKITRjn57QLCeYx2OentAsJ5jHY56eszQT2AcLaSaLGfahKU1TvWdY0yz5JwjqQFOa5v2Rop1RTbPsnyCoAc1pmmAwN6lpLu2X9/HQsIZnON6hqbyajNeYpkkqgEFNs+yfwH0qxzy92u7QKKlpTnpma8+W/RO4/47M06ubZgU1TTgvSj/N+sPZSLPymqZPBk7pp3k6YOG6mcA+CM0ENUBoJqgBFtLMiWvixsLZOAWoGnkWNFb+EOa/I/P0GqAZddZsHWwnmh7Ouq3P1Buth33v5c1QxfShPtAE2mwuumtijcZI+lxkl4LQzL54JmlGnTXne5/GemvCIlgP3lDUizkzsXlT8HkQlqfVu1IltHR2KQjN7Itnjma6syY0AduL2mp2Jup/wLqQZqGKia3ouq1xEOuuiTQLVdLcmubS+/LI79EczRadNbGsJ1SR7QXBgy04N3Z0O+pIxcTGmr8bT7CXWNhdE5/5LVJJMWYto5mgepijme6siaMZ0Qw0cXV2DKBCXjiaaRUTRzP1xr1BrLumGs36PZCpQL6KZZeC0Mw+GB3NsLNmEBBThhsf9ZBmE92rlWhGKiZdm+mTZNhdcwcavArNXIQ5moWdNeEk2QtLyYLY+fiCt3EnnGlqFXM0VDvCjWiJ7ppwWlUHo0oayy4FJ66JGwtn+xSgCgjN2KcnNMsJ5vGYpyc0ywnm8Zin5yzNBPZBaCaoARbSTJYz7EM5muGafjvxujVO7bN/NXL7Tje91/cOaJ+hOvJs6nDEUgfXQGjmDEqOZtS7UL8A4+92mmUgl2udfPYGaEhj3Ge+d7D98HLicI10B9dFdimYphnza2zm6VU6BaBOrGj0ffX8bU8becFSQqo56eihTk78CXtoqgfdyBV3b33qdfyNEXVwHa4PhtAqDMa6XNI5P/uu2IHNSefhcDS51CfjL1II7b6kmqOOrnXyYQ8IuHEnQTN1eLj7zdHsC93BFRVOjIAfI6MZ+/SqHc2wEytV9QTdkmiGdl8kCenooU7ejtTLQNMMD8fd5x/cubV7f6Q7uKptt8bQ/DBvDY2iiWeA+e/IPL3KT5oBGn0XNJvukt0XVXPU0UOdfLMXieS70UlTDX6we+Bf/LKvzqrUwTWY/ugKaO2J7ATWo/RME2489D2v9eHGCI2/HungeAMZSeeR2xdmmtSYFW4oG0JVFzyc3MGzj4P76hRKHVzHiroB7h7LTmA9OK6bfTPCjtWB0MwZcKSZr00oQjNnwJFmC4h0zj49Z6VzJ773xsIJzZZx4oKGiQ9h/jsyT682mpEJuJfePN3V2mfrazVzzDYAr1zieJW8QzD/HZmnVxfNyAQ8SUvnc1gMQ7fS3oPe/P1BpgF45RLHK+QtqBGr0kybgGFpdaFowoDURlMvGurQHpdpAF65xLFJLVIe+dqBFybgmKKJ/0zPj8J3QK3MNACvXOK4dN6CWrEqzbQJGArKLhRNXM9HtyWNZsNeEGQagFcucVw6b0GtMDCaoQkYHiNF8zZcwWuaqWdwQr2caQCWEse1h7NzChCagOd9dXkVKpooSoKp9yzYg9Hx2wkyDcDStrXucHbSLBMLUXJFCM3Yp9cgzRai5IoQmrFPz1kVQGAfhGaCGmAhzWQ5wz6UohmKj3BbLJkroYbxNa1UxisUo4qJmFDpKVwNg0Nwtrl+dVVNs1jWguZQ8iZtWEeFXmBoroxqGCcdvXqlDBBKmQA8hHTNVTXNglkfAebX2MzTq3IKENEMzZVRDWOqyjjdPPsFVDfGdf/Ja6BsaikTj8VDSAlYVdNk6asUn6YxTTOkGZkrqYYxbJpu+dD+9xuoLYsq5k+gBUCHpEztnyM/JumaK2qaBbM+AsyHC+bpVT6a3YzMlWENYzV6zffGcLEF1KHRrENVjlHKhD3pED2arahpFsz6CDD/HZmnVyXN5u8PkBNkroxqGKtrM0Wz+yM1qPX0tRncAtQJYjZNOoR0zXKapsA+lFzQmG6SOonmyt9cWNwTO/F6X3epujGqmBMPJ6V0DxpcguEhr7zlSdvW04Sq180my2V+CkBo5ggqptliUawUhGaOwEIVwIlr4sbC2TQFqAtCM/bpOUszWdCwL15JmpUpPjsG7XNgsvZs0ayzwfx3ZJ5etaNZmeKzoH1eM1l7tnDWgoawAs0KF58lQdxg7dnm/YfymO9x1dGsSPHZEWifJmvPFs5a0BBK06xE8dkAeWiw9mzZP1pQN1Y5aRYtPjuJ9PGVas86cU3cWDirpgBlis8G0L91tHrtWSe+98bCWUWzSnFC7VknvvfGwgnNQpxQe9aJ772xcEKzZYh07giEZoIaYCHNZDHDPtTi0wRZc2bYp1ksY0GzqMenCetkhn2aBTM+BsyvsZmnx8inmaCZIZ+mOc3t0LCGZzjeoam8moxXi08zTjNTPs2CGR8D5sMF8/Q4+TRjNDPl0yyY8TFg/jsyT4+TTzOkmfg0Tylq8WnCTgfi0zzFEJ+moAaIT1NQAyxUAZy4Jm4snE1TgLogNGOfntAsJ5jHY56eszQzLWky/x2Zp8eNZsfo7Sdkl4Io5/ahxtHsCL39cYpm2E0skV0KQjP70ATNEnq7Ypn2AK8PsNPrxOuA+H6CdM7E5iqP+R4boFlcb9cdXBXZ7g0mr/c3RvuDB1sBiO94iIxmjqBumi3p7XDOBA/wEPpWQwtOUNrDRV2ZArBPj9sU4Ei9fQs9wHA2DWkG4nssuxSc+N4bC+c8zY7Q22Fku4l3oGGn1/as2wHxPZZdCk58742Fc59mxSE0Y5+eszQT2AehmaAGCM0ENcBCmsmymX1YlWb7V2Pu3QWmu4H2/MJ92xu//mTh/EVFk1bGfLgdO5Q10QbcSfiJ66EZ82ts5unVMgUAXXLh3o0wh8J42vM7vTiedTsL5y+VMgYTCnpSFrKmCkTl9dLZpSA0sy/eSjSjOsbo3l0UN4ZRqY3qJK3x3yMOaeevVjSpyLFeoX08mKMZeEc3qsODj9c0TWpuh4Y1PMPxDk3l1WS8lWhGdYzRvbsoboz/TM+P8B11OryJA1Tk/NWKJtAM/MK7oaz5iRY4/dZDlDbxA2Q0Y59eDaMZ1TFG9+6iuDHW9kTZiEYzYkzo/A0VzeRohg4oGM36vfkeHRzLLgWZAtiHVUczv3WA7t1FcePbMB8Iaaa4ByRUbNLO37CUceLaTO0EZuCdIBjmoJnAPqxEM13HGNy716LixligGNTJ72jFUo1f7Zl2/q5f0KWMh+QSppmmd6mvzcCt8cTrobQZy05gPcyvmy0KFK8OoZkjME8z//jb+wtBpHP26TkrnTvxvTcWTmi2DKEZ+/ScpZnp9QzmvyPz9BqnGbV2nW6qKaXv4SxSbSJpk14FGb1a9wezN0e4QyeoiWaC6lHlaEbtDFHfvD/SlRjDRq7xescxEO2muyC9B0IzZ1AxzaA56y/7vQXNtLSZrHcMY9zQe/UKaaTbB3SvxjGaplENUh7t9mnq0ezy7I1BRDMtbSbqHd8bYI1av4caqd8a40uAjGaOoFKaYXPW+eVgevFWRDNd1Dhe7xgsmvsDRTPUSOd7NdOM+TU28/QanwLou8dAEvDxriC4H0NLm4l6x2DR9PVo5rcenkQzJ773xsI5RzNqzqqGNEWZm3e6unwxSpuIsN4xVD9uR71eexPvUj+8IVdoxj69xmlWFP7Srd5CM/PhTjvNppvL1ZBFOncEfGiWBaGZIxCaCWqAhTSTdTP70JBPk1q6ThZNeIr5NEunmwXm19jM02Pt06SWrp9HO8FBBXyaZdPNBPPfkXl6rH2aZGrqhg1ci/o0jWpuh4Y1PMPxDk3l1WS8hnyaaNH83XiCNpXiPs1y6R4B5sMF8/RY+zRxNAuCaKeCPs1y6QoaQ0M+Tbo20ydJ8Wk6j+Z8moqaVIpWfJruQ3yaghogPk3u8ZinZ5t0ngWhGfv0hGY5wTwe8/ScpZmsm9kXrxqaZVg04Y5/76z4NE8nKhrNli2a872D7YeXxad5OlEdzdIWTRTJxad5Oh+rHc3iFk2imfg0TyWqotmyRVPTTHyazYZzaQqQZdHUNBOfZrPhXKJZhkUTrr46M/FpNh3OJZqVgvg06wh32mkmPk2HwYdmWRCaOQKhmaAGWEgzWTezD0Iz7tfYzNOragow63qtse+Fxt5Zt/XZNe3pjVt50e8LAA8wHgMvElL5bOERXkQm2b0Xzy4FoZl98UqMZriCfz809vo9sATDamviZgvtKQHAUm22VL7wCMciBzF/sdCMfXrV0wx1b2QEbsKmhdPNs1+o8aiDDrnJa+DrjdMsKZWHQroPS7VgCI5o1g7EDqwfD03l1WS8FWimG7BOoPAFbJpu+a3xvcE3I1hnBb/vT9Tp0O/EaZaSyiOPcDDpoSGYaIb+YoRMARxBWZotGrDCeVOPZvO9MVxpAW9oNOvAyTNGs5RUHgnpXQ/tweFoBtbOWHYpCM3sQwmazd8fICFI957oFr9wbaZodn+kBrWevjaDIWsxmi1L5aGQfnM06aEhmMogo784lp3AepRZ0Jhuko8Xde/fXFhUj5p4va+7qIC3QSiHwQubs7bwRsUlqfwdLaRvfOR5r7ylDcFQBhn8xYNFdgLrUem62aRz3LsZUnkaIp2zT6956XyxIpaFLKk8DaEZ+/Sap9nqEJqxT09olhPM4zFPz1mayXqGfahe04RCxnfMapoFshWwQA2aZljIGGBG0yySrYADqtc0w0LGeKwZTbN5e6s8FnusXtOkQsZGNc0i2Z4M5tfYzNOr9g6NApqmLmQMexrSNItkezKY/47M06uMZkU1zaiQsSFN04nvvbFw1tCsoKYJhYxnJjVNJ773xsLZQ7PcqEbTFNgHCzVNgX2wUAUQ2AehmaAGWEgzWdCwL14TNAMZ9L9F5Y9hJS0UCaI9tmsUm5j/jszT40szlEHD8scoYPqpvq9+nZom89+ReXp8aYYyaFj+mJq+7o1B6Byq/7UO1BP1uj5N89Cwhmc43qGpvJqM18i1GcigYfljFDAVrUDoxN6a8ARpFsgdGs6goSmA3wvLH6OAqWgFQmewP7iFT4RmjqGRkybIoGH5YxQwUQxV70x/dAUVz2NpJrAPTdDsMcmguvwxCJj/VQuhcOMHPJno22eFZo7AwnUzJ6ZejYU7PTPN/BCasU9PaJYTzOMxT09olhPM4zFPz1mayYKGfTBDs/2rcHts6yAlTeJttnCj/7zfeog3n/kwsaRbbcWneYpghGbg1NwJ5nufxqRJtWF6fhTM3hiA62R6BcucoUMAdPHHeA+2+DRPCwzQjJqt7swvQwfgbmeCA1hn4nXQOOJ3wKLy2zF1ctX+lMeDOfoyxad5Sh4N0AybreLqKrbChM6r6pz3YCsYwqkPzE+d2cdUUBvcm7tqVyiEAL5M8WnWHs7aKQA2W9WjGdEMiKPOj3o0C2Zv/t0gSI1m6EcRn2b94aylGTZbPdgJUIqc7gbDjY/IqAlVNeD6LBjinT/xa7PpFvoyxadZezhraaYtlx24wacXtl9tz7odmmkG2kg3pDq0NNP0LvXRlyk+zbrDMaHZo7UzT146YziVshDp3BGkafb0B09/Hjz9/o2m8klCaOYI0jR79ueKZo9e+KqpfJIQmjmCjJPm2trzTAYzoZkryJ4C/AMTnsmCBvv0SkwBnn53jVB0OEMdsp14nbLEoe4ZSphqBvo6eJlanw2GeKBP89SotFAyuxSEZvbFS45mv9LXZIVHs/kHo3k/rPAz21ny95LuqSXM2RsDcGKCXfPa3sH2w8tUqDasUftYaFZhOA40Kw1c4u9AKbPJq+dve1qdnPehmBmonKR7hhImLb6SPg57kjiga9RqvVN8mvrx0FReTcZbohmcOF8MiiIczSaX+q3xgy09min6+B1SOVH31BLmsAcE3BiBXRP3RKmTatRGeidC7tBwBEsLGu+eUbPNwsuzsLTfhkuyHtWbJZqpM+F0C2lGuqeWMP02DX/Iw2g0C3SNWq13xrJLQWhmH5aWZ/8ALs/KXJsFYH+bxGg23fXh7gxSOVH31BLmdLMHB0wiuVw3EQhr1KLeGctOYD2WTpp//57656+KzzTp3liv9SF0AngNa83CFRmeB0nqjErNwkxTjX1g1xxhjVr8x6cDtN5JE1WhmSPIXtBgrWk6MfVqLByHmaZe0HjyR4ZTKQuhGfv0Si5oXC+zPFsVhGbs0ytHs6c/ePbnwdOfG06lLIRm7NMrSbOfB4/OPftTzqOZLGjYh6WT5t3nb1zPuT67f60fFzIJYROwbuuzq12v9bDvvbwZ2TGTzRDFp3lqsMIdGrqPZgq6bGzUZlP9f2HHTLbTFJ/mqUFyQeP7N2hNI8cUgFTK7bH/tve214POmXdIvdzDnppRm02gmdYydTtNXWHW89ri0zwtj0uj2a9yqgCkUm4fdNuTtu6cibISlpH9ZkRtNrHkwTiyY1I7TRSUJnGRU3ya9YVjMgXIawMglXJ7DPLSdBclppBm+mqL2mzCaKa1zLADJ1SYRaOT+DTrD8eDZqQz5RvNfKjNEtHMJ/XyS+qpGbXZRJqRlqnbaWKF2Qlc5ItPs/5wPGiW+9oMToiX+t531DWV523c9kL1UvfUBMHyTjjTJC1z/QK10xxDhVmQNc9KP836w/GgWe5rsySO75yZAXX1BrW0T4BI544gc0GjsKZ5fOfMLPiJe/6PgtDMEVioaQrsg4WapsA+WKhpOnFN3Fg4JlOAAppm9ZB1M/bpMaikHbmCQTKn0sZX45u0SjCEVX90BMPS7ezNEe7aCYRmFYRzkGaRKxglc7L6JjdBYeQHvWDY064TuoVjujvdjWWXgtDMvnhJ6fwHhlMIOYWSOZnjkpuglCi6NNFDp+V4kNXVYCbSuTuPacuJ2aWM8OYzksy11Te5qQ3K0nSXuIbO4dZ40tHLvXIjkCNI0uznKDaZ8zVpTpFknhjN9CYYzZB+OJqhHI91koVmbiHr2uyusTGNtHAtmZPVN7lph3bbIUcwyvEPT6KZwD6kR7Pg2bvmRACcSa5f66Nk/spbYPV9J77p5U2YT/poJR7q+9N6E1Dk9W3asm7GPr2y9c3OGU5jFQjN2KdXhmZcShuHEJqxT4/DutmqEJqxT89Zmgnsg4U0k/UM+1CKZvu6MnECcNP/sgd4/UJ8PzN24GLJChigDM3CysTJrbpocdoDHIpLuERmxg5cKFkBBxSnGQqPyAiskjf9cXdjhCXw9sZZHmD1FHfBQuFkHVcAABqzSURBVLNm7MCGNbdD3vEOTeXVZLziNEPhMSwZ67+uTnlwa8Wkp2iW5QGebT/EXR5sBabswAWSzQPmUznm6VU100ThERmBFYynu2AL7npIswwPMIxmsAt0PDdkBy6QbB4w/x2Zp1cVzVB4HONopisY3xuAnxdOmhke4DjNxA7cfDhbaIbCI0qQeG023LjTbUNt4wdHeYDbuMus+3rfjB1YYB+aWjcTO/CpQlM0EzvwqYKFKoDAPlhIMyeuiRsLZ8sUoE7Iggb79Oqk2f5VXJM9SJWiVdPJdVpT67fGy61ZmWiazH9H5unVSDNQMsFx+WmsJTDc339+FMzewBWz6ZWs1qw8NE3mvyPz9GqjGbkrwaM036MmrWpA6ky8Di6y+p35+4Pgt+Os1qw8NE15rNmnWQ5U7BiESPS+gUNJnfMebAVDOPVNQCqYfZzZmpWHpimoHgZoRsWOaTQjmgFx1ElSj2bB7M2/G2S2ZuWhaQqqh5nRzG8dwO1k0BMAm7T2kGZwEyNcnwXDVnZr1nKapsA+GKCZbsmK88he2KS1Pet2aKYZ6Mq0y61ZQ91TShzXGM7aKUCFEJqxT09olhPM4zFPT2iWE8zjMU/PWZoJ7IOFNJMFDftghGYoQ7YTr1vj1D77VyMFU01AX987oH3I8Lmsd8azS0FoZh/MjGbzD0bzvpa7QSxabucKsmfo3HxjELoJQJ7afng5S++MZZeC0Mw+GKNZ4MOd/4PJq+dve1qcBK8AiZwke4YKJq29htVByYm3pHeKT1M/HprKq8l4ZkezyaV+a/xgS1MIfJzUy9WPuzKHPSDgxp0FzbL0ToTcocE+vTpnmrCy34ZLsh72b9U0Qx8n0oxkT61g+u1Icwpio1mQ1Dtj2aUgNLMvnrmTZhCANLmg2XQ39HEONz5C2VMrmNPNXiRt7uqKtMt6Zyy7Mn9XATCPxzy9GmmmhjG4Axbcmh9ujGbd17DA7AB9nKHICbInKZgw0wTNkyaVIHVm6J00U5V1M0dg4bqZwD4IzQQ1QGgmqAEW0syJa+LGwlk8BagMsqDBPr2KaJauO7vQL/evaUVy4m38+pOFBzPqnNlOhUpXosW+c1BoL5VdCkIz++IVpdly3dlQv9RlZx8PphfHs25n4cHEgrMJ1VMjXYl2R6+/pbNLQWhmX7xiNMuqOxvpl+t6Df8eWX21gqkLzpLqSSpn61Ov46thLl2Jdkcv0GJY8Wm69FiMZll1Z7V+qc2aioU3cUSKPJhUcJZGs1DlvDmafbFciRaP9lsPdTnbQO7QcAbFaJZZdzbUL0NFkigSKpi64CypnnjU/IM7t3bvj5Yr0arRrN8jE949oZlTKDyaLdWd1folqpakSF4co9GcFExdcJauuvCowL/4Zb+TUYl2JwiGOWgmsA/FaJZRd/YsaZPwDvbBBP84SZZh7VndORMut/AoNdAF99UpdLkSLRR6n3g9rFUbyy4FJ66JGwtnwxSgKhxViVZoxj49m2h2VCVaoRn79Gyi2VEQmrFPz1maCeyD0ExQAyykmayb2YdqaBbp6aiOQzfXwTHvx7E/mL05wnu1O4HQzBlUNJqFejqq49jN9Zj3Y6Adp7vT3Vh2KYh0bl+8immG6jjWxfbf9t72eslixvp9LNw+9F69ovX3A7olSOzAYgc+AaEJE9Vx6OY667YnbRij4sWM9fv3BhPQ0/0e6u9+a4wvATKasU+Pw2g2CTtJ+D2wcE53k8WM9ftDz2vvQxFk1N+xTrLQrKpwztFMjV2kjmM3V6JZspixfv/+iET5HurvD0+imcA+VDbT9OAqjNTx31yAklKtD71UMePw/YMuuYOpPvKEJPjeIjuB9WC0bub3ljYJzRwBH5pNNzdG6W1CM0fAh2ZZEOmcfXrOSudOfO+NhROaLUMWNNin1zTNsnXLxNYZ3Zc9BKMwVjluRNNk/jsyT69pmh2hWya2YrPXB71g2NOV9JrQNAXVowaaJXXL5FZoj4iVZ7EuaDOapjxyswMXQrZumdiKHVr9jqIZca0RTVNQPaqnWUq3TGzF0Qzd5jiaNaNpCqpHxTRb1i0TW8EBHOAlGl6b5dM0nbgmbiyca1OApK4Z6pbvxLe+vAnzSR+dwuAxzqdpOvG9NxbONZplIkO3PA5CM/bpcaRZlm55HIRm7NPjSLOiEOncEQjNBDXAQprJgoZ9qJRmCQEThcr1qxma5gSmms1pmoLqUe1olhQwsQDysqY5hn6tDWqazK+xmafHYQqQFDCxZOiypon9WhvUNA95xzs0lVeT8WqhWSRgrg+WNrUD7NfaoKbJfLhgnh6j0UwLmPHRLKZpBtCvtUFNk/nvyDw9LjRbCJhYADlL05x/MCqgaQrsQ9UzzYWA+cpbUAA5U9OEgqD5NU2BfbBw3UxgH4RmghpgIc2cuCZuLJyLU4BVITRjn56zNJMFDfvi5acZdGVtpzeGi63d1megVj7sq9kj9WuFaeWJjVqj1q76Nbba6YbzTKFZBeGY00x3ZU3BJx0cq8vC2+r/Yb/WPI1ao9au+jV+wGyHyogGIp07g5w0C7uyUgXZyWvdjTvdzmQdluynm2e/QFqENNP9WvM0atW7JivSAs3agbRtdekxJ82oK+v2AVaQ/Yk6zWH31X2g2b3BN9AbsxPe1hP2a83TqDVs7ZqoSItCJ0FGM0eQk2ZhV1Yq7ak4Mt0KaaavrcgaB6OZ7teap1Gr3jVZkXa2Ax05Y9mlIDSzD/lHM+zKGtHMh56tw40v98b3R4pywJKIZtSvNU+jVr1rsiKtOmn6nXh2KThxTdxYONZTAN2V9TtUQfY2nhxJgOx9rYaixxc8dbGmZ5rUr1UhR6NW3DVZkVbNWNUVHfU9FJqxT6/CdbNJ5+R9TsBRjVqTEJqxT686mi1WusrjqEatSQjN2KfnrAogsA9CM0ENEJoJasBqNJtnyJwI7AgWVyf1JsDE2/j1Ffj3TjlNU2AfVhzNQplT39SfeGsnpk7G3p9eHM+6nQDMmeU0TSeuiRsLZ+UUQBFj+uPuxghbGa4PJq+e/whVTxAM1CZUJ+Fef3ixPcZFtHs4wURzZjlN89Cw5sY83qGpvJqMtzLNHqpz3v7gwRZUl3293yLVc9dvjdWmUJ2c9NQLtQkFzps4eKE5s5ym6cR/3o2Fs3Y021UMm25hddlJJyA5Cu7c2NLqJCiW6oXahALnfrhcdm9QTtN04ntvLJztNIPqsks0A3WSFEugGQqcwCGQEeYfjMppmgL7sPpMc6hmjG11UQ/numHYN/M2NMd8jdTJP/bglrPOxOuRwDmBOzfggm1WTtMU2AdZNxPUAKGZoAZYSDMnrokbC2flFKBiCM3Ypyc0ywnm8ZinJzTLCebxmKdXDc2oUHHmDYm6SPFCDN+/2tWlihcljgcLCb2sHVhgHwqPZriESubxmB4eNveiV+Q2AYfwDj2PShynbOelpHOBfShFM7AxdUkP7+Iqa0c9xbKeYBQeIbXIQKxpFpY4DsgABQ5iOKqcdC6P9j2Wo9l0C9qwkl4O/ArwaaCNwgEZzsHvi1WNFzZgONJvoYMYjionnQvsQ9nRDIRyrZcDTdRTGs3AKIw0IwOxGs36vUWJYzhSO4jhKJHO6w9nxxQgvMK6T9zCbqw9fIrXZmgUDkczv3Wgrt6GvXiJ4x+CUR0cxDSaiR247nB20CyaL2Ib1g494FMsUjwBozAVLgh7tIJHOCpxrI7UDmL1vtiBGwhnB81OgAGjcBxCM/bpNUEzE0bhOGQK4AgsVAEE9kFoJqgBQjNBDShNs4IVjzdGKHlOvI0vI1W0pKbpxDVxY+HsmgIUrnhMkieagLF9K+wnduD6w9lEsxIVj1EkIBMw1J6do4YpdmCm9l3T8crRrETFY+zLSiZg3b71k5KaphP/eTcWzqbRrETFYxzNgoCOg3MmaJilNE2BfSg9mhWteKxvRwMTMLZvRQ1T7MCnBOVoVrzi8cYIJE8wAVOfnUt91DDFDnw6YGLdzLCQGYPQzBEYoJlpITMGmQKwT0+cTTnBPB7z9IRmOcE8HvP0hGY5wTwe8/QapRndZIs+zfZ0szUOsLsOKZYkJIGVTq/gDmE5Vrs89wezN7GrGL6UKYAjqGo0I+GSmh3OoS3Y/ZFefNVKKFk3d4L53oNeMOzpZTXycU53p7ux7ATWo0KaPR5o78n8l/3eEs3Iurkzv4zOu10UCbRUekBmdfFpuvNYGc1QuNSj2eXZG4MUzbR1E+RLv6NoRlwDwcpvjdGIB5DRzBFUPJph61Y1Yk0v3krSTFs3YTRDRuJohlLpfO8EmjlxTdxYOKemAGTK3KJiGtDR0N8YacUS/w2tm1SFI6zAgVLpQ6FZleGcohkJl+90oXWreq5Ic/NON5p8rl8j6+bLm/COj/1dh/reod4E1FJ9/6zQjH16sm6WE8zjMU/PWZoJ7IPQTFADhGaCGiA0E9QA0zRLaJZo2Bwc/X45TdOJa+LGwjkyBUholmjYPOb9UpqmE997Y+EcoxlqlmjYJDNn0ou5iqZ5aFhzYx7v0FReTcarimakWQZYBRkbuSa9mKtomk78591YOLdGs0m4kO/3yGWX9GKuomkK7EMlNIs0SzRsEs2SXsxVNE2BfahgprnQLFu/ueCFjVwTXsyVNE2BfZB1M0ENsJBmTlwTNxbOkSmAUQjN2KcnNMsJ5vGYpyc0ywnm8ZinVwfN8nTXhHqzcKu27q45X5SslX6apwYrjmZ5umt+jv9G3TVDtUm9kn6apwUGaHZCd02sNxvrrgn9NH+stk+kn+bpeTRBs+O7a2K92Vh3zdn2Q7V9f6B2kn6apwVmRrNju2tCvdlYd00YzXbVq+mW9NNsIJyNU4Bc3TXhTBnrrpmgmfTTrDucjTTL013T1zssumu2hxt3umqn16SfZv3hbKTZCVi5KK3QjH16zdNs9aK0MgVwBBaqAAL7IDQT1AChmaAGcKg9i6Kn+DTrCefWFKBA7dkxiJ7i06wpnHM0y1t7FkVP8Wke9XhoKq8m4zGoPYuip/g0awrn5GiWp/ZsAKKn+DSdBovas2o38Wk6DRa1Z0HAFJ+my5B1M0ENsJBmTlwTNxbOrSmAGQjN2KcnNMsJ5vGYpyc0ywnm8Zin5yzNBPahejtweHOj2IFPMWqwA9MardiBTzOqtwMjzcQOfLofq7cD69s0zNmBnbgmbiyclVOAPHZgoJnYgbmEs5ZmJ9mB9WgmdmAW4WykWR47MJQ6HosdmEs4G2l2AqqxAwvsg9iBBTVAVABBDRCaCWqAhTRz4pq4sXBuTAHKtG0VO3CN4dygWYm2rWIHrjOcYzTL37ZV7MD87Lum4zFo21rUDiywDwzatgZiB3YeLNq2ih3YdbBo2yp2YNch62bc4zFPj4F0vjKEZuzTE5rlBPN4zNMTmuUE83jM03OWZgL7UMlMM1nVGCwC3lntydSbEprmECwm+TVNgX0wPpotVzWe7x1sP7wcejKXNc0HvWDYK6BpCuxDFTRLVzXGJdvQk7msaZLOlF/TlEf7HqsazeJVjYlm2pO5rGn6HUUzKXFcUzhHpgAZVY01zbQnc0nTRJdwAU3Tie+9sXCu0Gy5qrGmGXkyszTNsOZGPk3Tie+9sXBu0Gy2XNV4AHrlTHsyEWlNEwxQ+TVNJ773xsK5QTOzkJmmIxCaCWqA0ExQA4RmghpgIc2cuCZuLJydU4D9ASiW7eh15MMM9q/pckETb+PXnyzKzJKehBLmBO6tDavXzmjtH50qyexScOJ7byyclTSb/vAaKpaLLaGYBLVmsXXr9OIYalJFZWZRzCQJ8/Mg7O+KR+7oRbd0dik48b03Fs5CmqEGiURRz1pUUpZoptVJaHZ4jzikJU0tZuKiPxo0cac5OjgTpWmPrj17aFhzYx7v0FReTcZbiWaoQSLNFG3817GkLNEsVmv2Jg5QUZlZEjNRwkSDZliQ9hPd6dVvUWla/ACZAjiClWiGGiTSTD2bbmGtT6IZ1ZrF0YwYE0qaWszE0SwIop3QwYmlaed7VDM0lp3Aeqw6mvlqPILRrB2AGVPTDO+18FsH2LoV6hWrE6SWNLWYqW8v020C1E7g4MTStEIzF7ESzVCDRDUSr82gpOxZkjHhHZQmwWruYUValDTXL5CBcwwHgUGT+rte6msHJ5QH6mFp2lh2Aush62bc4zFPz1np3InvvbFwQrNlCM3Ypyc0ywnm8Zin5yzNBPahKM3ydNAMsJhs1EEzIF9c1BElEi2ln+apQeHRLE8Hzc/x36iDZmjKXBwZHiX9NE8JStHshA6aqFXGOmiGpkx95PZ4unn2CzhK+mmelsdyNDu+gyZqlTFVMzRl0pE+FJr9ZgRHST/N+sNZMgXI00ETtMpYB83QlElHzvfGcDkGR0k/zfrDWUSzkzpowpky1kEzNGXSkYpm90dqUMPRTPpp1h3ODprl6aDp6x0WHTRBx3zlrfBm2t7XavRS75+Vfpr1h7ODZidg5Q6aSchM0xGYpdnqHTSTEJo5AlEBBDVAaCaoARbSzIlr4sbCOTEFMAyhGfv0GqRZRp3j2TEljqVta43hHKJZRp3jSCaXtq3NhnOMZuk6x0eXOC7atlUe7XusdDSL1zk+usSxtG11HxXRbLnO8dEljgNp2+o8qjtppuocH1fiWNq2uo6qZprpOsdXjytxXKxtqxPXxI2Fc2kKYApCM/bpCc1ygnk85ukJzXKCeTzm6TlLM4F9EJoJagAHTVPatjoPBpqmtG11Hww0zaJtWw8Na27M4x2ayqvJeAw0TWnbWmc4l2aahTRNadtaZzinaFZM05S2rfWFc4hmRTXNYm1bBfZB1s0ENUBoJqgBQjNBDbCQZk5cEzcWzqEpgDEIzdinVzHNStQ6Xi5pXKrEsRPfe2PhLKNZmVrHSyWNS5U4duJ7byycjTQrWOt4qaSxlDg+JY8r0qxYreOlksalShwL7MPKo1mRWsdLJY1LlTgW2IeVr82K1DpeKmlcqsSxwD6sPNMsUOv4YLmksZQ4rjucbVOA42Gm1rHQjH16jdLMUK1joRn79EQFyAnm8Zin5yzNBPZBaCaoAaZplmHRhDU176y52rMC+2B8NFu2aM73DrYfXjZXe1ZgH6qgWdqiiSu55mrPHhrW3JjHOzSVV5PxqhrN4hZNopmx2rNOTL0aC+fITDPDoqlpZqr2rBPfe2PhXKHZskVT08xU7VknvvfGwrlBswyL5gBEzpm52rMC+yDrZoIaIDQT1AChmaAGWEgzJ66JGwvnxhTALIRm7NNj4NMM7zoTnyafcJbRLJdPkxbRxKfJKJyNNDvBp4k0E5+mPFbr09Q6uvg0Tz2q9WkCzcSnKajYp6lHM/FpnnZU6tNUz1pj8WmyCmfbFOB4iE+TaTinaCY+Ta7hnKKZIQjN2KfnBM0EjgB/Tq40ywT36Sfz/BpMT2hmEMzzE5oJ3IbQTFADhGaCGiA0E9QAi2i26G3BELQqzTZFuFOryfTsoVnsnkmOgHsF+KZ4fzR7c9RgevbQDO8yajqJo4G3pHBOcX/QYHr20AxLujSdxNEAmrFO8da4wfTsoRnroYL/aDbpNZmePTTje+GD4H1thh4LuTbLgyHXaRxiSDdzMk3RR2tic+lZRDOBvRCaCWqA0ExQA4RmghogNBPUAKGZoAa4T7O7a2tn/v691MZnf/Le0+/hRv2QQNa2aOOTb3911C4nY/mwkoEwk99/+t21c+rJX93Al9+6EU8z8aoA1Ffz30undBScp9n1F74K7j6X/t6u05Yl+iXezcTT777w1Qm7pBB9yBGfluvYDCi+3z3zSGXzCKgWPHv3+RuLN/WrAmmGUIesQP0j4DrNnvwefGP0Q8Sg/pOFhyP+s9XvHhERR7Njd0ki+pASg8Qxhzz70xsB0uzpD2jD0+/HaKZfFUgziqsOefoHXxU97Hi4TrO7L+gvDM6d6rv/H2vwn//aGv4nqx7PwX+5sffUaej5G/jjPHt37UU1JvwNbHj6/Z8995ffew/ffPLtn669iD/G9TUMDgeq4/El7Pifv/3Xay/849oL//Td52+ooQE/BA7M+LQAT2tP9AFfhZH0Hj977j+Fx+rd76qn4cc+elFR/iV10vwHzS79B3zvPZX52vN/g6+e/clfYs4vwdgWixTFWzvzNNzhevTVqL8l/d/lijgtNFNj0JOX/r1iDvys37qhBjnFgP8LXHnuvfh7d88oAtEYAOPBP+OGX7yrfna1I7755KVzz949p548UtvOEB3V730OXv5btaN6rX66F+Hq7/tAWPgQPDDj0wI4R/0iPOAXOlK4x5kgPPYXtLti1vUz+mPVdvoLn/yR/lNVDLUPpIkfjq8oX33yXUTS8fCDzukdMC59NYvgpnBaaAbf2/Uz9MOr58QloBO9jt4D1pzTpxr1a/7qK9wAjAvfhJMm0kYNBYoW+vR09wy+hOcUSFFRP9FD47msT6PJSOwAjBTuEUTH0i44xoQfq5nw7M8UVZ7T/1nQxz1acBwC3I3Oq4tI0RcBfyTtgHHpqxGaFQVdmz35i7svwnd3BM1i7z1Sg0tIsyff+p9/EeAG/ZPj8wXN9IklJMc5/TyDZlHU1KcF2TQL9wiiY+M00x+rmaDGqevnHmm66z8LRsXFh6vANJOIRdJfBH6Q3gHjCs1KAmaa6opW0S36dh+pq693n//biGbx967rM2J0LG7QPzk+VzSjs5H6bXGUgJMfndGe/iBNs6ffhc8JoqipTwtSNKNI0R50BXguYixe74cfi9TCU2aaZo/OxF+pPeliLh6J/qUP0jtgXPpqbsi1WWFcX4PrZjgnnFPPX7yrvlK1ae0cPcGH2Hv/uPbcv37+Z/p3gd/wEWz4Q9yJ3vzbd2FvOhoXDdQ1NF02r9FltAqkHv4anz33b2CmcA6D3Fj+tK8grxd+Gh7wTzqS3gNIro/9wzDx594L9MfCTJOmhPqkSSFVmP/zkrqyj159FV3QxyL9lOLhBwV6h+s0v4BNMtPkh+RCQn2RaAE2A/+sSPerGE/U5dvxkdI7lFgGOQFCs5XRFM2CJ7+fuRkXvn4e27C0aphGegdRAfhBXXC/YOYUYyrSI7pM0LiO89JjcOIOBiA0E9QAoZmgBgjNBDVAaCaoAUIzQQ34/11HA1yzVnQ8AAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtTR2xCYm01dmVVUnBabVpXWVhKelEyOXVVR1Z5YldsdGNGQjBkaTV6ZG1kY0lpd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUa3NJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpYzNablhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJJYVVGdWJtOTVSR2xtWmxaaGNuTkRiMjVRWlhKdGFXMXdVSFIyTG5OMloxd2lLVnh1SUNCY2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWd2lVSFJ6UVVKa1NHbEJibTV2ZVVScFptWldZWEp6UTI5dVVHVnliV2x0Y0ZCMGRpNXdaR1pjSWl3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRrc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGd2ljR1JtWENJcEtWeHVJQ0IxYm14cGJtc29YQ0pRZEhOQlFtUklhVUZ1Ym05NVJHbG1abFpoY25ORGIyNVFaWEp0YVcxd1VIUjJMbkJrWmx3aUtWeHVmVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wUHR2LnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9OSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lEaWZmVmFyc0NvblBlcm1pbXBQdHYuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wUHR2LnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9OSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lEaWZmVmFyc0NvblBlcm1pbXBQdHYucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyDiffVarsConPermimpPtv.svg\, width=8, height=9, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyDiffVarsConPermimpPtv.svg\)
ggsave(filename=\PtsABdHiAnnoyDiffVarsConPermimpPtv.pdf\, width=8, height=9, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyDiffVarsConPermimpPtv.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1NHbEJibTV2ZVVScFptWldZWEp6UTI5dVVHVnliV2x0Y0ZCMGRpNXpkbWRjWEN3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRrc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjM1puWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUklhVUZ1Ym05NVJHbG1abFpoY25ORGIyNVFaWEp0YVcxd1VIUjJMbk4yWjF4Y0tWeHVJQ0JjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ4Y1VIUnpRVUprU0dsQmJtNXZlVVJwWm1aV1lYSnpRMjl1VUdWeWJXbHRjRkIwZGk1d1pHWmNYQ3dnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVGtzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ4Y2NHUm1YRndwS1Z4dUlDQjFibXhwYm1zb1hGeFFkSE5CUW1SSWFVRnVibTk1UkdsbVpsWmhjbk5EYjI1UVpYSnRhVzF3VUhSMkxuQmtabHhjS1Z4dWZWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wUHR2LnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9OSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lEaWZmVmFyc0NvblBlcm1pbXBQdHYuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wUHR2LnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9OSwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lEaWZmVmFyc0NvblBlcm1pbXBQdHYucGRmXFwpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZWYXJzQ29uUGVybWltcFB0di5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTksIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wUHR2LnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZWYXJzQ29uUGVybWltcFB0di5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTksIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wUHR2LnBkZlxcKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyDiffVarsConPermimpPtv.svg\, width=8, height=9, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyDiffVarsConPermimpPtv.svg\)
ggsave(filename=\PtsABdHiAnnoyDiffVarsConPermimpPtv.pdf\, width=8, height=9, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyDiffVarsConPermimpPtv.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZCc2IzUWdiMjVzZVNCMllXeDFaWE1nZDJsMGFHbHVJREVsSUc5bUlIUm9aU0J0WVhocGJYVnRYRzV5WlhOMWJIUnpUM1YwUkdsbVpuTXVZMjl1YVcxd01YQmpJRHd0SUhKbGMzVnNkSE5QZFhSRWFXWm1jeTVqYjI1cGJYQWdmRDVjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQnliM2R1WVcxbGMxOTBiMTlqYjJ4MWJXNG9KMDFsZEhKcFl5Y3BJSHcrWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUdacGJIUmxjbDlwWmlocGN5NXVkVzFsY21sakxDQmhiR3hmZG1GeWN5Z3VJRDRnYldGNEtISmxjM1ZzZEhOUGRYUkVhV1ptY3k1amIyNXBiWEFwTHpFd01Da3BJSHcrWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJR052YkhWdGJsOTBiMTl5YjNkdVlXMWxjeWduVFdWMGNtbGpKeWxjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEVScFptWnpMbU52Ym1sdGNERndZeWtnS3lCblpXOXRYMk52YkNoaFpYTW9lRDFtWVdOMGIzSW9jbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRVJwWm1aekxtTnZibWx0Y0RGd1l5a3NJR3hsZG1Wc2N6MXliM2R1WVcxbGN5aHlaWE4xYkhSelQzVjBSR2xtWm5NdVkyOXVhVzF3TVhCaktTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzNFhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjSWxaaGNtbGhZbXhsWENJc0lIazlYQ0pEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxJQ2dsSUdocFoyaHNlU0JoYm01dmVXVmtLVndpS1NBcklIUm9aVzFsS0hSbGVIUWdQU0JsYkdWdFpXNTBYM1JsZUhRb1ptRnRhV3g1SUQwZ1hDSnpaWEpwWmx3aUtTd2djR0Z1Wld3dVozSnBaRDFsYkdWdFpXNTBYMnhwYm1Vb1kyOXNiM0lnUFNCeVoySW9Nak0xTENBeU16VXNJREl6TlN3Z01UQXdMQ0J0WVhoRGIyeHZjbFpoYkhWbElEMGdNalUxS1N3Z2JHbHVaWGRwWkhSb0lEMGdNQzR5TlN3Z2JHbHVaWFI1Y0dVZ1BTQXlLU2tnS3lCamIyOXlaRjltYkdsd0tDbGNibkJDWVhKY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbiMgUGxvdCBvbmx5IHZhbHVlcyB3aXRoaW4gMSUgb2YgdGhlIG1heGltdW1cbnJlc3VsdHNPdXREaWZmcy5jb25pbXAxcGMgPC0gcmVzdWx0c091dERpZmZzLmNvbmltcCB8PlxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJvd25hbWVzX3RvX2NvbHVtbignTWV0cmljJykgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyX2lmKGlzLm51bWVyaWMsIGFsbF92YXJzKC4gPiBtYXgocmVzdWx0c091dERpZmZzLmNvbmltcCkvMTAwKSkgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uX3RvX3Jvd25hbWVzKCdNZXRyaWMnKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXREaWZmcy5jb25pbXAxcGMpKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzhdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Plot only values within 1% of the maximum
resultsOutDiffs.conimp1pc <- resultsOutDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > max(resultsOutDiffs.conimp)/100)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutDiffs.conimp1pc) + geom_col(aes(x=factor(rownames(resultsOutDiffs.conimp1pc), levels=rownames(resultsOutDiffs.conimp1pc)), y=CondPermImp), fill=mycolours[8], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkJzYjNRZ2IyNXNlU0IyWVd4MVpYTWdkMmwwYUdsdUlERWxJRzltSUhSb1pTQnRZWGhwYlhWdFhHNXlaWE4xYkhSelQzVjBSR2xtWm5NdVkyOXVhVzF3TVhCaklEd3RJSEpsYzNWc2RITlBkWFJFYVdabWN5NWpiMjVwYlhBZ2ZENWNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNCeWIzZHVZVzFsYzE5MGIxOWpiMngxYlc0b0owMWxkSEpwWXljcElIdytYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJR1pwYkhSbGNsOXBaaWhwY3k1dWRXMWxjbWxqTENCaGJHeGZkbUZ5Y3lndUlENGdiV0Y0S0hKbGMzVnNkSE5QZFhSRWFXWm1jeTVqYjI1cGJYQXBMekV3TUNrcElIdytYRzRnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lHTnZiSFZ0Ymw5MGIxOXliM2R1WVcxbGN5Z25UV1YwY21sakp5bGNibHh1Y0VKaGNpQThMU0JuWjNCc2IzUW9jbVZ6ZFd4MGMwOTFkRVJwWm1aekxtTnZibWx0Y0RGd1l5a2dLeUJuWlc5dFgyTnZiQ2hoWlhNb2VEMW1ZV04wYjNJb2NtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRFUnBabVp6TG1OdmJtbHRjREZ3WXlrc0lHeGxkbVZzY3oxeWIzZHVZVzFsY3loeVpYTjFiSFJ6VDNWMFJHbG1abk11WTI5dWFXMXdNWEJqS1Nrc0lIazlRMjl1WkZCbGNtMUpiWEFwTENCbWFXeHNQVzE1WTI5c2IzVnljMXM0WFN3Z2QybGtkR2c5TUM0MUtTQXJJR3hoWW5Nb2VEMWNYRlpoY21saFlteGxYRndzSUhrOVhGeERiMjVrYVhScGIyNWhiQ0IyWVhKcFlXSnNaU0J3WlhKdGRYUmhkR2x2YmlCcGJYQnZjblJoYm1ObElDZ2xJR2hwWjJoc2VTQmhibTV2ZVdWa0tWeGNLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWEZ4elpYSnBabHhjS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLeUJqYjI5eVpGOW1iR2x3S0NsY2JuQkNZWEpjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSB2YWx1ZXMgd2l0aGluIDElIG9mIHRoZSBtYXhpbXVtXG5yZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjIDwtIHJlc3VsdHNPdXREaWZmcy5jb25pbXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlcl9pZihpcy5udW1lcmljLCBhbGxfdmFycyguID4gbWF4KHJlc3VsdHNPdXREaWZmcy5jb25pbXApLzEwMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbl90b19yb3duYW1lcygnTWV0cmljJylcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dERpZmZzLmNvbmltcDFwYykgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcDFwYyksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s4XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFBsb3Qgb25seSB2YWx1ZXMgd2l0aGluIDElIG9mIHRoZSBtYXhpbXVtXG5yZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjIDwtIHJlc3VsdHNPdXREaWZmcy5jb25pbXAgfD5cbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lc190b19jb2x1bW4oJ01ldHJpYycpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlcl9pZihpcy5udW1lcmljLCBhbGxfdmFycyguID4gbWF4KHJlc3VsdHNPdXREaWZmcy5jb25pbXApLzEwMCkpIHw+XG4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbl90b19yb3duYW1lcygnTWV0cmljJylcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dERpZmZzLmNvbmltcDFwYykgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dERpZmZzLmNvbmltcDFwYyksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0RGlmZnMuY29uaW1wMXBjKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s4XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcbmBgYFxuYGBgIn0= -->
```r
```r
# Plot only values within 1% of the maximum
resultsOutDiffs.conimp1pc <- resultsOutDiffs.conimp |>
rownames_to_column('Metric') |>
filter_if(is.numeric, all_vars(. > max(resultsOutDiffs.conimp)/100)) |>
column_to_rownames('Metric')
pBar <- ggplot(resultsOutDiffs.conimp1pc) + geom_col(aes(x=factor(rownames(resultsOutDiffs.conimp1pc), levels=rownames(resultsOutDiffs.conimp1pc)), y=CondPermImp), fill=mycolours[8], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqbzRMQ0p6YVhwbFgySmxhR0YyYVc5eUlqb3hMQ0pqYjI1a2FYUnBiMjV6SWpwYlhYMD0gLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjo4LCJzaXplX2JlaGF2aW9yIjoxLCJjb25kaXRpb25zIjpbXX0= -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBbVlBQUFFekNBTUFBQUNzV1Q5aEFBQUJ2RkJNVkVVQUFBQUFBRG9BQUdZQU9wQUFacll6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlpyWTZrTFk2a050TlRVMU5UVzVOVFk1TmJtNU5ibzVOYnF0TmpvNU5qc2hROWVsbUFBQm1BRHBtQUdabU9wQm1aZ0JtWnJabWtOdG10dHRtdHY5dVRVMXVUVzV1VFk1dWJrMXVibTV1YnF0dWpvNXVqc2h1cTZ0dXE4aHVxK1NPVFUyT1RXNk9UWTZPYmsyT2JvNk9icXVPamsyT2ptNk9qbzZPanNpT3E2dU9xOGlPcStTT3lNaU95T1NPeVArUU9nQ1FPanFRT21hUVpnQ1FacENRa0RxUWtHYVFrTGFRa051UXRwQ1F0ditRMjdhUTI5dVEyLytyYmsycmJtNnJibzZyamsycmpvNnJqcXVycTI2cnE2dXJxOGlycStTcnlNaXJ5UCtyNU1pcjVPU3I1UCsyWmdDMlpqcTJabWEya0RxMmtKQzJ0bWEyMjVDMi83YTIvOXUyLy8vSWprM0lqbTdJam83SXEyN0lxNDdJcTZ2SXlJN0l5TWpJeU9USXlQL0k1S3ZJNVAvSS84akkvK1RJLy8vYmtEcmJrR2Jia0pEYnRtYmIyNURiMjdiYi83YmIvLy9rcTI3a3E0N2txNnZreUk3a3lLdmt5TWprNUt2azVNamsvOGprLytUay8vLzM5L2YvdG1iL3RwRC95STcveUt2L3lNai8yNUQvNUt2LzVNai81T1QvLzdiLy84ai8vOXYvLytULy8vKzZ1aXNmQUFBQUNYQklXWE1BQUF1d0FBQUxzQUVhT0JCeUFBQWJLMGxFUVZSNG5PMWRpMzhieDNHR0hsWGRPdVdKTVl3cVRweVNsaVBUQm15WGFaVFFnaExYalp0WXNGdzVjbVdEVGR3bUJPVklybHNhVE5KR0VGVzdOTVJBNHRVRWNmOXdaMmIzOER5UzkxanN6WjdtKytsSEFIZTdjM080VC92OE1GTUtCSUs1bzVTM0E0SW5BVUl6Z1FVSXpRUVdJRFFUV0FCWG12MlpvQ0NneDhtV1puazdJREFEb1puQUFvUm1BZ3NRbWdrc3dFR2FQVFI4RWViMm1Mc1h6NTZETlB0ckFXY2M4eUNGWmdKVE9PWkJIa216eldhL1Z2NXQwMStiT2VPLzBCeDl3RUlmMXJ6eVZ3M3ZtOHZuNGNTZzRTRXF4MVdDV3Fyb1lqdjg3Slc3K05mejZrSXpWNUdDWmtDTFR0MS80YU5HZGViVTQrK1BIY05DemY0cWNHUzEyMzhYeVBWL2Y5c2VYRzhQR3ZWaktnR3ZkTkhoWjdBQWZ5OEh2WEpYYU9Zb0V0TU1tcVR6VFhyaS9nOXJpKzBPZm5ycDR0MlhhOWo4ZkFvbityVnFUeDNEUWlITmZ2RmFPL2ppbjVCbVFhY0tOc3E3dGZJblhyVUR0YkJTMERyZmJNRXhhT3ZDb21ENW8wYjV2ZXFJWnRnTTR1THh3NGMwd253NC9wcjM5eWc0RmpQUEMxK1BvMW1uQ3AxbTBQT3FnWCt4RGUrQzNwVUc5SXRBdUdyUS82d1BGT2xCQ1NCSWx3cFJid2ZjKzZCVkgvejdiZDJhZGVwZ0JvcmRidmMvMDVXQVRJK2FXTE1aRmdYTDlmN3FQNGV0V1czWTJVcHI1aDRTdDJiQXJQczRsb0l1Y1EzZXdlT3ZBenZnbjc4Q3ZNSUJGSkdsUngxaHB4NjJaaC80bC83M1A0Rm1EUnliZ1ExL1pYQjk2ODdhVGx0WGdtTjNvRTBqUnFxaWFCbHRoYTJaZjZrck5ITVZpV2tHalZhbi9BQUpRRFM3M2U1cG1zR0pMN3JZczhIeDF1SmRPSWFGaGpRYnZQdWpMclZtYUtOQ0ZTNTlqc003VlNud3YzY0xhd0NoZEZHMDdLOXMwdWpPWDROT3MxTTlobWFGV0VqS3pSeS9kVFBzQmV1UFh2UVcyNjNGclZxbEExM2llNHR0YUpKd1Jsbkg5Z2hIV1BYV1loc0xiWVV6VFd6ek9qalB4Q0VjanMyQWZSOEVPOWk4VWFVdTlLQ0J2K3g1ejlaVTBjWDNQZStaMTY4MG9Lcm5uWWNaSzR6b3pqZEgzcVc1cndSZ2JvKzVlL05hbnUzTnpqcFQ0SEU3R053OHNaVFFqTDE3YzZMWmFKa3JFNkM1Tzk4OHNaVFFqTDE3aGQxc0VyZ0hvWm5BQW9SbUFnc1FtZ2tzd0VHYTViMytPRWRFM2E1TUFlWU9vZG1UUWJONFFxQkJ3NnRRT1Z4MVBVOS9xN1RES1VLZ1pJaTYzU2VBWm5HRlFQM1ZMbW1CL0l2dG9QOXE4K3N1SEJBaFVISkUzVzdoYVJaZkNMUzEycVZ5dEJlSmYveGJnUWlCa21OR1FGT1VWek5DSU9RSGxtdGg2d1VjYVVGM0tVS2c1SWg4REVXQUdTR1E0a2VuUG16TmlHTWlCRW9LODgrWENjd0lnWUFmcEFYQ0lUNk96NExnVG5kdVFxQzh1VEJIek9FQjg0QVJJZERuTU5Pa2NucW0yWUtqVUZtRVFBek44WnNDUkVPRVFIYnRNWGRQaEVBeHdkd2VjL2NLdXd0UWlPODlOM05DczFuSTFubEJJRFFUV0lEUVRHQUJEdElzNzhXdDRxNXV6UTlDTStNMGt5bkFMSkxSTEgyQUlOeDVyd1pCejhPMVhMMlk0YW9RNklRdlNXZzJpMFEweXhJZ3lGL0IvYzFQQXlYM2VVU2tkRlFJZE1LM0pEU2JSUUthWlFzUTFLSDRCN1Z5VnlrMEJpVDhjVk1JZElMdzVhRlpJYzFEUTNaeXRaZUFadGtDQk4xdkJ2N2ExMTFpSS9hWkpQeHhVd2dVNThzU1RDQUJ6YklGQ0tMV0RFN2NiMUpyUm51ampncUJzbi9yVHh5U3RXWVpBZ1Nwc1JrSzBVanVzMExDSHplRlFJYSsraWNKQ1dpV0tVQVFWSUtPRk1kektpenRsUVlKZjlJSWdRVHVJZk82bVJsZDBCR1FyWFAyN3RuWk9qZWtDem9DUWpQMjdoVldvVkdJN3owM2MwS3pXUWpOMkx0WFdKb0ozSVBRVEdBQlFqT0JCVGhJTTFsTWRROUNNKzVqYk9idXNaa0NLQmxab0RScHRBZUFLLzJqUXhQWWJQWmZvN2dJcUU0VG1wazNWMWlhNlIxeHJVbFRhck9KUTJOUXRQUFh0SEJTYU1iZVBYNDBvN0JUU3A4eGVhaEdBUkZldWtXS3R2NHFibzFDWTJaSWJ6WlRmL3JWc0Q1TTlHYlo5R2Fwb1RtbHcwNXB0ZG5Zb2Z2TkhzYW1vb0JDbTgxT3VVc2ZFVElGS0FnczBreHAwaVphTTNXbzVYbVZ6U2JRakJSdGd4dENzOExCRnMxZ3NLVTBhVXB0Tm5Gb3A2M0ViSFZTdEgxMUVzMEU3c0hPVE5ORHNUKzFXOCs4am1xek44WVBvVXl0UW1JMit0UHpyalRDM3pZSnpRb0NSdXRtbmZyTUlkazZaKzhlbjVsbVBQakxzOG8xb1JsNzkxeWpXUlNFWnV6ZEU1ckZCSE43ek4wckxNMEU3a0ZvSnJBQUIya21xN0x1UVdnbXNBQ2pOTnY4a09KbTdPcDljWTJvTUZTZjArL3VPdmpEMzFFWUt0b3d4MDNPS2UrbVlKcG16TWZZek4yelB3WEFhRk9YZzhHTlQ4b2ptbUdrZ29nd1ZKUTRqT0lkaklXaHVoeW96Q2pUM2sxQmFPYWVQWE0wVXlxZXk0T2JRTFJkQ2tFRjdWTzFCLzhpd2xDcC9IUTYxRVlZaHVxeWpyQkJjYTJ5QnA3S1RiZ2pRcUM1Q29GSXhVTkJvMGhqZ1pLZWVoQThXQW1pd2xBUnpTZ1cxVmdZS25yWG9WaFdtMHBVSzYwWmUvZHN0MmFrNHRHdG1hSVpCaTZEampHSUNFTTExWnFwTUZUUW1qWHFVSmtDRG8xNU53WFROQlBNSDBaYnMwNTU5eks4VTB4cExiNWZKNXBGaGFHYUhKdnBNRlJRdHlVMEt5VE0wUXk3eFRkcUtvNXhQZFQxVlBxMTZoRmhxREJQc0o1cGhtR29zRnZ0WWVpcXJWcGx6RHVCODNCdzNVemdIaHlrV1NIR3hMbVpjMzBLTUE4SXpkaTdKelNMQ2ViMm1Mc25OSXNKNXZhWXUxZFltZ25jZzlCTVlBRU8wa3dXWjkxRE1wckZ5MEEzYU9DeUxKUUwvR1hjcG9TL1ZWTDkyTXRBRi92K0JWYVFpR1p4TTlEMVY3dWsvdkV2dG9QK3E4MnZ1eWk3c0pxQkx0NzlLREFmWXpOM0w4Y01kRnVyWFNwSE9YSHdqMzhyc0p1QkxrZmhqZ2lCc2dtQjRtZWdRN3BndVJiMmZVQ1psbGNKN0dhZ2kzTS9JWmczRjh6ZE05NmF4YzlBcCtoQ29WZFVhemE0YmprRFhaejdDY0g4T1RKM3p6ak40bWVnQTdxUStnZm5CVGcrQzRJN1hic1o2T0xjajhBZUV0QXNkZ1k2bUV0V3FKeWVhYlpvNWlnWjZKNWdaRjQzczUrQlR1QWVzdElzaHd4MEF2Zmc0QzVBSWNiRXVabGpQd1hJQVVJejl1NEp6V0tDdVQzbTdnbk5Zb0s1UGVidUZaWm1BdmZnSU0xa2NkWTlDTTBFRm1DQVppcmMxRXkwZFJTbHFjZ1pYeTU3WG5Tb3FUbnB6YkxjaldBZXlFNHpGVzZxVis1T0hoNlFLSTBDVVQyb0Q5NXRSb2FhbXBQZUxOa05NQjlqTTNmUHpoUkFoNXZDalhONFd4NUduUElxSkVxajBDMXFSeW9xMU5TYzlHYTU2c05FYjVaTmJ4YUpVYmdwNUZDbkdtcUJOcHNrU2xObktBSmpWS2lwT2VuTmt0MEM4K2FDdVh0MldqTWRiZ29WWXZEV1h5R0dvVnBEeGZWUnJSbkpHNk5DVGMxSmI1YnNGcGcvUitidTJhRlpHRzRLWHl0S2l0WmF2SXUwMGpRTFNEK0xVYzhpUWszTlNXK1crbTRFYzBKV21vWGhwZ1lOVENoSENteXY3c1BVc29LaXRHY3hFSlhPWEI0WmFrcjBaazhHNXJKdTlyZ2QwTWcvTTRSbUJjRmNhTmJSQzJPWklUUXJDQnpjQlNqRW1EZzNjMjVPQWVZTG9SbDc5NFJtTWNIY0huUDNoR1l4d2R3ZWMvZFMwbXl2dExCL2JzR3dLMm1SYnQzTXRwZUNFekZOczRQbkQ5NE9EcDdieU11ZlNRak5Db0pwbWgzK0ZHaTJkK2FlRWVOSzgwTTZvWXEvWE83aVNvZW54VDVLZ3pFZXI0cXcyZXkvMXRZTHVrS3p3aUNpMHl5VlRwdHF6SlRtWjNDOWpWbHlVQm0wMDliN2xqb1g0a1M4cWlDa25iK21JNmdKelFxQzZDbkE3dzN4VE8yUzA2WjVkZkNMUm4yR1poaXZTc2tiVzk1THQ1U3FhSFZYWmRaTUxRVEtWN2dqUXFDVGhFQUhGMG9LcHBvenBmblJyZG5OL3F2TktacXBlRlgzbXowVUVGRUVvYzFtcDl5bGp3Z3JyUm56cVJ4ejk5TE1ORC9XWXpMRHJSa010VWlrNFYrNk0wa3pGYStxQmFjM20wQXpVaFZSL2pxaDJiek1jYUNaYVNqTmo4cjVpNXZwbmNXMkZ2dlFYeDJ2YXFldEJFVjFVaFY5SlRTYnB6a21OTU9PODZ3aEQ1VG01NDBheHFDQzkwQ2QyMXUxNGVRVGxVTmh2S3BLbUxMT3EvZThLNDN3UnlleWRWNFF6Q3hvWEYyQTJXWXV5N09kbVI5SENjMktncG5sMlcvajhNelUyQ3dKL09YWkVGWkNzNEpncHRQODNUWDQ4MHZPdXdBQzl4QzlvTUY2VDdNUVkrTGN6SEdZQXVnRmpmM3ZHbllsTFlSbTdOMUxPZE5jTjdrOG14VkNNL2J1cGFQWndmT0hQdzBPM2pic1Nsb0l6ZGk3bDVKbWJ3ZDdTNGMvNGR5YW1WdVlGZGpDVEtlNWZYcGpQZmI2TE9hYWl6eEI0UXo2RTVHQzZCQ2k1eTMreHkzTVNtYytJbEJNdHdXMmtWR2hFU290Nk5mbFU2Y3VqOFgyR1R2dlg4SWNZcFNWem5oRW9KaGVDMnhqY2tIanVRMjFwaEY3Q29BWkRESHlUMCsxVGIyWExyNy9BKzhIWGgzVDZjQWhpdTFEcWVvOERKMkJNWU82OTdXUTBiOFZHSThJWkZUUUk2L21YbWRhczQ4VDdRTDBWekVGM1diendRcktlVjVwbEhkcmxWN0ZYK3VVdTNBb2pPM1RxOE1IT0VReGcyNnJ4Z3V6MGhtUENCVFQ2MGt3SDJNemR5L2xGQ0RaendDd05jT1FMUDRLeVhrd1ZWZ2Q0N1VNYm1BdU1CWGJCK1A5d0FjNFJER0ROblZyaGtuQ1RFY0VTdUw2RU15ZkkzUDNVcTZiMFQ1VGtyRlpTRE9VODh6UURBVStLdDRQMGt6RkRBSU9rYzduVHRkNFJLQ1lYaytDK1hOazdsN0sxaXpSMkF4bm1wU09EZ2IxMk5kaDlybnllNTYzZUJkVlBTK3IyRDUvNTZrb2psNmR4bWFvWmF4UVZqcVZrVE54UktCQ2ZPKzVtZU5CczRSanN6bER0czRMZ3NnRkRkNTdtZ0wzNE9DZXBzQTlPTGluS1hBUER1NXBGbUpNbkpzNUpsT0FSSHVhODRiUWpMMTdISDVBbHhWQ00vYnVGWlptcHJmTm1UOUg1dTZsb05uQjg0WmR5QW9yTkJQTUg1TTB1NUJ3S1NPOTNnek9HZGFiSmZGYllCbVROSHViTnBzUy9LNHB0ZDVzcHcyME02bzNpKyswd0RxaXhtYmJWdlJtR0RIUHBONXNwcHk4OG5tZGJzMkN3NnRKTmdIUzY4MlVRc09nM2l5dXl6TmdQc1ptN2w2YUtRREtNNWFTWENPRDNxeFhONXVCTG9uYkUyRCtISm03bDRabWlVTWJwOWViWWI5b1ZHK1cwUE1SbUQ5SDV1N1pXRGRMcnpmcnFJaFVvamV6YmM1Rm1zMGJzblZlRUFqTkJCWWdOQk5ZZ05CTVlBRU8wcXdRWStMY3pNa1VZQlpDTS9idUZaWm1wdmN5bVQ5SDV1NEp6V0tDK1hOazdsNE9OTnVrZVAvbFhTM2IwT2pYeXIrRkUrV3ZHdDQzbDBQcFR3ZXpCUFM4eGM4cFNWMHowTEtoNmtndk5QSnVDcUxNY0E4bWFlYS8wT3hmRGdZM1BpbVBhSVk3UjNVOEFkUWJDelhscndTYnplRFRJRXhTcDR1cWZDalQzazFCYU9ZZXpORk1wWSs3UExnSlJNTzlKZmhRODZvOStJZXNDMmtXU245d3F4eWF1YTVLNnpRZ0dSRFJMSlFXeFJZQ3paeVhWMzZ2NW1oRzZlTkl4RVBKdlRDWFhEMElIcXhnMzFoVlhXSjVLUDI1M3d6OHRhKzd3RUNWcEk1a1FQU3VVMWJTSXJJcHJWbEJZSTVtbEQ1T3QyYUtaaWdrZzk0eHdEdzVZV3VtcFQvVW1zR0orMDJWcEk1a1FOQ2FOZXFvN1VETng1aDNVNUFwZ0h2MmpMWm1uZkl1aXJFVlUxcUw3OWVKWmozcUlFT2FLZW1QR3B2cFRoSUtrUXdJNnJhRVpuTTI1enJOc0Z0OG82WW1rUFV3b1J3cWhCNjk2QzF1aFROTkxmMXB0NkFncXJkVmtyb3JEUzBES25laE1rbUx4cnhMYzE4SndOd2VjL2NLdTI1V2lPODlOM05DczFuSTFubEJJRFFUV0lEUVRHQUJRak9CQlRoSXMwS01pWE16SjFPQVdRak4yTHRYV0pxWjNtcGkvaHladXljMGl3bm16NUc1ZS9Pa0dXMkVWeVkrbDd0VFpUWS9ITWFWOHBlOVYyN3Nxakl0cVBuc1ZIV0MvMEl6bUlZVm1nbm1qNVN0MmVCNmU5QUlRNWRoaUtuVmFaYWh4a3lMeS9xdm92Q2lTMlVHTjNaWHY3bzVVVjNqOGZlclIzZzNCYUdaZTBoUHM2QlRwWkJTTDEyODYrbVFVUmk4UUVuTmxQZ3NGSmNwL21ncTRvdXFyb3FYUC9HcW5jVjI4Q25xMGxybm15MDRSbTFkTEwwWkV6MlZ2QjcvbXJFMTYxMXBxQkJUUkNFS0xLV2taaVErMCtLeVZoMEp1TGcxUVRPb0hoYS8zZTUvRnZRL1EzazJ5WUxJQWwxR1dyT0NJQzNOR3RqZ3FOeGVLUFpSTktQQVVrUVNKVDRMeFdXVm9lUW4wRFNqNmxSOGNIM3J6dHBPR3dPNFlDalF6ZVlkYU5PODJORWFVOS80Q016SDJNemRtK3RNVTRuMk1XRFVpR2IrbWdvc1JWSXpFcCtGNHJMbCtsQlp0amJzTktIeHcrSkI1OUxuRGVoVnYraFNMQ3IvZTdkUW9EYmhYWnI3U2dEbTlwaTdOK2VaSnFyMU81NVhmbSt4VFNHbVBDVWVJOVcxMHBzTjQwcmhUQk9WWitvM1RDMk1IMHJWVlJ5cS9nZkJEblNoMEpSUkkzYTdIVkR4TWUvUzNGY0NNTGZIM0QxMzE4MGV0NFBCVFhvbk5HUHZucnMwNitoZmJzcldlV0hBa1dZakNNMEtBcUdad0FLRVpnSUxjSkJtaFJnVDUyWk9wZ0N6T0hGNTFzUkZtRDlINXU0SnpXS0MrWE5rN3A0MW1xbHdVL1hwdy82YUZneVZ2MXoydk9oUVU1a3owR1h4T3dUejU4amNQVnMwVStHbWV0TjZzd0h1SUZGY2pCc1A2b04zbTVHaHBqSm5vTXZndDhBaXN0Sk1oNXZDL2NpUkRBZ2JwQXFGajZMUUxSU0lKVExVVk9ZTWRIa0xYT1IxcmtLZ0lVYmhwc1prUVBUSHY5Z096NkRFSnpMVVZPWU1kS245RmxoRlZwcnBjRk9ZNzJza0E2Sk5jSXJybzFxelZqMElJa05OWmM1QWw5cHZnVlVZYU0wbzNCUytEbVZBZDNFRXIya0c3N0JEdlJrWmFpcHpCcnJVZm8rQitSaWJ1WHQycGdCaHVLbEJBNFpYb1F5SWxEd1lQdXBaREVSRnNhV3FRV1NvS2NsQVo5dWNtelNMeEVqSmt4RkNNL2J1NVVpemtaSW5JNFJtN04wcjdDNkF3RDBJelFRV0lEUVRXSURRVEdBQkR0TE05T0lzOHpFMmMvY0tPd1VRbXJsbkx4WE5TTEdEUDhCVVlYd3d4ZHhIV3Q0em5rQ09wRCtFbnNvTVFGdElXSVdXYU05L21GVUlsTXpybzhEOE9USjNiNjQvQjhiTng1MjJEdU16VERFM0dUdEtieThoUXYwUGdxb29NVkJXSVZCQ3I0OEE4K2ZJM0Qwck5LTXdQc01VY3lwcGpyLzg3R2VZZkk0Mnkzc3ZveHhJNjMrb0xsVlIyK2RaaFVENUMxemtkWjVDb0pCbUtveVBTakdIaC95VlRybDd2L2tZVTMrUjlPZEhtS0cxcXZRL09sS0xpdnlqeEVBWmhVQUp2UmJraGd3MHV6ME00eE9tbUlQV2EzQ2ppNE10cEk1cXphb3FDUjNwZjdDa3FxSmJzNHhDb0hTM0xMQ1BkRFFidk5za1RxZ3dQc01VY3pBMkE1cnR0S0ZScSt1eEdlcG1xOEZZUUNCVlJZbUJzZ3FCc3R5NHdDWlNMbWo0eTByU1EyRjgvdWZGMFE5SmVsNzl5NXBLUGtmU241NUhrMUlsM01ZaEdGVjU1blVVQXcxREJva1F5SjQ1bDZZQThkR2JEU2liQUVJejl1NnhvTmxvVVN3VmhHYnMzV05CczR3UW1yRjNyN0EwRTdnSG9abkFBb1JtQWdzUW1na3N3RUdheWRhNWUvYUVadHlmSTNQMzVrcXpOQ25vdXFoTGE1ck1RSmZVNjJnd2Y0N00zWnR2YTVZbUJSM3EwajR5bVlFdXNkZVJZUDRjbWJzM2Q1b2xUa0dueElvR005RGxyNk9TMTNpdldWdXpKQ25vMnFoTE01bUJMckhYZ3B5UW1tWXBVdEFGeEVPREdlaFMzN1hBTXJKMG1rbFQwUFdHMnNWTUdlaUVadTRoL1V3emNRcTY0TkdMV0VreTBPVnF6cTBwd0R3aEdlam1hRTVvRnVLRURIU0YrTjV6TXljMG00WFFqTDE3aGFXWndEMEl6UVFXSURRVFdJQ0ROSk0xTS9jZ05PTSt4bWJ1SHFQQVU2Z0Y2aHNPUEpYTTQrUEEvRGt5ZDQ5VDRDbmNYREljZUNxaHg4ZUErWE5rN2g2andGTVRORE1VZU1xY1VPV2hZZUdMWVhzUFRmbVZwNzFzTklzWmVHcWNacVlDVHlYMFdKQXJNdEFzUWVDcE1acVpDanlWOG40RnVTQWR6WklHbmdwcFpqRHdWSmFiRnRoR3lnV05aSUduc05DdXNjQlRBdmN3NzNVekNUekZ6SnhMTTgzWWtNQlQzTXdWa21ZWklUUmo3NTdRTENhWTIyUHVYbUZwSm5BUFFqT0JCUWpOQkJiZ0lNMWtkZFk5MktQWk1lcWhFN3liZ21tYU1SOWpNM2VQM1JUZ0NQWFFveW1hOVM5UGV6Y0ZvWmw3OXZLZzJZUjZDRmltd3dDZGIvby9yRkU4RjVRU25TQUU0aXZjRVNHUU1TRlFLa1NwaDVRZUNNbDJ2OWw3cGJIWTNtdytXQWxRU2tSVnBEVmo3eDdQMW14R1BZUjlKb1lCYW5sZXhWOERocUZ1S055aWtpbEFRV0NSWmtlcGgxWW9EQkQycGlITlVFbzA1dDBVaEdidXdlYUNSclI2Q0Z1MjI2U25yYlFXdDJxVmZxMktVcUl4N3dUT3c4RjFNNEY3Y0pCbWhSZ1Q1MmF1OEZPQUZCQ2FzWGRQYUJZVHpPMHhkMDlvRmhQTTdURjNyeEEwRXhRRTlEaTUwaXdTM0tlZnpQM0wwVDJobVVFdzkwOW9KaWcyaEdZQ0N4Q2FDU3hBYUNhd0FJZG9OZ3dCeVJGS3djVFdSWXc2bDZkNzd0QnNMQVFrUjJEb0k3NHU3clQ3cjdWemRNOGRtbEhRdEx5ZE9CcVVqNWF6aTV2TkhOMXpoMllZQW5JdGJ5ZU9CdEtNdFl0M3VqbTY1dzdOV0RjVi9GdXpYajFQOTl5aEdkK0JENEgzMkV3bHhwV3hXUXkwdUU3akNDMFZtNUtwaXgyU3hPZm5ua00wRTdnTG9abkFBb1JtQWdzUW1na3NRR2dtc0FDaG1jQUNpayt6N1ZKcDRYZlhwZzRlL3ZqYXdiZm9vSDZaUU5TeDRjSDlwKzhkVmVSa3pGWkxhWWc4K2NiQmhkSVN2UG5sQm4xOGFtUGN6WWxQQ1FCZnpiK2tkdWtvRko1bTYyZnVCZHVucHIrM2RYVmtobjRUWnlOeGNPSE12Uk9LVEdGNGtTT3VGcXR1QklEdjJ3dDc0TTBlVWkwNHZIcDZZM1JTZjByZ1pnaW9rb0g2UjZEb05Odi9jL3pHMUlNWUEveVh4WmNqL3R2cXMwZFlwTmJzMkNLVEdGNGtSU054VEpYRG4yd0VSTE9ENTlXQmcrZkdhS1kvSlhCemFCZXFISHo3WHRKcXg2UG9OTnMrbzc4dzdEdmh1Ly9YRXY3M0w1WG92eXk4THVILzNMRnowQTJkM3FDSGMzaTFkQmJhaEYvamdZUG4zanIxODI5ZG81UDdUNzlaT2tzUFk3MUV4ckVpMUtlUFdQQWZuLzVWNmN3ZlNtZitlT0gwQmpRTmRCR3NHSEcxZ0xxMWZWM2hYbWhKbDNqcjFEK0VkWFh4YlhnYlhuYnZMRkQrSEhTYXY5ZnMwamZ3cld2Z2VlbjByK25UNFk5L1RqNmZ3N1p0ek5MUVhtbmhJQ3l3UHZ4cTRGNm0vMTlteEpOQ00yaUQ5cy85RFRBSEgrdFRHOURJQVFQK0c3bHk2dHI0dWUwRklKQnFBN0E5K0JNZGVPY3FQSFlvU0NmM3p5MGRYbDJDTjN0d2JFSFJFWjczRW43OEt5Z0luK0hSbmNYUjMzTklXTHdJVll5NFdvQjkxRHRoaFhlMHBiREVRaERXZlVjVkIyYXRMK2pMd25GMWgvdmYxYmNLTnFBTXVra1hwMC9LWDkzNWppeHBlM1NoSlYyQTdLcXZabVRjRko0VW11SDN0cjZnSGp5OFYxeENPcW5QdzNQSW1pWGQxY0RUL1BnZUhVREdoU2V4MHlUYVFGTUF0TkRkMC9ZQ2ZjVDN5aEJRVWIvUlRlTlMxTlhVWkdTc0Fsa0tTd1REdXFvSXRUSGhaVFVURHY4ZXFISksvN2RRbDlzYmNSd05iQS83MVpHbDRSZUJONmtLa0YzMTFRak5ra0tOemZaL3RuMFd2N3NqYURaMmJnOGFsNUJtKzAvOTI4OENPcUFmT2IwZjBVeDNMQ0U1bHZUN0NKb05yVTVkTFlpbVdWZ2lHTllkcDVtK3JHWUN0RlByUzN1YTd2cTJzRlVjWFJ3TXE1bkVtQ1g5UmRDRmRBR3lLelJMQ1p4cHdvZ1c2RGI4ZHZkZzlIWDE5RytHTkJzL3Q2NTd4R0ZkT3FBZk9iMEhtcW5lQ0o0dHRSTFkrYWtlN2VENWFab2RYTURyQkVPclUxY0xwbWltTEExTHFCSGcwcEN4Tk40UEwwdlVvaTV6bW1aN0MrT2ZvS1FhekkxYlVuL1ZoWFFCc3F1K21nMFpteVhHZWduSHpkZ25MTUg3czl2d2xjS2gwcEo2UXk5ajUvNVFPdlVYcDkvU3p3V2Y0UjRlK0E0VlVpZC9jeFZMcTlxMGFBQmphRFZzTHFsaE5CaUNsMS9SdTFOL2lUT0ZKVEt5TVh1MWUralhtVGZEQ24vVWxuUUpKTG11KzUzUThWUFhBbjFabkdtcUthSHVOSlZKTVBOZjUyQmtQL3gwYnppZ0g3UDBwckpIRndwMGdYVTF2OEJETXRQa2g4bUZCSHVXMUFKc0JQNEVwUHQ0akNjd2ZEdmUwblNCRk1zZ0owQm9saGw1MFN6WS8wYmtZVnI0ZW52c3dNeXE0VFNtQzhndUFEL0FnUHVNbVM3R2xLVTlOVXpRV0tkNTZURTRzWUFCQ00wRUZpQTBFMWlBMEV4Z0FVSXpnUVVJelFRVzhQK3RHQ2h2dGZRYWx3QUFBQUJKUlU1RXJrSmdnZz09XCIgLz5cblxuPCEtLSBybmItcGxvdC1lbmQgLS0+XG4ifQ== -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmYAAAEzCAMAAACsWT9hAAABvFBMVEUAAAAAADoAAGYAOpAAZrYzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZrY6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjshQ9elmAABmADpmAGZmOpBmZgBmZrZmkNtmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojm6Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma225C2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbb25Db27bb/7bb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///39/f/tmb/tpD/yI7/yKv/yMj/25D/5Kv/5Mj/5OT//7b//8j//9v//+T///+6uisfAAAACXBIWXMAAAuwAAALsAEaOBByAAAbK0lEQVR4nO1di38bx3GGHlXdOuWJMYwqTpySliPTBmyXaZTQghLXjZtYsFw5cmWDTdwmBOVIrlsaTNJGEFW7NMRA4tUEcf9wZ2b38DyS91jszZ7m++lHAHe7c3O4T/v8MFMKBIK5o5S3A4InAUIzgQUIzQQWIDQTWABXmv2ZoCCgx8mWZnk7IDADoZnAAoRmAgsQmgkswEGaPTR8Eeb2mLsXz56DNPtrAWcc8yCFZgJTOOZBHkmzzWa/Vv5t01+bOeO/0Bx9wEIf1rzyVw3vm8vn4cSg4SEqx1WCWqroYjv87JW7+Nfz6kIzV5GCZkCLTt1/4aNGdebU4++PHcNCzf4qcGS1238XyPV/f9seXG8PGvVjKgGvdNHhZ7AAfy8HvXJXaOYoEtMMmqTzTXri/g9ri+0Ofnrp4t2Xa9j8fAon+rVqTx3DQiHNfvFaO/jin5BmQacKNsq7tfInXrUDtbBS0DrfbMExaOvComD5o0b5veqIZtgM4uLxw4c0wnw4/pr39yg4FjPPC1+Po1mnCp1m0POqgX+xDe+C3pUG9ItAuGrQ/6wPFOlBCSBIlwpRbwfc+6BVH/z7bd2adepgBordbvc/05WATI+aWLMZFgXL9f7qP4etWW3Y2Upr5h4St2bArPs4loIucQ3eweOvAzvgn78CvMIBFJGlRx1hpx62Zh/4l/73P4FmDRybgQ1/ZXB9687aTltXgmN3oE0jRqqiaBltha2Zf6krNHMViWkGjVan/AAJQDS73e5pmsGJL7rYs8Hx1uJdOIaFhjQbvPujLrVmaKNCFS59jsM7VSnwv3cLawChdFG07K9s0ujOX4NOs1M9hmaFWEjKzRy/dTPsBeuPXvQW263FrVqlA13ie4ttaJJwRlnH9ghHWPXWYhsLbYUzTWzzOjjPxCEcjs2AfR8EO9i8UaUu9KCBv+x5z9ZU0cX3Pe+Z1680oKrnnYcZK4zozjdH3qW5rwRgbo+5e/Nanu3NzjpT4HE7GNw8sZTQjL17c6LZaJkrE6C5O988sZTQjL17hd1sErgHoZnAAoRmAgsQmgkswEGa5b3+OEdE3a5MAeYOodmTQbN4QqBBw6tQOVx1PU9/q7TDKUKgZIi63SeAZnGFQP3VLmmB/IvtoP9q8+suHBAhUHJE3W7haRZfCLS12qVytBeJf/xbgQiBkmNGQFOUVzNCIOQHlmth6wUcaUF3KUKg5Ih8DEWAGSGQ4kenPmzNiGMiBEoK88+XCcwIgYAfpAXCIT6Oz4LgTnduQqC8uTBHzOEB84ARIdDnMNOkcnqm2YKjUFmEQAzN8ZsCREOEQHbtMXdPhEAxwdwec/cKuwtQiO89N3NCs1nI1nlBIDQTWIDQTGABDtIs78Wt4q5uzQ9CM+M0kynALJLRLH2AINx5rwZBz8O1XL2Y4aoQ6IQvSWg2i0Q0yxIgyF/B/c1PAyX3eUSkdFQIdMK3JDSbRQKaZQsQ1KH4B7VyVyk0BiT8cVMIdILw5aFZIc1DQ3ZytZeAZtkCBN1vBv7a111iI/aZJPxxUwgU58sSTCABzbIFCKLWDE7cb1JrRnujjgqBsn/rTxyStWYZAgSpsRkK0Ujus0LCHzeFQIa++icJCWiWKUAQVIKOFMdzKiztlQYJf9IIgQTuIfO6mRld0BGQrXP27tnZOjekCzoCQjP27hVWoVGI7z03c0KzWQjN2LtXWJoJ3IPQTGABQjOBBThIM1lMdQ9CM+5jbObusZkCKBlZoDRptAeAK/2jQxPYbPZfo7gIqE4Tmpk3V1ia6R1xrUlTarOJQ2NQtPPXtHBSaMbePX40o7BTSp8xeahGARFeukWKtv4qbo1CY2ZIbzZTf/rVsD5M9GbZ9GapoTmlw05ptdnYofvNHsamooBCm81OuUsfETIFKAgs0kxp0iZaM3Wo5XmVzSbQjBRtgxtCs8LBFs1gsKU0aUptNnFop63EbHVStH11Es0E7sHOTNNDsT+1W8+8jmqzN8YPoUytQmI2+tPzrjTC3zYJzQoCRutmnfrMIdk6Z+8en5lmPPjLs8o1oRl791yjWRSEZuzdE5rFBHN7zN0rLM0E7kFoJrAAB2kmq7LuQWgmsACjNNv8kOJm7Op9cY2oMFSf0+/uOvjD31EYKtowx03OKe+mYJpmzMfYzN2zPwXAaFOXg8GNT8ojmmGkgogwVJQ4jOIdjIWhuhyozCjT3k1BaOaePXM0Uyqey4ObQLRdCkEF7VO1B/8iwlCp/HQ61EYYhuqyjrBBca2yBp7KTbgjQqC5CoFIxUNBo0hjgZKeehA8WAmiwlARzSgW1VgYKnrXoVhWm0pUK60Ze/dst2ak4tGtmaIZBi6DjjGICEM11ZqpMFTQmjXqUJkCDo15NwXTNBPMH0Zbs0559zK8U0xpLb5fJ5pFhaGaHJvpMFRQtyU0KyTM0Qy7xTdqKo5xPdT1VPq16hFhqDBPsJ5phmGosFvtYeiqrVplzDuB83Bw3UzgHhykWSHGxLmZc30KMA8Izdi7JzSLCeb2mLsnNIsJ5vaYu1dYmgncg9BMYAEO0kwWZ91DMprFy0A3aOCyLJQL/GXcpoS/VVL92MtAF/v+BVaQiGZxM9D1V7uk/vEvtoP+q82vuyi7sJqBLt79KDAfYzN3L8cMdFurXSpHOXHwj38rsJuBLkfhjgiBsgmB4megQ7pguRb2fUCZllcJ7Gagi3M/IZg3F8zdM96axc9Ap+hCoVdUaza4bjkDXZz7CcH8OTJ3zzjN4megA7qQ+gfnBTg+C4I7XbsZ6OLcj8AeEtAsdgY6mEtWqJyeabZo5igZ6J5gZF43s5+BTuAestIshwx0Avfg4C5AIcbEuZljPwXIAUIz9u4JzWKCuT3m7gnNYoK5PebuFZZmAvfgIM1kcdY9CM0EFmCAZirc1Ey0dRSlqcgZXy57XnSoqTnpzbLcjWAeyE4zFW6qV+5OHh6QKI0CUT2oD95tRoaampPeLNkNMB9jM3fPzhRAh5vCjXN4Wx5GnPIqJEqj0C1qRyoq1NSc9Ga56sNEb5ZNbxaJUbgp5FCnGmqBNpskSlNnKAJjVKipOenNkt0C8+aCuXt2WjMdbgoVYvDWXyGGoVpDxfVRrRnJG6NCTc1Jb5bsFpg/R+bu2aFZGG4KXytKitZavIu00jQLSD+LUc8iQk3NSW+W+m4Ec0JWmoXhpgYNTChHCmyv7sPUsoKitGcxEJXOXB4Zakr0Zk8G5rJu9rgd0Mg/M4RmBcFcaNbRC2OZITQrCBzcBSjEmDg3c25OAeYLoRl794RmMcHcHnP3hGYxwdwec/dS0myvtLB/bsGwK2mRbt3MtpeCEzFNs4PnD94ODp7byMufSQjNCoJpmh3+FGi2d+aeEeNK80M6oYq/XO7iSoenxT5KgzEer4qw2ey/1tYLukKzwiCi0yyVTptqzJTmZ3C9jVlyUBm009b7ljoX4kS8qiCknb+mI6gJzQqC6CnA7w3xTO2S06Z5dfCLRn2GZhivSskbW95Lt5SqaHVXZdZMLQTKV7gjQqCThEAHF0oKppozpfnRrdnN/qvNKZqpeFX3mz0UEFEEoc1mp9yljwgrrRnzqRxz99LMND/WYzLDrRkMtUik4V+6M0kzFa+qBac3m0AzUhVR/jqh2bzMcaCZaSjNj8r5i5vpncW2FvvQXx2vaqetBEV1UhV9JTSbpzkmNMOO86whD5Tm540axqCC90Cd21u14eQTlUNhvKpKmLLOq/e8K43wRyeydV4QzCxoXF2A2WYuy7OdmR9HCc2Kgpnl2W/j8MzU2CwJ/OXZEFZCs4JgptP83TX480vOuwAC9xC9oMF6T7MQY+LczHGYAugFjf3vGnYlLYRm7N1LOdNcN7k8mxVCM/bupaPZwfOHPw0O3jbsSloIzdi7l5Jmbwd7S4c/4dyamVuYFdjCTKe5fXpjPfb6LOaaizxB4Qz6E5GC6BCi5y3+xy3MSmc+IlBMtwW2kVGhESot6NflU6cuj8X2GTvvX8IcYpSVznhEoJheC2xjckHjuQ21phF7CoAZDDHyT0+1Tb2XLr7/A+8HXh3T6cAhiu1Dqeo8DJ2BMYO697WQ0b8VGI8IZFTQI6/mXmdas48T7QL0VzEF3WbzwQrKeV5plHdrlV7FX+uUu3AojO3Tq8MHOEQxg26rxguz0hmPCBTT60kwH2Mzdy/lFCDZzwCwNcOQLP4KyXkwVVgd47UMbmAuMBXbB+P9wAc4RDGDNnVrhknCTEcESuL6EMyfI3P3Uq6b0T5TkrFZSDOU88zQDAU+Kt4P0kzFDAIOkc7nTtd4RKCYXk+C+XNk7l7K1izR2AxnmpSODgb12Ndh9rnye563eBdVPS+r2D5/56kojl6dxmaoZaxQVjqVkTNxRKBCfO+5meNBs4RjszlDts4LgsgFDd57mgL34OCepsA9OLinKXAPDu5pFmJMnJs5JlOARHua84bQjL17HH5AlxVCM/buFZZmprfNmT9H5u6loNnB84ZdyAorNBPMH5M0u5BwKSO93gzOGdabJfFbYBmTNHubNpsS/K4ptd5spw20M6o3i++0wDqixmbbVvRmGDHPpN5sppy88nmdbs2Cw6tJNgHS682UQsOg3iyuyzNgPsZm7l6aKQDKM5aSXCOD3qxXN5uBLonbE2D+HJm7l4ZmiUMbp9ebYb9oVG+W0PMRmD9H5u7ZWDdLrzfrqIhUojezbc5Fms0bsnVeEAjNBBYgNBNYgNBMYAEO0qwQY+LczMkUYBZCM/buFZZmpvcymT9H5u4JzWKC+XNk7l4ONNukeP/lXS3b0OjXyr+FE+WvGt43l0PpTwezBPS8xc8pSV0z0LKh6kgvNPJuCqLMcA8maea/0OxfDgY3PimPaIY7R3U8AdQbCzXlrwSbzeDTIExSp4uqfCjT3k1BaOYezNFMpY+7PLgJRMO9JfhQ86o9+IesC2kWSn9wqxyaua5K6zQgGRDRLJQWxRYCzZyXV36v5mhG6eNIxEPJvTCXXD0IHqxg31hVXWJ5KP253wz8ta+7wECVpI5kQPSuU1bSIrIprVlBYI5mlD5Ot2aKZigkg94xwDw5YWumpT/UmsGJ+02VpI5kQNCaNeqo7UDNx5h3U5ApgHv2jLZmnfIuirEVU1qL79eJZj3qIEOaKemPGpvpThIKkQwI6raEZnM25zrNsFt8o6YmkPUwoRwqhB696C1uhTNNLf1pt6AgqrdVkrorDS0DKnehMkmLxrxLc18JwNwec/cKu25WiO89N3NCs1nI1nlBIDQTWIDQTGABQjOBBThIs0KMiXMzJ1OAWQjN2LtXWJqZ3mpi/hyZuyc0iwnmz5G5e/OkGW2EVyY+l7tTZTY/HMaV8pe9V27sqjItqPnsVHWC/0IzmIYVmgnmj5St2eB6e9AIQ5dhiKnVaZahxkyLy/qvovCiS2UGN3ZXv7o5UV3j8ferR3g3BaGZe0hPs6BTpZBSL1286+mQURi8QEnNlPgsFJcp/mgq4ouqroqXP/GqncV28Cnq0lrnmy04Rm1dLL0ZEz2VvB7/mrE1611pqBBTRCEKLKWkZiQ+0+KyVh0JuLg1QTOoHha/3e5/FvQ/Q3k2yYLIAl1GWrOCIC3NGtjgqNxeKPZRNKPAUkQSJT4LxWWVoeQn0DSj6lR8cH3rztpOGwO4YCjQzeYdaNO82NEaU9/4CMzH2Mzdm+tMU4n2MWDUiGb+mgosRVIzEp+F4rLl+lBZtjbsNKHxw+JB59LnDehVv+hSLCr/e7dQoDbhXZr7SgDm9pi7N+eZJqr1O55Xfm+xTSGmPCUeI9W10psN40rhTBOVZ+o3TC2MH0rVVRyq/gfBDnSh0JRRI3a7HVDxMe/S3FcCMLfH3D13180et4PBTXonNGPvnrs06+hfbsrWeWHAkWYjCM0KAqGZwAKEZgILcJBmhRgT52ZOpgCzOHF51sRFmD9H5u4JzWKC+XNk7p41mqlwU/Xpw/6aFgyVv1z2vOhQU5kz0GXxOwTz58jcPVs0U+GmetN6swHuIFFcjBsP6oN3m5GhpjJnoMvgt8AistJMh5vC/ciRDAgbpAqFj6LQLRSIJTLUVOYMdHkLXOR1rkKgIUbhpsZkQPTHv9gOz6DEJzLUVOYMdKn9FlhFVprpcFOY72skA6JNcIrro1qzVj0IIkNNZc5Al9pvgVUYaM0o3BS+DmVAd3EEr2kG77BDvRkZaipzBrrUfo+B+RibuXt2pgBhuKlBA4ZXoQyIlDwYPupZDERFsaWqQWSoKclAZ9ucmzSLxEjJkxFCM/bu5UizkZInI4Rm7N0r7C6AwD0IzQQWIDQTWIDQTGABDtLM9OIs8zE2c/cKOwUQmrlnLxXNSLGDP8BUYXwwxdxHWt4znkCOpD+EnsoMQFtIWIWWaM9/mFUIlMzro8D8OTJ3b64/B8bNx522DuMzTDE3GTtKby8hQv0PgqooMVBWIVBCr48A8+fI3D0rNKMwPsMUcyppjr/87GeYfI42y3svoxxI63+oLlVR2+dZhUD5C1zkdZ5CoJBmKoyPSjGHh/yVTrl7v/kYU3+R9OdHmKG1qvQ/OlKLivyjxEAZhUAJvRbkhgw0uz0M4xOmmIPWa3Cji4MtpI5qzaoqCR3pf7CkqqJbs4xCoHS3LLCPdDQbvNskTqgwPsMUczA2A5rttKFRq+uxGepmq8FYQCBVRYmBsgqBsty4wCZSLmj4y0rSQ2F8/ufF0Q9Jel79y5pKPkfSn55Hk1Il3MYhGFV55nUUAw1DBokQyJ45l6YA8dGbDSibAEIz9u6xoNloUSwVhGbs3WNBs4wQmrF3r7A0E7gHoZnAAoRmAgsQmgkswEGayda5e/aEZtyfI3P35kqzNCnouqhLa5rMQJfU62gwf47M3Ztva5YmBR3q0j4ymYEusdeRYP4cmbs3d5olTkGnxIoGM9Dlr6OS13ivWVuzJCno2qhLM5mBLrHXgpyQmmYpUtAFxEODGehS37XAMrJ0mklT0PWG2sVMGeiEZu4h/UwzcQq64NGLWEky0OVqzq0pwDwhGejmaE5oFuKEDHSF+N5zMyc0m4XQjL17haWZwD0IzQQWIDQTWICDNJM1M/cgNOM+xmbuHqPAU6gF6hsOPJXM4+PA/Dkyd49T4CncXDIceCqhx8eA+XNk7h6jwFMTNDMUeMqcUOWhYeGLYXsPTfmVp71sNIsZeGqcZqYCTyX0WJArMtAsQeCpMZqZCjyV8n4FuSAdzZIGngppZjDwVJabFthGygWNZIGnsNCuscBTAvcw73UzCTzFzJxLM83YkMBT3MwVkmYZITRj757QLCaY22PuXmFpJnAPQjOBBQjNBBbgIM1kddY92KPZMeqhE7ybgmmaMR9jM3eP3RTgCPXQoyma9S9PezcFoZl79vKg2YR6CFimwwCdb/o/rFE8F5QSnSAE4ivcESGQMSFQKkSph5QeCMl2v9l7pbHY3mw+WAlQSkRVpDVj7x7P1mxGPYR9JoYBanlexV8DhqFuKNyikilAQWCRZkeph1YoDBD2piHNUEo05t0UhGbuweaCRrR6CFu226SnrbQWt2qVfq2KUqIx7wTOw8F1M4F7cJBmhRgT52au8FOAFBCasXdPaBYTzO0xd09oFhPM7TF3rxA0ExQE9Di50iwS3KefzP3L0T2hmUEw909oJig2hGYCCxCaCSxAaCawAIdoNgwByRFKwcTWRYw6l6d77tBsLAQkR2DoI74u7rT7r7VzdM8dmlHQtLydOBqUj5azi5vNHN1zh2YYAnItbyeOBtKMtYt3ujm65w7NWDcV/FuzXj1P99yhGd+BD4H32EwlxpWxWQy0uE7jCC0Vm5Kpix2SxOfnnkM0E7gLoZnAAoRmAgsQmgksQGgmsAChmcACik+z7VJp4XfXpg4e/vjawbfooH6ZQNSx4cH9p+8dVeRkzFZLaYg8+cbBhdISvPnlBn18amPczYlPCQBfzb+kdukoFJ5m62fuBdunpr+3dXVkhn4TZyNxcOHMvROKTGF4kSOuFqtuBIDv2wt74M0eUi04vHp6Y3RSf0rgZgiokoH6R6DoNNv/c/zG1IMYA/yXxZcj/tvqs0dYpNbs2CKTGF4kRSNxTJXDn2wERLOD59WBg+fGaKY/JXBzaBeqHHz7XtJqx6PoNNs+o78w7Dvhu//XEv73L5Xovyy8LuH/3LFz0A2d3qCHc3i1dBbahF/jgYPn3jr1829do5P7T79ZOksPY71ExrEi1KePWPAfn/5V6cwfSmf+eOH0BjQNdBGsGHG1gLq1fV3hXmhJl3jr1D+EdXXxbXgbXnbvLFD+HHSav9fs0jfwrWvgeen0r+nT4Y9/Tj6fw7ZtzNLQXmnhICywPvxq4F6m/19mxJNCM2iD9s/9DTAHH+tTG9DIAQP+G7ly6tr4ue0FIJBqA7A9+BMdeOcqPHYoSCf3zy0dXl2CN3twbEHREZ73En78KygIn+HRncXR33NIWLwIVYy4WoB91DthhXe0pbDEQhDWfUcVB2atL+jLwnF1h/vf1bcKNqAMukkXp0/KX935jixpe3ShJV2A7KqvZmTcFJ4UmuH3tr6gHjy8V1xCOqnPw3PImiXd1cDT/PgeHUDGhSex0yTaQFMAtNDd0/YCfcT3yhBQUb/RTeNS1NXUZGSsAlkKSwTDuqoItTHhZTUTDv8eqHJK/7dQl9sbcRwNbA/71ZGl4ReBN6kKkF311QjNkkKNzfZ/tn0Wv7sjaDZ2bg8al5Bm+0/9288COqAfOb0f0Ux3LCE5lvT7CJoNrU5dLYimWVgiGNYdp5m+rGYCtFPrS3ua7vq2sFUcXRwMq5nEmCX9RdCFdAGyKzRLCZxpwogW6Db8dvdg9HX19G+GNBs/t657xGFdOqAfOb0HmqneCJ4ttRLY+ake7eD5aZodXMDrBEOrU1cLpmimLA1LqBHg0pCxNN4PL0vUoi5zmmZ7C+OfoKQazI1bUn/VhXQBsqu+mg0ZmyXGegnHzdgnLMH7s9vwlcKh0pJ6Qy9j5/5QOvUXp9/SzwWf4R4e+A4VUid/cxVLq9q0aABjaDVsLqlhNBiCl1/Ru1N/iTOFJTKyMXu1e+jXmTfDCn/UlnQJJLmu+53Q8VPXAn1ZnGmqKaHuNJVJMPNf52BkP/x0bzigH7P0prJHFwp0gXU1v8BDMtPkh8mFBHuW1AJsBP4EpPt4jCcwfDve0nSBFMsgJ0Bolhl50SzY/0bkYVr4envswMyq4TSmC8guAD/AgPuMmS7GlKU9NUzQWKd56TE4sYABCM0EFiA0E1iA0ExgAUIzgQUIzQQW8P+tGChvtfQalwAAAABJRU5ErkJggg==" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtTR2xCYm01dmVVUnBabVpXWVhKelEyOXVVR1Z5YldsdGNERndZeTV6ZG1kY0lpd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUUXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpYzNablhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJJYVVGdWJtOTVSR2xtWmxaaGNuTkRiMjVRWlhKdGFXMXdNWEJqTG5OMloxd2lLVnh1SUNCY2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWd2lVSFJ6UVVKa1NHbEJibTV2ZVVScFptWldZWEp6UTI5dVVHVnliV2x0Y0RGd1l5NXdaR1pjSWl3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRRc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGd2ljR1JtWENJcEtWeHVJQ0IxYm14cGJtc29YQ0pRZEhOQlFtUklhVUZ1Ym05NVJHbG1abFpoY25ORGIyNVFaWEp0YVcxd01YQmpMbkJrWmx3aUtWeHVmVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wMXBjLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lEaWZmVmFyc0NvblBlcm1pbXAxcGMuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wMXBjLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lEaWZmVmFyc0NvblBlcm1pbXAxcGMucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyDiffVarsConPermimp1pc.svg\, width=8, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyDiffVarsConPermimp1pc.svg\)
ggsave(filename=\PtsABdHiAnnoyDiffVarsConPermimp1pc.pdf\, width=8, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyDiffVarsConPermimp1pc.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1NHbEJibTV2ZVVScFptWldZWEp6UTI5dVVHVnliV2x0Y0RGd1l5NXpkbWRjWEN3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRRc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjM1puWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUklhVUZ1Ym05NVJHbG1abFpoY25ORGIyNVFaWEp0YVcxd01YQmpMbk4yWjF4Y0tWeHVJQ0JjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ4Y1VIUnpRVUprU0dsQmJtNXZlVVJwWm1aV1lYSnpRMjl1VUdWeWJXbHRjREZ3WXk1d1pHWmNYQ3dnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVFFzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ4Y2NHUm1YRndwS1Z4dUlDQjFibXhwYm1zb1hGeFFkSE5CUW1SSWFVRnVibTk1UkdsbVpsWmhjbk5EYjI1UVpYSnRhVzF3TVhCakxuQmtabHhjS1Z4dWZWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wMXBjLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lEaWZmVmFyc0NvblBlcm1pbXAxcGMuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wMXBjLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lEaWZmVmFyc0NvblBlcm1pbXAxcGMucGRmXFwpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZWYXJzQ29uUGVybWltcDFwYy5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wMXBjLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZWYXJzQ29uUGVybWltcDFwYy5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95RGlmZlZhcnNDb25QZXJtaW1wMXBjLnBkZlxcKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyDiffVarsConPermimp1pc.svg\, width=8, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyDiffVarsConPermimp1pc.svg\)
ggsave(filename=\PtsABdHiAnnoyDiffVarsConPermimp1pc.pdf\, width=8, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyDiffVarsConPermimp1pc.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVrYVdabVZtRnlJRHd0SUZ3aVRFRkZURUZsY1dScFptWmNJbHh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmRpZmZWYXIgPC0gXFxMQUVMQWVxZGlmZlxcXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
diffVar <- \LAELAeqdiff\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWthV1ptVm1GeUlEd3RJRnhjVEVGRlRFRmxjV1JwWm1aY1hGeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmRpZmZWYXIgPC0gXFxMQUVMQWVxZGlmZlxcXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5kaWZmVmFyIDwtIFxcTEFFTEFlcWRpZmZcXFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
diffVar <- \LAELAeqdiff\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
### dSQM analysis
The ambient-only stimuli are NOT replaced here, as the difference analysis includes dB metrics.
#### Individual SQMs
##### dSharpness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dScFptWldZWElzSUdWMlpXNTBWbUZ5TENCY0ltUlRhR0Z5Y0VGMWNrbFRUek5RYjNkQmRtZE5ZWGhNVWx3aUxDQmNJbVJUYUdGeWNFRjFja2xUVHpNd05VVjRUV0Y0VEZKY0lpd2dYQ0prVTJoaGNuQkJkWEpUU0UxUWIzZEJkbWROWVhoTVVsd2lMQ0JjSW1SVGFHRnljRUYxY2xOSVRUQTFSWGhOWVhoTVVsd2lLVnh1WkZaaGNpQThMU0JjSW1SSWFXZG9RVzV1YjNsUVkxd2lYRzVjYm5ObFpXUnpJRHd0SUdNb09EUXhPVFFzSURrd05Td2dOalE0TVRVc0lEa3lPREExTkN3Z05qSTFNRGt4TENBMU9ESXdNekVwWEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbmlWYXJzIDwtIGMoZGlmZlZhciwgZXZlbnRWYXIsIFxcZFNoYXJwQXVySVNPM1Bvd0F2Z01heExSXFwsIFxcZFNoYXJwQXVySVNPMzA1RXhNYXhMUlxcLCBcXGRTaGFycEF1clNITVBvd0F2Z01heExSXFwsIFxcZFNoYXJwQXVyU0hNMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg4NDE5NCwgOTA1LCA2NDgxNSwgOTI4MDU0LCA2MjUwOTEsIDU4MjAzMSlcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
iVars <- c(diffVar, eventVar, \dSharpAurISO3PowAvgMaxLR\, \dSharpAurISO305ExMaxLR\, \dSharpAurSHMPowAvgMaxLR\, \dSharpAurSHM05ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(84194, 905, 64815, 928054, 625091, 582031)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR1JwWm1aV1lYSXNJR1YyWlc1MFZtRnlMQ0JjWEdSVGFHRnljRUYxY2tsVFR6TlFiM2RCZG1kTllYaE1VbHhjTENCY1hHUlRhR0Z5Y0VGMWNrbFRUek13TlVWNFRXRjRURkpjWEN3Z1hGeGtVMmhoY25CQmRYSlRTRTFRYjNkQmRtZE5ZWGhNVWx4Y0xDQmNYR1JUYUdGeWNFRjFjbE5JVFRBMVJYaE5ZWGhNVWx4Y0tWeHVaRlpoY2lBOExTQmNYR1JJYVdkb1FXNXViM2xRWTF4Y1hHNWNibk5sWldSeklEd3RJR01vT0RReE9UUXNJRGt3TlN3Z05qUTRNVFVzSURreU9EQTFOQ3dnTmpJMU1Ea3hMQ0ExT0RJd016RXBYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRTaGFycEF1cklTTzNQb3dBdmdNYXhMUlxcLCBcXGRTaGFycEF1cklTTzMwNUV4TWF4TFJcXCwgXFxkU2hhcnBBdXJTSE1Qb3dBdmdNYXhMUlxcLCBcXGRTaGFycEF1clNITTA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoODQxOTQsIDkwNSwgNjQ4MTUsIDkyODA1NCwgNjI1MDkxLCA1ODIwMzEpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRTaGFycEF1cklTTzNQb3dBdmdNYXhMUlxcLCBcXGRTaGFycEF1cklTTzMwNUV4TWF4TFJcXCwgXFxkU2hhcnBBdXJTSE1Qb3dBdmdNYXhMUlxcLCBcXGRTaGFycEF1clNITTA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoODQxOTQsIDkwNSwgNjQ4MTUsIDkyODA1NCwgNjI1MDkxLCA1ODIwMzEpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
iVars <- c(diffVar, eventVar, \dSharpAurISO3PowAvgMaxLR\, \dSharpAurISO305ExMaxLR\, \dSharpAurSHMPowAvgMaxLR\, \dSharpAurSHM05ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(84194, 905, 64815, 928054, 625091, 582031)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F5TlRGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU56VXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gMjUxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjc1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 251
mtry <- as.integer(length(iVars)/1.75)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXlOVEZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TnpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDI1MVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS43NSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAyNTFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 251
mtry <- as.integer(length(iVars)/1.75)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlRhR0Z5Y0NBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJUYUdGeWNDUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRk5vWVhKd0pFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTaGFycCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc3VsdHNPdXRTaGFycCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutSharp <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
resultsOutSharp$OOB_MAE
resultsOutSharp$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSVGFHRnljQ0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3SkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSVGFHRnljQ1JTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTaGFycCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc3VsdHNPdXRTaGFycCRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTaGFycCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc3VsdHNPdXRTaGFycCRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutSharp <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
resultsOutSharp$OOB_MAE
resultsOutSharp$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVTJoaGNuQWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3SkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFUyaGhjbkFrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZOb1lYSndKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dFNoYXJwIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTaGFycCRPT0JfUk1TRVxucmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc3VsdHNPdXRTaGFycCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutSharp <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
resultsOutSharp$OOB_MAE
resultsOutSharp$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVMmhoY25BZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZOb1lYSndKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwVTJoaGNuQWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRk5vWVhKd0pGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRTaGFycCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U2hhcnAkT09CX1JNU0VcbnJlc3VsdHNPdXRTaGFycCRPT0JfTUFFXG5yZXN1bHRzT3V0U2hhcnAkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0U2hhcnAgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFNoYXJwJE9PQl9STVNFXG5yZXN1bHRzT3V0U2hhcnAkT09CX01BRVxucmVzdWx0c091dFNoYXJwJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSharp <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSharp$OOB_RMSE
resultsOutSharp$OOB_MAE
resultsOutSharp$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEc5eVpTQnlaWE4xYkhSelhHNXlaWE5rU0dsQmJtNXZlVVpwZEVGQ1d5ZEVhV1ptSUhOb1lYSndKeXdnSjFKTlUwVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFUyaGhjbkFrVDA5Q1gxSk5VMFZjYm5KbGMyUklhVUZ1Ym05NVJtbDBRVUpiSjBScFptWWdjMmhoY25BbkxDQW5UVUZGSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRk5vWVhKd0pFOVBRbDlOUVVWY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowUnBabVlnYzJoaGNuQW5MQ0FuVW5OeGRXRnlaV1FuWFNBOExTQnlaWE4xYkhSelQzVjBVMmhoY25Ba1VuTnhkV0Z5WldSY2JuSmxjMlJJYVVGdWJtOTVVR1Z5YlVsdGNFRkNKRVJwWm1aVGFHRnljQ0E4TFNCeVpYTjFiSFJ6VDNWMFUyaGhjbkFrWTI5dVpHbDBhVzl1WVd4ZmNHVnliV2x0Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIHNoYXJwJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U2hhcnAkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgc2hhcnAnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgc2hhcnAnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U2hhcnAkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJERpZmZTaGFycCA8LSByZXN1bHRzT3V0U2hhcnAkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdHiAnnoyFitAB['Diff sharp', 'RMSE'] <- resultsOutSharp$OOB_RMSE
resdHiAnnoyFitAB['Diff sharp', 'MAE'] <- resultsOutSharp$OOB_MAE
resdHiAnnoyFitAB['Diff sharp', 'Rsquared'] <- resultsOutSharp$Rsquared
resdHiAnnoyPermImpAB$DiffSharp <- resultsOutSharp$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkRzl5WlNCeVpYTjFiSFJ6WEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkRWFXWm1JSE5vWVhKd0p5d2dKMUpOVTBVblhTQThMU0J5WlhOMWJIUnpUM1YwVTJoaGNuQWtUMDlDWDFKTlUwVmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMFJwWm1ZZ2MyaGhjbkFuTENBblRVRkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRGTm9ZWEp3SkU5UFFsOU5RVVZjYm5KbGMyUklhVUZ1Ym05NVJtbDBRVUpiSjBScFptWWdjMmhoY25BbkxDQW5Vbk54ZFdGeVpXUW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFUyaGhjbkFrVW5OeGRXRnlaV1JjYm5KbGMyUklhVUZ1Ym05NVVHVnliVWx0Y0VGQ0pFUnBabVpUYUdGeWNDQThMU0J5WlhOMWJIUnpUM1YwVTJoaGNuQWtZMjl1WkdsMGFXOXVZV3hmY0dWeWJXbHRjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIHNoYXJwJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U2hhcnAkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgc2hhcnAnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgc2hhcnAnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U2hhcnAkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJERpZmZTaGFycCA8LSByZXN1bHRzT3V0U2hhcnAkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIHNoYXJwJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U2hhcnAkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgc2hhcnAnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNoYXJwJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgc2hhcnAnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U2hhcnAkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJERpZmZTaGFycCA8LSByZXN1bHRzT3V0U2hhcnAkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# store results
resdHiAnnoyFitAB['Diff sharp', 'RMSE'] <- resultsOutSharp$OOB_RMSE
resdHiAnnoyFitAB['Diff sharp', 'MAE'] <- resultsOutSharp$OOB_MAE
resdHiAnnoyFitAB['Diff sharp', 'Rsquared'] <- resultsOutSharp$Rsquared
resdHiAnnoyPermImpAB$DiffSharp <- resultsOutSharp$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRk5vWVhKd0xtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlRhR0Z5Y0NSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJUYUdGeWNDNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVGFHRnljQzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRk5vWVhKd0xtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTWwwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9KU0JvYVdkb2JIa2dZVzV1YjNsbFpDbGNJaWtnS3lCblozUnBkR3hsS0Z3aVpGTm9ZWEp3Ym1WemMxd2lLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWENKelpYSnBabHdpS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLeUJqYjI5eVpGOW1iR2x3S0NsY2JuQkNZWEpjYmx4dWFXWWdLSE5oZG1Wd2JHOTBjeWw3WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY0lsQjBjMEZDWkVocFFXNXViM2xrVTJoaGNuQkRiMjVRWlhKdGFXMXdMbk4yWjF3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pNDJMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjSW5OMloxd2lLU2xjYmlBZ2RXNXNhVzVyS0Z3aVVIUnpRVUprU0dsQmJtNXZlV1JUYUdGeWNFTnZibEJsY20xcGJYQXVjM1puWENJcFhHNGdJRnh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WENKUWRITkJRbVJJYVVGdWJtOTVaRk5vWVhKd1EyOXVVR1Z5YldsdGNDNXdaR1pjSWl3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRJdU5pd2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p3WkdaY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNaRWhwUVc1dWIzbGtVMmhoY25CRGIyNVFaWEp0YVcxd0xuQmtabHdpS1Z4dWZWeHVYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRTaGFycC5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0U2hhcnAkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0U2hhcnAuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0U2hhcnAuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRTaGFycC5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzJdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgZ2d0aXRsZShcXGRTaGFycG5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95ZFNoYXJwQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lkU2hhcnBDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veWRTaGFycENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjYsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95ZFNoYXJwQ29uUGVybWltcC5wZGZcXClcbn1cblxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSharp.conimp <- arrange(resultsOutSharp$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSharp.conimp) + geom_col(aes(x=factor(rownames(resultsOutSharp.conimp), levels=rownames(resultsOutSharp.conimp)), y=CondPermImp), fill=mycolours[2], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\dSharpness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoydSharpConPermimp.svg\, width=8, height=2.6, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoydSharpConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoydSharpConPermimp.pdf\, width=8, height=2.6, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoydSharpConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGTm9ZWEp3TG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSVGFHRnljQ1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlRhR0Z5Y0M1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJUYUdGeWNDNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGTm9ZWEp3TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJNbDBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb0pTQm9hV2RvYkhrZ1lXNXViM2xsWkNsY1hDa2dLeUJuWjNScGRHeGxLRnhjWkZOb1lYSndibVZ6YzF4Y0tTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYRnh6WlhKcFpseGNLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1NrZ0t5QmpiMjl5WkY5bWJHbHdLQ2xjYm5CQ1lYSmNibHh1YVdZZ0tITmhkbVZ3Ykc5MGN5bDdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjWEZCMGMwRkNaRWhwUVc1dWIzbGtVMmhoY25CRGIyNVFaWEp0YVcxd0xuTjJaMXhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWk0MkxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNYSE4yWjF4Y0tTbGNiaUFnZFc1c2FXNXJLRnhjVUhSelFVSmtTR2xCYm01dmVXUlRhR0Z5Y0VOdmJsQmxjbTFwYlhBdWMzWm5YRndwWEc0Z0lGeHVJQ0JuWjNOaGRtVW9abWxzWlc1aGJXVTlYRnhRZEhOQlFtUklhVUZ1Ym05NVpGTm9ZWEp3UTI5dVVHVnliV2x0Y0M1d1pHWmNYQ3dnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVEl1Tml3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHdaR1pjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1pFaHBRVzV1YjNsa1UyaGhjbkJEYjI1UVpYSnRhVzF3TG5Ca1pseGNLVnh1ZlZ4dVhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0U2hhcnAuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFNoYXJwJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dFNoYXJwLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dFNoYXJwLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0U2hhcnAuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1syXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIGdndGl0bGUoXFxkU2hhcnBuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veWRTaGFycENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjYsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95ZFNoYXJwQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lkU2hhcnBDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi42LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veWRTaGFycENvblBlcm1pbXAucGRmXFwpXG59XG5cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNoYXJwLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTaGFycCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTaGFycC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTaGFycC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNoYXJwLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbMl0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcZFNoYXJwbmVzc1xcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lkU2hhcnBDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi42LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veWRTaGFycENvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95ZFNoYXJwQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lkU2hhcnBDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5cbmBgYFxuYGBgIn0= -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSharp.conimp <- arrange(resultsOutSharp$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSharp.conimp) + geom_col(aes(x=factor(rownames(resultsOutSharp.conimp), levels=rownames(resultsOutSharp.conimp)), y=CondPermImp), fill=mycolours[2], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\dSharpness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoydSharpConPermimp.svg\, width=8, height=2.6, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoydSharpConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoydSharpConPermimp.pdf\, width=8, height=2.6, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoydSharpConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVrVTJoaGNuQldZWElnUEMwZ1hDSmtVMmhoY25CQmRYSlRTRTFRYjNkQmRtZE5ZWGhNVWx3aVhHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG5kU2hhcnBWYXIgPC0gXFxkU2hhcnBBdXJTSE1Qb3dBdmdNYXhMUlxcXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
dSharpVar <- \dSharpAurSHMPowAvgMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWtVMmhoY25CV1lYSWdQQzBnWEZ4a1UyaGhjbkJCZFhKVFNFMVFiM2RCZG1kTllYaE1VbHhjWEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxuZFNoYXJwVmFyIDwtIFxcZFNoYXJwQXVyU0hNUG93QXZnTWF4TFJcXFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5kU2hhcnBWYXIgPC0gXFxkU2hhcnBBdXJTSE1Qb3dBdmdNYXhMUlxcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
dSharpVar <- \dSharpAurSHMPowAvgMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### dTonal loudness and dtonality
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dScFptWldZWElzSUdWMlpXNTBWbUZ5TENCY0ltUlViMjVoYkVWRFRVRkJkbWROWVhoTVVsd2lMQ0JjSW1SVWIyNWhiRk5JVFVsdWREQTFSWGhOWVhoTVVsd2lMQ0JjSW1SVWIyNWhiRk5JVFVsdWRFRjJaMDFoZUV4U1hDSXNJRndpWkZSdmJtRnNSVU5OUVRBMVJYaE5ZWGhNVWx3aUxDQmNJbVJVYjI1TVpFVkRUVUZRYjNkQmRtZENhVzVjSWl3Z1hDSmtWRzl1VEdSRlEwMUJNRFZGZUVKcGJsd2lLVnh1WkZaaGNpQThMU0JjSW1SSWFXZG9RVzV1YjNsUVkxd2lYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgXFxkVG9uYWxFQ01BQXZnTWF4TFJcXCwgXFxkVG9uYWxTSE1JbnQwNUV4TWF4TFJcXCwgXFxkVG9uYWxTSE1JbnRBdmdNYXhMUlxcLCBcXGRUb25hbEVDTUEwNUV4TWF4TFJcXCwgXFxkVG9uTGRFQ01BUG93QXZnQmluXFwsIFxcZFRvbkxkRUNNQTA1RXhCaW5cXClcbmRWYXIgPC0gXFxkSGlnaEFubm95UGNcXFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
iVars <- c(diffVar, eventVar, \dTonalECMAAvgMaxLR\, \dTonalSHMInt05ExMaxLR\, \dTonalSHMIntAvgMaxLR\, \dTonalECMA05ExMaxLR\, \dTonLdECMAPowAvgBin\, \dTonLdECMA05ExBin\)
dVar <- \dHighAnnoyPc\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR1JwWm1aV1lYSXNJR1YyWlc1MFZtRnlMQ0JjWEdSVWIyNWhiRVZEVFVGQmRtZE5ZWGhNVWx4Y0xDQmNYR1JVYjI1aGJGTklUVWx1ZERBMVJYaE5ZWGhNVWx4Y0xDQmNYR1JVYjI1aGJGTklUVWx1ZEVGMlowMWhlRXhTWEZ3c0lGeGNaRlJ2Ym1Gc1JVTk5RVEExUlhoTllYaE1VbHhjTENCY1hHUlViMjVNWkVWRFRVRlFiM2RCZG1kQ2FXNWNYQ3dnWEZ4a1ZHOXVUR1JGUTAxQk1EVkZlRUpwYmx4Y0tWeHVaRlpoY2lBOExTQmNYR1JJYVdkb1FXNXViM2xRWTF4Y1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbmlWYXJzIDwtIGMoZGlmZlZhciwgZXZlbnRWYXIsIFxcZFRvbmFsRUNNQUF2Z01heExSXFwsIFxcZFRvbmFsU0hNSW50MDVFeE1heExSXFwsIFxcZFRvbmFsU0hNSW50QXZnTWF4TFJcXCwgXFxkVG9uYWxFQ01BMDVFeE1heExSXFwsIFxcZFRvbkxkRUNNQVBvd0F2Z0JpblxcLCBcXGRUb25MZEVDTUEwNUV4QmluXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRUb25hbEVDTUFBdmdNYXhMUlxcLCBcXGRUb25hbFNITUludDA1RXhNYXhMUlxcLCBcXGRUb25hbFNITUludEF2Z01heExSXFwsIFxcZFRvbmFsRUNNQTA1RXhNYXhMUlxcLCBcXGRUb25MZEVDTUFQb3dBdmdCaW5cXCwgXFxkVG9uTGRFQ01BMDVFeEJpblxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
iVars <- c(diffVar, eventVar, \dTonalECMAAvgMaxLR\, \dTonalSHMInt05ExMaxLR\, \dTonalSHMIntAvgMaxLR\, \dTonalECMA05ExMaxLR\, \dTonLdECMAPowAvgBin\, \dTonLdECMA05ExBin\)
dVar <- \dHighAnnoyPc\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNXpaV1ZrY3lBOExTQmpLRFUyTVRZNE5Dd2dNVEEwTnprNExDQXhOVE0yTENBME9Dd2dORGcxTmpFcFhHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5zZWVkcyA8LSBjKDU2MTY4NCwgMTA0Nzk4LCAxNTM2LCA0OCwgNDg1NjEpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
seeds <- c(561684, 104798, 1536, 48, 48561)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1elpXVmtjeUE4TFNCaktEVTJNVFk0TkN3Z01UQTBOems0TENBeE5UTTJMQ0EwT0N3Z05EZzFOakVwWEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbnBcblxuc2VlZHMgPC0gYyg1NjE2ODQsIDEwNDc5OCwgMTUzNiwgNDgsIDQ4NTYxKVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5zZWVkcyA8LSBjKDU2MTY4NCwgMTA0Nzk4LCAxNTM2LCA0OCwgNDg1NjEpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
seeds <- c(561684, 104798, 1536, 48, 48561)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F4TURBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDEwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 1001
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXhNREF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDEwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAxMDAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 1001
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlU0IzYVhSb0lIUnZibUZzSUd4dmRXUnVaWE56WEc1Y2JtNXdaWEp0SUR3dElEVmNibHh1Y21WemRXeDBjMDkxZEZSdmJtRnNNU0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRFa1QwOUNYMUpOVTBWY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRFa1QwOUNYMDFCUlZ4dWNtVnpkV3gwYzA5MWRGUnZibUZzTVNSU2MzRjFZWEpsWkZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG4jIFRvbmFsaXR5IHdpdGggdG9uYWwgbG91ZG5lc3NcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0VG9uYWwxIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFRvbmFsMSRPT0JfUk1TRVxucmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5yZXN1bHRzT3V0VG9uYWwxJFJzcXVhcmVkXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Tonality with tonal loudness
nperm <- 5
resultsOutTonal1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
resultsOutTonal1$OOB_MAE
resultsOutTonal1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVTQjNhWFJvSUhSdmJtRnNJR3h2ZFdSdVpYTnpYRzVjYm01d1pYSnRJRHd0SURWY2JseHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TQThMU0JqY21aU1pXY29aR0YwWVVsdVBYTjBhVzFFWVhSaFRuVnRMQ0JwVm1GeWN6MXBWbUZ5Y3l3Z1pGWmhjajFrVm1GeUxDQnpaV1ZrY3oxelpXVmtjMXN4T2pKZExDQnVkSEpsWlQxdWRISmxaU3dnYlhSeWVUMXRkSEo1TENCd1pYSnRTVzF3UTI5dVpGUm9jbVZ6UFhCbGNtMUpiWEJEYjI1a1ZHaHlaWE1zSUc1d1pYSnRQVzV3WlhKdExDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYmx4dUl5QndjbWx1ZENCdGIyUmxiQ0J3Y21Wa2FXTjBhVzl1SUhKbGMzVnNkSE5jYm5KbGMzVnNkSE5QZFhSVWIyNWhiREVrVDA5Q1gxSk5VMFZjYm5KbGMzVnNkSE5QZFhSVWIyNWhiREVrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZSdmJtRnNNU1JTYzNGMVlYSmxaRnh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuIyBUb25hbGl0eSB3aXRoIHRvbmFsIGxvdWRuZXNzXG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dFRvbmFsMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDEkT09CX01BRVxucmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eSB3aXRoIHRvbmFsIGxvdWRuZXNzXG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dFRvbmFsMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDEkT09CX01BRVxucmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxuYGBgXG5gYGAifQ== -->
```r
```r
# Tonality with tonal loudness
nperm <- 5
resultsOutTonal1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
resultsOutTonal1$OOB_MAE
resultsOutTonal1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlU0IzYVhSb0lIUnZibUZzSUd4dmRXUnVaWE56WEc1Y2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRFZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZSdmJtRnNNU1JQVDBKZlVrMVRSVnh1Y21WemRXeDBjMDkxZEZSdmJtRnNNU1JQVDBKZlRVRkZYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3hKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbiMgVG9uYWxpdHkgd2l0aCB0b25hbCBsb3VkbmVzc1xuXG5yZXN1bHRzT3V0VG9uYWwxIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDEkT09CX01BRVxucmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Tonality with tonal loudness
resultsOutTonal1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
resultsOutTonal1$OOB_MAE
resultsOutTonal1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVTQjNhWFJvSUhSdmJtRnNJR3h2ZFdSdVpYTnpYRzVjYm5KbGMzVnNkSE5QZFhSVWIyNWhiREVnUEMwZ2JYVnNkR2xmWTNKbVVtVm5LR1JoZEdGSmJqMXpkR2x0UkdGMFlVNTFiU3dnYVZaaGNuTTlhVlpoY25Nc0lHUldZWEk5WkZaaGNpd2djMlZsWkhNOWMyVmxaSE1zSUc1MGNtVmxQVzUwY21WbExDQnRkSEo1UFcxMGNua3NJSEJsY20xSmJYQkRiMjVrVkdoeVpYTTljR1Z5YlVsdGNFTnZibVJVYUhKbGN5d2dibkJsY20wOWJuQmxjbTBzSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVYRzRqSUhCeWFXNTBJRzF2WkdWc0lIQnlaV1JwWTNScGIyNGdjbVZ6ZFd4MGMxeHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TUlBUMEpmVFVGRlhHNXlaWE4xYkhSelQzVjBWRzl1WVd3eEpGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG4jIFRvbmFsaXR5IHdpdGggdG9uYWwgbG91ZG5lc3NcblxucmVzdWx0c091dFRvbmFsMSA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwxJE9PQl9STVNFXG5yZXN1bHRzT3V0VG9uYWwxJE9PQl9NQUVcbnJlc3VsdHNPdXRUb25hbDEkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eSB3aXRoIHRvbmFsIGxvdWRuZXNzXG5cbnJlc3VsdHNPdXRUb25hbDEgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFRvbmFsMSRPT0JfUk1TRVxucmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5yZXN1bHRzT3V0VG9uYWwxJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# Tonality with tonal loudness
resultsOutTonal1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal1$OOB_RMSE
resultsOutTonal1$OOB_MAE
resultsOutTonal1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEc5eVpTQnlaWE4xYkhSelhHNXlaWE5rU0dsQmJtNXZlVVpwZEVGQ1d5ZEVhV1ptSUhSdmJtRnNJR2x1WXlCc2IzVmtKeXdnSjFKTlUwVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFZHOXVZV3d4SkU5UFFsOVNUVk5GWEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkRWFXWm1JSFJ2Ym1Gc0lHbHVZeUJzYjNWa0p5d2dKMDFCUlNkZElEd3RJSEpsYzNWc2RITlBkWFJVYjI1aGJERWtUMDlDWDAxQlJWeHVjbVZ6WkVocFFXNXViM2xHYVhSQlFsc25SR2xtWmlCMGIyNWhiQ0JwYm1NZ2JHOTFaQ2NzSUNkU2MzRjFZWEpsWkNkZElEd3RJSEpsYzNWc2RITlBkWFJVYjI1aGJERWtVbk54ZFdGeVpXUmNibkpsYzJSSWFVRnVibTk1VUdWeWJVbHRjRUZDSkVScFptWlViMjVoYkRFZ1BDMGdjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TUmpiMjVrYVhScGIyNWhiRjl3WlhKdGFXMXdYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbiMgc3RvcmUgcmVzdWx0c1xucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiB0b25hbCBpbmMgbG91ZCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFRvbmFsMSRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiB0b25hbCBpbmMgbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0VG9uYWwxJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgdG9uYWwgaW5jIGxvdWQnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0VG9uYWwxJFJzcXVhcmVkXG5yZXNkSGlBbm5veVBlcm1JbXBBQiREaWZmVG9uYWwxIDwtIHJlc3VsdHNPdXRUb25hbDEkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdHiAnnoyFitAB['Diff tonal inc loud', 'RMSE'] <- resultsOutTonal1$OOB_RMSE
resdHiAnnoyFitAB['Diff tonal inc loud', 'MAE'] <- resultsOutTonal1$OOB_MAE
resdHiAnnoyFitAB['Diff tonal inc loud', 'Rsquared'] <- resultsOutTonal1$Rsquared
resdHiAnnoyPermImpAB$DiffTonal1 <- resultsOutTonal1$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkRzl5WlNCeVpYTjFiSFJ6WEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkRWFXWm1JSFJ2Ym1Gc0lHbHVZeUJzYjNWa0p5d2dKMUpOVTBVblhTQThMU0J5WlhOMWJIUnpUM1YwVkc5dVlXd3hKRTlQUWw5U1RWTkZYRzV5WlhOa1NHbEJibTV2ZVVacGRFRkNXeWRFYVdabUlIUnZibUZzSUdsdVl5QnNiM1ZrSnl3Z0owMUJSU2RkSUR3dElISmxjM1ZzZEhOUGRYUlViMjVoYkRFa1QwOUNYMDFCUlZ4dWNtVnpaRWhwUVc1dWIzbEdhWFJCUWxzblJHbG1aaUIwYjI1aGJDQnBibU1nYkc5MVpDY3NJQ2RTYzNGMVlYSmxaQ2RkSUR3dElISmxjM1ZzZEhOUGRYUlViMjVoYkRFa1VuTnhkV0Z5WldSY2JuSmxjMlJJYVVGdWJtOTVVR1Z5YlVsdGNFRkNKRVJwWm1aVWIyNWhiREVnUEMwZ2NtVnpkV3gwYzA5MWRGUnZibUZzTVNSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgdG9uYWwgaW5jIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRUb25hbDEkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgdG9uYWwgaW5jIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFRvbmFsMSRPT0JfTUFFXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIHRvbmFsIGluYyBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFRvbmFsMSRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkRGlmZlRvbmFsMSA8LSByZXN1bHRzT3V0VG9uYWwxJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIHRvbmFsIGluYyBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0VG9uYWwxJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIHRvbmFsIGluYyBsb3VkJywgJ01BRSddIDwtIHJlc3VsdHNPdXRUb25hbDEkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiB0b25hbCBpbmMgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRUb25hbDEkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJERpZmZUb25hbDEgPC0gcmVzdWx0c091dFRvbmFsMSRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# store results
resdHiAnnoyFitAB['Diff tonal inc loud', 'RMSE'] <- resultsOutTonal1$OOB_RMSE
resdHiAnnoyFitAB['Diff tonal inc loud', 'MAE'] <- resultsOutTonal1$OOB_MAE
resdHiAnnoyFitAB['Diff tonal inc loud', 'Rsquared'] <- resultsOutTonal1$Rsquared
resdHiAnnoyPermImpAB$DiffTonal1 <- resultsOutTonal1$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3WVhJb2JXRnBQV01vTUN3ekxEQXNNQ2twWEc1Y2JpTWdjR3h2ZENCamIyNWthWFJwYjI1aGJDQnBiWEJ2Y25SaGJtTmxYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3hMbU52Ym1sdGNDQThMU0JoY25KaGJtZGxLSEpsYzNWc2RITlBkWFJVYjI1aGJERWtZMjl1WkdsMGFXOXVZV3hmY0dWeWJXbHRjQ3dnWkdWell5aHliM2RmYm5WdFltVnlLQ2twS1Z4dVhHNXdRbUZ5SUR3dElHZG5jR3h2ZENoeVpYTjFiSFJ6VDNWMFZHOXVZV3d4TG1OdmJtbHRjQ2tnS3lCblpXOXRYMk52YkNoaFpYTW9lRDFtWVdOMGIzSW9jbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01TNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGUnZibUZzTVM1amIyNXBiWEFwS1N3Z2VUMURiMjVrVUdWeWJVbHRjQ2tzSUdacGJHdzliWGxqYjJ4dmRYSnpXek5kTENCM2FXUjBhRDB3TGpVcElDc2diR0ZpY3loNFBWd2lWbUZ5YVdGaWJHVmNJaXdnZVQxY0lrTnZibVJwZEdsdmJtRnNJSFpoY21saFlteGxJSEJsY20xMWRHRjBhVzl1SUdsdGNHOXlkR0Z1WTJVZ0tDVWdhR2xuYUd4NUlHRnVibTk1WldRcFhDSXBJQ3NnWjJkMGFYUnNaU2hjSW1SVWIyNWhiR2wwZVNCcGJtTXVJR1IwYjI1aGJDQnNiM1ZrYm1WemMxd2lLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWENKelpYSnBabHdpS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLeUJqYjI5eVpGOW1iR2x3S0hsc2FXMDlZeWd3TENBMU1Da3BYRzV3UW1GeVhHNWNibWxtSUNoellYWmxjR3h2ZEhNcGUxeHVJQ0JuWjNOaGRtVW9abWxzWlc1aGJXVTlYQ0pRZEhOQlFtUklhVUZ1Ym05NVpGUnZibUZzVEdSRGIyNVFaWEp0YVcxd0xuTjJaMXdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWk0MkxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNJbk4yWjF3aUtTbGNiaUFnZFc1c2FXNXJLRndpVUhSelFVSmtTR2xCYm01dmVXUlViMjVoYkV4a1EyOXVVR1Z5YldsdGNDNXpkbWRjSWlsY2JpQWdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjSWxCMGMwRkNaRWhwUVc1dWIzbGtWRzl1WVd4TVpFTnZibEJsY20xcGJYQXVjR1JtWENJc0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQweUxqWXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpY0dSbVhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJJYVVGdWJtOTVaRlJ2Ym1Gc1RHUkRiMjVRWlhKdGFXMXdMbkJrWmx3aUtWeHVmVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRUb25hbDEuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFRvbmFsMSRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRUb25hbDEuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbM10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcZFRvbmFsaXR5IGluYy4gZHRvbmFsIGxvdWRuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDUwKSlcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lkVG9uYWxMZENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjYsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95ZFRvbmFsTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veWRUb25hbExkQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lkVG9uYWxMZENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal1.conimp <- arrange(resultsOutTonal1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal1.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal1.conimp), levels=rownames(resultsOutTonal1.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\dTonality inc. dtonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 50))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoydTonalLdConPermimp.svg\, width=8, height=2.6, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoydTonalLdConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoydTonalLdConPermimp.pdf\, width=8, height=2.6, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoydTonalLdConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdZWElvYldGcFBXTW9NQ3d6TERBc01Da3BYRzVjYmlNZ2NHeHZkQ0JqYjI1a2FYUnBiMjVoYkNCcGJYQnZjblJoYm1ObFhHNXlaWE4xYkhSelQzVjBWRzl1WVd3eExtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlViMjVoYkRFa1kyOXVaR2wwYVc5dVlXeGZjR1Z5YldsdGNDd2daR1Z6WXloeWIzZGZiblZ0WW1WeUtDa3BLVnh1WEc1d1FtRnlJRHd0SUdkbmNHeHZkQ2h5WlhOMWJIUnpUM1YwVkc5dVlXd3hMbU52Ym1sdGNDa2dLeUJuWlc5dFgyTnZiQ2hoWlhNb2VEMW1ZV04wYjNJb2NtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGUnZibUZzTVM1amIyNXBiWEFwTENCc1pYWmxiSE05Y205M2JtRnRaWE1vY21WemRXeDBjMDkxZEZSdmJtRnNNUzVqYjI1cGJYQXBLU3dnZVQxRGIyNWtVR1Z5YlVsdGNDa3NJR1pwYkd3OWJYbGpiMnh2ZFhKeld6TmRMQ0IzYVdSMGFEMHdMalVwSUNzZ2JHRmljeWg0UFZ4Y1ZtRnlhV0ZpYkdWY1hDd2dlVDFjWEVOdmJtUnBkR2x2Ym1Gc0lIWmhjbWxoWW14bElIQmxjbTExZEdGMGFXOXVJR2x0Y0c5eWRHRnVZMlVnS0NVZ2FHbG5hR3g1SUdGdWJtOTVaV1FwWEZ3cElDc2daMmQwYVhSc1pTaGNYR1JVYjI1aGJHbDBlU0JwYm1NdUlHUjBiMjVoYkNCc2IzVmtibVZ6YzF4Y0tTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYRnh6WlhKcFpseGNLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1NrZ0t5QmpiMjl5WkY5bWJHbHdLSGxzYVcwOVl5Z3dMQ0ExTUNrcFhHNXdRbUZ5WEc1Y2JtbG1JQ2h6WVhabGNHeHZkSE1wZTF4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhGeFFkSE5CUW1SSWFVRnVibTk1WkZSdmJtRnNUR1JEYjI1UVpYSnRhVzF3TG5OMloxeGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNaTQyTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY1hITjJaMXhjS1NsY2JpQWdkVzVzYVc1cktGeGNVSFJ6UVVKa1NHbEJibTV2ZVdSVWIyNWhiRXhrUTI5dVVHVnliV2x0Y0M1emRtZGNYQ2xjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNYRkIwYzBGQ1pFaHBRVzV1YjNsa1ZHOXVZV3hNWkVOdmJsQmxjbTFwYlhBdWNHUm1YRndzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB5TGpZc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjR1JtWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUklhVUZ1Ym05NVpGUnZibUZzVEdSRGIyNVFaWEp0YVcxd0xuQmtabHhjS1Z4dWZWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRUb25hbDEuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFRvbmFsMSRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRUb25hbDEuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbM10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcZFRvbmFsaXR5IGluYy4gZHRvbmFsIGxvdWRuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDUwKSlcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lkVG9uYWxMZENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjYsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95ZFRvbmFsTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veWRUb25hbExkQ29uUGVybWltcC5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lkVG9uYWxMZENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0VG9uYWwxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRUb25hbDEkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0VG9uYWwxLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dFRvbmFsMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFRvbmFsMS5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzNdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgZ2d0aXRsZShcXGRUb25hbGl0eSBpbmMuIGR0b25hbCBsb3VkbmVzc1xcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCA1MCkpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95ZFRvbmFsTGRDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi42LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veWRUb25hbExkQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lkVG9uYWxMZENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjYsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95ZFRvbmFsTGRDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal1.conimp <- arrange(resultsOutTonal1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal1.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal1.conimp), levels=rownames(resultsOutTonal1.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\dTonality inc. dtonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 50))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoydTonalLdConPermimp.svg\, width=8, height=2.6, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoydTonalLdConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoydTonalLdConPermimp.pdf\, width=8, height=2.6, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoydTonalLdConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVrVkc5dVRHUldZWElnUEMwZ1hDSmtWRzl1VEdSRlEwMUJVRzkzUVhablFtbHVYQ0pjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbmRUb25MZFZhciA8LSBcXGRUb25MZEVDTUFQb3dBdmdCaW5cXFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
dTonLdVar <- \dTonLdECMAPowAvgBin\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWtWRzl1VEdSV1lYSWdQQzBnWEZ4a1ZHOXVUR1JGUTAxQlVHOTNRWFpuUW1sdVhGeGNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG5kVG9uTGRWYXIgPC0gXFxkVG9uTGRFQ01BUG93QXZnQmluXFxcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5kVG9uTGRWYXIgPC0gXFxkVG9uTGRFQ01BUG93QXZnQmluXFxcblxuYGBgXG5gYGAifQ== -->
```r
```r
dTonLdVar <- \dTonLdECMAPowAvgBin\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### dTonality without dtonal loudness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dScFptWldZWElzSUdWMlpXNTBWbUZ5TENCY0ltUlViMjVoYkVWRFRVRkJkbWROWVhoTVVsd2lMQ0JjSW1SVWIyNWhiRk5JVFVsdWREQTFSWGhOWVhoTVVsd2lMQ0JjSW1SVWIyNWhiRk5JVFVsdWRFRjJaMDFoZUV4U1hDSXNJRndpWkZSdmJtRnNSVU5OUVRBMVJYaE5ZWGhNVWx3aUtWeHVaRlpoY2lBOExTQmNJbVJJYVdkb1FXNXViM2xRWTF3aVhHNWNibk5sWldSeklEd3RJR01vTkRFd09EWTFMQ0F5T1RVMExDQTNNRGd4TWl3Z01qQXpMQ0EzT1RnMEtWeHVYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcblxuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgXFxkVG9uYWxFQ01BQXZnTWF4TFJcXCwgXFxkVG9uYWxTSE1JbnQwNUV4TWF4TFJcXCwgXFxkVG9uYWxTSE1JbnRBdmdNYXhMUlxcLCBcXGRUb25hbEVDTUEwNUV4TWF4TFJcXClcbmRWYXIgPC0gXFxkSGlnaEFubm95UGNcXFxuXG5zZWVkcyA8LSBjKDQxMDg2NSwgMjk1NCwgNzA4MTIsIDIwMywgNzk4NClcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
iVars <- c(diffVar, eventVar, \dTonalECMAAvgMaxLR\, \dTonalSHMInt05ExMaxLR\, \dTonalSHMIntAvgMaxLR\, \dTonalECMA05ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(410865, 2954, 70812, 203, 7984)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR1JwWm1aV1lYSXNJR1YyWlc1MFZtRnlMQ0JjWEdSVWIyNWhiRVZEVFVGQmRtZE5ZWGhNVWx4Y0xDQmNYR1JVYjI1aGJGTklUVWx1ZERBMVJYaE5ZWGhNVWx4Y0xDQmNYR1JVYjI1aGJGTklUVWx1ZEVGMlowMWhlRXhTWEZ3c0lGeGNaRlJ2Ym1Gc1JVTk5RVEExUlhoTllYaE1VbHhjS1Z4dVpGWmhjaUE4TFNCY1hHUklhV2RvUVc1dWIzbFFZMXhjWEc1Y2JuTmxaV1J6SUR3dElHTW9OREV3T0RZMUxDQXlPVFUwTENBM01EZ3hNaXdnTWpBekxDQTNPVGcwS1Z4dVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcblxuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgXFxkVG9uYWxFQ01BQXZnTWF4TFJcXCwgXFxkVG9uYWxTSE1JbnQwNUV4TWF4TFJcXCwgXFxkVG9uYWxTSE1JbnRBdmdNYXhMUlxcLCBcXGRUb25hbEVDTUEwNUV4TWF4TFJcXClcbmRWYXIgPC0gXFxkSGlnaEFubm95UGNcXFxuXG5zZWVkcyA8LSBjKDQxMDg2NSwgMjk1NCwgNzA4MTIsIDIwMywgNzk4NClcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRUb25hbEVDTUFBdmdNYXhMUlxcLCBcXGRUb25hbFNITUludDA1RXhNYXhMUlxcLCBcXGRUb25hbFNITUludEF2Z01heExSXFwsIFxcZFRvbmFsRUNNQTA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoNDEwODY1LCAyOTU0LCA3MDgxMiwgMjAzLCA3OTg0KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
iVars <- c(diffVar, eventVar, \dTonalECMAAvgMaxLR\, \dTonalSHMInt05ExMaxLR\, \dTonalSHMIntAvgMaxLR\, \dTonalECMA05ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(410865, 2954, 70812, 203, 7984)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxucCA8LSBtdHJ5VHVuZShkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWQ9c2VlZHNbMToyXSxcbiAgICAgICAgICAgICBudHJlZXM9bnRyZWVzLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcbnBcblxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5cbmBgYFxuYGBgIn0= -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0EwTURBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqYzFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDQwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 4001
mtry <- as.integer(length(iVars)/1.75)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTBNREF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpjMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDQwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA0MDAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjc1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 4001
mtry <- as.integer(length(iVars)/1.75)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlVnh1WEc1dWNHVnliU0E4TFNBMVhHNWNibkpsYzNWc2RITlBkWFJVYjI1aGJESWdQQzBnWTNKbVVtVm5LR1JoZEdGSmJqMXpkR2x0UkdGMFlVNTFiU3dnYVZaaGNuTTlhVlpoY25Nc0lHUldZWEk5WkZaaGNpd2djMlZsWkhNOWMyVmxaSE5iTVRveVhTd2diblJ5WldVOWJuUnlaV1VzSUcxMGNuazliWFJ5ZVN3Z2NHVnliVWx0Y0VOdmJtUlVhSEpsY3oxd1pYSnRTVzF3UTI5dVpGUm9jbVZ6TENCdWNHVnliVDF1Y0dWeWJTd2diV2x1YzNCc2FYUTliV2x1YzNCc2FYUXNJRzFwYm1KMVkydGxkRDF0YVc1aWRXTnJaWFFwWEc1Y2JpTWdjSEpwYm5RZ2JXOWtaV3dnY0hKbFpHbGpkR2x2YmlCeVpYTjFiSFJ6WEc1eVpYTjFiSFJ6VDNWMFZHOXVZV3d5SkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFZHOXVZV3d5SkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSVWIyNWhiRElrVW5OeGRXRnlaV1JjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG4jIFRvbmFsaXR5XG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dFRvbmFsMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDIkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDIkT09CX01BRVxucmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Tonality
nperm <- 5
resultsOutTonal2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
resultsOutTonal2$OOB_MAE
resultsOutTonal2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVWeHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRJZ1BDMGdZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITmJNVG95WFN3Z2JuUnlaV1U5Ym5SeVpXVXNJRzEwY25rOWJYUnllU3dnY0dWeWJVbHRjRU52Ym1SVWFISmxjejF3WlhKdFNXMXdRMjl1WkZSb2NtVnpMQ0J1Y0dWeWJUMXVjR1Z5YlN3Z2JXbHVjM0JzYVhROWJXbHVjM0JzYVhRc0lHMXBibUoxWTJ0bGREMXRhVzVpZFdOclpYUXBYRzVjYmlNZ2NISnBiblFnYlc5a1pXd2djSEpsWkdsamRHbHZiaUJ5WlhOMWJIUnpYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3lKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3lKRTlQUWw5TlFVVmNibkpsYzNWc2RITlBkWFJVYjI1aGJESWtVbk54ZFdGeVpXUmNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuIyBUb25hbGl0eVxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRUb25hbDIgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc3VsdHNPdXRUb25hbDIkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eVxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRUb25hbDIgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc3VsdHNPdXRUb25hbDIkUnNxdWFyZWRcblxuYGBgXG5gYGAifQ== -->
```r
```r
# Tonality
nperm <- 5
resultsOutTonal2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
resultsOutTonal2$OOB_MAE
resultsOutTonal2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJVYjI1aGJHbDBlVnh1WEc1eVpYTjFiSFJ6VDNWMFZHOXVZV3d5SUR3dElHMTFiSFJwWDJOeVpsSmxaeWhrWVhSaFNXNDljM1JwYlVSaGRHRk9kVzBzSUdsV1lYSnpQV2xXWVhKekxDQmtWbUZ5UFdSV1lYSXNJSE5sWldSelBYTmxaV1J6TENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJVYjI1aGJESWtUMDlDWDFKTlUwVmNibkpsYzNWc2RITlBkWFJVYjI1aGJESWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pUlNjM0YxWVhKbFpGeHVYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbiMgVG9uYWxpdHlcblxucmVzdWx0c091dFRvbmFsMiA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc3VsdHNPdXRUb25hbDIkUnNxdWFyZWRcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Tonality
resultsOutTonal2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
resultsOutTonal2$OOB_MAE
resultsOutTonal2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QlViMjVoYkdsMGVWeHVYRzV5WlhOMWJIUnpUM1YwVkc5dVlXd3lJRHd0SUcxMWJIUnBYMk55WmxKbFp5aGtZWFJoU1c0OWMzUnBiVVJoZEdGT2RXMHNJR2xXWVhKelBXbFdZWEp6TENCa1ZtRnlQV1JXWVhJc0lITmxaV1J6UFhObFpXUnpMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRJa1QwOUNYMUpOVTBWY2JuSmxjM1ZzZEhOUGRYUlViMjVoYkRJa1QwOUNYMDFCUlZ4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWlSU2MzRjFZWEpsWkZ4dVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbiMgVG9uYWxpdHlcblxucmVzdWx0c091dFRvbmFsMiA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc3VsdHNPdXRUb25hbDIkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBUb25hbGl0eVxuXG5yZXN1bHRzT3V0VG9uYWwyIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRUb25hbDIkT09CX1JNU0VcbnJlc3VsdHNPdXRUb25hbDIkT09CX01BRVxucmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# Tonality
resultsOutTonal2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutTonal2$OOB_RMSE
resultsOutTonal2$OOB_MAE
resultsOutTonal2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMFJwWm1ZZ2RHOXVZV3dnYm04Z2JHOTFaQ2NzSUNkU1RWTkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRGUnZibUZzTWlSUFQwSmZVazFUUlZ4dWNtVnpaRWhwUVc1dWIzbEdhWFJCUWxzblJHbG1aaUIwYjI1aGJDQnVieUJzYjNWa0p5d2dKMDFCUlNkZElEd3RJSEpsYzNWc2RITlBkWFJVYjI1aGJESWtUMDlDWDAxQlJWeHVjbVZ6WkVocFFXNXViM2xHYVhSQlFsc25SR2xtWmlCMGIyNWhiQ0J1YnlCc2IzVmtKeXdnSjFKemNYVmhjbVZrSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pUlNjM0YxWVhKbFpGeHVjbVZ6WkVocFFXNXViM2xRWlhKdFNXMXdRVUlrUkdsbVpsUnZibUZzTWlBOExTQnlaWE4xYkhSelQzVjBWRzl1WVd3eUpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQmNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIHRvbmFsIG5vIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRUb25hbDIkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgdG9uYWwgbm8gbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgdG9uYWwgbm8gbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRUb25hbDIkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJERpZmZUb25hbDIgPC0gcmVzdWx0c091dFRvbmFsMiRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# store results
resdHiAnnoyFitAB['Diff tonal no loud', 'RMSE'] <- resultsOutTonal2$OOB_RMSE
resdHiAnnoyFitAB['Diff tonal no loud', 'MAE'] <- resultsOutTonal2$OOB_MAE
resdHiAnnoyFitAB['Diff tonal no loud', 'Rsquared'] <- resultsOutTonal2$Rsquared
resdHiAnnoyPermImpAB$DiffTonal2 <- resultsOutTonal2$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowUnBabVlnZEc5dVlXd2dibThnYkc5MVpDY3NJQ2RTVFZORkoxMGdQQzBnY21WemRXeDBjMDkxZEZSdmJtRnNNaVJQVDBKZlVrMVRSVnh1Y21WelpFaHBRVzV1YjNsR2FYUkJRbHNuUkdsbVppQjBiMjVoYkNCdWJ5QnNiM1ZrSnl3Z0owMUJSU2RkSUR3dElISmxjM1ZzZEhOUGRYUlViMjVoYkRJa1QwOUNYMDFCUlZ4dWNtVnpaRWhwUVc1dWIzbEdhWFJCUWxzblJHbG1aaUIwYjI1aGJDQnVieUJzYjNWa0p5d2dKMUp6Y1hWaGNtVmtKMTBnUEMwZ2NtVnpkV3gwYzA5MWRGUnZibUZzTWlSU2MzRjFZWEpsWkZ4dWNtVnpaRWhwUVc1dWIzbFFaWEp0U1cxd1FVSWtSR2xtWmxSdmJtRnNNaUE4TFNCeVpYTjFiSFJ6VDNWMFZHOXVZV3d5SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhCY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiB0b25hbCBubyBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0VG9uYWwyJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIHRvbmFsIG5vIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFRvbmFsMiRPT0JfTUFFXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIHRvbmFsIG5vIGxvdWQnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0VG9uYWwyJFJzcXVhcmVkXG5yZXNkSGlBbm5veVBlcm1JbXBBQiREaWZmVG9uYWwyIDwtIHJlc3VsdHNPdXRUb25hbDIkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgdG9uYWwgbm8gbG91ZCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFRvbmFsMiRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiB0b25hbCBubyBsb3VkJywgJ01BRSddIDwtIHJlc3VsdHNPdXRUb25hbDIkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiB0b25hbCBubyBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFRvbmFsMiRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkRGlmZlRvbmFsMiA8LSByZXN1bHRzT3V0VG9uYWwyJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdHiAnnoyFitAB['Diff tonal no loud', 'RMSE'] <- resultsOutTonal2$OOB_RMSE
resdHiAnnoyFitAB['Diff tonal no loud', 'MAE'] <- resultsOutTonal2$OOB_MAE
resdHiAnnoyFitAB['Diff tonal no loud', 'Rsquared'] <- resultsOutTonal2$Rsquared
resdHiAnnoyPermImpAB$DiffTonal2 <- resultsOutTonal2$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pNWpiMjVwYlhBZ1BDMGdZWEp5WVc1blpTaHlaWE4xYkhSelQzVjBWRzl1WVd3eUpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQXNJR1JsYzJNb2NtOTNYMjUxYldKbGNpZ3BLU2xjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEZSdmJtRnNNaTVqYjI1cGJYQXBJQ3NnWjJWdmJWOWpiMndvWVdWektIZzlabUZqZEc5eUtISnZkMjVoYldWektISmxjM1ZzZEhOUGRYUlViMjVoYkRJdVkyOXVhVzF3S1N3Z2JHVjJaV3h6UFhKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVWIyNWhiREl1WTI5dWFXMXdLU2tzSUhrOVEyOXVaRkJsY20xSmJYQXBMQ0JtYVd4c1BXMTVZMjlzYjNWeWMxc3pYU3dnZDJsa2RHZzlNQzQxS1NBcklHeGhZbk1vZUQxY0lsWmhjbWxoWW14bFhDSXNJSGs5WENKRGIyNWthWFJwYjI1aGJDQjJZWEpwWVdKc1pTQndaWEp0ZFhSaGRHbHZiaUJwYlhCdmNuUmhibU5sSUNnbElHaHBaMmhzZVNCaGJtNXZlV1ZrS1Z3aUtTQXJJR2RuZEdsMGJHVW9YQ0prVkc5dVlXeHBkSGtnZHk5dklIUnZibUZzSUd4dmRXUnVaWE56WENJcElDc2dkR2hsYldVb2RHVjRkQ0E5SUdWc1pXMWxiblJmZEdWNGRDaG1ZVzFwYkhrZ1BTQmNJbk5sY21sbVhDSXBMQ0J3WVc1bGJDNW5jbWxrUFdWc1pXMWxiblJmYkdsdVpTaGpiMnh2Y2lBOUlISm5ZaWd5TXpVc0lESXpOU3dnTWpNMUxDQXhNREFzSUcxaGVFTnZiRzl5Vm1Gc2RXVWdQU0F5TlRVcExDQnNhVzVsZDJsa2RHZ2dQU0F3TGpJMUxDQnNhVzVsZEhsd1pTQTlJRElwS1NBcklHTnZiM0prWDJac2FYQW9lV3hwYlQxaktEQXNJRFV3S1NsY2JuQkNZWEpjYmx4dWFXWWdLSE5oZG1Wd2JHOTBjeWw3WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY0lsQjBjMEZDWkVocFFXNXViM2xrVkc5dVlXeERiMjVRWlhKdGFXMXdMbk4yWjF3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pd2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p6ZG1kY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNaRWhwUVc1dWIzbGtWRzl1WVd4RGIyNVFaWEp0YVcxd0xuTjJaMXdpS1Z4dUlDQmNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtTR2xCYm01dmVXUlViMjVoYkVOdmJsQmxjbTFwYlhBdWNHUm1YQ0lzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB5TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luQmtabHdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1NHbEJibTV2ZVdSVWIyNWhiRU52YmxCbGNtMXBiWEF1Y0dSbVhDSXBYRzU5WEc1Y2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFRvbmFsMi5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0VG9uYWwyJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dFRvbmFsMi5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1szXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIGdndGl0bGUoXFxkVG9uYWxpdHkgdy9vIHRvbmFsIGxvdWRuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDUwKSlcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lkVG9uYWxDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lkVG9uYWxDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veWRUb25hbENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veWRUb25hbENvblBlcm1pbXAucGRmXFwpXG59XG5cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal2.conimp <- arrange(resultsOutTonal2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal2.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal2.conimp), levels=rownames(resultsOutTonal2.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\dTonality w/o tonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 50))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoydTonalConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoydTonalConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoydTonalConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoydTonalConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGUnZibUZzTWk1amIyNXBiWEFnUEMwZ1lYSnlZVzVuWlNoeVpYTjFiSFJ6VDNWMFZHOXVZV3d5SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhBc0lHUmxjMk1vY205M1gyNTFiV0psY2lncEtTbGNibHh1Y0VKaGNpQThMU0JuWjNCc2IzUW9jbVZ6ZFd4MGMwOTFkRlJ2Ym1Gc01pNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVWIyNWhiREl1WTI5dWFXMXdLU3dnYkdWMlpXeHpQWEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJVYjI1aGJESXVZMjl1YVcxd0tTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzelhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjWEZaaGNtbGhZbXhsWEZ3c0lIazlYRnhEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxJQ2dsSUdocFoyaHNlU0JoYm01dmVXVmtLVnhjS1NBcklHZG5kR2wwYkdVb1hGeGtWRzl1WVd4cGRIa2dkeTl2SUhSdmJtRnNJR3h2ZFdSdVpYTnpYRndwSUNzZ2RHaGxiV1VvZEdWNGRDQTlJR1ZzWlcxbGJuUmZkR1Y0ZENobVlXMXBiSGtnUFNCY1hITmxjbWxtWEZ3cExDQndZVzVsYkM1bmNtbGtQV1ZzWlcxbGJuUmZiR2x1WlNoamIyeHZjaUE5SUhKbllpZ3lNelVzSURJek5Td2dNak0xTENBeE1EQXNJRzFoZUVOdmJHOXlWbUZzZFdVZ1BTQXlOVFVwTENCc2FXNWxkMmxrZEdnZ1BTQXdMakkxTENCc2FXNWxkSGx3WlNBOUlESXBLU0FySUdOdmIzSmtYMlpzYVhBb2VXeHBiVDFqS0RBc0lEVXdLU2xjYm5CQ1lYSmNibHh1YVdZZ0tITmhkbVZ3Ykc5MGN5bDdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjWEZCMGMwRkNaRWhwUVc1dWIzbGtWRzl1WVd4RGIyNVFaWEp0YVcxd0xuTjJaMXhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWl3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHpkbWRjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1pFaHBRVzV1YjNsa1ZHOXVZV3hEYjI1UVpYSnRhVzF3TG5OMloxeGNLVnh1SUNCY2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1NHbEJibTV2ZVdSVWIyNWhiRU52YmxCbGNtMXBiWEF1Y0dSbVhGd3NJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHlMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhCa1pseGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprU0dsQmJtNXZlV1JVYjI1aGJFTnZibEJsY20xcGJYQXVjR1JtWEZ3cFhHNTlYRzVjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRUb25hbDIuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFRvbmFsMiRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwyLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0VG9uYWwyLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbM10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcZFRvbmFsaXR5IHcvbyB0b25hbCBsb3VkbmVzc1xcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCA1MCkpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95ZFRvbmFsQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95ZFRvbmFsQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lkVG9uYWxDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lkVG9uYWxDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFRvbmFsMi5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0VG9uYWwyJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dFRvbmFsMi5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRUb25hbDIuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1szXSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIGdndGl0bGUoXFxkVG9uYWxpdHkgdy9vIHRvbmFsIGxvdWRuZXNzXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDUwKSlcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lkVG9uYWxDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lkVG9uYWxDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veWRUb25hbENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veWRUb25hbENvblBlcm1pbXAucGRmXFwpXG59XG5cblxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutTonal2.conimp <- arrange(resultsOutTonal2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutTonal2.conimp) + geom_col(aes(x=factor(rownames(resultsOutTonal2.conimp), levels=rownames(resultsOutTonal2.conimp)), y=CondPermImp), fill=mycolours[3], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\dTonality w/o tonal loudness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 50))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoydTonalConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoydTonalConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoydTonalConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoydTonalConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVrVkc5dVlXeFdZWElnUEMwZ1hDSmtWRzl1WVd4VFNFMUpiblJCZG1kTllYaE1VbHdpWEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbmRUb25hbFZhciA8LSBcXGRUb25hbFNITUludEF2Z01heExSXFxcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
dTonalVar <- \dTonalSHMIntAvgMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWtWRzl1WVd4V1lYSWdQQzBnWEZ4a1ZHOXVZV3hUU0UxSmJuUkJkbWROWVhoTVVseGNYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG5kVG9uYWxWYXIgPC0gXFxkVG9uYWxTSE1JbnRBdmdNYXhMUlxcXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5kVG9uYWxWYXIgPC0gXFxkVG9uYWxTSE1JbnRBdmdNYXhMUlxcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
dTonalVar <- \dTonalSHMIntAvgMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### dFluctuation strength
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUVac2RXTjBkV0YwYVc5dUlITjBjbVZ1WjNSb1hHNXBWbUZ5Y3lBOExTQmpLR1JwWm1aV1lYSXNJR1YyWlc1MFZtRnlMQ0JjSW1SR2JIVmpkRk5JVFRFd1JYaENhVzVjSWl3Z1hDSmtSbXgxWTNSVFNFMHdOVVY0UW1sdVhDSXNJRndpWkVac2RXTjBUMVl4TUVWNFRXRjRURkpjSWl3Z1hDSmtSbXgxWTNSUFZqQTFSWGhOWVhoTVVsd2lLVnh1WkZaaGNpQThMU0JjSW1SSWFXZG9RVzV1YjNsUVkxd2lYRzVjYm5ObFpXUnpJRHd0SUdNb05ERTROalUzTENBNE5Dd2dNVFl6TUN3Z01UZzJOVGtzSURNMk9EY3BYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuIyBGbHVjdHVhdGlvbiBzdHJlbmd0aFxuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgXFxkRmx1Y3RTSE0xMEV4QmluXFwsIFxcZEZsdWN0U0hNMDVFeEJpblxcLCBcXGRGbHVjdE9WMTBFeE1heExSXFwsIFxcZEZsdWN0T1YwNUV4TWF4TFJcXClcbmRWYXIgPC0gXFxkSGlnaEFubm95UGNcXFxuXG5zZWVkcyA8LSBjKDQxODY1NywgODQsIDE2MzAsIDE4NjU5LCAzNjg3KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Fluctuation strength
iVars <- c(diffVar, eventVar, \dFluctSHM10ExBin\, \dFluctSHM05ExBin\, \dFluctOV10ExMaxLR\, \dFluctOV05ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(418657, 84, 1630, 18659, 3687)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRVpzZFdOMGRXRjBhVzl1SUhOMGNtVnVaM1JvWEc1cFZtRnljeUE4TFNCaktHUnBabVpXWVhJc0lHVjJaVzUwVm1GeUxDQmNYR1JHYkhWamRGTklUVEV3UlhoQ2FXNWNYQ3dnWEZ4a1JteDFZM1JUU0Uwd05VVjRRbWx1WEZ3c0lGeGNaRVpzZFdOMFQxWXhNRVY0VFdGNFRGSmNYQ3dnWEZ4a1JteDFZM1JQVmpBMVJYaE5ZWGhNVWx4Y0tWeHVaRlpoY2lBOExTQmNYR1JJYVdkb1FXNXViM2xRWTF4Y1hHNWNibk5sWldSeklEd3RJR01vTkRFNE5qVTNMQ0E0TkN3Z01UWXpNQ3dnTVRnMk5Ua3NJRE0yT0RjcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbiMgRmx1Y3R1YXRpb24gc3RyZW5ndGhcbmlWYXJzIDwtIGMoZGlmZlZhciwgZXZlbnRWYXIsIFxcZEZsdWN0U0hNMTBFeEJpblxcLCBcXGRGbHVjdFNITTA1RXhCaW5cXCwgXFxkRmx1Y3RPVjEwRXhNYXhMUlxcLCBcXGRGbHVjdE9WMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg0MTg2NTcsIDg0LCAxNjMwLCAxODY1OSwgMzY4NylcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIEZsdWN0dWF0aW9uIHN0cmVuZ3RoXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRGbHVjdFNITTEwRXhCaW5cXCwgXFxkRmx1Y3RTSE0wNUV4QmluXFwsIFxcZEZsdWN0T1YxMEV4TWF4TFJcXCwgXFxkRmx1Y3RPVjA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoNDE4NjU3LCA4NCwgMTYzMCwgMTg2NTksIDM2ODcpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# Fluctuation strength
iVars <- c(diffVar, eventVar, \dFluctSHM10ExBin\, \dFluctSHM05ExBin\, \dFluctOV10ExMaxLR\, \dFluctOV05ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(418657, 84, 1630, 18659, 3687)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F5TlRGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU56VXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gMjUxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjc1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 251
mtry <- as.integer(length(iVars)/1.75)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXlOVEZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TnpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDI1MVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS43NSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAyNTFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 251
mtry <- as.integer(length(iVars)/1.75)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUkdiSFZqZENBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJHYkhWamRDUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRVpzZFdOMEpFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUkdiSFZqZENSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutFluct <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
resultsOutFluct$OOB_MAE
resultsOutFluct$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSR2JIVmpkQ0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUkdiSFZqZENSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRFWnNkV04wSkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSR2JIVmpkQ1JTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutFluct <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
resultsOutFluct$OOB_MAE
resultsOutFluct$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwUm14MVkzUWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRFWnNkV04wSkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFJteDFZM1FrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEVac2RXTjBKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dEZsdWN0IDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutFluct <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
resultsOutFluct$OOB_MAE
resultsOutFluct$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBSbXgxWTNRZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEVac2RXTjBKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwUm14MVkzUWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRVpzZFdOMEpGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRGbHVjdCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0Rmx1Y3QkT09CX1JNU0VcbnJlc3VsdHNPdXRGbHVjdCRPT0JfTUFFXG5yZXN1bHRzT3V0Rmx1Y3QkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0Rmx1Y3QgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEZsdWN0JE9PQl9STVNFXG5yZXN1bHRzT3V0Rmx1Y3QkT09CX01BRVxucmVzdWx0c091dEZsdWN0JFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutFluct <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutFluct$OOB_RMSE
resultsOutFluct$OOB_MAE
resultsOutFluct$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMFJwWm1ZZ1pteDFZM1FuTENBblVrMVRSU2RkSUR3dElISmxjM1ZzZEhOUGRYUkdiSFZqZENSUFQwSmZVazFUUlZ4dWNtVnpaRWhwUVc1dWIzbEdhWFJCUWxzblJHbG1aaUJtYkhWamRDY3NJQ2ROUVVVblhTQThMU0J5WlhOMWJIUnpUM1YwUm14MVkzUWtUMDlDWDAxQlJWeHVjbVZ6WkVocFFXNXViM2xHYVhSQlFsc25SR2xtWmlCbWJIVmpkQ2NzSUNkU2MzRjFZWEpsWkNkZElEd3RJSEpsYzNWc2RITlBkWFJHYkhWamRDUlNjM0YxWVhKbFpGeHVjbVZ6WkVocFFXNXViM2xRWlhKdFNXMXdRVUlrUkdsbVprWnNkV04wSUR3dElISmxjM1ZzZEhOUGRYUkdiSFZqZENSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd1hHNWNibUJnWUNKOSAtLT5cblxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgZmx1Y3QnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiBmbHVjdCcsICdNQUUnXSA8LSByZXN1bHRzT3V0Rmx1Y3QkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiBmbHVjdCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkRGlmZkZsdWN0IDwtIHJlc3VsdHNPdXRGbHVjdCRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# store results
resdHiAnnoyFitAB['Diff fluct', 'RMSE'] <- resultsOutFluct$OOB_RMSE
resdHiAnnoyFitAB['Diff fluct', 'MAE'] <- resultsOutFluct$OOB_MAE
resdHiAnnoyFitAB['Diff fluct', 'Rsquared'] <- resultsOutFluct$Rsquared
resdHiAnnoyPermImpAB$DiffFluct <- resultsOutFluct$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowUnBabVlnWm14MVkzUW5MQ0FuVWsxVFJTZGRJRHd0SUhKbGMzVnNkSE5QZFhSR2JIVmpkQ1JQVDBKZlVrMVRSVnh1Y21WelpFaHBRVzV1YjNsR2FYUkJRbHNuUkdsbVppQm1iSFZqZENjc0lDZE5RVVVuWFNBOExTQnlaWE4xYkhSelQzVjBSbXgxWTNRa1QwOUNYMDFCUlZ4dWNtVnpaRWhwUVc1dWIzbEdhWFJCUWxzblJHbG1aaUJtYkhWamRDY3NJQ2RTYzNGMVlYSmxaQ2RkSUR3dElISmxjM1ZzZEhOUGRYUkdiSFZqZENSU2MzRjFZWEpsWkZ4dWNtVnpaRWhwUVc1dWIzbFFaWEp0U1cxd1FVSWtSR2xtWmtac2RXTjBJRHd0SUhKbGMzVnNkSE5QZFhSR2JIVmpkQ1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3WEc1Y2JtQmdZRnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbmBgYHJcblxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIGZsdWN0JywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0Rmx1Y3QkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgZmx1Y3QnLCAnTUFFJ10gPC0gcmVzdWx0c091dEZsdWN0JE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgZmx1Y3QnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0Rmx1Y3QkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJERpZmZGbHVjdCA8LSByZXN1bHRzT3V0Rmx1Y3QkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgZmx1Y3QnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRGbHVjdCRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiBmbHVjdCcsICdNQUUnXSA8LSByZXN1bHRzT3V0Rmx1Y3QkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiBmbHVjdCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRGbHVjdCRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkRGlmZkZsdWN0IDwtIHJlc3VsdHNPdXRGbHVjdCRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# store results
resdHiAnnoyFitAB['Diff fluct', 'RMSE'] <- resultsOutFluct$OOB_RMSE
resdHiAnnoyFitAB['Diff fluct', 'MAE'] <- resultsOutFluct$OOB_MAE
resdHiAnnoyFitAB['Diff fluct', 'Rsquared'] <- resultsOutFluct$Rsquared
resdHiAnnoyPermImpAB$DiffFluct <- resultsOutFluct$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRVpzZFdOMExtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUkdiSFZqZENSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJHYkhWamRDNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSR2JIVmpkQzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRVpzZFdOMExtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTkYwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9KU0JvYVdkb2JIa2dZVzV1YjNsbFpDbGNJaWtnS3lCblozUnBkR3hsS0Z3aVpFWnNkV04wZFdGMGFXOXVJSE4wY21WdVozUm9YQ0lwSUNzZ2RHaGxiV1VvZEdWNGRDQTlJR1ZzWlcxbGJuUmZkR1Y0ZENobVlXMXBiSGtnUFNCY0luTmxjbWxtWENJcExDQndZVzVsYkM1bmNtbGtQV1ZzWlcxbGJuUmZiR2x1WlNoamIyeHZjaUE5SUhKbllpZ3lNelVzSURJek5Td2dNak0xTENBeE1EQXNJRzFoZUVOdmJHOXlWbUZzZFdVZ1BTQXlOVFVwTENCc2FXNWxkMmxrZEdnZ1BTQXdMakkxTENCc2FXNWxkSGx3WlNBOUlESXBLU0FySUdOdmIzSmtYMlpzYVhBb0tWeHVjRUpoY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWd2lVSFJ6UVVKa1NHbEJibTV2ZVdSR2JIVmpkRU52YmxCbGNtMXBiWEF1YzNablhDSXNJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHlMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjSW5OMloxd2lLU2xjYmlBZ2RXNXNhVzVyS0Z3aVVIUnpRVUprU0dsQmJtNXZlVVpzZFdOMFEyOXVVR1Z5YldsdGNDNXpkbWRjSWlsY2JpQWdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjSWxCMGMwRkNaRWhwUVc1dWIzbGtSbXgxWTNSRGIyNVFaWEp0YVcxd0xuQmtabHdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWl3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSndaR1pjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1pFaHBRVzV1YjNsR2JIVmpkRU52YmxCbGNtMXBiWEF1Y0dSbVhDSXBYRzU5WEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0Rmx1Y3QuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dEZsdWN0JGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEZsdWN0LmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dEZsdWN0LmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0Rmx1Y3QuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s0XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIGdndGl0bGUoXFxkRmx1Y3R1YXRpb24gc3RyZW5ndGhcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95ZEZsdWN0Q29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95Rmx1Y3RDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veWRGbHVjdENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUZsdWN0Q29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutFluct.conimp <- arrange(resultsOutFluct$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutFluct.conimp) + geom_col(aes(x=factor(rownames(resultsOutFluct.conimp), levels=rownames(resultsOutFluct.conimp)), y=CondPermImp), fill=mycolours[4], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\dFluctuation strength\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoydFluctConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyFluctConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoydFluctConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyFluctConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRFWnNkV04wTG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSR2JIVmpkQ1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUkdiSFZqZEM1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJHYkhWamRDNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRFWnNkV04wTG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJORjBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb0pTQm9hV2RvYkhrZ1lXNXViM2xsWkNsY1hDa2dLeUJuWjNScGRHeGxLRnhjWkVac2RXTjBkV0YwYVc5dUlITjBjbVZ1WjNSb1hGd3BJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjWEhObGNtbG1YRndwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJJR052YjNKa1gyWnNhWEFvS1Z4dWNFSmhjbHh1WEc1cFppQW9jMkYyWlhCc2IzUnpLWHRjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ4Y1VIUnpRVUprU0dsQmJtNXZlV1JHYkhWamRFTnZibEJsY20xcGJYQXVjM1puWEZ3c0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQweUxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNYSE4yWjF4Y0tTbGNiaUFnZFc1c2FXNXJLRnhjVUhSelFVSmtTR2xCYm01dmVVWnNkV04wUTI5dVVHVnliV2x0Y0M1emRtZGNYQ2xjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNYRkIwYzBGQ1pFaHBRVzV1YjNsa1JteDFZM1JEYjI1UVpYSnRhVzF3TG5Ca1pseGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNaXdnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4d1pHWmNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWkVocFFXNXViM2xHYkhWamRFTnZibEJsY20xcGJYQXVjR1JtWEZ3cFhHNTlYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEZsdWN0LmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRGbHVjdCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRGbHVjdC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRGbHVjdC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEZsdWN0LmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNF0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcZEZsdWN0dWF0aW9uIHN0cmVuZ3RoXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veWRGbHVjdENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUZsdWN0Q29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lkRmx1Y3RDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lGbHVjdENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEZsdWN0LmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRGbHVjdCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRGbHVjdC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRGbHVjdC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dEZsdWN0LmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNF0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcZEZsdWN0dWF0aW9uIHN0cmVuZ3RoXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veWRGbHVjdENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veUZsdWN0Q29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lkRmx1Y3RDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lGbHVjdENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgIn0= -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutFluct.conimp <- arrange(resultsOutFluct$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutFluct.conimp) + geom_col(aes(x=factor(rownames(resultsOutFluct.conimp), levels=rownames(resultsOutFluct.conimp)), y=CondPermImp), fill=mycolours[4], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\dFluctuation strength\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoydFluctConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyFluctConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoydFluctConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyFluctConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVrUm14MVkzUldZWElnUEMwZ1hDSmtSbXgxWTNSVFNFMHhNRVY0UW1sdVhDSmNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuZEZsdWN0VmFyIDwtIFxcZEZsdWN0U0hNMTBFeEJpblxcXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
dFluctVar <- \dFluctSHM10ExBin\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWtSbXgxWTNSV1lYSWdQQzBnWEZ4a1JteDFZM1JUU0UweE1FVjRRbWx1WEZ4Y2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbmRGbHVjdFZhciA8LSBcXGRGbHVjdFNITTEwRXhCaW5cXFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5kRmx1Y3RWYXIgPC0gXFxkRmx1Y3RTSE0xMEV4QmluXFxcblxuYGBgXG5gYGAifQ== -->
```r
```r
dFluctVar <- \dFluctSHM10ExBin\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### dRoughness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUZKdmRXZG9ibVZ6YzF4dWFWWmhjbk1nUEMwZ1l5aGthV1ptVm1GeUxDQmxkbVZ1ZEZaaGNpd2dYQ0prVW05MVoyaEZRMDFCTVRCRmVFSnBibHdpTENCY0ltUlNiM1ZuYUVWRFRVRXdOVVY0UW1sdVhDSXNJRndpWkZKdmRXZG9SbG94TUVWNFRXRjRURkpjSWl3Z1hDSmtVbTkxWjJoR1dqQTFSWGhOWVhoTVVsd2lLVnh1WkZaaGNpQThMU0JjSW1SSWFXZG9RVzV1YjNsUVkxd2lYRzVjYm5ObFpXUnpJRHd0SUdNb05qazROVEVzSURnMU1UQTVMQ0EwTVRBNU9EWXNJREUxTmpNc0lEZzVOaWxjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbiMgUm91Z2huZXNzXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRSb3VnaEVDTUExMEV4QmluXFwsIFxcZFJvdWdoRUNNQTA1RXhCaW5cXCwgXFxkUm91Z2hGWjEwRXhNYXhMUlxcLCBcXGRSb3VnaEZaMDVFeE1heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg2OTg1MSwgODUxMDksIDQxMDk4NiwgMTU2MywgODk2KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Roughness
iVars <- c(diffVar, eventVar, \dRoughECMA10ExBin\, \dRoughECMA05ExBin\, \dRoughFZ10ExMaxLR\, \dRoughFZ05ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(69851, 85109, 410986, 1563, 896)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJRkp2ZFdkb2JtVnpjMXh1YVZaaGNuTWdQQzBnWXloa2FXWm1WbUZ5TENCbGRtVnVkRlpoY2l3Z1hGeGtVbTkxWjJoRlEwMUJNVEJGZUVKcGJseGNMQ0JjWEdSU2IzVm5hRVZEVFVFd05VVjRRbWx1WEZ3c0lGeGNaRkp2ZFdkb1Jsb3hNRVY0VFdGNFRGSmNYQ3dnWEZ4a1VtOTFaMmhHV2pBMVJYaE5ZWGhNVWx4Y0tWeHVaRlpoY2lBOExTQmNYR1JJYVdkb1FXNXViM2xRWTF4Y1hHNWNibk5sWldSeklEd3RJR01vTmprNE5URXNJRGcxTVRBNUxDQTBNVEE1T0RZc0lERTFOak1zSURnNU5pbGNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG4jIFJvdWdobmVzc1xuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgXFxkUm91Z2hFQ01BMTBFeEJpblxcLCBcXGRSb3VnaEVDTUEwNUV4QmluXFwsIFxcZFJvdWdoRloxMEV4TWF4TFJcXCwgXFxkUm91Z2hGWjA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoNjk4NTEsIDg1MTA5LCA0MTA5ODYsIDE1NjMsIDg5NilcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIFJvdWdobmVzc1xuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgXFxkUm91Z2hFQ01BMTBFeEJpblxcLCBcXGRSb3VnaEVDTUEwNUV4QmluXFwsIFxcZFJvdWdoRloxMEV4TWF4TFJcXCwgXFxkUm91Z2hGWjA1RXhNYXhMUlxcKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoNjk4NTEsIDg1MTA5LCA0MTA5ODYsIDE1NjMsIDg5NilcblxuYGBgXG5gYGAifQ== -->
```r
```r
# Roughness
iVars <- c(diffVar, eventVar, \dRoughECMA10ExBin\, \dRoughECMA05ExBin\, \dRoughFZ10ExMaxLR\, \dRoughFZ05ExMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(69851, 85109, 410986, 1563, 896)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F5TlRGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU56VXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gMjUxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjc1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 251
mtry <- as.integer(length(iVars)/1.75)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXlOVEZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TnpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDI1MVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS43NSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAyNTFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuNzUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 251
mtry <- as.integer(length(iVars)/1.75)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlNiM1ZuYUNBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJTYjNWbmFDUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0pFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUlNiM1ZuYUNSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc3VsdHNPdXRSb3VnaCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutRough <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
resultsOutRough$OOB_MAE
resultsOutRough$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSU2IzVm5hQ0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlNiM1ZuYUNSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRGSnZkV2RvSkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSU2IzVm5hQ1JTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc3VsdHNPdXRSb3VnaCRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc3VsdHNPdXRSb3VnaCRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutRough <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
resultsOutRough$OOB_MAE
resultsOutRough$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVW05MVoyZ2dQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGSnZkV2RvSkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFVtOTFaMmdrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZKdmRXZG9KRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dFJvdWdoIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRSb3VnaCRPT0JfUk1TRVxucmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc3VsdHNPdXRSb3VnaCRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutRough <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
resultsOutRough$OOB_MAE
resultsOutRough$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVbTkxWjJnZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZKdmRXZG9KRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwVW05MVoyZ2tUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0pGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRSb3VnaCA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0Um91Z2gkT09CX1JNU0VcbnJlc3VsdHNPdXRSb3VnaCRPT0JfTUFFXG5yZXN1bHRzT3V0Um91Z2gkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0Um91Z2ggPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFJvdWdoJE9PQl9STVNFXG5yZXN1bHRzT3V0Um91Z2gkT09CX01BRVxucmVzdWx0c091dFJvdWdoJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutRough <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutRough$OOB_RMSE
resultsOutRough$OOB_MAE
resultsOutRough$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJ6ZEc5eVpTQnlaWE4xYkhSelhHNXlaWE5rU0dsQmJtNXZlVVpwZEVGQ1d5ZEVhV1ptSUhKdmRXZG9KeXdnSjFKTlUwVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFVtOTFaMmdrVDA5Q1gxSk5VMFZjYm5KbGMyUklhVUZ1Ym05NVJtbDBRVUpiSjBScFptWWdjbTkxWjJnbkxDQW5UVUZGSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0pFOVBRbDlOUVVWY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowUnBabVlnY205MVoyZ25MQ0FuVW5OeGRXRnlaV1FuWFNBOExTQnlaWE4xYkhSelQzVjBVbTkxWjJna1VuTnhkV0Z5WldSY2JuSmxjMlJJYVVGdWJtOTVVR1Z5YlVsdGNFRkNKRVJwWm1aU2IzVm5hQ0E4TFNCeVpYTjFiSFJ6VDNWMFVtOTFaMmdrWTI5dVpHbDBhVzl1WVd4ZmNHVnliV2x0Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIHJvdWdoJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0Um91Z2gkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgcm91Z2gnLCAnTUFFJ10gPC0gcmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgcm91Z2gnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0Um91Z2gkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJERpZmZSb3VnaCA8LSByZXN1bHRzT3V0Um91Z2gkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdHiAnnoyFitAB['Diff rough', 'RMSE'] <- resultsOutRough$OOB_RMSE
resdHiAnnoyFitAB['Diff rough', 'MAE'] <- resultsOutRough$OOB_MAE
resdHiAnnoyFitAB['Diff rough', 'Rsquared'] <- resultsOutRough$Rsquared
resdHiAnnoyPermImpAB$DiffRough <- resultsOutRough$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QnpkRzl5WlNCeVpYTjFiSFJ6WEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkRWFXWm1JSEp2ZFdkb0p5d2dKMUpOVTBVblhTQThMU0J5WlhOMWJIUnpUM1YwVW05MVoyZ2tUMDlDWDFKTlUwVmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMFJwWm1ZZ2NtOTFaMmduTENBblRVRkZKMTBnUEMwZ2NtVnpkV3gwYzA5MWRGSnZkV2RvSkU5UFFsOU5RVVZjYm5KbGMyUklhVUZ1Ym05NVJtbDBRVUpiSjBScFptWWdjbTkxWjJnbkxDQW5Vbk54ZFdGeVpXUW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFVtOTFaMmdrVW5OeGRXRnlaV1JjYm5KbGMyUklhVUZ1Ym05NVVHVnliVWx0Y0VGQ0pFUnBabVpTYjNWbmFDQThMU0J5WlhOMWJIUnpUM1YwVW05MVoyZ2tZMjl1WkdsMGFXOXVZV3hmY0dWeWJXbHRjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIHJvdWdoJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0Um91Z2gkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgcm91Z2gnLCAnTUFFJ10gPC0gcmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgcm91Z2gnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0Um91Z2gkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJERpZmZSb3VnaCA8LSByZXN1bHRzT3V0Um91Z2gkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIHJvdWdoJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0Um91Z2gkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgcm91Z2gnLCAnTUFFJ10gPC0gcmVzdWx0c091dFJvdWdoJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgcm91Z2gnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0Um91Z2gkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJERpZmZSb3VnaCA8LSByZXN1bHRzT3V0Um91Z2gkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# store results
resdHiAnnoyFitAB['Diff rough', 'RMSE'] <- resultsOutRough$OOB_RMSE
resdHiAnnoyFitAB['Diff rough', 'MAE'] <- resultsOutRough$OOB_MAE
resdHiAnnoyFitAB['Diff rough', 'Rsquared'] <- resultsOutRough$Rsquared
resdHiAnnoyPermImpAB$DiffRough <- resultsOutRough$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRkp2ZFdkb0xtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlNiM1ZuYUNSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJTYjNWbmFDNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSU2IzVm5hQzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRkp2ZFdkb0xtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTlYwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9KU0JvYVdkb2JIa2dZVzV1YjNsbFpDbGNJaWtnS3lCblozUnBkR3hsS0Z3aVpGSnZkV2RvYm1WemMxd2lLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWENKelpYSnBabHdpS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLeUJqYjI5eVpGOW1iR2x3S0NsY2JuQkNZWEpjYmx4dWFXWWdLSE5oZG1Wd2JHOTBjeWw3WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY0lsQjBjMEZDWkVocFFXNXViM2xrVW05MVoyaERiMjVRWlhKdGFXMXdMbk4yWjF3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pd2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p6ZG1kY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNaRWhwUVc1dWIzbGtVbTkxWjJoRGIyNVFaWEp0YVcxd0xuTjJaMXdpS1Z4dUlDQmNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtTR2xCYm01dmVXUlNiM1ZuYUVOdmJsQmxjbTFwYlhBdWNHUm1YQ0lzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB5TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luQmtabHdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1NHbEJibTV2ZVdSU2IzVm5hRU52YmxCbGNtMXBiWEF1Y0dSbVhDSXBYRzU5WEc1Y2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFJvdWdoLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRSb3VnaCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRSb3VnaC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRSb3VnaC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFJvdWdoLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcZFJvdWdobmVzc1xcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lkUm91Z2hDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lkUm91Z2hDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veWRSb3VnaENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veWRSb3VnaENvblBlcm1pbXAucGRmXFwpXG59XG5cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutRough.conimp <- arrange(resultsOutRough$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutRough.conimp) + geom_col(aes(x=factor(rownames(resultsOutRough.conimp), levels=rownames(resultsOutRough.conimp)), y=CondPermImp), fill=mycolours[5], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\dRoughness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoydRoughConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoydRoughConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoydRoughConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoydRoughConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGSnZkV2RvTG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSU2IzVm5hQ1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlNiM1ZuYUM1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJTYjNWbmFDNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGSnZkV2RvTG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJOVjBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb0pTQm9hV2RvYkhrZ1lXNXViM2xsWkNsY1hDa2dLeUJuWjNScGRHeGxLRnhjWkZKdmRXZG9ibVZ6YzF4Y0tTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYRnh6WlhKcFpseGNLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1NrZ0t5QmpiMjl5WkY5bWJHbHdLQ2xjYm5CQ1lYSmNibHh1YVdZZ0tITmhkbVZ3Ykc5MGN5bDdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjWEZCMGMwRkNaRWhwUVc1dWIzbGtVbTkxWjJoRGIyNVFaWEp0YVcxd0xuTjJaMXhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWl3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHpkbWRjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1pFaHBRVzV1YjNsa1VtOTFaMmhEYjI1UVpYSnRhVzF3TG5OMloxeGNLVnh1SUNCY2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1NHbEJibTV2ZVdSU2IzVm5hRU52YmxCbGNtMXBiWEF1Y0dSbVhGd3NJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHlMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhCa1pseGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprU0dsQmJtNXZlV1JTYjNWbmFFTnZibEJsY20xcGJYQXVjR1JtWEZ3cFhHNTlYRzVjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRSb3VnaC5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0Um91Z2gkY29uZGl0aW9uYWxfcGVybWltcCwgZGVzYyhyb3dfbnVtYmVyKCkpKVxuXG5wQmFyIDwtIGdncGxvdChyZXN1bHRzT3V0Um91Z2guY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0Um91Z2guY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRSb3VnaC5jb25pbXApKSwgeT1Db25kUGVybUltcCksIGZpbGw9bXljb2xvdXJzWzVdLCB3aWR0aD0wLjUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXENvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2UgKCUgaGlnaGx5IGFubm95ZWQpXFwpICsgZ2d0aXRsZShcXGRSb3VnaG5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95ZFJvdWdoQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95ZFJvdWdoQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lkUm91Z2hDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lkUm91Z2hDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFJvdWdoLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRSb3VnaCRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRSb3VnaC5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRSb3VnaC5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFJvdWdoLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNV0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcZFJvdWdobmVzc1xcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lkUm91Z2hDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lkUm91Z2hDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veWRSb3VnaENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veWRSb3VnaENvblBlcm1pbXAucGRmXFwpXG59XG5cblxuYGBgXG5gYGAifQ== -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutRough.conimp <- arrange(resultsOutRough$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutRough.conimp) + geom_col(aes(x=factor(rownames(resultsOutRough.conimp), levels=rownames(resultsOutRough.conimp)), y=CondPermImp), fill=mycolours[5], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\dRoughness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoydRoughConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoydRoughConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoydRoughConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoydRoughConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVrVW05MVoyaFdZWElnUEMwZ1hDSmtVbTkxWjJoR1dqQTFSWGhOWVhoTVVsd2lYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuZFJvdWdoVmFyIDwtIFxcZFJvdWdoRlowNUV4TWF4TFJcXFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
dRoughVar <- \dRoughFZ05ExMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWtVbTkxWjJoV1lYSWdQQzBnWEZ4a1VtOTFaMmhHV2pBMVJYaE5ZWGhNVWx4Y1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbmRSb3VnaFZhciA8LSBcXGRSb3VnaEZaMDVFeE1heExSXFxcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5kUm91Z2hWYXIgPC0gXFxkUm91Z2hGWjA1RXhNYXhMUlxcXG5cbmBgYFxuYGBgIn0= -->
```r
```r
dRoughVar <- \dRoughFZ05ExMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### dImpulsiveness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJKYlhCMWJITnBkbVZ1WlhOelhHNXBWbUZ5Y3lBOExTQmpLR1JwWm1aV1lYSXNJR1YyWlc1MFZtRnlMQ0JjSW1SSmJYQjFiSE5UU0UxQmRtZE5ZWGhNVWx3aUxDQmNJbVJKYlhCMWJITlRTRTB3TlVWNFRXRjRURkpjSWl3Z1hDSmtTVzF3ZFd4elUwaE5VRzkzUVhablRXRjRURkpjSWlsY2JtUldZWElnUEMwZ1hDSmtTR2xuYUVGdWJtOTVVR05jSWx4dVhHNXpaV1ZrY3lBOExTQmpLRFF4T0RZMU9Td2dOemd3TlN3Z016ZzBOelVzSURZMU9ETTBMQ0F4TmpVektWeHVYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbiMgSW1wdWxzaXZlbmVzc1xuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgXFxkSW1wdWxzU0hNQXZnTWF4TFJcXCwgXFxkSW1wdWxzU0hNMDVFeE1heExSXFwsIFxcZEltcHVsc1NITVBvd0F2Z01heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg0MTg2NTksIDc4MDUsIDM4NDc1LCA2NTgzNCwgMTY1MylcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# Impulsiveness
iVars <- c(diffVar, eventVar, \dImpulsSHMAvgMaxLR\, \dImpulsSHM05ExMaxLR\, \dImpulsSHMPowAvgMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(418659, 7805, 38475, 65834, 1653)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QkpiWEIxYkhOcGRtVnVaWE56WEc1cFZtRnljeUE4TFNCaktHUnBabVpXWVhJc0lHVjJaVzUwVm1GeUxDQmNYR1JKYlhCMWJITlRTRTFCZG1kTllYaE1VbHhjTENCY1hHUkpiWEIxYkhOVFNFMHdOVVY0VFdGNFRGSmNYQ3dnWEZ4a1NXMXdkV3h6VTBoTlVHOTNRWFpuVFdGNFRGSmNYQ2xjYm1SV1lYSWdQQzBnWEZ4a1NHbG5hRUZ1Ym05NVVHTmNYRnh1WEc1elpXVmtjeUE4TFNCaktEUXhPRFkxT1N3Z056Z3dOU3dnTXpnME56VXNJRFkxT0RNMExDQXhOalV6S1Z4dVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbiMgSW1wdWxzaXZlbmVzc1xuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgXFxkSW1wdWxzU0hNQXZnTWF4TFJcXCwgXFxkSW1wdWxzU0hNMDVFeE1heExSXFwsIFxcZEltcHVsc1NITVBvd0F2Z01heExSXFwpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg0MTg2NTksIDc4MDUsIDM4NDc1LCA2NTgzNCwgMTY1MylcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBJbXB1bHNpdmVuZXNzXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBcXGRJbXB1bHNTSE1BdmdNYXhMUlxcLCBcXGRJbXB1bHNTSE0wNUV4TWF4TFJcXCwgXFxkSW1wdWxzU0hNUG93QXZnTWF4TFJcXClcbmRWYXIgPC0gXFxkSGlnaEFubm95UGNcXFxuXG5zZWVkcyA8LSBjKDQxODY1OSwgNzgwNSwgMzg0NzUsIDY1ODM0LCAxNjUzKVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# Impulsiveness
iVars <- c(diffVar, eventVar, \dImpulsSHMAvgMaxLR\, \dImpulsSHM05ExMaxLR\, \dImpulsSHMPowAvgMaxLR\)
dVar <- \dHighAnnoyPc\
seeds <- c(418659, 7805, 38475, 65834, 1653)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F4TURBeFhHNXRkSEo1SUR3dElHRnpMbWx1ZEdWblpYSW9iR1Z1WjNSb0tHbFdZWEp6S1M4eExqSTFLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbm50cmVlIDwtIDEwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
ntree <- 1001
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXhNREF4WEc1dGRISjVJRHd0SUdGekxtbHVkR1ZuWlhJb2JHVnVaM1JvS0dsV1lYSnpLUzh4TGpJMUtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDEwMDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAxMDAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
ntree <- 1001
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUkpiWEIxYkhNZ1BDMGdZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITmJNVG95WFN3Z2JuUnlaV1U5Ym5SeVpXVXNJRzEwY25rOWJYUnllU3dnY0dWeWJVbHRjRU52Ym1SVWFISmxjejF3WlhKdFNXMXdRMjl1WkZSb2NtVnpMQ0J1Y0dWeWJUMXVjR1Z5YlN3Z2JXbHVjM0JzYVhROWJXbHVjM0JzYVhRc0lHMXBibUoxWTJ0bGREMXRhVzVpZFdOclpYUXBYRzVjYmlNZ2NISnBiblFnYlc5a1pXd2djSEpsWkdsamRHbHZiaUJ5WlhOMWJIUnpYRzV5WlhOMWJIUnpUM1YwU1cxd2RXeHpKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwU1cxd2RXeHpKRTlQUWw5TlFVVmNibkpsYzNWc2RITlBkWFJKYlhCMWJITWtVbk54ZFdGeVpXUmNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxubnBlcm0gPC0gNVxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIGNyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzWzE6Ml0sIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dEltcHVscyRPT0JfUk1TRVxucmVzdWx0c091dEltcHVscyRPT0JfTUFFXG5yZXN1bHRzT3V0SW1wdWxzJFJzcXVhcmVkXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
nperm <- 5
resultsOutImpuls <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
resultsOutImpuls$OOB_MAE
resultsOutImpuls$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSSmJYQjFiSE1nUEMwZ1kzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhOYk1Ub3lYU3dnYm5SeVpXVTliblJ5WldVc0lHMTBjbms5YlhSeWVTd2djR1Z5YlVsdGNFTnZibVJVYUhKbGN6MXdaWEp0U1cxd1EyOXVaRlJvY21WekxDQnVjR1Z5YlQxdWNHVnliU3dnYldsdWMzQnNhWFE5YldsdWMzQnNhWFFzSUcxcGJtSjFZMnRsZEQxdGFXNWlkV05yWlhRcFhHNWNiaU1nY0hKcGJuUWdiVzlrWld3Z2NISmxaR2xqZEdsdmJpQnlaWE4xYkhSelhHNXlaWE4xYkhSelQzVjBTVzF3ZFd4ekpFOVBRbDlTVFZORlhHNXlaWE4xYkhSelQzVjBTVzF3ZFd4ekpFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUkpiWEIxYkhNa1VuTnhkV0Z5WldSY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbm5wZXJtIDwtIDVcblxucmVzdWx0c091dEltcHVscyA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbnJlc3VsdHNPdXRJbXB1bHMkT09CX01BRVxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRJbXB1bHMgPC0gY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHNbMToyXSwgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0SW1wdWxzJE9PQl9STVNFXG5yZXN1bHRzT3V0SW1wdWxzJE9PQl9NQUVcbnJlc3VsdHNPdXRJbXB1bHMkUnNxdWFyZWRcblxuYGBgXG5gYGAifQ== -->
```r
```r
nperm <- 5
resultsOutImpuls <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
resultsOutImpuls$OOB_MAE
resultsOutImpuls$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwU1cxd2RXeHpJRHd0SUcxMWJIUnBYMk55WmxKbFp5aGtZWFJoU1c0OWMzUnBiVVJoZEdGT2RXMHNJR2xXWVhKelBXbFdZWEp6TENCa1ZtRnlQV1JXWVhJc0lITmxaV1J6UFhObFpXUnpMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUkpiWEIxYkhNa1QwOUNYMUpOVTBWY2JuSmxjM1ZzZEhOUGRYUkpiWEIxYkhNa1QwOUNYMDFCUlZ4dWNtVnpkV3gwYzA5MWRFbHRjSFZzY3lSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbnJlc3VsdHNPdXRJbXB1bHMkT09CX01BRVxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutImpuls <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
resultsOutImpuls$OOB_MAE
resultsOutImpuls$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBTVzF3ZFd4eklEd3RJRzExYkhScFgyTnlabEpsWnloa1lYUmhTVzQ5YzNScGJVUmhkR0ZPZFcwc0lHbFdZWEp6UFdsV1lYSnpMQ0JrVm1GeVBXUldZWElzSUhObFpXUnpQWE5sWldSekxDQnVkSEpsWlQxdWRISmxaU3dnYlhSeWVUMXRkSEo1TENCd1pYSnRTVzF3UTI5dVpGUm9jbVZ6UFhCbGNtMUpiWEJEYjI1a1ZHaHlaWE1zSUc1d1pYSnRQVzV3WlhKdExDQnRhVzV6Y0d4cGREMXRhVzV6Y0d4cGRDd2diV2x1WW5WamEyVjBQVzFwYm1KMVkydGxkQ2xjYmx4dUl5QndjbWx1ZENCdGIyUmxiQ0J3Y21Wa2FXTjBhVzl1SUhKbGMzVnNkSE5jYm5KbGMzVnNkSE5QZFhSSmJYQjFiSE1rVDA5Q1gxSk5VMFZjYm5KbGMzVnNkSE5QZFhSSmJYQjFiSE1rVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEVsdGNIVnNjeVJTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbnJlc3VsdHNPdXRJbXB1bHMkT09CX01BRVxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0SW1wdWxzIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRJbXB1bHMkT09CX1JNU0VcbnJlc3VsdHNPdXRJbXB1bHMkT09CX01BRVxucmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
resultsOutImpuls <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutImpuls$OOB_RMSE
resultsOutImpuls$OOB_MAE
resultsOutImpuls$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMFJwWm1ZZ2FXMXdkV3h6Snl3Z0oxSk5VMFVuWFNBOExTQnlaWE4xYkhSelQzVjBTVzF3ZFd4ekpFOVBRbDlTVFZORlhHNXlaWE5rU0dsQmJtNXZlVVpwZEVGQ1d5ZEVhV1ptSUdsdGNIVnNjeWNzSUNkTlFVVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFNXMXdkV3h6SkU5UFFsOU5RVVZjYm5KbGMyUklhVUZ1Ym05NVJtbDBRVUpiSjBScFptWWdhVzF3ZFd4ekp5d2dKMUp6Y1hWaGNtVmtKMTBnUEMwZ2NtVnpkV3gwYzA5MWRFbHRjSFZzY3lSU2MzRjFZWEpsWkZ4dWNtVnpaRWhwUVc1dWIzbFFaWEp0U1cxd1FVSWtSR2xtWmtsdGNIVnNjeUE4TFNCeVpYTjFiSFJ6VDNWMFNXMXdkV3h6SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhCY2JseHVZR0JnSW4wPSAtLT5cblxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgaW1wdWxzJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0SW1wdWxzJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIGltcHVscycsICdNQUUnXSA8LSByZXN1bHRzT3V0SW1wdWxzJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgaW1wdWxzJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkRGlmZkltcHVscyA8LSByZXN1bHRzT3V0SW1wdWxzJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# store results
resdHiAnnoyFitAB['Diff impuls', 'RMSE'] <- resultsOutImpuls$OOB_RMSE
resdHiAnnoyFitAB['Diff impuls', 'MAE'] <- resultsOutImpuls$OOB_MAE
resdHiAnnoyFitAB['Diff impuls', 'Rsquared'] <- resultsOutImpuls$Rsquared
resdHiAnnoyPermImpAB$DiffImpuls <- resultsOutImpuls$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowUnBabVlnYVcxd2RXeHpKeXdnSjFKTlUwVW5YU0E4TFNCeVpYTjFiSFJ6VDNWMFNXMXdkV3h6SkU5UFFsOVNUVk5GWEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkRWFXWm1JR2x0Y0hWc2N5Y3NJQ2ROUVVVblhTQThMU0J5WlhOMWJIUnpUM1YwU1cxd2RXeHpKRTlQUWw5TlFVVmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMFJwWm1ZZ2FXMXdkV3h6Snl3Z0oxSnpjWFZoY21Wa0oxMGdQQzBnY21WemRXeDBjMDkxZEVsdGNIVnNjeVJTYzNGMVlYSmxaRnh1Y21WelpFaHBRVzV1YjNsUVpYSnRTVzF3UVVJa1JHbG1aa2x0Y0hWc2N5QThMU0J5WlhOMWJIUnpUM1YwU1cxd2RXeHpKR052Ym1ScGRHbHZibUZzWDNCbGNtMXBiWEJjYmx4dVlHQmdYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbmBgYHJcblxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIGltcHVscycsICdSTVNFJ10gPC0gcmVzdWx0c091dEltcHVscyRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiBpbXB1bHMnLCAnTUFFJ10gPC0gcmVzdWx0c091dEltcHVscyRPT0JfTUFFXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIGltcHVscycsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRJbXB1bHMkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJERpZmZJbXB1bHMgPC0gcmVzdWx0c091dEltcHVscyRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgaW1wdWxzJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0SW1wdWxzJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIGltcHVscycsICdNQUUnXSA8LSByZXN1bHRzT3V0SW1wdWxzJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgaW1wdWxzJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dEltcHVscyRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkRGlmZkltcHVscyA8LSByZXN1bHRzT3V0SW1wdWxzJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGAifQ== -->
```r
```r
# store results
resdHiAnnoyFitAB['Diff impuls', 'RMSE'] <- resultsOutImpuls$OOB_RMSE
resdHiAnnoyFitAB['Diff impuls', 'MAE'] <- resultsOutImpuls$OOB_MAE
resdHiAnnoyFitAB['Diff impuls', 'Rsquared'] <- resultsOutImpuls$Rsquared
resdHiAnnoyPermImpAB$DiffImpuls <- resultsOutImpuls$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5NWpiMjVwYlhBZ1BDMGdZWEp5WVc1blpTaHlaWE4xYkhSelQzVjBTVzF3ZFd4ekpHTnZibVJwZEdsdmJtRnNYM0JsY20xcGJYQXNJR1JsYzJNb2NtOTNYMjUxYldKbGNpZ3BLU2xjYmx4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WemRXeDBjMDkxZEVsdGNIVnNjeTVqYjI1cGJYQXBJQ3NnWjJWdmJWOWpiMndvWVdWektIZzlabUZqZEc5eUtISnZkMjVoYldWektISmxjM1ZzZEhOUGRYUkpiWEIxYkhNdVkyOXVhVzF3S1N3Z2JHVjJaV3h6UFhKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSSmJYQjFiSE11WTI5dWFXMXdLU2tzSUhrOVEyOXVaRkJsY20xSmJYQXBMQ0JtYVd4c1BXMTVZMjlzYjNWeWMxczJYU3dnZDJsa2RHZzlNQzQxS1NBcklHeGhZbk1vZUQxY0lsWmhjbWxoWW14bFhDSXNJSGs5WENKRGIyNWthWFJwYjI1aGJDQjJZWEpwWVdKc1pTQndaWEp0ZFhSaGRHbHZiaUJwYlhCdmNuUmhibU5sSUNnbElHaHBaMmhzZVNCaGJtNXZlV1ZrS1Z3aUtTQXJJR2RuZEdsMGJHVW9YQ0prU1cxd2RXeHphWFpsYm1WemMxd2lLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWENKelpYSnBabHdpS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTa2dLeUJqYjI5eVpGOW1iR2x3S0NsY2JuQkNZWEpjYmx4dWFXWWdLSE5oZG1Wd2JHOTBjeWw3WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY0lsQjBjMEZDWkVocFFXNXViM2xrU1cxd2RXeHpRMjl1VUdWeWJXbHRjQzV6ZG1kY0lpd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUSXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRndpYzNablhDSXBLVnh1SUNCMWJteHBibXNvWENKUWRITkJRbVJJYVVGdWJtOTVaRWx0Y0hWc2MwTnZibEJsY20xcGJYQXVjM1puWENJcFhHNGdJRnh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WENKUWRITkJRbVJJYVVGdWJtOTVaRWx0Y0hWc2MwTnZibEJsY20xcGJYQXVjR1JtWENJc0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQweUxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNJbkJrWmx3aUtTbGNiaUFnZFc1c2FXNXJLRndpVUhSelFVSmtTR2xCYm01dmVXUkpiWEIxYkhORGIyNVFaWEp0YVcxd0xuQmtabHdpS1Z4dWZWeHVYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRJbXB1bHMuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dEltcHVscyRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0SW1wdWxzLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0SW1wdWxzLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNl0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcZEltcHVsc2l2ZW5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95ZEltcHVsc0NvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veWRJbXB1bHNDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veWRJbXB1bHNDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lkSW1wdWxzQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutImpuls.conimp <- arrange(resultsOutImpuls$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutImpuls.conimp) + geom_col(aes(x=factor(rownames(resultsOutImpuls.conimp), levels=rownames(resultsOutImpuls.conimp)), y=CondPermImp), fill=mycolours[6], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\dImpulsiveness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoydImpulsConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoydImpulsConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoydImpulsConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoydImpulsConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRFbHRjSFZzY3k1amIyNXBiWEFnUEMwZ1lYSnlZVzVuWlNoeVpYTjFiSFJ6VDNWMFNXMXdkV3h6SkdOdmJtUnBkR2x2Ym1Gc1gzQmxjbTFwYlhBc0lHUmxjMk1vY205M1gyNTFiV0psY2lncEtTbGNibHh1Y0VKaGNpQThMU0JuWjNCc2IzUW9jbVZ6ZFd4MGMwOTFkRWx0Y0hWc2N5NWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSSmJYQjFiSE11WTI5dWFXMXdLU3dnYkdWMlpXeHpQWEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJKYlhCMWJITXVZMjl1YVcxd0tTa3NJSGs5UTI5dVpGQmxjbTFKYlhBcExDQm1hV3hzUFcxNVkyOXNiM1Z5YzFzMlhTd2dkMmxrZEdnOU1DNDFLU0FySUd4aFluTW9lRDFjWEZaaGNtbGhZbXhsWEZ3c0lIazlYRnhEYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxJQ2dsSUdocFoyaHNlU0JoYm01dmVXVmtLVnhjS1NBcklHZG5kR2wwYkdVb1hGeGtTVzF3ZFd4emFYWmxibVZ6YzF4Y0tTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYRnh6WlhKcFpseGNLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1NrZ0t5QmpiMjl5WkY5bWJHbHdLQ2xjYm5CQ1lYSmNibHh1YVdZZ0tITmhkbVZ3Ykc5MGN5bDdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjWEZCMGMwRkNaRWhwUVc1dWIzbGtTVzF3ZFd4elEyOXVVR1Z5YldsdGNDNXpkbWRjWEN3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRJc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGeGNjM1puWEZ3cEtWeHVJQ0IxYm14cGJtc29YRnhRZEhOQlFtUklhVUZ1Ym05NVpFbHRjSFZzYzBOdmJsQmxjbTFwYlhBdWMzWm5YRndwWEc0Z0lGeHVJQ0JuWjNOaGRtVW9abWxzWlc1aGJXVTlYRnhRZEhOQlFtUklhVUZ1Ym05NVpFbHRjSFZzYzBOdmJsQmxjbTFwYlhBdWNHUm1YRndzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB5TENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY1hIQmtabHhjS1NsY2JpQWdkVzVzYVc1cktGeGNVSFJ6UVVKa1NHbEJibTV2ZVdSSmJYQjFiSE5EYjI1UVpYSnRhVzF3TG5Ca1pseGNLVnh1ZlZ4dVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbnBhcihtYWk9YygwLDMsMCwwKSlcblxuIyBwbG90IGNvbmRpdGlvbmFsIGltcG9ydGFuY2VcbnJlc3VsdHNPdXRJbXB1bHMuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dEltcHVscyRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSArIGdlb21fY29sKGFlcyh4PWZhY3Rvcihyb3duYW1lcyhyZXN1bHRzT3V0SW1wdWxzLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0SW1wdWxzLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbNl0sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyBnZ3RpdGxlKFxcZEltcHVsc2l2ZW5lc3NcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCgpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95ZEltcHVsc0NvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veWRJbXB1bHNDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veWRJbXB1bHNDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MiwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lkSW1wdWxzQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dEltcHVscy5jb25pbXAgPC0gYXJyYW5nZShyZXN1bHRzT3V0SW1wdWxzJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dEltcHVscy5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSwgbGV2ZWxzPXJvd25hbWVzKHJlc3VsdHNPdXRJbXB1bHMuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s2XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIGdndGl0bGUoXFxkSW1wdWxzaXZlbmVzc1xcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKClcbnBCYXJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lkSW1wdWxzQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95ZEltcHVsc0NvblBlcm1pbXAuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95ZEltcHVsc0NvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veWRJbXB1bHNDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutImpuls.conimp <- arrange(resultsOutImpuls$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutImpuls.conimp) + geom_col(aes(x=factor(rownames(resultsOutImpuls.conimp), levels=rownames(resultsOutImpuls.conimp)), y=CondPermImp), fill=mycolours[6], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + ggtitle(\dImpulsiveness\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip()
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoydImpulsConPermimp.svg\, width=8, height=2, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoydImpulsConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoydImpulsConPermimp.pdf\, width=8, height=2, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoydImpulsConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected metric
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVrU1cxd2RXeHpWbUZ5SUR3dElGd2laRWx0Y0hWc2MxTklUVUYyWjAxaGVFeFNYQ0pjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbmRJbXB1bHNWYXIgPC0gXFxkSW1wdWxzU0hNQXZnTWF4TFJcXFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
dImpulsVar <- \dImpulsSHMAvgMaxLR\
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNWtTVzF3ZFd4elZtRnlJRHd0SUZ4Y1pFbHRjSFZzYzFOSVRVRjJaMDFoZUV4U1hGeGNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG5kSW1wdWxzVmFyIDwtIFxcZEltcHVsc1NITUF2Z01heExSXFxcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5kSW1wdWxzVmFyIDwtIFxcZEltcHVsc1NITUF2Z01heExSXFxcblxuYGBgXG5gYGAifQ== -->
```r
```r
dImpulsVar <- \dImpulsSHMAvgMaxLR\
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### dSQM and loudness comparison
Now the highest importance dSQMs are ranked against each other, controlling for loudness difference.
##### Include dtonal loudness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dScFptWldZWElzSUdWMlpXNTBWbUZ5TENCa1UyaGhjbkJXWVhJc0lHUlViMjVNWkZaaGNpd2daRVpzZFdOMFZtRnlMQ0JrVW05MVoyaFdZWElzSUdSSmJYQjFiSE5XWVhJcFhHNWtWbUZ5SUR3dElGd2laRWhwWjJoQmJtNXZlVkJqWENKY2JseHVjMlZsWkhNZ1BDMGdZeWc1T0RRMk5Td2dOVFF4TmpNc0lEWTFOREVzSURNMk5EZzFMQ0E0TkRrMk56VXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuaVZhcnMgPC0gYyhkaWZmVmFyLCBldmVudFZhciwgZFNoYXJwVmFyLCBkVG9uTGRWYXIsIGRGbHVjdFZhciwgZFJvdWdoVmFyLCBkSW1wdWxzVmFyKVxuZFZhciA8LSBcXGRIaWdoQW5ub3lQY1xcXG5cbnNlZWRzIDwtIGMoOTg0NjUsIDU0MTYzLCA2NTQxLCAzNjQ4NSwgODQ5Njc1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
iVars <- c(diffVar, eventVar, dSharpVar, dTonLdVar, dFluctVar, dRoughVar, dImpulsVar)
dVar <- \dHighAnnoyPc\
seeds <- c(98465, 54163, 6541, 36485, 849675)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR1JwWm1aV1lYSXNJR1YyWlc1MFZtRnlMQ0JrVTJoaGNuQldZWElzSUdSVWIyNU1aRlpoY2l3Z1pFWnNkV04wVm1GeUxDQmtVbTkxWjJoV1lYSXNJR1JKYlhCMWJITldZWElwWEc1a1ZtRnlJRHd0SUZ4Y1pFaHBaMmhCYm01dmVWQmpYRnhjYmx4dWMyVmxaSE1nUEMwZ1l5ZzVPRFEyTlN3Z05UUXhOak1zSURZMU5ERXNJRE0yTkRnMUxDQTRORGsyTnpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbmlWYXJzIDwtIGMoZGlmZlZhciwgZXZlbnRWYXIsIGRTaGFycFZhciwgZFRvbkxkVmFyLCBkRmx1Y3RWYXIsIGRSb3VnaFZhciwgZEltcHVsc1ZhcilcbmRWYXIgPC0gXFxkSGlnaEFubm95UGNcXFxuXG5zZWVkcyA8LSBjKDk4NDY1LCA1NDE2MywgNjU0MSwgMzY0ODUsIDg0OTY3NSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBkU2hhcnBWYXIsIGRUb25MZFZhciwgZEZsdWN0VmFyLCBkUm91Z2hWYXIsIGRJbXB1bHNWYXIpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg5ODQ2NSwgNTQxNjMsIDY1NDEsIDM2NDg1LCA4NDk2NzUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
iVars <- c(diffVar, eventVar, dSharpVar, dTonLdVar, dFluctVar, dRoughVar, dImpulsVar)
dVar <- \dHighAnnoyPc\
seeds <- c(98465, 54163, 6541, 36485, 849675)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0ExTURGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU1qVXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gNTAxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 501
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQTFNREZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TWpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDUwMVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS4yNSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSA1MDFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 501
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlRVVTF6TVNBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJUVVUxek1TUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUlRVVTF6TVNSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutSQMs1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
resultsOutSQMs1$OOB_MAE
resultsOutSQMs1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSVFVVMXpNU0E4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlRVVTF6TVNSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRGTlJUWE14SkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSVFVVMXpNU1JTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutSQMs1 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
resultsOutSQMs1$OOB_MAE
resultsOutSQMs1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVTFGTmN6RWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGTlJUWE14SkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFUxRk5jekVrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZOUlRYTXhKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dFNRTXMxIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMSRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutSQMs1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
resultsOutSQMs1$OOB_MAE
resultsOutSQMs1$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVMUZOY3pFZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZOUlRYTXhKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwVTFGTmN6RWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRTUU1zMSA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U1FNczEkT09CX1JNU0VcbnJlc3VsdHNPdXRTUU1zMSRPT0JfTUFFXG5yZXN1bHRzT3V0U1FNczEkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0U1FNczEgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFNRTXMxJE9PQl9STVNFXG5yZXN1bHRzT3V0U1FNczEkT09CX01BRVxucmVzdWx0c091dFNRTXMxJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSQMs1 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs1$OOB_RMSE
resultsOutSQMs1$OOB_MAE
resultsOutSQMs1$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMFJwWm1ZZ1UxRk5jeUJwYm1NZ2RHOXVZV3dnYkc5MVpDY3NJQ2RTVFZORkoxMGdQQzBnY21WemRXeDBjMDkxZEZOUlRYTXhKRTlQUWw5U1RWTkZYRzV5WlhOa1NHbEJibTV2ZVVacGRFRkNXeWRFYVdabUlGTlJUWE1nYVc1aklIUnZibUZzSUd4dmRXUW5MQ0FuVFVGRkoxMGdQQzBnY21WemRXeDBjMDkxZEZOUlRYTXhKRTlQUWw5TlFVVmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMFJwWm1ZZ1UxRk5jeUJwYm1NZ2RHOXVZV3dnYkc5MVpDY3NJQ2RTYzNGMVlYSmxaQ2RkSUR3dElISmxjM1ZzZEhOUGRYUlRVVTF6TVNSU2MzRjFZWEpsWkZ4dWNtVnpaRWhwUVc1dWIzbFFaWEp0U1cxd1FVSWtSR2xtWmxOUlRYTXhJRHd0SUhKbGMzVnNkSE5QZFhSVFVVMXpNU1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3WEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiBTUU1zIGluYyB0b25hbCBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U1FNczEkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0U1FNczEkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiBTUU1zIGluYyB0b25hbCBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFNRTXMxJFJzcXVhcmVkXG5yZXNkSGlBbm5veVBlcm1JbXBBQiREaWZmU1FNczEgPC0gcmVzdWx0c091dFNRTXMxJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# store results
resdHiAnnoyFitAB['Diff SQMs inc tonal loud', 'RMSE'] <- resultsOutSQMs1$OOB_RMSE
resdHiAnnoyFitAB['Diff SQMs inc tonal loud', 'MAE'] <- resultsOutSQMs1$OOB_MAE
resdHiAnnoyFitAB['Diff SQMs inc tonal loud', 'Rsquared'] <- resultsOutSQMs1$Rsquared
resdHiAnnoyPermImpAB$DiffSQMs1 <- resultsOutSQMs1$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowUnBabVlnVTFGTmN5QnBibU1nZEc5dVlXd2diRzkxWkNjc0lDZFNUVk5GSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpFOVBRbDlTVFZORlhHNXlaWE5rU0dsQmJtNXZlVVpwZEVGQ1d5ZEVhV1ptSUZOUlRYTWdhVzVqSUhSdmJtRnNJR3h2ZFdRbkxDQW5UVUZGSjEwZ1BDMGdjbVZ6ZFd4MGMwOTFkRk5SVFhNeEpFOVBRbDlOUVVWY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowUnBabVlnVTFGTmN5QnBibU1nZEc5dVlXd2diRzkxWkNjc0lDZFNjM0YxWVhKbFpDZGRJRHd0SUhKbGMzVnNkSE5QZFhSVFVVMXpNU1JTYzNGMVlYSmxaRnh1Y21WelpFaHBRVzV1YjNsUVpYSnRTVzF3UVVJa1JHbG1abE5SVFhNeElEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1TUmpiMjVrYVhScGIyNWhiRjl3WlhKdGFXMXdYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFNRTXMxJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIFNRTXMgaW5jIHRvbmFsIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkRGlmZlNRTXMxIDwtIHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFNRTXMxJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIFNRTXMgaW5jIHRvbmFsIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNRTXMxJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgU1FNcyBpbmMgdG9uYWwgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRTUU1zMSRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkRGlmZlNRTXMxIDwtIHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# store results
resdHiAnnoyFitAB['Diff SQMs inc tonal loud', 'RMSE'] <- resultsOutSQMs1$OOB_RMSE
resdHiAnnoyFitAB['Diff SQMs inc tonal loud', 'MAE'] <- resultsOutSQMs1$OOB_MAE
resdHiAnnoyFitAB['Diff SQMs inc tonal loud', 'Rsquared'] <- resultsOutSQMs1$Rsquared
resdHiAnnoyPermImpAB$DiffSQMs1 <- resultsOutSQMs1$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeExtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlRVVTF6TVNSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJUVVUxek1TNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVFVVMXpNUzVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRk5SVFhNeExtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTjEwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9KU0JvYVdkb2JIa2dZVzV1YjNsbFpDbGNJaWtnS3lCMGFHVnRaU2gwWlhoMElEMGdaV3hsYldWdWRGOTBaWGgwS0daaGJXbHNlU0E5SUZ3aWMyVnlhV1pjSWlrc0lIQmhibVZzTG1keWFXUTlaV3hsYldWdWRGOXNhVzVsS0dOdmJHOXlJRDBnY21kaUtESXpOU3dnTWpNMUxDQXlNelVzSURFd01Dd2diV0Y0UTI5c2IzSldZV3gxWlNBOUlESTFOU2tzSUd4cGJtVjNhV1IwYUNBOUlEQXVNalVzSUd4cGJtVjBlWEJsSUQwZ01pa3BJQ3NnWTI5dmNtUmZabXhwY0NoNWJHbHRQV01vTUN3Z05UQXBLVnh1Y0VKaGNseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtTR2xCYm01dmVVUnBabVpUVVUxelZHOXVUR1JEYjI1UVpYSnRhVzF3TG5OMloxd2lMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNaTQwTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luTjJaMXdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1NHbEJibTV2ZVVScFptWlRVVTF6Vkc5dVRHUkRiMjVRWlhKdGFXMXdMbk4yWjF3aUtWeHVJQ0JjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ3aVVIUnpRVUprU0dsQmJtNXZlVVJwWm1aVFVVMXpWRzl1VEdSRGIyNVFaWEp0YVcxd0xuQmtabHdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TWk0MExDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNJbkJrWmx3aUtTbGNiaUFnZFc1c2FXNXJLRndpVUhSelFVSmtTR2xCYm01dmVVUnBabVpUVVUxelZHOXVUR1JEYjI1UVpYSnRhVzF3TG5Ca1psd2lLVnh1ZlZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMS5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMxLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgNTApKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veURpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veURpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs1.conimp <- arrange(resultsOutSQMs1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs1.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs1.conimp), levels=rownames(resultsOutSQMs1.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 50))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyDiffSQMsTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyDiffSQMsTonLdConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyDiffSQMsTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyDiffSQMsTonLdConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGTlJUWE14TG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSVFVVMXpNU1JqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlRVVTF6TVM1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJUVVUxek1TNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGTlJUWE14TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJOMTBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb0pTQm9hV2RvYkhrZ1lXNXViM2xsWkNsY1hDa2dLeUIwYUdWdFpTaDBaWGgwSUQwZ1pXeGxiV1Z1ZEY5MFpYaDBLR1poYldsc2VTQTlJRnhjYzJWeWFXWmNYQ2tzSUhCaGJtVnNMbWR5YVdROVpXeGxiV1Z1ZEY5c2FXNWxLR052Ykc5eUlEMGdjbWRpS0RJek5Td2dNak0xTENBeU16VXNJREV3TUN3Z2JXRjRRMjlzYjNKV1lXeDFaU0E5SURJMU5Ta3NJR3hwYm1WM2FXUjBhQ0E5SURBdU1qVXNJR3hwYm1WMGVYQmxJRDBnTWlrcElDc2dZMjl2Y21SZlpteHBjQ2g1YkdsdFBXTW9NQ3dnTlRBcEtWeHVjRUpoY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1NHbEJibTV2ZVVScFptWlRVVTF6Vkc5dVRHUkRiMjVRWlhKdGFXMXdMbk4yWjF4Y0xDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pNDBMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhOMloxeGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprU0dsQmJtNXZlVVJwWm1aVFVVMXpWRzl1VEdSRGIyNVFaWEp0YVcxd0xuTjJaMXhjS1Z4dUlDQmNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVnhjVUhSelFVSmtTR2xCYm01dmVVUnBabVpUVVUxelZHOXVUR1JEYjI1UVpYSnRhVzF3TG5Ca1pseGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNaTQwTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY1hIQmtabHhjS1NsY2JpQWdkVzVzYVc1cktGeGNVSFJ6UVVKa1NHbEJibTV2ZVVScFptWlRVVTF6Vkc5dVRHUkRiMjVRWlhKdGFXMXdMbkJrWmx4Y0tWeHVmVnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMS5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMxLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgNTApKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veURpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veURpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMxLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMSRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMS5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMS5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMxLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgNTApKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veURpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veURpZmZTUU1zVG9uTGRDb25QZXJtaW1wLnBkZlxcKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs1.conimp <- arrange(resultsOutSQMs1$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs1.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs1.conimp), levels=rownames(resultsOutSQMs1.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 50))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyDiffSQMsTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyDiffSQMsTonLdConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyDiffSQMsTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyDiffSQMsTonLdConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
##### Exclude tonal loudness
###### Set variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwVm1GeWN5QThMU0JqS0dScFptWldZWElzSUdWMlpXNTBWbUZ5TENCa1UyaGhjbkJXWVhJc0lHUlViMjVoYkZaaGNpd2daRVpzZFdOMFZtRnlMQ0JrVW05MVoyaFdZWElzSUdSSmJYQjFiSE5XWVhJcFhHNWtWbUZ5SUR3dElGd2laRWhwWjJoQmJtNXZlVkJqWENKY2JseHVjMlZsWkhNZ1BDMGdZeWcwT1RnMk5Td2dOemcxTWl3Z09EUTFPVFl4TENBME1UQTFPRE1zSURNMk56UTRLVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmlWYXJzIDwtIGMoZGlmZlZhciwgZXZlbnRWYXIsIGRTaGFycFZhciwgZFRvbmFsVmFyLCBkRmx1Y3RWYXIsIGRSb3VnaFZhciwgZEltcHVsc1ZhcilcbmRWYXIgPC0gXFxkSGlnaEFubm95UGNcXFxuXG5zZWVkcyA8LSBjKDQ5ODY1LCA3ODUyLCA4NDU5NjEsIDQxMDU4MywgMzY3NDgpXG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
iVars <- c(diffVar, eventVar, dSharpVar, dTonalVar, dFluctVar, dRoughVar, dImpulsVar)
dVar <- \dHighAnnoyPc\
seeds <- c(49865, 7852, 845961, 410583, 36748)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBWbUZ5Y3lBOExTQmpLR1JwWm1aV1lYSXNJR1YyWlc1MFZtRnlMQ0JrVTJoaGNuQldZWElzSUdSVWIyNWhiRlpoY2l3Z1pFWnNkV04wVm1GeUxDQmtVbTkxWjJoV1lYSXNJR1JKYlhCMWJITldZWElwWEc1a1ZtRnlJRHd0SUZ4Y1pFaHBaMmhCYm01dmVWQmpYRnhjYmx4dWMyVmxaSE1nUEMwZ1l5ZzBPVGcyTlN3Z056ZzFNaXdnT0RRMU9UWXhMQ0EwTVRBMU9ETXNJRE0yTnpRNEtWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmlWYXJzIDwtIGMoZGlmZlZhciwgZXZlbnRWYXIsIGRTaGFycFZhciwgZFRvbmFsVmFyLCBkRmx1Y3RWYXIsIGRSb3VnaFZhciwgZEltcHVsc1ZhcilcbmRWYXIgPC0gXFxkSGlnaEFubm95UGNcXFxuXG5zZWVkcyA8LSBjKDQ5ODY1LCA3ODUyLCA4NDU5NjEsIDQxMDU4MywgMzY3NDgpXG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pVmFycyA8LSBjKGRpZmZWYXIsIGV2ZW50VmFyLCBkU2hhcnBWYXIsIGRUb25hbFZhciwgZEZsdWN0VmFyLCBkUm91Z2hWYXIsIGRJbXB1bHNWYXIpXG5kVmFyIDwtIFxcZEhpZ2hBbm5veVBjXFxcblxuc2VlZHMgPC0gYyg0OTg2NSwgNzg1MiwgODQ1OTYxLCA0MTA1ODMsIDM2NzQ4KVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
iVars <- c(diffVar, eventVar, dSharpVar, dTonalVar, dFluctVar, dRoughVar, dImpulsVar)
dVar <- \dHighAnnoyPc\
seeds <- c(49865, 7852, 845961, 410583, 36748)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Hyperparameter tuning
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV3SUR3dElHMTBjbmxVZFc1bEtHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaRDF6WldWa2Mxc3hPakpkTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJRzUwY21WbGN6MXVkSEpsWlhNc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1Y0Z4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXdJRHd0SUcxMGNubFVkVzVsS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpEMXpaV1ZrYzFzeE9qSmRMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lHNTBjbVZsY3oxdWRISmxaWE1zSUcxcGJuTndiR2wwUFcxcGJuTndiR2wwTENCdGFXNWlkV05yWlhROWJXbHVZblZqYTJWMEtWeHVjRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5wIDwtIG10cnlUdW5lKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZD1zZWVkc1sxOjJdLFxuICAgICAgICAgICAgIG50cmVlcz1udHJlZXMsIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxucFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
p <- mtryTune(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seed=seeds[1:2],
ntrees=ntrees, minsplit=minsplit, minbucket=minbucket)
p
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Selected hyperparameters
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1ZEhKbFpTQThMU0F5TlRGY2JtMTBjbmtnUEMwZ1lYTXVhVzUwWldkbGNpaHNaVzVuZEdnb2FWWmhjbk1wTHpFdU1qVXBYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxubnRyZWUgPC0gMjUxXG5tdHJ5IDwtIGFzLmludGVnZXIobGVuZ3RoKGlWYXJzKS8xLjI1KVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
ntree <- 251
mtry <- as.integer(length(iVars)/1.25)
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVkSEpsWlNBOExTQXlOVEZjYm0xMGNua2dQQzBnWVhNdWFXNTBaV2RsY2loc1pXNW5kR2dvYVZaaGNuTXBMekV1TWpVcFhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbm50cmVlIDwtIDI1MVxubXRyeSA8LSBhcy5pbnRlZ2VyKGxlbmd0aChpVmFycykvMS4yNSlcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5udHJlZSA8LSAyNTFcbm10cnkgPC0gYXMuaW50ZWdlcihsZW5ndGgoaVZhcnMpLzEuMjUpXG5cbmBgYFxuYGBgIn0= -->
```r
```r
ntree <- 251
mtry <- as.integer(length(iVars)/1.25)
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Run model
Train preliminary model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV1Y0dWeWJTQThMU0ExWEc1Y2JuSmxjM1ZzZEhOUGRYUlRVVTF6TWlBOExTQmpjbVpTWldjb1pHRjBZVWx1UFhOMGFXMUVZWFJoVG5WdExDQnBWbUZ5Y3oxcFZtRnljeXdnWkZaaGNqMWtWbUZ5TENCelpXVmtjejF6WldWa2Mxc3hPakpkTENCdWRISmxaVDF1ZEhKbFpTd2diWFJ5ZVQxdGRISjVMQ0J3WlhKdFNXMXdRMjl1WkZSb2NtVnpQWEJsY20xSmJYQkRiMjVrVkdoeVpYTXNJRzV3WlhKdFBXNXdaWEp0TENCdGFXNXpjR3hwZEQxdGFXNXpjR3hwZEN3Z2JXbHVZblZqYTJWMFBXMXBibUoxWTJ0bGRDbGNibHh1SXlCd2NtbHVkQ0J0YjJSbGJDQndjbVZrYVdOMGFXOXVJSEpsYzNWc2RITmNibkpsYzNWc2RITlBkWFJUVVUxek1pUlBUMEpmVWsxVFJWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeUpFOVBRbDlOUVVWY2JuSmxjM1ZzZEhOUGRYUlRVVTF6TWlSU2MzRjFZWEpsWkZ4dVhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
nperm <- 5
resultsOutSQMs2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
resultsOutSQMs2$OOB_MAE
resultsOutSQMs2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXVjR1Z5YlNBOExTQTFYRzVjYm5KbGMzVnNkSE5QZFhSVFVVMXpNaUE4TFNCamNtWlNaV2NvWkdGMFlVbHVQWE4wYVcxRVlYUmhUblZ0TENCcFZtRnljejFwVm1GeWN5d2daRlpoY2oxa1ZtRnlMQ0J6WldWa2N6MXpaV1ZrYzFzeE9qSmRMQ0J1ZEhKbFpUMXVkSEpsWlN3Z2JYUnllVDF0ZEhKNUxDQndaWEp0U1cxd1EyOXVaRlJvY21WelBYQmxjbTFKYlhCRGIyNWtWR2h5WlhNc0lHNXdaWEp0UFc1d1pYSnRMQ0J0YVc1emNHeHBkRDF0YVc1emNHeHBkQ3dnYldsdVluVmphMlYwUFcxcGJtSjFZMnRsZENsY2JseHVJeUJ3Y21sdWRDQnRiMlJsYkNCd2NtVmthV04wYVc5dUlISmxjM1ZzZEhOY2JuSmxjM1ZzZEhOUGRYUlRVVTF6TWlSUFQwSmZVazFUUlZ4dWNtVnpkV3gwYzA5MWRGTlJUWE15SkU5UFFsOU5RVVZjYm5KbGMzVnNkSE5QZFhSVFVVMXpNaVJTYzNGMVlYSmxaRnh1WEc1Z1lHQmNibUJnWUNKOSAtLT5cblxuYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5ucGVybSA8LSA1XG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBjcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkc1sxOjJdLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxuXG5gYGBcbmBgYCJ9 -->
```r
```r
nperm <- 5
resultsOutSQMs2 <- crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds[1:2], ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
resultsOutSQMs2$OOB_MAE
resultsOutSQMs2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
Train multiple seeds model
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzV5WlhOMWJIUnpUM1YwVTFGTmN6SWdQQzBnYlhWc2RHbGZZM0ptVW1WbktHUmhkR0ZKYmoxemRHbHRSR0YwWVU1MWJTd2dhVlpoY25NOWFWWmhjbk1zSUdSV1lYSTlaRlpoY2l3Z2MyVmxaSE05YzJWbFpITXNJRzUwY21WbFBXNTBjbVZsTENCdGRISjVQVzEwY25rc0lIQmxjbTFKYlhCRGIyNWtWR2h5WlhNOWNHVnliVWx0Y0VOdmJtUlVhSEpsY3l3Z2JuQmxjbTA5Ym5CbGNtMHNJRzFwYm5Od2JHbDBQVzFwYm5Od2JHbDBMQ0J0YVc1aWRXTnJaWFE5YldsdVluVmphMlYwS1Z4dVhHNGpJSEJ5YVc1MElHMXZaR1ZzSUhCeVpXUnBZM1JwYjI0Z2NtVnpkV3gwYzF4dWNtVnpkV3gwYzA5MWRGTlJUWE15SkU5UFFsOVNUVk5GWEc1eVpYTjFiSFJ6VDNWMFUxRk5jeklrVDA5Q1gwMUJSVnh1Y21WemRXeDBjMDkxZEZOUlRYTXlKRkp6Y1hWaGNtVmtYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxucmVzdWx0c091dFNRTXMyIDwtIG11bHRpX2NyZlJlZyhkYXRhSW49c3RpbURhdGFOdW0sIGlWYXJzPWlWYXJzLCBkVmFyPWRWYXIsIHNlZWRzPXNlZWRzLCBudHJlZT1udHJlZSwgbXRyeT1tdHJ5LCBwZXJtSW1wQ29uZFRocmVzPXBlcm1JbXBDb25kVGhyZXMsIG5wZXJtPW5wZXJtLCBtaW5zcGxpdD1taW5zcGxpdCwgbWluYnVja2V0PW1pbmJ1Y2tldClcblxuIyBwcmludCBtb2RlbCBwcmVkaWN0aW9uIHJlc3VsdHNcbnJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
resultsOutSQMs2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
resultsOutSQMs2$OOB_MAE
resultsOutSQMs2$Rsquared
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXlaWE4xYkhSelQzVjBVMUZOY3pJZ1BDMGdiWFZzZEdsZlkzSm1VbVZuS0dSaGRHRkpiajF6ZEdsdFJHRjBZVTUxYlN3Z2FWWmhjbk05YVZaaGNuTXNJR1JXWVhJOVpGWmhjaXdnYzJWbFpITTljMlZsWkhNc0lHNTBjbVZsUFc1MGNtVmxMQ0J0ZEhKNVBXMTBjbmtzSUhCbGNtMUpiWEJEYjI1a1ZHaHlaWE05Y0dWeWJVbHRjRU52Ym1SVWFISmxjeXdnYm5CbGNtMDlibkJsY20wc0lHMXBibk53YkdsMFBXMXBibk53YkdsMExDQnRhVzVpZFdOclpYUTliV2x1WW5WamEyVjBLVnh1WEc0aklIQnlhVzUwSUcxdlpHVnNJSEJ5WldScFkzUnBiMjRnY21WemRXeDBjMXh1Y21WemRXeDBjMDkxZEZOUlRYTXlKRTlQUWw5U1RWTkZYRzV5WlhOMWJIUnpUM1YwVTFGTmN6SWtUMDlDWDAxQlJWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeUpGSnpjWFZoY21Wa1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbnJlc3VsdHNPdXRTUU1zMiA8LSBtdWx0aV9jcmZSZWcoZGF0YUluPXN0aW1EYXRhTnVtLCBpVmFycz1pVmFycywgZFZhcj1kVmFyLCBzZWVkcz1zZWVkcywgbnRyZWU9bnRyZWUsIG10cnk9bXRyeSwgcGVybUltcENvbmRUaHJlcz1wZXJtSW1wQ29uZFRocmVzLCBucGVybT1ucGVybSwgbWluc3BsaXQ9bWluc3BsaXQsIG1pbmJ1Y2tldD1taW5idWNrZXQpXG5cbiMgcHJpbnQgbW9kZWwgcHJlZGljdGlvbiByZXN1bHRzXG5yZXN1bHRzT3V0U1FNczIkT09CX1JNU0VcbnJlc3VsdHNPdXRTUU1zMiRPT0JfTUFFXG5yZXN1bHRzT3V0U1FNczIkUnNxdWFyZWRcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5yZXN1bHRzT3V0U1FNczIgPC0gbXVsdGlfY3JmUmVnKGRhdGFJbj1zdGltRGF0YU51bSwgaVZhcnM9aVZhcnMsIGRWYXI9ZFZhciwgc2VlZHM9c2VlZHMsIG50cmVlPW50cmVlLCBtdHJ5PW10cnksIHBlcm1JbXBDb25kVGhyZXM9cGVybUltcENvbmRUaHJlcywgbnBlcm09bnBlcm0sIG1pbnNwbGl0PW1pbnNwbGl0LCBtaW5idWNrZXQ9bWluYnVja2V0KVxuXG4jIHByaW50IG1vZGVsIHByZWRpY3Rpb24gcmVzdWx0c1xucmVzdWx0c091dFNRTXMyJE9PQl9STVNFXG5yZXN1bHRzT3V0U1FNczIkT09CX01BRVxucmVzdWx0c091dFNRTXMyJFJzcXVhcmVkXG5cbmBgYFxuYGBgIn0= -->
```r
```r
resultsOutSQMs2 <- multi_crfReg(dataIn=stimDataNum, iVars=iVars, dVar=dVar, seeds=seeds, ntree=ntree, mtry=mtry, permImpCondThres=permImpCondThres, nperm=nperm, minsplit=minsplit, minbucket=minbucket)
# print model prediction results
resultsOutSQMs2$OOB_RMSE
resultsOutSQMs2$OOB_MAE
resultsOutSQMs2$Rsquared
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzRqSUhOMGIzSmxJSEpsYzNWc2RITmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMFJwWm1ZZ1UxRk5jeUJ1YnlCMGIyNWhiQ0JzYjNWa0p5d2dKMUpOVTBVblhTQThMU0J5WlhOMWJIUnpUM1YwVTFGTmN6SWtUMDlDWDFKTlUwVmNibkpsYzJSSWFVRnVibTk1Um1sMFFVSmJKMFJwWm1ZZ1UxRk5jeUJ1YnlCMGIyNWhiQ0JzYjNWa0p5d2dKMDFCUlNkZElEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1pUlBUMEpmVFVGRlhHNXlaWE5rU0dsQmJtNXZlVVpwZEVGQ1d5ZEVhV1ptSUZOUlRYTWdibThnZEc5dVlXd2diRzkxWkNjc0lDZFNjM0YxWVhKbFpDZGRJRHd0SUhKbGMzVnNkSE5QZFhSVFVVMXpNaVJTYzNGMVlYSmxaRnh1Y21WelpFaHBRVzV1YjNsUVpYSnRTVzF3UVVJa1JHbG1abE5SVFhNeUlEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1pUmpiMjVrYVhScGIyNWhiRjl3WlhKdGFXMXdYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcblxuIyBzdG9yZSByZXN1bHRzXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIFNRTXMgbm8gdG9uYWwgbG91ZCcsICdSTVNFJ10gPC0gcmVzdWx0c091dFNRTXMyJE9PQl9STVNFXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIFNRTXMgbm8gdG9uYWwgbG91ZCcsICdNQUUnXSA8LSByZXN1bHRzT3V0U1FNczIkT09CX01BRVxucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnUnNxdWFyZWQnXSA8LSByZXN1bHRzT3V0U1FNczIkUnNxdWFyZWRcbnJlc2RIaUFubm95UGVybUltcEFCJERpZmZTUU1zMiA8LSByZXN1bHRzT3V0U1FNczIkY29uZGl0aW9uYWxfcGVybWltcFxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# store results
resdHiAnnoyFitAB['Diff SQMs no tonal loud', 'RMSE'] <- resultsOutSQMs2$OOB_RMSE
resdHiAnnoyFitAB['Diff SQMs no tonal loud', 'MAE'] <- resultsOutSQMs2$OOB_MAE
resdHiAnnoyFitAB['Diff SQMs no tonal loud', 'Rsquared'] <- resultsOutSQMs2$Rsquared
resdHiAnnoyPermImpAB$DiffSQMs2 <- resultsOutSQMs2$conditional_permimp
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNGpJSE4wYjNKbElISmxjM1ZzZEhOY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowUnBabVlnVTFGTmN5QnVieUIwYjI1aGJDQnNiM1ZrSnl3Z0oxSk5VMFVuWFNBOExTQnlaWE4xYkhSelQzVjBVMUZOY3pJa1QwOUNYMUpOVTBWY2JuSmxjMlJJYVVGdWJtOTVSbWwwUVVKYkowUnBabVlnVTFGTmN5QnVieUIwYjI1aGJDQnNiM1ZrSnl3Z0owMUJSU2RkSUR3dElISmxjM1ZzZEhOUGRYUlRVVTF6TWlSUFQwSmZUVUZGWEc1eVpYTmtTR2xCYm01dmVVWnBkRUZDV3lkRWFXWm1JRk5SVFhNZ2JtOGdkRzl1WVd3Z2JHOTFaQ2NzSUNkU2MzRjFZWEpsWkNkZElEd3RJSEpsYzNWc2RITlBkWFJUVVUxek1pUlNjM0YxWVhKbFpGeHVjbVZ6WkVocFFXNXViM2xRWlhKdFNXMXdRVUlrUkdsbVpsTlJUWE15SUR3dElISmxjM1ZzZEhOUGRYUlRVVTF6TWlSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd1hHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG5cbiMgc3RvcmUgcmVzdWx0c1xucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnUk1TRSddIDwtIHJlc3VsdHNPdXRTUU1zMiRPT0JfUk1TRVxucmVzZEhpQW5ub3lGaXRBQlsnRGlmZiBTUU1zIG5vIHRvbmFsIGxvdWQnLCAnTUFFJ10gPC0gcmVzdWx0c091dFNRTXMyJE9PQl9NQUVcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgU1FNcyBubyB0b25hbCBsb3VkJywgJ1JzcXVhcmVkJ10gPC0gcmVzdWx0c091dFNRTXMyJFJzcXVhcmVkXG5yZXNkSGlBbm5veVBlcm1JbXBBQiREaWZmU1FNczIgPC0gcmVzdWx0c091dFNRTXMyJGNvbmRpdGlvbmFsX3Blcm1pbXBcblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG4jIHN0b3JlIHJlc3VsdHNcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgU1FNcyBubyB0b25hbCBsb3VkJywgJ1JNU0UnXSA8LSByZXN1bHRzT3V0U1FNczIkT09CX1JNU0VcbnJlc2RIaUFubm95Rml0QUJbJ0RpZmYgU1FNcyBubyB0b25hbCBsb3VkJywgJ01BRSddIDwtIHJlc3VsdHNPdXRTUU1zMiRPT0JfTUFFXG5yZXNkSGlBbm5veUZpdEFCWydEaWZmIFNRTXMgbm8gdG9uYWwgbG91ZCcsICdSc3F1YXJlZCddIDwtIHJlc3VsdHNPdXRTUU1zMiRSc3F1YXJlZFxucmVzZEhpQW5ub3lQZXJtSW1wQUIkRGlmZlNRTXMyIDwtIHJlc3VsdHNPdXRTUU1zMiRjb25kaXRpb25hbF9wZXJtaW1wXG5cbmBgYFxuYGBgIn0= -->
```r
```r
# store results
resdHiAnnoyFitAB['Diff SQMs no tonal loud', 'RMSE'] <- resultsOutSQMs2$OOB_RMSE
resdHiAnnoyFitAB['Diff SQMs no tonal loud', 'MAE'] <- resultsOutSQMs2$OOB_MAE
resdHiAnnoyFitAB['Diff SQMs no tonal loud', 'Rsquared'] <- resultsOutSQMs2$Rsquared
resdHiAnnoyPermImpAB$DiffSQMs2 <- resultsOutSQMs2$conditional_permimp
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
###### Plot results
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVjR0Z5S0cxaGFUMWpLREFzTXl3d0xEQXBLVnh1WEc0aklIQnNiM1FnWTI5dVpHbDBhVzl1WVd3Z2FXMXdiM0owWVc1alpWeHVjbVZ6ZFd4MGMwOTFkRk5SVFhNeUxtTnZibWx0Y0NBOExTQmhjbkpoYm1kbEtISmxjM1ZzZEhOUGRYUlRVVTF6TWlSamIyNWthWFJwYjI1aGJGOXdaWEp0YVcxd0xDQmtaWE5qS0hKdmQxOXVkVzFpWlhJb0tTa3BYRzVjYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzNWc2RITlBkWFJUVVUxek1pNWpiMjVwYlhBcElDc2daMlZ2YlY5amIyd29ZV1Z6S0hnOVptRmpkRzl5S0hKdmQyNWhiV1Z6S0hKbGMzVnNkSE5QZFhSVFVVMXpNaTVqYjI1cGJYQXBMQ0JzWlhabGJITTljbTkzYm1GdFpYTW9jbVZ6ZFd4MGMwOTFkRk5SVFhNeUxtTnZibWx0Y0NrcExDQjVQVU52Ym1SUVpYSnRTVzF3S1N3Z1ptbHNiRDF0ZVdOdmJHOTFjbk5iTjEwc0lIZHBaSFJvUFRBdU5Ta2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lRMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpTQW9KU0JvYVdkb2JIa2dZVzV1YjNsbFpDbGNJaWtnS3lCMGFHVnRaU2gwWlhoMElEMGdaV3hsYldWdWRGOTBaWGgwS0daaGJXbHNlU0E5SUZ3aWMyVnlhV1pjSWlrc0lIQmhibVZzTG1keWFXUTlaV3hsYldWdWRGOXNhVzVsS0dOdmJHOXlJRDBnY21kaUtESXpOU3dnTWpNMUxDQXlNelVzSURFd01Dd2diV0Y0UTI5c2IzSldZV3gxWlNBOUlESTFOU2tzSUd4cGJtVjNhV1IwYUNBOUlEQXVNalVzSUd4cGJtVjBlWEJsSUQwZ01pa3BJQ3NnWTI5dmNtUmZabXhwY0NoNWJHbHRQV01vTUN3Z05UQXBLVnh1Y0VKaGNseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmtTR2xCYm01dmVVUnBabVpUVVUxelRtOVViMjVNWkVOdmJsQmxjbTFwYlhBdWMzWm5YQ0lzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDB5TGpRc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGd2ljM1puWENJcEtWeHVJQ0IxYm14cGJtc29YQ0pRZEhOQlFtUklhVUZ1Ym05NVJHbG1abE5SVFhOT2IxUnZia3hrUTI5dVVHVnliV2x0Y0M1emRtZGNJaWxjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNJbEIwYzBGQ1pFaHBRVzV1YjNsRWFXWm1VMUZOYzA1dlZHOXVUR1JEYjI1UVpYSnRhVzF3TG5Ca1psd2lMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNaTQwTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luQmtabHdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKa1NHbEJibTV2ZVVScFptWlRVVTF6VG05VWIyNU1aRU52YmxCbGNtMXBiWEF1Y0dSbVhDSXBYRzU5WEc1Y2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5wYXIobWFpPWMoMCwzLDAsMCkpXG5cbiMgcGxvdCBjb25kaXRpb25hbCBpbXBvcnRhbmNlXG5yZXN1bHRzT3V0U1FNczIuY29uaW1wIDwtIGFycmFuZ2UocmVzdWx0c091dFNRTXMyJGNvbmRpdGlvbmFsX3Blcm1pbXAsIGRlc2Mocm93X251bWJlcigpKSlcblxucEJhciA8LSBnZ3Bsb3QocmVzdWx0c091dFNRTXMyLmNvbmltcCkgKyBnZW9tX2NvbChhZXMoeD1mYWN0b3Iocm93bmFtZXMocmVzdWx0c091dFNRTXMyLmNvbmltcCksIGxldmVscz1yb3duYW1lcyhyZXN1bHRzT3V0U1FNczIuY29uaW1wKSksIHk9Q29uZFBlcm1JbXApLCBmaWxsPW15Y29sb3Vyc1s3XSwgd2lkdGg9MC41KSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxDb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlICglIGhpZ2hseSBhbm5veWVkKVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSkgKyBjb29yZF9mbGlwKHlsaW09YygwLCA1MCkpXG5wQmFyXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmRIaUFubm95RGlmZlNRTXNOb1RvbkxkQ29uUGVybWltcC5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTIuNCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCZEhpQW5ub3lEaWZmU1FNc05vVG9uTGRDb25QZXJtaW1wLnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZTUU1zTm9Ub25MZENvblBlcm1pbXAucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0yLjQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95RGlmZlNRTXNOb1RvbkxkQ29uUGVybWltcC5wZGZcXClcbn1cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs2.conimp <- arrange(resultsOutSQMs2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs2.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs2.conimp), levels=rownames(resultsOutSQMs2.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 50))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyDiffSQMsNoTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyDiffSQMsNoTonLdConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyDiffSQMsNoTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyDiffSQMsNoTonLdConPermimp.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dWNHRnlLRzFoYVQxaktEQXNNeXd3TERBcEtWeHVYRzRqSUhCc2IzUWdZMjl1WkdsMGFXOXVZV3dnYVcxd2IzSjBZVzVqWlZ4dWNtVnpkV3gwYzA5MWRGTlJUWE15TG1OdmJtbHRjQ0E4TFNCaGNuSmhibWRsS0hKbGMzVnNkSE5QZFhSVFVVMXpNaVJqYjI1a2FYUnBiMjVoYkY5d1pYSnRhVzF3TENCa1pYTmpLSEp2ZDE5dWRXMWlaWElvS1NrcFhHNWNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjM1ZzZEhOUGRYUlRVVTF6TWk1amIyNXBiWEFwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLSGc5Wm1GamRHOXlLSEp2ZDI1aGJXVnpLSEpsYzNWc2RITlBkWFJUVVUxek1pNWpiMjVwYlhBcExDQnNaWFpsYkhNOWNtOTNibUZ0WlhNb2NtVnpkV3gwYzA5MWRGTlJUWE15TG1OdmJtbHRjQ2twTENCNVBVTnZibVJRWlhKdFNXMXdLU3dnWm1sc2JEMXRlV052Ykc5MWNuTmJOMTBzSUhkcFpIUm9QVEF1TlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1EyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlNBb0pTQm9hV2RvYkhrZ1lXNXViM2xsWkNsY1hDa2dLeUIwYUdWdFpTaDBaWGgwSUQwZ1pXeGxiV1Z1ZEY5MFpYaDBLR1poYldsc2VTQTlJRnhjYzJWeWFXWmNYQ2tzSUhCaGJtVnNMbWR5YVdROVpXeGxiV1Z1ZEY5c2FXNWxLR052Ykc5eUlEMGdjbWRpS0RJek5Td2dNak0xTENBeU16VXNJREV3TUN3Z2JXRjRRMjlzYjNKV1lXeDFaU0E5SURJMU5Ta3NJR3hwYm1WM2FXUjBhQ0E5SURBdU1qVXNJR3hwYm1WMGVYQmxJRDBnTWlrcElDc2dZMjl2Y21SZlpteHBjQ2g1YkdsdFBXTW9NQ3dnTlRBcEtWeHVjRUpoY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKa1NHbEJibTV2ZVVScFptWlRVVTF6VG05VWIyNU1aRU52YmxCbGNtMXBiWEF1YzNablhGd3NJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHlMalFzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ4Y2MzWm5YRndwS1Z4dUlDQjFibXhwYm1zb1hGeFFkSE5CUW1SSWFVRnVibTk1UkdsbVpsTlJUWE5PYjFSdmJreGtRMjl1VUdWeWJXbHRjQzV6ZG1kY1hDbGNiaUFnWEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY1hGQjBjMEZDWkVocFFXNXViM2xFYVdabVUxRk5jMDV2Vkc5dVRHUkRiMjVRWlhKdGFXMXdMbkJrWmx4Y0xDQjNhV1IwYUQwNExDQm9aV2xuYUhROU1pNDBMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhCa1pseGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUprU0dsQmJtNXZlVVJwWm1aVFVVMXpUbTlVYjI1TVpFTnZibEJsY20xcGJYQXVjR1JtWEZ3cFhHNTlYRzVjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMyLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMiRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMi5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMi5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMyLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgNTApKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZTUU1zTm9Ub25MZENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95RGlmZlNRTXNOb1RvbkxkQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lEaWZmU1FNc05vVG9uTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veURpZmZTUU1zTm9Ub25MZENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxucGFyKG1haT1jKDAsMywwLDApKVxuXG4jIHBsb3QgY29uZGl0aW9uYWwgaW1wb3J0YW5jZVxucmVzdWx0c091dFNRTXMyLmNvbmltcCA8LSBhcnJhbmdlKHJlc3VsdHNPdXRTUU1zMiRjb25kaXRpb25hbF9wZXJtaW1wLCBkZXNjKHJvd19udW1iZXIoKSkpXG5cbnBCYXIgPC0gZ2dwbG90KHJlc3VsdHNPdXRTUU1zMi5jb25pbXApICsgZ2VvbV9jb2woYWVzKHg9ZmFjdG9yKHJvd25hbWVzKHJlc3VsdHNPdXRTUU1zMi5jb25pbXApLCBsZXZlbHM9cm93bmFtZXMocmVzdWx0c091dFNRTXMyLmNvbmltcCkpLCB5PUNvbmRQZXJtSW1wKSwgZmlsbD1teWNvbG91cnNbN10sIHdpZHRoPTAuNSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcQ29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZSAoJSBoaWdobHkgYW5ub3llZClcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgNTApKVxucEJhclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJkSGlBbm5veURpZmZTUU1zTm9Ub25MZENvblBlcm1pbXAuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0yLjQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmRIaUFubm95RGlmZlNRTXNOb1RvbkxkQ29uUGVybWltcC5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCZEhpQW5ub3lEaWZmU1FNc05vVG9uTGRDb25QZXJtaW1wLnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9Mi40LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJkSGlBbm5veURpZmZTUU1zTm9Ub25MZENvblBlcm1pbXAucGRmXFwpXG59XG5cbmBgYFxuYGBgIn0= -->
```r
```r
par(mai=c(0,3,0,0))
# plot conditional importance
resultsOutSQMs2.conimp <- arrange(resultsOutSQMs2$conditional_permimp, desc(row_number()))
pBar <- ggplot(resultsOutSQMs2.conimp) + geom_col(aes(x=factor(rownames(resultsOutSQMs2.conimp), levels=rownames(resultsOutSQMs2.conimp)), y=CondPermImp), fill=mycolours[7], width=0.5) + labs(x=\Variable\, y=\Conditional variable permutation importance (% highly annoyed)\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 50))
pBar
if (saveplots){
ggsave(filename=\PtsABdHiAnnoyDiffSQMsNoTonLdConPermimp.svg\, width=8, height=2.4, path=file.path(outFigPath, \svg\))
unlink(\PtsABdHiAnnoyDiffSQMsNoTonLdConPermimp.svg\)
ggsave(filename=\PtsABdHiAnnoyDiffSQMsNoTonLdConPermimp.pdf\, width=8, height=2.4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABdHiAnnoyDiffSQMsNoTonLdConPermimp.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
### Save the results outputs to file
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaV1JoZEdFcGUxeHVJQ0IxZEdsc2N6bzZkM0pwZEdVdVkzTjJLSEpsYzJSSWFVRnVibTk1Um1sMFFVSXNJSEJoYzNSbEtHOTFkRVJoZEdGUVlYUm9MQ0JjSWx4Y1hGeFFkSE5CUWtOU1JtUklhVUZ1Ym05NVQwOUNSbWwwTG1OemRsd2lMQ0J6WlhBOVhDSmNJaWtwWEc0Z0lHbHBJRHd0SURCY2JpQWdkR1Z0Y0NBOUlHeHBjM1FvS1Z4dUlDQm1iM0lnS0hKbGN5QnBiaUJ5WlhOa1NHbEJibTV2ZVZCbGNtMUpiWEJCUWlsN1hHNGdJQ0FnYVdrZ1BDMGdhV2tnS3lBeFhHNGdJQ0FnZEdWdGNGdGJhV2xkWFNBOExTQmhjeTVrWVhSaExtWnlZVzFsS0hKbGMyUklhVUZ1Ym05NVVHVnliVWx0Y0VGQ1cybHBYU2xjYmlBZ0lDQnVZVzFsY3loMFpXMXdXMXRwYVYxZEtTQThMU0J1WVcxbGN5aHlaWE5rU0dsQmJtNXZlVkJsY20xSmJYQkJRbHRwYVYwcFhHNGdJSDFjYmlBZ2IzQmxibmhzYzNnNk9uZHlhWFJsTG5oc2MzZ29kR1Z0Y0N3Z2NHRnpkR1VvYjNWMFJHRjBZVkJoZEdnc0lGd2lYRnhjWEZCMGMwRkNRMUpHWkVocFFXNXViM2xEYjI1UVpYSnRhVzF3TG5oc2MzaGNJaXhjYmlBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnYzJWd1BWd2lYQ0lwTEZ4dUlDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0J5YjNkT1lXMWxjejFVVWxWRktWeHVmVnh1WEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5cbmlmIChzYXZlZGF0YSl7XG4gIHV0aWxzOjp3cml0ZS5jc3YocmVzZEhpQW5ub3lGaXRBQiwgcGFzdGUob3V0RGF0YVBhdGgsIFxcXFxcXFB0c0FCQ1JGZEhpQW5ub3lPT0JGaXQuY3N2XFwsIHNlcD1cXFxcKSlcbiAgaWkgPC0gMFxuICB0ZW1wID0gbGlzdCgpXG4gIGZvciAocmVzIGluIHJlc2RIaUFubm95UGVybUltcEFCKXtcbiAgICBpaSA8LSBpaSArIDFcbiAgICB0ZW1wW1tpaV1dIDwtIGFzLmRhdGEuZnJhbWUocmVzZEhpQW5ub3lQZXJtSW1wQUJbaWldKVxuICAgIG5hbWVzKHRlbXBbW2lpXV0pIDwtIG5hbWVzKHJlc2RIaUFubm95UGVybUltcEFCW2lpXSlcbiAgfVxuICBvcGVueGxzeDo6d3JpdGUueGxzeCh0ZW1wLCBwYXN0ZShvdXREYXRhUGF0aCwgXFxcXFxcUHRzQUJDUkZkSGlBbm5veUNvblBlcm1pbXAueGxzeFxcLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzZXA9XFxcXCksXG4gICAgICAgICAgICAgICAgICAgICAgIHJvd05hbWVzPVRSVUUpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (savedata){
utils::write.csv(resdHiAnnoyFitAB, paste(outDataPath, \\\PtsABCRFdHiAnnoyOOBFit.csv\, sep=\\))
ii <- 0
temp = list()
for (res in resdHiAnnoyPermImpAB){
ii <- ii + 1
temp[[ii]] <- as.data.frame(resdHiAnnoyPermImpAB[ii])
names(temp[[ii]]) <- names(resdHiAnnoyPermImpAB[ii])
}
openxlsx::write.xlsx(temp, paste(outDataPath, \\\PtsABCRFdHiAnnoyConPermimp.xlsx\,
sep=\\),
rowNames=TRUE)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpXUmhkR0VwZTF4dUlDQjFkR2xzY3pvNmQzSnBkR1V1WTNOMktISmxjMlJJYVVGdWJtOTVSbWwwUVVJc0lIQmhjM1JsS0c5MWRFUmhkR0ZRWVhSb0xDQmNYRnhjWEZ4UWRITkJRa05TUm1SSWFVRnVibTk1VDA5Q1JtbDBMbU56ZGx4Y0xDQnpaWEE5WEZ4Y1hDa3BYRzRnSUdscElEd3RJREJjYmlBZ2RHVnRjQ0E5SUd4cGMzUW9LVnh1SUNCbWIzSWdLSEpsY3lCcGJpQnlaWE5rU0dsQmJtNXZlVkJsY20xSmJYQkJRaWw3WEc0Z0lDQWdhV2tnUEMwZ2FXa2dLeUF4WEc0Z0lDQWdkR1Z0Y0Z0YmFXbGRYU0E4TFNCaGN5NWtZWFJoTG1aeVlXMWxLSEpsYzJSSWFVRnVibTk1VUdWeWJVbHRjRUZDVzJscFhTbGNiaUFnSUNCdVlXMWxjeWgwWlcxd1cxdHBhVjFkS1NBOExTQnVZVzFsY3loeVpYTmtTR2xCYm01dmVWQmxjbTFKYlhCQlFsdHBhVjBwWEc0Z0lIMWNiaUFnYjNCbGJuaHNjM2c2T25keWFYUmxMbmhzYzNnb2RHVnRjQ3dnY0dGemRHVW9iM1YwUkdGMFlWQmhkR2dzSUZ4Y1hGeGNYRkIwYzBGQ1ExSkdaRWhwUVc1dWIzbERiMjVRWlhKdGFXMXdMbmhzYzNoY1hDeGNiaUFnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdjMlZ3UFZ4Y1hGd3BMRnh1SUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQnliM2RPWVcxbGN6MVVVbFZGS1Z4dWZWeHVYRzVnWUdCY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlZGF0YSl7XG4gIHV0aWxzOjp3cml0ZS5jc3YocmVzZEhpQW5ub3lGaXRBQiwgcGFzdGUob3V0RGF0YVBhdGgsIFxcXFxcXFB0c0FCQ1JGZEhpQW5ub3lPT0JGaXQuY3N2XFwsIHNlcD1cXFxcKSlcbiAgaWkgPC0gMFxuICB0ZW1wID0gbGlzdCgpXG4gIGZvciAocmVzIGluIHJlc2RIaUFubm95UGVybUltcEFCKXtcbiAgICBpaSA8LSBpaSArIDFcbiAgICB0ZW1wW1tpaV1dIDwtIGFzLmRhdGEuZnJhbWUocmVzZEhpQW5ub3lQZXJtSW1wQUJbaWldKVxuICAgIG5hbWVzKHRlbXBbW2lpXV0pIDwtIG5hbWVzKHJlc2RIaUFubm95UGVybUltcEFCW2lpXSlcbiAgfVxuICBvcGVueGxzeDo6d3JpdGUueGxzeCh0ZW1wLCBwYXN0ZShvdXREYXRhUGF0aCwgXFxcXFxcUHRzQUJDUkZkSGlBbm5veUNvblBlcm1pbXAueGxzeFxcLFxuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzZXA9XFxcXCksXG4gICAgICAgICAgICAgICAgICAgICAgIHJvd05hbWVzPVRSVUUpXG59XG5cbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZWRhdGEpe1xuICB1dGlsczo6d3JpdGUuY3N2KHJlc2RIaUFubm95Rml0QUIsIHBhc3RlKG91dERhdGFQYXRoLCBcXFxcXFxQdHNBQkNSRmRIaUFubm95T09CRml0LmNzdlxcLCBzZXA9XFxcXCkpXG4gIGlpIDwtIDBcbiAgdGVtcCA9IGxpc3QoKVxuICBmb3IgKHJlcyBpbiByZXNkSGlBbm5veVBlcm1JbXBBQil7XG4gICAgaWkgPC0gaWkgKyAxXG4gICAgdGVtcFtbaWldXSA8LSBhcy5kYXRhLmZyYW1lKHJlc2RIaUFubm95UGVybUltcEFCW2lpXSlcbiAgICBuYW1lcyh0ZW1wW1tpaV1dKSA8LSBuYW1lcyhyZXNkSGlBbm5veVBlcm1JbXBBQltpaV0pXG4gIH1cbiAgb3Blbnhsc3g6OndyaXRlLnhsc3godGVtcCwgcGFzdGUob3V0RGF0YVBhdGgsIFxcXFxcXFB0c0FCQ1JGZEhpQW5ub3lDb25QZXJtaW1wLnhsc3hcXCxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2VwPVxcXFwpLFxuICAgICAgICAgICAgICAgICAgICAgICByb3dOYW1lcz1UUlVFKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
if (savedata){
utils::write.csv(resdHiAnnoyFitAB, paste(outDataPath, \\\PtsABCRFdHiAnnoyOOBFit.csv\, sep=\\))
ii <- 0
temp = list()
for (res in resdHiAnnoyPermImpAB){
ii <- ii + 1
temp[[ii]] <- as.data.frame(resdHiAnnoyPermImpAB[ii])
names(temp[[ii]]) <- names(resdHiAnnoyPermImpAB[ii])
}
openxlsx::write.xlsx(temp, paste(outDataPath, \\\PtsABCRFdHiAnnoyConPermimp.xlsx\,
sep=\\),
rowNames=TRUE)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
## Parts A&B summary
Summary of results for Parts A & B combined
### With tonal loudness
#### Absolute variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJqYjIxaWFXNWxJSFJvWlNCaGJtNXZlV0Z1WTJVZ2NHVnliU0JwYlhCdmNuUmhibU5sSUhKbGMzVnNkSE5jYmx4dUl5QmpiMjUyWlhKMElHVmhZMmdnY21WemRXeDBJSFJ2SUdFZ2RHbGlZbXhsSUhkcGRHZ2djbTkzYm1GdFpYTWdZV1JrWldRZ2RHOGdZU0JqYjJ4MWJXNHNJSEpsYm1GdGFXNW5JSFJvWlNCa1lYUmhJR052YkhWdGJpQjBieUFuWkVGdWJtOTVKeUJsZEdNdVhHNXlaWE5rUVc1dWIzbE5ia0ZpYzFCbGNtMUpiWEJVWW14QlFpQThMU0JoY3k1a1lYUmhMbVp5WVcxbEtISmxjMlJCYm01dmVVMXVVR1Z5YlVsdGNFRkNKRUZpYzFOUlRYTXhMMjFoZUNoeVpYTmtRVzV1YjNsTmJsQmxjbTFKYlhCQlFpUkJZbk5UVVUxek1Ta3BJSHcrWEc0Z0lIUnBZbUpzWlRvNmNtOTNibUZ0WlhOZmRHOWZZMjlzZFcxdUtIWmhjajBuVm1GeWFXRmliR1VuS1Z4dVkyOXNibUZ0WlhNb2NtVnpaRUZ1Ym05NVRXNUJZbk5RWlhKdFNXMXdWR0pzUVVJcFd6SmRJRHd0SUZ3aVpFRnVibTk1WENKY2JseHVjbVZ6WkVocFFXNXViM2xCWW5OUVpYSnRTVzF3VkdKc1FVSWdQQzBnWVhNdVpHRjBZUzVtY21GdFpTaHlaWE5rU0dsQmJtNXZlVkJsY20xSmJYQkJRaVJCWW5OVFVVMXpNUzl0WVhnb2NtVnpaRWhwUVc1dWIzbFFaWEp0U1cxd1FVSWtRV0p6VTFGTmN6RXBLU0I4UGx4dUlDQjBhV0ppYkdVNk9uSnZkMjVoYldWelgzUnZYMk52YkhWdGJpaDJZWEk5SjFaaGNtbGhZbXhsSnlsY2JtTnZiRzVoYldWektISmxjMlJJYVVGdWJtOTVRV0p6VUdWeWJVbHRjRlJpYkVGQ0tWc3lYU0E4TFNCY0ltUklhVUZ1Ym05NVhDSmNibHh1SXlCdFpYSm5aU0IwYUdVZ1pHRjBZV1p5WVcxbGMxeHVjbVZ6UVdKelVHVnliVWx0Y0ZSaWJFRkNJRHd0SUd4cGMzUW9jbVZ6WkVGdWJtOTVUVzVCWW5OUVpYSnRTVzF3VkdKc1FVSXNJSEpsYzJSSWFVRnVibTk1UVdKelVHVnliVWx0Y0ZSaWJFRkNLU0I4UGx4dUlDQndkWEp5Y2pvNmNtVmtkV05sS0cxbGNtZGxMQ0JpZVNBOUlHTW9KMVpoY21saFlteGxKeWtzSUdGc2JDQTlJRlFwWEc1Y2JpTWdjbVZ1WVcxbElIUm9aU0JqYjJ4MWJXNXpYRzVqYjJ4dVlXMWxjeWh5WlhOQlluTlFaWEp0U1cxd1ZHSnNRVUlwV3pJNk0xMGdQQzBnWXloY0lrMWxZVzRnWTJoaGJtZGxJR2x1SUdGdWJtOTVZVzVqWlZ3aUxDQmNJaVZJUVNCOElFaEJKeUFvWVcxaUxpbGNJaWxjYm5KbGMwRmljMUJsY20xSmJYQlVZbXhCUWx0cGN5NXVZU2h5WlhOQlluTlFaWEp0U1cxd1ZHSnNRVUlwWFNBOExTQXdYRzVjYm5KbGMwRmljMEZDSUR3dElIUnBaSGx5T2pwd2FYWnZkRjlzYjI1blpYSW9jbVZ6UVdKelVHVnliVWx0Y0ZSaWJFRkNMQ0JqYjJ4elBTMVdZWEpwWVdKc1pTd2dibUZ0WlhOZmRHODlYQ0pQZFhSamIyMWxYQ0lzSUhaaGJIVmxjMTkwYnoxY0lrbHRjRndpS1Z4dVhHNGpJSEpsYjNKa1pYSWdjbVZ6SUhScFltSnNaU3dnWkdWelkyVnVaR2x1WnlCaWVTQjBhR1VnZG1GeWFXRmliR1VnU1cxd0lHZHliM1Z3WldRZ2MzVnRJR0Z1WkNCamNtVmhkR1VnWTI5c2RXMXVJSGRwZEdnZ2JtVjNJR2R5YjNWd0lHOXlaR1Z5SUdGeklHRWdabUZqZEc5eVhHNXlaWE5CWW5OQlFpQThMU0J5WlhOQlluTkJRaUI4UGlCdGRYUmhkR1VvVm1GeWFXRmliR1ZmYzNWdElEMGdjM1Z0S0VsdGNDa3NJQzVpZVQxV1lYSnBZV0pzWlNrZ2ZENGdZWEp5WVc1blpTaGtaWE5qS0ZaaGNtbGhZbXhsWDNOMWJTa3BJSHcrSUdkeWIzVndYMko1S0ZaaGNtbGhZbXhsWDNOMWJTd2dWbUZ5YVdGaWJHVXBJSHcrWEc0Z0lDQnRkWFJoZEdVb1QzSmtaWElnUFNCamRYSmZaM0p2ZFhCZmFXUW9LU2tnZkQ0Z2JYVjBZWFJsS0U5eVpHVnlJRDBnWVhNdVptRmpkRzl5S0U5eVpHVnlLU2tnZkQ0Z1lYSnlZVzVuWlNoa1pYTmpLRTl5WkdWeUtTbGNibHh1SXlCU1pXOXlaR1Z5SUc5MWRHTnZiV1VnYkdWMlpXeHpYRzV5WlhOQlluTkJRaVJQZFhSamIyMWxJRHd0SUdaaFkzUnZjaWh5WlhOQlluTkJRaVJQZFhSamIyMWxMQ0JzWlhabGJITTlZeWhjSWsxbFlXNGdZMmhoYm1kbElHbHVJR0Z1Ym05NVlXNWpaVndpTENCY0lpVklRU0I4SUVoQkp5QW9ZVzFpTGlsY0lpa3BYRzVjYmlNZ2NHeHZkQ0J5WlhNZ1lYTWdhRzl5YVhwdmJuUmhiQ0JpWVhJZ1kyaGhjblFzSUhkcGRHZ2dTVzF3SUdGeklIa2dZWGhwY3l3Z1ZtRnlhV0ZpYkdVZ1lYTWdlQ0JoZUdsekxDQlBkWFJqYjIxbElHRnpJR1pwYkd3c0lHRnVaQ0JXWVhKcFlXSnNaVjl6ZFcwZ1lYTWdiM0prWlhJc0lISmxiR0ZpWld3Z2VDQmhlR2x6SUhkcGRHZ2dWbUZ5YVdGaWJHVWdibUZ0WlhOY2JuQkNZWElnUEMwZ1oyZHdiRzkwS0hKbGMwRmljMEZDS1NBcklHZGxiMjFmWTI5c0tHRmxjeWhtYVd4c1BVOTFkR052YldVc0lIazlTVzF3TENCNFBVOXlaR1Z5S1N3Z1kyOXNiM1Z5UFNkbmNtVjVNelVuTENCc2FXNWxkMmxrZEdnOU1Dd2dJSGRwWkhSb1BUQXVOelVzSUhOb2IzY3ViR1ZuWlc1a1BWUlNWVVVwSUNzZ2JHRmljeWg0UFZ3aVZtRnlhV0ZpYkdWY0lpd2dlVDFjSWs1dmNtMWhiR2x6WldRZ1kyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVmNYRzV3WlhKdGRYUmhkR2x2YmlCcGJYQnZjblJoYm1ObFhDSXBJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjSW5ObGNtbG1YQ0lwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcEtTQXJJR052YjNKa1gyWnNhWEFvZVd4cGJUMWpLREFzSURFcEtTQXJJSE5qWVd4bFgyWnBiR3hmYldGdWRXRnNLSFpoYkhWbGN6MXRlV052Ykc5MWNuTXNJR3hoWW1Wc2N6MWpLR1Y0Y0hKbGMzTnBiMjRvY0dGemRHVW9ZbUZ5S0VSbGJIUmhma0VwS1Nrc0lGd2lKVWhCSUh3Z1NFRW5JQ2hoYldJdUtWd2lLU2tnS3lCelkyRnNaVjk0WDJScGMyTnlaWFJsS0d4aFltVnNjejExYm1seGRXVW9jbVYyS0hKbGMwRmljMEZDSkZaaGNtbGhZbXhsS1NrcElDc2daM1ZwWkdWektHWnBiR3c5WjNWcFpHVmZiR1ZuWlc1a0tIUnBkR3hsUFNkUGRYUmpiMjFsSnlrcFhHNXdRbUZ5SUNzZ2MyTmhiR1ZmZVY5amIyNTBhVzUxYjNWektHSnlaV0ZyY3oxelpYRW9NQ3dnTVN3Z1luazlNQzQxS1NsY2JtQmdZQ0o5IC0tPlxuXG5gYGByXG4jIGNvbWJpbmUgdGhlIGFubm95YW5jZSBwZXJtIGltcG9ydGFuY2UgcmVzdWx0c1xuXG4jIGNvbnZlcnQgZWFjaCByZXN1bHQgdG8gYSB0aWJibGUgd2l0aCByb3duYW1lcyBhZGRlZCB0byBhIGNvbHVtbiwgcmVuYW1pbmcgdGhlIGRhdGEgY29sdW1uIHRvICdkQW5ub3knIGV0Yy5cbnJlc2RBbm5veU1uQWJzUGVybUltcFRibEFCIDwtIGFzLmRhdGEuZnJhbWUocmVzZEFubm95TW5QZXJtSW1wQUIkQWJzU1FNczEvbWF4KHJlc2RBbm5veU1uUGVybUltcEFCJEFic1NRTXMxKSkgfD5cbiAgdGliYmxlOjpyb3duYW1lc190b19jb2x1bW4odmFyPSdWYXJpYWJsZScpXG5jb2xuYW1lcyhyZXNkQW5ub3lNbkFic1Blcm1JbXBUYmxBQilbMl0gPC0gXFxkQW5ub3lcXFxuXG5yZXNkSGlBbm5veUFic1Blcm1JbXBUYmxBQiA8LSBhcy5kYXRhLmZyYW1lKHJlc2RIaUFubm95UGVybUltcEFCJEFic1NRTXMxL21heChyZXNkSGlBbm5veVBlcm1JbXBBQiRBYnNTUU1zMSkpIHw+XG4gIHRpYmJsZTo6cm93bmFtZXNfdG9fY29sdW1uKHZhcj0nVmFyaWFibGUnKVxuY29sbmFtZXMocmVzZEhpQW5ub3lBYnNQZXJtSW1wVGJsQUIpWzJdIDwtIFxcZEhpQW5ub3lcXFxuXG4jIG1lcmdlIHRoZSBkYXRhZnJhbWVzXG5yZXNBYnNQZXJtSW1wVGJsQUIgPC0gbGlzdChyZXNkQW5ub3lNbkFic1Blcm1JbXBUYmxBQiwgcmVzZEhpQW5ub3lBYnNQZXJtSW1wVGJsQUIpIHw+XG4gIHB1cnJyOjpyZWR1Y2UobWVyZ2UsIGJ5ID0gYygnVmFyaWFibGUnKSwgYWxsID0gVClcblxuIyByZW5hbWUgdGhlIGNvbHVtbnNcbmNvbG5hbWVzKHJlc0Fic1Blcm1JbXBUYmxBQilbMjozXSA8LSBjKFxcTWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlXFwsIFxcJUhBIHwgSEEnIChhbWIuKVxcKVxucmVzQWJzUGVybUltcFRibEFCW2lzLm5hKHJlc0Fic1Blcm1JbXBUYmxBQildIDwtIDBcblxucmVzQWJzQUIgPC0gdGlkeXI6OnBpdm90X2xvbmdlcihyZXNBYnNQZXJtSW1wVGJsQUIsIGNvbHM9LVZhcmlhYmxlLCBuYW1lc190bz1cXE91dGNvbWVcXCwgdmFsdWVzX3RvPVxcSW1wXFwpXG5cbiMgcmVvcmRlciByZXMgdGliYmxlLCBkZXNjZW5kaW5nIGJ5IHRoZSB2YXJpYWJsZSBJbXAgZ3JvdXBlZCBzdW0gYW5kIGNyZWF0ZSBjb2x1bW4gd2l0aCBuZXcgZ3JvdXAgb3JkZXIgYXMgYSBmYWN0b3JcbnJlc0Fic0FCIDwtIHJlc0Fic0FCIHw+IG11dGF0ZShWYXJpYWJsZV9zdW0gPSBzdW0oSW1wKSwgLmJ5PVZhcmlhYmxlKSB8PiBhcnJhbmdlKGRlc2MoVmFyaWFibGVfc3VtKSkgfD4gZ3JvdXBfYnkoVmFyaWFibGVfc3VtLCBWYXJpYWJsZSkgfD5cbiAgIG11dGF0ZShPcmRlciA9IGN1cl9ncm91cF9pZCgpKSB8PiBtdXRhdGUoT3JkZXIgPSBhcy5mYWN0b3IoT3JkZXIpKSB8PiBhcnJhbmdlKGRlc2MoT3JkZXIpKVxuXG4jIFJlb3JkZXIgb3V0Y29tZSBsZXZlbHNcbnJlc0Fic0FCJE91dGNvbWUgPC0gZmFjdG9yKHJlc0Fic0FCJE91dGNvbWUsIGxldmVscz1jKFxcTWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlXFwsIFxcJUhBIHwgSEEnIChhbWIuKVxcKSlcblxuIyBwbG90IHJlcyBhcyBob3Jpem9udGFsIGJhciBjaGFydCwgd2l0aCBJbXAgYXMgeSBheGlzLCBWYXJpYWJsZSBhcyB4IGF4aXMsIE91dGNvbWUgYXMgZmlsbCwgYW5kIFZhcmlhYmxlX3N1bSBhcyBvcmRlciwgcmVsYWJlbCB4IGF4aXMgd2l0aCBWYXJpYWJsZSBuYW1lc1xucEJhciA8LSBnZ3Bsb3QocmVzQWJzQUIpICsgZ2VvbV9jb2woYWVzKGZpbGw9T3V0Y29tZSwgeT1JbXAsIHg9T3JkZXIpLCBjb2xvdXI9J2dyZXkzNScsIGxpbmV3aWR0aD0wLCAgd2lkdGg9MC43NSwgc2hvdy5sZWdlbmQ9VFJVRSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcTm9ybWFsaXNlZCBjb25kaXRpb25hbCB2YXJpYWJsZVxcbnBlcm11dGF0aW9uIGltcG9ydGFuY2VcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMikpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgMSkpICsgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzPW15Y29sb3VycywgbGFiZWxzPWMoZXhwcmVzc2lvbihwYXN0ZShiYXIoRGVsdGF+QSkpKSwgXFwlSEEgfCBIQScgKGFtYi4pXFwpKSArIHNjYWxlX3hfZGlzY3JldGUobGFiZWxzPXVuaXF1ZShyZXYocmVzQWJzQUIkVmFyaWFibGUpKSkgKyBndWlkZXMoZmlsbD1ndWlkZV9sZWdlbmQodGl0bGU9J091dGNvbWUnKSlcbnBCYXIgKyBzY2FsZV95X2NvbnRpbnVvdXMoYnJlYWtzPXNlcSgwLCAxLCBieT0wLjUpKVxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# combine the annoyance perm importance results
# convert each result to a tibble with rownames added to a column, renaming the data column to 'dAnnoy' etc.
resdAnnoyMnAbsPermImpTblAB <- as.data.frame(resdAnnoyMnPermImpAB$AbsSQMs1/max(resdAnnoyMnPermImpAB$AbsSQMs1)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdAnnoyMnAbsPermImpTblAB)[2] <- \dAnnoy\
resdHiAnnoyAbsPermImpTblAB <- as.data.frame(resdHiAnnoyPermImpAB$AbsSQMs1/max(resdHiAnnoyPermImpAB$AbsSQMs1)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdHiAnnoyAbsPermImpTblAB)[2] <- \dHiAnnoy\
# merge the dataframes
resAbsPermImpTblAB <- list(resdAnnoyMnAbsPermImpTblAB, resdHiAnnoyAbsPermImpTblAB) |>
purrr::reduce(merge, by = c('Variable'), all = T)
# rename the columns
colnames(resAbsPermImpTblAB)[2:3] <- c(\Mean change in annoyance\, \%HA | HA' (amb.)\)
resAbsPermImpTblAB[is.na(resAbsPermImpTblAB)] <- 0
resAbsAB <- tidyr::pivot_longer(resAbsPermImpTblAB, cols=-Variable, names_to=\Outcome\, values_to=\Imp\)
# reorder res tibble, descending by the variable Imp grouped sum and create column with new group order as a factor
resAbsAB <- resAbsAB |> mutate(Variable_sum = sum(Imp), .by=Variable) |> arrange(desc(Variable_sum)) |> group_by(Variable_sum, Variable) |>
mutate(Order = cur_group_id()) |> mutate(Order = as.factor(Order)) |> arrange(desc(Order))
# Reorder outcome levels
resAbsAB$Outcome <- factor(resAbsAB$Outcome, levels=c(\Mean change in annoyance\, \%HA | HA' (amb.)\))
# plot res as horizontal bar chart, with Imp as y axis, Variable as x axis, Outcome as fill, and Variable_sum as order, relabel x axis with Variable names
pBar <- ggplot(resAbsAB) + geom_col(aes(fill=Outcome, y=Imp, x=Order), colour='grey35', linewidth=0, width=0.75, show.legend=TRUE) + labs(x=\Variable\, y=\Normalised conditional variable\npermutation importance\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 1)) + scale_fill_manual(values=mycolours, labels=c(expression(paste(bar(Delta~A))), \%HA | HA' (amb.)\)) + scale_x_discrete(labels=unique(rev(resAbsAB$Variable))) + guides(fill=guide_legend(title='Outcome'))
pBar + scale_y_continuous(breaks=seq(0, 1, by=0.5))
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QmpiMjFpYVc1bElIUm9aU0JoYm01dmVXRnVZMlVnY0dWeWJTQnBiWEJ2Y25SaGJtTmxJSEpsYzNWc2RITmNibHh1SXlCamIyNTJaWEowSUdWaFkyZ2djbVZ6ZFd4MElIUnZJR0VnZEdsaVlteGxJSGRwZEdnZ2NtOTNibUZ0WlhNZ1lXUmtaV1FnZEc4Z1lTQmpiMngxYlc0c0lISmxibUZ0YVc1bklIUm9aU0JrWVhSaElHTnZiSFZ0YmlCMGJ5QW5aRUZ1Ym05NUp5QmxkR011WEc1eVpYTmtRVzV1YjNsTmJrRmljMUJsY20xSmJYQlVZbXhCUWlBOExTQmhjeTVrWVhSaExtWnlZVzFsS0hKbGMyUkJibTV2ZVUxdVVHVnliVWx0Y0VGQ0pFRmljMU5SVFhNeEwyMWhlQ2h5WlhOa1FXNXViM2xOYmxCbGNtMUpiWEJCUWlSQlluTlRVVTF6TVNrcElIdytYRzRnSUhScFltSnNaVG82Y205M2JtRnRaWE5mZEc5ZlkyOXNkVzF1S0haaGNqMG5WbUZ5YVdGaWJHVW5LVnh1WTI5c2JtRnRaWE1vY21WelpFRnVibTk1VFc1QlluTlFaWEp0U1cxd1ZHSnNRVUlwV3pKZElEd3RJRnhjWkVGdWJtOTVYRnhjYmx4dWNtVnpaRWhwUVc1dWIzbEJZbk5RWlhKdFNXMXdWR0pzUVVJZ1BDMGdZWE11WkdGMFlTNW1jbUZ0WlNoeVpYTmtTR2xCYm01dmVWQmxjbTFKYlhCQlFpUkJZbk5UVVUxek1TOXRZWGdvY21WelpFaHBRVzV1YjNsUVpYSnRTVzF3UVVJa1FXSnpVMUZOY3pFcEtTQjhQbHh1SUNCMGFXSmliR1U2T25KdmQyNWhiV1Z6WDNSdlgyTnZiSFZ0YmloMllYSTlKMVpoY21saFlteGxKeWxjYm1OdmJHNWhiV1Z6S0hKbGMyUklhVUZ1Ym05NVFXSnpVR1Z5YlVsdGNGUmliRUZDS1ZzeVhTQThMU0JjWEdSSWFVRnVibTk1WEZ4Y2JseHVJeUJ0WlhKblpTQjBhR1VnWkdGMFlXWnlZVzFsYzF4dWNtVnpRV0p6VUdWeWJVbHRjRlJpYkVGQ0lEd3RJR3hwYzNRb2NtVnpaRUZ1Ym05NVRXNUJZbk5RWlhKdFNXMXdWR0pzUVVJc0lISmxjMlJJYVVGdWJtOTVRV0p6VUdWeWJVbHRjRlJpYkVGQ0tTQjhQbHh1SUNCd2RYSnljam82Y21Wa2RXTmxLRzFsY21kbExDQmllU0E5SUdNb0oxWmhjbWxoWW14bEp5a3NJR0ZzYkNBOUlGUXBYRzVjYmlNZ2NtVnVZVzFsSUhSb1pTQmpiMngxYlc1elhHNWpiMnh1WVcxbGN5aHlaWE5CWW5OUVpYSnRTVzF3VkdKc1FVSXBXekk2TTEwZ1BDMGdZeWhjWEUxbFlXNGdZMmhoYm1kbElHbHVJR0Z1Ym05NVlXNWpaVnhjTENCY1hDVklRU0I4SUVoQkp5QW9ZVzFpTGlsY1hDbGNibkpsYzBGaWMxQmxjbTFKYlhCVVlteEJRbHRwY3k1dVlTaHlaWE5CWW5OUVpYSnRTVzF3VkdKc1FVSXBYU0E4TFNBd1hHNWNibkpsYzBGaWMwRkNJRHd0SUhScFpIbHlPanB3YVhadmRGOXNiMjVuWlhJb2NtVnpRV0p6VUdWeWJVbHRjRlJpYkVGQ0xDQmpiMnh6UFMxV1lYSnBZV0pzWlN3Z2JtRnRaWE5mZEc4OVhGeFBkWFJqYjIxbFhGd3NJSFpoYkhWbGMxOTBiejFjWEVsdGNGeGNLVnh1WEc0aklISmxiM0prWlhJZ2NtVnpJSFJwWW1Kc1pTd2daR1Z6WTJWdVpHbHVaeUJpZVNCMGFHVWdkbUZ5YVdGaWJHVWdTVzF3SUdkeWIzVndaV1FnYzNWdElHRnVaQ0JqY21WaGRHVWdZMjlzZFcxdUlIZHBkR2dnYm1WM0lHZHliM1Z3SUc5eVpHVnlJR0Z6SUdFZ1ptRmpkRzl5WEc1eVpYTkJZbk5CUWlBOExTQnlaWE5CWW5OQlFpQjhQaUJ0ZFhSaGRHVW9WbUZ5YVdGaWJHVmZjM1Z0SUQwZ2MzVnRLRWx0Y0Nrc0lDNWllVDFXWVhKcFlXSnNaU2tnZkQ0Z1lYSnlZVzVuWlNoa1pYTmpLRlpoY21saFlteGxYM04xYlNrcElIdytJR2R5YjNWd1gySjVLRlpoY21saFlteGxYM04xYlN3Z1ZtRnlhV0ZpYkdVcElIdytYRzRnSUNCdGRYUmhkR1VvVDNKa1pYSWdQU0JqZFhKZlozSnZkWEJmYVdRb0tTa2dmRDRnYlhWMFlYUmxLRTl5WkdWeUlEMGdZWE11Wm1GamRHOXlLRTl5WkdWeUtTa2dmRDRnWVhKeVlXNW5aU2hrWlhOaktFOXlaR1Z5S1NsY2JseHVJeUJTWlc5eVpHVnlJRzkxZEdOdmJXVWdiR1YyWld4elhHNXlaWE5CWW5OQlFpUlBkWFJqYjIxbElEd3RJR1poWTNSdmNpaHlaWE5CWW5OQlFpUlBkWFJqYjIxbExDQnNaWFpsYkhNOVl5aGNYRTFsWVc0Z1kyaGhibWRsSUdsdUlHRnVibTk1WVc1alpWeGNMQ0JjWENWSVFTQjhJRWhCSnlBb1lXMWlMaWxjWENrcFhHNWNiaU1nY0d4dmRDQnlaWE1nWVhNZ2FHOXlhWHB2Ym5SaGJDQmlZWElnWTJoaGNuUXNJSGRwZEdnZ1NXMXdJR0Z6SUhrZ1lYaHBjeXdnVm1GeWFXRmliR1VnWVhNZ2VDQmhlR2x6TENCUGRYUmpiMjFsSUdGeklHWnBiR3dzSUdGdVpDQldZWEpwWVdKc1pWOXpkVzBnWVhNZ2IzSmtaWElzSUhKbGJHRmlaV3dnZUNCaGVHbHpJSGRwZEdnZ1ZtRnlhV0ZpYkdVZ2JtRnRaWE5jYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzBGaWMwRkNLU0FySUdkbGIyMWZZMjlzS0dGbGN5aG1hV3hzUFU5MWRHTnZiV1VzSUhrOVNXMXdMQ0I0UFU5eVpHVnlLU3dnWTI5c2IzVnlQU2RuY21WNU16VW5MQ0JzYVc1bGQybGtkR2c5TUN3Z0lIZHBaSFJvUFRBdU56VXNJSE5vYjNjdWJHVm5aVzVrUFZSU1ZVVXBJQ3NnYkdGaWN5aDRQVnhjVm1GeWFXRmliR1ZjWEN3Z2VUMWNYRTV2Y20xaGJHbHpaV1FnWTI5dVpHbDBhVzl1WVd3Z2RtRnlhV0ZpYkdWY1hHNXdaWEp0ZFhSaGRHbHZiaUJwYlhCdmNuUmhibU5sWEZ3cElDc2dkR2hsYldVb2RHVjRkQ0E5SUdWc1pXMWxiblJmZEdWNGRDaG1ZVzFwYkhrZ1BTQmNYSE5sY21sbVhGd3BMQ0J3WVc1bGJDNW5jbWxrUFdWc1pXMWxiblJmYkdsdVpTaGpiMnh2Y2lBOUlISm5ZaWd5TXpVc0lESXpOU3dnTWpNMUxDQXhNREFzSUcxaGVFTnZiRzl5Vm1Gc2RXVWdQU0F5TlRVcExDQnNhVzVsZDJsa2RHZ2dQU0F3TGpJMUxDQnNhVzVsZEhsd1pTQTlJRElwS1NBcklHTnZiM0prWDJac2FYQW9lV3hwYlQxaktEQXNJREVwS1NBcklITmpZV3hsWDJacGJHeGZiV0Z1ZFdGc0tIWmhiSFZsY3oxdGVXTnZiRzkxY25Nc0lHeGhZbVZzY3oxaktHVjRjSEpsYzNOcGIyNG9jR0Z6ZEdVb1ltRnlLRVJsYkhSaGZrRXBLU2tzSUZ4Y0pVaEJJSHdnU0VFbklDaGhiV0l1S1Z4Y0tTa2dLeUJ6WTJGc1pWOTRYMlJwYzJOeVpYUmxLR3hoWW1Wc2N6MTFibWx4ZFdVb2NtVjJLSEpsYzBGaWMwRkNKRlpoY21saFlteGxLU2twSUNzZ1ozVnBaR1Z6S0dacGJHdzlaM1ZwWkdWZmJHVm5aVzVrS0hScGRHeGxQU2RQZFhSamIyMWxKeWtwWEc1d1FtRnlJQ3NnYzJOaGJHVmZlVjlqYjI1MGFXNTFiM1Z6S0dKeVpXRnJjejF6WlhFb01Dd2dNU3dnWW5rOU1DNDFLU2xjYm1CZ1lGeHVZR0JnSW4wPSAtLT5cblxuYGBgclxuYGBgclxuIyBjb21iaW5lIHRoZSBhbm5veWFuY2UgcGVybSBpbXBvcnRhbmNlIHJlc3VsdHNcblxuIyBjb252ZXJ0IGVhY2ggcmVzdWx0IHRvIGEgdGliYmxlIHdpdGggcm93bmFtZXMgYWRkZWQgdG8gYSBjb2x1bW4sIHJlbmFtaW5nIHRoZSBkYXRhIGNvbHVtbiB0byAnZEFubm95JyBldGMuXG5yZXNkQW5ub3lNbkFic1Blcm1JbXBUYmxBQiA8LSBhcy5kYXRhLmZyYW1lKHJlc2RBbm5veU1uUGVybUltcEFCJEFic1NRTXMxL21heChyZXNkQW5ub3lNblBlcm1JbXBBQiRBYnNTUU1zMSkpIHw+XG4gIHRpYmJsZTo6cm93bmFtZXNfdG9fY29sdW1uKHZhcj0nVmFyaWFibGUnKVxuY29sbmFtZXMocmVzZEFubm95TW5BYnNQZXJtSW1wVGJsQUIpWzJdIDwtIFxcZEFubm95XFxcblxucmVzZEhpQW5ub3lBYnNQZXJtSW1wVGJsQUIgPC0gYXMuZGF0YS5mcmFtZShyZXNkSGlBbm5veVBlcm1JbXBBQiRBYnNTUU1zMS9tYXgocmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzU1FNczEpKSB8PlxuICB0aWJibGU6OnJvd25hbWVzX3RvX2NvbHVtbih2YXI9J1ZhcmlhYmxlJylcbmNvbG5hbWVzKHJlc2RIaUFubm95QWJzUGVybUltcFRibEFCKVsyXSA8LSBcXGRIaUFubm95XFxcblxuIyBtZXJnZSB0aGUgZGF0YWZyYW1lc1xucmVzQWJzUGVybUltcFRibEFCIDwtIGxpc3QocmVzZEFubm95TW5BYnNQZXJtSW1wVGJsQUIsIHJlc2RIaUFubm95QWJzUGVybUltcFRibEFCKSB8PlxuICBwdXJycjo6cmVkdWNlKG1lcmdlLCBieSA9IGMoJ1ZhcmlhYmxlJyksIGFsbCA9IFQpXG5cbiMgcmVuYW1lIHRoZSBjb2x1bW5zXG5jb2xuYW1lcyhyZXNBYnNQZXJtSW1wVGJsQUIpWzI6M10gPC0gYyhcXE1lYW4gY2hhbmdlIGluIGFubm95YW5jZVxcLCBcXCVIQSB8IEhBJyAoYW1iLilcXClcbnJlc0Fic1Blcm1JbXBUYmxBQltpcy5uYShyZXNBYnNQZXJtSW1wVGJsQUIpXSA8LSAwXG5cbnJlc0Fic0FCIDwtIHRpZHlyOjpwaXZvdF9sb25nZXIocmVzQWJzUGVybUltcFRibEFCLCBjb2xzPS1WYXJpYWJsZSwgbmFtZXNfdG89XFxPdXRjb21lXFwsIHZhbHVlc190bz1cXEltcFxcKVxuXG4jIHJlb3JkZXIgcmVzIHRpYmJsZSwgZGVzY2VuZGluZyBieSB0aGUgdmFyaWFibGUgSW1wIGdyb3VwZWQgc3VtIGFuZCBjcmVhdGUgY29sdW1uIHdpdGggbmV3IGdyb3VwIG9yZGVyIGFzIGEgZmFjdG9yXG5yZXNBYnNBQiA8LSByZXNBYnNBQiB8PiBtdXRhdGUoVmFyaWFibGVfc3VtID0gc3VtKEltcCksIC5ieT1WYXJpYWJsZSkgfD4gYXJyYW5nZShkZXNjKFZhcmlhYmxlX3N1bSkpIHw+IGdyb3VwX2J5KFZhcmlhYmxlX3N1bSwgVmFyaWFibGUpIHw+XG4gICBtdXRhdGUoT3JkZXIgPSBjdXJfZ3JvdXBfaWQoKSkgfD4gbXV0YXRlKE9yZGVyID0gYXMuZmFjdG9yKE9yZGVyKSkgfD4gYXJyYW5nZShkZXNjKE9yZGVyKSlcblxuIyBSZW9yZGVyIG91dGNvbWUgbGV2ZWxzXG5yZXNBYnNBQiRPdXRjb21lIDwtIGZhY3RvcihyZXNBYnNBQiRPdXRjb21lLCBsZXZlbHM9YyhcXE1lYW4gY2hhbmdlIGluIGFubm95YW5jZVxcLCBcXCVIQSB8IEhBJyAoYW1iLilcXCkpXG5cbiMgcGxvdCByZXMgYXMgaG9yaXpvbnRhbCBiYXIgY2hhcnQsIHdpdGggSW1wIGFzIHkgYXhpcywgVmFyaWFibGUgYXMgeCBheGlzLCBPdXRjb21lIGFzIGZpbGwsIGFuZCBWYXJpYWJsZV9zdW0gYXMgb3JkZXIsIHJlbGFiZWwgeCBheGlzIHdpdGggVmFyaWFibGUgbmFtZXNcbnBCYXIgPC0gZ2dwbG90KHJlc0Fic0FCKSArIGdlb21fY29sKGFlcyhmaWxsPU91dGNvbWUsIHk9SW1wLCB4PU9yZGVyKSwgY29sb3VyPSdncmV5MzUnLCBsaW5ld2lkdGg9MCwgIHdpZHRoPTAuNzUsIHNob3cubGVnZW5kPVRSVUUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXE5vcm1hbGlzZWQgY29uZGl0aW9uYWwgdmFyaWFibGVcXG5wZXJtdXRhdGlvbiBpbXBvcnRhbmNlXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDEpKSArIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcz1teWNvbG91cnMsIGxhYmVscz1jKGV4cHJlc3Npb24ocGFzdGUoYmFyKERlbHRhfkEpKSksIFxcJUhBIHwgSEEnIChhbWIuKVxcKSkgKyBzY2FsZV94X2Rpc2NyZXRlKGxhYmVscz11bmlxdWUocmV2KHJlc0Fic0FCJFZhcmlhYmxlKSkpICsgZ3VpZGVzKGZpbGw9Z3VpZGVfbGVnZW5kKHRpdGxlPSdPdXRjb21lJykpXG5wQmFyICsgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcz1zZXEoMCwgMSwgYnk9MC41KSlcbmBgYFxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBjb21iaW5lIHRoZSBhbm5veWFuY2UgcGVybSBpbXBvcnRhbmNlIHJlc3VsdHNcblxuIyBjb252ZXJ0IGVhY2ggcmVzdWx0IHRvIGEgdGliYmxlIHdpdGggcm93bmFtZXMgYWRkZWQgdG8gYSBjb2x1bW4sIHJlbmFtaW5nIHRoZSBkYXRhIGNvbHVtbiB0byAnZEFubm95JyBldGMuXG5yZXNkQW5ub3lNbkFic1Blcm1JbXBUYmxBQiA8LSBhcy5kYXRhLmZyYW1lKHJlc2RBbm5veU1uUGVybUltcEFCJEFic1NRTXMxL21heChyZXNkQW5ub3lNblBlcm1JbXBBQiRBYnNTUU1zMSkpIHw+XG4gIHRpYmJsZTo6cm93bmFtZXNfdG9fY29sdW1uKHZhcj0nVmFyaWFibGUnKVxuY29sbmFtZXMocmVzZEFubm95TW5BYnNQZXJtSW1wVGJsQUIpWzJdIDwtIFxcZEFubm95XFxcblxucmVzZEhpQW5ub3lBYnNQZXJtSW1wVGJsQUIgPC0gYXMuZGF0YS5mcmFtZShyZXNkSGlBbm5veVBlcm1JbXBBQiRBYnNTUU1zMS9tYXgocmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzU1FNczEpKSB8PlxuICB0aWJibGU6OnJvd25hbWVzX3RvX2NvbHVtbih2YXI9J1ZhcmlhYmxlJylcbmNvbG5hbWVzKHJlc2RIaUFubm95QWJzUGVybUltcFRibEFCKVsyXSA8LSBcXGRIaUFubm95XFxcblxuIyBtZXJnZSB0aGUgZGF0YWZyYW1lc1xucmVzQWJzUGVybUltcFRibEFCIDwtIGxpc3QocmVzZEFubm95TW5BYnNQZXJtSW1wVGJsQUIsIHJlc2RIaUFubm95QWJzUGVybUltcFRibEFCKSB8PlxuICBwdXJycjo6cmVkdWNlKG1lcmdlLCBieSA9IGMoJ1ZhcmlhYmxlJyksIGFsbCA9IFQpXG5cbiMgcmVuYW1lIHRoZSBjb2x1bW5zXG5jb2xuYW1lcyhyZXNBYnNQZXJtSW1wVGJsQUIpWzI6M10gPC0gYyhcXE1lYW4gY2hhbmdlIGluIGFubm95YW5jZVxcLCBcXCVIQSB8IEhBJyAoYW1iLilcXClcbnJlc0Fic1Blcm1JbXBUYmxBQltpcy5uYShyZXNBYnNQZXJtSW1wVGJsQUIpXSA8LSAwXG5cbnJlc0Fic0FCIDwtIHRpZHlyOjpwaXZvdF9sb25nZXIocmVzQWJzUGVybUltcFRibEFCLCBjb2xzPS1WYXJpYWJsZSwgbmFtZXNfdG89XFxPdXRjb21lXFwsIHZhbHVlc190bz1cXEltcFxcKVxuXG4jIHJlb3JkZXIgcmVzIHRpYmJsZSwgZGVzY2VuZGluZyBieSB0aGUgdmFyaWFibGUgSW1wIGdyb3VwZWQgc3VtIGFuZCBjcmVhdGUgY29sdW1uIHdpdGggbmV3IGdyb3VwIG9yZGVyIGFzIGEgZmFjdG9yXG5yZXNBYnNBQiA8LSByZXNBYnNBQiB8PiBtdXRhdGUoVmFyaWFibGVfc3VtID0gc3VtKEltcCksIC5ieT1WYXJpYWJsZSkgfD4gYXJyYW5nZShkZXNjKFZhcmlhYmxlX3N1bSkpIHw+IGdyb3VwX2J5KFZhcmlhYmxlX3N1bSwgVmFyaWFibGUpIHw+XG4gICBtdXRhdGUoT3JkZXIgPSBjdXJfZ3JvdXBfaWQoKSkgfD4gbXV0YXRlKE9yZGVyID0gYXMuZmFjdG9yKE9yZGVyKSkgfD4gYXJyYW5nZShkZXNjKE9yZGVyKSlcblxuIyBSZW9yZGVyIG91dGNvbWUgbGV2ZWxzXG5yZXNBYnNBQiRPdXRjb21lIDwtIGZhY3RvcihyZXNBYnNBQiRPdXRjb21lLCBsZXZlbHM9YyhcXE1lYW4gY2hhbmdlIGluIGFubm95YW5jZVxcLCBcXCVIQSB8IEhBJyAoYW1iLilcXCkpXG5cbiMgcGxvdCByZXMgYXMgaG9yaXpvbnRhbCBiYXIgY2hhcnQsIHdpdGggSW1wIGFzIHkgYXhpcywgVmFyaWFibGUgYXMgeCBheGlzLCBPdXRjb21lIGFzIGZpbGwsIGFuZCBWYXJpYWJsZV9zdW0gYXMgb3JkZXIsIHJlbGFiZWwgeCBheGlzIHdpdGggVmFyaWFibGUgbmFtZXNcbnBCYXIgPC0gZ2dwbG90KHJlc0Fic0FCKSArIGdlb21fY29sKGFlcyhmaWxsPU91dGNvbWUsIHk9SW1wLCB4PU9yZGVyKSwgY29sb3VyPSdncmV5MzUnLCBsaW5ld2lkdGg9MCwgIHdpZHRoPTAuNzUsIHNob3cubGVnZW5kPVRSVUUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXE5vcm1hbGlzZWQgY29uZGl0aW9uYWwgdmFyaWFibGVcXG5wZXJtdXRhdGlvbiBpbXBvcnRhbmNlXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDEpKSArIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcz1teWNvbG91cnMsIGxhYmVscz1jKGV4cHJlc3Npb24ocGFzdGUoYmFyKERlbHRhfkEpKSksIFxcJUhBIHwgSEEnIChhbWIuKVxcKSkgKyBzY2FsZV94X2Rpc2NyZXRlKGxhYmVscz11bmlxdWUocmV2KHJlc0Fic0FCJFZhcmlhYmxlKSkpICsgZ3VpZGVzKGZpbGw9Z3VpZGVfbGVnZW5kKHRpdGxlPSdPdXRjb21lJykpXG5wQmFyICsgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcz1zZXEoMCwgMSwgYnk9MC41KSlcbmBgYFxuYGBgIn0= -->
```r
```r
# combine the annoyance perm importance results
# convert each result to a tibble with rownames added to a column, renaming the data column to 'dAnnoy' etc.
resdAnnoyMnAbsPermImpTblAB <- as.data.frame(resdAnnoyMnPermImpAB$AbsSQMs1/max(resdAnnoyMnPermImpAB$AbsSQMs1)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdAnnoyMnAbsPermImpTblAB)[2] <- \dAnnoy\
resdHiAnnoyAbsPermImpTblAB <- as.data.frame(resdHiAnnoyPermImpAB$AbsSQMs1/max(resdHiAnnoyPermImpAB$AbsSQMs1)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdHiAnnoyAbsPermImpTblAB)[2] <- \dHiAnnoy\
# merge the dataframes
resAbsPermImpTblAB <- list(resdAnnoyMnAbsPermImpTblAB, resdHiAnnoyAbsPermImpTblAB) |>
purrr::reduce(merge, by = c('Variable'), all = T)
# rename the columns
colnames(resAbsPermImpTblAB)[2:3] <- c(\Mean change in annoyance\, \%HA | HA' (amb.)\)
resAbsPermImpTblAB[is.na(resAbsPermImpTblAB)] <- 0
resAbsAB <- tidyr::pivot_longer(resAbsPermImpTblAB, cols=-Variable, names_to=\Outcome\, values_to=\Imp\)
# reorder res tibble, descending by the variable Imp grouped sum and create column with new group order as a factor
resAbsAB <- resAbsAB |> mutate(Variable_sum = sum(Imp), .by=Variable) |> arrange(desc(Variable_sum)) |> group_by(Variable_sum, Variable) |>
mutate(Order = cur_group_id()) |> mutate(Order = as.factor(Order)) |> arrange(desc(Order))
# Reorder outcome levels
resAbsAB$Outcome <- factor(resAbsAB$Outcome, levels=c(\Mean change in annoyance\, \%HA | HA' (amb.)\))
# plot res as horizontal bar chart, with Imp as y axis, Variable as x axis, Outcome as fill, and Variable_sum as order, relabel x axis with Variable names
pBar <- ggplot(resAbsAB) + geom_col(aes(fill=Outcome, y=Imp, x=Order), colour='grey35', linewidth=0, width=0.75, show.legend=TRUE) + labs(x=\Variable\, y=\Normalised conditional variable\npermutation importance\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2)) + coord_flip(ylim=c(0, 1)) + scale_fill_manual(values=mycolours, labels=c(expression(paste(bar(Delta~A))), \%HA | HA' (amb.)\)) + scale_x_discrete(labels=unique(rev(resAbsAB$Variable))) + guides(fill=guide_legend(title='Outcome'))
pBar + scale_y_continuous(breaks=seq(0, 1, by=0.5))
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqbzBMQ0p6YVhwbFgySmxhR0YyYVc5eUlqb3hMQ0pqYjI1a2FYUnBiMjV6SWpwYlhYMD0gLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjo0LCJzaXplX2JlaGF2aW9yIjoxLCJjb25kaXRpb25zIjpbXX0= -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBVE1BQUFFekNBTUFBQUJxaGhSc0FBQUIrRkJNVkVVQUFBQUFBRG9BQUdZQU9tWUFPcEFBWnJZQVp2OEF6Smt6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlptWTZaclk2a0pBNmtMWTZrTnROVFUxTlRXNU5UWTVOYm01TmJvNU5icXROam81TmpxdE5qc2haV1ZsbUFBQm1BRHBtQUdabU9nQm1PanBtT3BCbVpnQm1abVptWnJabWtKQm1rTFpta050bXRyWm10dHRtdHY5dVRVMXVUVzV1VFk1dWJrMXVibTV1YnF0dWpvNXVqc2h1cTZ0dXE4aHVxK1NPVFUyT1RXNk9UWTZPYmsyT2JvNk9icXVPamsyT2pvNk9qc2lPcTZ1T3E4aU9xK1NPeU1pT3lPU095UCtRT2dDUU9qcVFPbWFRWmdDUVpwQ1FrRHFRa0dhUWtMYVFrTnVRdHBDUXR2K1EyN2FRMjl1UTIvK3JiazJyYm02cmJvNnJqazJyam82cmpxdXJxMjZycTZ1cnE4aXJxK1NyeU1pcnlQK3I1TWlyNU9TcjVQKzJaZ0MyWmpxMlptYTJrRHEya0pDMnRtYTJ0cmEydHYrMjI1QzIyLysyLzdhMi85dTIvLy9JamszSWptN0lqbzdJcTI3SXE0N0lxNnZJeUk3SXlLdkl5TWpJeU9USXlQL0k1S3ZJNVAvSS84akkvK1RJLy8vYmtEcmJrR2Jia0pEYnRtYmJ0cERidHJiYjI3YmIvN2JiLzl2Yi8vL2txMjdrcTQ3a3E2dmt5STdreUt2a3lNams1S3ZrNU1qay84amsvK1RrLy8veTh2TDM5L2YvdG1iL3RwRC90cmIveUk3L3lLdi95TWovMjVELzI3Yi81S3YvNU1qLzVPVC8vN2IvLzhqLy85di8vK1QvLy8vTVF1YzBBQUFBQ1hCSVdYTUFBQXV3QUFBTHNBRWFPQkJ5QUFBUy9FbEVRVlI0bk8yZGkzOGpWUlhIcDNXakxPajZ5R3l4YTYyb3VJcW1nbEJNZmF5Z0t5a2lncm90NENMUFpBVkZwVjBVVkhScDhJVU5JTHJXRGM0U29rbHovMDNQT2ZmT1pES1p5YzdwVEpLWjVQdyt1M25jT3pQSmZIc2ZjKzh2NTQ2bFJGeFowLzRDT1pRdzQwdVk4U1hNK01vd3MrdXVwV2w5c1N3elUxZjBpNGduWVRZc1ljYVhNT05MbVBGMUxTYkNiRmpYcVkrUGtqQUxFVEI3WDdTRVdaaUVHVi9DakM5aHhwY3c0eXUvekxvYjl2SkJ3MTdhVSswdlZ2SHQ4cStmd3FUQVpoZWYzclp0KzJSVk9mYlM3NS9ZZ0JlcXQyMTJna1BZOWtwZ0J6cWEvMU5zdTZ5Nlg5M3JwK1dYbWVxZUFUNXZ3TG04ODQyeVVvMEtuQ3dsRGNna1hxMjJiei9vYnBTN0R3R2kvMzdkM2FuMzhGNXZ1eks0QjJYNFB1VnUzR3BnaTFsZzlsc0hTaGYrMTBsUWp1emx5eHRsNTJRVlhwMUVabGVyNm5VcVBkMGZRNEY1NjBmdVRraWpVZGJiTC8vS0xqZWdBRkxHN3NucUxxUkJLZFRNNEJqdGIyNUFMazBFWGNrOXMrN0xWSE1jckVMRXJGRUJFRTVaWGF3MjhBR3FGOVRJRjZpc2RCL2ZyZlIrOTRLN2t5NW43dll2N0hWZk5obkUyZW52M1ZqK0YxVG9pN3JXNXIyY3dlazcwT0pRL1dwVU5ETTR0Zlk2bmZCRkxGKzZuT256N1Q3ZXZ2MmZmL0IyZ2hJRzdSbHQzM3Y0MG90bjMvQ09kckg2SXBRMmFCNnhuRzFYZXVjUDJtZE5XYzB6czk1RFZlTDJGbFRNRmVWVWxGUEd0KzJ6RFhoWGhsUGNYWHEwRENYa01pYXVRM3VHR3p6ZWUraGJCOEJNNzZSYkt0cGVOVzUvWlJ0YU1wMmgybDk2RWc5SjdabmFuUmxtcXIxbVU1TlZ3UUx4OTl2c3BVc2IxRVZpKzNTQUhWNEZIKzdCZmhPMmNiQngyckFyVHJsaG43eU5kcnB4RGJ0ZGF2OE9vQWhDUlhlUGRvQUZHSTV2bjhKRExoODRkbVVYRHEvNzJEd3pHN2ZlZ1FidnNaQjBZUmF0QmwzWERVdVk4U1hNK0JKbWZNazhMVi9pb2ZBbHpQZ1NabndKTTc3RTMrUkxtUEVsMXhwOEFiUDNSa3VZaFVtWThTWE0rQkptZkFrenZ1YUoyU2dYR1ZONjVCNC8xZmVOKzN0cGI5ZzRvZlBFYkpTTFRDbmFQZTc3eHI2OTBFdHhqRWsvbjh5Q0xySkowYTZlNnhzMzdKTlBieTgvVXU0elF3dEZlOEx6eDJ6SVJYYWRZUEovUGQ5WU9aWHVtU2ZjY3JiaC9iSmovc3BabUl0c1VrdzVNNzR4R250b2ZMcmxEQjFTMGx3eGkzU1JUUXE5V1hkOTR4ZjJuRXA3L1dKVmJ3SjFzMkYrL0RKWHpLSmM1S2QxeWtlL2h1N3h0NDF2dlBTb0RTbjNiTis0cG50VHU5emIxdGJkZkRGTFI4S01MMkhHbHpEalM1anhKZk8wZkludnhKY3c0MHVZOFNWZUhWL0NqSy9vZnRQTm41SXl6aXppMHN6a1QwbTVaU1o5UUppRUdWL0NqQzloeHBmMEFYek5Mek5mUExDREUvMERvY0RHQ1ZiQnNHSFMvRExyeHdQM3RzdUJ2TzdkYXNBc0h0VDhNaU1YdUhHWGZaZGRjZTVZVzhKUTRPN0d5U3FGQXp0MmVkQXN4dDhqN05wM1BPbDZ3aEhNcmx5WjZUNkFYT0R1eG9xejBqNExXSnh5WS9uZzlhcnpaUW9IZm5OOTBDeUdEQXdrYnVnZmJNeHR2NmxkWUtlQzBiR0FvNzNlTzMrd2E5c3JGTnJhOXBqcHpURGpZblh1bWJtK3NHSFdLQU16L0NtSG41bG5GbU5HWTk3TFdjOTFnWmNmc2UybGx6QXEzYUd3NGhVS0IrNXUzT2szaTNFRmhCVUtQS2FkNTdjUE9JSmlsVE5oNWxkN1RmK09UNWp4SmN6NG10TStJSkZHejIwTHN6Q0pWOGVYTU9OTHZEcStoQmxmd295djRYNHptRDhsWlp1WmY5MFc5MXBXK29BUkVtWjhDVE8raEJsZkVjeDgrVk9TTU9OckZMT1E0TlhxN3NDU3hwNDlPZjUxa0hQQ0xDUjQ5ZW56bDgvODY3SEFGbW9TNnlEbmpsay9lSlhTYUFWUWNpaTlGWkhIdmc3eXg0MnZxYTZnc3RzSGhBU3ZVaHF1YUt3ZFNyTWk4Z1RXUWM1THZ4a1N2RXBwdEtJeHVXM2Vpc2hqWHdjNUw4eENnbGQxT1RNcklMOXVBbFViRTFnSE9TL01ob05YOStCRldiZG42RkNlMGlzaVQySWQ1THowQVpOUnZIV1FoWmxmOGRaQkZtWnhKTXo0eW1rZk1GVUpNNzRpNXJhRjJRaUp2OG1YK0U1OEhZRlowN0tzNGxpK2pGOHp4YXkrdUtNNnF4NjBWN2ZTL2twYXM4U3NkZjJXOTRpNk1JL01URjhadHcvQVlxYWdvSDE0ZFhHbnRyQUZGYldrNmhZazFySEd0azQ4WXgzN2szVnNYOVh3SVlHeXpVeGZrOFZtUmlnT040dWRtM1lPNzkzNjY3MWJxbGxRdFdMcnhIN3IrQmMycldKbnRRRHB6U0trSmZsaU04V015cG5IRFA2cFdnblRnVkROVGR3c1FhbXpDa20rbUk5WjB5cTJqbysvMTRrdE5qT3ZQUXN5S3lDM1ByTlN3aS9XWjlZNTNYbFF3WUVUSGpBOWVjd2k4NE55KzAwNGk4N3E0dk5ZTjQvdGQwNERSYURsTVlQNjJqbWQ1SXYxbVIwK0FNeWF5VnJIVk1WbmhvMjloYVdvWmkxOEFBb1p2SVpYVzVpTXJ3clErRU0vc0YrekZoT1ZqSUc2YVNVOFdMbzZBclBKS05nSC9IRTgwRUxzWmRkRWpsVFdtWFZXTGExeEZiU0l0Wkd2QnBpaGxlS0szUWRNU200NWU5YTBZMk1xWnhGckl3TXlZd3YzbzJEYmE2ZGU3cStERE15dS9KdThZUFh2SzNud2hGTlUyTnJJZWpsa0pPZVBnbjI5K283K0RVTG15NW5TOVRQUnRkNG9oYStOakZVVGJXRi9GS3kzMUhzT21NSDFNL1NkNDdxbWpWb2JlWjFzWVg4VTdCdDc4SURLZWg4QTZud2FtN1J4dFdmRDl2SXJ4a1RHMHVlTGdpMy9ZNk1mODhwakZybnFWOHJ5MVUyYWJ2cEpkaTdRK015aW9oWlRWdkJhSTR2anpjajhnQ2JNekwzV2FOMHlsazg1a3RoOXdLU1pLUnlrWld2d2xCb3pLNkNrWDh3L3IzSDRnSUpoZW1iRW5xZWRmRG5EV1kzUzRYZXlWTTZZL3VZVTZtWjljYWMydm90YXZ0Z2V5aFNZa2NaMmZjYlhHSmoxUGFra2NxODFjR1l6YzMwQU16K2FXZXNIK3ZrL042ZHhMZVVyWjgrT2RSekFWNHJNbmpIVHp6OUxaUjdhMXdka3lBb2dwZGNIdlBzY2VTbXE4MXdxSitrclp6UnN5bFE1Qy81NmF2QXBQck9mN2JjK2hNOU5ZeGNrbEsrY1phODlTNG5adTg4cDlPMlUrc3MrbXNTSmxlbjJMQ1ZtTk1BcHFNTk5jcCtTdDJpQmE0Mk1qVGRIWGw5bDRmb3NnK1BOckRQTDVIaHpkSDVBTXQ0OEFyUEp6OU1PampmRGdvVHBvWDEyNkNEK21OL2VOc1k3d1haNk5oc2YwZERFQjhkTWFKTVIzSTF6YjF4bUgvQytvQ1l6M3V3cnhNV2xTT0doMVl3RE1iK3dIMjNjdm5WUGRiOVMvZDhCQnJLdVl5VGliNVY3WDF6YUxzYTljWFBMck8vaTBnTjV0dzBvTE00ZHQ3NTBKd1gxNGhiZGpiSkRhWmZPSE5CMmRCdE5mR2cvaVhHZlRobEtuN2t2Ym8vdWhSdmozcmg2ZGJpNG52Q0VtWVg4dUNnc1NCZ2ZvUHhnWUt0enp6WUY5UUlWdlFXRys4TEpZN0dpN1hheGlzSDU3OW9yR0pIWlB2dS9BMEtyamVBbll0MGJOOVBsREFZQndhdU1zQ0JocXFNVTYwb1Jtb3BXTm5iWE9zWVFhZThldDQyS1Y4NTZEKzlST1lPM2JqUXhCYy9HdURjdXN3K1lNTE1IYWV6a255a0pjWEhwZ1pqaERXMDFNNkNpdDREMDNhV1g2TnoxZHRBeFlKdW0xSXVtUFROUitoaE5qUGZDalhGdjNFd3pNNnI3Uzl0d2tQQlZmQ0R2dG1IYnk0L2dUMUpzcUtEZUlzWVk1UXM5NHdwdFovck5YU3FsR0YzYzBJZXpNYWFZN29WNzdYdmpwc09zaWVPbDFtZFhyV04vMjZTWGV1Yng3UzBzSi80MCt0V285c2ExOU04S2doZGcvWEtHNHpIdU1NQVo3a1BUVTJyTUxteGQyRHI4N2o3Q0lDQm01aEdZcWNFMGRNWDlnT2puR0tEV2lZRXhxdDhUWmsrVDlLK3V4cUhVK2dBc1o0REQ0Mk5tSGdlWVVScE9VRURScWxzTFcvWFBXSit4U3MwUEhxZFNOUGl6NWY3Y2R2b25uVkJwOXBzNDkwRGxBc2k0TTQvRUxKQm1mb0hSL1B4cW9WbG8zUUlncVhvT1RsMWtPejRnTFdaUU0ydldoMDJaY21jZS9lV3NQeHQ1Z1ZxNVVyUFVMQUt6b3FMWlNqMWw2V28rbUwyNjFmbjBhNTg2b2ZtNE00OStadjNaU0NoblA5bHA5cG5WYzFiT21QbVJ6TEIrNFV3WDlwSHYrYVE3ODlqdk4vdHBwajJEbEdQM1FZLzRVNXlyaE1Zc3REM0xvdEpqRnE2M1E3MU9QUXMrS1AvbGg1cHJaaEVLQUZLUjEyZFoxSlNZWFZ1WlpzYjFONFVaOUp2NlJXeG1rNStuelpyWXpDWWxZY1pYSHBoRjVrOUp3b3d2WWNhWE1PTXJEOHh5M3dlRWVNVlAwUUtXbDgyU3lLNW9haHNOa3A0MnFNZ1k3dkU4WWYwaTk4eENJMzd2VnIzenYxcnVNNE1FWXdsampGejdTVnB0bFl3VW5pZXNjMmFJbVMvaTkrN2VZMER0TXRuQ1VGVEtqbDAyVmgyNlYyK1oxYU5OQUNMREV5WStNeEFuSEI3eHV3TE1Ec2ppUkJ2MHpYWFBFc1lGZnNtbDA4WXd6eE1lK1VYeXhpd1E4YXZMbVdhR0ZLQWF1cFp3OTZ1LzBjNm1yNXpGOW9SSGZwRWNNUXVMK01YVkN2UzZ6N3RMajFhSW1XY0o3Mkx0SFdqUDRudkNJNzlJanBnTmU4V1hOdlJ2T1NwMFg5c3UzZUMyYkN4aDQ0SFNPdEc3cHQrTTd3bVAvQjU1WWpZcHpWQy9PVEVKTTc2RUdWL0NqQzlabjVZdlljYVhNT05MbVBFbGE1VHpKY3o0a21zTnZvUVpYekpHNTB1WThTWE0rQkptZk9XckR3aGZ0VGg0ZDF2M0pxL0c0c1Fnbmh2WHRHbUprN0hYdkJ2dWpQbWJFYXNXQjlUUVJxU1hEZjlkMHpMTzNYQm56TjhNWDdXNGNaZDlsMTF4N3R4WXVrUk9Kcm9tYTZkZWRyT0ptVEV0NDl3TmQ4Yjh6VEFQODh6bGpSVm5wZjB0aW5NbFZ3NlkwYUxGeHVMRUcyaTZwbVdjdStIT21MOFp2bW94aG15MnoxS2NxOHZNdEVlVVRlWE1tSlp4N29ZN1kvNW0rS3JGSHJOR21aek1WODRmNEtMRjNxTEd4RXlibG5IdWhqdHIvbWJZcXNVZmcxYkh0cGRlb2pxSVRxWmpWM0RSNHF2YTR0VDlwall0UVRIdWhqcy8vbVlLY2E1UmQ4TWRWTTc2elJGS0k4NDE2bTY0ZzVvZFpwT1RNT05MbVBFMVEzM0F4Q1MrRTEvQ2pDOWh4cGQ0ZFh3Sk03NkVHVjl5ZmNhWFhKL3hKY3o0RW1aOENUTytwQS9nYTBhWVJRVzhWb0liNG1MSjJvcjZ4eHJPY3g5eEhXVDlJdC9NSWdKZW5lV0FYOXlqeFpJcEZQYk5TdStoNmxIWFFkWTVzOExNSC9DS2ZwSzJmMDNNcTcxQ2l5VlRpQ0laQ0VkZEIxbDd3dG9MSG5yT0c3Tmd3S3R5N2QrTDJ2Q2x4WkoxRG01NDFIV1FSMzZYWERFTEJyeWlpMHYyTCtFaVIwNHZsa3psREFPR2o3b084c2p2a2hkbTRRR3ZqYksyZi9WU3lNalNNRk1VWHQxNzdLanJJSS84TG5saEZoN3cydHVHSnNsMWl0SHdwUnZkbnNKUVdQcGRWZm1vNnlEcno4eDVIeEJEOFF6ZkdKb2padkVNM3hpYUkyYXBTWmp4TlROOXdBUWx2aE5md293dlljYVgrRTU4Q1RPK2hCbGZ3b3d2dVQ3alM1anhKY3o0RW1aOHlSaWRMMkhHVjk2WkpZNGNkdmYwSFhIbVBlSEVrY01KNG9RamxCOW1SNDBjVmtlUEU4NnJKNXc0Y25qbTQ0U0hsVGh5ZU9iamhJZVZPSEk0UVp4d1h2dUFwSkhESjI4N2VweHdicG1ORUR0eWVON2loSWZGanh5V09PRnhLZmQ5d0JRa3pQZ1NyNDR2WWNhWGVDaDhDVE8raEJsZndveXY2NjZsYVgyeERETUw5b3lqM2sxVXdveXZURFBMcUlRWlg4S01MMkhHVjFhWlVaQnM4TWt4cTBUcStUcVRPSGxsbEprSktodDhvcUJacFcreTJFK2N2RExLekFRdkRqNVIwS3h5bWJueGpaTlhScGxSa0d6d2lZSm1sY3ZNSkU1QkdXVVdXczRVZ1pKeUZxSHc5c3pRa3ZZc1hCUWtXNkVuNzEzRHVGVm9rL2J6SnErc01zdXloQmxmd293dlljYVhNT05MbVBFMVhtYWRWYXRJajhmMm83YjR4QmI4RzBnNnZIY3JZbVBJTVJzSDk0bEs4eEpiSi9hak5tRnIzT1dzYnBYZ1hCK0l6Szh0REoxRlNOSmd6cXZoK2RINzRaK04vbXFqTm9tdmNUUDc0LzJMTzZPWWhSU3FrZVVNbnk2RTUwZnZwOXh5Tm5LVDJCbzdzNTFhZ1pqVkxhaW1uWnZ1WC9qK2lXZXNZMytDMmdwVmRuRkhWN2ZEVGV0enYxQTFyTUpOeTlLRm9RNjU3bDQvOVhKZ1kzZ3VZU1h6NWJtSEFpcWJWdUZ3Yy9HWG1JQ2Y5a09vKy9pNmRlSStxMERNYXRFTlJVeU5uMWxudFFqTTRPL2NPdjZGVGFzSUoxWHNyQmJnMjllTDhBRC9vTUkwaTFCNDRLRldiTjJ3MDdvZW1UVUwrTTdzVlFCR09nYzIvaXVlK01LV1A4ODlGT3pYdVdsSHZVMEo1K0NUY0VQS2JCMHZIVzZXNEFWOVNySnpHajh6MWJyKzNBT3FEdCt6VnNRVGd2OTRncHNsTEJNbGZhNnQ0L0MzaDNKakZXQTdmZTQxYUFmN2V4RmlwVGZHZlAzZXkzTVBoWjhJUko3ZHB3VDhORGNUNnliQm8wOUpkazRUWUticTcvbWNxaGVRd0FDejVzSzV6WkpiUHFDdnFCdEtmbWJ1WG1ITWZIbnVvZkFUV3pmOC9BZUtFZ3d6ZXQxblZrcDhUcE5ncHFCSmcycUZUWmVmV2MzVUZ2ajM5cFpxRnFFMmRrNDNvVjNhaElaTU5hR1ZPdTN0aGFkT09jOTd6UHg1N3FIb0kydFFaaW5CTUtQWHdBemJUVGdNZmtxeWN4b3pzeG8xNlBnbG9VNlVxUDJ0V1FWNG9uNWc0ZjJMOTlQTFA3OGZHL3lhZnNBTjNWM05Yb1U2N1FodjlBdDY4dVc1aDZMR3ZYVUxFTWVFbTJram5mbjhKbTZ0OThZL1NSTEpPSUF2WWNhWE1PTXIwOHlHaDRmcERCZ1RLblBNdk1Ga3hLZ3kxcjdqVmVhWWVZUEppRkZsckgzSHE0a3p3d0VpVGhEaFpZZC8rUG5hNnVJT2pxSndNSWtEeEpCUnBhSzYyZkxHcStaSTNrajJlKzYrWnZPNnZuWkpPcndjMHFTWjRSaGF3ZUFQaDMwZkdSaCs2cXRUSEV6UzlYcklxRkxoWk00NWQ0ZHo1a2plU0ZhNSs1N1RtOU9JTllYaDVaQ21VTTV3TkZXa1lkL0FzTUM4TUpNVHBiQlJwWjUxOU8xQVIvSkdzdDYrN3VCQUtaWEM4SEpJVTJOV01xOURtSG1qeDhDb1VvVXo4MGF5M3I1K1pzbUhsME9hUERPb1k3cmlkRTRIbVhWV2NUeXB2TkZqWUZTcEFzejBrZm9qMlVOM1h6TkF4UkZyQ3NQTElVMmUyYXFlVk1SaDM4RHdFMTR0ZkFDbkJFczBXTndaSGxYdVkxVTdkcCs3dzJ2bVNONUkxdHYzWm5lQXVyQ2xrZzh2aHpTZHVwbXhJekVselBpYXdyVkdTdGRMNlIySnE4eU5BM0lnWWNhWE1PTkxtUEVselBqNlA3OExNY3phbVFveUFBQUFBRWxGVGtTdVFtQ0NcIiAvPlxuXG48IS0tIHJuYi1wbG90LWVuZCAtLT5cbiJ9 -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAATMAAAEzCAMAAABqhhRsAAAB+FBMVEUAAAAAADoAAGYAOmYAOpAAZrYAZv8AzJkzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZmY6ZrY6kJA6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshZWVlmAABmADpmAGZmOgBmOjpmOpBmZgBmZmZmZrZmkJBmkLZmkNtmtrZmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma2tra2tv+225C22/+2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbbtpDbtrbb27bb/7bb/9vb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/tmb/tpD/trb/yI7/yKv/yMj/25D/27b/5Kv/5Mj/5OT//7b//8j//9v//+T////MQuc0AAAACXBIWXMAAAuwAAALsAEaOBByAAAS/ElEQVR4nO2di38jVRXHp3WjLOj6yGyxa62ouIqmglBMfaygKykigrot4CLPZAVFpV0UVHRp8IUNILrWDc4Soklz/03POffOZDKZyc7pTJKZ5Pw+u3ncOzPJfHsfc+8v546lRFxZ0/4COZQw40uY8SXM+Mows+uupWl9sSwzU1f0i4gnYTYsYcaXMONLmPF1LSbCbFjXqY+PkjALETB7X7SEWZiEGV/CjC9hxpcw4yu/zLob9vJBw17aU+0vVvHt8q+fwqTAZhef3rZt+2RVOfbS75/YgBeqt212gkPY9kpgBzqa/1Nsu6y6X93rp+WXmeqeAT5vwLm8842yUo0KnCwlDcgkXq22bz/obpS7DwGi/37d3an38F5vuzK4B2X4PuVu3Gpgi1lg9lsHShf+10lQjuzlyxtl52QVXp1EZler6nUqPd0fQ4F560fuTkijUdbbL//KLjegAFLG7snqLqRBKdTM4Bjtb25ALk0EXck9s+7LVHMcrELErFEBEE5ZXaw28AGqF9TIF6isdB/frfR+94K7ky5n7vYv7HVfNhnE2env3Vj+F1Toi7rW5r2cwek70OJQ/WpUNDM4tfY6nfBFLF+6nOnz7T7evv2ff/B2ghIG7Rlt33v40otn3/COdrH6IpQ2aB6xnG1XeucP2mdNWc0zs95DVeL2FlTMFeVUlFPGt+2zDXhXhlPcXXq0DCXkMiauQ3uGGzzee+hbB8BM76RbKtpeNW5/ZRtaMp2h2l96Eg9J7ZnanRlmqr1mU5NVwQLx99vspUsb1EVi+3SAHV4FH+7BfhO2cbBx2rArTrlhn7yNdrpxDbtdav8OoAhCRXePdoAFGI5vn8JDLh84dmUXDq/72DwzG7fegQbvsZB0YRatBl3XDUuY8SXM+BJmfMk8LV/iofAlzPgSZnwJM77E3+RLmPEl1xp8AbP3RkuYhUmY8SXM+BJmfAkzvuaJ2SgXGVN65B4/1feN+3tpb9g4ofPEbJSLTCnaPe77xr690EtxjEk/n8yCLrJJ0a6e6xs37JNPby8/Uu4zQwtFe8Lzx2zIRXadYPJ/Pd9YOZXumSfccrbh/bJj/spZmItsUkw5M74xGntofLrlDB1S0lwxi3SRTQq9WXd94xf2nEp7/WJVbwJ1s2F+/DJXzKJc5Kd1yke/hu7xt41vvPSoDSn3bN+4pntTu9zb1tbdfDFLR8KML2HGlzDjS5jxJfO0fInvxJcw40uY8SVeHV/CjK/oftPNn5Iyzizi0szkT0m5ZSZ9QJiEGV/CjC9hxpf0AXzNLzNfPLCDE/0DocDGCVbBsGHS/DLrxwP3tsuBvO7dasAsHtT8MiMXuHGXfZddce5YW8JQ4O7GySqFAzt2edAsxt8j7Np3POl6whHMrlyZ6T6AXODuxoqz0j4LWJxyY/ng9arzZQoHfnN90CyGDAwkbugfbMxtv6ldYKeC0bGAo73eO3+wa9srFNra9pjpzTDjYnXumbm+sGHWKAMz/CmHn5lnFmNGY97LWc91gZcfse2llzAq3aGw4hUKB+5u3Ok3i3EFhBUKPKad57cPOIJilTNh5ld7Tf+OT5jxJcz4mtM+IJFGz20LszCJV8eXMONLvDq+hBlfwoyv4X4zmD8lZZuZf90W91pW+oAREmZ8CTO+hBlfEcx8+VOSMONrFLOQ4NXq7sCSxp49Of51kHPCLCR49enzl8/867HAFmoS6yDnjlk/eJXSaAVQcii9FZHHvg7yx42vqa6gstsHhASvUhquaKwdSrMi8gTWQc5LvxkSvEpptKIxuW3eishjXwc5L8xCgld1OTMrIL9uAlUbE1gHOS/MhoNX9+BFWbdn6FCe0isiT2Id5Lz0AZNRvHWQhZlf8dZBFmZxJMz4ymkfMFUJM74i5raF2QiJv8mX+E58HYFZ07Ks4li+jF8zxay+uKM6qx60V7fS/kpas8Ssdf2W94i6MI/MTF8Ztw/AYqagoH14dXGntrAFFbWk6hYk1rHGtk48Yx37k3VsX9XwIYGyzUxfk8VmRigON4udm3YO7936671bqllQtWLrxH7r+Bc2rWJntQDpzSKkJfliM8WMypnHDP6pWgnTgVDNTdwsQamzCkm+mI9Z0yq2jo+/14ktNjOvPQsyKyC3PrNSwi/WZ9Y53XlQwYETHjA9ecwi84Ny+004i87q4vNYN4/td04DRaDlMYP62jmd5Iv1mR0+AMyayVrHVMVnho29haWoZi18AAoZvIZXW5iMrwrQ+EM/sF+zFhOVjIG6aSU8WLo6ArPJKNgH/HE80ELsZddEjlTWmXVWLa1xFbSItZGvBpihleKK3QdMSm45e9a0Y2MqZxFrIwMyYwv3o2Dba6de7q+DDMyu/Ju8YPXvK3nwhFNU2NrIejlkJOePgn29+o7+DULmy5nS9TPRtd4oha+NjFUTbWF/FKy31HsOmMH1M/Sd47qmjVobeZ1sYX8U7Bt78IDKeh8A6nwam7RxtWfD9vIrxkTG0ueLgi3/Y6Mf88pjFrnqV8ry1U2abvpJdi7Q+MyiohZTVvBaI4vjzcj8gCbMzL3WaN0ylk85kth9wKSZKRykZWvwlBozK6CkX8w/r3H4gIJhembEnqedfDnDWY3S4XeyVM6Y/uYU6mZ9cac2votavtgeyhSYkcZ2fcbXGJj1Pakkcq81cGYzc30AMz+aWesH+vk/N6dxLeUrZ8+OdRzAV4rMnjHTzz9LZR7a1wdkyAogpdcHvPsceSmq81wqJ+krZzRsylQ5C/56avApPrOf7bc+hM9NYxcklK+cZa89S4nZu88p9O2U+ss+msSJlen2LCVmNMApqMNNcp+St2iBa42MjTdHXl9l4fosg+PNrDPL5HhzdH5AMt48ArPJz9MOjjfDgoTpoX126CD+mN/eNsY7wXZ6Nhsf0dDEB8dMaJMR3I1zb1xmH/C+oCYz3uwrxMWlSOGh1YwDMb+wH23cvnVPdb9S/d8BBrKuYyTib5V7X1zaLsa9cXPLrO/i0gN5tw0oLM4dt750JwX14hbdjbJDaZfOHNB2dBtNfGg/iXGfThlKn7kvbo/uhRvj3rh6dbi4nvCEmYX8uCgsSBgfoPxgYKtzzzYF9QIVvQWG+8LJY7Gi7XaxisH579orGJHZPvu/A0KrjeAnYt0bN9PlDAYBwauMsCBhqqMU60oRmopWNnbXOsYQae8et42KV856D+9ROYO3bjQxBc/GuDcusw+YMLMHaezknykJcXHpgZjhDW01M6Cit4D03aWX6Nz1dtAxYJum1IumPTNR+hhNjPfCjXFv3EwzM6r7S9twkPBVfCDvtmHby4/gT1JsqKDeIsYY5Qs94wptZ/rNXSqlGF3c0IezMaaY7oV77XvjpsOsieOl1mdXrWN/26SXeubx7S0sJ/40+tWo9sa19M8Kghdg/XKG4zHuMMAZ7kPTU2rMLmxd2Dr87j7CICBm5hGYqcE0dMX9gOjnGKDWiYExqt8TZk+T9K+uxqHU+gAsZ4DD42NmHgeYURpOUEDRqlsLW/XPWJ+xSs0PHqdSNPiz5f7cdvonnVBp9ps490DlAsi4M4/ELJBmfoHR/PxqoVlo3QIgqXoOTl1kOz4gLWZQM2vWh02Zcmce/eWsPxt5gVq5UrPULAKzoqLZSj1l6Wo+mL261fn0a586ofm4M49+Zv3ZSChnP9lp9pnVc1bOmPmRzLB+4UwX9pHv+aQ789jvN/tppj2DlGP3QY/4U5yrhMYstD3LotJjFq63Q71OPQs+KP/lh5prZhEKAFKR12dZ1JSYXVuZZsb1N4UZ9Jv6RWxmk5+nzZrYzCYlYcZXHphF5k9JwowvYcaXMOMrD8xy3weEeMVP0QKWl82SyK5oahsNkp42qMgY7vE8Yf0i98xCI37vVr3zv1ruM4MEYwljjFz7SVptlYwUniesc2aImS/i9+7eY0DtMtnCUFTKjl02Vh26V2+Z1aNNACLDEyY+MxAnHB7xuwLMDsjiRBv0zXXPEsYFfsml08YwzxMe+UXyxiwQ8avLmWaGFKAaupZw96u/0c6mr5zF9oRHfpEcMQuL+MXVCvS6z7tLj1aImWcJ72LtHWjP4nvCI79IjpgNe8WXNvRvOSp0X9su3eC2bCxh44HSOtG7pt+M7wmP/B55YjYpzVC/OTEJM76EGV/CjC9Zn5YvYcaXMONLmPEla5TzJcz4kmsNvoQZXzJG50uY8SXM+BJmfOWrDwhftTh4d1v3Jq/G4sQgnhvXtGmJk7HXvBvujPmbEasWB9TQRqSXDf9d0zLO3XBnzN8MX7W4cZd9l11x7txYukROJroma6dedrOJmTEt49wNd8b8zTAP88zljRVnpf0tinMlVw6Y0aLFxuLEG2i6pmWcu+HOmL8Zvmoxhmy2z1Kcq8vMtEeUTeXMmJZx7oY7Y/5m+KrFHrNGmZzMV84f4KLF3qLGxEyblnHuhjtr/mbYqsUfg1bHtpdeojqITqZjV3DR4qva4tT9pjYtQTHuhjs//mYKca5Rd8MdVM76zRFKI8416m64g5odZpOTMONLmPE1Q33AxCS+E1/CjC9hxpd4dXwJM76EGV9yfcaXXJ/xJcz4EmZ8CTO+pA/ga0aYRQW8VoIb4mLJ2or6xxrOcx9xHWT9It/MIgJeneWAX9yjxZIpFPbNSu+h6lHXQdY5s8LMH/CKfpK2f03Mq71CiyVTiCIZCEddB1l7wtoLHnrOG7NgwKty7d+L2vClxZJ1Dm541HWQR36XXDELBryii0v2L+EiR04vlkzlDAOGj7oO8sjvkhdm4QGvjbK2f/VSyMjSMFMUXt177KjrII/8LnlhFh7w2tuGJsl1itHwpRvdnsJQWPpdVfmo6yDrz8x5HxBD8QzfGJojZvEM3xiaI2apSZjxNTN9wAQlvhNfwowvYcaX+E58CTO+hBlfwowvuT7jS5jxJcz4EmZ8yRidL2HGV96ZJY4cdvf0HXHmPeHEkcMJ4oQjlB9mR40cVkePE86rJ5w4cnjm44SHlThyeObjhIeVOHI4QZxwXvuApJHDJ287epxwbpmNEDtyeN7ihIfFjxyWOOFxKfd9wBQkzPgSr44vYcaXeCh8CTO+hBlfwoyv666laX2xDDML9oyj3k1UwoyvTDPLqIQZX8KML2HGV1aZUZBs8Mkxq0Tq+TqTOHlllJkJKht8oqBZpW+y2E+cvDLKzAQvDj5R0KxymbnxjZNXRplRkGzwiYJmlcvMJE5BGWUWWs4UgZJyFqHw9szQkvYsXBQkW6En713DuFVok/bzJq+sMsuyhBlfwowvYcaXMONLmPE1XmadVatIj8f2o7b4xBb8G0g6vHcrYmPIMRsH94lK8xJbJ/ajNmFr3OWsbpXgXB+IzK8tDJ1FSNJgzqvh+dH74Z+N/mqjNomvcTP74/2LO6OYhRSqkeUMny6E50fvp9xyNnKT2Bo7s51agZjVLaimnZvuX/j+iWesY3+C2gpVdnFHV7fDTetzv1A1rMJNy9KFoQ657l4/9XJgY3guYSXz5bmHAiqbVuFwc/GXmICf9kOo+/i6deI+q0DMatENRUyNn1lntQjM4O/cOv6FTasIJ1XsrBbg29eL8AD/oMI0i1B44KFWbN2w07oemTUL+M7sVQBGOgc2/iue+MKWP889FOzXuWlHvU0J5+CTcEPKbB0vHW6W4AV9SrJzGj8z1br+3AOqDt+zVsQTgv94gpslLBMlfa6t4/C3h3JjFWA7fe41aAf7exFipTfGfP3ey3MPhZ8IRJ7dpwT8NDcT6ybBo09Jdk4TYKbq7/mcqheQwACz5sK5zZJbPqCvqBtKfmbuXmHMfHnuofATWzf8/AeKEgwzet1nVkp8TpNgpqBJg2qFTZefWc3UFvj39pZqFqE2dk43oV3ahIZMNaGVOu3thadOOc97zPx57qHoI2tQZinBMKPXwAzbTTgMfkqycxozsxo16PgloU6UqP2tWQV4on5g4f2L99PLP78fG/yafsAN3V3NXoU67Qhv9At68uW5h6LGvXULEMeEm2kjnfn8Jm6t98Y/SRLJOIAvYcaXMOMr08yGh4fpDBgTKnPMvMFkxKgy1r7jVeaYeYPJiFFlrH3Hq4kzwwEiThDhZYd/+Pna6uIOjqJwMIkDxJBRpaK62fLGq+ZI3kj2e+6+ZvO6vnZJOrwc0qSZ4RhaweAPh30fGRh+6qtTHEzS9XrIqFLhZM45d4dz5kjeSFa5+57Tm9OINYXh5ZCmUM5wNFWkYd/AsMC8MJMTpbBRpZ519O1AR/JGst6+7uBAKZXC8HJIU2NWMq9DmHmjx8CoUoUz80ay3r5+ZsmHl0OaPDOoY7ridE4HmXVWcTypvNFjYFSpAsz0kfoj2UN3XzNAxRFrCsPLIU2e2aqeVMRh38DwE14tfACnBEs0WNwZHlXuY1U7dp+7w2vmSN5I1tv3ZneAurClkg8vhzSdupmxIzElzPiawrVGStdL6R2Jq8yNA3IgYcaXMONLmPElzPj6P78LMczamQoyAAAAAElFTkSuQmCC" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmpjbVpCWW5OVFVVMXpVM1Z0YldGeWVTNXpkbWRjSWl3Z2QybGtkR2c5T0N3Z2FHVnBaMmgwUFRRc0lIQmhkR2c5Wm1sc1pTNXdZWFJvS0c5MWRFWnBaMUJoZEdnc0lGd2ljM1puWENJcEtWeHVJQ0IxYm14cGJtc29YQ0pRZEhOQlFtTnlaa0ZpYzFOUlRYTlRkVzF0WVhKNUxuTjJaMXdpS1Z4dVhHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNJbEIwYzBGQ1kzSm1RV0p6VTFGTmMxTjFiVzFoY25rdWNHUm1YQ0lzSUhkcFpIUm9QVGdzSUdobGFXZG9kRDAwTENCd1lYUm9QV1pwYkdVdWNHRjBhQ2h2ZFhSR2FXZFFZWFJvTENCY0luQmtabHdpS1NsY2JpQWdkVzVzYVc1cktGd2lVSFJ6UVVKamNtWkJZbk5UVVUxelUzVnRiV0Z5ZVM1d1pHWmNJaWxjYm4xY2JseHVYRzRqSUhCc2IzUWdjbVZ6SUdGeklHaHZjbWw2YjI1MFlXd2dZbUZ5SUdOb1lYSjBMQ0IzYVhSb0lFbHRjQ0JoY3lCNUlHRjRhWE1zSUZaaGNtbGhZbXhsSUdGeklIZ2dZWGhwY3l3Z1QzVjBZMjl0WlNCaGN5Qm1hV3hzTENCaGJtUWdWbUZ5YVdGaWJHVmZjM1Z0SUdGeklHOXlaR1Z5TENCeVpXeGhZbVZzSUhnZ1lYaHBjeUIzYVhSb0lGWmhjbWxoWW14bElHNWhiV1Z6WEc1d1FtRnlJRHd0SUdkbmNHeHZkQ2h5WlhOQlluTkJRaWtnS3lCblpXOXRYMk52YkNoaFpYTW9abWxzYkQxUGRYUmpiMjFsTENCNVBVbHRjQ3dnZUQxUGNtUmxjaWtzSUdOdmJHOTFjajBuWjNKbGVUTTFKeXdnYkdsdVpYZHBaSFJvUFRBc0lDQjNhV1IwYUQwd0xqYzFMQ0J6YUc5M0xteGxaMlZ1WkQxVVVsVkZLU0FySUd4aFluTW9lRDFjSWxaaGNtbGhZbXhsWENJc0lIazlYQ0pPYjNKdFlXeHBjMlZrSUdOdmJtUnBkR2x2Ym1Gc0lIWmhjbWxoWW14bFhGeHVjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlZ3aUtTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYQ0p6WlhKcFpsd2lLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1N3Z2JHVm5aVzVrTG5CdmMybDBhVzl1SUQwZ1hDSjBiM0JjSWlrZ0t5QmpiMjl5WkY5bWJHbHdLSGxzYVcwOVl5Z3dMQ0F4S1NrZ0t5QnpZMkZzWlY5bWFXeHNYMjFoYm5WaGJDaDJZV3gxWlhNOWJYbGpiMnh2ZFhKekxDQnNZV0psYkhNOVl5aGxlSEJ5WlhOemFXOXVLSEJoYzNSbEtHSmhjaWhFWld4MFlYNUJLU2twTENCY0lpVklRU0I4SUVoQkp5QW9ZVzFpTGlsY0lpa3BJQ3NnYzJOaGJHVmZlRjlrYVhOamNtVjBaU2hzWVdKbGJITTlkVzVwY1hWbEtISmxkaWh5WlhOQlluTkJRaVJXWVhKcFlXSnNaU2twS1NBcklHZDFhV1JsY3lobWFXeHNQV2QxYVdSbFgyeGxaMlZ1WkNoMGFYUnNaVDBuVDNWMFkyOXRaU2NzSUc1eWIzYzlNaXdnYm1OdmJEMHhLU2xjYm5CQ1lYSWdLeUJ6WTJGc1pWOTVYMk52Ym5ScGJuVnZkWE1vWW5KbFlXdHpQWE5sY1Nnd0xDQXhMQ0JpZVQwd0xqVXBLVnh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCY3JmQWJzU1FNc1N1bW1hcnkuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD00LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJjcmZBYnNTUU1zU3VtbWFyeS5zdmdcXClcblxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmNyZkFic1NRTXNTdW1tYXJ5LnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCY3JmQWJzU1FNc1N1bW1hcnkucGRmXFwpXG59XG5cblxuIyBwbG90IHJlcyBhcyBob3Jpem9udGFsIGJhciBjaGFydCwgd2l0aCBJbXAgYXMgeSBheGlzLCBWYXJpYWJsZSBhcyB4IGF4aXMsIE91dGNvbWUgYXMgZmlsbCwgYW5kIFZhcmlhYmxlX3N1bSBhcyBvcmRlciwgcmVsYWJlbCB4IGF4aXMgd2l0aCBWYXJpYWJsZSBuYW1lc1xucEJhciA8LSBnZ3Bsb3QocmVzQWJzQUIpICsgZ2VvbV9jb2woYWVzKGZpbGw9T3V0Y29tZSwgeT1JbXAsIHg9T3JkZXIpLCBjb2xvdXI9J2dyZXkzNScsIGxpbmV3aWR0aD0wLCAgd2lkdGg9MC43NSwgc2hvdy5sZWdlbmQ9VFJVRSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcTm9ybWFsaXNlZCBjb25kaXRpb25hbCB2YXJpYWJsZVxcbnBlcm11dGF0aW9uIGltcG9ydGFuY2VcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMiksIGxlZ2VuZC5wb3NpdGlvbiA9IFxcdG9wXFwpICsgY29vcmRfZmxpcCh5bGltPWMoMCwgMSkpICsgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzPW15Y29sb3VycywgbGFiZWxzPWMoZXhwcmVzc2lvbihwYXN0ZShiYXIoRGVsdGF+QSkpKSwgXFwlSEEgfCBIQScgKGFtYi4pXFwpKSArIHNjYWxlX3hfZGlzY3JldGUobGFiZWxzPXVuaXF1ZShyZXYocmVzQWJzQUIkVmFyaWFibGUpKSkgKyBndWlkZXMoZmlsbD1ndWlkZV9sZWdlbmQodGl0bGU9J091dGNvbWUnLCBucm93PTIsIG5jb2w9MSkpXG5wQmFyICsgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcz1zZXEoMCwgMSwgYnk9MC41KSlcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
if (saveplots){
ggsave(filename=\PtsABcrfAbsSQMsSummary.svg\, width=8, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABcrfAbsSQMsSummary.svg\)
ggsave(filename=\PtsABcrfAbsSQMsSummary.pdf\, width=8, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABcrfAbsSQMsSummary.pdf\)
}
# plot res as horizontal bar chart, with Imp as y axis, Variable as x axis, Outcome as fill, and Variable_sum as order, relabel x axis with Variable names
pBar <- ggplot(resAbsAB) + geom_col(aes(fill=Outcome, y=Imp, x=Order), colour='grey35', linewidth=0, width=0.75, show.legend=TRUE) + labs(x=\Variable\, y=\Normalised conditional variable\npermutation importance\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2), legend.position = \top\) + coord_flip(ylim=c(0, 1)) + scale_fill_manual(values=mycolours, labels=c(expression(paste(bar(Delta~A))), \%HA | HA' (amb.)\)) + scale_x_discrete(labels=unique(rev(resAbsAB$Variable))) + guides(fill=guide_legend(title='Outcome', nrow=2, ncol=1))
pBar + scale_y_continuous(breaks=seq(0, 1, by=0.5))
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKamNtWkJZbk5UVVUxelUzVnRiV0Z5ZVM1emRtZGNYQ3dnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVFFzSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ4Y2MzWm5YRndwS1Z4dUlDQjFibXhwYm1zb1hGeFFkSE5CUW1OeVprRmljMU5SVFhOVGRXMXRZWEo1TG5OMloxeGNLVnh1WEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY1hGQjBjMEZDWTNKbVFXSnpVMUZOYzFOMWJXMWhjbmt1Y0dSbVhGd3NJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMDBMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjWEhCa1pseGNLU2xjYmlBZ2RXNXNhVzVyS0Z4Y1VIUnpRVUpqY21aQlluTlRVVTF6VTNWdGJXRnllUzV3WkdaY1hDbGNibjFjYmx4dVhHNGpJSEJzYjNRZ2NtVnpJR0Z6SUdodmNtbDZiMjUwWVd3Z1ltRnlJR05vWVhKMExDQjNhWFJvSUVsdGNDQmhjeUI1SUdGNGFYTXNJRlpoY21saFlteGxJR0Z6SUhnZ1lYaHBjeXdnVDNWMFkyOXRaU0JoY3lCbWFXeHNMQ0JoYm1RZ1ZtRnlhV0ZpYkdWZmMzVnRJR0Z6SUc5eVpHVnlMQ0J5Wld4aFltVnNJSGdnWVhocGN5QjNhWFJvSUZaaGNtbGhZbXhsSUc1aGJXVnpYRzV3UW1GeUlEd3RJR2RuY0d4dmRDaHlaWE5CWW5OQlFpa2dLeUJuWlc5dFgyTnZiQ2hoWlhNb1ptbHNiRDFQZFhSamIyMWxMQ0I1UFVsdGNDd2dlRDFQY21SbGNpa3NJR052Ykc5MWNqMG5aM0psZVRNMUp5d2diR2x1WlhkcFpIUm9QVEFzSUNCM2FXUjBhRDB3TGpjMUxDQnphRzkzTG14bFoyVnVaRDFVVWxWRktTQXJJR3hoWW5Nb2VEMWNYRlpoY21saFlteGxYRndzSUhrOVhGeE9iM0p0WVd4cGMyVmtJR052Ym1ScGRHbHZibUZzSUhaaGNtbGhZbXhsWEZ4dWNHVnliWFYwWVhScGIyNGdhVzF3YjNKMFlXNWpaVnhjS1NBcklIUm9aVzFsS0hSbGVIUWdQU0JsYkdWdFpXNTBYM1JsZUhRb1ptRnRhV3g1SUQwZ1hGeHpaWEpwWmx4Y0tTd2djR0Z1Wld3dVozSnBaRDFsYkdWdFpXNTBYMnhwYm1Vb1kyOXNiM0lnUFNCeVoySW9Nak0xTENBeU16VXNJREl6TlN3Z01UQXdMQ0J0WVhoRGIyeHZjbFpoYkhWbElEMGdNalUxS1N3Z2JHbHVaWGRwWkhSb0lEMGdNQzR5TlN3Z2JHbHVaWFI1Y0dVZ1BTQXlLU3dnYkdWblpXNWtMbkJ2YzJsMGFXOXVJRDBnWEZ4MGIzQmNYQ2tnS3lCamIyOXlaRjltYkdsd0tIbHNhVzA5WXlnd0xDQXhLU2tnS3lCelkyRnNaVjltYVd4c1gyMWhiblZoYkNoMllXeDFaWE05YlhsamIyeHZkWEp6TENCc1lXSmxiSE05WXlobGVIQnlaWE56YVc5dUtIQmhjM1JsS0dKaGNpaEVaV3gwWVg1QktTa3BMQ0JjWENWSVFTQjhJRWhCSnlBb1lXMWlMaWxjWENrcElDc2djMk5oYkdWZmVGOWthWE5qY21WMFpTaHNZV0psYkhNOWRXNXBjWFZsS0hKbGRpaHlaWE5CWW5OQlFpUldZWEpwWVdKc1pTa3BLU0FySUdkMWFXUmxjeWhtYVd4c1BXZDFhV1JsWDJ4bFoyVnVaQ2gwYVhSc1pUMG5UM1YwWTI5dFpTY3NJRzV5YjNjOU1pd2dibU52YkQweEtTbGNibkJDWVhJZ0t5QnpZMkZzWlY5NVgyTnZiblJwYm5WdmRYTW9ZbkpsWVd0elBYTmxjU2d3TENBeExDQmllVDB3TGpVcEtWeHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmNyZkFic1NRTXNTdW1tYXJ5LnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCY3JmQWJzU1FNc1N1bW1hcnkuc3ZnXFwpXG5cbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJjcmZBYnNTUU1zU3VtbWFyeS5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmNyZkFic1NRTXNTdW1tYXJ5LnBkZlxcKVxufVxuXG5cbiMgcGxvdCByZXMgYXMgaG9yaXpvbnRhbCBiYXIgY2hhcnQsIHdpdGggSW1wIGFzIHkgYXhpcywgVmFyaWFibGUgYXMgeCBheGlzLCBPdXRjb21lIGFzIGZpbGwsIGFuZCBWYXJpYWJsZV9zdW0gYXMgb3JkZXIsIHJlbGFiZWwgeCBheGlzIHdpdGggVmFyaWFibGUgbmFtZXNcbnBCYXIgPC0gZ2dwbG90KHJlc0Fic0FCKSArIGdlb21fY29sKGFlcyhmaWxsPU91dGNvbWUsIHk9SW1wLCB4PU9yZGVyKSwgY29sb3VyPSdncmV5MzUnLCBsaW5ld2lkdGg9MCwgIHdpZHRoPTAuNzUsIHNob3cubGVnZW5kPVRSVUUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXE5vcm1hbGlzZWQgY29uZGl0aW9uYWwgdmFyaWFibGVcXG5wZXJtdXRhdGlvbiBpbXBvcnRhbmNlXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpLCBsZWdlbmQucG9zaXRpb24gPSBcXHRvcFxcKSArIGNvb3JkX2ZsaXAoeWxpbT1jKDAsIDEpKSArIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcz1teWNvbG91cnMsIGxhYmVscz1jKGV4cHJlc3Npb24ocGFzdGUoYmFyKERlbHRhfkEpKSksIFxcJUhBIHwgSEEnIChhbWIuKVxcKSkgKyBzY2FsZV94X2Rpc2NyZXRlKGxhYmVscz11bmlxdWUocmV2KHJlc0Fic0FCJFZhcmlhYmxlKSkpICsgZ3VpZGVzKGZpbGw9Z3VpZGVfbGVnZW5kKHRpdGxlPSdPdXRjb21lJywgbnJvdz0yLCBuY29sPTEpKVxucEJhciArIHNjYWxlX3lfY29udGludW91cyhicmVha3M9c2VxKDAsIDEsIGJ5PTAuNSkpXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJjcmZBYnNTUU1zU3VtbWFyeS5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTQsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmNyZkFic1NRTXNTdW1tYXJ5LnN2Z1xcKVxuXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCY3JmQWJzU1FNc1N1bW1hcnkucGRmXFwsIHdpZHRoPTgsIGhlaWdodD00LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJjcmZBYnNTUU1zU3VtbWFyeS5wZGZcXClcbn1cblxuXG4jIHBsb3QgcmVzIGFzIGhvcml6b250YWwgYmFyIGNoYXJ0LCB3aXRoIEltcCBhcyB5IGF4aXMsIFZhcmlhYmxlIGFzIHggYXhpcywgT3V0Y29tZSBhcyBmaWxsLCBhbmQgVmFyaWFibGVfc3VtIGFzIG9yZGVyLCByZWxhYmVsIHggYXhpcyB3aXRoIFZhcmlhYmxlIG5hbWVzXG5wQmFyIDwtIGdncGxvdChyZXNBYnNBQikgKyBnZW9tX2NvbChhZXMoZmlsbD1PdXRjb21lLCB5PUltcCwgeD1PcmRlciksIGNvbG91cj0nZ3JleTM1JywgbGluZXdpZHRoPTAsICB3aWR0aD0wLjc1LCBzaG93LmxlZ2VuZD1UUlVFKSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxOb3JtYWxpc2VkIGNvbmRpdGlvbmFsIHZhcmlhYmxlXFxucGVybXV0YXRpb24gaW1wb3J0YW5jZVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSwgbGVnZW5kLnBvc2l0aW9uID0gXFx0b3BcXCkgKyBjb29yZF9mbGlwKHlsaW09YygwLCAxKSkgKyBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXM9bXljb2xvdXJzLCBsYWJlbHM9YyhleHByZXNzaW9uKHBhc3RlKGJhcihEZWx0YX5BKSkpLCBcXCVIQSB8IEhBJyAoYW1iLilcXCkpICsgc2NhbGVfeF9kaXNjcmV0ZShsYWJlbHM9dW5pcXVlKHJldihyZXNBYnNBQiRWYXJpYWJsZSkpKSArIGd1aWRlcyhmaWxsPWd1aWRlX2xlZ2VuZCh0aXRsZT0nT3V0Y29tZScsIG5yb3c9MiwgbmNvbD0xKSlcbnBCYXIgKyBzY2FsZV95X2NvbnRpbnVvdXMoYnJlYWtzPXNlcSgwLCAxLCBieT0wLjUpKVxuYGBgXG5gYGAifQ== -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABcrfAbsSQMsSummary.svg\, width=8, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABcrfAbsSQMsSummary.svg\)
ggsave(filename=\PtsABcrfAbsSQMsSummary.pdf\, width=8, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABcrfAbsSQMsSummary.pdf\)
}
# plot res as horizontal bar chart, with Imp as y axis, Variable as x axis, Outcome as fill, and Variable_sum as order, relabel x axis with Variable names
pBar <- ggplot(resAbsAB) + geom_col(aes(fill=Outcome, y=Imp, x=Order), colour='grey35', linewidth=0, width=0.75, show.legend=TRUE) + labs(x=\Variable\, y=\Normalised conditional variable\npermutation importance\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2), legend.position = \top\) + coord_flip(ylim=c(0, 1)) + scale_fill_manual(values=mycolours, labels=c(expression(paste(bar(Delta~A))), \%HA | HA' (amb.)\)) + scale_x_discrete(labels=unique(rev(resAbsAB$Variable))) + guides(fill=guide_legend(title='Outcome', nrow=2, ncol=1))
pBar + scale_y_continuous(breaks=seq(0, 1, by=0.5))
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIGV5Sm9aV2xuYUhRaU9qUXNJbmRwWkhSb0lqbzBMQ0p6YVhwbFgySmxhR0YyYVc5eUlqb3hMQ0pqYjI1a2FYUnBiMjV6SWpwYlhYMD0gLS0+XG5cbjxpbWcgc3JjPVxcZGF0YTppbWFnZS9wbmc7YmFzZTY0XG4ifQ== -->
```
<!-- rnb-plot-begin eyJoZWlnaHQiOjQsIndpZHRoIjo0LCJzaXplX2JlaGF2aW9yIjoxLCJjb25kaXRpb25zIjpbXX0= -->
<img src=\data:image/png;base64
```
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1wbG90LWJlZ2luIC0tPlxuXG48aW1nIHNyYz1cImRhdGE6aW1hZ2UvcG5nO2Jhc2U2NCxpVkJPUncwS0dnb0FBQUFOU1VoRVVnQUFBVE1BQUFFekNBTUFBQUJxaGhSc0FBQUIrRkJNVkVVQUFBQUFBRG9BQUdZQU9tWUFPcEFBWnJZQVp2OEF6Smt6TXpNNkFBQTZBRG82QUdZNk9nQTZPam82T3BBNlptWTZaclk2a0pBNmtMWTZrTnROVFUxTlRXNU5UWTVOYm01TmJvNU5icXROam81TmpxdE5qc2haV1ZsbUFBQm1BRHBtQUdabU9nQm1PanBtT3BCbVpnQm1abVptWnJabWtKQm1rTFpta050bXRyWm10dHRtdHY5dVRVMXVUVzV1VFk1dWJrMXVibTV1YnF0dWpvNXVqc2h1cTZ0dXE4aHVxK1NPVFUyT1RXNk9UWTZPYmsyT2JvNk9icXVPamsyT2pvNk9qc2lPcTZ1T3E4aU9xK1NPeU1pT3lPU095UCtRT2dDUU9qcVFPbWFRWmdDUVpwQ1FrRHFRa0dhUWtMYVFrTnVRdHBDUXR2K1EyN2FRMjl1UTIvK3JiazJyYm02cmJvNnJqazJyam82cmpxdXJxMjZycTZ1cnE4aXJxK1NyeU1pcnlQK3I1TWlyNU9TcjVQKzJaZ0MyWmpxMlptYTJrRHEya0pDMnRtYTJ0cmEydHYrMjI1QzIyLysyLzdhMi85dTIvLy9JamszSWptN0lqbzdJcTI3SXE0N0lxNnZJeUk3SXlLdkl5TWpJeU9USXlQL0k1S3ZJNVAvSS84akkvK1RJLy8vYmtEcmJrR2Jia0pEYnRtYmJ0cERidHJiYjI3YmIvN2JiLzl2Yi8vL2txMjdrcTQ3a3E2dmt5STdreUt2a3lNams1S3ZrNU1qay84amsvK1RrLy8veTh2TDM5L2YvdG1iL3RwRC90cmIveUk3L3lLdi95TWovMjVELzI3Yi81S3YvNU1qLzVPVC8vN2IvLzhqLy85di8vK1QvLy8vTVF1YzBBQUFBQ1hCSVdYTUFBQXV3QUFBTHNBRWFPQkJ5QUFBUytrbEVRVlI0bk8yZGpYL2IxQldHblJCdmxJOXV6RXBZdXBCMUF6STZuTUVnekJsYlIwZUhBNHlWc1NhRmxSVks3Zks1alNSbGRGdTNFaGMyV0Z3WXJJUzZVekVlZG56L3paMXo3cFVzeTNLc1kvbmp5cjd2cjdVZDZVcVdubHhkNmJ3Nk9Vb0lJNjRTdzk2QUdNb3c0OHN3NDhzdzQ4c3c0OHN3NDhzdzQ4c3c0OHN3NDhzdzQydkVtTjBSb0o1L3lhZ3grMHFMRExNT01zejRNc3o0YXNjczRWT2tMeGtUWmoyVlljYVhZY2JYMkRFcjM3UWE5VXZHaGxuNUdmbiszN3RTVWI5a2JKaTlNclZONzYrWDFJZnVOUzdNdm5nam44YjM2aHZWZytzUnYyUmNtTDIrWGY0NnZwZmc0aXdkOFV2R2hOa1hiNGpkeDNIdy8rZTJLQ1VqZnNtWU1Ndmp4WDlTN0s1QUo4c25JbzVvWThLc3B6TE0rRExNK05LZEdaN25HQmVoeHFjVm9qQzVMcXJ6THJSTGtlT2VYa2h2WmpJNGJJU0ladzJ6anNKdUJ0ZnU4N2ZOVDY3bkoxWkxlRDFhU01ERUFoNng1ZjJ2SktiZXd5dUh5SmNQTEduT2pGRHNycVFnNElGcjB2ZmhzaFN1U1BPcDh2N3Q4cjU3VnhLcDZud1NwcGRTTUcxd1c2VTVNK3BuTGpPOGxLZXdzUUNFOHM3RWxYU0JMbGdISnIyWnVlT1puMWtTdVRXWXVSR2tPVzgyenB1QXB6by8rU1llbTFQYjFRV2dDTFJjWm5DOFZoZW8vUjFmYmRIWU1jUEJubnlJZkdMaVZ1aGtGQzVPck9Kay9KU0V3Ui9PQTl2NXhLUTBlQXd6dmd3enZnd3p2Z3d6dmd3enZ0b3hLMkdnVVA3ZWZHTHFYeXYwVVlaajExYmhyTncwalM1YnFuYzJvb29TWFN6dlB1RzVpVEFtek02dW5sM2QvZVUyd2lBZzZvNGRNQlBOMDlBRjhBS0M2Mmw2aDhqRG5UWW16TENmQVE2WGo3cGoxOFNNcHIyN1RsMnJBQmMwaGJzVGR5ZlNwYS90byt1WXhuWHp1REFEbFE5aHRBK1hlMERHdVdOSHpIelRsT05VK3Y1OHNwUXNId0tRZEhqaTRrcGp3d3lPekh6aU50V25uRHQyM243V3VJdDNsa2E1ZENsZFNnR3psS0M3ZlBKV0gybHNtRjFhcmQ3NXdYZjNTejdPSFRzdnM4WmRQT2huTDYrWEdzd0tZOXJQOFBqQ0czWjRqcnpoTzg0ZHU4WjVzekZOaldjd1plckpSR0x5TmJSTVlEQWJ5L0VzU05jQ2ZWOTU5N2haM3N1UDhXYldSbDVBVXVONGZkWlRHV1o4alJvejQ5UHFLY09NTDhPTUw4T01MOE9NTDhPTUw4T01MOE9NTDhPTUw4T01MOE9NTDhPTUw4T01MOE9NTDhPTUw4T01MOE9NTDQyWjNhaWhhTU4wWmliZnJuWnExN0ZCRDFhaEdoaG0vQVp4WWFhVDRzSXM2RmJTNE9YZHBCZ3dhNzFsT1hnWlpud1pabndaWm56eG1OV1dyZG1kb2pXekpTby95T0dQczM5NkNTZjVtbTJlV2JNc2F6b25iR3ZtYnk4dXd3ZFJYMU1Md1Nvc2E4NjNBSzNOK3kyV2xSRzFoN2RHZ1ptb0hRWStIOEsrZlA2empCREZMT3dzVGZJVHdJblhjNVVIZG1yTG1kb0pRUFMvbnpvTDFaL2RxcTlsbTVlZ0daNXZPWUt0bWxxTUFyTy8yTkM3OEwrY0JQM0ltcjJ5bkxHbmMvQnBHcGxkejRuTDFIdHF2NE1POC9Gdm5ZV1FSakVqMjgrK1pXV0swQUZweHNaMGJnT21RUytVekdBZGxaOHZ3MXdLbks1ZXZhb1RNOWdjTHJQYUJUcHliRHlFaUZreEN5RHNqTmpNRmZFRkRpODRJczlSWDZtOXNKR3QvL1djczVEc1owNzdjMXUxQzJvR2NiWWJTeGRuUDRVRGVqTTNFdjBNZHQrR0VZZU9yMkpXTW9OZHF5elJEbTlpLzVMOVRPNXY3WVhLQS8vNXU3c1E5REFZejZoOS9kbUxieC85MEYzYlp1NXQ2RzB3UEdJL1c4dldUKzVVanFxK0dtZG05Uk01NHZZeEhKaHp3czRLTzRNL1ZvNFc0YWNNN09MR3pQTVo2Q0ZYY09JU2pHZlk0SVg2aVVkM2dKbGNTSTVVMUY0VUgzaG5EVVl5T1VOVWZuZ2FWMG5qbWRnWUdXYWlzbWpSa0pYRkR2SHYrNjJaaTh0MGlzVHhhUWRQZUZsOGVRelBtOURHeHNGcDJjcmFtYUkxZlQ4dGRQc2lublpwL051QkxnZ0h1ck8ySGV6QXNIN3JBSzV5ZHNlMnNodXcrcm5ZTSt1M1BvY0I3MVRBZE1Pc3ZZcDBYZGNxdzR3djQydndaZnd6dmd3enZnd3p2c3g0eHBmRHJMVjAzdUJsbVBGbG1QRmxtUEhWYjJaN09iczRwVTZPN2tzTkw3ZXhsUFJycytQSGJDOW5sNlpJUjdmaDVYcVdRbi9EVnNiNWVETHpPN3RxaW5UYUhDKzNhRTJmV1p0OUx0TmdocmFHeDZjZE5pOFUwNmZ0bmxtTHMrdTRzK1RKdWw2dXNMTzF3eTg2L1d6WnZkc3lmdjBzeU5sVlUxUS9VMTR1bW0xb1JqcjlERjNMOFdQVzF0bFZVK2lISmNmTFBiZGxaeXRMbXpuWkJJN05ZbVlNbWJWemRzL0lLZC84Q1RxNnYxQmU3c3p6Rmt4NWJPMzJSWGsydFRMMU5XbW5qUmV6M3NndzQ4c3c0OHY0R253Wi80d3Z3NHd2azRQTTF4REdzN2JiRWpkbTZnN2o0TTZPQVRMTURMTkJNR3ZhSk1OTVEyYWV2RmtiZysrbWxGbmx6Z3AvZWkxcGZKazE4bWJyYXhuZnZOb1IwV1RnTm10OG1aRXpXM3pFZXNUSzJnOHV6bURLYkcxNU9rZHBzN2FWYVRadzhSN0JodlhnNllCODJvRXdvNkgrcXZ6ZXB2ZXJvczgrclZma3pOYVc1K3k1eWxIQVltZUtzenVYYy9hUEtHMzJvNlZtQXhkbVlNSnRVZDVFMGFtZkRmUzhLWjFaTzR0WnBJQ2pzbFEvdWJOaFdYT1VBbHB4bWNsbU9HTXpOL2JNSEs5V01TdG1nQm5lWHZFeWN3MWNuRkVjOTM1V2Q1eloyZWNzYStZOFptL2JsSDQ3UjJtenRlV0h2QVl1L3FYQUhDWG9hc2RNU2Qvck13MzdtWksyekNxTDh0NjZZY2FYVHI1RzB5YnB6OHo0Wnd3Wlpud1pabndaWm56MTloelF3MDJLQWJNSWYzSER1SXhnYkpKaHh0OGt3NHkvU1lZWnFuZm5nSUJrNHR4R1U5a0gxNXJXczFiRUVKZ0ZKQk9mT1hubDhLZW5mQzJFcnJVaWhzcXNrVXhNMCtpdnBNbWRkcXRHYUZrcm9wbFprR2V0M2o5ck03MExienNnbVppbVlkVUg2VTZycWhHYTFvb1l4amtnSUptWXBsSFZCM0phM2FvUld0YUtHQWF6Z0dSaTJjOVVsWWpMS25HNHFHbXRpS0ZjYTdRa0UyL0JoNHdjejlDZFBpQ3JSdWhhSzJKMHI4LzZWeXRpR09mTndhaC90U0pHbDFrN0RkRFg2SnBaS1pFcTcwdDF0My85VUF6OHMrcEM5V25oUElaWUI4VWdCM24zR0RDVGo4RFdRekZnUmc5dW50U25tN1VmejRhOVNmNXp3THY2UUd2M3R6dTZNS01IcXlmMDZtaGhtUTN0SFBDcUdzZGkyTS9NZmFlRzRzQU1qODlreCsvdlRnR1dyMlBzdGxVTW1PMnVwT1RqNnZ1aU52VWpydnVZb2IzaFNQZHpnSEFlcE42djhTeTRmZ1FnVTFadEl5dTVzbmpnd3A2MUl1N1l3MC90ODN2THNYbHBGVjVlN2pNemIvMElXVElDeVhtemtpL25QcGYzQlhUdlorNjFSbCtQelpiNkVYaG9vbFhyelVwMnkrSG96c3k1MWlnZjZ0TzN0YXNmc1VSV3JUY3IrY010ZUdsc29OYm5BSkh2NnpWdGkrWDdqakoyc2ZkNXNwSXpueXo3Y3BBMVpsWmQyRDBtSUV6WFJuRmc5clFvcFhlZk1ISEFIZzFhanMzQzVIcStieGUxWGNqNEduenA3cDlWRDY3THl3MzlmQTJkMU5MUFh1MW5ITkNGWXNCTXAxc0JwQmpjUTVGaGszNzlyT080UDh4ckRVM0hNN3duckNzelhjY3pyWm1oK2hadmRxR3d6QWFvRHZGbVVESXR2VUFzN1pjM054WkN5amxxSnlOTWZFV1RFVjlzRldTU09Wc0xYZE5YWTJiK2VEUEFXYVdNMnBhS0Q3N2NXRmlPR2xmdWc5ajd4N2t2ZHpEaGN3a3o5djRpbkhxKzFDNXNUVitkbWZuaXpRQm5sVjdJVHkxQ1o3RWZ2Ty84UTVUOGlpMXE5QlEybUhieDhBNjFvL0tmK0ZJNWpmbVJkZ1o2bjZyblc2Y2F2bUZyK2pyTWh1RExkdlJwZmZGbVVESXR2a0Qvd1FSUSs3RTFTbjRGS3JJRnBzWEN6bU8zb25ZYmVJakIvbTlZYzVpNVdEbjY1UTZobGVic2krRnIrdXArRHZBb0tKbVdqbEhLQ2FWTVJrSFZINXg2RUpoS2JEY2VadWYycy9xelc5VFA0RWNuNjVhU1RNUFc5STBSc3dCbmxWNklHUmJpbGN5QWlteEJUMkU3VC9zdTI4R0pBY2MwSWQ1VzQ1bktac2VzVzZ6aEc3YW1yNjdNcWd1dDdWcVRhYS9qQy9tcFJjdWFmUTV2RTFsd2dMcUZIakFiRnM2TWM5Uk9uVGMzcUpkaUZtNVJyczdDM0Z1cTRSdXlwcSsyek9hN2lnRHMxbk5vNzZUN2VSUFQ5ZWJaZDUwYVYxZjlrTzdNbEFvNnhwdEQ5bWE5OHZjenNidWlWWWl1dlg5R3BrWjZpRnNUSU4zOU0rME1SNkUvTXgxbG1QSGxuZ002dERQTUdnckxiSUF5elBneXpQZ3l6UGpxa2xudzArZ2dWcitpU2lBNG9oQWRqWjY2Tk5ySTRLNTM0VzJQd0RrZ0tKdjRpS2lmZkd1MndRd21LR3NiOCs4cXArbXZxOGtRNnNMYkhpVm1ubXppSS9WVFFPMEsyZHZRVlRLMmxWR1dJN3B3SDZ0cUVTcTVrZXR0ZDhvNS9xeWpKLzFaSjgrNmg3VWk5bVRXbkUwOEI4eDJ5S3BGTy9lakpkZmF4ai9vSjdkUkd0eGRlTnVqMHM5ODJjU3luMGxtU0FFT1E4ZmFyajM4WituUWV2b1p6OXVPL3prZ01Kc1kveEpDMW5uWW1IaytTOHhjYTNzRGo5Nm04WXpwYlk4QXM4Q24wZEU5cVN6Vk1LNVJNZU9Nc3JhVmwwdDFJVGJVZVpQcGJZOENzMEhKTU9OcmhNNEJBNU5oeHBmeHovZ3l6UGpTL1I2S2puTEdzK0Z1UlpNTU03NE1NNzVHaHBrNUJ6UVVMMmJCbFIzOFZYbmQ1MWxKcXhhVHFtNWZsT1lyQnBVZHEvaUc5V2xEN2srVUZyM29aMjBxTy9oVWxJYXFPeHNmcTZiTTF6QlZmTVA2dENIM0owcUxuakpycXV5Z25qcjMwUExNUlhKazBmMVpQSERCbVUzTWxQa2Fwb3B2V0o5V2c5eGo1ejBNTTY4WGUvZ0tQWFh1VWNvN0puY1JtRkZoQjJYVll1RlB4M3dOVThVM3JFL2JxUThNVUIyWnRWUjI4RHgxem1HbXhpT2FUZjFNbWE5aHF2aUc5V243RFlLaHZaZ0ZWM2J3UEhXT0hObDM4TkZ6d004cC9FRE1wUGthcG9wdldKKzIveWhDYTg5cmphREtEdDlhYzU0NlIybitNTEpaV1N6c2NGMWF0Zks4S2MxWFVJZ3F2aUY5Mms0N29zazVZQy8xSU8rNFhSWGZabzBPczE3a0hiZXI0dHVzMFdFMk9Cbi9qQy9qbi9GbG1QRmxtUEZsbVBGbHpwdDhHV1o4R1daOGpRaXpkc20wV1g5RExDZ2g3YUZQRmpIMmpGSXJncldGL1ZWWC9TdzRtZGFlOVhtNGRTb29RV20ySDJYckozS1Jha1YwdFhmOVVUUm0zbVJhZW9RVFdiSXFuOWFha3c5bU8wS1JPTnBCVVdwRmFPRFBodkZwT3pMeko5TUt4NUxkbENZc0ZaU1FjN0JocEZvUnZDM3NxN3BuNWsrbVJXZVZMRm5DUlM2WkxDaEIvUXlUa1NQVml1aTBUWnFmQTlvazArS3oxOVRqMkRabXppTkx4VXhRNm5iOVZLUmFFWkYzZU5qWEdvSEp0UFUxR0pJYzl4Wk4yRG4xWUxhTXZOZVppVlFySXZJT0Q1dFpaNFV6WVVOb2pKaUZNMkZEYUZUT0FZT1U4VFg0TXN6NE1zejRNdmRRK0RMTStCcWphNDJleVREankxeWY4V1dZOFJWM1pwR3prcDBsUFdzY2VXODdjbGJ5eU9jZ3R5cHlWckxvV3c2eXRyVWlJbWNsOXk4SFdlOStGaVVydVg4NXlOb3lpNXlWUFBvNXlLMkttSlU4ZlgvZmNwQUhxTjVkbjdHemtudWJnenhBOVl3WlB5dTV0em5JQTFSYzRnRGpCVEZrbVBGbG1QRmxtUEYxbzRhaURkT1ltVklQYmo5RlgwWFRHZ3d6L2hyMFo2YWZERE8rRERPK0RETyt0R1pHR2ZMdVc1UlYyRmEzZjZuclJOT2VqZENabWNvb1ZXOVJWa0ZwOWwxS2xpUHdib1RPekZUbXNwUEFIR0VWbEdiZnBWUUpCODlHNk15TU11VGR0eWlyK0hLbjVjOCtRa3N5ODI2RXpzeDYxODhFN1hSM2lsYy82K0Y0cHZhOEc4VnJQSk1aOGxsNmk3YUtZb1MwYUx5SjBid1JXalBUVklZWlg0WVpYNFlaWDRZWlg0WVpYN295cTg3amczcmhkV3E3WFl0dnI4Sy9wa203ajYrMmFReHpWR1AvTXUybXVSUEwrN2Q5VFhSbGhzL3BUY08rSG1zN1B6L1JzcU1CazVyblhBcWUzMzQ1L0xYUmI4M2JSRjltN3o0MXViNFhzNEJPdFdjL3c3ZXp3ZlBiTHllY2Z1WnRvakd6OVh5U21CWHdlZHJWZzA5Ti9Ici9LNG1wOStCb3BTZVR5OE50ZHlWeHp4OUVIZy9oVWlJaE93TTlTVm90OVpvN0J4ckRleG9QTXM4OFoxWDBPT1hrN3Nya0gzRUNmdHR2NE5qSHorWDlUeWFTeEN5dkJncWRtVlhuVThBTWZzL2xmZmV1SkZLd1U2bnFmQksydnBDQ0YvZ0hCMHdwQlowSFh2S3A4czNyNVp1UVdTbUpQNm1sa3NCSXpvSEc3K09PVDZ4NjV6bXJFdkw1d05kb3duSDRKbXhJTTh2NzByc3JhZmhBMzRKYnBqTXpVYjdwK0RGUmdPM01wM0NINEQvdTRFb2ErMFJhN210NUgvenVvZDhra3RCTzduc2VueVh0TGtXSWhXeU04K1hQN2p4blZmaU5RT1RWYlpxQTMrYk14R09UNE5HM1lEdXRtWW5DRGZlSVFoSUpOREVyVFJ4ZlNUdjlBODRWQlVYSnk4eFpLb2laWjU2ekt2ekc4czIvZjBiUUJNV01QamVZT2MvMTFwdVpnQ0VORGlzY3Vyek04dXBvZ1gvWFZrVXBCVWRqZGFFRTQ5SUtQdCs5QktQVWdyc1U3anJOZWRObDVwM25ySXErTWc5OWxpWW9adlFabU9HNENhdkJiOEZtMmpMTDA0Q09HMW5BSjdmaitKdFBKT0dOemdNVHQwdytSUi8vY1FzTytIbjVvaDd4VG91cXBaSUZXaEIra0Ivb3pUUFBXUlVON3VWRFFCd24zRVdONU13M1Y3QzFYSHFTbm9pdUxUT05aWmp4WlpqeE5hTE1XaVBJd0ppeU80MFFNemVZYkJOVmhsbzJqRWFJbVJ0TXRva3FReTBiUmpGaWhnRWlHa1I0MmVFTlB6K1luMXpIS0FxRFNRd1FBNkpLUWNkbTJZMVgxWnJjU1BaWHpyS3FlVUZldTdUeG9lTERER05vQWNFZmhuM2ZhQW8vNWRVcEJwTjB2UjRRVlFvMGM0NDdDeHhYYTNJaldlRXNlMXcycDRqVkRTOWJGQjltRkVQRG5sSFkxeFFXcUEvS25FZ0hSWlhTZGZRc1FHdHlJMWwzV1NjNEVFSzQ0V1dMWXNnc3JUNEhNSE9qUjE5VUtZS1p1WkdzdTZ5WFdicmRoc1NKR1J4ajhzQ3BMdmlaVmVjeG5oUnU5T2lMS29XUG1WeFRJNUxkZFpaVkFTcEdyRzU0MmFJNE1adVhwaUtHZlUzaEozeWF1QlV0d1RRRmkrdXRVZVUySG1wVFR6b0xmS0RXNUVheTdySjNPUUhxeEtwd3dzc1d4WW5ad2VCZEdQaWFERE8rNHNNTVRtdHQ3OXNOZGszeFlhYVBERE8rRERPK0RETytERE8rL2cvM3ZxT3RZSWdxd1FBQUFBQkpSVTVFcmtKZ2dnPT1cIiAvPlxuXG48IS0tIHJuYi1wbG90LWVuZCAtLT5cbiJ9 -->
<!-- rnb-plot-begin -->
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAATMAAAEzCAMAAABqhhRsAAAB+FBMVEUAAAAAADoAAGYAOmYAOpAAZrYAZv8AzJkzMzM6AAA6ADo6AGY6OgA6Ojo6OpA6ZmY6ZrY6kJA6kLY6kNtNTU1NTW5NTY5Nbm5Nbo5NbqtNjo5NjqtNjshZWVlmAABmADpmAGZmOgBmOjpmOpBmZgBmZmZmZrZmkJBmkLZmkNtmtrZmtttmtv9uTU1uTW5uTY5ubk1ubm5ubqtujo5ujshuq6tuq8huq+SOTU2OTW6OTY6Obk2Obo6ObquOjk2Ojo6OjsiOq6uOq8iOq+SOyMiOyOSOyP+QOgCQOjqQOmaQZgCQZpCQkDqQkGaQkLaQkNuQtpCQtv+Q27aQ29uQ2/+rbk2rbm6rbo6rjk2rjo6rjqurq26rq6urq8irq+SryMiryP+r5Mir5OSr5P+2ZgC2Zjq2Zma2kDq2kJC2tma2tra2tv+225C22/+2/7a2/9u2///Ijk3Ijm7Ijo7Iq27Iq47Iq6vIyI7IyKvIyMjIyOTIyP/I5KvI5P/I/8jI/+TI///bkDrbkGbbkJDbtmbbtpDbtrbb27bb/7bb/9vb///kq27kq47kq6vkyI7kyKvkyMjk5Kvk5Mjk/8jk/+Tk///y8vL39/f/tmb/tpD/trb/yI7/yKv/yMj/25D/27b/5Kv/5Mj/5OT//7b//8j//9v//+T////MQuc0AAAACXBIWXMAAAuwAAALsAEaOBByAAAS+klEQVR4nO2djX/b1BWGnRBvlI9uzEpYupB1AzI6nMEgzBlbR0eHA4yVsSaFlRVK7fK5jSRldFu3Ehc2WFwYrIS6UzEednz/zZ1z7pUsy3KsY/njyr7vr7Ud6UqWnlxd6bw6OUoII64Sw96AGMow48sw48sw48sw48sw48sw48sw48sw48sw42vEmN0RoJ5/yagx+0qLDLMOMsz4Msz4ascs4VOkLxkTZj2VYcaXYcbX2DEr37Qa9UvGhln5Gfn+37tSUb9kbJi9MrVN76+X1IfuNS7Mvngjn8b36hvVg+sRv2RcmL2+Xf46vpfg4iwd8UvGhNkXb4jdx3Hw/+e2KCUjfsmYMMvjxX9S7K5AJ8snIo5oY8KspzLM+DLM+NKdGZ7nGBehxqcVojC5LqrzLrRLkeOeXkhvZjI4bISIZw2zjsJuBtfu87fNT67nJ1ZLeD1aSMDEAh6x5f2vJKbewyuHyJcPLGnOjFDsrqQg4IFr0vfhshSuSPOp8v7t8r57VxKp6nwSppdSMG1wW6U5M+pnLjO8lKewsQCE8s7ElXSBLlgHJr2ZueOZn1kSuTWYuRGkOW82zpuApzo/+SYem1Pb1QWgCLRcZnC8Vheo/R1fbdHYMcPBnnyIfGLiVuhkFC5OrOJk/JSEwR/OA9v5xKQ0eAwzvgwzvgwzvgwzvgwzvtoxK2GgUP7efGLqXyv0UYZj11bhrNw0jS5bqnc2oooSXSzvPuG5iTAmzM6unl3d/eU2wiAg6o4dMBPN09AF8AKC62l6h8jDnTYmzLCfAQ6Xj7pj18SMpr27Tl2rABc0hbsTdyfSpa/to+uYxnXzuDADlQ9htA+Xe0DGuWNHzHzTlONU+v58spQsHwKQdHji4kpjwwyOzHziNtWnnDt23n7WuIt3lka5dCldSgGzlKC7fPJWH2lsmF1ard75wXf3Sz7OHTsvs8ZdPOhnL6+XGswKY9rP8PjCG3Z4jrzhO84du8Z5szFNjWcwZerJRGLyNbRMYDAby/EsSNcCfV9597hZ3suP8WbWRl5AUuN4fdZTGWZ8jRoz49PqKcOML8OML8OML8OML8OML8OML8OML8OML8OML8OML8OML8OML8OML8OML8OML8OML42Z3aihaMN0ZibfrnZq17FBD1ahGhhm/AZxYaaT4sIs6FbS4OXdpBgwa71lOXgZZnwZZnwZZnzxmNWWrdmdojWzJSo/yOGPs396CSf5mm2eWbMsazonbGvmby8uwwdRX1MLwSosa863AK3N+y2WlRG1h7dGgZmoHQY+H8K+fP6zjBDFLOwsTfITwInXc5UHdmrLmdoJQPS/nzoL1Z/dqq9lm5egGZ5vOYKtmlqMArO/2NC78L+cBP3Imr2ynLGnc/BpGpldz4nL1Htqv4MO8/FvnYWQRjEj28++ZWWK0AFpxsZ0bgOmQS+UzGAdlZ8vw1wKnK5evaoTM9gcLrPaBTpybDyEiFkxCyDsjNjMFfEFDi84Is9RX6m9sJGt//Wcs5DsZ077c1u1C2oGcbYbSxdnP4UDejM3Ev0Mdt+GEYeOr2JWMoNdqyzRDm9i/5L9TO5v7YXKA//5u7sQ9DAYz6h9/dmLbx/90F3bZu5t6G0wPGI/W8vWT+5Ujqq+Gmdm9RM54vYxHJhzws4KO4M/Vo4W4acM7OLGzPMZ6CFXcOISjGfY4IX6iUd3gJlcSI5U1F4UH3hnDUYyOUNUfngaV0njmdgYGWaismjRkJXFDvHv+62Zi8t0isTxaQdPeFl8eQzPm9DGxsFp2cramaI1fT8tdPsinnZp/NuBLggHurO2HezAsH7rAK5ydse2shuw+rnYM+u3PocB71TAdMOsvYp0Xdcqw4wv42vwZfwzvgwzvgwzvsx4xpfDrLV03uBlmPFlmPFlmPHVb2Z7Obs4pU6O7ksNL7exlPRrs+PHbC9nl6ZIR7fh5XqWQn/DVsb5eDLzO7tqinTaHC+3aE2fWZt9LtNghraGx6cdNi8U06ftnlmLs+u4s+TJul6usLO1wy86/WzZvdsyfv0syNlVU1Q/U14umm1oRjr9DF3L8WPW1tlVU+iHJcfLPbdlZytLmznZBI7NYmYMmbVzds/IKd/8CTq6v1Be7szzFkx5bO32RXk2tTL1NWmnjRez3sgw48sw48v4GnwZ/4wvw4wvk4PM1xDGs7bbEjdm6g7j4M6OATLMDLNBMGvaJMNMQ2aevFkbg++mlFnlzgp/ei1pfJk18mbraxnfvNoR0WTgNmt8mZEzW3zEesTK2g8uzmDKbG15Okdps7aVaTZw8R7BhvXg6YB82oEwo6H+qvzepveros8+rVfkzNaW5+y5ylHAYmeKszuXc/aPKG32o6VmAxdmYMJtUd5E0amfDfS8KZ1ZO4tZpICjslQ/ubNhWXOUAlpxmclmOGMzN/bMHK9WMStmgBneXvEycw1cnFEc935Wd5zZ2ecsa+Y8Zm/blH47R2mzteWHvAYu/qXAHCXoasdMSd/rMw37mZK2zCqL8t66YcaXTr5G0ybpz8z4ZwwZZnwZZnwZZnz19hzQw02KAbMIf3HDuIxgbJJhxt8kw4y/SYYZqnfngIBk4txGU9kH15rWs1bEEJgFJBOfOXnl8KenfC2ErrUihsqskUxM0+ivpMmddqtGaFkroplZkGet3j9rM70LbzsgmZimYdUH6U6rqhGa1ooYxjkgIJmYplHVB3Ja3aoRWtaKGAazgGRi2c9UlYjLKnG4qGmtiKFca7QkE2/Bh4wcz9CdPiCrRuhaK2J0r8/6VytiGOfNwah/tSJGl1k7DdDX6JpZKZEq70t1t3/9UAz8s+pC9WnhPIZYB8UgB3n3GDCTj8DWQzFgRg9untSnm7Ufz4a9Sf5zwLv6QGv3tzu6MKMHqyf06mhhmQ3tHPCqGsdi2M/MfaeG4sAMj89kx+/vTgGWr2PstlUMmO2upOTj6vuiNvUjrvuYob3hSPdzgHAepN6v8Sy4fgQgU1ZtIyu5snjgwp61Iu7Yw0/t83vLsXlpFV5e7jMzb/0IWTICyXmzki/nPpf3BXTvZ+61Rl+PzZb6EXhoolXrzUp2y+Hozsy51igf6tO3tasfsURWrTcr+cMteGlsoNbnAJHv6zVti+X7jjJ2sfd5spIznyz7cpA1ZlZd2D0mIEzXRnFg9rQopXefMHHAHg1ajs3C5Hq+bxe1Xcj4Gnzp7p9VD67Lyw39fA2d1NLPXu1nHNCFYsBMp1sBpBjcQ5Fhk379rOO4P8xrDU3HM7wnrCszXcczrZmh+hZvdqGwzAaoDvFmUDItvUAs7Zc3NxZCyjlqJyNMfEWTEV9sFWSSOVsLXdNXY2b+eDPAWaWM2paKD77cWFiOGlfug9j7x7kvdzDhcwkz9v4inHq+1C5sTV+dmfnizQBnlV7ITy1CZ7EfvO/8Q5T8ii1q9BQ2mHbx8A61o/Kf+FI5jfmRdgZ6n6rnW6cavmFr+jrMhuDLdvRpffFmUDItvkD/wQRQ+7E1Sn4FKrIFpsXCzmO3onYbeIjB/m9Yc5i5WDn65Q6hlebsi+Fr+up+DvAoKJmWjlHKCaVMRkHVH5x6EJhKbDceZuf2s/qzW9TP4Ecn65aSTMPW9I0RswBnlV6IGRbilcyAimxBT2E7T/su28GJAcc0Id5W45nKZsesW6zhG7amr67Mqgut7VqTaa/jC/mpRcuafQ5vE1lwgLqFHjAbFs6Mc9ROnTc3qJdiFm5Rrs7C3Fuq4Ruypq+2zOa7igDs1nNo76T7eRPT9ebZd50aV1f9kO7MlAo6xptD9ma98vczsbuiVYiuvX9GpkZ6iFsTIN39M+0MR6E/Mx1lmPHlngM6tDPMGgrLbIAyzPgyzPgyzPjqklnw0+ggVr+iSiA4ohAdjZ66NNrI4K534W2PwDkgKJv4iKiffGu2wQwmKGsb8+8qp+mvq8kQ6sLbHiVmnmziI/VTQO0K2dvQVTK2lVGWI7pwH6tqESq5kettd8o5/qyjJ/1ZJ8+6h7Ui9mTWnE08B8x2yKpFO/ejJdfaxj/oJ7dRGtxdeNuj0s982cSyn0lmSAEOQ8farj38Z+nQevoZz9uO/zkgMJsY/xJC1nnYmHk+S8xca3sDj96m8YzpbY8As8Cn0dE9qSzVMK5RMeOMsraVl0t1ITbUeZPpbY8Cs0HJMONrhM4BA5Nhxpfxz/gyzPjS/R6KjnLGs+FuRZMMM74MM75Ghpk5BzQUL2bBlR38VXnd51lJqxaTqm5flOYrBpUdq/iG9WlD7k+UFr3oZ20qO/hUlIaqOxsfq6bM1zBVfMP6tCH3J0qLnjJrquygnjr30PLMRXJk0f1ZPHDBmU3MlPkapopvWJ9Wg9xj5z0MM68Xe/gKPXXuUco7JncRmFFhB2XVYuFPx3wNU8U3rE/bqQ8MUB2ZtVR28Dx1zmGmxiOaTf1Mma9hqviG9Wn7DYKhvZgFV3bwPHWOHNl38NFzwM8p/EDMpPkapopvWJ+2/yhCa89rjaDKDt9ac546R2n+MLJZWSzscF1atfK8Kc1XUIgqviF92k47osk5YC/1IO+4XRXfZo0Os17kHber4tus0WE2OBn/jC/jn/FlmPFlmPFlmPFlzpt8GWZ8GWZ8jQizdsm0WX9DLCgh7aFPFjH2jFIrgrWF/VVX/Sw4mdae9Xm4dSooQWm2H2XrJ3KRakV0tXf9UTRm3mRaeoQTWbIqn9aakw9mO0KRONpBUWpFaODPhvFpOzLzJ9MKx5LdlCYsFZSQc7BhpFoRvC3sq7pn5k+mRWeVLFnCRS6ZLChB/QyTkSPViui0TZqfA9ok0+Kz19Tj2DZmziNLxUxQ6nb9VKRaEZF3eNjXGoHJtPU1GJIc9xZN2Dn1YLaMvNeZiVQrIvIOD5tZZ4UzYUNojJiFM2FDaFTOAYOU8TX4Msz4Msz4MvdQ+DLM+Bqja42eyTDjy1yf8WWY8RV3ZpGzkp0lPWsceW87clbyyOcgtypyVrLoWw6ytrUiImcl9y8HWe9+FiUruX85yNoyi5yVPPo5yK2KmJU8fX/fcpAHqN5dn7GzknubgzxA9YwZPyu5tznIA1Rc4gDjBTFkmPFlmPFlmPF1o4aiDdOYmVIPbj9FX0XTGgwz/hr0Z6afDDO+DDO+DDO+tGZGGfLuW5RV2Fa3f6nrRNOejdCZmcooVW9RVkFp9l1KliPwboTOzFTmspPAHGEVlGbfpVQJB89G6MyMMuTdtyir+HKn5c8+Qksy826Ezsx6188E7XR3ilc/6+F4pva8G8VrPJMZ8ll6i7aKYoS0aLyJ0bwRWjPTVIYZX4YZX4YZX4YZX4YZX7oyq87jg3rhdWq7XYtvr8K/pkm7j6+2aQxzVGP/Mu2muRPL+7d9TXRlhs/pTcO+Hms7Pz/RsqMBk5rnXAqe3345/LXRb83bRF9m7z41ub4Xs4BOtWc/w7ezwfPbLyecfuZtojGz9XySmBXwedrVg09N/Hr/K4mp9+BopSeTy8NtdyVxzx9EHg/hUiIhOwM9SVot9Zo7BxrDexoPMs88Z1X0OOXk7srkH3ECfttv4NjHz+X9TyaSxCyvBgqdmVXnU8AMfs/lffeuJFKwU6nqfBK2vpCCF/gHB0wpBZ0HXvKp8s3r5ZuQWSmJP6mlksBIzoHG7+OOT6x65zmrEvL5wNdownH4JmxIM8v70rsrafhA34JbpjMzUb7p+DFRgO3Mp3CH4D/u4Eoa+0Ra7mt5H/zuod8kktBO7nsenyXtLkWIhWyM8+XP7jxnVfiNQOTVbZqA3+bMxGOT4NG3YDutmYnCDfeIQhIJNDErTRxfSTv9A84VBUXJy8xZKoiZZ56zKvzG8s2/f0bQBMWMPjeYOc/11puZgCENDiscurzM8upogX/XVkUpBUdjdaEE49IKPt+9BKPUgrsU7jrNedNl5p3nrIq+Mg99liYoZvQZmOG4CavBb8Fm2jLL04COG1nAJ7fj+JtPJOGNzgMTt0w+RR//cQsO+Hn5oh7xTouqpZIFWhB+kB/ozTPPWRUN7uVDQBwn3EWN5Mw3V7C1XHqSnoiuLTONZZjxZZjxNaLMWiPIwJiyO40QMzeYbBNVhlo2jEaImRtMtokqQy0bRjFihgEiGkR42eENPz+Yn1zHKAqDSQwQA6JKQcdm2Y1X1ZrcSPZXzrKqeUFeu7TxoeLDDGNoAcEfhn3faAo/5dUpBpN0vR4QVQo0c447CxxXa3IjWeEse1w2p4jVDS9bFB9mFEPDnlHY1xQWqA/KnEgHRZXSdfQsQGtyI1l3WSc4EEK44WWLYsgsrT4HMHOjR19UKYKZuZGsu6yXWbrdhsSJGRxj8sCpLviZVecxnhRu9OiLKoWPmVxTI5LddZZVASpGrG542aI4MZuXpiKGfU3hJ3yauBUtwTQFi+utUeU2HmpTTzoLfKDW5Eay7rJ3OQHqxKpwwssWxYnZweBdGPiaDDO+4sMMTmtt79sNdk3xYaaPDDO+DDO+DDO+DDO+/g/3vqOtYIgqwQAAAABJRU5ErkJggg==" />
<!-- rnb-plot-end -->
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVYRzVwWmlBb2MyRjJaWEJzYjNSektYdGNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmpjbVpCWW5OVFVVMXpVM1Z0YldGeWVVNTNMbk4yWjF3aUxDQjNhV1IwYUQwMExDQm9aV2xuYUhROU5Dd2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p6ZG1kY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNZM0ptUVdKelUxRk5jMU4xYlcxaGNua3VjM1puWENJcFhHNWNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVndpVUhSelFVSmpjbVpCWW5OVFVVMXpVM1Z0YldGeWVVNTNMbkJrWmx3aUxDQjNhV1IwYUQwMExDQm9aV2xuYUhROU5Dd2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p3WkdaY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNZM0ptUVdKelUxRk5jMU4xYlcxaGNua3VjR1JtWENJcFhHNTlYRzVjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmNyZkFic1NRTXNTdW1tYXJ5Tncuc3ZnXFwsIHdpZHRoPTQsIGhlaWdodD00LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJjcmZBYnNTUU1zU3VtbWFyeS5zdmdcXClcblxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmNyZkFic1NRTXNTdW1tYXJ5TncucGRmXFwsIHdpZHRoPTQsIGhlaWdodD00LCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJjcmZBYnNTUU1zU3VtbWFyeS5wZGZcXClcbn1cblxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
if (saveplots){
ggsave(filename=\PtsABcrfAbsSQMsSummaryNw.svg\, width=4, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABcrfAbsSQMsSummary.svg\)
ggsave(filename=\PtsABcrfAbsSQMsSummaryNw.pdf\, width=4, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABcrfAbsSQMsSummary.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dVhHNXBaaUFvYzJGMlpYQnNiM1J6S1h0Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKamNtWkJZbk5UVVUxelUzVnRiV0Z5ZVU1M0xuTjJaMXhjTENCM2FXUjBhRDAwTENCb1pXbG5hSFE5TkN3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHpkbWRjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1kzSm1RV0p6VTFGTmMxTjFiVzFoY25rdWMzWm5YRndwWEc1Y2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWeGNVSFJ6UVVKamNtWkJZbk5UVVUxelUzVnRiV0Z5ZVU1M0xuQmtabHhjTENCM2FXUjBhRDAwTENCb1pXbG5hSFE5TkN3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHdaR1pjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1kzSm1RV0p6VTFGTmMxTjFiVzFoY25rdWNHUm1YRndwWEc1OVhHNWNibHh1WUdCZ1hHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJjcmZBYnNTUU1zU3VtbWFyeU53LnN2Z1xcLCB3aWR0aD00LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCY3JmQWJzU1FNc1N1bW1hcnkuc3ZnXFwpXG5cbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJjcmZBYnNTUU1zU3VtbWFyeU53LnBkZlxcLCB3aWR0aD00LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCY3JmQWJzU1FNc1N1bW1hcnkucGRmXFwpXG59XG5cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJjcmZBYnNTUU1zU3VtbWFyeU53LnN2Z1xcLCB3aWR0aD00LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCY3JmQWJzU1FNc1N1bW1hcnkuc3ZnXFwpXG5cbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJjcmZBYnNTUU1zU3VtbWFyeU53LnBkZlxcLCB3aWR0aD00LCBoZWlnaHQ9NCwgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCY3JmQWJzU1FNc1N1bW1hcnkucGRmXFwpXG59XG5cblxuYGBgXG5gYGAifQ== -->
```r
```r
if (saveplots){
ggsave(filename=\PtsABcrfAbsSQMsSummaryNw.svg\, width=4, height=4, path=file.path(outFigPath, \svg\))
unlink(\PtsABcrfAbsSQMsSummary.svg\)
ggsave(filename=\PtsABcrfAbsSQMsSummaryNw.pdf\, width=4, height=4, path=file.path(outFigPath, \pdf\))
unlink(\PtsABcrfAbsSQMsSummary.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Difference variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJqYjIxaWFXNWxJSFJvWlNCaGJtNXZlV0Z1WTJVZ2NHVnliU0JwYlhCdmNuUmhibU5sSUhKbGMzVnNkSE5jYmx4dUl5QmpiMjUyWlhKMElHVmhZMmdnY21WemRXeDBJSFJ2SUdFZ2RHbGlZbXhsSUhkcGRHZ2djbTkzYm1GdFpYTWdZV1JrWldRZ2RHOGdZU0JqYjJ4MWJXNHNJSEpsYm1GdGFXNW5JSFJvWlNCa1lYUmhJR052YkhWdGJpQjBieUFuWkVGdWJtOTVKeUJsZEdNdVhHNXlaWE5rUVc1dWIzbE5ia1JwWm1aUVpYSnRTVzF3VkdKc1FVSWdQQzBnWVhNdVpHRjBZUzVtY21GdFpTaHlaWE5rUVc1dWIzbE5ibEJsY20xSmJYQkJRaVJFYVdabVUxRk5jekV2YldGNEtISmxjMlJCYm01dmVVMXVVR1Z5YlVsdGNFRkNKRVJwWm1aVFVVMXpNU2twSUh3K1hHNGdJSFJwWW1Kc1pUbzZjbTkzYm1GdFpYTmZkRzlmWTI5c2RXMXVLSFpoY2owblZtRnlhV0ZpYkdVbktWeHVZMjlzYm1GdFpYTW9jbVZ6WkVGdWJtOTVUVzVFYVdabVVHVnliVWx0Y0ZSaWJFRkNLVnN5WFNBOExTQmNJbVJCYm01dmVWd2lYRzVjYm5KbGMyUklhVUZ1Ym05NVJHbG1abEJsY20xSmJYQlVZbXhCUWlBOExTQmhjeTVrWVhSaExtWnlZVzFsS0hKbGMyUklhVUZ1Ym05NVVHVnliVWx0Y0VGQ0pFUnBabVpUVVUxek1TOXRZWGdvY21WelpFaHBRVzV1YjNsUVpYSnRTVzF3UVVJa1JHbG1abE5SVFhNeEtTa2dmRDVjYmlBZ2RHbGlZbXhsT2pweWIzZHVZVzFsYzE5MGIxOWpiMngxYlc0b2RtRnlQU2RXWVhKcFlXSnNaU2NwWEc1amIyeHVZVzFsY3loeVpYTmtTR2xCYm01dmVVUnBabVpRWlhKdFNXMXdWR0pzUVVJcFd6SmRJRHd0SUZ3aVpFaHBRVzV1YjNsY0lseHVYRzRqSUcxbGNtZGxJSFJvWlNCa1lYUmhabkpoYldWelhHNXlaWE5FYVdabVVHVnliVWx0Y0ZSaWJFRkNJRHd0SUd4cGMzUW9jbVZ6WkVGdWJtOTVUVzVFYVdabVVHVnliVWx0Y0ZSaWJFRkNMQ0J5WlhOa1NHbEJibTV2ZVVScFptWlFaWEp0U1cxd1ZHSnNRVUlwSUh3K1hHNGdJSEIxY25KeU9qcHlaV1IxWTJVb2JXVnlaMlVzSUdKNUlEMGdZeWduVm1GeWFXRmliR1VuS1N3Z1lXeHNJRDBnVkNsY2JseHVJeUJ5Wlc1aGJXVWdkR2hsSUdOdmJIVnRibk5jYm1OdmJHNWhiV1Z6S0hKbGMwUnBabVpRWlhKdFNXMXdWR0pzUVVJcFd6STZNMTBnUEMwZ1l5aGNJazFsWVc0Z1kyaGhibWRsSUdsdUlHRnVibTk1WVc1alpWd2lMQ0JjSWlWSVFTQjhJRWhCSnlBb1lXMWlMaWxjSWlsY2JuSmxjMFJwWm1aUVpYSnRTVzF3VkdKc1FVSmJhWE11Ym1Fb2NtVnpSR2xtWmxCbGNtMUpiWEJVWW14QlFpbGRJRHd0SURCY2JseHVjbVZ6UkdsbVprRkNJRHd0SUhScFpIbHlPanB3YVhadmRGOXNiMjVuWlhJb2NtVnpSR2xtWmxCbGNtMUpiWEJVWW14QlFpd2dZMjlzY3owdFZtRnlhV0ZpYkdVc0lHNWhiV1Z6WDNSdlBWd2lUM1YwWTI5dFpWd2lMQ0IyWVd4MVpYTmZkRzg5WENKSmJYQmNJaWxjYmx4dUl5QnlaVzl5WkdWeUlISmxjeUIwYVdKaWJHVXNJR1JsYzJObGJtUnBibWNnWW5rZ2RHaGxJSFpoY21saFlteGxJRWx0Y0NCbmNtOTFjR1ZrSUhOMWJTQmhibVFnWTNKbFlYUmxJR052YkhWdGJpQjNhWFJvSUc1bGR5Qm5jbTkxY0NCdmNtUmxjaUJoY3lCaElHWmhZM1J2Y2x4dWNtVnpSR2xtWmtGQ0lEd3RJSEpsYzBScFptWkJRaUI4UGlCdGRYUmhkR1VvVm1GeWFXRmliR1ZmYzNWdElEMGdjM1Z0S0VsdGNDa3NJQzVpZVQxV1lYSnBZV0pzWlNrZ2ZENGdZWEp5WVc1blpTaGtaWE5qS0ZaaGNtbGhZbXhsWDNOMWJTa3BJSHcrSUdkeWIzVndYMko1S0ZaaGNtbGhZbXhsWDNOMWJTd2dWbUZ5YVdGaWJHVXBJSHcrWEc0Z0lDQnRkWFJoZEdVb1QzSmtaWElnUFNCamRYSmZaM0p2ZFhCZmFXUW9LU2tnZkQ0Z2JYVjBZWFJsS0U5eVpHVnlJRDBnWVhNdVptRmpkRzl5S0U5eVpHVnlLU2tnZkQ0Z1lYSnlZVzVuWlNoa1pYTmpLRTl5WkdWeUtTbGNibHh1SXlCU1pXOXlaR1Z5SUc5MWRHTnZiV1VnYkdWMlpXeHpYRzV5WlhORWFXWm1RVUlrVDNWMFkyOXRaU0E4TFNCbVlXTjBiM0lvY21WelJHbG1aa0ZDSkU5MWRHTnZiV1VzSUd4bGRtVnNjejFqS0Z3aVRXVmhiaUJqYUdGdVoyVWdhVzRnWVc1dWIzbGhibU5sWENJc0lGd2lKVWhCSUh3Z1NFRW5JQ2hoYldJdUtWd2lLU2xjYmx4dUl5QndiRzkwSUhKbGN5QmhjeUJvYjNKcGVtOXVkR0ZzSUdKaGNpQmphR0Z5ZEN3Z2QybDBhQ0JKYlhBZ1lYTWdlU0JoZUdsekxDQldZWEpwWVdKc1pTQmhjeUI0SUdGNGFYTXNJRTkxZEdOdmJXVWdZWE1nWm1sc2JDd2dZVzVrSUZaaGNtbGhZbXhsWDNOMWJTQmhjeUJ2Y21SbGNpd2djbVZzWVdKbGJDQjRJR0Y0YVhNZ2QybDBhQ0JXWVhKcFlXSnNaU0J1WVcxbGMxeHVjRUpoY2lBOExTQm5aM0JzYjNRb2NtVnpSR2xtWmtGQ0tTQXJJR2RsYjIxZlkyOXNLR0ZsY3lobWFXeHNQVTkxZEdOdmJXVXNJSGs5U1cxd0xDQjRQVTl5WkdWeUtTd2dZMjlzYjNWeVBTZG5jbVY1TXpVbkxDQnNhVzVsZDJsa2RHZzlNQ3dnSUhkcFpIUm9QVEF1TnpVc0lITm9iM2N1YkdWblpXNWtQVlJTVlVVcElDc2diR0ZpY3loNFBWd2lWbUZ5YVdGaWJHVmNJaXdnZVQxY0lrNXZjbTFoYkdselpXUWdZMjl1WkdsMGFXOXVZV3dnZG1GeWFXRmliR1VnY0dWeWJYVjBZWFJwYjI0Z2FXMXdiM0owWVc1alpWd2lLU0FySUhSb1pXMWxLSFJsZUhRZ1BTQmxiR1Z0Wlc1MFgzUmxlSFFvWm1GdGFXeDVJRDBnWENKelpYSnBabHdpS1N3Z2NHRnVaV3d1WjNKcFpEMWxiR1Z0Wlc1MFgyeHBibVVvWTI5c2IzSWdQU0J5WjJJb01qTTFMQ0F5TXpVc0lESXpOU3dnTVRBd0xDQnRZWGhEYjJ4dmNsWmhiSFZsSUQwZ01qVTFLU3dnYkdsdVpYZHBaSFJvSUQwZ01DNHlOU3dnYkdsdVpYUjVjR1VnUFNBeUtTd2diR1ZuWlc1a0xuQnZjMmwwYVc5dUlEMGdYQ0p5YVdkb2RGd2lLU0FySUdOdmIzSmtYMlpzYVhBb2VXeHBiVDFqS0Mwd0xqRXNJREV1TVNrcElDc2djMk5oYkdWZlptbHNiRjl0WVc1MVlXd29kbUZzZFdWelBXMTVZMjlzYjNWeWN5a2dLeUJ6WTJGc1pWOTRYMlJwYzJOeVpYUmxLR3hoWW1Wc2N6MTFibWx4ZFdVb2NtVjJLSEpsYzBScFptWkJRaVJXWVhKcFlXSnNaU2twS1Z4dWNFSmhjaUFySUhOallXeGxYM2xmWTI5dWRHbHVkVzkxY3loaWNtVmhhM005YzJWeEtEQXNJREVzSUdKNVBUQXVOU2twWEc1Y2JtbG1JQ2h6WVhabGNHeHZkSE1wZTF4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhDSlFkSE5CUW1OeVprUnBabVpUVVUxelUzVnRiV0Z5ZVM1emRtZGNJaXdnZDJsa2RHZzlPQ3dnYUdWcFoyaDBQVE1zSUhCaGRHZzlabWxzWlM1d1lYUm9LRzkxZEVacFoxQmhkR2dzSUZ3aWMzWm5YQ0lwS1Z4dUlDQjFibXhwYm1zb1hDSlFkSE5CUW1OeVprUnBabVpUVVUxelUzVnRiV0Z5ZVM1emRtZGNJaWxjYmlBZ1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNJbEIwYzBGQ1kzSm1SR2xtWmxOUlRYTlRkVzF0WVhKNUxuQmtabHdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TXl3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSndaR1pjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1kzSm1SR2xtWmxOUlRYTlRkVzF0WVhKNUxuQmtabHdpS1Z4dWZWeHVYRzVnWUdBaWZRPT0gLS0+XG5cbmBgYHJcbiMgY29tYmluZSB0aGUgYW5ub3lhbmNlIHBlcm0gaW1wb3J0YW5jZSByZXN1bHRzXG5cbiMgY29udmVydCBlYWNoIHJlc3VsdCB0byBhIHRpYmJsZSB3aXRoIHJvd25hbWVzIGFkZGVkIHRvIGEgY29sdW1uLCByZW5hbWluZyB0aGUgZGF0YSBjb2x1bW4gdG8gJ2RBbm5veScgZXRjLlxucmVzZEFubm95TW5EaWZmUGVybUltcFRibEFCIDwtIGFzLmRhdGEuZnJhbWUocmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZlNRTXMxL21heChyZXNkQW5ub3lNblBlcm1JbXBBQiREaWZmU1FNczEpKSB8PlxuICB0aWJibGU6OnJvd25hbWVzX3RvX2NvbHVtbih2YXI9J1ZhcmlhYmxlJylcbmNvbG5hbWVzKHJlc2RBbm5veU1uRGlmZlBlcm1JbXBUYmxBQilbMl0gPC0gXFxkQW5ub3lcXFxuXG5yZXNkSGlBbm5veURpZmZQZXJtSW1wVGJsQUIgPC0gYXMuZGF0YS5mcmFtZShyZXNkSGlBbm5veVBlcm1JbXBBQiREaWZmU1FNczEvbWF4KHJlc2RIaUFubm95UGVybUltcEFCJERpZmZTUU1zMSkpIHw+XG4gIHRpYmJsZTo6cm93bmFtZXNfdG9fY29sdW1uKHZhcj0nVmFyaWFibGUnKVxuY29sbmFtZXMocmVzZEhpQW5ub3lEaWZmUGVybUltcFRibEFCKVsyXSA8LSBcXGRIaUFubm95XFxcblxuIyBtZXJnZSB0aGUgZGF0YWZyYW1lc1xucmVzRGlmZlBlcm1JbXBUYmxBQiA8LSBsaXN0KHJlc2RBbm5veU1uRGlmZlBlcm1JbXBUYmxBQiwgcmVzZEhpQW5ub3lEaWZmUGVybUltcFRibEFCKSB8PlxuICBwdXJycjo6cmVkdWNlKG1lcmdlLCBieSA9IGMoJ1ZhcmlhYmxlJyksIGFsbCA9IFQpXG5cbiMgcmVuYW1lIHRoZSBjb2x1bW5zXG5jb2xuYW1lcyhyZXNEaWZmUGVybUltcFRibEFCKVsyOjNdIDwtIGMoXFxNZWFuIGNoYW5nZSBpbiBhbm5veWFuY2VcXCwgXFwlSEEgfCBIQScgKGFtYi4pXFwpXG5yZXNEaWZmUGVybUltcFRibEFCW2lzLm5hKHJlc0RpZmZQZXJtSW1wVGJsQUIpXSA8LSAwXG5cbnJlc0RpZmZBQiA8LSB0aWR5cjo6cGl2b3RfbG9uZ2VyKHJlc0RpZmZQZXJtSW1wVGJsQUIsIGNvbHM9LVZhcmlhYmxlLCBuYW1lc190bz1cXE91dGNvbWVcXCwgdmFsdWVzX3RvPVxcSW1wXFwpXG5cbiMgcmVvcmRlciByZXMgdGliYmxlLCBkZXNjZW5kaW5nIGJ5IHRoZSB2YXJpYWJsZSBJbXAgZ3JvdXBlZCBzdW0gYW5kIGNyZWF0ZSBjb2x1bW4gd2l0aCBuZXcgZ3JvdXAgb3JkZXIgYXMgYSBmYWN0b3JcbnJlc0RpZmZBQiA8LSByZXNEaWZmQUIgfD4gbXV0YXRlKFZhcmlhYmxlX3N1bSA9IHN1bShJbXApLCAuYnk9VmFyaWFibGUpIHw+IGFycmFuZ2UoZGVzYyhWYXJpYWJsZV9zdW0pKSB8PiBncm91cF9ieShWYXJpYWJsZV9zdW0sIFZhcmlhYmxlKSB8PlxuICAgbXV0YXRlKE9yZGVyID0gY3VyX2dyb3VwX2lkKCkpIHw+IG11dGF0ZShPcmRlciA9IGFzLmZhY3RvcihPcmRlcikpIHw+IGFycmFuZ2UoZGVzYyhPcmRlcikpXG5cbiMgUmVvcmRlciBvdXRjb21lIGxldmVsc1xucmVzRGlmZkFCJE91dGNvbWUgPC0gZmFjdG9yKHJlc0RpZmZBQiRPdXRjb21lLCBsZXZlbHM9YyhcXE1lYW4gY2hhbmdlIGluIGFubm95YW5jZVxcLCBcXCVIQSB8IEhBJyAoYW1iLilcXCkpXG5cbiMgcGxvdCByZXMgYXMgaG9yaXpvbnRhbCBiYXIgY2hhcnQsIHdpdGggSW1wIGFzIHkgYXhpcywgVmFyaWFibGUgYXMgeCBheGlzLCBPdXRjb21lIGFzIGZpbGwsIGFuZCBWYXJpYWJsZV9zdW0gYXMgb3JkZXIsIHJlbGFiZWwgeCBheGlzIHdpdGggVmFyaWFibGUgbmFtZXNcbnBCYXIgPC0gZ2dwbG90KHJlc0RpZmZBQikgKyBnZW9tX2NvbChhZXMoZmlsbD1PdXRjb21lLCB5PUltcCwgeD1PcmRlciksIGNvbG91cj0nZ3JleTM1JywgbGluZXdpZHRoPTAsICB3aWR0aD0wLjc1LCBzaG93LmxlZ2VuZD1UUlVFKSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxOb3JtYWxpc2VkIGNvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2VcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMiksIGxlZ2VuZC5wb3NpdGlvbiA9IFxccmlnaHRcXCkgKyBjb29yZF9mbGlwKHlsaW09YygtMC4xLCAxLjEpKSArIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcz1teWNvbG91cnMpICsgc2NhbGVfeF9kaXNjcmV0ZShsYWJlbHM9dW5pcXVlKHJldihyZXNEaWZmQUIkVmFyaWFibGUpKSlcbnBCYXIgKyBzY2FsZV95X2NvbnRpbnVvdXMoYnJlYWtzPXNlcSgwLCAxLCBieT0wLjUpKVxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJjcmZEaWZmU1FNc1N1bW1hcnkuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0zLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJjcmZEaWZmU1FNc1N1bW1hcnkuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmNyZkRpZmZTUU1zU3VtbWFyeS5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTMsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmNyZkRpZmZTUU1zU3VtbWFyeS5wZGZcXClcbn1cblxuYGBgXG5cbjwhLS0gcm5iLXNvdXJjZS1lbmQgLS0+XG4ifQ== -->
# combine the annoyance perm importance results
# convert each result to a tibble with rownames added to a column, renaming the data column to 'dAnnoy' etc.
resdAnnoyMnDiffPermImpTblAB <- as.data.frame(resdAnnoyMnPermImpAB$DiffSQMs1/max(resdAnnoyMnPermImpAB$DiffSQMs1)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdAnnoyMnDiffPermImpTblAB)[2] <- \dAnnoy\
resdHiAnnoyDiffPermImpTblAB <- as.data.frame(resdHiAnnoyPermImpAB$DiffSQMs1/max(resdHiAnnoyPermImpAB$DiffSQMs1)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdHiAnnoyDiffPermImpTblAB)[2] <- \dHiAnnoy\
# merge the dataframes
resDiffPermImpTblAB <- list(resdAnnoyMnDiffPermImpTblAB, resdHiAnnoyDiffPermImpTblAB) |>
purrr::reduce(merge, by = c('Variable'), all = T)
# rename the columns
colnames(resDiffPermImpTblAB)[2:3] <- c(\Mean change in annoyance\, \%HA | HA' (amb.)\)
resDiffPermImpTblAB[is.na(resDiffPermImpTblAB)] <- 0
resDiffAB <- tidyr::pivot_longer(resDiffPermImpTblAB, cols=-Variable, names_to=\Outcome\, values_to=\Imp\)
# reorder res tibble, descending by the variable Imp grouped sum and create column with new group order as a factor
resDiffAB <- resDiffAB |> mutate(Variable_sum = sum(Imp), .by=Variable) |> arrange(desc(Variable_sum)) |> group_by(Variable_sum, Variable) |>
mutate(Order = cur_group_id()) |> mutate(Order = as.factor(Order)) |> arrange(desc(Order))
# Reorder outcome levels
resDiffAB$Outcome <- factor(resDiffAB$Outcome, levels=c(\Mean change in annoyance\, \%HA | HA' (amb.)\))
# plot res as horizontal bar chart, with Imp as y axis, Variable as x axis, Outcome as fill, and Variable_sum as order, relabel x axis with Variable names
pBar <- ggplot(resDiffAB) + geom_col(aes(fill=Outcome, y=Imp, x=Order), colour='grey35', linewidth=0, width=0.75, show.legend=TRUE) + labs(x=\Variable\, y=\Normalised conditional variable permutation importance\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2), legend.position = \right\) + coord_flip(ylim=c(-0.1, 1.1)) + scale_fill_manual(values=mycolours) + scale_x_discrete(labels=unique(rev(resDiffAB$Variable)))
pBar + scale_y_continuous(breaks=seq(0, 1, by=0.5))
if (saveplots){
ggsave(filename=\PtsABcrfDiffSQMsSummary.svg\, width=8, height=3, path=file.path(outFigPath, \svg\))
unlink(\PtsABcrfDiffSQMsSummary.svg\)
ggsave(filename=\PtsABcrfDiffSQMsSummary.pdf\, width=8, height=3, path=file.path(outFigPath, \pdf\))
unlink(\PtsABcrfDiffSQMsSummary.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QmpiMjFpYVc1bElIUm9aU0JoYm01dmVXRnVZMlVnY0dWeWJTQnBiWEJ2Y25SaGJtTmxJSEpsYzNWc2RITmNibHh1SXlCamIyNTJaWEowSUdWaFkyZ2djbVZ6ZFd4MElIUnZJR0VnZEdsaVlteGxJSGRwZEdnZ2NtOTNibUZ0WlhNZ1lXUmtaV1FnZEc4Z1lTQmpiMngxYlc0c0lISmxibUZ0YVc1bklIUm9aU0JrWVhSaElHTnZiSFZ0YmlCMGJ5QW5aRUZ1Ym05NUp5QmxkR011WEc1eVpYTmtRVzV1YjNsTmJrUnBabVpRWlhKdFNXMXdWR0pzUVVJZ1BDMGdZWE11WkdGMFlTNW1jbUZ0WlNoeVpYTmtRVzV1YjNsTmJsQmxjbTFKYlhCQlFpUkVhV1ptVTFGTmN6RXZiV0Y0S0hKbGMyUkJibTV2ZVUxdVVHVnliVWx0Y0VGQ0pFUnBabVpUVVUxek1Ta3BJSHcrWEc0Z0lIUnBZbUpzWlRvNmNtOTNibUZ0WlhOZmRHOWZZMjlzZFcxdUtIWmhjajBuVm1GeWFXRmliR1VuS1Z4dVkyOXNibUZ0WlhNb2NtVnpaRUZ1Ym05NVRXNUVhV1ptVUdWeWJVbHRjRlJpYkVGQ0tWc3lYU0E4TFNCY1hHUkJibTV2ZVZ4Y1hHNWNibkpsYzJSSWFVRnVibTk1UkdsbVpsQmxjbTFKYlhCVVlteEJRaUE4TFNCaGN5NWtZWFJoTG1aeVlXMWxLSEpsYzJSSWFVRnVibTk1VUdWeWJVbHRjRUZDSkVScFptWlRVVTF6TVM5dFlYZ29jbVZ6WkVocFFXNXViM2xRWlhKdFNXMXdRVUlrUkdsbVpsTlJUWE14S1NrZ2ZENWNiaUFnZEdsaVlteGxPanB5YjNkdVlXMWxjMTkwYjE5amIyeDFiVzRvZG1GeVBTZFdZWEpwWVdKc1pTY3BYRzVqYjJ4dVlXMWxjeWh5WlhOa1NHbEJibTV2ZVVScFptWlFaWEp0U1cxd1ZHSnNRVUlwV3pKZElEd3RJRnhjWkVocFFXNXViM2xjWEZ4dVhHNGpJRzFsY21kbElIUm9aU0JrWVhSaFpuSmhiV1Z6WEc1eVpYTkVhV1ptVUdWeWJVbHRjRlJpYkVGQ0lEd3RJR3hwYzNRb2NtVnpaRUZ1Ym05NVRXNUVhV1ptVUdWeWJVbHRjRlJpYkVGQ0xDQnlaWE5rU0dsQmJtNXZlVVJwWm1aUVpYSnRTVzF3VkdKc1FVSXBJSHcrWEc0Z0lIQjFjbkp5T2pweVpXUjFZMlVvYldWeVoyVXNJR0o1SUQwZ1l5Z25WbUZ5YVdGaWJHVW5LU3dnWVd4c0lEMGdWQ2xjYmx4dUl5QnlaVzVoYldVZ2RHaGxJR052YkhWdGJuTmNibU52Ykc1aGJXVnpLSEpsYzBScFptWlFaWEp0U1cxd1ZHSnNRVUlwV3pJNk0xMGdQQzBnWXloY1hFMWxZVzRnWTJoaGJtZGxJR2x1SUdGdWJtOTVZVzVqWlZ4Y0xDQmNYQ1ZJUVNCOElFaEJKeUFvWVcxaUxpbGNYQ2xjYm5KbGMwUnBabVpRWlhKdFNXMXdWR0pzUVVKYmFYTXVibUVvY21WelJHbG1abEJsY20xSmJYQlVZbXhCUWlsZElEd3RJREJjYmx4dWNtVnpSR2xtWmtGQ0lEd3RJSFJwWkhseU9qcHdhWFp2ZEY5c2IyNW5aWElvY21WelJHbG1abEJsY20xSmJYQlVZbXhCUWl3Z1kyOXNjejB0Vm1GeWFXRmliR1VzSUc1aGJXVnpYM1J2UFZ4Y1QzVjBZMjl0WlZ4Y0xDQjJZV3gxWlhOZmRHODlYRnhKYlhCY1hDbGNibHh1SXlCeVpXOXlaR1Z5SUhKbGN5QjBhV0ppYkdVc0lHUmxjMk5sYm1ScGJtY2dZbmtnZEdobElIWmhjbWxoWW14bElFbHRjQ0JuY205MWNHVmtJSE4xYlNCaGJtUWdZM0psWVhSbElHTnZiSFZ0YmlCM2FYUm9JRzVsZHlCbmNtOTFjQ0J2Y21SbGNpQmhjeUJoSUdaaFkzUnZjbHh1Y21WelJHbG1aa0ZDSUR3dElISmxjMFJwWm1aQlFpQjhQaUJ0ZFhSaGRHVW9WbUZ5YVdGaWJHVmZjM1Z0SUQwZ2MzVnRLRWx0Y0Nrc0lDNWllVDFXWVhKcFlXSnNaU2tnZkQ0Z1lYSnlZVzVuWlNoa1pYTmpLRlpoY21saFlteGxYM04xYlNrcElIdytJR2R5YjNWd1gySjVLRlpoY21saFlteGxYM04xYlN3Z1ZtRnlhV0ZpYkdVcElIdytYRzRnSUNCdGRYUmhkR1VvVDNKa1pYSWdQU0JqZFhKZlozSnZkWEJmYVdRb0tTa2dmRDRnYlhWMFlYUmxLRTl5WkdWeUlEMGdZWE11Wm1GamRHOXlLRTl5WkdWeUtTa2dmRDRnWVhKeVlXNW5aU2hrWlhOaktFOXlaR1Z5S1NsY2JseHVJeUJTWlc5eVpHVnlJRzkxZEdOdmJXVWdiR1YyWld4elhHNXlaWE5FYVdabVFVSWtUM1YwWTI5dFpTQThMU0JtWVdOMGIzSW9jbVZ6UkdsbVprRkNKRTkxZEdOdmJXVXNJR3hsZG1Wc2N6MWpLRnhjVFdWaGJpQmphR0Z1WjJVZ2FXNGdZVzV1YjNsaGJtTmxYRndzSUZ4Y0pVaEJJSHdnU0VFbklDaGhiV0l1S1Z4Y0tTbGNibHh1SXlCd2JHOTBJSEpsY3lCaGN5Qm9iM0pwZW05dWRHRnNJR0poY2lCamFHRnlkQ3dnZDJsMGFDQkpiWEFnWVhNZ2VTQmhlR2x6TENCV1lYSnBZV0pzWlNCaGN5QjRJR0Y0YVhNc0lFOTFkR052YldVZ1lYTWdabWxzYkN3Z1lXNWtJRlpoY21saFlteGxYM04xYlNCaGN5QnZjbVJsY2l3Z2NtVnNZV0psYkNCNElHRjRhWE1nZDJsMGFDQldZWEpwWVdKc1pTQnVZVzFsYzF4dWNFSmhjaUE4TFNCblozQnNiM1FvY21WelJHbG1aa0ZDS1NBcklHZGxiMjFmWTI5c0tHRmxjeWhtYVd4c1BVOTFkR052YldVc0lIazlTVzF3TENCNFBVOXlaR1Z5S1N3Z1kyOXNiM1Z5UFNkbmNtVjVNelVuTENCc2FXNWxkMmxrZEdnOU1Dd2dJSGRwWkhSb1BUQXVOelVzSUhOb2IzY3ViR1ZuWlc1a1BWUlNWVVVwSUNzZ2JHRmljeWg0UFZ4Y1ZtRnlhV0ZpYkdWY1hDd2dlVDFjWEU1dmNtMWhiR2x6WldRZ1kyOXVaR2wwYVc5dVlXd2dkbUZ5YVdGaWJHVWdjR1Z5YlhWMFlYUnBiMjRnYVcxd2IzSjBZVzVqWlZ4Y0tTQXJJSFJvWlcxbEtIUmxlSFFnUFNCbGJHVnRaVzUwWDNSbGVIUW9abUZ0YVd4NUlEMGdYRnh6WlhKcFpseGNLU3dnY0dGdVpXd3VaM0pwWkQxbGJHVnRaVzUwWDJ4cGJtVW9ZMjlzYjNJZ1BTQnlaMklvTWpNMUxDQXlNelVzSURJek5Td2dNVEF3TENCdFlYaERiMnh2Y2xaaGJIVmxJRDBnTWpVMUtTd2diR2x1WlhkcFpIUm9JRDBnTUM0eU5Td2diR2x1WlhSNWNHVWdQU0F5S1N3Z2JHVm5aVzVrTG5CdmMybDBhVzl1SUQwZ1hGeHlhV2RvZEZ4Y0tTQXJJR052YjNKa1gyWnNhWEFvZVd4cGJUMWpLQzB3TGpFc0lERXVNU2twSUNzZ2MyTmhiR1ZmWm1sc2JGOXRZVzUxWVd3b2RtRnNkV1Z6UFcxNVkyOXNiM1Z5Y3lrZ0t5QnpZMkZzWlY5NFgyUnBjMk55WlhSbEtHeGhZbVZzY3oxMWJtbHhkV1VvY21WMktISmxjMFJwWm1aQlFpUldZWEpwWVdKc1pTa3BLVnh1Y0VKaGNpQXJJSE5qWVd4bFgzbGZZMjl1ZEdsdWRXOTFjeWhpY21WaGEzTTljMlZ4S0RBc0lERXNJR0o1UFRBdU5Ta3BYRzVjYm1sbUlDaHpZWFpsY0d4dmRITXBlMXh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WEZ4UWRITkJRbU55WmtScFptWlRVVTF6VTNWdGJXRnllUzV6ZG1kY1hDd2dkMmxrZEdnOU9Dd2dhR1ZwWjJoMFBUTXNJSEJoZEdnOVptbHNaUzV3WVhSb0tHOTFkRVpwWjFCaGRHZ3NJRnhjYzNablhGd3BLVnh1SUNCMWJteHBibXNvWEZ4UWRITkJRbU55WmtScFptWlRVVTF6VTNWdGJXRnllUzV6ZG1kY1hDbGNiaUFnWEc0Z0lHZG5jMkYyWlNobWFXeGxibUZ0WlQxY1hGQjBjMEZDWTNKbVJHbG1abE5SVFhOVGRXMXRZWEo1TG5Ca1pseGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNeXdnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4d1pHWmNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWTNKbVJHbG1abE5SVFhOVGRXMXRZWEo1TG5Ca1pseGNLVnh1ZlZ4dVhHNWdZR0JjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbmBgYHJcbiMgY29tYmluZSB0aGUgYW5ub3lhbmNlIHBlcm0gaW1wb3J0YW5jZSByZXN1bHRzXG5cbiMgY29udmVydCBlYWNoIHJlc3VsdCB0byBhIHRpYmJsZSB3aXRoIHJvd25hbWVzIGFkZGVkIHRvIGEgY29sdW1uLCByZW5hbWluZyB0aGUgZGF0YSBjb2x1bW4gdG8gJ2RBbm5veScgZXRjLlxucmVzZEFubm95TW5EaWZmUGVybUltcFRibEFCIDwtIGFzLmRhdGEuZnJhbWUocmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZlNRTXMxL21heChyZXNkQW5ub3lNblBlcm1JbXBBQiREaWZmU1FNczEpKSB8PlxuICB0aWJibGU6OnJvd25hbWVzX3RvX2NvbHVtbih2YXI9J1ZhcmlhYmxlJylcbmNvbG5hbWVzKHJlc2RBbm5veU1uRGlmZlBlcm1JbXBUYmxBQilbMl0gPC0gXFxkQW5ub3lcXFxuXG5yZXNkSGlBbm5veURpZmZQZXJtSW1wVGJsQUIgPC0gYXMuZGF0YS5mcmFtZShyZXNkSGlBbm5veVBlcm1JbXBBQiREaWZmU1FNczEvbWF4KHJlc2RIaUFubm95UGVybUltcEFCJERpZmZTUU1zMSkpIHw+XG4gIHRpYmJsZTo6cm93bmFtZXNfdG9fY29sdW1uKHZhcj0nVmFyaWFibGUnKVxuY29sbmFtZXMocmVzZEhpQW5ub3lEaWZmUGVybUltcFRibEFCKVsyXSA8LSBcXGRIaUFubm95XFxcblxuIyBtZXJnZSB0aGUgZGF0YWZyYW1lc1xucmVzRGlmZlBlcm1JbXBUYmxBQiA8LSBsaXN0KHJlc2RBbm5veU1uRGlmZlBlcm1JbXBUYmxBQiwgcmVzZEhpQW5ub3lEaWZmUGVybUltcFRibEFCKSB8PlxuICBwdXJycjo6cmVkdWNlKG1lcmdlLCBieSA9IGMoJ1ZhcmlhYmxlJyksIGFsbCA9IFQpXG5cbiMgcmVuYW1lIHRoZSBjb2x1bW5zXG5jb2xuYW1lcyhyZXNEaWZmUGVybUltcFRibEFCKVsyOjNdIDwtIGMoXFxNZWFuIGNoYW5nZSBpbiBhbm5veWFuY2VcXCwgXFwlSEEgfCBIQScgKGFtYi4pXFwpXG5yZXNEaWZmUGVybUltcFRibEFCW2lzLm5hKHJlc0RpZmZQZXJtSW1wVGJsQUIpXSA8LSAwXG5cbnJlc0RpZmZBQiA8LSB0aWR5cjo6cGl2b3RfbG9uZ2VyKHJlc0RpZmZQZXJtSW1wVGJsQUIsIGNvbHM9LVZhcmlhYmxlLCBuYW1lc190bz1cXE91dGNvbWVcXCwgdmFsdWVzX3RvPVxcSW1wXFwpXG5cbiMgcmVvcmRlciByZXMgdGliYmxlLCBkZXNjZW5kaW5nIGJ5IHRoZSB2YXJpYWJsZSBJbXAgZ3JvdXBlZCBzdW0gYW5kIGNyZWF0ZSBjb2x1bW4gd2l0aCBuZXcgZ3JvdXAgb3JkZXIgYXMgYSBmYWN0b3JcbnJlc0RpZmZBQiA8LSByZXNEaWZmQUIgfD4gbXV0YXRlKFZhcmlhYmxlX3N1bSA9IHN1bShJbXApLCAuYnk9VmFyaWFibGUpIHw+IGFycmFuZ2UoZGVzYyhWYXJpYWJsZV9zdW0pKSB8PiBncm91cF9ieShWYXJpYWJsZV9zdW0sIFZhcmlhYmxlKSB8PlxuICAgbXV0YXRlKE9yZGVyID0gY3VyX2dyb3VwX2lkKCkpIHw+IG11dGF0ZShPcmRlciA9IGFzLmZhY3RvcihPcmRlcikpIHw+IGFycmFuZ2UoZGVzYyhPcmRlcikpXG5cbiMgUmVvcmRlciBvdXRjb21lIGxldmVsc1xucmVzRGlmZkFCJE91dGNvbWUgPC0gZmFjdG9yKHJlc0RpZmZBQiRPdXRjb21lLCBsZXZlbHM9YyhcXE1lYW4gY2hhbmdlIGluIGFubm95YW5jZVxcLCBcXCVIQSB8IEhBJyAoYW1iLilcXCkpXG5cbiMgcGxvdCByZXMgYXMgaG9yaXpvbnRhbCBiYXIgY2hhcnQsIHdpdGggSW1wIGFzIHkgYXhpcywgVmFyaWFibGUgYXMgeCBheGlzLCBPdXRjb21lIGFzIGZpbGwsIGFuZCBWYXJpYWJsZV9zdW0gYXMgb3JkZXIsIHJlbGFiZWwgeCBheGlzIHdpdGggVmFyaWFibGUgbmFtZXNcbnBCYXIgPC0gZ2dwbG90KHJlc0RpZmZBQikgKyBnZW9tX2NvbChhZXMoZmlsbD1PdXRjb21lLCB5PUltcCwgeD1PcmRlciksIGNvbG91cj0nZ3JleTM1JywgbGluZXdpZHRoPTAsICB3aWR0aD0wLjc1LCBzaG93LmxlZ2VuZD1UUlVFKSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxOb3JtYWxpc2VkIGNvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2VcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMiksIGxlZ2VuZC5wb3NpdGlvbiA9IFxccmlnaHRcXCkgKyBjb29yZF9mbGlwKHlsaW09YygtMC4xLCAxLjEpKSArIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcz1teWNvbG91cnMpICsgc2NhbGVfeF9kaXNjcmV0ZShsYWJlbHM9dW5pcXVlKHJldihyZXNEaWZmQUIkVmFyaWFibGUpKSlcbnBCYXIgKyBzY2FsZV95X2NvbnRpbnVvdXMoYnJlYWtzPXNlcSgwLCAxLCBieT0wLjUpKVxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJjcmZEaWZmU1FNc1N1bW1hcnkuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0zLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJjcmZEaWZmU1FNc1N1bW1hcnkuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmNyZkRpZmZTUU1zU3VtbWFyeS5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTMsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmNyZkRpZmZTUU1zU3VtbWFyeS5wZGZcXClcbn1cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBjb21iaW5lIHRoZSBhbm5veWFuY2UgcGVybSBpbXBvcnRhbmNlIHJlc3VsdHNcblxuIyBjb252ZXJ0IGVhY2ggcmVzdWx0IHRvIGEgdGliYmxlIHdpdGggcm93bmFtZXMgYWRkZWQgdG8gYSBjb2x1bW4sIHJlbmFtaW5nIHRoZSBkYXRhIGNvbHVtbiB0byAnZEFubm95JyBldGMuXG5yZXNkQW5ub3lNbkRpZmZQZXJtSW1wVGJsQUIgPC0gYXMuZGF0YS5mcmFtZShyZXNkQW5ub3lNblBlcm1JbXBBQiREaWZmU1FNczEvbWF4KHJlc2RBbm5veU1uUGVybUltcEFCJERpZmZTUU1zMSkpIHw+XG4gIHRpYmJsZTo6cm93bmFtZXNfdG9fY29sdW1uKHZhcj0nVmFyaWFibGUnKVxuY29sbmFtZXMocmVzZEFubm95TW5EaWZmUGVybUltcFRibEFCKVsyXSA8LSBcXGRBbm5veVxcXG5cbnJlc2RIaUFubm95RGlmZlBlcm1JbXBUYmxBQiA8LSBhcy5kYXRhLmZyYW1lKHJlc2RIaUFubm95UGVybUltcEFCJERpZmZTUU1zMS9tYXgocmVzZEhpQW5ub3lQZXJtSW1wQUIkRGlmZlNRTXMxKSkgfD5cbiAgdGliYmxlOjpyb3duYW1lc190b19jb2x1bW4odmFyPSdWYXJpYWJsZScpXG5jb2xuYW1lcyhyZXNkSGlBbm5veURpZmZQZXJtSW1wVGJsQUIpWzJdIDwtIFxcZEhpQW5ub3lcXFxuXG4jIG1lcmdlIHRoZSBkYXRhZnJhbWVzXG5yZXNEaWZmUGVybUltcFRibEFCIDwtIGxpc3QocmVzZEFubm95TW5EaWZmUGVybUltcFRibEFCLCByZXNkSGlBbm5veURpZmZQZXJtSW1wVGJsQUIpIHw+XG4gIHB1cnJyOjpyZWR1Y2UobWVyZ2UsIGJ5ID0gYygnVmFyaWFibGUnKSwgYWxsID0gVClcblxuIyByZW5hbWUgdGhlIGNvbHVtbnNcbmNvbG5hbWVzKHJlc0RpZmZQZXJtSW1wVGJsQUIpWzI6M10gPC0gYyhcXE1lYW4gY2hhbmdlIGluIGFubm95YW5jZVxcLCBcXCVIQSB8IEhBJyAoYW1iLilcXClcbnJlc0RpZmZQZXJtSW1wVGJsQUJbaXMubmEocmVzRGlmZlBlcm1JbXBUYmxBQildIDwtIDBcblxucmVzRGlmZkFCIDwtIHRpZHlyOjpwaXZvdF9sb25nZXIocmVzRGlmZlBlcm1JbXBUYmxBQiwgY29scz0tVmFyaWFibGUsIG5hbWVzX3RvPVxcT3V0Y29tZVxcLCB2YWx1ZXNfdG89XFxJbXBcXClcblxuIyByZW9yZGVyIHJlcyB0aWJibGUsIGRlc2NlbmRpbmcgYnkgdGhlIHZhcmlhYmxlIEltcCBncm91cGVkIHN1bSBhbmQgY3JlYXRlIGNvbHVtbiB3aXRoIG5ldyBncm91cCBvcmRlciBhcyBhIGZhY3RvclxucmVzRGlmZkFCIDwtIHJlc0RpZmZBQiB8PiBtdXRhdGUoVmFyaWFibGVfc3VtID0gc3VtKEltcCksIC5ieT1WYXJpYWJsZSkgfD4gYXJyYW5nZShkZXNjKFZhcmlhYmxlX3N1bSkpIHw+IGdyb3VwX2J5KFZhcmlhYmxlX3N1bSwgVmFyaWFibGUpIHw+XG4gICBtdXRhdGUoT3JkZXIgPSBjdXJfZ3JvdXBfaWQoKSkgfD4gbXV0YXRlKE9yZGVyID0gYXMuZmFjdG9yKE9yZGVyKSkgfD4gYXJyYW5nZShkZXNjKE9yZGVyKSlcblxuIyBSZW9yZGVyIG91dGNvbWUgbGV2ZWxzXG5yZXNEaWZmQUIkT3V0Y29tZSA8LSBmYWN0b3IocmVzRGlmZkFCJE91dGNvbWUsIGxldmVscz1jKFxcTWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlXFwsIFxcJUhBIHwgSEEnIChhbWIuKVxcKSlcblxuIyBwbG90IHJlcyBhcyBob3Jpem9udGFsIGJhciBjaGFydCwgd2l0aCBJbXAgYXMgeSBheGlzLCBWYXJpYWJsZSBhcyB4IGF4aXMsIE91dGNvbWUgYXMgZmlsbCwgYW5kIFZhcmlhYmxlX3N1bSBhcyBvcmRlciwgcmVsYWJlbCB4IGF4aXMgd2l0aCBWYXJpYWJsZSBuYW1lc1xucEJhciA8LSBnZ3Bsb3QocmVzRGlmZkFCKSArIGdlb21fY29sKGFlcyhmaWxsPU91dGNvbWUsIHk9SW1wLCB4PU9yZGVyKSwgY29sb3VyPSdncmV5MzUnLCBsaW5ld2lkdGg9MCwgIHdpZHRoPTAuNzUsIHNob3cubGVnZW5kPVRSVUUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXE5vcm1hbGlzZWQgY29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSwgbGVnZW5kLnBvc2l0aW9uID0gXFxyaWdodFxcKSArIGNvb3JkX2ZsaXAoeWxpbT1jKC0wLjEsIDEuMSkpICsgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzPW15Y29sb3VycykgKyBzY2FsZV94X2Rpc2NyZXRlKGxhYmVscz11bmlxdWUocmV2KHJlc0RpZmZBQiRWYXJpYWJsZSkpKVxucEJhciArIHNjYWxlX3lfY29udGludW91cyhicmVha3M9c2VxKDAsIDEsIGJ5PTAuNSkpXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmNyZkRpZmZTUU1zU3VtbWFyeS5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTMsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmNyZkRpZmZTUU1zU3VtbWFyeS5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCY3JmRGlmZlNRTXNTdW1tYXJ5LnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MywgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCY3JmRGlmZlNRTXNTdW1tYXJ5LnBkZlxcKVxufVxuXG5gYGBcbmBgYCJ9 -->
```r
```r
# combine the annoyance perm importance results
# convert each result to a tibble with rownames added to a column, renaming the data column to 'dAnnoy' etc.
resdAnnoyMnDiffPermImpTblAB <- as.data.frame(resdAnnoyMnPermImpAB$DiffSQMs1/max(resdAnnoyMnPermImpAB$DiffSQMs1)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdAnnoyMnDiffPermImpTblAB)[2] <- \dAnnoy\
resdHiAnnoyDiffPermImpTblAB <- as.data.frame(resdHiAnnoyPermImpAB$DiffSQMs1/max(resdHiAnnoyPermImpAB$DiffSQMs1)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdHiAnnoyDiffPermImpTblAB)[2] <- \dHiAnnoy\
# merge the dataframes
resDiffPermImpTblAB <- list(resdAnnoyMnDiffPermImpTblAB, resdHiAnnoyDiffPermImpTblAB) |>
purrr::reduce(merge, by = c('Variable'), all = T)
# rename the columns
colnames(resDiffPermImpTblAB)[2:3] <- c(\Mean change in annoyance\, \%HA | HA' (amb.)\)
resDiffPermImpTblAB[is.na(resDiffPermImpTblAB)] <- 0
resDiffAB <- tidyr::pivot_longer(resDiffPermImpTblAB, cols=-Variable, names_to=\Outcome\, values_to=\Imp\)
# reorder res tibble, descending by the variable Imp grouped sum and create column with new group order as a factor
resDiffAB <- resDiffAB |> mutate(Variable_sum = sum(Imp), .by=Variable) |> arrange(desc(Variable_sum)) |> group_by(Variable_sum, Variable) |>
mutate(Order = cur_group_id()) |> mutate(Order = as.factor(Order)) |> arrange(desc(Order))
# Reorder outcome levels
resDiffAB$Outcome <- factor(resDiffAB$Outcome, levels=c(\Mean change in annoyance\, \%HA | HA' (amb.)\))
# plot res as horizontal bar chart, with Imp as y axis, Variable as x axis, Outcome as fill, and Variable_sum as order, relabel x axis with Variable names
pBar <- ggplot(resDiffAB) + geom_col(aes(fill=Outcome, y=Imp, x=Order), colour='grey35', linewidth=0, width=0.75, show.legend=TRUE) + labs(x=\Variable\, y=\Normalised conditional variable permutation importance\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2), legend.position = \right\) + coord_flip(ylim=c(-0.1, 1.1)) + scale_fill_manual(values=mycolours) + scale_x_discrete(labels=unique(rev(resDiffAB$Variable)))
pBar + scale_y_continuous(breaks=seq(0, 1, by=0.5))
if (saveplots){
ggsave(filename=\PtsABcrfDiffSQMsSummary.svg\, width=8, height=3, path=file.path(outFigPath, \svg\))
unlink(\PtsABcrfDiffSQMsSummary.svg\)
ggsave(filename=\PtsABcrfDiffSQMsSummary.pdf\, width=8, height=3, path=file.path(outFigPath, \pdf\))
unlink(\PtsABcrfDiffSQMsSummary.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
### No tonal loudness
#### Absolute variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJqYjIxaWFXNWxJSFJvWlNCaGJtNXZlV0Z1WTJVZ2NHVnliU0JwYlhCdmNuUmhibU5sSUhKbGMzVnNkSE5jYmx4dUl5QmpiMjUyWlhKMElHVmhZMmdnY21WemRXeDBJSFJ2SUdFZ2RHbGlZbXhsSUhkcGRHZ2djbTkzYm1GdFpYTWdZV1JrWldRZ2RHOGdZU0JqYjJ4MWJXNHNJSEpsYm1GdGFXNW5JSFJvWlNCa1lYUmhJR052YkhWdGJpQjBieUFuWkVGdWJtOTVKeUJsZEdNdVhHNXlaWE5rUVc1dWIzbE5ia0ZpYzFCbGNtMUpiWEJPYjFSdmJreGtWR0pzUVVJZ1BDMGdZWE11WkdGMFlTNW1jbUZ0WlNoeVpYTmtRVzV1YjNsTmJsQmxjbTFKYlhCQlFpUkJZbk5UVVUxek1pOXRZWGdvY21WelpFRnVibTk1VFc1UVpYSnRTVzF3UVVJa1FXSnpVMUZOY3pJcEtTQjhQbHh1SUNCMGFXSmliR1U2T25KdmQyNWhiV1Z6WDNSdlgyTnZiSFZ0YmloMllYSTlKMVpoY21saFlteGxKeWxjYm1OdmJHNWhiV1Z6S0hKbGMyUkJibTV2ZVUxdVFXSnpVR1Z5YlVsdGNFNXZWRzl1VEdSVVlteEJRaWxiTWwwZ1BDMGdYQ0prUVc1dWIzbGNJbHh1WEc1eVpYTmtTR2xCYm01dmVVRmljMUJsY20xSmJYQk9iMVJ2Ymt4a1ZHSnNRVUlnUEMwZ1lYTXVaR0YwWVM1bWNtRnRaU2h5WlhOa1NHbEJibTV2ZVZCbGNtMUpiWEJCUWlSQlluTlRVVTF6TWk5dFlYZ29jbVZ6WkVocFFXNXViM2xRWlhKdFNXMXdRVUlrUVdKelUxRk5jeklwS1NCOFBseHVJQ0IwYVdKaWJHVTZPbkp2ZDI1aGJXVnpYM1J2WDJOdmJIVnRiaWgyWVhJOUoxWmhjbWxoWW14bEp5bGNibU52Ykc1aGJXVnpLSEpsYzJSSWFVRnVibTk1UVdKelVHVnliVWx0Y0U1dlZHOXVUR1JVWW14QlFpbGJNbDBnUEMwZ1hDSmtTR2xCYm01dmVWd2lYRzVjYmlNZ2JXVnlaMlVnZEdobElHUmhkR0ZtY21GdFpYTmNibkpsYzBGaWMxQmxjbTFKYlhCT2IxUnZia3hrVkdKc1FVSWdQQzBnYkdsemRDaHlaWE5rUVc1dWIzbE5ia0ZpYzFCbGNtMUpiWEJPYjFSdmJreGtWR0pzUVVJc0lISmxjMlJJYVVGdWJtOTVRV0p6VUdWeWJVbHRjRTV2Vkc5dVRHUlVZbXhCUWlrZ2ZENWNiaUFnY0hWeWNuSTZPbkpsWkhWalpTaHRaWEpuWlN3Z1lua2dQU0JqS0NkV1lYSnBZV0pzWlNjcExDQmhiR3dnUFNCVUtWeHVYRzRqSUhKbGJtRnRaU0IwYUdVZ1kyOXNkVzF1YzF4dVkyOXNibUZ0WlhNb2NtVnpRV0p6VUdWeWJVbHRjRTV2Vkc5dVRHUlVZbXhCUWlsYk1qb3pYU0E4TFNCaktGd2lUV1ZoYmlCamFHRnVaMlVnYVc0Z1lXNXViM2xoYm1ObFhDSXNJRndpSlVoQklId2dTRUVuSUNoaGJXSXVLVndpS1Z4dWNtVnpRV0p6VUdWeWJVbHRjRTV2Vkc5dVRHUlVZbXhCUWx0cGN5NXVZU2h5WlhOQlluTlFaWEp0U1cxd1RtOVViMjVNWkZSaWJFRkNLVjBnUEMwZ01GeHVYRzV5WlhOQlluTk9iMVJ2Ymt4a1FVSWdQQzBnZEdsa2VYSTZPbkJwZG05MFgyeHZibWRsY2loeVpYTkJZbk5RWlhKdFNXMXdUbTlVYjI1TVpGUmliRUZDTENCamIyeHpQUzFXWVhKcFlXSnNaU3dnYm1GdFpYTmZkRzg5WENKUGRYUmpiMjFsWENJc0lIWmhiSFZsYzE5MGJ6MWNJa2x0Y0Z3aUtWeHVYRzRqSUhKbGIzSmtaWElnY21WeklIUnBZbUpzWlN3Z1pHVnpZMlZ1WkdsdVp5QmllU0IwYUdVZ2RtRnlhV0ZpYkdVZ1NXMXdJR2R5YjNWd1pXUWdjM1Z0SUdGdVpDQmpjbVZoZEdVZ1kyOXNkVzF1SUhkcGRHZ2dibVYzSUdkeWIzVndJRzl5WkdWeUlHRnpJR0VnWm1GamRHOXlYRzV5WlhOQlluTk9iMVJ2Ymt4a1FVSWdQQzBnY21WelFXSnpUbTlVYjI1TVpFRkNJSHcrSUcxMWRHRjBaU2hXWVhKcFlXSnNaVjl6ZFcwZ1BTQnpkVzBvU1cxd0tTd2dMbUo1UFZaaGNtbGhZbXhsS1NCOFBpQmhjbkpoYm1kbEtHUmxjMk1vVm1GeWFXRmliR1ZmYzNWdEtTa2dmRDRnWjNKdmRYQmZZbmtvVm1GeWFXRmliR1ZmYzNWdExDQldZWEpwWVdKc1pTa2dmRDVjYmlBZ0lHMTFkR0YwWlNoUGNtUmxjaUE5SUdOMWNsOW5jbTkxY0Y5cFpDZ3BLU0I4UGlCdGRYUmhkR1VvVDNKa1pYSWdQU0JoY3k1bVlXTjBiM0lvVDNKa1pYSXBLU0I4UGlCaGNuSmhibWRsS0dSbGMyTW9UM0prWlhJcEtWeHVYRzRqSUZKbGIzSmtaWElnYjNWMFkyOXRaU0JzWlhabGJITmNibkpsYzBGaWMwNXZWRzl1VEdSQlFpUlBkWFJqYjIxbElEd3RJR1poWTNSdmNpaHlaWE5CWW5OT2IxUnZia3hrUVVJa1QzVjBZMjl0WlN3Z2JHVjJaV3h6UFdNb1hDSk5aV0Z1SUdOb1lXNW5aU0JwYmlCaGJtNXZlV0Z1WTJWY0lpd2dYQ0lsU0VFZ2ZDQklRU2NnS0dGdFlpNHBYQ0lwS1Z4dVhHNGpJSEJzYjNRZ2NtVnpJR0Z6SUdodmNtbDZiMjUwWVd3Z1ltRnlJR05vWVhKMExDQjNhWFJvSUVsdGNDQmhjeUI1SUdGNGFYTXNJRlpoY21saFlteGxJR0Z6SUhnZ1lYaHBjeXdnVDNWMFkyOXRaU0JoY3lCbWFXeHNMQ0JoYm1RZ1ZtRnlhV0ZpYkdWZmMzVnRJR0Z6SUc5eVpHVnlMQ0J5Wld4aFltVnNJSGdnWVhocGN5QjNhWFJvSUZaaGNtbGhZbXhsSUc1aGJXVnpYRzV3UW1GeUlEd3RJR2RuY0d4dmRDaHlaWE5CWW5OT2IxUnZia3hrUVVJcElDc2daMlZ2YlY5amIyd29ZV1Z6S0dacGJHdzlUM1YwWTI5dFpTd2dlVDFKYlhBc0lIZzlUM0prWlhJcExDQmpiMnh2ZFhJOUoyZHlaWGt6TlNjc0lHeHBibVYzYVdSMGFEMHdMQ0FnZDJsa2RHZzlNQzQzTlN3Z2MyaHZkeTVzWldkbGJtUTlWRkpWUlNrZ0t5QnNZV0p6S0hnOVhDSldZWEpwWVdKc1pWd2lMQ0I1UFZ3aVRtOXliV0ZzYVhObFpDQmpiMjVrYVhScGIyNWhiQ0IyWVhKcFlXSnNaU0J3WlhKdGRYUmhkR2x2YmlCcGJYQnZjblJoYm1ObFhDSXBJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjSW5ObGNtbG1YQ0lwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcExDQnNaV2RsYm1RdWNHOXphWFJwYjI0Z1BTQmNJbkpwWjJoMFhDSXBJQ3NnWTI5dmNtUmZabXhwY0NoNWJHbHRQV01vTFRBdU1Td2dNUzR4S1NrZ0t5QnpZMkZzWlY5bWFXeHNYMjFoYm5WaGJDaDJZV3gxWlhNOWJYbGpiMnh2ZFhKektTQXJJSE5qWVd4bFgzaGZaR2x6WTNKbGRHVW9iR0ZpWld4elBYVnVhWEYxWlNoeVpYWW9jbVZ6UVdKelRtOVViMjVNWkVGQ0pGWmhjbWxoWW14bEtTa3BYRzV3UW1GeUlDc2djMk5oYkdWZmVWOWpiMjUwYVc1MWIzVnpLR0p5WldGcmN6MXpaWEVvTUN3Z01Td2dZbms5TUM0MUtTbGNibHh1YVdZZ0tITmhkbVZ3Ykc5MGN5bDdYRzRnSUdkbmMyRjJaU2htYVd4bGJtRnRaVDFjSWxCMGMwRkNZM0ptUVdKelUxRk5jMDV2Vkc5dVRHUlRkVzF0WVhKNUxuTjJaMXdpTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TXl3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hDSnpkbWRjSWlrcFhHNGdJSFZ1YkdsdWF5aGNJbEIwYzBGQ1kzSm1RV0p6VTFGTmMwNXZWRzl1VEdSVGRXMXRZWEo1TG5OMloxd2lLVnh1SUNCY2JpQWdaMmR6WVhabEtHWnBiR1Z1WVcxbFBWd2lVSFJ6UVVKamNtWkJZbk5UVVUxelRtOVViMjVNWkZOMWJXMWhjbmt1Y0dSbVhDSXNJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHpMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjSW5Ca1psd2lLU2xjYmlBZ2RXNXNhVzVyS0Z3aVVIUnpRVUpqY21aQlluTlRVVTF6VG05VWIyNU1aRk4xYlcxaGNua3VjR1JtWENJcFhHNTlYRzVjYm1CZ1lDSjkgLS0+XG5cbmBgYHJcbiMgY29tYmluZSB0aGUgYW5ub3lhbmNlIHBlcm0gaW1wb3J0YW5jZSByZXN1bHRzXG5cbiMgY29udmVydCBlYWNoIHJlc3VsdCB0byBhIHRpYmJsZSB3aXRoIHJvd25hbWVzIGFkZGVkIHRvIGEgY29sdW1uLCByZW5hbWluZyB0aGUgZGF0YSBjb2x1bW4gdG8gJ2RBbm5veScgZXRjLlxucmVzZEFubm95TW5BYnNQZXJtSW1wTm9Ub25MZFRibEFCIDwtIGFzLmRhdGEuZnJhbWUocmVzZEFubm95TW5QZXJtSW1wQUIkQWJzU1FNczIvbWF4KHJlc2RBbm5veU1uUGVybUltcEFCJEFic1NRTXMyKSkgfD5cbiAgdGliYmxlOjpyb3duYW1lc190b19jb2x1bW4odmFyPSdWYXJpYWJsZScpXG5jb2xuYW1lcyhyZXNkQW5ub3lNbkFic1Blcm1JbXBOb1RvbkxkVGJsQUIpWzJdIDwtIFxcZEFubm95XFxcblxucmVzZEhpQW5ub3lBYnNQZXJtSW1wTm9Ub25MZFRibEFCIDwtIGFzLmRhdGEuZnJhbWUocmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzU1FNczIvbWF4KHJlc2RIaUFubm95UGVybUltcEFCJEFic1NRTXMyKSkgfD5cbiAgdGliYmxlOjpyb3duYW1lc190b19jb2x1bW4odmFyPSdWYXJpYWJsZScpXG5jb2xuYW1lcyhyZXNkSGlBbm5veUFic1Blcm1JbXBOb1RvbkxkVGJsQUIpWzJdIDwtIFxcZEhpQW5ub3lcXFxuXG4jIG1lcmdlIHRoZSBkYXRhZnJhbWVzXG5yZXNBYnNQZXJtSW1wTm9Ub25MZFRibEFCIDwtIGxpc3QocmVzZEFubm95TW5BYnNQZXJtSW1wTm9Ub25MZFRibEFCLCByZXNkSGlBbm5veUFic1Blcm1JbXBOb1RvbkxkVGJsQUIpIHw+XG4gIHB1cnJyOjpyZWR1Y2UobWVyZ2UsIGJ5ID0gYygnVmFyaWFibGUnKSwgYWxsID0gVClcblxuIyByZW5hbWUgdGhlIGNvbHVtbnNcbmNvbG5hbWVzKHJlc0Fic1Blcm1JbXBOb1RvbkxkVGJsQUIpWzI6M10gPC0gYyhcXE1lYW4gY2hhbmdlIGluIGFubm95YW5jZVxcLCBcXCVIQSB8IEhBJyAoYW1iLilcXClcbnJlc0Fic1Blcm1JbXBOb1RvbkxkVGJsQUJbaXMubmEocmVzQWJzUGVybUltcE5vVG9uTGRUYmxBQildIDwtIDBcblxucmVzQWJzTm9Ub25MZEFCIDwtIHRpZHlyOjpwaXZvdF9sb25nZXIocmVzQWJzUGVybUltcE5vVG9uTGRUYmxBQiwgY29scz0tVmFyaWFibGUsIG5hbWVzX3RvPVxcT3V0Y29tZVxcLCB2YWx1ZXNfdG89XFxJbXBcXClcblxuIyByZW9yZGVyIHJlcyB0aWJibGUsIGRlc2NlbmRpbmcgYnkgdGhlIHZhcmlhYmxlIEltcCBncm91cGVkIHN1bSBhbmQgY3JlYXRlIGNvbHVtbiB3aXRoIG5ldyBncm91cCBvcmRlciBhcyBhIGZhY3RvclxucmVzQWJzTm9Ub25MZEFCIDwtIHJlc0Fic05vVG9uTGRBQiB8PiBtdXRhdGUoVmFyaWFibGVfc3VtID0gc3VtKEltcCksIC5ieT1WYXJpYWJsZSkgfD4gYXJyYW5nZShkZXNjKFZhcmlhYmxlX3N1bSkpIHw+IGdyb3VwX2J5KFZhcmlhYmxlX3N1bSwgVmFyaWFibGUpIHw+XG4gICBtdXRhdGUoT3JkZXIgPSBjdXJfZ3JvdXBfaWQoKSkgfD4gbXV0YXRlKE9yZGVyID0gYXMuZmFjdG9yKE9yZGVyKSkgfD4gYXJyYW5nZShkZXNjKE9yZGVyKSlcblxuIyBSZW9yZGVyIG91dGNvbWUgbGV2ZWxzXG5yZXNBYnNOb1RvbkxkQUIkT3V0Y29tZSA8LSBmYWN0b3IocmVzQWJzTm9Ub25MZEFCJE91dGNvbWUsIGxldmVscz1jKFxcTWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlXFwsIFxcJUhBIHwgSEEnIChhbWIuKVxcKSlcblxuIyBwbG90IHJlcyBhcyBob3Jpem9udGFsIGJhciBjaGFydCwgd2l0aCBJbXAgYXMgeSBheGlzLCBWYXJpYWJsZSBhcyB4IGF4aXMsIE91dGNvbWUgYXMgZmlsbCwgYW5kIFZhcmlhYmxlX3N1bSBhcyBvcmRlciwgcmVsYWJlbCB4IGF4aXMgd2l0aCBWYXJpYWJsZSBuYW1lc1xucEJhciA8LSBnZ3Bsb3QocmVzQWJzTm9Ub25MZEFCKSArIGdlb21fY29sKGFlcyhmaWxsPU91dGNvbWUsIHk9SW1wLCB4PU9yZGVyKSwgY29sb3VyPSdncmV5MzUnLCBsaW5ld2lkdGg9MCwgIHdpZHRoPTAuNzUsIHNob3cubGVnZW5kPVRSVUUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXE5vcm1hbGlzZWQgY29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSwgbGVnZW5kLnBvc2l0aW9uID0gXFxyaWdodFxcKSArIGNvb3JkX2ZsaXAoeWxpbT1jKC0wLjEsIDEuMSkpICsgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzPW15Y29sb3VycykgKyBzY2FsZV94X2Rpc2NyZXRlKGxhYmVscz11bmlxdWUocmV2KHJlc0Fic05vVG9uTGRBQiRWYXJpYWJsZSkpKVxucEJhciArIHNjYWxlX3lfY29udGludW91cyhicmVha3M9c2VxKDAsIDEsIGJ5PTAuNSkpXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmNyZkFic1NRTXNOb1RvbkxkU3VtbWFyeS5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTMsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmNyZkFic1NRTXNOb1RvbkxkU3VtbWFyeS5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCY3JmQWJzU1FNc05vVG9uTGRTdW1tYXJ5LnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MywgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCY3JmQWJzU1FNc05vVG9uTGRTdW1tYXJ5LnBkZlxcKVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# combine the annoyance perm importance results
# convert each result to a tibble with rownames added to a column, renaming the data column to 'dAnnoy' etc.
resdAnnoyMnAbsPermImpNoTonLdTblAB <- as.data.frame(resdAnnoyMnPermImpAB$AbsSQMs2/max(resdAnnoyMnPermImpAB$AbsSQMs2)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdAnnoyMnAbsPermImpNoTonLdTblAB)[2] <- \dAnnoy\
resdHiAnnoyAbsPermImpNoTonLdTblAB <- as.data.frame(resdHiAnnoyPermImpAB$AbsSQMs2/max(resdHiAnnoyPermImpAB$AbsSQMs2)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdHiAnnoyAbsPermImpNoTonLdTblAB)[2] <- \dHiAnnoy\
# merge the dataframes
resAbsPermImpNoTonLdTblAB <- list(resdAnnoyMnAbsPermImpNoTonLdTblAB, resdHiAnnoyAbsPermImpNoTonLdTblAB) |>
purrr::reduce(merge, by = c('Variable'), all = T)
# rename the columns
colnames(resAbsPermImpNoTonLdTblAB)[2:3] <- c(\Mean change in annoyance\, \%HA | HA' (amb.)\)
resAbsPermImpNoTonLdTblAB[is.na(resAbsPermImpNoTonLdTblAB)] <- 0
resAbsNoTonLdAB <- tidyr::pivot_longer(resAbsPermImpNoTonLdTblAB, cols=-Variable, names_to=\Outcome\, values_to=\Imp\)
# reorder res tibble, descending by the variable Imp grouped sum and create column with new group order as a factor
resAbsNoTonLdAB <- resAbsNoTonLdAB |> mutate(Variable_sum = sum(Imp), .by=Variable) |> arrange(desc(Variable_sum)) |> group_by(Variable_sum, Variable) |>
mutate(Order = cur_group_id()) |> mutate(Order = as.factor(Order)) |> arrange(desc(Order))
# Reorder outcome levels
resAbsNoTonLdAB$Outcome <- factor(resAbsNoTonLdAB$Outcome, levels=c(\Mean change in annoyance\, \%HA | HA' (amb.)\))
# plot res as horizontal bar chart, with Imp as y axis, Variable as x axis, Outcome as fill, and Variable_sum as order, relabel x axis with Variable names
pBar <- ggplot(resAbsNoTonLdAB) + geom_col(aes(fill=Outcome, y=Imp, x=Order), colour='grey35', linewidth=0, width=0.75, show.legend=TRUE) + labs(x=\Variable\, y=\Normalised conditional variable permutation importance\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2), legend.position = \right\) + coord_flip(ylim=c(-0.1, 1.1)) + scale_fill_manual(values=mycolours) + scale_x_discrete(labels=unique(rev(resAbsNoTonLdAB$Variable)))
pBar + scale_y_continuous(breaks=seq(0, 1, by=0.5))
if (saveplots){
ggsave(filename=\PtsABcrfAbsSQMsNoTonLdSummary.svg\, width=8, height=3, path=file.path(outFigPath, \svg\))
unlink(\PtsABcrfAbsSQMsNoTonLdSummary.svg\)
ggsave(filename=\PtsABcrfAbsSQMsNoTonLdSummary.pdf\, width=8, height=3, path=file.path(outFigPath, \pdf\))
unlink(\PtsABcrfAbsSQMsNoTonLdSummary.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QmpiMjFpYVc1bElIUm9aU0JoYm01dmVXRnVZMlVnY0dWeWJTQnBiWEJ2Y25SaGJtTmxJSEpsYzNWc2RITmNibHh1SXlCamIyNTJaWEowSUdWaFkyZ2djbVZ6ZFd4MElIUnZJR0VnZEdsaVlteGxJSGRwZEdnZ2NtOTNibUZ0WlhNZ1lXUmtaV1FnZEc4Z1lTQmpiMngxYlc0c0lISmxibUZ0YVc1bklIUm9aU0JrWVhSaElHTnZiSFZ0YmlCMGJ5QW5aRUZ1Ym05NUp5QmxkR011WEc1eVpYTmtRVzV1YjNsTmJrRmljMUJsY20xSmJYQk9iMVJ2Ymt4a1ZHSnNRVUlnUEMwZ1lYTXVaR0YwWVM1bWNtRnRaU2h5WlhOa1FXNXViM2xOYmxCbGNtMUpiWEJCUWlSQlluTlRVVTF6TWk5dFlYZ29jbVZ6WkVGdWJtOTVUVzVRWlhKdFNXMXdRVUlrUVdKelUxRk5jeklwS1NCOFBseHVJQ0IwYVdKaWJHVTZPbkp2ZDI1aGJXVnpYM1J2WDJOdmJIVnRiaWgyWVhJOUoxWmhjbWxoWW14bEp5bGNibU52Ykc1aGJXVnpLSEpsYzJSQmJtNXZlVTF1UVdKelVHVnliVWx0Y0U1dlZHOXVUR1JVWW14QlFpbGJNbDBnUEMwZ1hGeGtRVzV1YjNsY1hGeHVYRzV5WlhOa1NHbEJibTV2ZVVGaWMxQmxjbTFKYlhCT2IxUnZia3hrVkdKc1FVSWdQQzBnWVhNdVpHRjBZUzVtY21GdFpTaHlaWE5rU0dsQmJtNXZlVkJsY20xSmJYQkJRaVJCWW5OVFVVMXpNaTl0WVhnb2NtVnpaRWhwUVc1dWIzbFFaWEp0U1cxd1FVSWtRV0p6VTFGTmN6SXBLU0I4UGx4dUlDQjBhV0ppYkdVNk9uSnZkMjVoYldWelgzUnZYMk52YkhWdGJpaDJZWEk5SjFaaGNtbGhZbXhsSnlsY2JtTnZiRzVoYldWektISmxjMlJJYVVGdWJtOTVRV0p6VUdWeWJVbHRjRTV2Vkc5dVRHUlVZbXhCUWlsYk1sMGdQQzBnWEZ4a1NHbEJibTV2ZVZ4Y1hHNWNiaU1nYldWeVoyVWdkR2hsSUdSaGRHRm1jbUZ0WlhOY2JuSmxjMEZpYzFCbGNtMUpiWEJPYjFSdmJreGtWR0pzUVVJZ1BDMGdiR2x6ZENoeVpYTmtRVzV1YjNsTmJrRmljMUJsY20xSmJYQk9iMVJ2Ymt4a1ZHSnNRVUlzSUhKbGMyUklhVUZ1Ym05NVFXSnpVR1Z5YlVsdGNFNXZWRzl1VEdSVVlteEJRaWtnZkQ1Y2JpQWdjSFZ5Y25JNk9uSmxaSFZqWlNodFpYSm5aU3dnWW5rZ1BTQmpLQ2RXWVhKcFlXSnNaU2NwTENCaGJHd2dQU0JVS1Z4dVhHNGpJSEpsYm1GdFpTQjBhR1VnWTI5c2RXMXVjMXh1WTI5c2JtRnRaWE1vY21WelFXSnpVR1Z5YlVsdGNFNXZWRzl1VEdSVVlteEJRaWxiTWpvelhTQThMU0JqS0Z4Y1RXVmhiaUJqYUdGdVoyVWdhVzRnWVc1dWIzbGhibU5sWEZ3c0lGeGNKVWhCSUh3Z1NFRW5JQ2hoYldJdUtWeGNLVnh1Y21WelFXSnpVR1Z5YlVsdGNFNXZWRzl1VEdSVVlteEJRbHRwY3k1dVlTaHlaWE5CWW5OUVpYSnRTVzF3VG05VWIyNU1aRlJpYkVGQ0tWMGdQQzBnTUZ4dVhHNXlaWE5CWW5OT2IxUnZia3hrUVVJZ1BDMGdkR2xrZVhJNk9uQnBkbTkwWDJ4dmJtZGxjaWh5WlhOQlluTlFaWEp0U1cxd1RtOVViMjVNWkZSaWJFRkNMQ0JqYjJ4elBTMVdZWEpwWVdKc1pTd2dibUZ0WlhOZmRHODlYRnhQZFhSamIyMWxYRndzSUhaaGJIVmxjMTkwYnoxY1hFbHRjRnhjS1Z4dVhHNGpJSEpsYjNKa1pYSWdjbVZ6SUhScFltSnNaU3dnWkdWelkyVnVaR2x1WnlCaWVTQjBhR1VnZG1GeWFXRmliR1VnU1cxd0lHZHliM1Z3WldRZ2MzVnRJR0Z1WkNCamNtVmhkR1VnWTI5c2RXMXVJSGRwZEdnZ2JtVjNJR2R5YjNWd0lHOXlaR1Z5SUdGeklHRWdabUZqZEc5eVhHNXlaWE5CWW5OT2IxUnZia3hrUVVJZ1BDMGdjbVZ6UVdKelRtOVViMjVNWkVGQ0lIdytJRzExZEdGMFpTaFdZWEpwWVdKc1pWOXpkVzBnUFNCemRXMG9TVzF3S1N3Z0xtSjVQVlpoY21saFlteGxLU0I4UGlCaGNuSmhibWRsS0dSbGMyTW9WbUZ5YVdGaWJHVmZjM1Z0S1NrZ2ZENGdaM0p2ZFhCZllua29WbUZ5YVdGaWJHVmZjM1Z0TENCV1lYSnBZV0pzWlNrZ2ZENWNiaUFnSUcxMWRHRjBaU2hQY21SbGNpQTlJR04xY2w5bmNtOTFjRjlwWkNncEtTQjhQaUJ0ZFhSaGRHVW9UM0prWlhJZ1BTQmhjeTVtWVdOMGIzSW9UM0prWlhJcEtTQjhQaUJoY25KaGJtZGxLR1JsYzJNb1QzSmtaWElwS1Z4dVhHNGpJRkpsYjNKa1pYSWdiM1YwWTI5dFpTQnNaWFpsYkhOY2JuSmxjMEZpYzA1dlZHOXVUR1JCUWlSUGRYUmpiMjFsSUR3dElHWmhZM1J2Y2loeVpYTkJZbk5PYjFSdmJreGtRVUlrVDNWMFkyOXRaU3dnYkdWMlpXeHpQV01vWEZ4TlpXRnVJR05vWVc1blpTQnBiaUJoYm01dmVXRnVZMlZjWEN3Z1hGd2xTRUVnZkNCSVFTY2dLR0Z0WWk0cFhGd3BLVnh1WEc0aklIQnNiM1FnY21WeklHRnpJR2h2Y21sNmIyNTBZV3dnWW1GeUlHTm9ZWEowTENCM2FYUm9JRWx0Y0NCaGN5QjVJR0Y0YVhNc0lGWmhjbWxoWW14bElHRnpJSGdnWVhocGN5d2dUM1YwWTI5dFpTQmhjeUJtYVd4c0xDQmhibVFnVm1GeWFXRmliR1ZmYzNWdElHRnpJRzl5WkdWeUxDQnlaV3hoWW1Wc0lIZ2dZWGhwY3lCM2FYUm9JRlpoY21saFlteGxJRzVoYldWelhHNXdRbUZ5SUR3dElHZG5jR3h2ZENoeVpYTkJZbk5PYjFSdmJreGtRVUlwSUNzZ1oyVnZiVjlqYjJ3b1lXVnpLR1pwYkd3OVQzVjBZMjl0WlN3Z2VUMUpiWEFzSUhnOVQzSmtaWElwTENCamIyeHZkWEk5SjJkeVpYa3pOU2NzSUd4cGJtVjNhV1IwYUQwd0xDQWdkMmxrZEdnOU1DNDNOU3dnYzJodmR5NXNaV2RsYm1ROVZGSlZSU2tnS3lCc1lXSnpLSGc5WEZ4V1lYSnBZV0pzWlZ4Y0xDQjVQVnhjVG05eWJXRnNhWE5sWkNCamIyNWthWFJwYjI1aGJDQjJZWEpwWVdKc1pTQndaWEp0ZFhSaGRHbHZiaUJwYlhCdmNuUmhibU5sWEZ3cElDc2dkR2hsYldVb2RHVjRkQ0E5SUdWc1pXMWxiblJmZEdWNGRDaG1ZVzFwYkhrZ1BTQmNYSE5sY21sbVhGd3BMQ0J3WVc1bGJDNW5jbWxrUFdWc1pXMWxiblJmYkdsdVpTaGpiMnh2Y2lBOUlISm5ZaWd5TXpVc0lESXpOU3dnTWpNMUxDQXhNREFzSUcxaGVFTnZiRzl5Vm1Gc2RXVWdQU0F5TlRVcExDQnNhVzVsZDJsa2RHZ2dQU0F3TGpJMUxDQnNhVzVsZEhsd1pTQTlJRElwTENCc1pXZGxibVF1Y0c5emFYUnBiMjRnUFNCY1hISnBaMmgwWEZ3cElDc2dZMjl2Y21SZlpteHBjQ2g1YkdsdFBXTW9MVEF1TVN3Z01TNHhLU2tnS3lCelkyRnNaVjltYVd4c1gyMWhiblZoYkNoMllXeDFaWE05YlhsamIyeHZkWEp6S1NBcklITmpZV3hsWDNoZlpHbHpZM0psZEdVb2JHRmlaV3h6UFhWdWFYRjFaU2h5WlhZb2NtVnpRV0p6VG05VWIyNU1aRUZDSkZaaGNtbGhZbXhsS1NrcFhHNXdRbUZ5SUNzZ2MyTmhiR1ZmZVY5amIyNTBhVzUxYjNWektHSnlaV0ZyY3oxelpYRW9NQ3dnTVN3Z1luazlNQzQxS1NsY2JseHVhV1lnS0hOaGRtVndiRzkwY3lsN1hHNGdJR2RuYzJGMlpTaG1hV3hsYm1GdFpUMWNYRkIwYzBGQ1kzSm1RV0p6VTFGTmMwNXZWRzl1VEdSVGRXMXRZWEo1TG5OMloxeGNMQ0IzYVdSMGFEMDRMQ0JvWldsbmFIUTlNeXdnY0dGMGFEMW1hV3hsTG5CaGRHZ29iM1YwUm1sblVHRjBhQ3dnWEZ4emRtZGNYQ2twWEc0Z0lIVnViR2x1YXloY1hGQjBjMEZDWTNKbVFXSnpVMUZOYzA1dlZHOXVUR1JUZFcxdFlYSjVMbk4yWjF4Y0tWeHVJQ0JjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ4Y1VIUnpRVUpqY21aQlluTlRVVTF6VG05VWIyNU1aRk4xYlcxaGNua3VjR1JtWEZ3c0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQwekxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNYSEJrWmx4Y0tTbGNiaUFnZFc1c2FXNXJLRnhjVUhSelFVSmpjbVpCWW5OVFVVMXpUbTlVYjI1TVpGTjFiVzFoY25rdWNHUm1YRndwWEc1OVhHNWNibUJnWUZ4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG5gYGByXG4jIGNvbWJpbmUgdGhlIGFubm95YW5jZSBwZXJtIGltcG9ydGFuY2UgcmVzdWx0c1xuXG4jIGNvbnZlcnQgZWFjaCByZXN1bHQgdG8gYSB0aWJibGUgd2l0aCByb3duYW1lcyBhZGRlZCB0byBhIGNvbHVtbiwgcmVuYW1pbmcgdGhlIGRhdGEgY29sdW1uIHRvICdkQW5ub3knIGV0Yy5cbnJlc2RBbm5veU1uQWJzUGVybUltcE5vVG9uTGRUYmxBQiA8LSBhcy5kYXRhLmZyYW1lKHJlc2RBbm5veU1uUGVybUltcEFCJEFic1NRTXMyL21heChyZXNkQW5ub3lNblBlcm1JbXBBQiRBYnNTUU1zMikpIHw+XG4gIHRpYmJsZTo6cm93bmFtZXNfdG9fY29sdW1uKHZhcj0nVmFyaWFibGUnKVxuY29sbmFtZXMocmVzZEFubm95TW5BYnNQZXJtSW1wTm9Ub25MZFRibEFCKVsyXSA8LSBcXGRBbm5veVxcXG5cbnJlc2RIaUFubm95QWJzUGVybUltcE5vVG9uTGRUYmxBQiA8LSBhcy5kYXRhLmZyYW1lKHJlc2RIaUFubm95UGVybUltcEFCJEFic1NRTXMyL21heChyZXNkSGlBbm5veVBlcm1JbXBBQiRBYnNTUU1zMikpIHw+XG4gIHRpYmJsZTo6cm93bmFtZXNfdG9fY29sdW1uKHZhcj0nVmFyaWFibGUnKVxuY29sbmFtZXMocmVzZEhpQW5ub3lBYnNQZXJtSW1wTm9Ub25MZFRibEFCKVsyXSA8LSBcXGRIaUFubm95XFxcblxuIyBtZXJnZSB0aGUgZGF0YWZyYW1lc1xucmVzQWJzUGVybUltcE5vVG9uTGRUYmxBQiA8LSBsaXN0KHJlc2RBbm5veU1uQWJzUGVybUltcE5vVG9uTGRUYmxBQiwgcmVzZEhpQW5ub3lBYnNQZXJtSW1wTm9Ub25MZFRibEFCKSB8PlxuICBwdXJycjo6cmVkdWNlKG1lcmdlLCBieSA9IGMoJ1ZhcmlhYmxlJyksIGFsbCA9IFQpXG5cbiMgcmVuYW1lIHRoZSBjb2x1bW5zXG5jb2xuYW1lcyhyZXNBYnNQZXJtSW1wTm9Ub25MZFRibEFCKVsyOjNdIDwtIGMoXFxNZWFuIGNoYW5nZSBpbiBhbm5veWFuY2VcXCwgXFwlSEEgfCBIQScgKGFtYi4pXFwpXG5yZXNBYnNQZXJtSW1wTm9Ub25MZFRibEFCW2lzLm5hKHJlc0Fic1Blcm1JbXBOb1RvbkxkVGJsQUIpXSA8LSAwXG5cbnJlc0Fic05vVG9uTGRBQiA8LSB0aWR5cjo6cGl2b3RfbG9uZ2VyKHJlc0Fic1Blcm1JbXBOb1RvbkxkVGJsQUIsIGNvbHM9LVZhcmlhYmxlLCBuYW1lc190bz1cXE91dGNvbWVcXCwgdmFsdWVzX3RvPVxcSW1wXFwpXG5cbiMgcmVvcmRlciByZXMgdGliYmxlLCBkZXNjZW5kaW5nIGJ5IHRoZSB2YXJpYWJsZSBJbXAgZ3JvdXBlZCBzdW0gYW5kIGNyZWF0ZSBjb2x1bW4gd2l0aCBuZXcgZ3JvdXAgb3JkZXIgYXMgYSBmYWN0b3JcbnJlc0Fic05vVG9uTGRBQiA8LSByZXNBYnNOb1RvbkxkQUIgfD4gbXV0YXRlKFZhcmlhYmxlX3N1bSA9IHN1bShJbXApLCAuYnk9VmFyaWFibGUpIHw+IGFycmFuZ2UoZGVzYyhWYXJpYWJsZV9zdW0pKSB8PiBncm91cF9ieShWYXJpYWJsZV9zdW0sIFZhcmlhYmxlKSB8PlxuICAgbXV0YXRlKE9yZGVyID0gY3VyX2dyb3VwX2lkKCkpIHw+IG11dGF0ZShPcmRlciA9IGFzLmZhY3RvcihPcmRlcikpIHw+IGFycmFuZ2UoZGVzYyhPcmRlcikpXG5cbiMgUmVvcmRlciBvdXRjb21lIGxldmVsc1xucmVzQWJzTm9Ub25MZEFCJE91dGNvbWUgPC0gZmFjdG9yKHJlc0Fic05vVG9uTGRBQiRPdXRjb21lLCBsZXZlbHM9YyhcXE1lYW4gY2hhbmdlIGluIGFubm95YW5jZVxcLCBcXCVIQSB8IEhBJyAoYW1iLilcXCkpXG5cbiMgcGxvdCByZXMgYXMgaG9yaXpvbnRhbCBiYXIgY2hhcnQsIHdpdGggSW1wIGFzIHkgYXhpcywgVmFyaWFibGUgYXMgeCBheGlzLCBPdXRjb21lIGFzIGZpbGwsIGFuZCBWYXJpYWJsZV9zdW0gYXMgb3JkZXIsIHJlbGFiZWwgeCBheGlzIHdpdGggVmFyaWFibGUgbmFtZXNcbnBCYXIgPC0gZ2dwbG90KHJlc0Fic05vVG9uTGRBQikgKyBnZW9tX2NvbChhZXMoZmlsbD1PdXRjb21lLCB5PUltcCwgeD1PcmRlciksIGNvbG91cj0nZ3JleTM1JywgbGluZXdpZHRoPTAsICB3aWR0aD0wLjc1LCBzaG93LmxlZ2VuZD1UUlVFKSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxOb3JtYWxpc2VkIGNvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2VcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMiksIGxlZ2VuZC5wb3NpdGlvbiA9IFxccmlnaHRcXCkgKyBjb29yZF9mbGlwKHlsaW09YygtMC4xLCAxLjEpKSArIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcz1teWNvbG91cnMpICsgc2NhbGVfeF9kaXNjcmV0ZShsYWJlbHM9dW5pcXVlKHJldihyZXNBYnNOb1RvbkxkQUIkVmFyaWFibGUpKSlcbnBCYXIgKyBzY2FsZV95X2NvbnRpbnVvdXMoYnJlYWtzPXNlcSgwLCAxLCBieT0wLjUpKVxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJjcmZBYnNTUU1zTm9Ub25MZFN1bW1hcnkuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0zLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJjcmZBYnNTUU1zTm9Ub25MZFN1bW1hcnkuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmNyZkFic1NRTXNOb1RvbkxkU3VtbWFyeS5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTMsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmNyZkFic1NRTXNOb1RvbkxkU3VtbWFyeS5wZGZcXClcbn1cblxuYGBgXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBjb21iaW5lIHRoZSBhbm5veWFuY2UgcGVybSBpbXBvcnRhbmNlIHJlc3VsdHNcblxuIyBjb252ZXJ0IGVhY2ggcmVzdWx0IHRvIGEgdGliYmxlIHdpdGggcm93bmFtZXMgYWRkZWQgdG8gYSBjb2x1bW4sIHJlbmFtaW5nIHRoZSBkYXRhIGNvbHVtbiB0byAnZEFubm95JyBldGMuXG5yZXNkQW5ub3lNbkFic1Blcm1JbXBOb1RvbkxkVGJsQUIgPC0gYXMuZGF0YS5mcmFtZShyZXNkQW5ub3lNblBlcm1JbXBBQiRBYnNTUU1zMi9tYXgocmVzZEFubm95TW5QZXJtSW1wQUIkQWJzU1FNczIpKSB8PlxuICB0aWJibGU6OnJvd25hbWVzX3RvX2NvbHVtbih2YXI9J1ZhcmlhYmxlJylcbmNvbG5hbWVzKHJlc2RBbm5veU1uQWJzUGVybUltcE5vVG9uTGRUYmxBQilbMl0gPC0gXFxkQW5ub3lcXFxuXG5yZXNkSGlBbm5veUFic1Blcm1JbXBOb1RvbkxkVGJsQUIgPC0gYXMuZGF0YS5mcmFtZShyZXNkSGlBbm5veVBlcm1JbXBBQiRBYnNTUU1zMi9tYXgocmVzZEhpQW5ub3lQZXJtSW1wQUIkQWJzU1FNczIpKSB8PlxuICB0aWJibGU6OnJvd25hbWVzX3RvX2NvbHVtbih2YXI9J1ZhcmlhYmxlJylcbmNvbG5hbWVzKHJlc2RIaUFubm95QWJzUGVybUltcE5vVG9uTGRUYmxBQilbMl0gPC0gXFxkSGlBbm5veVxcXG5cbiMgbWVyZ2UgdGhlIGRhdGFmcmFtZXNcbnJlc0Fic1Blcm1JbXBOb1RvbkxkVGJsQUIgPC0gbGlzdChyZXNkQW5ub3lNbkFic1Blcm1JbXBOb1RvbkxkVGJsQUIsIHJlc2RIaUFubm95QWJzUGVybUltcE5vVG9uTGRUYmxBQikgfD5cbiAgcHVycnI6OnJlZHVjZShtZXJnZSwgYnkgPSBjKCdWYXJpYWJsZScpLCBhbGwgPSBUKVxuXG4jIHJlbmFtZSB0aGUgY29sdW1uc1xuY29sbmFtZXMocmVzQWJzUGVybUltcE5vVG9uTGRUYmxBQilbMjozXSA8LSBjKFxcTWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlXFwsIFxcJUhBIHwgSEEnIChhbWIuKVxcKVxucmVzQWJzUGVybUltcE5vVG9uTGRUYmxBQltpcy5uYShyZXNBYnNQZXJtSW1wTm9Ub25MZFRibEFCKV0gPC0gMFxuXG5yZXNBYnNOb1RvbkxkQUIgPC0gdGlkeXI6OnBpdm90X2xvbmdlcihyZXNBYnNQZXJtSW1wTm9Ub25MZFRibEFCLCBjb2xzPS1WYXJpYWJsZSwgbmFtZXNfdG89XFxPdXRjb21lXFwsIHZhbHVlc190bz1cXEltcFxcKVxuXG4jIHJlb3JkZXIgcmVzIHRpYmJsZSwgZGVzY2VuZGluZyBieSB0aGUgdmFyaWFibGUgSW1wIGdyb3VwZWQgc3VtIGFuZCBjcmVhdGUgY29sdW1uIHdpdGggbmV3IGdyb3VwIG9yZGVyIGFzIGEgZmFjdG9yXG5yZXNBYnNOb1RvbkxkQUIgPC0gcmVzQWJzTm9Ub25MZEFCIHw+IG11dGF0ZShWYXJpYWJsZV9zdW0gPSBzdW0oSW1wKSwgLmJ5PVZhcmlhYmxlKSB8PiBhcnJhbmdlKGRlc2MoVmFyaWFibGVfc3VtKSkgfD4gZ3JvdXBfYnkoVmFyaWFibGVfc3VtLCBWYXJpYWJsZSkgfD5cbiAgIG11dGF0ZShPcmRlciA9IGN1cl9ncm91cF9pZCgpKSB8PiBtdXRhdGUoT3JkZXIgPSBhcy5mYWN0b3IoT3JkZXIpKSB8PiBhcnJhbmdlKGRlc2MoT3JkZXIpKVxuXG4jIFJlb3JkZXIgb3V0Y29tZSBsZXZlbHNcbnJlc0Fic05vVG9uTGRBQiRPdXRjb21lIDwtIGZhY3RvcihyZXNBYnNOb1RvbkxkQUIkT3V0Y29tZSwgbGV2ZWxzPWMoXFxNZWFuIGNoYW5nZSBpbiBhbm5veWFuY2VcXCwgXFwlSEEgfCBIQScgKGFtYi4pXFwpKVxuXG4jIHBsb3QgcmVzIGFzIGhvcml6b250YWwgYmFyIGNoYXJ0LCB3aXRoIEltcCBhcyB5IGF4aXMsIFZhcmlhYmxlIGFzIHggYXhpcywgT3V0Y29tZSBhcyBmaWxsLCBhbmQgVmFyaWFibGVfc3VtIGFzIG9yZGVyLCByZWxhYmVsIHggYXhpcyB3aXRoIFZhcmlhYmxlIG5hbWVzXG5wQmFyIDwtIGdncGxvdChyZXNBYnNOb1RvbkxkQUIpICsgZ2VvbV9jb2woYWVzKGZpbGw9T3V0Y29tZSwgeT1JbXAsIHg9T3JkZXIpLCBjb2xvdXI9J2dyZXkzNScsIGxpbmV3aWR0aD0wLCAgd2lkdGg9MC43NSwgc2hvdy5sZWdlbmQ9VFJVRSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcTm9ybWFsaXNlZCBjb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpLCBsZWdlbmQucG9zaXRpb24gPSBcXHJpZ2h0XFwpICsgY29vcmRfZmxpcCh5bGltPWMoLTAuMSwgMS4xKSkgKyBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXM9bXljb2xvdXJzKSArIHNjYWxlX3hfZGlzY3JldGUobGFiZWxzPXVuaXF1ZShyZXYocmVzQWJzTm9Ub25MZEFCJFZhcmlhYmxlKSkpXG5wQmFyICsgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcz1zZXEoMCwgMSwgYnk9MC41KSlcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCY3JmQWJzU1FNc05vVG9uTGRTdW1tYXJ5LnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MywgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCY3JmQWJzU1FNc05vVG9uTGRTdW1tYXJ5LnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJjcmZBYnNTUU1zTm9Ub25MZFN1bW1hcnkucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0zLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJjcmZBYnNTUU1zTm9Ub25MZFN1bW1hcnkucGRmXFwpXG59XG5cbmBgYFxuYGBgIn0= -->
```r
```r
# combine the annoyance perm importance results
# convert each result to a tibble with rownames added to a column, renaming the data column to 'dAnnoy' etc.
resdAnnoyMnAbsPermImpNoTonLdTblAB <- as.data.frame(resdAnnoyMnPermImpAB$AbsSQMs2/max(resdAnnoyMnPermImpAB$AbsSQMs2)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdAnnoyMnAbsPermImpNoTonLdTblAB)[2] <- \dAnnoy\
resdHiAnnoyAbsPermImpNoTonLdTblAB <- as.data.frame(resdHiAnnoyPermImpAB$AbsSQMs2/max(resdHiAnnoyPermImpAB$AbsSQMs2)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdHiAnnoyAbsPermImpNoTonLdTblAB)[2] <- \dHiAnnoy\
# merge the dataframes
resAbsPermImpNoTonLdTblAB <- list(resdAnnoyMnAbsPermImpNoTonLdTblAB, resdHiAnnoyAbsPermImpNoTonLdTblAB) |>
purrr::reduce(merge, by = c('Variable'), all = T)
# rename the columns
colnames(resAbsPermImpNoTonLdTblAB)[2:3] <- c(\Mean change in annoyance\, \%HA | HA' (amb.)\)
resAbsPermImpNoTonLdTblAB[is.na(resAbsPermImpNoTonLdTblAB)] <- 0
resAbsNoTonLdAB <- tidyr::pivot_longer(resAbsPermImpNoTonLdTblAB, cols=-Variable, names_to=\Outcome\, values_to=\Imp\)
# reorder res tibble, descending by the variable Imp grouped sum and create column with new group order as a factor
resAbsNoTonLdAB <- resAbsNoTonLdAB |> mutate(Variable_sum = sum(Imp), .by=Variable) |> arrange(desc(Variable_sum)) |> group_by(Variable_sum, Variable) |>
mutate(Order = cur_group_id()) |> mutate(Order = as.factor(Order)) |> arrange(desc(Order))
# Reorder outcome levels
resAbsNoTonLdAB$Outcome <- factor(resAbsNoTonLdAB$Outcome, levels=c(\Mean change in annoyance\, \%HA | HA' (amb.)\))
# plot res as horizontal bar chart, with Imp as y axis, Variable as x axis, Outcome as fill, and Variable_sum as order, relabel x axis with Variable names
pBar <- ggplot(resAbsNoTonLdAB) + geom_col(aes(fill=Outcome, y=Imp, x=Order), colour='grey35', linewidth=0, width=0.75, show.legend=TRUE) + labs(x=\Variable\, y=\Normalised conditional variable permutation importance\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2), legend.position = \right\) + coord_flip(ylim=c(-0.1, 1.1)) + scale_fill_manual(values=mycolours) + scale_x_discrete(labels=unique(rev(resAbsNoTonLdAB$Variable)))
pBar + scale_y_continuous(breaks=seq(0, 1, by=0.5))
if (saveplots){
ggsave(filename=\PtsABcrfAbsSQMsNoTonLdSummary.svg\, width=8, height=3, path=file.path(outFigPath, \svg\))
unlink(\PtsABcrfAbsSQMsNoTonLdSummary.svg\)
ggsave(filename=\PtsABcrfAbsSQMsNoTonLdSummary.pdf\, width=8, height=3, path=file.path(outFigPath, \pdf\))
unlink(\PtsABcrfAbsSQMsNoTonLdSummary.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
#### Difference variables
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJqYjIxaWFXNWxJSFJvWlNCaGJtNXZlV0Z1WTJVZ2NHVnliU0JwYlhCdmNuUmhibU5sSUhKbGMzVnNkSE5jYmx4dUl5QmpiMjUyWlhKMElHVmhZMmdnY21WemRXeDBJSFJ2SUdFZ2RHbGlZbXhsSUhkcGRHZ2djbTkzYm1GdFpYTWdZV1JrWldRZ2RHOGdZU0JqYjJ4MWJXNHNJSEpsYm1GdGFXNW5JSFJvWlNCa1lYUmhJR052YkhWdGJpQjBieUFuWkVGdWJtOTVKeUJsZEdNdVhHNXlaWE5rUVc1dWIzbE5ia1JwWm1aUVpYSnRTVzF3VG05VWIyNU1aRlJpYkVGQ0lEd3RJR0Z6TG1SaGRHRXVabkpoYldVb2NtVnpaRUZ1Ym05NVRXNVFaWEp0U1cxd1FVSWtSR2xtWmxOUlRYTXlMMjFoZUNoeVpYTmtRVzV1YjNsTmJsQmxjbTFKYlhCQlFpUkVhV1ptVTFGTmN6SXBLU0I4UGx4dUlDQjBhV0ppYkdVNk9uSnZkMjVoYldWelgzUnZYMk52YkhWdGJpaDJZWEk5SjFaaGNtbGhZbXhsSnlsY2JtTnZiRzVoYldWektISmxjMlJCYm01dmVVMXVSR2xtWmxCbGNtMUpiWEJPYjFSdmJreGtWR0pzUVVJcFd6SmRJRHd0SUZ3aVpFRnVibTk1WENKY2JseHVjbVZ6WkVocFFXNXViM2xFYVdabVVHVnliVWx0Y0U1dlZHOXVUR1JVWW14QlFpQThMU0JoY3k1a1lYUmhMbVp5WVcxbEtISmxjMlJJYVVGdWJtOTVVR1Z5YlVsdGNFRkNKRVJwWm1aVFVVMXpNaTl0WVhnb2NtVnpaRWhwUVc1dWIzbFFaWEp0U1cxd1FVSWtSR2xtWmxOUlRYTXlLU2tnZkQ1Y2JpQWdkR2xpWW14bE9qcHliM2R1WVcxbGMxOTBiMTlqYjJ4MWJXNG9kbUZ5UFNkV1lYSnBZV0pzWlNjcFhHNWpiMnh1WVcxbGN5aHlaWE5rU0dsQmJtNXZlVVJwWm1aUVpYSnRTVzF3VG05VWIyNU1aRlJpYkVGQ0tWc3lYU0E4TFNCY0ltUklhVUZ1Ym05NVhDSmNibHh1SXlCdFpYSm5aU0IwYUdVZ1pHRjBZV1p5WVcxbGMxeHVjbVZ6UkdsbVpsQmxjbTFKYlhCT2IxUnZia3hrVkdKc1FVSWdQQzBnYkdsemRDaHlaWE5rUVc1dWIzbE5ia1JwWm1aUVpYSnRTVzF3VG05VWIyNU1aRlJpYkVGQ0xDQnlaWE5rU0dsQmJtNXZlVVJwWm1aUVpYSnRTVzF3VG05VWIyNU1aRlJpYkVGQ0tTQjhQbHh1SUNCd2RYSnljam82Y21Wa2RXTmxLRzFsY21kbExDQmllU0E5SUdNb0oxWmhjbWxoWW14bEp5a3NJR0ZzYkNBOUlGUXBYRzVjYmlNZ2NtVnVZVzFsSUhSb1pTQmpiMngxYlc1elhHNWpiMnh1WVcxbGN5aHlaWE5FYVdabVVHVnliVWx0Y0U1dlZHOXVUR1JVWW14QlFpbGJNam96WFNBOExTQmpLRndpVFdWaGJpQmphR0Z1WjJVZ2FXNGdZVzV1YjNsaGJtTmxYQ0lzSUZ3aUpVaEJJSHdnU0VFbklDaGhiV0l1S1Z3aUtWeHVjbVZ6UkdsbVpsQmxjbTFKYlhCT2IxUnZia3hrVkdKc1FVSmJhWE11Ym1Fb2NtVnpSR2xtWmxCbGNtMUpiWEJPYjFSdmJreGtWR0pzUVVJcFhTQThMU0F3WEc1Y2JuSmxjMFJwWm1aT2IxUnZia3hrUVVJZ1BDMGdkR2xrZVhJNk9uQnBkbTkwWDJ4dmJtZGxjaWh5WlhORWFXWm1VR1Z5YlVsdGNFNXZWRzl1VEdSVVlteEJRaXdnWTI5c2N6MHRWbUZ5YVdGaWJHVXNJRzVoYldWelgzUnZQVndpVDNWMFkyOXRaVndpTENCMllXeDFaWE5mZEc4OVhDSkpiWEJjSWlsY2JseHVJeUJ5Wlc5eVpHVnlJSEpsY3lCMGFXSmliR1VzSUdSbGMyTmxibVJwYm1jZ1lua2dkR2hsSUhaaGNtbGhZbXhsSUVsdGNDQm5jbTkxY0dWa0lITjFiU0JoYm1RZ1kzSmxZWFJsSUdOdmJIVnRiaUIzYVhSb0lHNWxkeUJuY205MWNDQnZjbVJsY2lCaGN5QmhJR1poWTNSdmNseHVjbVZ6UkdsbVprNXZWRzl1VEdSQlFpQThMU0J5WlhORWFXWm1UbTlVYjI1TVpFRkNJSHcrSUcxMWRHRjBaU2hXWVhKcFlXSnNaVjl6ZFcwZ1BTQnpkVzBvU1cxd0tTd2dMbUo1UFZaaGNtbGhZbXhsS1NCOFBpQmhjbkpoYm1kbEtHUmxjMk1vVm1GeWFXRmliR1ZmYzNWdEtTa2dmRDRnWjNKdmRYQmZZbmtvVm1GeWFXRmliR1ZmYzNWdExDQldZWEpwWVdKc1pTa2dmRDVjYmlBZ0lHMTFkR0YwWlNoUGNtUmxjaUE5SUdOMWNsOW5jbTkxY0Y5cFpDZ3BLU0I4UGlCdGRYUmhkR1VvVDNKa1pYSWdQU0JoY3k1bVlXTjBiM0lvVDNKa1pYSXBLU0I4UGlCaGNuSmhibWRsS0dSbGMyTW9UM0prWlhJcEtWeHVYRzRqSUZKbGIzSmtaWElnYjNWMFkyOXRaU0JzWlhabGJITmNibkpsYzBScFptWk9iMVJ2Ymt4a1FVSWtUM1YwWTI5dFpTQThMU0JtWVdOMGIzSW9jbVZ6UkdsbVprNXZWRzl1VEdSQlFpUlBkWFJqYjIxbExDQnNaWFpsYkhNOVl5aGNJazFsWVc0Z1kyaGhibWRsSUdsdUlHRnVibTk1WVc1alpWd2lMQ0JjSWlWSVFTQjhJRWhCSnlBb1lXMWlMaWxjSWlrcFhHNWNiaU1nY0d4dmRDQnlaWE1nWVhNZ2FHOXlhWHB2Ym5SaGJDQmlZWElnWTJoaGNuUXNJSGRwZEdnZ1NXMXdJR0Z6SUhrZ1lYaHBjeXdnVm1GeWFXRmliR1VnWVhNZ2VDQmhlR2x6TENCUGRYUmpiMjFsSUdGeklHWnBiR3dzSUdGdVpDQldZWEpwWVdKc1pWOXpkVzBnWVhNZ2IzSmtaWElzSUhKbGJHRmlaV3dnZUNCaGVHbHpJSGRwZEdnZ1ZtRnlhV0ZpYkdVZ2JtRnRaWE5jYm5CQ1lYSWdQQzBnWjJkd2JHOTBLSEpsYzBScFptWk9iMVJ2Ymt4a1FVSXBJQ3NnWjJWdmJWOWpiMndvWVdWektHWnBiR3c5VDNWMFkyOXRaU3dnZVQxSmJYQXNJSGc5VDNKa1pYSXBMQ0JqYjJ4dmRYSTlKMmR5Wlhrek5TY3NJR3hwYm1WM2FXUjBhRDB3TENBZ2QybGtkR2c5TUM0M05Td2djMmh2ZHk1c1pXZGxibVE5VkZKVlJTa2dLeUJzWVdKektIZzlYQ0pXWVhKcFlXSnNaVndpTENCNVBWd2lUbTl5YldGc2FYTmxaQ0JqYjI1a2FYUnBiMjVoYkNCMllYSnBZV0pzWlNCd1pYSnRkWFJoZEdsdmJpQnBiWEJ2Y25SaGJtTmxYQ0lwSUNzZ2RHaGxiV1VvZEdWNGRDQTlJR1ZzWlcxbGJuUmZkR1Y0ZENobVlXMXBiSGtnUFNCY0luTmxjbWxtWENJcExDQndZVzVsYkM1bmNtbGtQV1ZzWlcxbGJuUmZiR2x1WlNoamIyeHZjaUE5SUhKbllpZ3lNelVzSURJek5Td2dNak0xTENBeE1EQXNJRzFoZUVOdmJHOXlWbUZzZFdVZ1BTQXlOVFVwTENCc2FXNWxkMmxrZEdnZ1BTQXdMakkxTENCc2FXNWxkSGx3WlNBOUlESXBMQ0JzWldkbGJtUXVjRzl6YVhScGIyNGdQU0JjSW5KcFoyaDBYQ0lwSUNzZ1kyOXZjbVJmWm14cGNDaDViR2x0UFdNb0xUQXVNU3dnTVM0eEtTa2dLeUJ6WTJGc1pWOW1hV3hzWDIxaGJuVmhiQ2gyWVd4MVpYTTliWGxqYjJ4dmRYSnpLU0FySUhOallXeGxYM2hmWkdselkzSmxkR1VvYkdGaVpXeHpQWFZ1YVhGMVpTaHlaWFlvY21WelJHbG1aazV2Vkc5dVRHUkJRaVJXWVhKcFlXSnNaU2twS1Z4dWNFSmhjaUFySUhOallXeGxYM2xmWTI5dWRHbHVkVzkxY3loaWNtVmhhM005YzJWeEtEQXNJREVzSUdKNVBUQXVOU2twWEc1Y2JtbG1JQ2h6WVhabGNHeHZkSE1wZTF4dUlDQm5aM05oZG1Vb1ptbHNaVzVoYldVOVhDSlFkSE5CUW1OeVprUnBabVpUVVUxelRtOVViMjVNWkZOMWJXMWhjbmt1YzNablhDSXNJSGRwWkhSb1BUZ3NJR2hsYVdkb2REMHpMQ0J3WVhSb1BXWnBiR1V1Y0dGMGFDaHZkWFJHYVdkUVlYUm9MQ0JjSW5OMloxd2lLU2xjYmlBZ2RXNXNhVzVyS0Z3aVVIUnpRVUpqY21aRWFXWm1VMUZOYzA1dlZHOXVUR1JUZFcxdFlYSjVMbk4yWjF3aUtWeHVJQ0JjYmlBZ1oyZHpZWFpsS0dacGJHVnVZVzFsUFZ3aVVIUnpRVUpqY21aRWFXWm1VMUZOYzA1dlZHOXVUR1JUZFcxdFlYSjVMbkJrWmx3aUxDQjNhV1IwYUQwNExDQm9aV2xuYUhROU15d2djR0YwYUQxbWFXeGxMbkJoZEdnb2IzVjBSbWxuVUdGMGFDd2dYQ0p3WkdaY0lpa3BYRzRnSUhWdWJHbHVheWhjSWxCMGMwRkNZM0ptUkdsbVpsTlJUWE5PYjFSdmJreGtVM1Z0YldGeWVTNXdaR1pjSWlsY2JuMWNibHh1WUdCZ0luMD0gLS0+XG5cbmBgYHJcbiMgY29tYmluZSB0aGUgYW5ub3lhbmNlIHBlcm0gaW1wb3J0YW5jZSByZXN1bHRzXG5cbiMgY29udmVydCBlYWNoIHJlc3VsdCB0byBhIHRpYmJsZSB3aXRoIHJvd25hbWVzIGFkZGVkIHRvIGEgY29sdW1uLCByZW5hbWluZyB0aGUgZGF0YSBjb2x1bW4gdG8gJ2RBbm5veScgZXRjLlxucmVzZEFubm95TW5EaWZmUGVybUltcE5vVG9uTGRUYmxBQiA8LSBhcy5kYXRhLmZyYW1lKHJlc2RBbm5veU1uUGVybUltcEFCJERpZmZTUU1zMi9tYXgocmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZlNRTXMyKSkgfD5cbiAgdGliYmxlOjpyb3duYW1lc190b19jb2x1bW4odmFyPSdWYXJpYWJsZScpXG5jb2xuYW1lcyhyZXNkQW5ub3lNbkRpZmZQZXJtSW1wTm9Ub25MZFRibEFCKVsyXSA8LSBcXGRBbm5veVxcXG5cbnJlc2RIaUFubm95RGlmZlBlcm1JbXBOb1RvbkxkVGJsQUIgPC0gYXMuZGF0YS5mcmFtZShyZXNkSGlBbm5veVBlcm1JbXBBQiREaWZmU1FNczIvbWF4KHJlc2RIaUFubm95UGVybUltcEFCJERpZmZTUU1zMikpIHw+XG4gIHRpYmJsZTo6cm93bmFtZXNfdG9fY29sdW1uKHZhcj0nVmFyaWFibGUnKVxuY29sbmFtZXMocmVzZEhpQW5ub3lEaWZmUGVybUltcE5vVG9uTGRUYmxBQilbMl0gPC0gXFxkSGlBbm5veVxcXG5cbiMgbWVyZ2UgdGhlIGRhdGFmcmFtZXNcbnJlc0RpZmZQZXJtSW1wTm9Ub25MZFRibEFCIDwtIGxpc3QocmVzZEFubm95TW5EaWZmUGVybUltcE5vVG9uTGRUYmxBQiwgcmVzZEhpQW5ub3lEaWZmUGVybUltcE5vVG9uTGRUYmxBQikgfD5cbiAgcHVycnI6OnJlZHVjZShtZXJnZSwgYnkgPSBjKCdWYXJpYWJsZScpLCBhbGwgPSBUKVxuXG4jIHJlbmFtZSB0aGUgY29sdW1uc1xuY29sbmFtZXMocmVzRGlmZlBlcm1JbXBOb1RvbkxkVGJsQUIpWzI6M10gPC0gYyhcXE1lYW4gY2hhbmdlIGluIGFubm95YW5jZVxcLCBcXCVIQSB8IEhBJyAoYW1iLilcXClcbnJlc0RpZmZQZXJtSW1wTm9Ub25MZFRibEFCW2lzLm5hKHJlc0RpZmZQZXJtSW1wTm9Ub25MZFRibEFCKV0gPC0gMFxuXG5yZXNEaWZmTm9Ub25MZEFCIDwtIHRpZHlyOjpwaXZvdF9sb25nZXIocmVzRGlmZlBlcm1JbXBOb1RvbkxkVGJsQUIsIGNvbHM9LVZhcmlhYmxlLCBuYW1lc190bz1cXE91dGNvbWVcXCwgdmFsdWVzX3RvPVxcSW1wXFwpXG5cbiMgcmVvcmRlciByZXMgdGliYmxlLCBkZXNjZW5kaW5nIGJ5IHRoZSB2YXJpYWJsZSBJbXAgZ3JvdXBlZCBzdW0gYW5kIGNyZWF0ZSBjb2x1bW4gd2l0aCBuZXcgZ3JvdXAgb3JkZXIgYXMgYSBmYWN0b3JcbnJlc0RpZmZOb1RvbkxkQUIgPC0gcmVzRGlmZk5vVG9uTGRBQiB8PiBtdXRhdGUoVmFyaWFibGVfc3VtID0gc3VtKEltcCksIC5ieT1WYXJpYWJsZSkgfD4gYXJyYW5nZShkZXNjKFZhcmlhYmxlX3N1bSkpIHw+IGdyb3VwX2J5KFZhcmlhYmxlX3N1bSwgVmFyaWFibGUpIHw+XG4gICBtdXRhdGUoT3JkZXIgPSBjdXJfZ3JvdXBfaWQoKSkgfD4gbXV0YXRlKE9yZGVyID0gYXMuZmFjdG9yKE9yZGVyKSkgfD4gYXJyYW5nZShkZXNjKE9yZGVyKSlcblxuIyBSZW9yZGVyIG91dGNvbWUgbGV2ZWxzXG5yZXNEaWZmTm9Ub25MZEFCJE91dGNvbWUgPC0gZmFjdG9yKHJlc0RpZmZOb1RvbkxkQUIkT3V0Y29tZSwgbGV2ZWxzPWMoXFxNZWFuIGNoYW5nZSBpbiBhbm5veWFuY2VcXCwgXFwlSEEgfCBIQScgKGFtYi4pXFwpKVxuXG4jIHBsb3QgcmVzIGFzIGhvcml6b250YWwgYmFyIGNoYXJ0LCB3aXRoIEltcCBhcyB5IGF4aXMsIFZhcmlhYmxlIGFzIHggYXhpcywgT3V0Y29tZSBhcyBmaWxsLCBhbmQgVmFyaWFibGVfc3VtIGFzIG9yZGVyLCByZWxhYmVsIHggYXhpcyB3aXRoIFZhcmlhYmxlIG5hbWVzXG5wQmFyIDwtIGdncGxvdChyZXNEaWZmTm9Ub25MZEFCKSArIGdlb21fY29sKGFlcyhmaWxsPU91dGNvbWUsIHk9SW1wLCB4PU9yZGVyKSwgY29sb3VyPSdncmV5MzUnLCBsaW5ld2lkdGg9MCwgIHdpZHRoPTAuNzUsIHNob3cubGVnZW5kPVRSVUUpICsgbGFicyh4PVxcVmFyaWFibGVcXCwgeT1cXE5vcm1hbGlzZWQgY29uZGl0aW9uYWwgdmFyaWFibGUgcGVybXV0YXRpb24gaW1wb3J0YW5jZVxcKSArIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoZmFtaWx5ID0gXFxzZXJpZlxcKSwgcGFuZWwuZ3JpZD1lbGVtZW50X2xpbmUoY29sb3IgPSByZ2IoMjM1LCAyMzUsIDIzNSwgMTAwLCBtYXhDb2xvclZhbHVlID0gMjU1KSwgbGluZXdpZHRoID0gMC4yNSwgbGluZXR5cGUgPSAyKSwgbGVnZW5kLnBvc2l0aW9uID0gXFxyaWdodFxcKSArIGNvb3JkX2ZsaXAoeWxpbT1jKC0wLjEsIDEuMSkpICsgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzPW15Y29sb3VycykgKyBzY2FsZV94X2Rpc2NyZXRlKGxhYmVscz11bmlxdWUocmV2KHJlc0RpZmZOb1RvbkxkQUIkVmFyaWFibGUpKSlcbnBCYXIgKyBzY2FsZV95X2NvbnRpbnVvdXMoYnJlYWtzPXNlcSgwLCAxLCBieT0wLjUpKVxuXG5pZiAoc2F2ZXBsb3RzKXtcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJjcmZEaWZmU1FNc05vVG9uTGRTdW1tYXJ5LnN2Z1xcLCB3aWR0aD04LCBoZWlnaHQ9MywgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxzdmdcXCkpXG4gIHVubGluayhcXFB0c0FCY3JmRGlmZlNRTXNOb1RvbkxkU3VtbWFyeS5zdmdcXClcbiAgXG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCY3JmRGlmZlNRTXNOb1RvbkxkU3VtbWFyeS5wZGZcXCwgd2lkdGg9OCwgaGVpZ2h0PTMsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxccGRmXFwpKVxuICB1bmxpbmsoXFxQdHNBQmNyZkRpZmZTUU1zTm9Ub25MZFN1bW1hcnkucGRmXFwpXG59XG5cbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
# combine the annoyance perm importance results
# convert each result to a tibble with rownames added to a column, renaming the data column to 'dAnnoy' etc.
resdAnnoyMnDiffPermImpNoTonLdTblAB <- as.data.frame(resdAnnoyMnPermImpAB$DiffSQMs2/max(resdAnnoyMnPermImpAB$DiffSQMs2)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdAnnoyMnDiffPermImpNoTonLdTblAB)[2] <- \dAnnoy\
resdHiAnnoyDiffPermImpNoTonLdTblAB <- as.data.frame(resdHiAnnoyPermImpAB$DiffSQMs2/max(resdHiAnnoyPermImpAB$DiffSQMs2)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdHiAnnoyDiffPermImpNoTonLdTblAB)[2] <- \dHiAnnoy\
# merge the dataframes
resDiffPermImpNoTonLdTblAB <- list(resdAnnoyMnDiffPermImpNoTonLdTblAB, resdHiAnnoyDiffPermImpNoTonLdTblAB) |>
purrr::reduce(merge, by = c('Variable'), all = T)
# rename the columns
colnames(resDiffPermImpNoTonLdTblAB)[2:3] <- c(\Mean change in annoyance\, \%HA | HA' (amb.)\)
resDiffPermImpNoTonLdTblAB[is.na(resDiffPermImpNoTonLdTblAB)] <- 0
resDiffNoTonLdAB <- tidyr::pivot_longer(resDiffPermImpNoTonLdTblAB, cols=-Variable, names_to=\Outcome\, values_to=\Imp\)
# reorder res tibble, descending by the variable Imp grouped sum and create column with new group order as a factor
resDiffNoTonLdAB <- resDiffNoTonLdAB |> mutate(Variable_sum = sum(Imp), .by=Variable) |> arrange(desc(Variable_sum)) |> group_by(Variable_sum, Variable) |>
mutate(Order = cur_group_id()) |> mutate(Order = as.factor(Order)) |> arrange(desc(Order))
# Reorder outcome levels
resDiffNoTonLdAB$Outcome <- factor(resDiffNoTonLdAB$Outcome, levels=c(\Mean change in annoyance\, \%HA | HA' (amb.)\))
# plot res as horizontal bar chart, with Imp as y axis, Variable as x axis, Outcome as fill, and Variable_sum as order, relabel x axis with Variable names
pBar <- ggplot(resDiffNoTonLdAB) + geom_col(aes(fill=Outcome, y=Imp, x=Order), colour='grey35', linewidth=0, width=0.75, show.legend=TRUE) + labs(x=\Variable\, y=\Normalised conditional variable permutation importance\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2), legend.position = \right\) + coord_flip(ylim=c(-0.1, 1.1)) + scale_fill_manual(values=mycolours) + scale_x_discrete(labels=unique(rev(resDiffNoTonLdAB$Variable)))
pBar + scale_y_continuous(breaks=seq(0, 1, by=0.5))
if (saveplots){
ggsave(filename=\PtsABcrfDiffSQMsNoTonLdSummary.svg\, width=8, height=3, path=file.path(outFigPath, \svg\))
unlink(\PtsABcrfDiffSQMsNoTonLdSummary.svg\)
ggsave(filename=\PtsABcrfDiffSQMsNoTonLdSummary.pdf\, width=8, height=3, path=file.path(outFigPath, \pdf\))
unlink(\PtsABcrfDiffSQMsNoTonLdSummary.pdf\)
}
<!-- rnb-output-end -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVZR0JnY2x4dUl5QmpiMjFpYVc1bElIUm9aU0JoYm01dmVXRnVZMlVnY0dWeWJTQnBiWEJ2Y25SaGJtTmxJSEpsYzNWc2RITmNibHh1SXlCamIyNTJaWEowSUdWaFkyZ2djbVZ6ZFd4MElIUnZJR0VnZEdsaVlteGxJSGRwZEdnZ2NtOTNibUZ0WlhNZ1lXUmtaV1FnZEc4Z1lTQmpiMngxYlc0c0lISmxibUZ0YVc1bklIUm9aU0JrWVhSaElHTnZiSFZ0YmlCMGJ5QW5aRUZ1Ym05NUp5QmxkR011WEc1eVpYTmtRVzV1YjNsTmJrUnBabVpRWlhKdFNXMXdUbTlVYjI1TVpGUmliRUZDSUR3dElHRnpMbVJoZEdFdVpuSmhiV1VvY21WelpFRnVibTk1VFc1UVpYSnRTVzF3UVVJa1JHbG1abE5SVFhNeUwyMWhlQ2h5WlhOa1FXNXViM2xOYmxCbGNtMUpiWEJCUWlSRWFXWm1VMUZOY3pJcEtTQjhQbHh1SUNCMGFXSmliR1U2T25KdmQyNWhiV1Z6WDNSdlgyTnZiSFZ0YmloMllYSTlKMVpoY21saFlteGxKeWxjYm1OdmJHNWhiV1Z6S0hKbGMyUkJibTV2ZVUxdVJHbG1abEJsY20xSmJYQk9iMVJ2Ymt4a1ZHSnNRVUlwV3pKZElEd3RJRnhjWkVGdWJtOTVYRnhjYmx4dWNtVnpaRWhwUVc1dWIzbEVhV1ptVUdWeWJVbHRjRTV2Vkc5dVRHUlVZbXhCUWlBOExTQmhjeTVrWVhSaExtWnlZVzFsS0hKbGMyUklhVUZ1Ym05NVVHVnliVWx0Y0VGQ0pFUnBabVpUVVUxek1pOXRZWGdvY21WelpFaHBRVzV1YjNsUVpYSnRTVzF3UVVJa1JHbG1abE5SVFhNeUtTa2dmRDVjYmlBZ2RHbGlZbXhsT2pweWIzZHVZVzFsYzE5MGIxOWpiMngxYlc0b2RtRnlQU2RXWVhKcFlXSnNaU2NwWEc1amIyeHVZVzFsY3loeVpYTmtTR2xCYm01dmVVUnBabVpRWlhKdFNXMXdUbTlVYjI1TVpGUmliRUZDS1ZzeVhTQThMU0JjWEdSSWFVRnVibTk1WEZ4Y2JseHVJeUJ0WlhKblpTQjBhR1VnWkdGMFlXWnlZVzFsYzF4dWNtVnpSR2xtWmxCbGNtMUpiWEJPYjFSdmJreGtWR0pzUVVJZ1BDMGdiR2x6ZENoeVpYTmtRVzV1YjNsTmJrUnBabVpRWlhKdFNXMXdUbTlVYjI1TVpGUmliRUZDTENCeVpYTmtTR2xCYm01dmVVUnBabVpRWlhKdFNXMXdUbTlVYjI1TVpGUmliRUZDS1NCOFBseHVJQ0J3ZFhKeWNqbzZjbVZrZFdObEtHMWxjbWRsTENCaWVTQTlJR01vSjFaaGNtbGhZbXhsSnlrc0lHRnNiQ0E5SUZRcFhHNWNiaU1nY21WdVlXMWxJSFJvWlNCamIyeDFiVzV6WEc1amIyeHVZVzFsY3loeVpYTkVhV1ptVUdWeWJVbHRjRTV2Vkc5dVRHUlVZbXhCUWlsYk1qb3pYU0E4TFNCaktGeGNUV1ZoYmlCamFHRnVaMlVnYVc0Z1lXNXViM2xoYm1ObFhGd3NJRnhjSlVoQklId2dTRUVuSUNoaGJXSXVLVnhjS1Z4dWNtVnpSR2xtWmxCbGNtMUpiWEJPYjFSdmJreGtWR0pzUVVKYmFYTXVibUVvY21WelJHbG1abEJsY20xSmJYQk9iMVJ2Ymt4a1ZHSnNRVUlwWFNBOExTQXdYRzVjYm5KbGMwUnBabVpPYjFSdmJreGtRVUlnUEMwZ2RHbGtlWEk2T25CcGRtOTBYMnh2Ym1kbGNpaHlaWE5FYVdabVVHVnliVWx0Y0U1dlZHOXVUR1JVWW14QlFpd2dZMjlzY3owdFZtRnlhV0ZpYkdVc0lHNWhiV1Z6WDNSdlBWeGNUM1YwWTI5dFpWeGNMQ0IyWVd4MVpYTmZkRzg5WEZ4SmJYQmNYQ2xjYmx4dUl5QnlaVzl5WkdWeUlISmxjeUIwYVdKaWJHVXNJR1JsYzJObGJtUnBibWNnWW5rZ2RHaGxJSFpoY21saFlteGxJRWx0Y0NCbmNtOTFjR1ZrSUhOMWJTQmhibVFnWTNKbFlYUmxJR052YkhWdGJpQjNhWFJvSUc1bGR5Qm5jbTkxY0NCdmNtUmxjaUJoY3lCaElHWmhZM1J2Y2x4dWNtVnpSR2xtWms1dlZHOXVUR1JCUWlBOExTQnlaWE5FYVdabVRtOVViMjVNWkVGQ0lIdytJRzExZEdGMFpTaFdZWEpwWVdKc1pWOXpkVzBnUFNCemRXMG9TVzF3S1N3Z0xtSjVQVlpoY21saFlteGxLU0I4UGlCaGNuSmhibWRsS0dSbGMyTW9WbUZ5YVdGaWJHVmZjM1Z0S1NrZ2ZENGdaM0p2ZFhCZllua29WbUZ5YVdGaWJHVmZjM1Z0TENCV1lYSnBZV0pzWlNrZ2ZENWNiaUFnSUcxMWRHRjBaU2hQY21SbGNpQTlJR04xY2w5bmNtOTFjRjlwWkNncEtTQjhQaUJ0ZFhSaGRHVW9UM0prWlhJZ1BTQmhjeTVtWVdOMGIzSW9UM0prWlhJcEtTQjhQaUJoY25KaGJtZGxLR1JsYzJNb1QzSmtaWElwS1Z4dVhHNGpJRkpsYjNKa1pYSWdiM1YwWTI5dFpTQnNaWFpsYkhOY2JuSmxjMFJwWm1aT2IxUnZia3hrUVVJa1QzVjBZMjl0WlNBOExTQm1ZV04wYjNJb2NtVnpSR2xtWms1dlZHOXVUR1JCUWlSUGRYUmpiMjFsTENCc1pYWmxiSE05WXloY1hFMWxZVzRnWTJoaGJtZGxJR2x1SUdGdWJtOTVZVzVqWlZ4Y0xDQmNYQ1ZJUVNCOElFaEJKeUFvWVcxaUxpbGNYQ2twWEc1Y2JpTWdjR3h2ZENCeVpYTWdZWE1nYUc5eWFYcHZiblJoYkNCaVlYSWdZMmhoY25Rc0lIZHBkR2dnU1cxd0lHRnpJSGtnWVhocGN5d2dWbUZ5YVdGaWJHVWdZWE1nZUNCaGVHbHpMQ0JQZFhSamIyMWxJR0Z6SUdacGJHd3NJR0Z1WkNCV1lYSnBZV0pzWlY5emRXMGdZWE1nYjNKa1pYSXNJSEpsYkdGaVpXd2dlQ0JoZUdseklIZHBkR2dnVm1GeWFXRmliR1VnYm1GdFpYTmNibkJDWVhJZ1BDMGdaMmR3Ykc5MEtISmxjMFJwWm1aT2IxUnZia3hrUVVJcElDc2daMlZ2YlY5amIyd29ZV1Z6S0dacGJHdzlUM1YwWTI5dFpTd2dlVDFKYlhBc0lIZzlUM0prWlhJcExDQmpiMnh2ZFhJOUoyZHlaWGt6TlNjc0lHeHBibVYzYVdSMGFEMHdMQ0FnZDJsa2RHZzlNQzQzTlN3Z2MyaHZkeTVzWldkbGJtUTlWRkpWUlNrZ0t5QnNZV0p6S0hnOVhGeFdZWEpwWVdKc1pWeGNMQ0I1UFZ4Y1RtOXliV0ZzYVhObFpDQmpiMjVrYVhScGIyNWhiQ0IyWVhKcFlXSnNaU0J3WlhKdGRYUmhkR2x2YmlCcGJYQnZjblJoYm1ObFhGd3BJQ3NnZEdobGJXVW9kR1Y0ZENBOUlHVnNaVzFsYm5SZmRHVjRkQ2htWVcxcGJIa2dQU0JjWEhObGNtbG1YRndwTENCd1lXNWxiQzVuY21sa1BXVnNaVzFsYm5SZmJHbHVaU2hqYjJ4dmNpQTlJSEpuWWlneU16VXNJREl6TlN3Z01qTTFMQ0F4TURBc0lHMWhlRU52Ykc5eVZtRnNkV1VnUFNBeU5UVXBMQ0JzYVc1bGQybGtkR2dnUFNBd0xqSTFMQ0JzYVc1bGRIbHdaU0E5SURJcExDQnNaV2RsYm1RdWNHOXphWFJwYjI0Z1BTQmNYSEpwWjJoMFhGd3BJQ3NnWTI5dmNtUmZabXhwY0NoNWJHbHRQV01vTFRBdU1Td2dNUzR4S1NrZ0t5QnpZMkZzWlY5bWFXeHNYMjFoYm5WaGJDaDJZV3gxWlhNOWJYbGpiMnh2ZFhKektTQXJJSE5qWVd4bFgzaGZaR2x6WTNKbGRHVW9iR0ZpWld4elBYVnVhWEYxWlNoeVpYWW9jbVZ6UkdsbVprNXZWRzl1VEdSQlFpUldZWEpwWVdKc1pTa3BLVnh1Y0VKaGNpQXJJSE5qWVd4bFgzbGZZMjl1ZEdsdWRXOTFjeWhpY21WaGEzTTljMlZ4S0RBc0lERXNJR0o1UFRBdU5Ta3BYRzVjYm1sbUlDaHpZWFpsY0d4dmRITXBlMXh1SUNCblozTmhkbVVvWm1sc1pXNWhiV1U5WEZ4UWRITkJRbU55WmtScFptWlRVVTF6VG05VWIyNU1aRk4xYlcxaGNua3VjM1puWEZ3c0lIZHBaSFJvUFRnc0lHaGxhV2RvZEQwekxDQndZWFJvUFdacGJHVXVjR0YwYUNodmRYUkdhV2RRWVhSb0xDQmNYSE4yWjF4Y0tTbGNiaUFnZFc1c2FXNXJLRnhjVUhSelFVSmpjbVpFYVdabVUxRk5jMDV2Vkc5dVRHUlRkVzF0WVhKNUxuTjJaMXhjS1Z4dUlDQmNiaUFnWjJkellYWmxLR1pwYkdWdVlXMWxQVnhjVUhSelFVSmpjbVpFYVdabVUxRk5jMDV2Vkc5dVRHUlRkVzF0WVhKNUxuQmtabHhjTENCM2FXUjBhRDA0TENCb1pXbG5hSFE5TXl3Z2NHRjBhRDFtYVd4bExuQmhkR2dvYjNWMFJtbG5VR0YwYUN3Z1hGeHdaR1pjWENrcFhHNGdJSFZ1YkdsdWF5aGNYRkIwYzBGQ1kzSm1SR2xtWmxOUlRYTk9iMVJ2Ymt4a1UzVnRiV0Z5ZVM1d1pHWmNYQ2xjYm4xY2JseHVZR0JnWEc1Z1lHQWlmUT09IC0tPlxuXG5gYGByXG5gYGByXG4jIGNvbWJpbmUgdGhlIGFubm95YW5jZSBwZXJtIGltcG9ydGFuY2UgcmVzdWx0c1xuXG4jIGNvbnZlcnQgZWFjaCByZXN1bHQgdG8gYSB0aWJibGUgd2l0aCByb3duYW1lcyBhZGRlZCB0byBhIGNvbHVtbiwgcmVuYW1pbmcgdGhlIGRhdGEgY29sdW1uIHRvICdkQW5ub3knIGV0Yy5cbnJlc2RBbm5veU1uRGlmZlBlcm1JbXBOb1RvbkxkVGJsQUIgPC0gYXMuZGF0YS5mcmFtZShyZXNkQW5ub3lNblBlcm1JbXBBQiREaWZmU1FNczIvbWF4KHJlc2RBbm5veU1uUGVybUltcEFCJERpZmZTUU1zMikpIHw+XG4gIHRpYmJsZTo6cm93bmFtZXNfdG9fY29sdW1uKHZhcj0nVmFyaWFibGUnKVxuY29sbmFtZXMocmVzZEFubm95TW5EaWZmUGVybUltcE5vVG9uTGRUYmxBQilbMl0gPC0gXFxkQW5ub3lcXFxuXG5yZXNkSGlBbm5veURpZmZQZXJtSW1wTm9Ub25MZFRibEFCIDwtIGFzLmRhdGEuZnJhbWUocmVzZEhpQW5ub3lQZXJtSW1wQUIkRGlmZlNRTXMyL21heChyZXNkSGlBbm5veVBlcm1JbXBBQiREaWZmU1FNczIpKSB8PlxuICB0aWJibGU6OnJvd25hbWVzX3RvX2NvbHVtbih2YXI9J1ZhcmlhYmxlJylcbmNvbG5hbWVzKHJlc2RIaUFubm95RGlmZlBlcm1JbXBOb1RvbkxkVGJsQUIpWzJdIDwtIFxcZEhpQW5ub3lcXFxuXG4jIG1lcmdlIHRoZSBkYXRhZnJhbWVzXG5yZXNEaWZmUGVybUltcE5vVG9uTGRUYmxBQiA8LSBsaXN0KHJlc2RBbm5veU1uRGlmZlBlcm1JbXBOb1RvbkxkVGJsQUIsIHJlc2RIaUFubm95RGlmZlBlcm1JbXBOb1RvbkxkVGJsQUIpIHw+XG4gIHB1cnJyOjpyZWR1Y2UobWVyZ2UsIGJ5ID0gYygnVmFyaWFibGUnKSwgYWxsID0gVClcblxuIyByZW5hbWUgdGhlIGNvbHVtbnNcbmNvbG5hbWVzKHJlc0RpZmZQZXJtSW1wTm9Ub25MZFRibEFCKVsyOjNdIDwtIGMoXFxNZWFuIGNoYW5nZSBpbiBhbm5veWFuY2VcXCwgXFwlSEEgfCBIQScgKGFtYi4pXFwpXG5yZXNEaWZmUGVybUltcE5vVG9uTGRUYmxBQltpcy5uYShyZXNEaWZmUGVybUltcE5vVG9uTGRUYmxBQildIDwtIDBcblxucmVzRGlmZk5vVG9uTGRBQiA8LSB0aWR5cjo6cGl2b3RfbG9uZ2VyKHJlc0RpZmZQZXJtSW1wTm9Ub25MZFRibEFCLCBjb2xzPS1WYXJpYWJsZSwgbmFtZXNfdG89XFxPdXRjb21lXFwsIHZhbHVlc190bz1cXEltcFxcKVxuXG4jIHJlb3JkZXIgcmVzIHRpYmJsZSwgZGVzY2VuZGluZyBieSB0aGUgdmFyaWFibGUgSW1wIGdyb3VwZWQgc3VtIGFuZCBjcmVhdGUgY29sdW1uIHdpdGggbmV3IGdyb3VwIG9yZGVyIGFzIGEgZmFjdG9yXG5yZXNEaWZmTm9Ub25MZEFCIDwtIHJlc0RpZmZOb1RvbkxkQUIgfD4gbXV0YXRlKFZhcmlhYmxlX3N1bSA9IHN1bShJbXApLCAuYnk9VmFyaWFibGUpIHw+IGFycmFuZ2UoZGVzYyhWYXJpYWJsZV9zdW0pKSB8PiBncm91cF9ieShWYXJpYWJsZV9zdW0sIFZhcmlhYmxlKSB8PlxuICAgbXV0YXRlKE9yZGVyID0gY3VyX2dyb3VwX2lkKCkpIHw+IG11dGF0ZShPcmRlciA9IGFzLmZhY3RvcihPcmRlcikpIHw+IGFycmFuZ2UoZGVzYyhPcmRlcikpXG5cbiMgUmVvcmRlciBvdXRjb21lIGxldmVsc1xucmVzRGlmZk5vVG9uTGRBQiRPdXRjb21lIDwtIGZhY3RvcihyZXNEaWZmTm9Ub25MZEFCJE91dGNvbWUsIGxldmVscz1jKFxcTWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlXFwsIFxcJUhBIHwgSEEnIChhbWIuKVxcKSlcblxuIyBwbG90IHJlcyBhcyBob3Jpem9udGFsIGJhciBjaGFydCwgd2l0aCBJbXAgYXMgeSBheGlzLCBWYXJpYWJsZSBhcyB4IGF4aXMsIE91dGNvbWUgYXMgZmlsbCwgYW5kIFZhcmlhYmxlX3N1bSBhcyBvcmRlciwgcmVsYWJlbCB4IGF4aXMgd2l0aCBWYXJpYWJsZSBuYW1lc1xucEJhciA8LSBnZ3Bsb3QocmVzRGlmZk5vVG9uTGRBQikgKyBnZW9tX2NvbChhZXMoZmlsbD1PdXRjb21lLCB5PUltcCwgeD1PcmRlciksIGNvbG91cj0nZ3JleTM1JywgbGluZXdpZHRoPTAsICB3aWR0aD0wLjc1LCBzaG93LmxlZ2VuZD1UUlVFKSArIGxhYnMoeD1cXFZhcmlhYmxlXFwsIHk9XFxOb3JtYWxpc2VkIGNvbmRpdGlvbmFsIHZhcmlhYmxlIHBlcm11dGF0aW9uIGltcG9ydGFuY2VcXCkgKyB0aGVtZSh0ZXh0ID0gZWxlbWVudF90ZXh0KGZhbWlseSA9IFxcc2VyaWZcXCksIHBhbmVsLmdyaWQ9ZWxlbWVudF9saW5lKGNvbG9yID0gcmdiKDIzNSwgMjM1LCAyMzUsIDEwMCwgbWF4Q29sb3JWYWx1ZSA9IDI1NSksIGxpbmV3aWR0aCA9IDAuMjUsIGxpbmV0eXBlID0gMiksIGxlZ2VuZC5wb3NpdGlvbiA9IFxccmlnaHRcXCkgKyBjb29yZF9mbGlwKHlsaW09YygtMC4xLCAxLjEpKSArIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcz1teWNvbG91cnMpICsgc2NhbGVfeF9kaXNjcmV0ZShsYWJlbHM9dW5pcXVlKHJldihyZXNEaWZmTm9Ub25MZEFCJFZhcmlhYmxlKSkpXG5wQmFyICsgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcz1zZXEoMCwgMSwgYnk9MC41KSlcblxuaWYgKHNhdmVwbG90cyl7XG4gIGdnc2F2ZShmaWxlbmFtZT1cXFB0c0FCY3JmRGlmZlNRTXNOb1RvbkxkU3VtbWFyeS5zdmdcXCwgd2lkdGg9OCwgaGVpZ2h0PTMsIHBhdGg9ZmlsZS5wYXRoKG91dEZpZ1BhdGgsIFxcc3ZnXFwpKVxuICB1bmxpbmsoXFxQdHNBQmNyZkRpZmZTUU1zTm9Ub25MZFN1bW1hcnkuc3ZnXFwpXG4gIFxuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmNyZkRpZmZTUU1zTm9Ub25MZFN1bW1hcnkucGRmXFwsIHdpZHRoPTgsIGhlaWdodD0zLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHBkZlxcKSlcbiAgdW5saW5rKFxcUHRzQUJjcmZEaWZmU1FNc05vVG9uTGRTdW1tYXJ5LnBkZlxcKVxufVxuXG5gYGBcbmBgYFxuXG48IS0tIHJuYi1zb3VyY2UtZW5kIC0tPlxuIn0= -->
<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxuIyBjb21iaW5lIHRoZSBhbm5veWFuY2UgcGVybSBpbXBvcnRhbmNlIHJlc3VsdHNcblxuIyBjb252ZXJ0IGVhY2ggcmVzdWx0IHRvIGEgdGliYmxlIHdpdGggcm93bmFtZXMgYWRkZWQgdG8gYSBjb2x1bW4sIHJlbmFtaW5nIHRoZSBkYXRhIGNvbHVtbiB0byAnZEFubm95JyBldGMuXG5yZXNkQW5ub3lNbkRpZmZQZXJtSW1wTm9Ub25MZFRibEFCIDwtIGFzLmRhdGEuZnJhbWUocmVzZEFubm95TW5QZXJtSW1wQUIkRGlmZlNRTXMyL21heChyZXNkQW5ub3lNblBlcm1JbXBBQiREaWZmU1FNczIpKSB8PlxuICB0aWJibGU6OnJvd25hbWVzX3RvX2NvbHVtbih2YXI9J1ZhcmlhYmxlJylcbmNvbG5hbWVzKHJlc2RBbm5veU1uRGlmZlBlcm1JbXBOb1RvbkxkVGJsQUIpWzJdIDwtIFxcZEFubm95XFxcblxucmVzZEhpQW5ub3lEaWZmUGVybUltcE5vVG9uTGRUYmxBQiA8LSBhcy5kYXRhLmZyYW1lKHJlc2RIaUFubm95UGVybUltcEFCJERpZmZTUU1zMi9tYXgocmVzZEhpQW5ub3lQZXJtSW1wQUIkRGlmZlNRTXMyKSkgfD5cbiAgdGliYmxlOjpyb3duYW1lc190b19jb2x1bW4odmFyPSdWYXJpYWJsZScpXG5jb2xuYW1lcyhyZXNkSGlBbm5veURpZmZQZXJtSW1wTm9Ub25MZFRibEFCKVsyXSA8LSBcXGRIaUFubm95XFxcblxuIyBtZXJnZSB0aGUgZGF0YWZyYW1lc1xucmVzRGlmZlBlcm1JbXBOb1RvbkxkVGJsQUIgPC0gbGlzdChyZXNkQW5ub3lNbkRpZmZQZXJtSW1wTm9Ub25MZFRibEFCLCByZXNkSGlBbm5veURpZmZQZXJtSW1wTm9Ub25MZFRibEFCKSB8PlxuICBwdXJycjo6cmVkdWNlKG1lcmdlLCBieSA9IGMoJ1ZhcmlhYmxlJyksIGFsbCA9IFQpXG5cbiMgcmVuYW1lIHRoZSBjb2x1bW5zXG5jb2xuYW1lcyhyZXNEaWZmUGVybUltcE5vVG9uTGRUYmxBQilbMjozXSA8LSBjKFxcTWVhbiBjaGFuZ2UgaW4gYW5ub3lhbmNlXFwsIFxcJUhBIHwgSEEnIChhbWIuKVxcKVxucmVzRGlmZlBlcm1JbXBOb1RvbkxkVGJsQUJbaXMubmEocmVzRGlmZlBlcm1JbXBOb1RvbkxkVGJsQUIpXSA8LSAwXG5cbnJlc0RpZmZOb1RvbkxkQUIgPC0gdGlkeXI6OnBpdm90X2xvbmdlcihyZXNEaWZmUGVybUltcE5vVG9uTGRUYmxBQiwgY29scz0tVmFyaWFibGUsIG5hbWVzX3RvPVxcT3V0Y29tZVxcLCB2YWx1ZXNfdG89XFxJbXBcXClcblxuIyByZW9yZGVyIHJlcyB0aWJibGUsIGRlc2NlbmRpbmcgYnkgdGhlIHZhcmlhYmxlIEltcCBncm91cGVkIHN1bSBhbmQgY3JlYXRlIGNvbHVtbiB3aXRoIG5ldyBncm91cCBvcmRlciBhcyBhIGZhY3RvclxucmVzRGlmZk5vVG9uTGRBQiA8LSByZXNEaWZmTm9Ub25MZEFCIHw+IG11dGF0ZShWYXJpYWJsZV9zdW0gPSBzdW0oSW1wKSwgLmJ5PVZhcmlhYmxlKSB8PiBhcnJhbmdlKGRlc2MoVmFyaWFibGVfc3VtKSkgfD4gZ3JvdXBfYnkoVmFyaWFibGVfc3VtLCBWYXJpYWJsZSkgfD5cbiAgIG11dGF0ZShPcmRlciA9IGN1cl9ncm91cF9pZCgpKSB8PiBtdXRhdGUoT3JkZXIgPSBhcy5mYWN0b3IoT3JkZXIpKSB8PiBhcnJhbmdlKGRlc2MoT3JkZXIpKVxuXG4jIFJlb3JkZXIgb3V0Y29tZSBsZXZlbHNcbnJlc0RpZmZOb1RvbkxkQUIkT3V0Y29tZSA8LSBmYWN0b3IocmVzRGlmZk5vVG9uTGRBQiRPdXRjb21lLCBsZXZlbHM9YyhcXE1lYW4gY2hhbmdlIGluIGFubm95YW5jZVxcLCBcXCVIQSB8IEhBJyAoYW1iLilcXCkpXG5cbiMgcGxvdCByZXMgYXMgaG9yaXpvbnRhbCBiYXIgY2hhcnQsIHdpdGggSW1wIGFzIHkgYXhpcywgVmFyaWFibGUgYXMgeCBheGlzLCBPdXRjb21lIGFzIGZpbGwsIGFuZCBWYXJpYWJsZV9zdW0gYXMgb3JkZXIsIHJlbGFiZWwgeCBheGlzIHdpdGggVmFyaWFibGUgbmFtZXNcbnBCYXIgPC0gZ2dwbG90KHJlc0RpZmZOb1RvbkxkQUIpICsgZ2VvbV9jb2woYWVzKGZpbGw9T3V0Y29tZSwgeT1JbXAsIHg9T3JkZXIpLCBjb2xvdXI9J2dyZXkzNScsIGxpbmV3aWR0aD0wLCAgd2lkdGg9MC43NSwgc2hvdy5sZWdlbmQ9VFJVRSkgKyBsYWJzKHg9XFxWYXJpYWJsZVxcLCB5PVxcTm9ybWFsaXNlZCBjb25kaXRpb25hbCB2YXJpYWJsZSBwZXJtdXRhdGlvbiBpbXBvcnRhbmNlXFwpICsgdGhlbWUodGV4dCA9IGVsZW1lbnRfdGV4dChmYW1pbHkgPSBcXHNlcmlmXFwpLCBwYW5lbC5ncmlkPWVsZW1lbnRfbGluZShjb2xvciA9IHJnYigyMzUsIDIzNSwgMjM1LCAxMDAsIG1heENvbG9yVmFsdWUgPSAyNTUpLCBsaW5ld2lkdGggPSAwLjI1LCBsaW5ldHlwZSA9IDIpLCBsZWdlbmQucG9zaXRpb24gPSBcXHJpZ2h0XFwpICsgY29vcmRfZmxpcCh5bGltPWMoLTAuMSwgMS4xKSkgKyBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXM9bXljb2xvdXJzKSArIHNjYWxlX3hfZGlzY3JldGUobGFiZWxzPXVuaXF1ZShyZXYocmVzRGlmZk5vVG9uTGRBQiRWYXJpYWJsZSkpKVxucEJhciArIHNjYWxlX3lfY29udGludW91cyhicmVha3M9c2VxKDAsIDEsIGJ5PTAuNSkpXG5cbmlmIChzYXZlcGxvdHMpe1xuICBnZ3NhdmUoZmlsZW5hbWU9XFxQdHNBQmNyZkRpZmZTUU1zTm9Ub25MZFN1bW1hcnkuc3ZnXFwsIHdpZHRoPTgsIGhlaWdodD0zLCBwYXRoPWZpbGUucGF0aChvdXRGaWdQYXRoLCBcXHN2Z1xcKSlcbiAgdW5saW5rKFxcUHRzQUJjcmZEaWZmU1FNc05vVG9uTGRTdW1tYXJ5LnN2Z1xcKVxuICBcbiAgZ2dzYXZlKGZpbGVuYW1lPVxcUHRzQUJjcmZEaWZmU1FNc05vVG9uTGRTdW1tYXJ5LnBkZlxcLCB3aWR0aD04LCBoZWlnaHQ9MywgcGF0aD1maWxlLnBhdGgob3V0RmlnUGF0aCwgXFxwZGZcXCkpXG4gIHVubGluayhcXFB0c0FCY3JmRGlmZlNRTXNOb1RvbkxkU3VtbWFyeS5wZGZcXClcbn1cblxuYGBgXG5gYGAifQ== -->
```r
```r
# combine the annoyance perm importance results
# convert each result to a tibble with rownames added to a column, renaming the data column to 'dAnnoy' etc.
resdAnnoyMnDiffPermImpNoTonLdTblAB <- as.data.frame(resdAnnoyMnPermImpAB$DiffSQMs2/max(resdAnnoyMnPermImpAB$DiffSQMs2)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdAnnoyMnDiffPermImpNoTonLdTblAB)[2] <- \dAnnoy\
resdHiAnnoyDiffPermImpNoTonLdTblAB <- as.data.frame(resdHiAnnoyPermImpAB$DiffSQMs2/max(resdHiAnnoyPermImpAB$DiffSQMs2)) |>
tibble::rownames_to_column(var='Variable')
colnames(resdHiAnnoyDiffPermImpNoTonLdTblAB)[2] <- \dHiAnnoy\
# merge the dataframes
resDiffPermImpNoTonLdTblAB <- list(resdAnnoyMnDiffPermImpNoTonLdTblAB, resdHiAnnoyDiffPermImpNoTonLdTblAB) |>
purrr::reduce(merge, by = c('Variable'), all = T)
# rename the columns
colnames(resDiffPermImpNoTonLdTblAB)[2:3] <- c(\Mean change in annoyance\, \%HA | HA' (amb.)\)
resDiffPermImpNoTonLdTblAB[is.na(resDiffPermImpNoTonLdTblAB)] <- 0
resDiffNoTonLdAB <- tidyr::pivot_longer(resDiffPermImpNoTonLdTblAB, cols=-Variable, names_to=\Outcome\, values_to=\Imp\)
# reorder res tibble, descending by the variable Imp grouped sum and create column with new group order as a factor
resDiffNoTonLdAB <- resDiffNoTonLdAB |> mutate(Variable_sum = sum(Imp), .by=Variable) |> arrange(desc(Variable_sum)) |> group_by(Variable_sum, Variable) |>
mutate(Order = cur_group_id()) |> mutate(Order = as.factor(Order)) |> arrange(desc(Order))
# Reorder outcome levels
resDiffNoTonLdAB$Outcome <- factor(resDiffNoTonLdAB$Outcome, levels=c(\Mean change in annoyance\, \%HA | HA' (amb.)\))
# plot res as horizontal bar chart, with Imp as y axis, Variable as x axis, Outcome as fill, and Variable_sum as order, relabel x axis with Variable names
pBar <- ggplot(resDiffNoTonLdAB) + geom_col(aes(fill=Outcome, y=Imp, x=Order), colour='grey35', linewidth=0, width=0.75, show.legend=TRUE) + labs(x=\Variable\, y=\Normalised conditional variable permutation importance\) + theme(text = element_text(family = \serif\), panel.grid=element_line(color = rgb(235, 235, 235, 100, maxColorValue = 255), linewidth = 0.25, linetype = 2), legend.position = \right\) + coord_flip(ylim=c(-0.1, 1.1)) + scale_fill_manual(values=mycolours) + scale_x_discrete(labels=unique(rev(resDiffNoTonLdAB$Variable)))
pBar + scale_y_continuous(breaks=seq(0, 1, by=0.5))
if (saveplots){
ggsave(filename=\PtsABcrfDiffSQMsNoTonLdSummary.svg\, width=8, height=3, path=file.path(outFigPath, \svg\))
unlink(\PtsABcrfDiffSQMsNoTonLdSummary.svg\)
ggsave(filename=\PtsABcrfDiffSQMsNoTonLdSummary.pdf\, width=8, height=3, path=file.path(outFigPath, \pdf\))
unlink(\PtsABcrfDiffSQMsNoTonLdSummary.pdf\)
}
```
```
<!-- rnb-source-end -->
<!-- rnb-output-end -->
<!-- rnb-chunk-end -->
<!-- rnb-text-begin -->
### Save the results outputs to file
<!-- rnb-text-end -->
<!-- rnb-chunk-begin -->
<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVJeUJOWVd0bElHRWdiR2x6ZENCdlppQjBhR1VnYzNWdGJXRnllU0J5WlhOMWJIUnpYRzV5WlhOVGRXMXRZWEo1SUR3dElHeHBjM1FvY21WelFXSnpRVUlzSUhKbGMwUnBabVpCUWl3Z2NtVnpRV0p6VG05VWIyNU1aRUZDTENCeVpYTkVhV1ptVG05VWIyNU1aRUZDS1Z4dVhHNGpJRk5oZG1VZ2RHaGxJSEpsYzNWc2RITmNibWxtSUNoellYWmxaR0YwWVNsN1hHNGdJR2xwSUR3dElEQmNiaUFnZEdWdGNDQTlJR3hwYzNRb0tWeHVJQ0JtYjNJZ0tISmxjeUJwYmlCeVpYTlRkVzF0WVhKNUtYdGNiaUFnSUNCcGFTQThMU0JwYVNBcklERmNiaUFnSUNCMFpXMXdXMXRwYVYxZElEd3RJR1JoZEdFdVpuSmhiV1VvY21WelUzVnRiV0Z5ZVZ0cGFWMHBYRzRnSUgxY2JpQWdiM0JsYm5oc2MzZzZPbmR5YVhSbExuaHNjM2dvZEdWdGNDd2djR0Z6ZEdVb2IzVjBSR0YwWVZCaGRHZ3NJRndpWEZ4Y1hGQjBjMEZDUTFKR1UzVnRiV0Z5ZVM1NGJITjRYQ0lzWEc0Z0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnSUhObGNEMWNJbHdpS1N4Y2JpQWdJQ0FnSUNBZ0lDQWdJQ0FnSUNBZ0lDQWdJQ0FnY205M1RtRnRaWE05VkZKVlJTbGNibjFjYmx4dVlHQmdJbjA9IC0tPlxuXG5gYGByXG4jIE1ha2UgYSBsaXN0IG9mIHRoZSBzdW1tYXJ5IHJlc3VsdHNcbnJlc1N1bW1hcnkgPC0gbGlzdChyZXNBYnNBQiwgcmVzRGlmZkFCLCByZXNBYnNOb1RvbkxkQUIsIHJlc0RpZmZOb1RvbkxkQUIpXG5cbiMgU2F2ZSB0aGUgcmVzdWx0c1xuaWYgKHNhdmVkYXRhKXtcbiAgaWkgPC0gMFxuICB0ZW1wID0gbGlzdCgpXG4gIGZvciAocmVzIGluIHJlc1N1bW1hcnkpe1xuICAgIGlpIDwtIGlpICsgMVxuICAgIHRlbXBbW2lpXV0gPC0gZGF0YS5mcmFtZShyZXNTdW1tYXJ5W2lpXSlcbiAgfVxuICBvcGVueGxzeDo6d3JpdGUueGxzeCh0ZW1wLCBwYXN0ZShvdXREYXRhUGF0aCwgXFxcXFxcUHRzQUJDUkZTdW1tYXJ5Lnhsc3hcXCxcbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2VwPVxcXFwpLFxuICAgICAgICAgICAgICAgICAgICAgICByb3dOYW1lcz1UUlVFKVxufVxuXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->
# Make a list of the summary results
resSummary <- list(resAbsAB, resDiffAB, resAbsNoTonLdAB, resDiffNoTonLdAB)
# Save the results
if (savedata){
ii <- 0
temp = list()
for (res in resSummary){
ii <- ii + 1
temp[[ii]] <- data.frame(resSummary[ii])
}
openxlsx::write.xlsx(temp, paste(outDataPath, \\\PtsABCRFSummary.xlsx\,
sep=\\),
rowNames=TRUE)
}
````
```r
# Make a list of the summary results
resSummary <- list(resAbsAB, resDiffAB, resAbsNoTonLdAB, resDiffNoTonLdAB)
# Save the results
if (savedata){
ii <- 0
temp = list()
for (res in resSummary){
ii <- ii + 1
temp[[ii]] <- data.frame(resSummary[ii])
}
openxlsx::write.xlsx(temp, paste(outDataPath, \\\PtsABCRFSummary.xlsx\,
sep=\\),
rowNames=TRUE)
}
```